Mercurial > ift6266

comparison writeup/mlj_submission/spmpsci.bst @ 592:0cf2c4f9ed79

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
added springer latex stuff
author fsavard
date Thu, 30 Sep 2010 18:00:37 -0400
parents
children
comparison
equal deleted inserted replaced
591:8bd4ff0c5c05 592:0cf2c4f9ed79
1 %%
2 %% This is file `spmpsci.bst',
3 %% generated with the docstrip utility.
4 %%
5 %% The original source files were:
6 %%
7 %% merlin.mbs (with options: `vonx,nm-rvv,yr-par,xmth,jttl-rm,thtit-a,vol-bf,volp-com,pgsep-c,num-xser,ser-vol,ser-ed,jnm-x,btit-rm,bt-rm,doi,edparxc,au-col,in-col,fin-bare,pp,ed,abr,xedn,jabr,xand,url,url-blk,nfss,')
8 %% ----------------------------------------
9 %%********************************************************************************%%
10 %% %%
11 %% For Springer mathematics, computer science, and physical sciences journals %%
12 %% publications. %%
13 %% Report bugs and improvements to: Joylene Vette-Guillaume or Frank Holzwarth %%
14 %% Springer-Verlag 2004/10/15 %%
15 %% %%
16 %%********************************************************************************%%
17 %%
18 %% Copyright 1994-2004 Patrick W Daly
19 % ===============================================================
20 % IMPORTANT NOTICE:
21 % This bibliographic style (bst) file has been generated from one or
22 % more master bibliographic style (mbs) files, listed above.
23 %
24 % This generated file can be redistributed and/or modified under the terms
25 % of the LaTeX Project Public License Distributed from CTAN
26 % archives in directory macros/latex/base/lppl.txt; either
27 % version 1 of the License, or any later version.
28 % ===============================================================
29 % Name and version information of the main mbs file:
30 % \ProvidesFile{merlin.mbs}[2004/02/09 4.13 (PWD, AO, DPC)]
31 % For use with BibTeX version 0.99a or later
32 %-------------------------------------------------------------------
33 % This bibliography style file is intended for texts in ENGLISH
34 % This is a numerical citation style, and as such is standard LaTeX.
35 % It requires no extra package to interface to the main text.
36 % The form of the \bibitem entries is
37 % \bibitem{key}...
38 % Usage of \cite is as follows:
39 % \cite{key} ==>> [#]
40 % \cite[chap. 2]{key} ==>> [#, chap. 2]
41 % where # is a number determined by the ordering in the reference list.
42 % The order in the reference list is alphabetical by authors.
43 %---------------------------------------------------------------------
44
45 ENTRY
46 { address
47 author
48 booktitle
49 chapter
50 doi
51 edition
52 editor
53 eid
54 howpublished
55 institution
56 journal
57 key
58 month
59 note
60 number
61 organization
62 pages
63 publisher
64 school
65 series
66 title
67 type
68 url
69 volume
70 year
71 }
72 {}
73 { label }
74 INTEGERS { output.state before.all mid.sentence after.sentence after.block }
75 FUNCTION {init.state.consts}
76 { #0 'before.all :=
77 #1 'mid.sentence :=
78 #2 'after.sentence :=
79 #3 'after.block :=
80 }
81 STRINGS { s t}
82 FUNCTION {output.nonnull}
83 { 's :=
84 output.state mid.sentence =
85 { ", " * write$ }
86 { output.state after.block =
87 { add.period$ write$
88 newline$
89 "\newblock " write$
90 }
91 { output.state before.all =
92 'write$
93 { add.period$ " " * write$ }
94 if$
95 }
96 if$
97 mid.sentence 'output.state :=
98 }
99 if$
100 s
101 }
102 FUNCTION {output}
103 { duplicate$ empty$
104 'pop$
105 'output.nonnull
106 if$
107 }
108 FUNCTION {output.check}
109 { 't :=
110 duplicate$ empty$
111 { pop$ "empty " t * " in " * cite$ * warning$ }
112 'output.nonnull
113 if$
114 }
115 FUNCTION {fin.entry}
116 { duplicate$ empty$
117 'pop$
118 'write$
119 if$
120 newline$
121 }
122
123 FUNCTION {new.block}
124 { output.state before.all =
125 'skip$
126 { after.block 'output.state := }
127 if$
128 }
129 FUNCTION {new.sentence}
130 { output.state after.block =
131 'skip$
132 { output.state before.all =
133 'skip$
134 { after.sentence 'output.state := }
135 if$
136 }
137 if$
138 }
139 FUNCTION {add.blank}
140 { " " * before.all 'output.state :=
141 }
142
143 FUNCTION {add.colon}
144 { duplicate$ empty$
145 'skip$
146 { ":" * add.blank }
147 if$
148 }
149
150 FUNCTION {date.block}
151 {
152 new.block
153 }
154
155 FUNCTION {not}
156 { { #0 }
157 { #1 }
158 if$
159 }
160 FUNCTION {and}
161 { 'skip$
162 { pop$ #0 }
163 if$
164 }
165 FUNCTION {or}
166 { { pop$ #1 }
167 'skip$
168 if$
169 }
170 FUNCTION {new.block.checka}
171 { empty$
172 'skip$
173 'new.block
174 if$
175 }
176 FUNCTION {new.block.checkb}
177 { empty$
178 swap$ empty$
179 and
180 'skip$
181 'new.block
182 if$
183 }
184 FUNCTION {new.sentence.checka}
185 { empty$
186 'skip$
187 'new.sentence
188 if$
189 }
190 FUNCTION {new.sentence.checkb}
191 { empty$
192 swap$ empty$
193 and
194 'skip$
195 'new.sentence
196 if$
197 }
198 FUNCTION {field.or.null}
199 { duplicate$ empty$
200 { pop$ "" }
201 'skip$
202 if$
203 }
204 FUNCTION {emphasize}
205 { duplicate$ empty$
206 { pop$ "" }
207 { "\emph{" swap$ * "}" * }
208 if$
209 }
210 FUNCTION {bolden}
211 { duplicate$ empty$
212 { pop$ "" }
213 { "\textbf{" swap$ * "}" * }
214 if$
215 }
216 FUNCTION {tie.or.space.prefix}
217 { duplicate$ text.length$ #3 <
218 { "~" }
219 { " " }
220 if$
221 swap$
222 }
223
224 FUNCTION {capitalize}
225 { "u" change.case$ "t" change.case$ }
226
227 FUNCTION {space.word}
228 { " " swap$ * " " * }
229 % Here are the language-specific definitions for explicit words.
230 % Each function has a name bbl.xxx where xxx is the English word.
231 % The language selected here is ENGLISH
232 FUNCTION {bbl.and}
233 { "and"}
234
235 FUNCTION {bbl.etal}
236 { "et~al." }
237
238 FUNCTION {bbl.editors}
239 { "eds." }
240
241 FUNCTION {bbl.editor}
242 { "ed." }
243
244 FUNCTION {bbl.edby}
245 { "edited by" }
246
247 FUNCTION {bbl.edition}
248 { "edn." }
249
250 FUNCTION {bbl.volume}
251 { "vol." }
252
253 FUNCTION {bbl.of}
254 { "of" }
255
256 FUNCTION {bbl.number}
257 { "no." }
258
259 FUNCTION {bbl.nr}
260 { "no." }
261
262 FUNCTION {bbl.in}
263 { "in" }
264
265 FUNCTION {bbl.pages}
266 { "pp." }
267
268 FUNCTION {bbl.page}
269 { "p." }
270
271 FUNCTION {bbl.chapter}
272 { "chap." }
273
274 FUNCTION {bbl.techrep}
275 { "Tech. Rep." }
276
277 FUNCTION {bbl.mthesis}
278 { "Master's thesis" }
279
280 FUNCTION {bbl.phdthesis}
281 { "Ph.D. thesis" }
282
283 MACRO {jan} {"Jan."}
284
285 MACRO {feb} {"Feb."}
286
287 MACRO {mar} {"Mar."}
288
289 MACRO {apr} {"Apr."}
290
291 MACRO {may} {"May"}
292
293 MACRO {jun} {"Jun."}
294
295 MACRO {jul} {"Jul."}
296
297 MACRO {aug} {"Aug."}
298
299 MACRO {sep} {"Sep."}
300
301 MACRO {oct} {"Oct."}
302
303 MACRO {nov} {"Nov."}
304
305 MACRO {dec} {"Dec."}
306
307 MACRO {acmcs} {"ACM Comput. Surv."}
308
309 MACRO {acta} {"Acta Inf."}
310
311 MACRO {cacm} {"Commun. ACM"}
312
313 MACRO {ibmjrd} {"IBM J. Res. Dev."}
314
315 MACRO {ibmsj} {"IBM Syst.~J."}
316
317 MACRO {ieeese} {"IEEE Trans. Software Eng."}
318
319 MACRO {ieeetc} {"IEEE Trans. Comput."}
320
321 MACRO {ieeetcad}
322 {"IEEE Trans. Comput. Aid. Des."}
323
324 MACRO {ipl} {"Inf. Process. Lett."}
325
326 MACRO {jacm} {"J.~ACM"}
327
328 MACRO {jcss} {"J.~Comput. Syst. Sci."}
329
330 MACRO {scp} {"Sci. Comput. Program."}
331
332 MACRO {sicomp} {"SIAM J. Comput."}
333
334 MACRO {tocs} {"ACM Trans. Comput. Syst."}
335
336 MACRO {tods} {"ACM Trans. Database Syst."}
337
338 MACRO {tog} {"ACM Trans. Graphic."}
339
340 MACRO {toms} {"ACM Trans. Math. Software"}
341
342 MACRO {toois} {"ACM Trans. Office Inf. Syst."}
343
344 MACRO {toplas} {"ACM Trans. Progr. Lang. Syst."}
345
346 MACRO {tcs} {"Theor. Comput. Sci."}
347
348 FUNCTION {bibinfo.check}
349 { swap$
350 duplicate$ missing$
351 {
352 pop$ pop$
353 ""
354 }
355 { duplicate$ empty$
356 {
357 swap$ pop$
358 }
359 { swap$
360 pop$
361 }
362 if$
363 }
364 if$
365 }
366 FUNCTION {bibinfo.warn}
367 { swap$
368 duplicate$ missing$
369 {
370 swap$ "missing " swap$ * " in " * cite$ * warning$ pop$
371 ""
372 }
373 { duplicate$ empty$
374 {
375 swap$ "empty " swap$ * " in " * cite$ * warning$
376 }
377 { swap$
378 pop$
379 }
380 if$
381 }
382 if$
383 }
384 FUNCTION {format.url}
385 { url empty$
386 { "" }
387 { "\urlprefix\url{" url * "}" * }
388 if$
389 }
390
391 STRINGS { bibinfo}
392 INTEGERS { nameptr namesleft numnames }
393
394 FUNCTION {format.names}
395 { 'bibinfo :=
396 duplicate$ empty$ 'skip$ {
397 's :=
398 "" 't :=
399 #1 'nameptr :=
400 s num.names$ 'numnames :=
401 numnames 'namesleft :=
402 { namesleft #0 > }
403 { s nameptr
404 "{vv~}{ll}{ jj}{, f{.}.}"
405 format.name$
406 bibinfo bibinfo.check
407 't :=
408 nameptr #1 >
409 {
410 namesleft #1 >
411 { ", " * t * }
412 {
413 "," *
414 s nameptr "{ll}" format.name$ duplicate$ "others" =
415 { 't := }
416 { pop$ }
417 if$
418 t "others" =
419 {
420 " " * bbl.etal *
421 }
422 { " " * t * }
423 if$
424 }
425 if$
426 }
427 't
428 if$
429 nameptr #1 + 'nameptr :=
430 namesleft #1 - 'namesleft :=
431 }
432 while$
433 } if$
434 }
435 FUNCTION {format.names.ed}
436 {
437 'bibinfo :=
438 duplicate$ empty$ 'skip$ {
439 's :=
440 "" 't :=
441 #1 'nameptr :=
442 s num.names$ 'numnames :=
443 numnames 'namesleft :=
444 { namesleft #0 > }
445 { s nameptr
446 "{f{.}.~}{vv~}{ll}{ jj}"
447 format.name$
448 bibinfo bibinfo.check
449 't :=
450 nameptr #1 >
451 {
452 namesleft #1 >
453 { ", " * t * }
454 {
455 "," *
456 s nameptr "{ll}" format.name$ duplicate$ "others" =
457 { 't := }
458 { pop$ }
459 if$
460 t "others" =
461 {
462
463 " " * bbl.etal *
464 }
465 { " " * t * }
466 if$
467 }
468 if$
469 }
470 't
471 if$
472 nameptr #1 + 'nameptr :=
473 namesleft #1 - 'namesleft :=
474 }
475 while$
476 } if$
477 }
478 FUNCTION {format.authors}
479 { author "author" format.names
480 }
481 FUNCTION {get.bbl.editor}
482 { editor num.names$ #1 > 'bbl.editors 'bbl.editor if$ }
483
484 FUNCTION {format.editors}
485 { editor "editor" format.names duplicate$ empty$ 'skip$
486 {
487 " " *
488 get.bbl.editor
489 "(" swap$ * ")" *
490 *
491 }
492 if$
493 }
494 FUNCTION {format.doi}
495 { doi "doi" bibinfo.check
496 duplicate$ empty$ 'skip$
497 {
498 new.block
499 "\doi{" swap$ * "}" *
500 }
501 if$
502 }
503 FUNCTION {format.note}
504 {
505 note empty$
506 { "" }
507 { note #1 #1 substring$
508 duplicate$ "{" =
509 'skip$
510 { output.state mid.sentence =
511 { "l" }
512 { "u" }
513 if$
514 change.case$
515 }
516 if$
517 note #2 global.max$ substring$ * "note" bibinfo.check
518 }
519 if$
520 }
521
522 FUNCTION {format.title}
523 { title
524 duplicate$ empty$ 'skip$
525 { "t" change.case$ }
526 if$
527 "title" bibinfo.check
528 }
529 FUNCTION {output.bibitem}
530 { newline$
531 "\bibitem{" write$
532 cite$ write$
533 "}" write$
534 newline$
535 ""
536 before.all 'output.state :=
537 }
538
539 FUNCTION {if.digit}
540 { duplicate$ "0" =
541 swap$ duplicate$ "1" =
542 swap$ duplicate$ "2" =
543 swap$ duplicate$ "3" =
544 swap$ duplicate$ "4" =
545 swap$ duplicate$ "5" =
546 swap$ duplicate$ "6" =
547 swap$ duplicate$ "7" =
548 swap$ duplicate$ "8" =
549 swap$ "9" = or or or or or or or or or
550 }
551 FUNCTION {n.separate}
552 { 't :=
553 ""
554 #0 'numnames :=
555 { t empty$ not }
556 { t #-1 #1 substring$ if.digit
557 { numnames #1 + 'numnames := }
558 { #0 'numnames := }
559 if$
560 t #-1 #1 substring$ swap$ *
561 t #-2 global.max$ substring$ 't :=
562 numnames #5 =
563 { duplicate$ #1 #2 substring$ swap$
564 #3 global.max$ substring$
565 "," swap$ * *
566 }
567 'skip$
568 if$
569 }
570 while$
571 }
572 FUNCTION {n.dashify}
573 {
574 n.separate
575 't :=
576 ""
577 { t empty$ not }
578 { t #1 #1 substring$ "-" =
579 { t #1 #2 substring$ "--" = not
580 { "--" *
581 t #2 global.max$ substring$ 't :=
582 }
583 { { t #1 #1 substring$ "-" = }
584 { "-" *
585 t #2 global.max$ substring$ 't :=
586 }
587 while$
588 }
589 if$
590 }
591 { t #1 #1 substring$ *
592 t #2 global.max$ substring$ 't :=
593 }
594 if$
595 }
596 while$
597 }
598
599 FUNCTION {word.in}
600 { bbl.in capitalize
601 ":" *
602 " " * }
603
604 FUNCTION {format.date}
605 {
606 ""
607 duplicate$ empty$
608 year "year" bibinfo.check duplicate$ empty$
609 { swap$ 'skip$
610 { "there's a month but no year in " cite$ * warning$ }
611 if$
612 *
613 }
614 { swap$ 'skip$
615 {
616 swap$
617 " " * swap$
618 }
619 if$
620 *
621 }
622 if$
623 duplicate$ empty$
624 'skip$
625 {
626 before.all 'output.state :=
627 " (" swap$ * ")" *
628 }
629 if$
630 }
631 FUNCTION {format.btitle}
632 { title "title" bibinfo.check
633 duplicate$ empty$ 'skip$
634 {
635 }
636 if$
637 }
638 FUNCTION {either.or.check}
639 { empty$
640 'pop$
641 { "can't use both " swap$ * " fields in " * cite$ * warning$ }
642 if$
643 }
644 FUNCTION {format.bvolume}
645 { volume empty$
646 { "" }
647 { bbl.volume volume tie.or.space.prefix
648 "volume" bibinfo.check * *
649 series "series" bibinfo.check
650 duplicate$ empty$ 'pop$
651 { emphasize ", " * swap$ * }
652 if$
653 "volume and number" number either.or.check
654 }
655 if$
656 }
657 FUNCTION {format.number.series}
658 { volume empty$
659 { number empty$
660 { series field.or.null }
661 { series empty$
662 { number "number" bibinfo.check }
663 { output.state mid.sentence =
664 { bbl.number }
665 { bbl.number capitalize }
666 if$
667 number tie.or.space.prefix "number" bibinfo.check * *
668 bbl.in space.word *
669 series "series" bibinfo.check *
670 }
671 if$
672 }
673 if$
674 }
675 { "" }
676 if$
677 }
678
679 FUNCTION {format.edition}
680 { edition duplicate$ empty$ 'skip$
681 {
682 output.state mid.sentence =
683 { "l" }
684 { "t" }
685 if$ change.case$
686 "edition" bibinfo.check
687 " " * bbl.edition *
688 }
689 if$
690 }
691 INTEGERS { multiresult }
692 FUNCTION {multi.page.check}
693 { 't :=
694 #0 'multiresult :=
695 { multiresult not
696 t empty$ not
697 and
698 }
699 { t #1 #1 substring$
700 duplicate$ "-" =
701 swap$ duplicate$ "," =
702 swap$ "+" =
703 or or
704 { #1 'multiresult := }
705 { t #2 global.max$ substring$ 't := }
706 if$
707 }
708 while$
709 multiresult
710 }
711 FUNCTION {format.pages}
712 { pages duplicate$ empty$ 'skip$
713 { duplicate$ multi.page.check
714 {
715 bbl.pages swap$
716 n.dashify
717 }
718 {
719 bbl.page swap$
720 }
721 if$
722 tie.or.space.prefix
723 "pages" bibinfo.check
724 * *
725 }
726 if$
727 }
728 FUNCTION {format.journal.pages}
729 { pages duplicate$ empty$ 'pop$
730 { swap$ duplicate$ empty$
731 { pop$ pop$ format.pages }
732 {
733 ", " *
734 swap$
735 n.dashify
736 "pages" bibinfo.check
737 *
738 }
739 if$
740 }
741 if$
742 }
743 FUNCTION {format.journal.eid}
744 { eid "eid" bibinfo.check
745 duplicate$ empty$ 'pop$
746 { swap$ duplicate$ empty$ 'skip$
747 {
748 ", " *
749 }
750 if$
751 swap$ *
752 }
753 if$
754 }
755 FUNCTION {format.vol.num.pages}
756 { volume field.or.null
757 duplicate$ empty$ 'skip$
758 {
759 "volume" bibinfo.check
760 }
761 if$
762 bolden
763 number "number" bibinfo.check duplicate$ empty$ 'skip$
764 {
765 swap$ duplicate$ empty$
766 { "there's a number but no volume in " cite$ * warning$ }
767 'skip$
768 if$
769 swap$
770 "(" swap$ * ")" *
771 }
772 if$ *
773 eid empty$
774 { format.journal.pages }
775 { format.journal.eid }
776 if$
777 }
778
779 FUNCTION {format.chapter.pages}
780 { chapter empty$
781 'format.pages
782 { type empty$
783 { bbl.chapter }
784 { type "l" change.case$
785 "type" bibinfo.check
786 }
787 if$
788 chapter tie.or.space.prefix
789 "chapter" bibinfo.check
790 * *
791 pages empty$
792 'skip$
793 { ", " * format.pages * }
794 if$
795 }
796 if$
797 }
798
799 FUNCTION {format.booktitle}
800 {
801 booktitle "booktitle" bibinfo.check
802 }
803 FUNCTION {format.in.ed.booktitle}
804 { format.booktitle duplicate$ empty$ 'skip$
805 {
806 format.bvolume duplicate$ empty$ 'pop$
807 { ", " swap$ * * }
808 if$
809 editor "editor" format.names.ed duplicate$ empty$ 'pop$
810 {
811 " " *
812 get.bbl.editor
813 "(" swap$ * ") " *
814 * swap$
815 * }
816 if$
817 word.in swap$ *
818 }
819 if$
820 }
821 FUNCTION {empty.misc.check}
822 { author empty$ title empty$ howpublished empty$
823 month empty$ year empty$ note empty$
824 and and and and and
825 key empty$ not and
826 { "all relevant fields are empty in " cite$ * warning$ }
827 'skip$
828 if$
829 }
830 FUNCTION {format.thesis.type}
831 { type duplicate$ empty$
832 'pop$
833 { swap$ pop$
834 "t" change.case$ "type" bibinfo.check
835 }
836 if$
837 }
838 FUNCTION {format.tr.number}
839 { number "number" bibinfo.check
840 type duplicate$ empty$
841 { pop$ bbl.techrep }
842 'skip$
843 if$
844 "type" bibinfo.check
845 swap$ duplicate$ empty$
846 { pop$ "t" change.case$ }
847 { tie.or.space.prefix * * }
848 if$
849 }
850 FUNCTION {format.article.crossref}
851 {
852 key duplicate$ empty$
853 { pop$
854 journal duplicate$ empty$
855 { "need key or journal for " cite$ * " to crossref " * crossref * warning$ }
856 { "journal" bibinfo.check emphasize word.in swap$ * }
857 if$
858 }
859 { word.in swap$ * " " *}
860 if$
861 " \cite{" * crossref * "}" *
862 }
863 FUNCTION {format.crossref.editor}
864 { editor #1 "{vv~}{ll}" format.name$
865 "editor" bibinfo.check
866 editor num.names$ duplicate$
867 #2 >
868 { pop$
869 "editor" bibinfo.check
870 " " * bbl.etal
871 *
872 }
873 { #2 <
874 'skip$
875 { editor #2 "{ff }{vv }{ll}{ jj}" format.name$ "others" =
876 {
877 "editor" bibinfo.check
878 " " * bbl.etal
879 *
880 }
881 {
882 bbl.and space.word
883 * editor #2 "{vv~}{ll}" format.name$
884 "editor" bibinfo.check
885 *
886 }
887 if$
888 }
889 if$
890 }
891 if$
892 }
893 FUNCTION {format.book.crossref}
894 { volume duplicate$ empty$
895 { "empty volume in " cite$ * "'s crossref of " * crossref * warning$
896 pop$ word.in
897 }
898 { bbl.volume
899 capitalize
900 swap$ tie.or.space.prefix "volume" bibinfo.check * * bbl.of space.word *
901 }
902 if$
903 editor empty$
904 editor field.or.null author field.or.null =
905 or
906 { key empty$
907 { series empty$
908 { "need editor, key, or series for " cite$ * " to crossref " *
909 crossref * warning$
910 "" *
911 }
912 { series emphasize * }
913 if$
914 }
915 { key * }
916 if$
917 }
918 { format.crossref.editor * }
919 if$
920 " \cite{" * crossref * "}" *
921 }
922 FUNCTION {format.incoll.inproc.crossref}
923 {
924 editor empty$
925 editor field.or.null author field.or.null =
926 or
927 { key empty$
928 { format.booktitle duplicate$ empty$
929 { "need editor, key, or booktitle for " cite$ * " to crossref " *
930 crossref * warning$
931 }
932 { word.in swap$ * }
933 if$
934 }
935 { word.in key * " " *}
936 if$
937 }
938 { word.in format.crossref.editor * " " *}
939 if$
940 " \cite{" * crossref * "}" *
941 }
942 FUNCTION {format.org.or.pub}
943 { 't :=
944 ""
945 address empty$ t empty$ and
946 'skip$
947 {
948 t empty$
949 { address "address" bibinfo.check *
950 }
951 { t *
952 address empty$
953 'skip$
954 { ", " * address "address" bibinfo.check * }
955 if$
956 }
957 if$
958 }
959 if$
960 }
961 FUNCTION {format.publisher.address}
962 { publisher "publisher" bibinfo.warn format.org.or.pub
963 }
964
965 FUNCTION {format.organization.address}
966 { organization "organization" bibinfo.check format.org.or.pub
967 }
968
969 FUNCTION {article}
970 { output.bibitem
971 format.authors "author" output.check
972 add.colon
973 new.block
974 format.title "title" output.check
975 new.block
976 crossref missing$
977 {
978 journal
979 "journal" bibinfo.check
980 "journal" output.check
981 add.blank
982 format.vol.num.pages output
983 format.date "year" output.check
984 }
985 { format.article.crossref output.nonnull
986 format.pages output
987 }
988 if$
989 format.doi output
990 new.block
991 format.url output
992 new.block
993 format.note output
994 fin.entry
995 }
996 FUNCTION {book}
997 { output.bibitem
998 author empty$
999 { format.editors "author and editor" output.check
1000 add.colon
1001 }
1002 { format.authors output.nonnull
1003 add.colon
1004 crossref missing$
1005 { "author and editor" editor either.or.check }
1006 'skip$
1007 if$
1008 }
1009 if$
1010 new.block
1011 format.btitle "title" output.check
1012 crossref missing$
1013 { format.bvolume output
1014 format.edition output
1015 new.block
1016 format.number.series output
1017 new.sentence
1018 format.publisher.address output
1019 }
1020 {
1021 new.block
1022 format.book.crossref output.nonnull
1023 }
1024 if$
1025 format.date "year" output.check
1026 format.doi output
1027 new.block
1028 format.url output
1029 new.block
1030 format.note output
1031 fin.entry
1032 }
1033 FUNCTION {booklet}
1034 { output.bibitem
1035 format.authors output
1036 add.colon
1037 new.block
1038 format.title "title" output.check
1039 new.block
1040 howpublished "howpublished" bibinfo.check output
1041 address "address" bibinfo.check output
1042 format.date output
1043 format.doi output
1044 new.block
1045 format.url output
1046 new.block
1047 format.note output
1048 fin.entry
1049 }
1050
1051 FUNCTION {inbook}
1052 { output.bibitem
1053 author empty$
1054 { format.editors "author and editor" output.check
1055 add.colon
1056 }
1057 { format.authors output.nonnull
1058 add.colon
1059 crossref missing$
1060 { "author and editor" editor either.or.check }
1061 'skip$
1062 if$
1063 }
1064 if$
1065 new.block
1066 format.btitle "title" output.check
1067 crossref missing$
1068 {
1069 format.bvolume output
1070 format.edition output
1071 format.chapter.pages "chapter and pages" output.check
1072 new.block
1073 format.number.series output
1074 new.sentence
1075 format.publisher.address output
1076 }
1077 {
1078 format.chapter.pages "chapter and pages" output.check
1079 new.block
1080 format.book.crossref output.nonnull
1081 }
1082 if$
1083 format.date "year" output.check
1084 format.doi output
1085 new.block
1086 format.url output
1087 new.block
1088 format.note output
1089 fin.entry
1090 }
1091
1092 FUNCTION {incollection}
1093 { output.bibitem
1094 format.authors "author" output.check
1095 add.colon
1096 new.block
1097 format.title "title" output.check
1098 new.block
1099 crossref missing$
1100 { format.in.ed.booktitle "booktitle" output.check
1101 format.number.series output
1102 format.edition output
1103 format.chapter.pages output
1104 new.sentence
1105 format.publisher.address output
1106 format.date "year" output.check
1107 }
1108 { format.incoll.inproc.crossref output.nonnull
1109 format.chapter.pages output
1110 }
1111 if$
1112 format.doi output
1113 new.block
1114 format.url output
1115 new.block
1116 format.note output
1117 fin.entry
1118 }
1119 FUNCTION {inproceedings}
1120 { output.bibitem
1121 format.authors "author" output.check
1122 add.colon
1123 new.block
1124 format.title "title" output.check
1125 new.block
1126 crossref missing$
1127 { format.in.ed.booktitle "booktitle" output.check
1128 format.number.series output
1129 format.pages output
1130 new.sentence
1131 publisher empty$
1132 { format.organization.address output }
1133 { organization "organization" bibinfo.check output
1134 format.publisher.address output
1135 }
1136 if$
1137 format.date "year" output.check
1138 }
1139 { format.incoll.inproc.crossref output.nonnull
1140 format.pages output
1141 }
1142 if$
1143 format.doi output
1144 new.block
1145 format.url output
1146 new.block
1147 format.note output
1148 fin.entry
1149 }
1150 FUNCTION {conference} { inproceedings }
1151 FUNCTION {manual}
1152 { output.bibitem
1153 author empty$
1154 { organization "organization" bibinfo.check
1155 duplicate$ empty$ 'pop$
1156 { output
1157 address "address" bibinfo.check output
1158 }
1159 if$
1160 }
1161 { format.authors output.nonnull }
1162 if$
1163 add.colon
1164 new.block
1165 format.btitle "title" output.check
1166 author empty$
1167 { organization empty$
1168 {
1169 address new.block.checka
1170 address "address" bibinfo.check output
1171 }
1172 'skip$
1173 if$
1174 }
1175 {
1176 organization address new.block.checkb
1177 organization "organization" bibinfo.check output
1178 address "address" bibinfo.check output
1179 }
1180 if$
1181 format.edition output
1182 format.date output
1183 format.doi output
1184 new.block
1185 format.url output
1186 new.block
1187 format.note output
1188 fin.entry
1189 }
1190
1191 FUNCTION {mastersthesis}
1192 { output.bibitem
1193 format.authors "author" output.check
1194 add.colon
1195 new.block
1196 format.title
1197 "title" output.check
1198 new.block
1199 bbl.mthesis format.thesis.type output.nonnull
1200 school "school" bibinfo.warn output
1201 address "address" bibinfo.check output
1202 format.date "year" output.check
1203 format.doi output
1204 new.block
1205 format.url output
1206 new.block
1207 format.note output
1208 fin.entry
1209 }
1210
1211 FUNCTION {misc}
1212 { output.bibitem
1213 format.authors output
1214 add.colon
1215 title howpublished new.block.checkb
1216 format.title output
1217 howpublished new.block.checka
1218 howpublished "howpublished" bibinfo.check output
1219 format.date output
1220 format.doi output
1221 new.block
1222 format.url output
1223 new.block
1224 format.note output
1225 fin.entry
1226 empty.misc.check
1227 }
1228 FUNCTION {phdthesis}
1229 { output.bibitem
1230 format.authors "author" output.check
1231 add.colon
1232 new.block
1233 format.title
1234 "title" output.check
1235 new.block
1236 bbl.phdthesis format.thesis.type output.nonnull
1237 school "school" bibinfo.warn output
1238 address "address" bibinfo.check output
1239 format.date "year" output.check
1240 format.doi output
1241 new.block
1242 format.url output
1243 new.block
1244 format.note output
1245 fin.entry
1246 }
1247
1248 FUNCTION {proceedings}
1249 { output.bibitem
1250 editor empty$
1251 { organization "organization" bibinfo.check output
1252 }
1253 { format.editors output.nonnull }
1254 if$
1255 add.colon
1256 new.block
1257 format.btitle "title" output.check
1258 format.bvolume output
1259 format.number.series output
1260 editor empty$
1261 { publisher empty$
1262 'skip$
1263 {
1264 new.sentence
1265 format.publisher.address output
1266 }
1267 if$
1268 }
1269 { publisher empty$
1270 {
1271 new.sentence
1272 format.organization.address output }
1273 {
1274 new.sentence
1275 organization "organization" bibinfo.check output
1276 format.publisher.address output
1277 }
1278 if$
1279 }
1280 if$
1281 format.date "year" output.check
1282 format.doi output
1283 new.block
1284 format.url output
1285 new.block
1286 format.note output
1287 fin.entry
1288 }
1289
1290 FUNCTION {techreport}
1291 { output.bibitem
1292 format.authors "author" output.check
1293 add.colon
1294 new.block
1295 format.title
1296 "title" output.check
1297 new.block
1298 format.tr.number output.nonnull
1299 institution "institution" bibinfo.warn output
1300 address "address" bibinfo.check output
1301 format.date "year" output.check
1302 format.doi output
1303 new.block
1304 format.url output
1305 new.block
1306 format.note output
1307 fin.entry
1308 }
1309
1310 FUNCTION {unpublished}
1311 { output.bibitem
1312 format.authors "author" output.check
1313 add.colon
1314 new.block
1315 format.title "title" output.check
1316 format.date output
1317 format.doi output
1318 new.block
1319 format.url output
1320 new.block
1321 format.note "note" output.check
1322 fin.entry
1323 }
1324
1325 FUNCTION {default.type} { misc }
1326 READ
1327 FUNCTION {sortify}
1328 { purify$
1329 "l" change.case$
1330 }
1331 INTEGERS { len }
1332 FUNCTION {chop.word}
1333 { 's :=
1334 'len :=
1335 s #1 len substring$ =
1336 { s len #1 + global.max$ substring$ }
1337 's
1338 if$
1339 }
1340 FUNCTION {sort.format.names}
1341 { 's :=
1342 #1 'nameptr :=
1343 ""
1344 s num.names$ 'numnames :=
1345 numnames 'namesleft :=
1346 { namesleft #0 > }
1347 { s nameptr
1348 "{ll{ }}{ f{ }}{ jj{ }}"
1349 format.name$ 't :=
1350 nameptr #1 >
1351 {
1352 " " *
1353 namesleft #1 = t "others" = and
1354 { "zzzzz" * }
1355 { t sortify * }
1356 if$
1357 }
1358 { t sortify * }
1359 if$
1360 nameptr #1 + 'nameptr :=
1361 namesleft #1 - 'namesleft :=
1362 }
1363 while$
1364 }
1365
1366 FUNCTION {sort.format.title}
1367 { 't :=
1368 "A " #2
1369 "An " #3
1370 "The " #4 t chop.word
1371 chop.word
1372 chop.word
1373 sortify
1374 #1 global.max$ substring$
1375 }
1376 FUNCTION {author.sort}
1377 { author empty$
1378 { key empty$
1379 { "to sort, need author or key in " cite$ * warning$
1380 ""
1381 }
1382 { key sortify }
1383 if$
1384 }
1385 { author sort.format.names }
1386 if$
1387 }
1388 FUNCTION {author.editor.sort}
1389 { author empty$
1390 { editor empty$
1391 { key empty$
1392 { "to sort, need author, editor, or key in " cite$ * warning$
1393 ""
1394 }
1395 { key sortify }
1396 if$
1397 }
1398 { editor sort.format.names }
1399 if$
1400 }
1401 { author sort.format.names }
1402 if$
1403 }
1404 FUNCTION {author.organization.sort}
1405 { author empty$
1406 { organization empty$
1407 { key empty$
1408 { "to sort, need author, organization, or key in " cite$ * warning$
1409 ""
1410 }
1411 { key sortify }
1412 if$
1413 }
1414 { "The " #4 organization chop.word sortify }
1415 if$
1416 }
1417 { author sort.format.names }
1418 if$
1419 }
1420 FUNCTION {editor.organization.sort}
1421 { editor empty$
1422 { organization empty$
1423 { key empty$
1424 { "to sort, need editor, organization, or key in " cite$ * warning$
1425 ""
1426 }
1427 { key sortify }
1428 if$
1429 }
1430 { "The " #4 organization chop.word sortify }
1431 if$
1432 }
1433 { editor sort.format.names }
1434 if$
1435 }
1436 FUNCTION {presort}
1437 { type$ "book" =
1438 type$ "inbook" =
1439 or
1440 'author.editor.sort
1441 { type$ "proceedings" =
1442 'editor.organization.sort
1443 { type$ "manual" =
1444 'author.organization.sort
1445 'author.sort
1446 if$
1447 }
1448 if$
1449 }
1450 if$
1451 " "
1452 *
1453 year field.or.null sortify
1454 *
1455 " "
1456 *
1457 title field.or.null
1458 sort.format.title
1459 *
1460 #1 entry.max$ substring$
1461 'sort.key$ :=
1462 }
1463 ITERATE {presort}
1464 SORT
1465 STRINGS { longest.label }
1466 INTEGERS { number.label longest.label.width }
1467 FUNCTION {initialize.longest.label}
1468 { "" 'longest.label :=
1469 #1 'number.label :=
1470 #0 'longest.label.width :=
1471 }
1472 FUNCTION {longest.label.pass}
1473 { number.label int.to.str$ 'label :=
1474 number.label #1 + 'number.label :=
1475 label width$ longest.label.width >
1476 { label 'longest.label :=
1477 label width$ 'longest.label.width :=
1478 }
1479 'skip$
1480 if$
1481 }
1482 EXECUTE {initialize.longest.label}
1483 ITERATE {longest.label.pass}
1484 FUNCTION {begin.bib}
1485 { preamble$ empty$
1486 'skip$
1487 { preamble$ write$ newline$ }
1488 if$
1489 "\begin{thebibliography}{" longest.label * "}" *
1490 write$ newline$
1491 "\providecommand{\url}[1]{{#1}}"
1492 write$ newline$
1493 "\providecommand{\urlprefix}{URL }"
1494 write$ newline$
1495 "\expandafter\ifx\csname urlstyle\endcsname\relax"
1496 write$ newline$
1497 " \providecommand{\doi}[1]{DOI~\discretionary{}{}{}#1}\else"
1498 write$ newline$
1499 " \providecommand{\doi}{DOI~\discretionary{}{}{}\begingroup \urlstyle{rm}\Url}\fi"
1500 write$ newline$
1501 }
1502 EXECUTE {begin.bib}
1503 EXECUTE {init.state.consts}
1504 ITERATE {call.type$}
1505 FUNCTION {end.bib}
1506 { newline$
1507 "\end{thebibliography}" write$ newline$
1508 }
1509 EXECUTE {end.bib}
1510 %% End of customized bst file
1511 %%
1512 %% End of file `spmpsci.bst'.
1513