]> hackdaworld.org Git - lectures/latex.git/blob - posic/thesis/thesis.bst
started trafo section
[lectures/latex.git] / posic / thesis / thesis.bst
1 %%h-physrev3.bst
2 %%Modified to avoid extra comma at end of citations
3 %%h-physrev2.bst
4 %%Jonathan Flynn's h-physrev.bst modified to allow citation information
5 %%for SPIRES processing by Heath O'Connell following suggestions by
6 %%Jacques Distler.
7
8 ENTRY
9 { address
10 eprint
11 author
12 booktitle
13 chapter
14 collaboration
15 SLACcitation
16 edition
17 editor
18 howpublished
19 institution
20 journal
21 key
22 month
23 note
24 number
25 organization
26 pages
27 publisher
28 school
29 series
30 title
31 type
32 volume
33 year
34 }
35 {}
36 { label }
37 INTEGERS { output.state before.all mid.sentence after.sentence after.block }
38 FUNCTION {init.state.consts}
39 { #0 'before.all :=
40 #1 'mid.sentence :=
41 #2 'after.sentence :=
42 #3 'after.block :=
43 }
44 STRINGS { s t }
45 FUNCTION {output.nonnull}
46 { 's :=
47 output.state mid.sentence =
48 { ", " * write$ }
49 { output.state after.block =
50 { "," * write$
51 newline$
52 "\newblock " write$
53 }
54 { output.state before.all =
55 'write$
56 { add.period$ " " * write$ }
57 if$
58 }
59 if$
60 mid.sentence 'output.state :=
61 }
62 if$
63 s
64 }
65 FUNCTION {output}
66 { duplicate$ empty$
67 'pop$
68 'output.nonnull
69 if$
70 }
71 FUNCTION {output.check}
72 { 't :=
73 duplicate$ empty$
74 { pop$ "empty " t * " in " * cite$ * warning$ }
75 'output.nonnull
76 if$
77 }
78 FUNCTION {output.bibitem}
79 { newline$
80 "\bibitem{" write$
81 cite$ write$
82 "}" write$
83 newline$
84 ""
85 before.all 'output.state :=
86 }
87 FUNCTION {fin.entry}
88 { add.period$
89 write$
90 % modified to add SLACcitation field if present
91 SLACcitation empty$
92   'skip$
93   { newline$ SLACcitation write$ }
94   if$
95 % end of modification
96 newline$
97 }
98 FUNCTION {new.block}
99 { output.state before.all =
100 'skip$
101 { after.block 'output.state := }
102 if$
103 }
104 FUNCTION {new.sentence}
105 { skip$
106 }
107 FUNCTION {not}
108 {   { #0 }
109 { #1 }
110 if$
111 }
112 FUNCTION {and}
113 {   'skip$
114 { pop$ #0 }
115 if$
116 }
117 FUNCTION {or}
118 {   { pop$ #1 }
119 'skip$
120 if$
121 }
122 FUNCTION {new.block.checka}
123 { empty$
124 'skip$
125 'new.block
126 if$
127 }
128 FUNCTION {new.block.checkb}
129 { empty$
130 swap$ empty$
131 and
132 'skip$
133 'new.block
134 if$
135 }
136 FUNCTION {new.sentence.checka}
137 { empty$
138 'skip$
139 'new.sentence
140 if$
141 }
142 FUNCTION {new.sentence.checkb}
143 { empty$
144 swap$ empty$
145 and
146 'skip$
147 'new.sentence
148 if$
149 }
150 FUNCTION {field.or.null}
151 { duplicate$ empty$
152 { pop$ "" }
153 'skip$
154 if$
155 }
156 FUNCTION {emphasize}
157 { duplicate$ empty$
158 { pop$ "" }
159 { "{\em " swap$ * "}" * }
160 if$
161 }
162 FUNCTION {embolden}
163 { duplicate$ empty$
164 { pop$ "" }
165 { "{\bf " swap$ * "}" * }
166 if$
167 }
168 FUNCTION {paren}
169 { duplicate$ empty$
170 { pop$ "" }
171 { "(" swap$ * ")" * }
172 if$
173 }
174 INTEGERS { nameptr namesleft numnames }
175 INTEGERS { etal }
176 FUNCTION {format.names}
177 { 's :=
178 #1 'nameptr :=
179 s num.names$ 'numnames :=
180 numnames #15 >
181 s numnames "{ll}" format.name$ "others" = numnames #1 > and
182 or 'etal :=
183 etal
184 { #1 #1 + 'namesleft := }
185 { numnames 'namesleft := }
186 if$
187 { namesleft #0 > }
188 { s nameptr "{f.~}{vv~}{ll}{, jj}" format.name$ 't :=
189 nameptr #1 >
190 { namesleft #1 >
191 { ", " * t * }
192 { nameptr #2 >
193 { "," * }
194 'skip$
195 if$
196 t "others" =
197 etal or
198 { " {\em et~al.}" * }
199 { " and " * t * }
200 if$
201 }
202 if$
203 }
204 't
205 if$
206 nameptr #1 + 'nameptr :=
207 namesleft #1 - 'namesleft :=
208 }
209 while$
210 }
211 FUNCTION {format.authors}
212 { author empty$
213 { "" }
214 { author format.names }
215 if$
216 }
217 FUNCTION {format.editors}
218 { editor empty$
219 { "" }
220 { editor format.names
221 editor num.names$ #1 >
222 { ", editors" * }
223 { ", editor" * }
224 if$
225 }
226 if$
227 }
228 FUNCTION {format.edited}
229 { editor empty$
230 { "" }
231 { "edited by " editor format.names * }
232 if$
233 }
234 FUNCTION {format.title}
235 { title empty$
236 { "" }
237 { title "t" change.case$ }
238 if$
239 }
240 FUNCTION {n.dashify}
241 { 't :=
242 ""
243 { t empty$ not }
244 { t #1 #1 substring$ "-" =
245 { t #1 #2 substring$ "--" = not
246 { "--" *
247 t #2 global.max$ substring$ 't :=
248 }
249 {   { t #1 #1 substring$ "-" = }
250 { "-" *
251 t #2 global.max$ substring$ 't :=
252 }
253 while$
254 }
255 if$
256 }
257 { t #1 #1 substring$ *
258 t #2 global.max$ substring$ 't :=
259 }
260 if$
261 }
262 while$
263 }
264 FUNCTION {first.page}
265 { 't :=
266 ""
267 {  t empty$ not t #1 #1 substring$ "-" = not and }
268 { t #1 #1 substring$ *
269 t #2 global.max$ substring$ 't :=
270 }
271 while$
272 }
273 FUNCTION {format.date}
274 { year empty$
275 { "" }
276 'year
277 if$
278 }
279 %FUNCTION {format.SLACcitation}
280 %{ SLACcitation empty$
281 %  {""}
282 %  { SLACcitation }
283 %  if$
284 %}
285 FUNCTION {format.btitle}
286 { title emphasize
287 }
288 FUNCTION {tie.or.space.connect}
289 { duplicate$ text.length$ #3 <
290 { "~" }
291 { " " }
292 if$
293 swap$ * *
294 }
295 FUNCTION {either.or.check}
296 { empty$
297 'pop$
298 { "can't use both " swap$ * " fields in " * cite$ * warning$ }
299 if$
300 }
301 FUNCTION {format.bvolume}
302 { volume empty$
303 { "" }
304 { series empty$
305 'skip$
306 { ", " series * }
307 if$
308 " Vol." volume tie.or.space.connect *
309 "volume and number" number either.or.check
310 }
311 if$
312 }
313 FUNCTION {format.zvolume}
314 { volume empty$
315 { "" }
316 { series empty$
317 'skip$
318 { "" series * }
319 if$
320 " Vol." volume tie.or.space.connect *
321 "volume and number" number either.or.check
322 }
323 if$
324 }
325 FUNCTION {format.number.series}
326 { volume empty$
327 { number empty$
328 { series field.or.null }
329 {  series empty$
330 { "there's a number but no series in " cite$ * warning$ }
331 { ", " series * }
332 if$
333 " No. " number tie.or.space.connect *
334 }
335 if$
336 }
337 { "" }
338 if$
339 }
340 FUNCTION {format.edition}
341 { edition empty$
342 { "" }
343 { output.state mid.sentence =
344 { ", " edition "l" change.case$ *  }
345 { ", " edition "t" change.case$ *  }
346 if$
347 " ed." *
348 }
349 if$
350 }
351 INTEGERS { multiresult }
352 FUNCTION {multi.page.check}
353 { 't :=
354 #0 'multiresult :=
355 { multiresult not
356 t empty$ not
357 and
358 }
359 { t #1 #1 substring$
360 duplicate$ "-" =
361 swap$ duplicate$ "," =
362 swap$ "+" =
363 or or
364 { #1 'multiresult := }
365 { t #2 global.max$ substring$ 't := }
366 if$
367 }
368 while$
369 multiresult
370 }
371 FUNCTION {format.pages}
372 { pages empty$
373 { "" }
374 { pages multi.page.check
375 { "pp." pages n.dashify tie.or.space.connect }
376 { "p." pages tie.or.space.connect }
377 if$
378 }
379 if$
380 }
381 FUNCTION {format.pages.a}
382 { pages empty$
383 { "" }
384 { "p." pages first.page tie.or.space.connect }
385 if$
386 }
387 FUNCTION {format.vol.num.pages}
388 { volume field.or.null embolden
389 " " swap$ * *
390 pages empty$
391 'skip$
392 { duplicate$ empty$
393 { pop$ format.pages.a }
394 { ", " * pages first.page * }
395 if$
396 }
397 if$
398 }
399 FUNCTION {format.chapter.pages}
400 { chapter empty$
401 'format.pages
402 { type empty$
403 { "chap." }
404 { type "l" change.case$ }
405 if$
406 chapter tie.or.space.connect
407 pages empty$
408 'skip$
409 { ", " * format.pages * }
410 if$
411 }
412 if$
413 }
414 FUNCTION {format.pub.addr.date}
415 { publisher empty$
416 { "" "empty publisher in " cite$ * warning$ }
417 { publisher
418 address empty$
419 'skip$
420 { ", " * address * }
421 if$
422 }
423 if$
424 year empty$
425 { "empty year in " cite$ * warning$ }
426 { ", " * year * }
427 if$
428 paren " " swap$ *
429 }
430 FUNCTION {format.book.entry}
431 { format.btitle
432 format.bvolume *
433 format.number.series *
434 format.edition *
435 format.pub.addr.date *
436 }
437 FUNCTION {format.inbook.entry}
438 { format.book.entry
439 ", " *
440 format.chapter.pages *
441 }
442 FUNCTION {format.in.ed.booktitle}
443 { booktitle empty$
444 { "" }
445 { editor empty$
446 { "in " booktitle emphasize * }
447 { "in " booktitle emphasize * ", " * format.edited * }
448 if$
449 }
450 if$
451 }
452 FUNCTION {empty.misc.check}
453 { author empty$ title empty$ howpublished empty$
454 month empty$ year empty$ note empty$
455 and and and and and
456 { "all relevant fields are empty in " cite$ * warning$ }
457 'skip$
458 if$
459 }
460 FUNCTION {format.thesis.type}
461 { type empty$
462 'skip$
463 { pop$
464 type "t" change.case$
465 }
466 if$
467 }
468 FUNCTION {format.inst.tr.num.date}
469 { institution empty$
470 { "" "empty institution in " cite$ * warning$ }
471 { institution }
472 if$
473 " Report No." *
474 number empty$
475 { "" }
476 { number tie.or.space.connect }
477 if$
478 year empty$
479 { "empty year in " cite$ * warning$ }
480 { ", " * year * " (unpublished)" * }
481 if$
482 }
483 FUNCTION {format.article.crossref}
484 { key empty$
485 { journal empty$
486 { "need key or journal for " cite$ * " to crossref " * crossref *
487 warning$
488 ""
489 }
490 { "In " journal * }
491 if$
492 }
493 { "In " key * }
494 if$
495 " \cite{" * crossref * "}" *
496 }
497 FUNCTION {format.crossref.editor}
498 { editor #1 "{vv~}{ll}" format.name$
499 editor num.names$ duplicate$
500 #2 >
501 { pop$ " {\em et~al.}" * }
502 { #2 <
503 'skip$
504 { editor #2 "{ff }{vv }{ll}{ jj}" format.name$ "others" =
505 { " {\em et~al.}" * }
506 { " and " * editor #2 "{vv~}{ll}" format.name$ * }
507 if$
508 }
509 if$
510 }
511 if$
512 }
513 FUNCTION {format.book.crossref}
514 { volume empty$
515 { "empty volume in " cite$ * "'s crossref of " * crossref * warning$
516 "In "
517 }
518 { "Volume" volume tie.or.space.connect
519 " of " *
520 }
521 if$
522 editor empty$
523 editor field.or.null author field.or.null =
524 or
525 { key empty$
526 { series empty$
527 { "need editor, key, or series for " cite$ * " to crossref " *
528 crossref * warning$
529 "" *
530 }
531 { "{\em " * series * "\/}" * }
532 if$
533 }
534 { key * }
535 if$
536 }
537 { format.crossref.editor * }
538 if$
539 " \cite{" * crossref * "}" *
540 }
541 FUNCTION {format.incoll.inproc.crossref}
542 { editor empty$
543 editor field.or.null author field.or.null =
544 or
545 { key empty$
546 { booktitle empty$
547 { "need editor, key, or booktitle for " cite$ * " to crossref " *
548 crossref * warning$
549 ""
550 }
551 { "In {\em " booktitle * "\/}" * }
552 if$
553 }
554 { "In " key * }
555 if$
556 }
557 { "In " format.crossref.editor * }
558 if$
559 " \cite{" * crossref * "}" *
560 }
561 FUNCTION {article}
562 { output.bibitem
563 collaboration output
564 format.authors "author" output.check
565 new.block
566 crossref missing$
567 { journal field.or.null
568 format.vol.num.pages 
569 format.date empty$
570 'skip$
571 { duplicate$ empty$
572 { pop$ format.date paren }
573 { " " * format.date paren * }
574 if$
575 }
576 if$
577 output
578 }
579 { format.article.crossref output.nonnull
580 format.pages output
581 }
582 if$
583 %eprint output
584 new.block
585 %note output
586 %format.SLACcitation output
587 fin.entry
588 }
589 FUNCTION {book}
590 { output.bibitem
591 collaboration output
592 author empty$
593 { format.editors "author and editor" output.check }
594 { format.authors output.nonnull
595 crossref missing$
596 { "author and editor" editor either.or.check }
597 'skip$
598 if$
599 }
600 if$
601 new.block
602 crossref missing$
603 { format.book.entry output }
604 { new.block
605 format.book.crossref output.nonnull
606 }
607 if$    
608 eprint output
609 new.block
610 note output
611 %format.SLACcitation output
612 fin.entry
613 }
614 FUNCTION {booklet}
615 { output.bibitem
616 collaboration output
617 format.authors output
618 new.block
619 format.title "title" output.check
620 howpublished address new.block.checkb
621 howpublished output
622 address output
623 format.date output
624 eprint output
625 new.block
626 note output
627 %format.SLACcitation output
628 fin.entry
629 }
630 FUNCTION {inbook}
631 { output.bibitem
632 collaboration output
633 author empty$
634 { format.editors "author and editor" output.check }
635 { format.authors output.nonnull
636 crossref missing$
637 { "author and editor" editor either.or.check }
638 'skip$
639 if$
640 }
641 if$
642 new.block
643 crossref missing$
644 { format.inbook.entry output }
645 { format.chapter.pages "chapter and pages" output.check
646 new.block
647 format.book.crossref output.nonnull
648 }
649 if$
650 eprint output
651 new.block
652 note output
653 %format.SLACcitation output
654 fin.entry
655 }
656 FUNCTION {incollection}
657 { output.bibitem
658 collaboration output
659 format.authors "author" output.check
660 new.block
661 format.title "title" output.check
662 new.block
663 crossref missing$
664 %{ format.in.ed.booktitle "booktitle" output.check
665 { format.zvolume output
666 format.number.series output
667 format.chapter.pages output
668 new.sentence
669 publisher "publisher" output.check
670 address output
671 format.edition output
672 format.date "year" output.check
673 }
674 { format.incoll.inproc.crossref output.nonnull
675 format.chapter.pages output
676 }
677 if$
678 eprint output
679 new.block
680 note output
681 %format.SLACcitation output
682 fin.entry
683 }
684 FUNCTION {inproceedings}
685 { output.bibitem
686 collaboration output
687 format.authors "author" output.check
688 %new.block
689 %format.title "title" output.check
690 new.block
691 crossref missing$
692 { format.in.ed.booktitle "booktitle" output.check
693 format.bvolume output
694 format.number.series output
695 format.pages output
696 address empty$
697 { organization publisher new.sentence.checkb
698 organization output
699 publisher output
700 format.date "year" output.check
701 }
702 { address output.nonnull
703 format.date "year" output.check
704 new.sentence
705 organization output
706 publisher output
707 }
708 if$
709 }
710 { format.incoll.inproc.crossref output.nonnull
711 format.pages output
712 }
713 if$
714 eprint output
715 new.block
716 note output
717 %format.SLACcitation output
718 fin.entry
719 }
720 FUNCTION {conference} { inproceedings }
721 FUNCTION {manual}
722 { output.bibitem
723 collaboration output
724 author empty$
725 { organization empty$
726 'skip$
727 { organization output.nonnull
728 address output
729 }
730 if$
731 }
732 { format.authors output.nonnull }
733 if$
734 new.block
735 format.btitle "title" output.check
736 author empty$
737 { organization empty$
738 { address new.block.checka
739 address output
740 }
741 'skip$
742 if$
743 }
744 { organization address new.block.checkb
745 organization output
746 address output
747 }
748 if$
749 format.edition output
750 format.date output
751 eprint output
752 new.block
753 note output
754 fin.entry
755 }
756 FUNCTION {mastersthesis}
757 { output.bibitem
758 format.authors "author" output.check
759 new.block
760 format.title "title" output.check
761 new.block
762 "Master's thesis" format.thesis.type output.nonnull
763 school "school" output.check
764 address output
765 format.date "year" output.check
766 eprint output
767 new.block
768 note output
769 fin.entry
770 }
771 FUNCTION {misc}
772 { output.bibitem
773 collaboration output
774 format.authors output
775 title howpublished new.block.checkb
776 format.title output
777 howpublished new.block.checka
778 howpublished output
779 format.date output
780 eprint output
781 new.block
782 note output
783 fin.entry
784 empty.misc.check
785 }
786 FUNCTION {phdthesis}
787 { output.bibitem
788 format.authors "author" output.check
789 new.block
790 format.btitle "title" output.check
791 new.block
792 "PhD thesis" format.thesis.type output.nonnull
793 school "school" output.check
794 address output
795 format.date "year" output.check
796 eprint output
797 new.block
798 note output
799 %format.SLACcitation output
800 fin.entry
801 }
802 FUNCTION {proceedings}
803 { output.bibitem
804 collaboration output
805 editor empty$
806 { organization output }
807 { format.editors output.nonnull }
808 if$
809 new.block
810 format.btitle "title" output.check
811 format.bvolume output
812 format.number.series output
813 address empty$
814 { editor empty$
815 { publisher new.sentence.checka }
816 { organization publisher new.sentence.checkb
817 organization output
818 }
819 if$
820 publisher output
821 format.date "year" output.check
822 }
823 { address output.nonnull
824 format.date "year" output.check
825 new.sentence
826 editor empty$
827 'skip$
828 { organization output }
829 if$
830 publisher output
831 }
832 if$
833 eprint output
834 new.block
835 note output
836 %format.SLACcitation output
837 fin.entry
838 }
839 FUNCTION {techreport}
840 { output.bibitem
841 collaboration output
842 format.authors "author" output.check
843 new.block
844 format.inst.tr.num.date output.nonnull
845 eprint output
846 new.block
847 note output
848 fin.entry
849 }
850 FUNCTION {unpublished}
851 { output.bibitem
852 collaboration output
853 format.authors "author" output.check
854 new.block
855 format.title "title" output.check
856 new.block
857 note "note" output.check
858 format.date output
859 %format.SLACcitation output
860 fin.entry
861 }
862 FUNCTION {default.type} { misc }
863 MACRO {jan} {"Jan."}
864 MACRO {feb} {"Feb."}
865 MACRO {mar} {"Mar."}
866 MACRO {apr} {"Apr."}
867 MACRO {may} {"May"}
868 MACRO {jun} {"June"}
869 MACRO {jul} {"July"}
870 MACRO {aug} {"Aug."}
871 MACRO {sep} {"Sept."}
872 MACRO {oct} {"Oct."}
873 MACRO {nov} {"Nov."}
874 MACRO {dec} {"Dec."}
875 MACRO {acmcs} {"ACM Comput. Surv."}
876 MACRO {acta} {"Acta Inf."}
877 MACRO {cacm} {"Commun. ACM"}
878 MACRO {ibmjrd} {"IBM J. Res. Dev."}
879 MACRO {ibmsj} {"IBM Syst.~J."}
880 MACRO {ieeese} {"IEEE Trans. Softw. Eng."}
881 MACRO {ieeetc} {"IEEE Trans. Comput."}
882 MACRO {ieeetcad}
883 {"IEEE Trans. Comput.-Aided Design Integrated Circuits"}
884 MACRO {ipl} {"Inf. Process. Lett."}
885 MACRO {jacm} {"J.~ACM"}
886 MACRO {jcss} {"J.~Comput. Syst. Sci."}
887 MACRO {scp} {"Sci. Comput. Programming"}
888 MACRO {sicomp} {"SIAM J. Comput."}
889 MACRO {tocs} {"ACM Trans. Comput. Syst."}
890 MACRO {tods} {"ACM Trans. Database Syst."}
891 MACRO {tog} {"ACM Trans. Gr."}
892 MACRO {toms} {"ACM Trans. Math. Softw."}
893 MACRO {toois} {"ACM Trans. Office Inf. Syst."}
894 MACRO {toplas} {"ACM Trans. Prog. Lang. Syst."}
895 MACRO {tcs} {"Theoretical Comput. Sci."}
896 MACRO {advp} {"Adv. Phys."}
897 MACRO {ajp} {"Am. J. Phys."}
898 MACRO {ao} {"Appl. Opt."}
899 MACRO {apj} {"Astrophys. J."}
900 MACRO {apl} {"Appl. Phys. Lett."}
901 MACRO {arnps} {"Ann. Rev. Nucl. Sci."}
902 MACRO {arns} {"Ann. Rev. Nucl. Part. Sci."}
903 MACRO {baps} {"Bull. Am. Phys. Soc."}
904 MACRO {cpc} {"Computer Phys. Comm."}
905 MACRO {cppcf} {"Comments Plasma Phys. Controlled Fusion"}
906 MACRO {fed} {"Fusion Eng. Design"}
907 MACRO {ft} {"Fusion Tech."}
908 MACRO {ieeens} {"IEEE Trans. Nucl. Sci."}
909 MACRO {ieeeps} {"IEEE Trans. Plasma Sci."}
910 MACRO {ijimw} {"Int. J. Infrared Millimeter Waves"}
911 MACRO {ip} {"Infrared Phys."}
912 MACRO {jap} {"J. Appl. Phys."}
913 MACRO {jcp} {"J. Comput. Phys."}
914 MACRO {jetp} {"Sov. Phys.-JETP"}
915 MACRO {jfe} {"J. Fusion Energy"}
916 MACRO {jfm} {"J. Fluid Mech."}
917 MACRO {jgr} {"J. Geophys. Res."}
918 MACRO {jmp} {"J. Math. Phys."}
919 MACRO {jne} {"J. Nucl. Energy"}
920 MACRO {jnm} {"J. Nucl. Mater."}
921 MACRO {josa} {"J. Opt. Soc. Am."}
922 MACRO {jpg} {"J. Phys.~G: Nucl. and Part. Phys."}
923 MACRO {jphys} {"J. Phys"}
924 MACRO {jpp} {"J. Plasma Phys."}
925 MACRO {jpsj} {"J. Phys. Soc. Jpn"}
926 MACRO {jvst} {"J. Vac. Sci. Technol."}
927 MACRO {modphyslettA} {"Mod. Phys. Lett. A"}
928 MACRO {nedf} {"Nucl. Eng. Design/Fusion"}
929 MACRO {nf} {"Nucl. Fusion"}
930 MACRO {nim} {"Nucl. Instrum. Methods"}
931 MACRO {np} {"Nucl. Phys."}
932 MACRO {npb} {"Nucl. Phys.~B"}
933 MACRO {npbps} {"Nucl. Phys. B (Proc. Suppl.)"}
934 MACRO {nt/f} {"Nucl. Tech./Fusion"}
935 MACRO {pf} {"Phys. Fluids"}
936 MACRO {pl} {"Phys. Lett."}
937 MACRO {plb} {"Phys. Lett.~B"}
938 MACRO {pnas} {"Proc. Nat. Acad. Sci. USA"}
939 MACRO {pp} {"Plasma Phys."}
940 MACRO {physrep} {"Phys. Rep."}
941 MACRO {physrev} {"Phys. Rev."}
942 MACRO {pr} {"Phys. Rev."}
943 MACRO {prd} {"Phys. Rev.~D"}
944 MACRO {prl} {"Phys. Rev. Lett."}
945 MACRO {procroysoc} {"Proc. Roy. Soc"}
946 MACRO {ps} {"Physica Scripta"}
947 MACRO {rmp} {"Rev. Mod. Phys."}
948 MACRO {rsi} {"Rev. Sci. Instrum."}
949 MACRO {sjnp} {"Sov. J. Nucl. Phys."}
950 MACRO {sjpp} {"Sov. J. Plasma Phys."}
951 MACRO {spd} {"Sov. Phys.-Dokl."}
952 MACRO {sptp} {"Sov. Phys.-Tech. Phys."}
953 MACRO {spu} {"Sov. Phys.-Usp."}
954 MACRO {zp} {"Z. Phys."}
955 MACRO {zpc} {"Z. Phys.~C"}
956 READ
957 STRINGS { longest.label }
958 INTEGERS { number.label longest.label.width }
959 FUNCTION {initialize.longest.label}
960 { "" 'longest.label :=
961 #1 'number.label :=
962 #0 'longest.label.width :=
963 }
964 FUNCTION {longest.label.pass}
965 { number.label int.to.str$ 'label :=
966 number.label #1 + 'number.label :=
967 label width$ longest.label.width >
968 { label 'longest.label :=
969 label width$ 'longest.label.width :=
970 }
971 'skip$
972 if$
973 }
974 EXECUTE {initialize.longest.label}
975 ITERATE {longest.label.pass}
976 FUNCTION {begin.bib}
977 { preamble$ empty$
978 'skip$
979 { preamble$ write$ newline$ }
980 if$
981 "\begin{thebibliography}{"  longest.label  * "}" * write$ newline$
982 }
983 EXECUTE {begin.bib}
984 EXECUTE {init.state.consts}
985 ITERATE {call.type$}
986 FUNCTION {end.bib}
987 { newline$
988 "\end{thebibliography}" write$ newline$
989 }
990 EXECUTE {end.bib}