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