styles/spmpsci.bst

   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