texmf/bibtex/unsrtdon.bst

   1 % BibTeX standard bibliography style `unsrt'
   2         % version 0.99a for BibTeX versions 0.99a or later, LaTeX version 2.09.
   3         % Copyright (C) 1985, all rights reserved.
   4         % Copying of this file is authorized only if either
   5         % (1) you make absolutely no changes to your copy, including name, or
   6         % (2) if you do make changes, you name it something other than
   7         % btxbst.doc, plain.bst, unsrt.bst, alpha.bst, and abbrv.bst.
   8         % This restriction helps ensure that all standard styles are identical.
   9         % The file btxbst.doc has the documentation for this style.
  10
  11 ENTRY
  12   { address
  13     author
  14     booktitle
  15     chapter
  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
  38 INTEGERS { output.state before.all mid.sentence after.sentence after.block }
  39
  40 FUNCTION {init.state.consts}
  41 { #0 'before.all :=
  42   #1 'mid.sentence :=
  43   #2 'after.sentence :=
  44   #3 'after.block :=
  45 }
  46
  47 STRINGS { s t }
  48
  49 FUNCTION {output.nonnull}
  50 { 's :=
  51   output.state mid.sentence =
  52     { ", " * write$ }
  53     { output.state after.block =
  54         { add.period$ write$
  55           newline$
  56           "\newblock " write$
  57         }
  58         { output.state before.all =
  59             'write$
  60             { add.period$ " " * write$ }
  61           if$
  62         }
  63       if$
  64       mid.sentence 'output.state :=
  65     }
  66   if$
  67   s
  68 }
  69
  70 FUNCTION {output}
  71 { duplicate$ empty$
  72     'pop$
  73     'output.nonnull
  74   if$
  75 }
  76
  77 FUNCTION {output.check}
  78 { 't :=
  79   duplicate$ empty$
  80     { pop$ "empty " t * " in " * cite$ * warning$ }
  81     'output.nonnull
  82   if$
  83 }
  84
  85 FUNCTION {output.bibitem}
  86 { newline$
  87   "\bibitem{" write$
  88   cite$ write$
  89   "}" write$
  90   newline$
  91   ""
  92   before.all 'output.state :=
  93 }
  94
  95 FUNCTION {fin.entry}
  96 { add.period$
  97   write$
  98   newline$
  99 }
 100
 101 FUNCTION {new.block}
 102 { output.state before.all =
 103     'skip$
 104     { after.block 'output.state := }
 105   if$
 106 }
 107
 108 FUNCTION {new.sentence}
 109 { output.state after.block =
 110     'skip$
 111     { output.state before.all =
 112         'skip$
 113         { after.sentence 'output.state := }
 114       if$
 115     }
 116   if$
 117 }
 118
 119 FUNCTION {not}
 120 {   { #0 }
 121     { #1 }
 122   if$
 123 }
 124
 125 FUNCTION {and}
 126 {   'skip$
 127     { pop$ #0 }
 128   if$
 129 }
 130
 131 FUNCTION {or}
 132 {   { pop$ #1 }
 133     'skip$
 134   if$
 135 }
 136
 137 FUNCTION {new.block.checka}
 138 { empty$
 139     'skip$
 140     'new.block
 141   if$
 142 }
 143
 144 FUNCTION {new.block.checkb}
 145 { empty$
 146   swap$ empty$
 147   and
 148     'skip$
 149     'new.block
 150   if$
 151 }
 152
 153 FUNCTION {new.sentence.checka}
 154 { empty$
 155     'skip$
 156     'new.sentence
 157   if$
 158 }
 159
 160 FUNCTION {new.sentence.checkb}
 161 { empty$
 162   swap$ empty$
 163   and
 164     'skip$
 165     'new.sentence
 166   if$
 167 }
 168
 169 FUNCTION {field.or.null}
 170 { duplicate$ empty$
 171     { pop$ "" }
 172     'skip$
 173   if$
 174 }
 175
 176 FUNCTION {emphasize}
 177 { duplicate$ empty$
 178     { pop$ "" }
 179     { "{\em " swap$ * "}" * }
 180   if$
 181 }
 182
 183 INTEGERS { nameptr namesleft numnames }
 184
 185 FUNCTION {format.names}
 186 { 's :=
 187   #1 'nameptr :=
 188   s num.names$ 'numnames :=
 189   numnames 'namesleft :=
 190     { namesleft #0 > }
 191     { s nameptr "{ff~}{vv~}{ll}{, jj}" format.name$ 't :=
 192       nameptr #1 >
 193         { namesleft #1 >
 194             { ", " * t * }
 195             { numnames #2 >
 196                 { "," * }
 197                 'skip$
 198               if$
 199               t "others" =
 200                 { " et~al." * }
 201                 { " and " * t * }
 202               if$
 203             }
 204           if$
 205         }
 206         't
 207       if$
 208       nameptr #1 + 'nameptr :=
 209       namesleft #1 - 'namesleft :=
 210     }
 211   while$
 212 }
 213
 214 FUNCTION {format.authors}
 215 { author empty$
 216     { "" }
 217     { author format.names }
 218   if$
 219 }
 220
 221 FUNCTION {format.editors}
 222 { editor empty$
 223     { "" }
 224     { editor format.names
 225       editor num.names$ #1 >
 226         { ", editors" * }
 227         { ", editor" * }
 228       if$
 229     }
 230   if$
 231 }
 232
 233 FUNCTION {format.title}
 234 { title empty$
 235     { "" }
 236     { title }
 237   if$
 238 }
 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
 265 FUNCTION {format.date}
 266 { year empty$
 267     { month empty$
 268         { "" }
 269         { "there's a month but no year in " cite$ * warning$
 270           month
 271         }
 272       if$
 273     }
 274     {
 275         year
 276     }
 277   if$
 278 }
 279
 280 FUNCTION {format.btitle}
 281 { title emphasize
 282 }
 283
 284 FUNCTION {tie.or.space.connect}
 285 { duplicate$ text.length$ #3 <
 286     { "~" }
 287     { " " }
 288   if$
 289   swap$ * *
 290 }
 291
 292 FUNCTION {either.or.check}
 293 { empty$
 294     'pop$
 295     { "can't use both " swap$ * " fields in " * cite$ * warning$ }
 296   if$
 297 }
 298
 299 FUNCTION {format.bvolume}
 300 { volume empty$
 301     { "" }
 302     { "volume" volume tie.or.space.connect
 303       series empty$
 304         'skip$
 305         { " of " * series emphasize * }
 306       if$
 307       "volume and number" number either.or.check
 308     }
 309   if$
 310 }
 311
 312 FUNCTION {format.number.series}
 313 { volume empty$
 314     { number empty$
 315         { series field.or.null }
 316         { output.state mid.sentence =
 317             { "number" }
 318             { "Number" }
 319           if$
 320           number tie.or.space.connect
 321           series empty$
 322             { "there's a number but no series in " cite$ * warning$ }
 323             { " in " * series * }
 324           if$
 325         }
 326       if$
 327     }
 328     { "" }
 329   if$
 330 }
 331
 332 FUNCTION {format.edition}
 333 { edition empty$
 334     { "" }
 335     { output.state mid.sentence =
 336         { edition "l" change.case$ " edition" * }
 337         { edition "t" change.case$ " edition" * }
 338       if$
 339     }
 340   if$
 341 }
 342
 343 INTEGERS { multiresult }
 344
 345 FUNCTION {multi.page.check}
 346 { 't :=
 347   #0 'multiresult :=
 348     { multiresult not
 349       t empty$ not
 350       and
 351     }
 352     { t #1 #1 substring$
 353       duplicate$ "-" =
 354       swap$ duplicate$ "," =
 355       swap$ "+" =
 356       or or
 357         { #1 'multiresult := }
 358         { t #2 global.max$ substring$ 't := }
 359       if$
 360     }
 361   while$
 362   multiresult
 363 }
 364
 365 FUNCTION {format.pages}
 366 { pages empty$
 367     { "" }
 368     { pages multi.page.check
 369         { "pages" pages n.dashify tie.or.space.connect }
 370         { "page" pages tie.or.space.connect }
 371       if$
 372     }
 373   if$
 374 }
 375
 376 FUNCTION {format.vol.num.pages}
 377 { volume field.or.null
 378   number empty$
 379     'skip$
 380     { "(" number * ")" * *
 381       volume empty$
 382         { "there's a number but no volume in " cite$ * warning$ }
 383         'skip$
 384       if$
 385     }
 386   if$
 387   pages empty$
 388     'skip$
 389     { duplicate$ empty$
 390         { pop$ format.pages }
 391         { ":" * pages n.dashify * }
 392       if$
 393     }
 394   if$
 395 }
 396
 397 FUNCTION {format.chapter.pages}
 398 { chapter empty$
 399     'format.pages
 400     { type empty$
 401         { "chapter" }
 402         { type "l" change.case$ }
 403       if$
 404       chapter tie.or.space.connect
 405       pages empty$
 406         'skip$
 407         { ", " * format.pages * }
 408       if$
 409     }
 410   if$
 411 }
 412
 413 FUNCTION {format.in.ed.booktitle}
 414 { booktitle empty$
 415     { "" }
 416     { editor empty$
 417         { "In " booktitle emphasize * }
 418         { "In " format.editors * ", " * booktitle emphasize * }
 419       if$
 420     }
 421   if$
 422 }
 423
 424 FUNCTION {empty.misc.check}
 425 { author empty$ title empty$ howpublished empty$
 426   month empty$ year empty$ note empty$
 427   and and and and and
 428     { "all relevant fields are empty in " cite$ * warning$ }
 429     'skip$
 430   if$
 431 }
 432
 433 FUNCTION {format.thesis.type}
 434 { type empty$
 435     'skip$
 436     { pop$
 437       type "t" change.case$
 438     }
 439   if$
 440 }
 441
 442 FUNCTION {format.tr.number}
 443 { type empty$
 444     { "Technical Report" }
 445     'type
 446   if$
 447   number empty$
 448     { "t" change.case$ }
 449     { number tie.or.space.connect }
 450   if$
 451 }
 452
 453 FUNCTION {format.article.crossref}
 454 { key empty$
 455     { journal empty$
 456         { "need key or journal for " cite$ * " to crossref " * crossref *
 457           warning$
 458           ""
 459         }
 460         { "In {\em " journal * "\/}" * }
 461       if$
 462     }
 463     { "In " key * }
 464   if$
 465   " \cite{" * crossref * "}" *
 466 }
 467
 468 FUNCTION {format.crossref.editor}
 469 { editor #1 "{vv~}{ll}" format.name$
 470   editor num.names$ duplicate$
 471   #2 >
 472     { pop$ " et~al." * }
 473     { #2 <
 474         'skip$
 475         { editor #2 "{ff }{vv }{ll}{ jj}" format.name$ "others" =
 476             { " et~al." * }
 477             { " and " * editor #2 "{vv~}{ll}" format.name$ * }
 478           if$
 479         }
 480       if$
 481     }
 482   if$
 483 }
 484
 485 FUNCTION {format.book.crossref}
 486 { volume empty$
 487     { "empty volume in " cite$ * "'s crossref of " * crossref * warning$
 488       "In "
 489     }
 490     { "Volume" volume tie.or.space.connect
 491       " of " *
 492     }
 493   if$
 494   editor empty$
 495   editor field.or.null author field.or.null =
 496   or
 497     { key empty$
 498         { series empty$
 499             { "need editor, key, or series for " cite$ * " to crossref " *
 500               crossref * warning$
 501               "" *
 502             }
 503             { "{\em " * series * "\/}" * }
 504           if$
 505         }
 506         { key * }
 507       if$
 508     }
 509     { format.crossref.editor * }
 510   if$
 511   " \cite{" * crossref * "}" *
 512 }
 513
 514 FUNCTION {format.incoll.inproc.crossref}
 515 { editor empty$
 516   editor field.or.null author field.or.null =
 517   or
 518     { key empty$
 519         { booktitle empty$
 520             { "need editor, key, or booktitle for " cite$ * " to crossref " *
 521               crossref * warning$
 522               ""
 523             }
 524             { "In {\em " booktitle * "\/}" * }
 525           if$
 526         }
 527         { "In " key * }
 528       if$
 529     }
 530     { "In " format.crossref.editor * }
 531   if$
 532   " \cite{" * crossref * "}" *
 533 }
 534
 535 FUNCTION {article}
 536 { output.bibitem
 537   format.authors "author" output.check
 538   new.block
 539   format.title "title" output.check
 540   new.block
 541   crossref missing$
 542     { journal emphasize "journal" output.check
 543       format.vol.num.pages output
 544       format.date "year" output.check
 545     }
 546     { format.article.crossref output.nonnull
 547       format.pages output
 548     }
 549   if$
 550   new.block
 551   note output
 552   fin.entry
 553 }
 554
 555 FUNCTION {book}
 556 { output.bibitem
 557   author empty$
 558     { format.editors "author and editor" output.check }
 559     { format.authors output.nonnull
 560       crossref missing$
 561         { "author and editor" editor either.or.check }
 562         'skip$
 563       if$
 564     }
 565   if$
 566   new.block
 567   format.btitle "title" output.check
 568   crossref missing$
 569     { format.bvolume output
 570       new.block
 571       format.number.series output
 572       new.sentence
 573       publisher "publisher" output.check
 574       address output
 575     }
 576     { new.block
 577       format.book.crossref output.nonnull
 578     }
 579   if$
 580   format.edition output
 581   format.date "year" output.check
 582   new.block
 583   note output
 584   fin.entry
 585 }
 586
 587 FUNCTION {booklet}
 588 { output.bibitem
 589   format.authors output
 590   new.block
 591   format.title "title" output.check
 592   howpublished address new.block.checkb
 593   howpublished output
 594   address output
 595   format.date output
 596   new.block
 597   note output
 598   fin.entry
 599 }
 600
 601 FUNCTION {inbook}
 602 { output.bibitem
 603   author empty$
 604     { format.editors "author and editor" output.check }
 605     { format.authors output.nonnull
 606       crossref missing$
 607         { "author and editor" editor either.or.check }
 608         'skip$
 609       if$
 610     }
 611   if$
 612   new.block
 613   format.btitle "title" output.check
 614   crossref missing$
 615     { format.bvolume output
 616       format.chapter.pages "chapter and pages" output.check
 617       new.block
 618       format.number.series output
 619       new.sentence
 620       publisher "publisher" output.check
 621       address output
 622     }
 623     { format.chapter.pages "chapter and pages" output.check
 624       new.block
 625       format.book.crossref output.nonnull
 626     }
 627   if$
 628   format.edition output
 629   format.date "year" output.check
 630   new.block
 631   note output
 632   fin.entry
 633 }
 634
 635 FUNCTION {incollection}
 636 { output.bibitem
 637   format.authors "author" output.check
 638   new.block
 639   format.title "title" output.check
 640   new.block
 641   crossref missing$
 642     { format.in.ed.booktitle "booktitle" output.check
 643       format.bvolume output
 644       format.number.series output
 645       format.chapter.pages output
 646       new.sentence
 647       publisher "publisher" output.check
 648       address output
 649       format.edition output
 650       format.date "year" output.check
 651     }
 652     { format.incoll.inproc.crossref output.nonnull
 653       format.chapter.pages output
 654     }
 655   if$
 656   new.block
 657   note output
 658   fin.entry
 659 }
 660
 661 FUNCTION {inproceedings}
 662 { output.bibitem
 663   format.authors "author" output.check
 664   new.block
 665   format.title "title" output.check
 666   new.block
 667   crossref missing$
 668     { format.in.ed.booktitle "booktitle" output.check
 669       format.bvolume output
 670       format.number.series output
 671       format.pages output
 672       address empty$
 673         { organization publisher new.sentence.checkb
 674           organization output
 675           publisher output
 676           format.date "year" output.check
 677         }
 678         { address output.nonnull
 679           format.date "year" output.check
 680           new.sentence
 681           organization output
 682           publisher output
 683         }
 684       if$
 685     }
 686     { format.incoll.inproc.crossref output.nonnull
 687       format.pages output
 688     }
 689   if$
 690   new.block
 691   note output
 692   fin.entry
 693 }
 694
 695 FUNCTION {conference} { inproceedings }
 696
 697 FUNCTION {manual}
 698 { output.bibitem
 699   author empty$
 700     { organization empty$
 701         'skip$
 702         { organization output.nonnull
 703           address output
 704         }
 705       if$
 706     }
 707     { format.authors output.nonnull }
 708   if$
 709   new.block
 710   format.btitle "title" output.check
 711   author empty$
 712     { organization empty$
 713         { address new.block.checka
 714           address output
 715         }
 716         'skip$
 717       if$
 718     }
 719     { organization address new.block.checkb
 720       organization output
 721       address output
 722     }
 723   if$
 724   format.edition output
 725   format.date output
 726   new.block
 727   note output
 728   fin.entry
 729 }
 730
 731 FUNCTION {mastersthesis}
 732 { output.bibitem
 733   format.authors "author" output.check
 734   new.block
 735   format.title "title" output.check
 736   new.block
 737   "Master's thesis" format.thesis.type output.nonnull
 738   school "school" output.check
 739   address output
 740   format.date "year" output.check
 741   new.block
 742   note output
 743   fin.entry
 744 }
 745
 746 FUNCTION {misc}
 747 { output.bibitem
 748   format.authors output
 749   title howpublished new.block.checkb
 750   format.title output
 751   howpublished new.block.checka
 752   howpublished output
 753   format.date output
 754   new.block
 755   note output
 756   fin.entry
 757   empty.misc.check
 758 }
 759
 760 FUNCTION {phdthesis}
 761 { output.bibitem
 762   format.authors "author" output.check
 763   new.block
 764   format.btitle "title" output.check
 765   new.block
 766   "PhD thesis" format.thesis.type output.nonnull
 767   school "school" output.check
 768   address output
 769   format.date "year" output.check
 770   new.block
 771   note output
 772   fin.entry
 773 }
 774
 775 FUNCTION {proceedings}
 776 { output.bibitem
 777   editor empty$
 778     { organization output }
 779     { format.editors output.nonnull }
 780   if$
 781   new.block
 782   format.btitle "title" output.check
 783   format.bvolume output
 784   format.number.series output
 785   address empty$
 786     { editor empty$
 787         { publisher new.sentence.checka }
 788         { organization publisher new.sentence.checkb
 789           organization output
 790         }
 791       if$
 792       publisher output
 793       format.date "year" output.check
 794     }
 795     { address output.nonnull
 796       format.date "year" output.check
 797       new.sentence
 798       editor empty$
 799         'skip$
 800         { organization output }
 801       if$
 802       publisher output
 803     }
 804   if$
 805   new.block
 806   note output
 807   fin.entry
 808 }
 809
 810 FUNCTION {techreport}
 811 { output.bibitem
 812   format.authors "author" output.check
 813   new.block
 814   format.title "title" output.check
 815   new.block
 816   format.tr.number output.nonnull
 817   institution "institution" output.check
 818   address output
 819   format.date "year" output.check
 820   new.block
 821   note output
 822   fin.entry
 823 }
 824
 825 FUNCTION {unpublished}
 826 { output.bibitem
 827   format.authors "author" output.check
 828   new.block
 829   format.title "title" output.check
 830   new.block
 831   note "note" output.check
 832   format.date output
 833   fin.entry
 834 }
 835
 836 FUNCTION {default.type} { misc }
 837
 838 MACRO {jan} {"January"}
 839
 840 MACRO {feb} {"February"}
 841
 842 MACRO {mar} {"March"}
 843
 844 MACRO {apr} {"April"}
 845
 846 MACRO {may} {"May"}
 847
 848 MACRO {jun} {"June"}
 849
 850 MACRO {jul} {"July"}
 851
 852 MACRO {aug} {"August"}
 853
 854 MACRO {sep} {"September"}
 855
 856 MACRO {oct} {"October"}
 857
 858 MACRO {nov} {"November"}
 859
 860 MACRO {dec} {"December"}
 861
 862 MACRO {acmcs} {"ACM Computing Surveys"}
 863
 864 MACRO {acta} {"Acta Informatica"}
 865
 866 MACRO {cacm} {"Communications of the ACM"}
 867
 868 MACRO {ibmjrd} {"IBM Journal of Research and Development"}
 869
 870 MACRO {ibmsj} {"IBM Systems Journal"}
 871
 872 MACRO {ieeese} {"IEEE Transactions on Software Engineering"}
 873
 874 MACRO {ieeetc} {"IEEE Transactions on Computers"}
 875
 876 MACRO {ieeetcad}
 877  {"IEEE Transactions on Computer-Aided Design of Integrated Circuits"}
 878
 879 MACRO {ipl} {"Information Processing Letters"}
 880
 881 MACRO {jacm} {"Journal of the ACM"}
 882
 883 MACRO {jcss} {"Journal of Computer and System Sciences"}
 884
 885 MACRO {scp} {"Science of Computer Programming"}
 886
 887 MACRO {sicomp} {"SIAM Journal on Computing"}
 888
 889 MACRO {tocs} {"ACM Transactions on Computer Systems"}
 890
 891 MACRO {tods} {"ACM Transactions on Database Systems"}
 892
 893 MACRO {tog} {"ACM Transactions on Graphics"}
 894
 895 MACRO {toms} {"ACM Transactions on Mathematical Software"}
 896
 897 MACRO {toois} {"ACM Transactions on Office Information Systems"}
 898
 899 MACRO {toplas} {"ACM Transactions on Programming Languages and Systems"}
 900
 901 MACRO {tcs} {"Theoretical Computer Science"}
 902
 903 READ
 904
 905 STRINGS { longest.label }
 906
 907 INTEGERS { number.label longest.label.width }
 908
 909 FUNCTION {initialize.longest.label}
 910 { "" 'longest.label :=
 911   #1 'number.label :=
 912   #0 'longest.label.width :=
 913 }
 914
 915 FUNCTION {longest.label.pass}
 916 { number.label int.to.str$ 'label :=
 917   number.label #1 + 'number.label :=
 918   label width$ longest.label.width >
 919     { label 'longest.label :=
 920       label width$ 'longest.label.width :=
 921     }
 922     'skip$
 923   if$
 924 }
 925
 926 EXECUTE {initialize.longest.label}
 927
 928 ITERATE {longest.label.pass}
 929
 930 FUNCTION {begin.bib}
 931 { preamble$ empty$
 932     'skip$
 933     { preamble$ write$ newline$ }
 934   if$
 935   "\begin{thebibliography}{"  longest.label  * "}" * write$ newline$
 936 }
 937
 938 EXECUTE {begin.bib}
 939
 940 EXECUTE {init.state.consts}
 941
 942 ITERATE {call.type$}
 943
 944 FUNCTION {end.bib}
 945 { newline$
 946   "\end{thebibliography}" write$ newline$
 947 }
 948
 949 EXECUTE {end.bib}