trunk/electrostaticMethodsPaper/jcp.bst

% BibTeX standard bibliography style `unsrt'
        % version 0.99a for BibTeX versions 0.99a or later, LaTeX version 2.09.
        % Copyright (C) 1985, all rights reserved.
        % Copying of this file is authorized only if either
        % (1) you make absolutely no changes to your copy, including name, or
        % (2) if you do make changes, you name it something other than
        % btxbst.doc, plain.bst, unsrt.bst, alpha.bst, and abbrv.bst.
        % This restriction helps ensure that all standard styles are identical.
        % The file btxbst.doc has the documentation for this style.

% Editted to make a more JCP-like bibliography entry   -- bt 12 May 1989
        % The function BOLDFACE was made from  EMPHASIZE
        % The function FORMAT.DATE was modified for parenthesis
        % The function FORMAT.VOL.NUM.PAGES was modifed
ENTRY
  { address
    author
    booktitle
    chapter
    edition
    editor
    howpublished
    institution
    journal
    key
    month
    note
    number
    organization
    pages
    publisher
    school
    series
    title
    type
    volume
    year
  }
  {}
  { label }

INTEGERS { output.state before.all mid.sentence after.sentence after.block }

FUNCTION {init.state.consts}
{ #0 'before.all :=
  #1 'mid.sentence :=
  #2 'after.sentence :=
  #3 'after.block :=
}

STRINGS { s t }

FUNCTION {output.nonnull}
{ 's :=
  output.state mid.sentence =
    { ", " * write$ }
    { output.state after.block =
        { add.period$ write$
          newline$
          "\newblock " write$
        }
        { output.state before.all =
            'write$
            { add.period$ " " * write$ }
          if$
        }
      if$
      mid.sentence 'output.state :=
    }
  if$
  s
}

FUNCTION {output}
{ duplicate$ empty$
    'pop$
    'output.nonnull
  if$
}

FUNCTION {output.check}
{ 't :=
  duplicate$ empty$
    { pop$ "empty " t * " in " * cite$ * warning$ }
    'output.nonnull
  if$
}

FUNCTION {output.bibitem}
{ newline$
  "\bibitem{" write$
  cite$ write$
  "}" write$
  newline$
  ""
  before.all 'output.state :=
}

FUNCTION {fin.entry}
{ add.period$
  write$
  newline$
}

FUNCTION {new.block}
{ output.state before.all =
    'skip$
    { after.block 'output.state := }
  if$
}

FUNCTION {new.sentence}
{ output.state after.block =
    'skip$
    { output.state before.all =
        'skip$
        { after.sentence 'output.state := }
      if$
    }
  if$
}

FUNCTION {not}
{   { #0 }
    { #1 }
  if$
}

FUNCTION {and}
{   'skip$
    { pop$ #0 }
  if$
}

FUNCTION {or}
{   { pop$ #1 }
    'skip$
  if$
}

FUNCTION {new.block.checka}
{ empty$
    'skip$
    'new.block
  if$
}

FUNCTION {new.block.checkb}
{ empty$
  swap$ empty$
  and
    'skip$
    'new.block
  if$
}

FUNCTION {new.sentence.checka}
{ empty$
    'skip$
    'new.sentence
  if$
}

FUNCTION {new.sentence.checkb}
{ empty$
  swap$ empty$
  and
    'skip$
    'new.sentence
  if$
}

FUNCTION {field.or.null}
{ duplicate$ empty$
    { pop$ "" }
    'skip$
  if$
}

FUNCTION {emphasize}
{ duplicate$ empty$
    { pop$ "" }
    { "{\em " swap$ * "}" * }
  if$
}

FUNCTION {boldface}
{ duplicate$ empty$
    { pop$ "" }
    { "{\bf " swap$ * "}" * }
  if$
}

INTEGERS { nameptr namesleft numnames }

FUNCTION {format.names}
{ 's :=
  #1 'nameptr :=
  s num.names$ 'numnames :=
  numnames 'namesleft :=
    { namesleft #0 > }
    { s nameptr "{ff~}{vv~}{ll}{, jj}" format.name$ 't :=
      nameptr #1 >
        { namesleft #1 >
            { ", " * t * }
            { numnames #2 >
                { "," * }
                'skip$
              if$
              t "others" =
                { " et~al." * }
                { " and " * t * }
              if$
            }
          if$
        }
        't
      if$
      nameptr #1 + 'nameptr :=
      namesleft #1 - 'namesleft :=
    }
  while$
}

FUNCTION {format.authors}
{ author empty$
    { "" }
    { author format.names }
  if$
}

FUNCTION {format.editors}
{ editor empty$
    { "" }
    { editor format.names
      editor num.names$ #1 >
        { ", editors" * }
        { ", editor" * }
      if$
    }
  if$
}

FUNCTION {format.title}
{ title empty$
    { "" }
    { title "t" change.case$ }
  if$
}

FUNCTION {n.dashify}
{ 't :=
  ""
    { t empty$ not }
    { t #1 #1 substring$ "-" =
        { t #1 #2 substring$ "--" = not
            { "--" *
              t #2 global.max$ substring$ 't :=
            }
            {   { t #1 #1 substring$ "-" = }
                { "-" *
                  t #2 global.max$ substring$ 't :=
                }
              while$
            }
          if$
        }
        { t #1 #1 substring$ *
          t #2 global.max$ substring$ 't :=
        }
      if$
    }
  while$
}

FUNCTION {format.date}
{ year empty$
    { month empty$
        { "" }
        { "there's a month but no year in " cite$ * warning$
          month
        }
      if$
    }
    { month empty$
        { "(" year * ")" * }
        { month " " * year * }
      if$
    }
  if$
}

FUNCTION {format.btitle}
{ title emphasize
}

FUNCTION {tie.or.space.connect}
{ duplicate$ text.length$ #3 <
    { "~" }
    { " " }
  if$
  swap$ * *
}

FUNCTION {either.or.check}
{ empty$
    'pop$
    { "can't use both " swap$ * " fields in " * cite$ * warning$ }
  if$
}

FUNCTION {format.bvolume}
{ volume empty$
    { "" }
    { "volume" volume tie.or.space.connect
      series empty$
        'skip$
        { " of " * series emphasize * }
      if$
      "volume and number" number either.or.check
    }
  if$
}

FUNCTION {format.number.series}
{ volume empty$
    { number empty$
        { series field.or.null }
        { output.state mid.sentence =
            { "number" }
            { "Number" }
          if$
          number tie.or.space.connect
          series empty$
            { "there's a number but no series in " cite$ * warning$ }
            { " in " * series * }
          if$
        }
      if$
    }
    { "" }
  if$
}

FUNCTION {format.edition}
{ edition empty$
    { "" }
    { output.state mid.sentence =
        { edition "l" change.case$ " edition" * }
        { edition "t" change.case$ " edition" * }
      if$
    }
  if$
}

INTEGERS { multiresult }

FUNCTION {multi.page.check}
{ 't :=
  #0 'multiresult :=
    { multiresult not
      t empty$ not
      and
    }
    { t #1 #1 substring$
      duplicate$ "-" =
      swap$ duplicate$ "," =
      swap$ "+" =
      or or
        { #1 'multiresult := }
        { t #2 global.max$ substring$ 't := }
      if$
    }
  while$
  multiresult
}

FUNCTION {format.pages}
{ pages empty$
    { "" }
    { pages multi.page.check
        { "pages" pages n.dashify tie.or.space.connect }
        { "page" pages tie.or.space.connect }
      if$
    }
  if$
}

FUNCTION {format.vol.num.pages}
{ volume field.or.null boldface
  number empty$
    'skip$
    { "(" number * ")" * *
      volume empty$
        { "there's a number but no volume in " cite$ * warning$ }
        'skip$
      if$
    }
  if$
  pages empty$
    'skip$
    { duplicate$ empty$
        { pop$ format.pages }
        { ",\hspace{0.25em}" * pages n.dashify * }
      if$
    }
  if$
}

FUNCTION {format.chapter.pages}
{ chapter empty$
    'format.pages
    { type empty$
        { "chapter" }
        { type "l" change.case$ }
      if$
      chapter tie.or.space.connect
      pages empty$
        'skip$
        { ", " * format.pages * }
      if$
    }
  if$
}

FUNCTION {format.in.ed.booktitle}
{ booktitle empty$
    { "" }
    { editor empty$
        { "In " booktitle emphasize * }
        { "In " format.editors * ", " * booktitle emphasize * }
      if$
    }
  if$
}

FUNCTION {empty.misc.check}
{ author empty$ title empty$ howpublished empty$
  month empty$ year empty$ note empty$
  and and and and and
    { "all relevant fields are empty in " cite$ * warning$ }
    'skip$
  if$
}

FUNCTION {format.thesis.type}
{ type empty$
    'skip$
    { pop$
      type "t" change.case$
    }
  if$
}

FUNCTION {format.tr.number}
{ type empty$
    { "Technical Report" }
    'type
  if$
  number empty$
    { "t" change.case$ }
    { number tie.or.space.connect }
  if$
}

FUNCTION {format.article.crossref}
{ key empty$
    { journal empty$
        { "need key or journal for " cite$ * " to crossref " * crossref *
          warning$
          ""
        }
        { "In {\em " journal * "\/}" * }
      if$
    }
    { "In " key * }
  if$
  " \cite{" * crossref * "}" *
}

FUNCTION {format.crossref.editor}
{ editor #1 "{vv~}{ll}" format.name$
  editor num.names$ duplicate$
  #2 >
    { pop$ " et~al." * }
    { #2 <
        'skip$
        { editor #2 "{ff }{vv }{ll}{ jj}" format.name$ "others" =
            { " et~al." * }
            { " and " * editor #2 "{vv~}{ll}" format.name$ * }
          if$
        }
      if$
    }
  if$
}

FUNCTION {format.book.crossref}
{ volume empty$
    { "empty volume in " cite$ * "'s crossref of " * crossref * warning$
      "In "
    }
    { "Volume" volume tie.or.space.connect
      " of " *
    }
  if$
  editor empty$
  editor field.or.null author field.or.null =
  or
    { key empty$
        { series empty$
            { "need editor, key, or series for " cite$ * " to crossref " *
              crossref * warning$
              "" *
            }
            { "{\em " * series * "\/}" * }
          if$
        }
        { key * }
      if$
    }
    { format.crossref.editor * }
  if$
  " \cite{" * crossref * "}" *
}

FUNCTION {format.incoll.inproc.crossref}
{ editor empty$
  editor field.or.null author field.or.null =
  or
    { key empty$
        { booktitle empty$
            { "need editor, key, or booktitle for " cite$ * " to crossref " *
              crossref * warning$
              ""
            }
            { "In {\em " booktitle * "\/}" * }
          if$
        }
        { "In " key * }
      if$
    }
    { "In " format.crossref.editor * }
  if$
  " \cite{" * crossref * "}" *
}

%  format.title "title" output.check
%  new.block
FUNCTION {article}
{ output.bibitem
  format.authors "author" output.check
  new.block
  crossref missing$
    { journal emphasize "journal" output.check
      format.vol.num.pages output
      format.date "year" output.check
    }
    { format.article.crossref output.nonnull
      format.pages output
    }
  if$
  new.block
  note output
  fin.entry
}

FUNCTION {book}
{ output.bibitem
  author empty$
    { format.editors "author and editor" output.check }
    { format.authors output.nonnull
      crossref missing$
        { "author and editor" editor either.or.check }
        'skip$
      if$
    }
  if$
  new.block
  format.btitle "title" output.check
  crossref missing$
    { format.bvolume output
      new.block
      format.number.series output
      new.sentence
      publisher "publisher" output.check
      address output
    }
    { new.block
      format.book.crossref output.nonnull
    }
  if$
  format.edition output
  format.date "year" output.check
  new.block
  note output
  fin.entry
}

FUNCTION {booklet}
{ output.bibitem
  format.authors output
  new.block
  format.title "title" output.check
  howpublished address new.block.checkb
  howpublished output
  address output
  format.date output
  new.block
  note output
  fin.entry
}

FUNCTION {inbook}
{ output.bibitem
  author empty$
    { format.editors "author and editor" output.check }
    { format.authors output.nonnull
      crossref missing$
        { "author and editor" editor either.or.check }
        'skip$
      if$
    }
  if$
  new.block
  format.btitle "title" output.check
  crossref missing$
    { format.bvolume output
      format.chapter.pages "chapter and pages" output.check
      new.block
      format.number.series output
      new.sentence
      publisher "publisher" output.check
      address output
    }
    { format.chapter.pages "chapter and pages" output.check
      new.block
      format.book.crossref output.nonnull
    }
  if$
  format.edition output
  format.date "year" output.check
  new.block
  note output
  fin.entry
}

FUNCTION {incollection}
{ output.bibitem
  format.authors "author" output.check
  new.block
  format.title "title" output.check
  new.block
  crossref missing$
    { format.in.ed.booktitle "booktitle" output.check
      format.bvolume output
      format.number.series output
      format.chapter.pages output
      new.sentence
      publisher "publisher" output.check
      address output
      format.edition output
      format.date "year" output.check
    }
    { format.incoll.inproc.crossref output.nonnull
      format.chapter.pages output
    }
  if$
  new.block
  note output
  fin.entry
}

FUNCTION {inproceedings}
{ output.bibitem
  format.authors "author" output.check
  new.block
  format.title "title" output.check
  new.block
  crossref missing$
    { format.in.ed.booktitle "booktitle" output.check
      format.bvolume output
      format.number.series output
      format.pages output
      address empty$
        { organization publisher new.sentence.checkb
          organization output
          publisher output
          format.date "year" output.check
        }
        { address output.nonnull
          format.date "year" output.check
          new.sentence
          organization output
          publisher output
        }
      if$
    }
    { format.incoll.inproc.crossref output.nonnull
      format.pages output
    }
  if$
  new.block
  note output
  fin.entry
}

FUNCTION {conference} { inproceedings }

FUNCTION {manual}
{ output.bibitem
  author empty$
    { organization empty$
        'skip$
        { organization output.nonnull
          address output
        }
      if$
    }
    { format.authors output.nonnull }
  if$
  new.block
  format.btitle "title" output.check
  author empty$
    { organization empty$
        { address new.block.checka
          address output
        }
        'skip$
      if$
    }
    { organization address new.block.checkb
      organization output
      address output
    }
  if$
  format.edition output
  format.date output
  new.block
  note output
  fin.entry
}

FUNCTION {mastersthesis}
{ output.bibitem
  format.authors "author" output.check
  new.block
  format.title "title" output.check
  new.block
  "Master's thesis" format.thesis.type output.nonnull
  school "school" output.check
  address output
  format.date "year" output.check
  new.block
  note output
  fin.entry
}

FUNCTION {misc}
{ output.bibitem
  format.authors output
  title howpublished new.block.checkb
  format.title output
  howpublished new.block.checka
  howpublished output
  format.date output
  new.block
  note output
  fin.entry
  empty.misc.check
}

FUNCTION {phdthesis}
{ output.bibitem
  format.authors "author" output.check
  new.block
  format.btitle "title" output.check
  new.block
  "PhD thesis" format.thesis.type output.nonnull
  school "school" output.check
  address output
  format.date "year" output.check
  new.block
  note output
  fin.entry
}

FUNCTION {proceedings}
{ output.bibitem
  editor empty$
    { organization output }
    { format.editors output.nonnull }
  if$
  new.block
  format.btitle "title" output.check
  format.bvolume output
  format.number.series output
  address empty$
    { editor empty$
        { publisher new.sentence.checka }
        { organization publisher new.sentence.checkb
          organization output
        }
      if$
      publisher output
      format.date "year" output.check
    }
    { address output.nonnull
      format.date "year" output.check
      new.sentence
      editor empty$
        'skip$
        { organization output }
      if$
      publisher output
    }
  if$
  new.block
  note output
  fin.entry
}

FUNCTION {techreport}
{ output.bibitem
  format.authors "author" output.check
  new.block
  format.title "title" output.check
  new.block
  format.tr.number output.nonnull
  institution "institution" output.check
  address output
  format.date "year" output.check
  new.block
  note output
  fin.entry
}

FUNCTION {unpublished}
{ output.bibitem
  format.authors "author" output.check
  new.block
  format.title "title" output.check
  new.block
  note "note" output.check
  format.date output
  fin.entry
}

FUNCTION {default.type} { misc }

MACRO {jan} {"January"}

MACRO {feb} {"February"}

MACRO {mar} {"March"}

MACRO {apr} {"April"}

MACRO {may} {"May"}

MACRO {jun} {"June"}

MACRO {jul} {"July"}

MACRO {aug} {"August"}

MACRO {sep} {"September"}

MACRO {oct} {"October"}

MACRO {nov} {"November"}

MACRO {dec} {"December"}

MACRO {acmcs} {"ACM Computing Surveys"}

MACRO {acta} {"Acta Informatica"}

MACRO {cacm} {"Communications of the ACM"}

MACRO {ibmjrd} {"IBM Journal of Research and Development"}

MACRO {ibmsj} {"IBM Systems Journal"}

MACRO {ieeese} {"IEEE Transactions on Software Engineering"}

MACRO {ieeetc} {"IEEE Transactions on Computers"}

MACRO {ieeetcad}
 {"IEEE Transactions on Computer-Aided Design of Integrated Circuits"}

MACRO {ipl} {"Information Processing Letters"}

MACRO {jacm} {"Journal of the ACM"}

MACRO {jcss} {"Journal of Computer and System Sciences"}

MACRO {scp} {"Science of Computer Programming"}

MACRO {sicomp} {"SIAM Journal on Computing"}

MACRO {tocs} {"ACM Transactions on Computer Systems"}

MACRO {tods} {"ACM Transactions on Database Systems"}

MACRO {tog} {"ACM Transactions on Graphics"}

MACRO {toms} {"ACM Transactions on Mathematical Software"}

MACRO {toois} {"ACM Transactions on Office Information Systems"}

MACRO {toplas} {"ACM Transactions on Programming Languages and Systems"}

MACRO {tcs} {"Theoretical Computer Science"}

READ

STRINGS { longest.label }

INTEGERS { number.label longest.label.width }

FUNCTION {initialize.longest.label}
{ "" 'longest.label :=
  #1 'number.label :=
  #0 'longest.label.width :=
}

FUNCTION {longest.label.pass}
{ number.label int.to.str$ 'label :=
  number.label #1 + 'number.label :=
  label width$ longest.label.width >
    { label 'longest.label :=
      label width$ 'longest.label.width :=
    }
    'skip$
  if$
}

EXECUTE {initialize.longest.label}

ITERATE {longest.label.pass}

FUNCTION {begin.bib}
{ preamble$ empty$
    'skip$
    { preamble$ write$ newline$ }
  if$
  "\begin{thebibliography}{"  longest.label  * "}" * write$ newline$
}

EXECUTE {begin.bib}

EXECUTE {init.state.consts}

ITERATE {call.type$}

FUNCTION {end.bib}
{ newline$
  "\end{thebibliography}" write$ newline$
}

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