src/alphalink.bst

   1 % Derived from BibTeX standard bibliography style `alpha'
   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 % Now recognize url field. If present produce a hyperref on the
  12 % bibliography label with a link to url.
  13
  14 ENTRY
  15   { address
  16     author
  17     booktitle
  18     chapter
  19     edition
  20     editor
  21     howpublished
  22     institution
  23     journal
  24     key
  25     month
  26     note
  27     number
  28     organization
  29     pages
  30     publisher
  31     school
  32     series
  33     title
  34     type
  35     url
  36     volume
  37     year
  38   }
  39   {}
  40   { label extra.label sort.label }
  41
  42 INTEGERS { output.state before.all mid.sentence after.sentence after.block }
  43
  44 FUNCTION {init.state.consts}
  45 { #0 'before.all :=
  46   #1 'mid.sentence :=
  47   #2 'after.sentence :=
  48   #3 'after.block :=
  49 }
  50
  51 STRINGS { s t }
  52
  53 FUNCTION {output.nonnull}
  54 { 's :=
  55   output.state mid.sentence =
  56     { ", " * write$ }
  57     { output.state after.block =
  58         { add.period$ write$
  59           newline$
  60           "\newblock " write$
  61         }
  62         { output.state before.all =
  63             'write$
  64             { add.period$ " " * write$ }
  65           if$
  66         }
  67       if$
  68       mid.sentence 'output.state :=
  69     }
  70   if$
  71   s
  72 }
  73 FUNCTION {output}
  74 { duplicate$ empty$
  75     'pop$
  76     'output.nonnull
  77   if$
  78 }
  79
  80 FUNCTION {output.check}
  81 { 't :=
  82   duplicate$ empty$
  83     { pop$ "empty " t * " in " * cite$ * warning$ }
  84     'output.nonnull
  85   if$
  86 }
  87
  88 FUNCTION {output.bibitem}
  89 { newline$
  90   "\bibitem[" write$
  91   url empty$
  92       { label write$ }
  93       { "\xbiblabel{" write$
  94         url write$
  95         "%" write$
  96         newline$
  97         "}{}{}{" write$
  98         label write$
  99         "}" write$
 100       }
 101   if$
 102   "]{" write$
 103   cite$ write$
 104   "}" write$
 105   newline$
 106   ""
 107   before.all 'output.state :=
 108 }
 109
 110 FUNCTION {new.block}
 111 { output.state before.all =
 112     'skip$
 113     { after.block 'output.state := }
 114   if$
 115 }
 116
 117 FUNCTION {output.url}
 118 { url empty$
 119     'skip$
 120     { new.block
 121       "\url{" write$
 122       url write$
 123       "}" write$
 124       newline$
 125     }
 126   if$
 127 }
 128
 129 FUNCTION {fin.entry}
 130 { add.period$
 131   write$
 132   newline$
 133   output.url
 134 }
 135
 136 FUNCTION {new.sentence}
 137 { output.state after.block =
 138     'skip$
 139     { output.state before.all =
 140         'skip$
 141         { after.sentence 'output.state := }
 142       if$
 143     }
 144   if$
 145 }
 146
 147 FUNCTION {not}
 148 {   { #0 }
 149     { #1 }
 150   if$
 151 }
 152
 153 FUNCTION {and}
 154 {   'skip$
 155     { pop$ #0 }
 156   if$
 157 }
 158
 159 FUNCTION {or}
 160 {   { pop$ #1 }
 161     'skip$
 162   if$
 163 }
 164
 165 FUNCTION {new.block.checka}
 166 { empty$
 167     'skip$
 168     'new.block
 169   if$
 170 }
 171
 172 FUNCTION {new.block.checkb}
 173 { empty$
 174   swap$ empty$
 175   and
 176     'skip$
 177     'new.block
 178   if$
 179 }
 180
 181 FUNCTION {new.sentence.checka}
 182 { empty$
 183     'skip$
 184     'new.sentence
 185   if$
 186 }
 187
 188 FUNCTION {new.sentence.checkb}
 189 { empty$
 190   swap$ empty$
 191   and
 192     'skip$
 193     'new.sentence
 194   if$
 195 }
 196
 197 FUNCTION {field.or.null}
 198 { duplicate$ empty$
 199     { pop$ "" }
 200     'skip$
 201   if$
 202 }
 203
 204 FUNCTION {emphasize}
 205 { duplicate$ empty$
 206     { pop$ "" }
 207     { "{\em " swap$ * "}" * }
 208   if$
 209 }
 210
 211 INTEGERS { nameptr namesleft numnames }
 212
 213 FUNCTION {format.names}
 214 { 's :=
 215   #1 'nameptr :=
 216   s num.names$ 'numnames :=
 217   numnames 'namesleft :=
 218     { namesleft #0 > }
 219     { s nameptr "{ff~}{vv~}{ll}{, jj}" format.name$ 't :=
 220       nameptr #1 >
 221         { namesleft #1 >
 222             { ", " * t * }
 223             { numnames #2 >
 224                 { "," * }
 225                 'skip$
 226               if$
 227               t "others" =
 228                 { " et~al." * }
 229                 { " and " * t * }
 230               if$
 231             }
 232           if$
 233         }
 234         't
 235       if$
 236       nameptr #1 + 'nameptr :=
 237       namesleft #1 - 'namesleft :=
 238     }
 239   while$
 240 }
 241
 242 FUNCTION {format.authors}
 243 { author empty$
 244     { "" }
 245     { author format.names }
 246   if$
 247 }
 248
 249 FUNCTION {format.editors}
 250 { editor empty$
 251     { "" }
 252     { editor format.names
 253       editor num.names$ #1 >
 254         { ", editors" * }
 255         { ", editor" * }
 256       if$
 257     }
 258   if$
 259 }
 260
 261 FUNCTION {format.title}
 262 { title empty$
 263     { "" }
 264     { title "t" change.case$ }
 265   if$
 266 }
 267
 268 FUNCTION {n.dashify}
 269 { 't :=
 270   ""
 271     { t empty$ not }
 272     { t #1 #1 substring$ "-" =
 273         { t #1 #2 substring$ "--" = not
 274             { "--" *
 275               t #2 global.max$ substring$ 't :=
 276             }
 277             {   { t #1 #1 substring$ "-" = }
 278                 { "-" *
 279                   t #2 global.max$ substring$ 't :=
 280                 }
 281               while$
 282             }
 283           if$
 284         }
 285         { t #1 #1 substring$ *
 286           t #2 global.max$ substring$ 't :=
 287         }
 288       if$
 289     }
 290   while$
 291 }
 292
 293 FUNCTION {format.date}
 294 { year empty$
 295     { month empty$
 296         { "" }
 297         { "there's a month but no year in " cite$ * warning$
 298           month
 299         }
 300       if$
 301     }
 302     { month empty$
 303         'year
 304         { month " " * year * }
 305       if$
 306     }
 307   if$
 308 }
 309
 310 FUNCTION {format.btitle}
 311 { title emphasize
 312 }
 313
 314 FUNCTION {tie.or.space.connect}
 315 { duplicate$ text.length$ #3 <
 316     { "~" }
 317     { " " }
 318   if$
 319   swap$ * *
 320 }
 321
 322 FUNCTION {either.or.check}
 323 { empty$
 324     'pop$
 325     { "can't use both " swap$ * " fields in " * cite$ * warning$ }
 326   if$
 327 }
 328
 329 FUNCTION {format.bvolume}
 330 { volume empty$
 331     { "" }
 332     { "volume" volume tie.or.space.connect
 333       series empty$
 334         'skip$
 335         { " of " * series emphasize * }
 336       if$
 337       "volume and number" number either.or.check
 338     }
 339   if$
 340 }
 341
 342 FUNCTION {format.number.series}
 343 { volume empty$
 344     { number empty$
 345         { series field.or.null }
 346         { output.state mid.sentence =
 347             { "number" }
 348             { "Number" }
 349           if$
 350           number tie.or.space.connect
 351           series empty$
 352             { "there's a number but no series in " cite$ * warning$ }
 353             { " in " * series * }
 354           if$
 355         }
 356       if$
 357     }
 358     { "" }
 359   if$
 360 }
 361
 362 FUNCTION {format.edition}
 363 { edition empty$
 364     { "" }
 365     { output.state mid.sentence =
 366         { edition "l" change.case$ " edition" * }
 367         { edition "t" change.case$ " edition" * }
 368       if$
 369     }
 370   if$
 371 }
 372
 373 INTEGERS { multiresult }
 374
 375 FUNCTION {multi.page.check}
 376 { 't :=
 377   #0 'multiresult :=
 378     { multiresult not
 379       t empty$ not
 380       and
 381     }
 382     { t #1 #1 substring$
 383       duplicate$ "-" =
 384       swap$ duplicate$ "," =
 385       swap$ "+" =
 386       or or
 387         { #1 'multiresult := }
 388         { t #2 global.max$ substring$ 't := }
 389       if$
 390     }
 391   while$
 392   multiresult
 393 }
 394
 395 FUNCTION {format.pages}
 396 { pages empty$
 397     { "" }
 398     { pages multi.page.check
 399         { "pages" pages n.dashify tie.or.space.connect }
 400         { "page" pages tie.or.space.connect }
 401       if$
 402     }
 403   if$
 404 }
 405
 406 FUNCTION {format.vol.num.pages}
 407 { volume field.or.null
 408   number empty$
 409     'skip$
 410     { "(" number * ")" * *
 411       volume empty$
 412         { "there's a number but no volume in " cite$ * warning$ }
 413         'skip$
 414       if$
 415     }
 416   if$
 417   pages empty$
 418     'skip$
 419     { duplicate$ empty$
 420         { pop$ format.pages }
 421         { ":" * pages n.dashify * }
 422       if$
 423     }
 424   if$
 425 }
 426
 427 FUNCTION {format.chapter.pages}
 428 { chapter empty$
 429     'format.pages
 430     { type empty$
 431         { "chapter" }
 432         { type "l" change.case$ }
 433       if$
 434       chapter tie.or.space.connect
 435       pages empty$
 436         'skip$
 437         { ", " * format.pages * }
 438       if$
 439     }
 440   if$
 441 }
 442
 443 FUNCTION {format.in.ed.booktitle}
 444 { booktitle empty$
 445     { "" }
 446     { editor empty$
 447         { "In " booktitle emphasize * }
 448         { "In " format.editors * ", " * booktitle emphasize * }
 449       if$
 450     }
 451   if$
 452 }
 453
 454 FUNCTION {empty.misc.check}
 455 { author empty$ title empty$ howpublished empty$
 456   month empty$ year empty$ note empty$
 457   and and and and and
 458   key empty$ not and
 459     { "all relevant fields are empty in " cite$ * warning$ }
 460     'skip$
 461   if$
 462 }
 463
 464 FUNCTION {format.thesis.type}
 465 { type empty$
 466     'skip$
 467     { pop$
 468       type "t" change.case$
 469     }
 470   if$
 471 }
 472
 473 FUNCTION {format.tr.number}
 474 { type empty$
 475     { "Technical Report" }
 476     'type
 477   if$
 478   number empty$
 479     { "t" change.case$ }
 480     { number tie.or.space.connect }
 481   if$
 482 }
 483
 484 FUNCTION {format.article.crossref}
 485 { key empty$
 486     { journal empty$
 487         { "need key or journal for " cite$ * " to crossref " * crossref *
 488           warning$
 489           ""
 490         }
 491         { "In {\em " journal * "\/}" * }
 492       if$
 493     }
 494     { "In " key * }
 495   if$
 496   " \cite{" * crossref * "}" *
 497 }
 498
 499 FUNCTION {format.crossref.editor}
 500 { editor #1 "{vv~}{ll}" format.name$
 501   editor num.names$ duplicate$
 502   #2 >
 503     { pop$ " et~al." * }
 504     { #2 <
 505         'skip$
 506         { editor #2 "{ff }{vv }{ll}{ jj}" format.name$ "others" =
 507             { " et~al." * }
 508             { " and " * editor #2 "{vv~}{ll}" format.name$ * }
 509           if$
 510         }
 511       if$
 512     }
 513   if$
 514 }
 515
 516 FUNCTION {format.book.crossref}
 517 { volume empty$
 518     { "empty volume in " cite$ * "'s crossref of " * crossref * warning$
 519       "In "
 520     }
 521     { "Volume" volume tie.or.space.connect
 522       " of " *
 523     }
 524   if$
 525   editor empty$
 526   editor field.or.null author field.or.null =
 527   or
 528     { key empty$
 529         { series empty$
 530             { "need editor, key, or series for " cite$ * " to crossref " *
 531               crossref * warning$
 532               "" *
 533             }
 534             { "{\em " * series * "\/}" * }
 535           if$
 536         }
 537         { key * }
 538       if$
 539     }
 540     { format.crossref.editor * }
 541   if$
 542   " \cite{" * crossref * "}" *
 543 }
 544
 545 FUNCTION {format.incoll.inproc.crossref}
 546 { editor empty$
 547   editor field.or.null author field.or.null =
 548   or
 549     { key empty$
 550         { booktitle empty$
 551             { "need editor, key, or booktitle for " cite$ * " to crossref " *
 552               crossref * warning$
 553               ""
 554             }
 555             { "In {\em " booktitle * "\/}" * }
 556           if$
 557         }
 558         { "In " key * }
 559       if$
 560     }
 561     { "In " format.crossref.editor * }
 562   if$
 563   " \cite{" * crossref * "}" *
 564 }
 565
 566 FUNCTION {article}
 567 { output.bibitem
 568   format.authors "author" output.check
 569   new.block
 570   format.title "title" output.check
 571   new.block
 572   crossref missing$
 573     { journal emphasize "journal" output.check
 574       format.vol.num.pages output
 575       format.date "year" output.check
 576     }
 577     { format.article.crossref output.nonnull
 578       format.pages output
 579     }
 580   if$
 581   new.block
 582   note output
 583   fin.entry
 584 }
 585
 586 FUNCTION {book}
 587 { output.bibitem
 588   author empty$
 589     { format.editors "author and editor" output.check }
 590     { format.authors output.nonnull
 591       crossref missing$
 592         { "author and editor" editor either.or.check }
 593         'skip$
 594       if$
 595     }
 596   if$
 597   new.block
 598   format.btitle "title" output.check
 599   crossref missing$
 600     { format.bvolume output
 601       new.block
 602       format.number.series output
 603       new.sentence
 604       publisher "publisher" output.check
 605       address output
 606     }
 607     { new.block
 608       format.book.crossref output.nonnull
 609     }
 610   if$
 611   format.edition output
 612   format.date "year" output.check
 613   new.block
 614   note output
 615   fin.entry
 616 }
 617
 618 FUNCTION {booklet}
 619 { output.bibitem
 620   format.authors output
 621   new.block
 622   format.title "title" output.check
 623   howpublished address new.block.checkb
 624   howpublished output
 625   address output
 626   format.date output
 627   new.block
 628   note output
 629   fin.entry
 630 }
 631
 632 FUNCTION {inbook}
 633 { output.bibitem
 634   author empty$
 635     { format.editors "author and editor" output.check }
 636     { format.authors output.nonnull
 637       crossref missing$
 638         { "author and editor" editor either.or.check }
 639         'skip$
 640       if$
 641     }
 642   if$
 643   new.block
 644   format.btitle "title" output.check
 645   crossref missing$
 646     { format.bvolume output
 647       format.chapter.pages "chapter and pages" output.check
 648       new.block
 649       format.number.series output
 650       new.sentence
 651       publisher "publisher" output.check
 652       address output
 653     }
 654     { format.chapter.pages "chapter and pages" output.check
 655       new.block
 656       format.book.crossref output.nonnull
 657     }
 658   if$
 659   format.edition output
 660   format.date "year" output.check
 661   new.block
 662   note output
 663   fin.entry
 664 }
 665
 666 FUNCTION {incollection}
 667 { output.bibitem
 668   format.authors "author" output.check
 669   new.block
 670   format.title "title" output.check
 671   new.block
 672   crossref missing$
 673     { format.in.ed.booktitle "booktitle" output.check
 674       format.bvolume output
 675       format.number.series output
 676       format.chapter.pages output
 677       new.sentence
 678       publisher "publisher" output.check
 679       address output
 680       format.edition output
 681       format.date "year" output.check
 682     }
 683     { format.incoll.inproc.crossref output.nonnull
 684       format.chapter.pages output
 685     }
 686   if$
 687   new.block
 688   note output
 689   fin.entry
 690 }
 691
 692 FUNCTION {inproceedings}
 693 { output.bibitem
 694   format.authors "author" output.check
 695   new.block
 696   format.title "title" output.check
 697   new.block
 698   crossref missing$
 699     { format.in.ed.booktitle "booktitle" output.check
 700       format.bvolume output
 701       format.number.series output
 702       format.pages output
 703       address empty$
 704         { organization publisher new.sentence.checkb
 705           organization output
 706           publisher output
 707           format.date "year" output.check
 708         }
 709         { address output.nonnull
 710           format.date "year" output.check
 711           new.sentence
 712           organization output
 713           publisher output
 714         }
 715       if$
 716     }
 717     { format.incoll.inproc.crossref output.nonnull
 718       format.pages output
 719     }
 720   if$
 721   new.block
 722   note output
 723   fin.entry
 724 }
 725
 726 FUNCTION {conference} { inproceedings }
 727
 728 FUNCTION {manual}
 729 { output.bibitem
 730   author empty$
 731     { organization empty$
 732         'skip$
 733         { organization output.nonnull
 734           address output
 735         }
 736       if$
 737     }
 738     { format.authors output.nonnull }
 739   if$
 740   new.block
 741   format.btitle "title" output.check
 742   author empty$
 743     { organization empty$
 744         { address new.block.checka
 745           address output
 746         }
 747         'skip$
 748       if$
 749     }
 750     { organization address new.block.checkb
 751       organization output
 752       address output
 753     }
 754   if$
 755   format.edition output
 756   format.date output
 757   new.block
 758   note output
 759   fin.entry
 760 }
 761
 762 FUNCTION {mastersthesis}
 763 { output.bibitem
 764   format.authors "author" output.check
 765   new.block
 766   format.title "title" output.check
 767   new.block
 768   "Master's thesis" format.thesis.type output.nonnull
 769   school "school" output.check
 770   address output
 771   format.date "year" output.check
 772   new.block
 773   note output
 774   fin.entry
 775 }
 776
 777 FUNCTION {misc}
 778 { output.bibitem
 779   format.authors output
 780   title howpublished new.block.checkb
 781   format.title output
 782   howpublished new.block.checka
 783   howpublished output
 784   format.date output
 785   new.block
 786   note output
 787   fin.entry
 788   empty.misc.check
 789 }
 790
 791 FUNCTION {phdthesis}
 792 { output.bibitem
 793   format.authors "author" output.check
 794   new.block
 795   format.btitle "title" output.check
 796   new.block
 797   "PhD thesis" format.thesis.type output.nonnull
 798   school "school" output.check
 799   address output
 800   format.date "year" output.check
 801   new.block
 802   note output
 803   fin.entry
 804 }
 805
 806 FUNCTION {proceedings}
 807 { output.bibitem
 808   editor empty$
 809     { organization output }
 810     { format.editors output.nonnull }
 811   if$
 812   new.block
 813   format.btitle "title" output.check
 814   format.bvolume output
 815   format.number.series output
 816   address empty$
 817     { editor empty$
 818         { publisher new.sentence.checka }
 819         { organization publisher new.sentence.checkb
 820           organization output
 821         }
 822       if$
 823       publisher output
 824       format.date "year" output.check
 825     }
 826     { address output.nonnull
 827       format.date "year" output.check
 828       new.sentence
 829       editor empty$
 830         'skip$
 831         { organization output }
 832       if$
 833       publisher output
 834     }
 835   if$
 836   new.block
 837   note output
 838   fin.entry
 839 }
 840
 841 FUNCTION {techreport}
 842 { output.bibitem
 843   format.authors "author" output.check
 844   new.block
 845   format.title "title" output.check
 846   new.block
 847   format.tr.number output.nonnull
 848   institution "institution" output.check
 849   address output
 850   format.date "year" output.check
 851   new.block
 852   note output
 853   fin.entry
 854 }
 855
 856 FUNCTION {unpublished}
 857 { output.bibitem
 858   format.authors "author" output.check
 859   new.block
 860   format.title "title" output.check
 861   new.block
 862   note "note" output.check
 863   format.date output
 864   fin.entry
 865 }
 866
 867 FUNCTION {default.type} { misc }
 868
 869 MACRO {jan} {"January"}
 870
 871 MACRO {feb} {"February"}
 872
 873 MACRO {mar} {"March"}
 874
 875 MACRO {apr} {"April"}
 876
 877 MACRO {may} {"May"}
 878
 879 MACRO {jun} {"June"}
 880
 881 MACRO {jul} {"July"}
 882
 883 MACRO {aug} {"August"}
 884
 885 MACRO {sep} {"September"}
 886
 887 MACRO {oct} {"October"}
 888
 889 MACRO {nov} {"November"}
 890
 891 MACRO {dec} {"December"}
 892
 893 MACRO {acmcs} {"ACM Computing Surveys"}
 894
 895 MACRO {acta} {"Acta Informatica"}
 896
 897 MACRO {cacm} {"Communications of the ACM"}
 898
 899 MACRO {ibmjrd} {"IBM Journal of Research and Development"}
 900
 901 MACRO {ibmsj} {"IBM Systems Journal"}
 902
 903 MACRO {ieeese} {"IEEE Transactions on Software Engineering"}
 904
 905 MACRO {ieeetc} {"IEEE Transactions on Computers"}
 906
 907 MACRO {ieeetcad}
 908  {"IEEE Transactions on Computer-Aided Design of Integrated Circuits"}
 909
 910 MACRO {ipl} {"Information Processing Letters"}
 911
 912 MACRO {jacm} {"Journal of the ACM"}
 913
 914 MACRO {jcss} {"Journal of Computer and System Sciences"}
 915
 916 MACRO {scp} {"Science of Computer Programming"}
 917
 918 MACRO {sicomp} {"SIAM Journal on Computing"}
 919
 920 MACRO {tocs} {"ACM Transactions on Computer Systems"}
 921
 922 MACRO {tods} {"ACM Transactions on Database Systems"}
 923
 924 MACRO {tog} {"ACM Transactions on Graphics"}
 925
 926 MACRO {toms} {"ACM Transactions on Mathematical Software"}
 927
 928 MACRO {toois} {"ACM Transactions on Office Information Systems"}
 929
 930 MACRO {toplas} {"ACM Transactions on Programming Languages and Systems"}
 931
 932 MACRO {tcs} {"Theoretical Computer Science"}
 933
 934 READ
 935
 936 FUNCTION {sortify}
 937 { purify$
 938   "l" change.case$
 939 }
 940
 941 INTEGERS { len }
 942
 943 FUNCTION {chop.word}
 944 { 's :=
 945   'len :=
 946   s #1 len substring$ =
 947     { s len #1 + global.max$ substring$ }
 948     's
 949   if$
 950 }
 951
 952 INTEGERS { et.al.char.used }
 953
 954 FUNCTION {initialize.et.al.char.used}
 955 { #0 'et.al.char.used :=
 956 }
 957
 958 EXECUTE {initialize.et.al.char.used}
 959
 960 FUNCTION {format.lab.names}
 961 { 's :=
 962   s num.names$ 'numnames :=
 963   numnames #1 >
 964     { numnames #4 >
 965         { #3 'namesleft := }
 966         { numnames 'namesleft := }
 967       if$
 968       #1 'nameptr :=
 969       ""
 970         { namesleft #0 > }
 971         { nameptr numnames =
 972             { s nameptr "{ff }{vv }{ll}{ jj}" format.name$ "others" =
 973                 { "{\etalchar{+}}" *
 974                   #1 'et.al.char.used :=
 975                 }
 976                 { s nameptr "{v{}}{l{}}" format.name$ * }
 977               if$
 978             }
 979             { s nameptr "{v{}}{l{}}" format.name$ * }
 980           if$
 981           nameptr #1 + 'nameptr :=
 982           namesleft #1 - 'namesleft :=
 983         }
 984       while$
 985       numnames #4 >
 986         { "{\etalchar{+}}" *
 987           #1 'et.al.char.used :=
 988         }
 989         'skip$
 990       if$
 991     }
 992     { s #1 "{v{}}{l{}}" format.name$
 993       duplicate$ text.length$ #2 <
 994         { pop$ s #1 "{ll}" format.name$ #3 text.prefix$ }
 995         'skip$
 996       if$
 997     }
 998   if$
 999 }
1000
1001 FUNCTION {author.key.label}
1002 { author empty$
1003     { key empty$
1004         { cite$ #1 #3 substring$ }
1005         { key #3 text.prefix$ }
1006       if$
1007     }
1008     { author format.lab.names }
1009   if$
1010 }
1011
1012 FUNCTION {author.editor.key.label}
1013 { author empty$
1014     { editor empty$
1015         { key empty$
1016             { cite$ #1 #3 substring$ }
1017             { key #3 text.prefix$ }
1018           if$
1019         }
1020         { editor format.lab.names }
1021       if$
1022     }
1023     { author format.lab.names }
1024   if$
1025 }
1026
1027 FUNCTION {author.key.organization.label}
1028 { author empty$
1029     { key empty$
1030         { organization empty$
1031             { cite$ #1 #3 substring$ }
1032             { "The " #4 organization chop.word #3 text.prefix$ }
1033           if$
1034         }
1035         { key #3 text.prefix$ }
1036       if$
1037     }
1038     { author format.lab.names }
1039   if$
1040 }
1041
1042 FUNCTION {editor.key.organization.label}
1043 { editor empty$
1044     { key empty$
1045         { organization empty$
1046             { cite$ #1 #3 substring$ }
1047             { "The " #4 organization chop.word #3 text.prefix$ }
1048           if$
1049         }
1050         { key #3 text.prefix$ }
1051       if$
1052     }
1053     { editor format.lab.names }
1054   if$
1055 }
1056
1057 FUNCTION {calc.label}
1058 { type$ "book" =
1059   type$ "inbook" =
1060   or
1061     'author.editor.key.label
1062     { type$ "proceedings" =
1063         'editor.key.organization.label
1064         { type$ "manual" =
1065             'author.key.organization.label
1066             'author.key.label
1067           if$
1068         }
1069       if$
1070     }
1071   if$
1072   duplicate$
1073   year field.or.null purify$ #-1 #2 substring$
1074   *
1075   'label :=
1076   year field.or.null purify$ #-1 #4 substring$
1077   *
1078   sortify 'sort.label :=
1079 }
1080
1081 FUNCTION {sort.format.names}
1082 { 's :=
1083   #1 'nameptr :=
1084   ""
1085   s num.names$ 'numnames :=
1086   numnames 'namesleft :=
1087     { namesleft #0 > }
1088     { nameptr #1 >
1089         { "   " * }
1090         'skip$
1091       if$
1092       s nameptr "{vv{ } }{ll{ }}{  ff{ }}{  jj{ }}" format.name$ 't :=
1093       nameptr numnames = t "others" = and
1094         { "et al" * }
1095         { t sortify * }
1096       if$
1097       nameptr #1 + 'nameptr :=
1098       namesleft #1 - 'namesleft :=
1099     }
1100   while$
1101 }
1102
1103 FUNCTION {sort.format.title}
1104 { 't :=
1105   "A " #2
1106     "An " #3
1107       "The " #4 t chop.word
1108     chop.word
1109   chop.word
1110   sortify
1111   #1 global.max$ substring$
1112 }
1113
1114 FUNCTION {author.sort}
1115 { author empty$
1116     { key empty$
1117         { "to sort, need author or key in " cite$ * warning$
1118           ""
1119         }
1120         { key sortify }
1121       if$
1122     }
1123     { author sort.format.names }
1124   if$
1125 }
1126
1127 FUNCTION {author.editor.sort}
1128 { author empty$
1129     { editor empty$
1130         { key empty$
1131             { "to sort, need author, editor, or key in " cite$ * warning$
1132               ""
1133             }
1134             { key sortify }
1135           if$
1136         }
1137         { editor sort.format.names }
1138       if$
1139     }
1140     { author sort.format.names }
1141   if$
1142 }
1143
1144 FUNCTION {author.organization.sort}
1145 { author empty$
1146     { organization empty$
1147         { key empty$
1148             { "to sort, need author, organization, or key in " cite$ * warning$
1149               ""
1150             }
1151             { key sortify }
1152           if$
1153         }
1154         { "The " #4 organization chop.word sortify }
1155       if$
1156     }
1157     { author sort.format.names }
1158   if$
1159 }
1160
1161 FUNCTION {editor.organization.sort}
1162 { editor empty$
1163     { organization empty$
1164         { key empty$
1165             { "to sort, need editor, organization, or key in " cite$ * warning$
1166               ""
1167             }
1168             { key sortify }
1169           if$
1170         }
1171         { "The " #4 organization chop.word sortify }
1172       if$
1173     }
1174     { editor sort.format.names }
1175   if$
1176 }
1177
1178 FUNCTION {presort}
1179 { calc.label
1180   sort.label
1181   "    "
1182   *
1183   type$ "book" =
1184   type$ "inbook" =
1185   or
1186     'author.editor.sort
1187     { type$ "proceedings" =
1188         'editor.organization.sort
1189         { type$ "manual" =
1190             'author.organization.sort
1191             'author.sort
1192           if$
1193         }
1194       if$
1195     }
1196   if$
1197   *
1198   "    "
1199   *
1200   year field.or.null sortify
1201   *
1202   "    "
1203   *
1204   title field.or.null
1205   sort.format.title
1206   *
1207   #1 entry.max$ substring$
1208   'sort.key$ :=
1209 }
1210
1211 ITERATE {presort}
1212
1213 SORT
1214
1215 STRINGS { longest.label last.sort.label next.extra }
1216
1217 INTEGERS { longest.label.width last.extra.num }
1218
1219 FUNCTION {initialize.longest.label}
1220 { "" 'longest.label :=
1221   #0 int.to.chr$ 'last.sort.label :=
1222   "" 'next.extra :=
1223   #0 'longest.label.width :=
1224   #0 'last.extra.num :=
1225 }
1226
1227 FUNCTION {forward.pass}
1228 { last.sort.label sort.label =
1229     { last.extra.num #1 + 'last.extra.num :=
1230       last.extra.num int.to.chr$ 'extra.label :=
1231     }
1232     { "a" chr.to.int$ 'last.extra.num :=
1233       "" 'extra.label :=
1234       sort.label 'last.sort.label :=
1235     }
1236   if$
1237 }
1238
1239 FUNCTION {reverse.pass}
1240 { next.extra "b" =
1241     { "a" 'extra.label := }
1242     'skip$
1243   if$
1244   label extra.label * 'label :=
1245   label width$ longest.label.width >
1246     { label 'longest.label :=
1247       label width$ 'longest.label.width :=
1248     }
1249     'skip$
1250   if$
1251   extra.label 'next.extra :=
1252 }
1253
1254 EXECUTE {initialize.longest.label}
1255
1256 ITERATE {forward.pass}
1257
1258 REVERSE {reverse.pass}
1259
1260 FUNCTION {begin.bib}
1261 { et.al.char.used
1262     { "\newcommand{\etalchar}[1]{$^{#1}$}" write$ newline$ }
1263     'skip$
1264   if$
1265   "\makeatletter" write$ newline$
1266   "\@ifundefined{xbiblabel}{\newcommand{\xbiblabel}[4]{#4}}{}" write$ newline$
1267   "\let\@oldbiblabel\@biblabel" write$ newline$
1268   "\renewcommand{\@biblabel}[1]%" write$ newline$
1269   " {{\def\xbiblabel##1##2##3##4{\hyperref{##1}{##2}{##3}{##4}}%"
1270   write$ newline$
1271   "   \@oldbiblabel{#1}}}" write$ newline$
1272   "\makeatother"  write$ newline$
1273   newline$
1274
1275   preamble$ empty$
1276     'skip$
1277     { preamble$ write$ newline$ }
1278   if$
1279   "\begin{thebibliography}{"  longest.label  * "}" * write$ newline$
1280 }
1281
1282 EXECUTE {begin.bib}
1283
1284 EXECUTE {init.state.consts}
1285
1286 ITERATE {call.type$}
1287
1288 FUNCTION {end.bib}
1289 { newline$
1290   "\end{thebibliography}" write$ newline$
1291 }
1292
1293 EXECUTE {end.bib}