123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368136913701371137213731374137513761377137813791380138113821383138413851386138713881389139013911392139313941395139613971398139914001401140214031404140514061407140814091410141114121413141414151416141714181419142014211422142314241425142614271428142914301431143214331434143514361437143814391440144114421443144414451446144714481449145014511452145314541455145614571458145914601461146214631464146514661467146814691470147114721473147414751476147714781479148014811482148314841485148614871488148914901491149214931494149514961497149814991500150115021503150415051506150715081509151015111512151315141515151615171518151915201521152215231524152515261527152815291530153115321533153415351536153715381539154015411542154315441545154615471548154915501551155215531554155515561557155815591560156115621563156415651566156715681569157015711572157315741575157615771578157915801581158215831584158515861587158815891590159115921593159415951596159715981599160016011602160316041605160616071608160916101611161216131614161516161617161816191620162116221623162416251626162716281629163016311632163316341635163616371638163916401641164216431644164516461647164816491650165116521653165416551656165716581659166016611662166316641665166616671668166916701671167216731674167516761677167816791680168116821683168416851686168716881689169016911692169316941695169616971698169917001701170217031704170517061707170817091710171117121713171417151716171717181719172017211722172317241725172617271728172917301731173217331734173517361737173817391740174117421743174417451746174717481749175017511752175317541755175617571758175917601761176217631764176517661767176817691770177117721773177417751776177717781779178017811782178317841785178617871788178917901791179217931794179517961797179817991800180118021803180418051806180718081809181018111812181318141815181618171818181918201821182218231824182518261827182818291830183118321833183418351836183718381839184018411842184318441845184618471848184918501851185218531854185518561857185818591860186118621863186418651866186718681869187018711872187318741875187618771878187918801881188218831884188518861887188818891890189118921893189418951896189718981899190019011902190319041905190619071908190919101911191219131914191519161917191819191920192119221923192419251926192719281929193019311932193319341935193619371938193919401941194219431944194519461947194819491950195119521953195419551956195719581959196019611962196319641965196619671968196919701971197219731974197519761977197819791980198119821983198419851986198719881989199019911992199319941995199619971998199920002001200220032004200520062007200820092010201120122013201420152016201720182019202020212022202320242025202620272028202920302031203220332034203520362037203820392040204120422043204420452046204720482049205020512052205320542055205620572058205920602061206220632064206520662067206820692070207120722073207420752076207720782079208020812082208320842085208620872088208920902091209220932094209520962097209820992100210121022103210421052106210721082109211021112112211321142115211621172118211921202121212221232124212521262127212821292130213121322133213421352136213721382139214021412142214321442145214621472148214921502151215221532154215521562157215821592160216121622163216421652166216721682169217021712172217321742175217621772178217921802181218221832184218521862187218821892190219121922193219421952196219721982199220022012202220322042205220622072208220922102211221222132214221522162217221822192220222122222223222422252226222722282229223022312232223322342235223622372238223922402241224222432244224522462247224822492250225122522253225422552256225722582259226022612262226322642265226622672268226922702271227222732274227522762277227822792280228122822283228422852286228722882289229022912292229322942295229622972298229923002301230223032304230523062307230823092310231123122313231423152316231723182319232023212322232323242325232623272328232923302331233223332334233523362337233823392340234123422343234423452346234723482349235023512352235323542355235623572358235923602361236223632364236523662367236823692370237123722373237423752376237723782379238023812382238323842385238623872388238923902391239223932394239523962397239823992400240124022403240424052406240724082409241024112412241324142415241624172418 |
- %%
- %% IEEEtran.bst
- %% BibTeX Bibliography Style file for IEEE Journals and Conferences (unsorted)
- %% Version 1.12 (2007/01/11)
- %%
- %% Copyright (c) 2003-2007 Michael Shell
- %%
- %% Original starting code base and algorithms obtained from the output of
- %% Patrick W. Daly's makebst package as well as from prior versions of
- %% IEEE BibTeX styles:
- %%
- %% 1. Howard Trickey and Oren Patashnik's ieeetr.bst (1985/1988)
- %% 2. Silvano Balemi and Richard H. Roy's IEEEbib.bst (1993)
- %%
- %% Support sites:
- %% http://www.michaelshell.org/tex/ieeetran/
- %% http://www.ctan.org/tex-archive/macros/latex/contrib/IEEEtran/
- %% and/or
- %% http://www.ieee.org/
- %%
- %% For use with BibTeX version 0.99a or later
- %%
- %% This is a numerical citation style.
- %%
- %%*************************************************************************
- %% Legal Notice:
- %% This code is offered as-is without any warranty either expressed or
- %% implied; without even the implied warranty of MERCHANTABILITY or
- %% FITNESS FOR A PARTICULAR PURPOSE!
- %% User assumes all risk.
- %% In no event shall IEEE or any contributor to this code be liable for
- %% any damages or losses, including, but not limited to, incidental,
- %% consequential, or any other damages, resulting from the use or misuse
- %% of any information contained here.
- %%
- %% All comments are the opinions of their respective authors and are not
- %% necessarily endorsed by the IEEE.
- %%
- %% This work is distributed under the LaTeX Project Public License (LPPL)
- %% ( http://www.latex-project.org/ ) version 1.3, and may be freely used,
- %% distributed and modified. A copy of the LPPL, version 1.3, is included
- %% in the base LaTeX documentation of all distributions of LaTeX released
- %% 2003/12/01 or later.
- %% Retain all contribution notices and credits.
- %% ** Modified files should be clearly indicated as such, including **
- %% ** renaming them and changing author support contact information. **
- %%
- %% File list of work: IEEEabrv.bib, IEEEfull.bib, IEEEexample.bib,
- %% IEEEtran.bst, IEEEtranS.bst, IEEEtranSA.bst,
- %% IEEEtranN.bst, IEEEtranSN.bst, IEEEtran_bst_HOWTO.pdf
- %%*************************************************************************
- %
- %
- % Changelog:
- %
- % 1.00 (2002/08/13) Initial release
- %
- % 1.10 (2002/09/27)
- % 1. Corrected minor bug for improperly formed warning message when a
- % book was not given a title. Thanks to Ming Kin Lai for reporting this.
- % 2. Added support for CTLname_format_string and CTLname_latex_cmd fields
- % in the BST control entry type.
- %
- % 1.11 (2003/04/02)
- % 1. Fixed bug with URLs containing underscores when using url.sty. Thanks
- % to Ming Kin Lai for reporting this.
- %
- % 1.12 (2007/01/11)
- % 1. Fixed bug with unwanted comma before "et al." when an entry contained
- % more than two author names. Thanks to Pallav Gupta for reporting this.
- % 2. Fixed bug with anomalous closing quote in tech reports that have a
- % type, but without a number or address. Thanks to Mehrdad Mirreza for
- % reporting this.
- % 3. Use braces in \providecommand in begin.bib to better support
- % latex2html. TeX style length assignments OK with recent versions
- % of latex2html - 1.71 (2002/2/1) or later is strongly recommended.
- % Use of the language field still causes trouble with latex2html.
- % Thanks to Federico Beffa for reporting this.
- % 4. Added IEEEtran.bst ID and version comment string to .bbl output.
- % 5. Provide a \BIBdecl hook that allows the user to execute commands
- % just prior to the first entry.
- % 6. Use default urlstyle (is using url.sty) of "same" rather than rm to
- % better work with a wider variety of bibliography styles.
- % 7. Changed month abbreviations from Sept., July and June to Sep., Jul.,
- % and Jun., respectively, as IEEE now does. Thanks to Moritz Borgmann
- % for reporting this.
- % 8. Control entry types should not be considered when calculating longest
- % label width.
- % 9. Added alias www for electronic/online.
- % 10. Added CTLname_url_prefix control entry type.
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %% DEFAULTS FOR THE CONTROLS OF THE BST STYLE %%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % These are the defaults for the user adjustable controls. The values used
- % here can be overridden by the user via IEEEtranBSTCTL entry type.
- % NOTE: The recommended LaTeX command to invoke a control entry type is:
- %
- %\makeatletter
- %\def\bstctlcite{\@ifnextchar[{\@bstctlcite}{\@bstctlcite[@auxout]}}
- %\def\@bstctlcite[#1]#2{\@bsphack
- % \@for\@citeb:=#2\do{%
- % \edef\@citeb{\expandafter\@firstofone\@citeb}%
- % \if@filesw\immediate\write\csname #1\endcsname{\string\citation{\@citeb}}\fi}%
- % \@esphack}
- %\makeatother
- %
- % It is called at the start of the document, before the first \cite, like:
- % \bstctlcite{IEEEexample:BSTcontrol}
- %
- % IEEEtran.cls V1.6 and later does provide this command.
- % #0 turns off the display of the number for articles.
- % #1 enables
- FUNCTION {default.is.use.number.for.article} { #1 }
- % #0 turns off the display of the paper and type fields in @inproceedings.
- % #1 enables
- FUNCTION {default.is.use.paper} { #1 }
- % #0 turns off the forced use of "et al."
- % #1 enables
- FUNCTION {default.is.forced.et.al} { #0 }
- % The maximum number of names that can be present beyond which an "et al."
- % usage is forced. Be sure that num.names.shown.with.forced.et.al (below)
- % is not greater than this value!
- % Note: There are many instances of references in IEEE journals which have
- % a very large number of authors as well as instances in which "et al." is
- % used profusely.
- FUNCTION {default.max.num.names.before.forced.et.al} { #10 }
- % The number of names that will be shown with a forced "et al.".
- % Must be less than or equal to max.num.names.before.forced.et.al
- FUNCTION {default.num.names.shown.with.forced.et.al} { #1 }
- % #0 turns off the alternate interword spacing for entries with URLs.
- % #1 enables
- FUNCTION {default.is.use.alt.interword.spacing} { #1 }
- % If alternate interword spacing for entries with URLs is enabled, this is
- % the interword spacing stretch factor that will be used. For example, the
- % default "4" here means that the interword spacing in entries with URLs can
- % stretch to four times normal. Does not have to be an integer. Note that
- % the value specified here can be overridden by the user in their LaTeX
- % code via a command such as:
- % "\providecommand\BIBentryALTinterwordstretchfactor{1.5}" in addition to
- % that via the IEEEtranBSTCTL entry type.
- FUNCTION {default.ALTinterwordstretchfactor} { "4" }
- % #0 turns off the "dashification" of repeated (i.e., identical to those
- % of the previous entry) names. IEEE normally does this.
- % #1 enables
- FUNCTION {default.is.dash.repeated.names} { #1 }
- % The default name format control string.
- FUNCTION {default.name.format.string}{ "{f.~}{vv~}{ll}{, jj}" }
- % The default LaTeX font command for the names.
- FUNCTION {default.name.latex.cmd}{ "" }
- % The default URL prefix.
- FUNCTION {default.name.url.prefix}{ "[Online]. Verfügbar:" }
- % Other controls that cannot be accessed via IEEEtranBSTCTL entry type.
- % #0 turns off the terminal startup banner/completed message so as to
- % operate more quietly.
- % #1 enables
- FUNCTION {is.print.banners.to.terminal} { #1 }
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %% FILE VERSION AND BANNER %%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- FUNCTION{bst.file.version} { "1.12" }
- FUNCTION{bst.file.date} { "2007/01/11" }
- FUNCTION{bst.file.website} { "http://www.michaelshell.org/tex/ieeetran/bibtex/" }
- FUNCTION {banner.message}
- { is.print.banners.to.terminal
- { "-- IEEEtran.bst version" " " * bst.file.version *
- " (" * bst.file.date * ") " * "by Michael Shell." *
- top$
- "-- " bst.file.website *
- top$
- "-- See the " quote$ * "IEEEtran_bst_HOWTO.pdf" * quote$ * " manual for usage information." *
- top$
- }
- { skip$ }
- if$
- }
- FUNCTION {completed.message}
- { is.print.banners.to.terminal
- { ""
- top$
- "Done."
- top$
- }
- { skip$ }
- if$
- }
- %%%%%%%%%%%%%%%%%%%%%%
- %% STRING CONSTANTS %%
- %%%%%%%%%%%%%%%%%%%%%%
- FUNCTION {bbl.and}{ "and" }
- FUNCTION {bbl.etal}{ "et~al." }
- FUNCTION {bbl.editors}{ "eds." }
- FUNCTION {bbl.editor}{ "ed." }
- FUNCTION {bbl.edition}{ "ed." }
- FUNCTION {bbl.volume}{ "vol." }
- FUNCTION {bbl.of}{ "of" }
- FUNCTION {bbl.number}{ "no." }
- FUNCTION {bbl.in}{ "in" }
- FUNCTION {bbl.pages}{ "pp." }
- FUNCTION {bbl.page}{ "p." }
- FUNCTION {bbl.chapter}{ "ch." }
- FUNCTION {bbl.paper}{ "paper" }
- FUNCTION {bbl.part}{ "pt." }
- FUNCTION {bbl.patent}{ "Patent" }
- FUNCTION {bbl.patentUS}{ "U.S." }
- FUNCTION {bbl.revision}{ "Rev." }
- FUNCTION {bbl.series}{ "ser." }
- FUNCTION {bbl.standard}{ "Std." }
- FUNCTION {bbl.techrep}{ "Tech. Rep." }
- FUNCTION {bbl.mthesis}{ "Master's thesis" }
- FUNCTION {bbl.phdthesis}{ "Ph.D. dissertation" }
- FUNCTION {bbl.st}{ "st" }
- FUNCTION {bbl.nd}{ "nd" }
- FUNCTION {bbl.rd}{ "rd" }
- FUNCTION {bbl.th}{ "th" }
- % This is the LaTeX spacer that is used when a larger than normal space
- % is called for (such as just before the address:publisher).
- FUNCTION {large.space} { "\hskip 1em plus 0.5em minus 0.4em\relax " }
- % The LaTeX code for dashes that are used to represent repeated names.
- % Note: Some older IEEE journals used something like
- % "\rule{0.275in}{0.5pt}\," which is fairly thick and runs right along
- % the baseline. However, IEEE now uses a thinner, above baseline,
- % six dash long sequence.
- FUNCTION {repeated.name.dashes} { "------" }
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %% PREDEFINED STRING MACROS %%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- MACRO {jan} {"Jan."}
- MACRO {feb} {"Feb."}
- MACRO {mar} {"Mar."}
- MACRO {apr} {"Apr."}
- MACRO {may} {"May"}
- MACRO {jun} {"Jun."}
- MACRO {jul} {"Jul."}
- MACRO {aug} {"Aug."}
- MACRO {sep} {"Sep."}
- MACRO {oct} {"Oct."}
- MACRO {nov} {"Nov."}
- MACRO {dec} {"Dec."}
- %%%%%%%%%%%%%%%%%%
- %% ENTRY FIELDS %%
- %%%%%%%%%%%%%%%%%%
- ENTRY
- { address
- assignee
- author
- booktitle
- chapter
- day
- dayfiled
- edition
- editor
- howpublished
- institution
- intype
- journal
- key
- language
- month
- monthfiled
- nationality
- note
- number
- organization
- pages
- paper
- publisher
- school
- series
- revision
- title
- type
- url
- volume
- year
- yearfiled
- CTLuse_article_number
- CTLuse_paper
- CTLuse_forced_etal
- CTLmax_names_forced_etal
- CTLnames_show_etal
- CTLuse_alt_spacing
- CTLalt_stretch_factor
- CTLdash_repeated_names
- CTLname_format_string
- CTLname_latex_cmd
- CTLname_url_prefix
- }
- {}
- { label }
- %%%%%%%%%%%%%%%%%%%%%%%
- %% INTEGER VARIABLES %%
- %%%%%%%%%%%%%%%%%%%%%%%
- INTEGERS { prev.status.punct this.status.punct punct.std
- punct.no punct.comma punct.period
- prev.status.space this.status.space space.std
- space.no space.normal space.large
- prev.status.quote this.status.quote quote.std
- quote.no quote.close
- prev.status.nline this.status.nline nline.std
- nline.no nline.newblock
- status.cap cap.std
- cap.no cap.yes}
- INTEGERS { longest.label.width multiresult nameptr namesleft number.label numnames }
- INTEGERS { is.use.number.for.article
- is.use.paper
- is.forced.et.al
- max.num.names.before.forced.et.al
- num.names.shown.with.forced.et.al
- is.use.alt.interword.spacing
- is.dash.repeated.names}
- %%%%%%%%%%%%%%%%%%%%%%
- %% STRING VARIABLES %%
- %%%%%%%%%%%%%%%%%%%%%%
- STRINGS { bibinfo
- longest.label
- oldname
- s
- t
- ALTinterwordstretchfactor
- name.format.string
- name.latex.cmd
- name.url.prefix}
- %%%%%%%%%%%%%%%%%%%%%%%%%
- %% LOW LEVEL FUNCTIONS %%
- %%%%%%%%%%%%%%%%%%%%%%%%%
- FUNCTION {initialize.controls}
- { default.is.use.number.for.article 'is.use.number.for.article :=
- default.is.use.paper 'is.use.paper :=
- default.is.forced.et.al 'is.forced.et.al :=
- default.max.num.names.before.forced.et.al 'max.num.names.before.forced.et.al :=
- default.num.names.shown.with.forced.et.al 'num.names.shown.with.forced.et.al :=
- default.is.use.alt.interword.spacing 'is.use.alt.interword.spacing :=
- default.is.dash.repeated.names 'is.dash.repeated.names :=
- default.ALTinterwordstretchfactor 'ALTinterwordstretchfactor :=
- default.name.format.string 'name.format.string :=
- default.name.latex.cmd 'name.latex.cmd :=
- default.name.url.prefix 'name.url.prefix :=
- }
- % This IEEEtran.bst features a very powerful and flexible mechanism for
- % controlling the capitalization, punctuation, spacing, quotation, and
- % newlines of the formatted entry fields. (Note: IEEEtran.bst does not need
- % or use the newline/newblock feature, but it has been implemented for
- % possible future use.) The output states of IEEEtran.bst consist of
- % multiple independent attributes and, as such, can be thought of as being
- % vectors, rather than the simple scalar values ("before.all",
- % "mid.sentence", etc.) used in most other .bst files.
- %
- % The more flexible and complex design used here was motivated in part by
- % IEEE's rather unusual bibliography style. For example, IEEE ends the
- % previous field item with a period and large space prior to the publisher
- % address; the @electronic entry types use periods as inter-item punctuation
- % rather than the commas used by the other entry types; and URLs are never
- % followed by periods even though they are the last item in the entry.
- % Although it is possible to accommodate these features with the conventional
- % output state system, the seemingly endless exceptions make for convoluted,
- % unreliable and difficult to maintain code.
- %
- % IEEEtran.bst's output state system can be easily understood via a simple
- % illustration of two most recently formatted entry fields (on the stack):
- %
- % CURRENT_ITEM
- % "PREVIOUS_ITEM
- %
- % which, in this example, is to eventually appear in the bibliography as:
- %
- % "PREVIOUS_ITEM," CURRENT_ITEM
- %
- % It is the job of the output routine to take the previous item off of the
- % stack (while leaving the current item at the top of the stack), apply its
- % trailing punctuation (including closing quote marks) and spacing, and then
- % to write the result to BibTeX's output buffer:
- %
- % "PREVIOUS_ITEM,"
- %
- % Punctuation (and spacing) between items is often determined by both of the
- % items rather than just the first one. The presence of quotation marks
- % further complicates the situation because, in standard English, trailing
- % punctuation marks are supposed to be contained within the quotes.
- %
- % IEEEtran.bst maintains two output state (aka "status") vectors which
- % correspond to the previous and current (aka "this") items. Each vector
- % consists of several independent attributes which track punctuation,
- % spacing, quotation, and newlines. Capitalization status is handled by a
- % separate scalar because the format routines, not the output routine,
- % handle capitalization and, therefore, there is no need to maintain the
- % capitalization attribute for both the "previous" and "this" items.
- %
- % When a format routine adds a new item, it copies the current output status
- % vector to the previous output status vector and (usually) resets the
- % current (this) output status vector to a "standard status" vector. Using a
- % "standard status" vector in this way allows us to redefine what we mean by
- % "standard status" at the start of each entry handler and reuse the same
- % format routines under the various inter-item separation schemes. For
- % example, the standard status vector for the @book entry type may use
- % commas for item separators, while the @electronic type may use periods,
- % yet both entry handlers exploit many of the exact same format routines.
- %
- % Because format routines have write access to the output status vector of
- % the previous item, they can override the punctuation choices of the
- % previous format routine! Therefore, it becomes trivial to implement rules
- % such as "Always use a period and a large space before the publisher." By
- % pushing the generation of the closing quote mark to the output routine, we
- % avoid all the problems caused by having to close a quote before having all
- % the information required to determine what the punctuation should be.
- %
- % The IEEEtran.bst output state system can easily be expanded if needed.
- % For instance, it is easy to add a "space.tie" attribute value if the
- % bibliography rules mandate that two items have to be joined with an
- % unbreakable space.
- FUNCTION {initialize.status.constants}
- { #0 'punct.no :=
- #1 'punct.comma :=
- #2 'punct.period :=
- #0 'space.no :=
- #1 'space.normal :=
- #2 'space.large :=
- #0 'quote.no :=
- #1 'quote.close :=
- #0 'cap.no :=
- #1 'cap.yes :=
- #0 'nline.no :=
- #1 'nline.newblock :=
- }
- FUNCTION {std.status.using.comma}
- { punct.comma 'punct.std :=
- space.normal 'space.std :=
- quote.no 'quote.std :=
- nline.no 'nline.std :=
- cap.no 'cap.std :=
- }
- FUNCTION {std.status.using.period}
- { punct.period 'punct.std :=
- space.normal 'space.std :=
- quote.no 'quote.std :=
- nline.no 'nline.std :=
- cap.yes 'cap.std :=
- }
- FUNCTION {initialize.prev.this.status}
- { punct.no 'prev.status.punct :=
- space.no 'prev.status.space :=
- quote.no 'prev.status.quote :=
- nline.no 'prev.status.nline :=
- punct.no 'this.status.punct :=
- space.no 'this.status.space :=
- quote.no 'this.status.quote :=
- nline.no 'this.status.nline :=
- cap.yes 'status.cap :=
- }
- FUNCTION {this.status.std}
- { punct.std 'this.status.punct :=
- space.std 'this.status.space :=
- quote.std 'this.status.quote :=
- nline.std 'this.status.nline :=
- }
- FUNCTION {cap.status.std}{ cap.std 'status.cap := }
- FUNCTION {this.to.prev.status}
- { this.status.punct 'prev.status.punct :=
- this.status.space 'prev.status.space :=
- this.status.quote 'prev.status.quote :=
- this.status.nline 'prev.status.nline :=
- }
- FUNCTION {not}
- { { #0 }
- { #1 }
- if$
- }
- FUNCTION {and}
- { { skip$ }
- { pop$ #0 }
- if$
- }
- FUNCTION {or}
- { { pop$ #1 }
- { skip$ }
- if$
- }
- % convert the strings "yes" or "no" to #1 or #0 respectively
- FUNCTION {yes.no.to.int}
- { "l" change.case$ duplicate$
- "yes" =
- { pop$ #1 }
- { duplicate$ "no" =
- { pop$ #0 }
- { "unknown boolean " quote$ * swap$ * quote$ *
- " in " * cite$ * warning$
- #0
- }
- if$
- }
- if$
- }
- % pushes true if the single char string on the stack is in the
- % range of "0" to "9"
- FUNCTION {is.num}
- { chr.to.int$
- duplicate$ "0" chr.to.int$ < not
- swap$ "9" chr.to.int$ > not and
- }
- % multiplies the integer on the stack by a factor of 10
- FUNCTION {bump.int.mag}
- { #0 'multiresult :=
- { duplicate$ #0 > }
- { #1 -
- multiresult #10 +
- 'multiresult :=
- }
- while$
- pop$
- multiresult
- }
- % converts a single character string on the stack to an integer
- FUNCTION {char.to.integer}
- { duplicate$
- is.num
- { chr.to.int$ "0" chr.to.int$ - }
- {"noninteger character " quote$ * swap$ * quote$ *
- " in integer field of " * cite$ * warning$
- #0
- }
- if$
- }
- % converts a string on the stack to an integer
- FUNCTION {string.to.integer}
- { duplicate$ text.length$ 'namesleft :=
- #1 'nameptr :=
- #0 'numnames :=
- { nameptr namesleft > not }
- { duplicate$ nameptr #1 substring$
- char.to.integer numnames bump.int.mag +
- 'numnames :=
- nameptr #1 +
- 'nameptr :=
- }
- while$
- pop$
- numnames
- }
- % The output routines write out the *next* to the top (previous) item on the
- % stack, adding punctuation and such as needed. Since IEEEtran.bst maintains
- % the output status for the top two items on the stack, these output
- % routines have to consider the previous output status (which corresponds to
- % the item that is being output). Full independent control of punctuation,
- % closing quote marks, spacing, and newblock is provided.
- %
- % "output.nonnull" does not check for the presence of a previous empty
- % item.
- %
- % "output" does check for the presence of a previous empty item and will
- % remove an empty item rather than outputing it.
- %
- % "output.warn" is like "output", but will issue a warning if it detects
- % an empty item.
- FUNCTION {output.nonnull}
- { swap$
- prev.status.punct punct.comma =
- { "," * }
- { skip$ }
- if$
- prev.status.punct punct.period =
- { add.period$ }
- { skip$ }
- if$
- prev.status.quote quote.close =
- { "''" * }
- { skip$ }
- if$
- prev.status.space space.normal =
- { " " * }
- { skip$ }
- if$
- prev.status.space space.large =
- { large.space * }
- { skip$ }
- if$
- write$
- prev.status.nline nline.newblock =
- { newline$ "\newblock " write$ }
- { skip$ }
- if$
- }
- FUNCTION {output}
- { duplicate$ empty$
- 'pop$
- 'output.nonnull
- if$
- }
- FUNCTION {output.warn}
- { 't :=
- duplicate$ empty$
- { pop$ "empty " t * " in " * cite$ * warning$ }
- 'output.nonnull
- if$
- }
- % "fin.entry" is the output routine that handles the last item of the entry
- % (which will be on the top of the stack when "fin.entry" is called).
- FUNCTION {fin.entry}
- { this.status.punct punct.no =
- { skip$ }
- { add.period$ }
- if$
- this.status.quote quote.close =
- { "''" * }
- { skip$ }
- if$
- write$
- newline$
- }
- FUNCTION {is.last.char.not.punct}
- { duplicate$
- "}" * add.period$
- #-1 #1 substring$ "." =
- }
- FUNCTION {is.multiple.pages}
- { '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 {capitalize}{ "u" change.case$ "t" change.case$ }
- FUNCTION {emphasize}
- { duplicate$ empty$
- { pop$ "" }
- { "\emph{" swap$ * "}" * }
- if$
- }
- FUNCTION {do.name.latex.cmd}
- { name.latex.cmd
- empty$
- { skip$ }
- { name.latex.cmd "{" * swap$ * "}" * }
- if$
- }
- % IEEEtran.bst uses its own \BIBforeignlanguage command which directly
- % invokes the TeX hyphenation patterns without the need of the Babel
- % package. Babel does a lot more than switch hyphenation patterns and
- % its loading can cause unintended effects in many class files (such as
- % IEEEtran.cls).
- FUNCTION {select.language}
- { duplicate$ empty$ 'pop$
- { language empty$ 'skip$
- { "\BIBforeignlanguage{" language * "}{" * swap$ * "}" * }
- if$
- }
- if$
- }
- FUNCTION {tie.or.space.prefix}
- { duplicate$ text.length$ #3 <
- { "~" }
- { " " }
- if$
- swap$
- }
- FUNCTION {get.bbl.editor}
- { editor num.names$ #1 > 'bbl.editors 'bbl.editor if$ }
- FUNCTION {space.word}{ " " swap$ * " " * }
- % Field Conditioners, Converters, Checkers and External Interfaces
- FUNCTION {empty.field.to.null.string}
- { duplicate$ empty$
- { pop$ "" }
- { skip$ }
- if$
- }
- FUNCTION {either.or.check}
- { empty$
- { pop$ }
- { "can't use both " swap$ * " fields in " * cite$ * warning$ }
- if$
- }
- FUNCTION {empty.entry.warn}
- { author empty$ title empty$ howpublished empty$
- month empty$ year empty$ note empty$ url empty$
- and and and and and and
- { "all relevant fields are empty in " cite$ * warning$ }
- 'skip$
- if$
- }
- % The bibinfo system provides a way for the electronic parsing/acquisition
- % of a bibliography's contents as is done by ReVTeX. For example, a field
- % could be entered into the bibliography as:
- % \bibinfo{volume}{2}
- % Only the "2" would show up in the document, but the LaTeX \bibinfo command
- % could do additional things with the information. IEEEtran.bst does provide
- % a \bibinfo command via "\providecommand{\bibinfo}[2]{#2}". However, it is
- % currently not used as the bogus bibinfo functions defined here output the
- % entry values directly without the \bibinfo wrapper. The bibinfo functions
- % themselves (and the calls to them) are retained for possible future use.
- %
- % bibinfo.check avoids acting on missing fields while bibinfo.warn will
- % issue a warning message if a missing field is detected. Prior to calling
- % the bibinfo functions, the user should push the field value and then its
- % name string, in that order.
- FUNCTION {bibinfo.check}
- { swap$ duplicate$ missing$
- { pop$ pop$ "" }
- { duplicate$ empty$
- { swap$ pop$ }
- { swap$ pop$ }
- if$
- }
- if$
- }
- FUNCTION {bibinfo.warn}
- { swap$ duplicate$ missing$
- { swap$ "missing " swap$ * " in " * cite$ * warning$ pop$ "" }
- { duplicate$ empty$
- { swap$ "empty " swap$ * " in " * cite$ * warning$ }
- { swap$ pop$ }
- if$
- }
- if$
- }
- % IEEE separates large numbers with more than 4 digits into groups of
- % three. IEEE uses a small space to separate these number groups.
- % Typical applications include patent and page numbers.
- % number of consecutive digits required to trigger the group separation.
- FUNCTION {large.number.trigger}{ #5 }
- % For numbers longer than the trigger, this is the blocksize of the groups.
- % The blocksize must be less than the trigger threshold, and 2 * blocksize
- % must be greater than the trigger threshold (can't do more than one
- % separation on the initial trigger).
- FUNCTION {large.number.blocksize}{ #3 }
- % What is actually inserted between the number groups.
- FUNCTION {large.number.separator}{ "\," }
- % So as to save on integer variables by reusing existing ones, numnames
- % holds the current number of consecutive digits read and nameptr holds
- % the number that will trigger an inserted space.
- FUNCTION {large.number.separate}
- { 't :=
- ""
- #0 'numnames :=
- large.number.trigger 'nameptr :=
- { t empty$ not }
- { t #-1 #1 substring$ is.num
- { numnames #1 + 'numnames := }
- { #0 'numnames :=
- large.number.trigger 'nameptr :=
- }
- if$
- t #-1 #1 substring$ swap$ *
- t #-2 global.max$ substring$ 't :=
- numnames nameptr =
- { duplicate$ #1 nameptr large.number.blocksize - substring$ swap$
- nameptr large.number.blocksize - #1 + global.max$ substring$
- large.number.separator swap$ * *
- nameptr large.number.blocksize - 'numnames :=
- large.number.blocksize #1 + 'nameptr :=
- }
- { skip$ }
- if$
- }
- while$
- }
- % Converts all single dashes "-" to double dashes "--".
- FUNCTION {n.dashify}
- { large.number.separate
- '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$
- }
- % This function detects entries with names that are identical to that of
- % the previous entry and replaces the repeated names with dashes (if the
- % "is.dash.repeated.names" user control is nonzero).
- FUNCTION {name.or.dash}
- { 's :=
- oldname empty$
- { s 'oldname := s }
- { s oldname =
- { is.dash.repeated.names
- { repeated.name.dashes }
- { s 'oldname := s }
- if$
- }
- { s 'oldname := s }
- if$
- }
- if$
- }
- % Converts the number string on the top of the stack to
- % "numerical ordinal form" (e.g., "7" to "7th"). There is
- % no artificial limit to the upper bound of the numbers as the
- % least significant digit always determines the ordinal form.
- FUNCTION {num.to.ordinal}
- { duplicate$ #-1 #1 substring$ "1" =
- { bbl.st * }
- { duplicate$ #-1 #1 substring$ "2" =
- { bbl.nd * }
- { duplicate$ #-1 #1 substring$ "3" =
- { bbl.rd * }
- { bbl.th * }
- if$
- }
- if$
- }
- if$
- }
- % If the string on the top of the stack begins with a number,
- % (e.g., 11th) then replace the string with the leading number
- % it contains. Otherwise retain the string as-is. s holds the
- % extracted number, t holds the part of the string that remains
- % to be scanned.
- FUNCTION {extract.num}
- { duplicate$ 't :=
- "" 's :=
- { t empty$ not }
- { t #1 #1 substring$
- t #2 global.max$ substring$ 't :=
- duplicate$ is.num
- { s swap$ * 's := }
- { pop$ "" 't := }
- if$
- }
- while$
- s empty$
- 'skip$
- { pop$ s }
- if$
- }
- % Converts the word number string on the top of the stack to
- % Arabic string form. Will be successful up to "tenth".
- FUNCTION {word.to.num}
- { duplicate$ "l" change.case$ 's :=
- s "first" =
- { pop$ "1" }
- { skip$ }
- if$
- s "second" =
- { pop$ "2" }
- { skip$ }
- if$
- s "third" =
- { pop$ "3" }
- { skip$ }
- if$
- s "fourth" =
- { pop$ "4" }
- { skip$ }
- if$
- s "fifth" =
- { pop$ "5" }
- { skip$ }
- if$
- s "sixth" =
- { pop$ "6" }
- { skip$ }
- if$
- s "seventh" =
- { pop$ "7" }
- { skip$ }
- if$
- s "eighth" =
- { pop$ "8" }
- { skip$ }
- if$
- s "ninth" =
- { pop$ "9" }
- { skip$ }
- if$
- s "tenth" =
- { pop$ "10" }
- { skip$ }
- if$
- }
- % Converts the string on the top of the stack to numerical
- % ordinal (e.g., "11th") form.
- FUNCTION {convert.edition}
- { duplicate$ empty$ 'skip$
- { duplicate$ #1 #1 substring$ is.num
- { extract.num
- num.to.ordinal
- }
- { word.to.num
- duplicate$ #1 #1 substring$ is.num
- { num.to.ordinal }
- { "edition ordinal word " quote$ * edition * quote$ *
- " may be too high (or improper) for conversion" * " in " * cite$ * warning$
- }
- if$
- }
- if$
- }
- if$
- }
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- %% LATEX BIBLIOGRAPHY CODE %%
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- FUNCTION {start.entry}
- { newline$
- "\bibitem{" write$
- cite$ write$
- "}" write$
- newline$
- ""
- initialize.prev.this.status
- }
- % Here we write out all the LaTeX code that we will need. The most involved
- % code sequences are those that control the alternate interword spacing and
- % foreign language hyphenation patterns. The heavy use of \providecommand
- % gives users a way to override the defaults. Special thanks to Javier Bezos,
- % Johannes Braams, Robin Fairbairns, Heiko Oberdiek, Donald Arseneau and all
- % the other gurus on comp.text.tex for their help and advice on the topic of
- % \selectlanguage, Babel and BibTeX.
- FUNCTION {begin.bib}
- { "% Generated by IEEEtran.bst, version: " bst.file.version * " (" * bst.file.date * ")" *
- write$ newline$
- preamble$ empty$ 'skip$
- { preamble$ write$ newline$ }
- if$
- "\begin{thebibliography}{" longest.label * "}" *
- write$ newline$
- "\providecommand{\url}[1]{#1}"
- write$ newline$
- "\csname url@samestyle\endcsname"
- write$ newline$
- "\providecommand{\newblock}{\relax}"
- write$ newline$
- "\providecommand{\bibinfo}[2]{#2}"
- write$ newline$
- "\providecommand{\BIBentrySTDinterwordspacing}{\spaceskip=0pt\relax}"
- write$ newline$
- "\providecommand{\BIBentryALTinterwordstretchfactor}{"
- ALTinterwordstretchfactor * "}" *
- write$ newline$
- "\providecommand{\BIBentryALTinterwordspacing}{\spaceskip=\fontdimen2\font plus "
- write$ newline$
- "\BIBentryALTinterwordstretchfactor\fontdimen3\font minus \fontdimen4\font\relax}"
- write$ newline$
- "\providecommand{\BIBforeignlanguage}[2]{{%"
- write$ newline$
- "\expandafter\ifx\csname l@#1\endcsname\relax"
- write$ newline$
- "\typeout{** WARNING: IEEEtran.bst: No hyphenation pattern has been}%"
- write$ newline$
- "\typeout{** loaded for the language `#1'. Using the pattern for}%"
- write$ newline$
- "\typeout{** the default language instead.}%"
- write$ newline$
- "\else"
- write$ newline$
- "\language=\csname l@#1\endcsname"
- write$ newline$
- "\fi"
- write$ newline$
- "#2}}"
- write$ newline$
- "\providecommand{\BIBdecl}{\relax}"
- write$ newline$
- "\BIBdecl"
- write$ newline$
- }
- FUNCTION {end.bib}
- { newline$ "\end{thebibliography}" write$ newline$ }
- FUNCTION {if.url.alt.interword.spacing}
- { is.use.alt.interword.spacing
- {url empty$ 'skip$ {"\BIBentryALTinterwordspacing" write$ newline$} if$}
- { skip$ }
- if$
- }
- FUNCTION {if.url.std.interword.spacing}
- { is.use.alt.interword.spacing
- {url empty$ 'skip$ {"\BIBentrySTDinterwordspacing" write$ newline$} if$}
- { skip$ }
- if$
- }
- %%%%%%%%%%%%%%%%%%%%%%%%
- %% LONGEST LABEL PASS %%
- %%%%%%%%%%%%%%%%%%%%%%%%
- FUNCTION {initialize.longest.label}
- { "" 'longest.label :=
- #1 'number.label :=
- #0 'longest.label.width :=
- }
- FUNCTION {longest.label.pass}
- { type$ "ieeetranbstctl" =
- { skip$ }
- { 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$
- }
- if$
- }
- %%%%%%%%%%%%%%%%%%%%%
- %% FORMAT HANDLERS %%
- %%%%%%%%%%%%%%%%%%%%%
- %% Lower Level Formats (used by higher level formats)
- FUNCTION {format.address.org.or.pub.date}
- { 't :=
- ""
- year empty$
- { "empty year in " cite$ * warning$ }
- { skip$ }
- if$
- address empty$ t empty$ and
- year empty$ and month empty$ and
- { skip$ }
- { this.to.prev.status
- this.status.std
- cap.status.std
- address "address" bibinfo.check *
- t empty$
- { skip$ }
- { punct.period 'prev.status.punct :=
- space.large 'prev.status.space :=
- address empty$
- { skip$ }
- { ": " * }
- if$
- t *
- }
- if$
- year empty$ month empty$ and
- { skip$ }
- { t empty$ address empty$ and
- { skip$ }
- { ", " * }
- if$
- month empty$
- { year empty$
- { skip$ }
- { year "year" bibinfo.check * }
- if$
- }
- { month "month" bibinfo.check *
- year empty$
- { skip$ }
- { " " * year "year" bibinfo.check * }
- if$
- }
- if$
- }
- if$
- }
- if$
- }
- FUNCTION {format.names}
- { 'bibinfo :=
- duplicate$ empty$ 'skip$ {
- this.to.prev.status
- this.status.std
- 's :=
- "" 't :=
- #1 'nameptr :=
- s num.names$ 'numnames :=
- numnames 'namesleft :=
- { namesleft #0 > }
- { s nameptr
- name.format.string
- format.name$
- bibinfo bibinfo.check
- 't :=
- nameptr #1 >
- { nameptr num.names.shown.with.forced.et.al #1 + =
- numnames max.num.names.before.forced.et.al >
- is.forced.et.al and and
- { "others" 't :=
- #1 'namesleft :=
- }
- { skip$ }
- if$
- namesleft #1 >
- { ", " * t do.name.latex.cmd * }
- { s nameptr "{ll}" format.name$ duplicate$ "others" =
- { 't := }
- { pop$ }
- if$
- t "others" =
- { " " * bbl.etal emphasize * }
- { numnames #2 >
- { "," * }
- { skip$ }
- if$
- bbl.and
- space.word * t do.name.latex.cmd *
- }
- if$
- }
- if$
- }
- { t do.name.latex.cmd }
- if$
- nameptr #1 + 'nameptr :=
- namesleft #1 - 'namesleft :=
- }
- while$
- cap.status.std
- } if$
- }
- %% Higher Level Formats
- %% addresses/locations
- FUNCTION {format.address}
- { address duplicate$ empty$ 'skip$
- { this.to.prev.status
- this.status.std
- cap.status.std
- }
- if$
- }
- %% author/editor names
- FUNCTION {format.authors}{ author "author" format.names }
- FUNCTION {format.editors}
- { editor "editor" format.names duplicate$ empty$ 'skip$
- { ", " *
- get.bbl.editor
- capitalize
- *
- }
- if$
- }
- %% date
- FUNCTION {format.date}
- {
- month "month" bibinfo.check duplicate$ empty$
- year "year" bibinfo.check duplicate$ empty$
- { swap$ 'skip$
- { this.to.prev.status
- this.status.std
- cap.status.std
- "there's a month but no year in " cite$ * warning$ }
- if$
- *
- }
- { this.to.prev.status
- this.status.std
- cap.status.std
- swap$ 'skip$
- {
- swap$
- " " * swap$
- }
- if$
- *
- }
- if$
- }
- FUNCTION {format.date.electronic}
- { month "month" bibinfo.check duplicate$ empty$
- year "year" bibinfo.check duplicate$ empty$
- { swap$
- { pop$ }
- { "there's a month but no year in " cite$ * warning$
- pop$ ")" * "(" swap$ *
- this.to.prev.status
- punct.no 'this.status.punct :=
- space.normal 'this.status.space :=
- quote.no 'this.status.quote :=
- cap.yes 'status.cap :=
- }
- if$
- }
- { swap$
- { swap$ pop$ ")" * "(" swap$ * }
- { "(" swap$ * ", " * swap$ * ")" * }
- if$
- this.to.prev.status
- punct.no 'this.status.punct :=
- space.normal 'this.status.space :=
- quote.no 'this.status.quote :=
- cap.yes 'status.cap :=
- }
- if$
- }
- %% edition/title
- % Note: IEEE considers the edition to be closely associated with
- % the title of a book. So, in IEEEtran.bst the edition is normally handled
- % within the formatting of the title. The format.edition function is
- % retained here for possible future use.
- FUNCTION {format.edition}
- { edition duplicate$ empty$ 'skip$
- { this.to.prev.status
- this.status.std
- convert.edition
- status.cap
- { "t" }
- { "l" }
- if$ change.case$
- "edition" bibinfo.check
- "~" * bbl.edition *
- cap.status.std
- }
- if$
- }
- % This is used to format the booktitle of a conference proceedings.
- % Here we use the "intype" field to provide the user a way to
- % override the word "in" (e.g., with things like "presented at")
- % Use of intype stops the emphasis of the booktitle to indicate that
- % we no longer mean the written conference proceedings, but the
- % conference itself.
- FUNCTION {format.in.booktitle}
- { booktitle "booktitle" bibinfo.check duplicate$ empty$ 'skip$
- { this.to.prev.status
- this.status.std
- select.language
- intype missing$
- { emphasize
- bbl.in " " *
- }
- { intype " " * }
- if$
- swap$ *
- cap.status.std
- }
- if$
- }
- % This is used to format the booktitle of collection.
- % Here the "intype" field is not supported, but "edition" is.
- FUNCTION {format.in.booktitle.edition}
- { booktitle "booktitle" bibinfo.check duplicate$ empty$ 'skip$
- { this.to.prev.status
- this.status.std
- select.language
- emphasize
- edition empty$ 'skip$
- { ", " *
- edition
- convert.edition
- "l" change.case$
- * "~" * bbl.edition *
- }
- if$
- bbl.in " " * swap$ *
- cap.status.std
- }
- if$
- }
- FUNCTION {format.article.title}
- { title duplicate$ empty$ 'skip$
- { this.to.prev.status
- this.status.std
- "t" change.case$
- }
- if$
- "title" bibinfo.check
- duplicate$ empty$ 'skip$
- { quote.close 'this.status.quote :=
- is.last.char.not.punct
- { punct.std 'this.status.punct := }
- { punct.no 'this.status.punct := }
- if$
- select.language
- "``" swap$ *
- cap.status.std
- }
- if$
- }
- FUNCTION {format.article.title.electronic}
- { title duplicate$ empty$ 'skip$
- { this.to.prev.status
- this.status.std
- cap.status.std
- "t" change.case$
- }
- if$
- "title" bibinfo.check
- duplicate$ empty$
- { skip$ }
- { select.language }
- if$
- }
- FUNCTION {format.book.title.edition}
- { title "title" bibinfo.check
- duplicate$ empty$
- { "empty title in " cite$ * warning$ }
- { this.to.prev.status
- this.status.std
- select.language
- emphasize
- edition empty$ 'skip$
- { ", " *
- edition
- convert.edition
- status.cap
- { "t" }
- { "l" }
- if$
- change.case$
- * "~" * bbl.edition *
- }
- if$
- cap.status.std
- }
- if$
- }
- FUNCTION {format.book.title}
- { title "title" bibinfo.check
- duplicate$ empty$ 'skip$
- { this.to.prev.status
- this.status.std
- cap.status.std
- select.language
- emphasize
- }
- if$
- }
- %% journal
- FUNCTION {format.journal}
- { journal duplicate$ empty$ 'skip$
- { this.to.prev.status
- this.status.std
- cap.status.std
- select.language
- emphasize
- }
- if$
- }
- %% how published
- FUNCTION {format.howpublished}
- { howpublished duplicate$ empty$ 'skip$
- { this.to.prev.status
- this.status.std
- cap.status.std
- }
- if$
- }
- %% institutions/organization/publishers/school
- FUNCTION {format.institution}
- { institution duplicate$ empty$ 'skip$
- { this.to.prev.status
- this.status.std
- cap.status.std
- }
- if$
- }
- FUNCTION {format.organization}
- { organization duplicate$ empty$ 'skip$
- { this.to.prev.status
- this.status.std
- cap.status.std
- }
- if$
- }
- FUNCTION {format.address.publisher.date}
- { publisher "publisher" bibinfo.warn format.address.org.or.pub.date }
- FUNCTION {format.address.publisher.date.nowarn}
- { publisher "publisher" bibinfo.check format.address.org.or.pub.date }
- FUNCTION {format.address.organization.date}
- { organization "organization" bibinfo.check format.address.org.or.pub.date }
- FUNCTION {format.school}
- { school duplicate$ empty$ 'skip$
- { this.to.prev.status
- this.status.std
- cap.status.std
- }
- if$
- }
- %% volume/number/series/chapter/pages
- FUNCTION {format.volume}
- { volume empty.field.to.null.string
- duplicate$ empty$ 'skip$
- { this.to.prev.status
- this.status.std
- bbl.volume
- status.cap
- { capitalize }
- { skip$ }
- if$
- swap$ tie.or.space.prefix
- "volume" bibinfo.check
- * *
- cap.status.std
- }
- if$
- }
- FUNCTION {format.number}
- { number empty.field.to.null.string
- duplicate$ empty$ 'skip$
- { this.to.prev.status
- this.status.std
- status.cap
- { bbl.number capitalize }
- { bbl.number }
- if$
- swap$ tie.or.space.prefix
- "number" bibinfo.check
- * *
- cap.status.std
- }
- if$
- }
- FUNCTION {format.number.if.use.for.article}
- { is.use.number.for.article
- { format.number }
- { "" }
- if$
- }
- % IEEE does not seem to tie the series so closely with the volume
- % and number as is done in other bibliography styles. Instead the
- % series is treated somewhat like an extension of the title.
- FUNCTION {format.series}
- { series empty$
- { "" }
- { this.to.prev.status
- this.status.std
- bbl.series " " *
- series "series" bibinfo.check *
- cap.status.std
- }
- if$
- }
- FUNCTION {format.chapter}
- { chapter empty$
- { "" }
- { this.to.prev.status
- this.status.std
- type empty$
- { bbl.chapter }
- { type "l" change.case$
- "type" bibinfo.check
- }
- if$
- chapter tie.or.space.prefix
- "chapter" bibinfo.check
- * *
- cap.status.std
- }
- if$
- }
- % The intended use of format.paper is for paper numbers of inproceedings.
- % The paper type can be overridden via the type field.
- % We allow the type to be displayed even if the paper number is absent
- % for things like "postdeadline paper"
- FUNCTION {format.paper}
- { is.use.paper
- { paper empty$
- { type empty$
- { "" }
- { this.to.prev.status
- this.status.std
- type "type" bibinfo.check
- cap.status.std
- }
- if$
- }
- { this.to.prev.status
- this.status.std
- type empty$
- { bbl.paper }
- { type "type" bibinfo.check }
- if$
- " " * paper
- "paper" bibinfo.check
- *
- cap.status.std
- }
- if$
- }
- { "" }
- if$
- }
- FUNCTION {format.pages}
- { pages duplicate$ empty$ 'skip$
- { this.to.prev.status
- this.status.std
- duplicate$ is.multiple.pages
- {
- bbl.pages swap$
- n.dashify
- }
- {
- bbl.page swap$
- }
- if$
- tie.or.space.prefix
- "pages" bibinfo.check
- * *
- cap.status.std
- }
- if$
- }
- %% technical report number
- FUNCTION {format.tech.report.number}
- { number "number" bibinfo.check
- this.to.prev.status
- this.status.std
- cap.status.std
- type duplicate$ empty$
- { pop$
- bbl.techrep
- }
- { skip$ }
- if$
- "type" bibinfo.check
- swap$ duplicate$ empty$
- { pop$ }
- { tie.or.space.prefix * * }
- if$
- }
- %% note
- FUNCTION {format.note}
- { note empty$
- { "" }
- { this.to.prev.status
- this.status.std
- punct.period 'this.status.punct :=
- note #1 #1 substring$
- duplicate$ "{" =
- { skip$ }
- { status.cap
- { "u" }
- { "l" }
- if$
- change.case$
- }
- if$
- note #2 global.max$ substring$ * "note" bibinfo.check
- cap.yes 'status.cap :=
- }
- if$
- }
- %% patent
- FUNCTION {format.patent.date}
- { this.to.prev.status
- this.status.std
- year empty$
- { monthfiled duplicate$ empty$
- { "monthfiled" bibinfo.check pop$ "" }
- { "monthfiled" bibinfo.check }
- if$
- dayfiled duplicate$ empty$
- { "dayfiled" bibinfo.check pop$ "" * }
- { "dayfiled" bibinfo.check
- monthfiled empty$
- { "dayfiled without a monthfiled in " cite$ * warning$
- *
- }
- { " " swap$ * * }
- if$
- }
- if$
- yearfiled empty$
- { "no year or yearfiled in " cite$ * warning$ }
- { yearfiled "yearfiled" bibinfo.check
- swap$
- duplicate$ empty$
- { pop$ }
- { ", " * swap$ * }
- if$
- }
- if$
- }
- { month duplicate$ empty$
- { "month" bibinfo.check pop$ "" }
- { "month" bibinfo.check }
- if$
- day duplicate$ empty$
- { "day" bibinfo.check pop$ "" * }
- { "day" bibinfo.check
- month empty$
- { "day without a month in " cite$ * warning$
- *
- }
- { " " swap$ * * }
- if$
- }
- if$
- year "year" bibinfo.check
- swap$
- duplicate$ empty$
- { pop$ }
- { ", " * swap$ * }
- if$
- }
- if$
- cap.status.std
- }
- FUNCTION {format.patent.nationality.type.number}
- { this.to.prev.status
- this.status.std
- nationality duplicate$ empty$
- { "nationality" bibinfo.warn pop$ "" }
- { "nationality" bibinfo.check
- duplicate$ "l" change.case$ "united states" =
- { pop$ bbl.patentUS }
- { skip$ }
- if$
- " " *
- }
- if$
- type empty$
- { bbl.patent "type" bibinfo.check }
- { type "type" bibinfo.check }
- if$
- *
- number duplicate$ empty$
- { "number" bibinfo.warn pop$ }
- { "number" bibinfo.check
- large.number.separate
- swap$ " " * swap$ *
- }
- if$
- cap.status.std
- }
- %% standard
- FUNCTION {format.organization.institution.standard.type.number}
- { this.to.prev.status
- this.status.std
- organization duplicate$ empty$
- { pop$
- institution duplicate$ empty$
- { "institution" bibinfo.warn }
- { "institution" bibinfo.warn " " * }
- if$
- }
- { "organization" bibinfo.warn " " * }
- if$
- type empty$
- { bbl.standard "type" bibinfo.check }
- { type "type" bibinfo.check }
- if$
- *
- number duplicate$ empty$
- { "number" bibinfo.check pop$ }
- { "number" bibinfo.check
- large.number.separate
- swap$ " " * swap$ *
- }
- if$
- cap.status.std
- }
- FUNCTION {format.revision}
- { revision empty$
- { "" }
- { this.to.prev.status
- this.status.std
- bbl.revision
- revision tie.or.space.prefix
- "revision" bibinfo.check
- * *
- cap.status.std
- }
- if$
- }
- %% thesis
- FUNCTION {format.master.thesis.type}
- { this.to.prev.status
- this.status.std
- type empty$
- {
- bbl.mthesis
- }
- {
- type "type" bibinfo.check
- }
- if$
- cap.status.std
- }
- FUNCTION {format.phd.thesis.type}
- { this.to.prev.status
- this.status.std
- type empty$
- {
- bbl.phdthesis
- }
- {
- type "type" bibinfo.check
- }
- if$
- cap.status.std
- }
- %% URL
- FUNCTION {format.url}
- { url empty$
- { "" }
- { this.to.prev.status
- this.status.std
- cap.yes 'status.cap :=
- name.url.prefix " " *
- "\url{" * url * "}" *
- punct.no 'this.status.punct :=
- punct.period 'prev.status.punct :=
- space.normal 'this.status.space :=
- space.normal 'prev.status.space :=
- quote.no 'this.status.quote :=
- }
- if$
- }
- %%%%%%%%%%%%%%%%%%%%
- %% ENTRY HANDLERS %%
- %%%%%%%%%%%%%%%%%%%%
- % Note: In many journals, IEEE (or the authors) tend not to show the number
- % for articles, so the display of the number is controlled here by the
- % switch "is.use.number.for.article"
- FUNCTION {article}
- { std.status.using.comma
- start.entry
- if.url.alt.interword.spacing
- format.authors "author" output.warn
- name.or.dash
- format.article.title "title" output.warn
- format.journal "journal" bibinfo.check "journal" output.warn
- format.volume output
- format.number.if.use.for.article output
- format.pages output
- format.date "year" output.warn
- format.note output
- format.url output
- fin.entry
- if.url.std.interword.spacing
- }
- FUNCTION {book}
- { std.status.using.comma
- start.entry
- if.url.alt.interword.spacing
- author empty$
- { format.editors "author and editor" output.warn }
- { format.authors output.nonnull }
- if$
- name.or.dash
- format.book.title.edition output
- format.series output
- author empty$
- { skip$ }
- { format.editors output }
- if$
- format.address.publisher.date output
- format.volume output
- format.number output
- format.note output
- format.url output
- fin.entry
- if.url.std.interword.spacing
- }
- FUNCTION {booklet}
- { std.status.using.comma
- start.entry
- if.url.alt.interword.spacing
- format.authors output
- name.or.dash
- format.article.title "title" output.warn
- format.howpublished "howpublished" bibinfo.check output
- format.organization "organization" bibinfo.check output
- format.address "address" bibinfo.check output
- format.date output
- format.note output
- format.url output
- fin.entry
- if.url.std.interword.spacing
- }
- FUNCTION {electronic}
- { std.status.using.period
- start.entry
- if.url.alt.interword.spacing
- format.authors output
- name.or.dash
- format.date.electronic output
- format.article.title.electronic output
- format.howpublished "howpublished" bibinfo.check output
- format.organization "organization" bibinfo.check output
- format.address "address" bibinfo.check output
- format.note output
- format.url output
- fin.entry
- empty.entry.warn
- if.url.std.interword.spacing
- }
- FUNCTION {inbook}
- { std.status.using.comma
- start.entry
- if.url.alt.interword.spacing
- author empty$
- { format.editors "author and editor" output.warn }
- { format.authors output.nonnull }
- if$
- name.or.dash
- format.book.title.edition output
- format.series output
- format.address.publisher.date output
- format.volume output
- format.number output
- format.chapter output
- format.pages output
- format.note output
- format.url output
- fin.entry
- if.url.std.interword.spacing
- }
- FUNCTION {incollection}
- { std.status.using.comma
- start.entry
- if.url.alt.interword.spacing
- format.authors "author" output.warn
- name.or.dash
- format.article.title "title" output.warn
- format.in.booktitle.edition "booktitle" output.warn
- format.series output
- format.editors output
- format.address.publisher.date.nowarn output
- format.volume output
- format.number output
- format.chapter output
- format.pages output
- format.note output
- format.url output
- fin.entry
- if.url.std.interword.spacing
- }
- FUNCTION {inproceedings}
- { std.status.using.comma
- start.entry
- if.url.alt.interword.spacing
- format.authors "author" output.warn
- name.or.dash
- format.article.title "title" output.warn
- format.in.booktitle "booktitle" output.warn
- format.series output
- format.editors output
- format.volume output
- format.number output
- publisher empty$
- { format.address.organization.date output }
- { format.organization "organization" bibinfo.check output
- format.address.publisher.date output
- }
- if$
- format.paper output
- format.pages output
- format.note output
- format.url output
- fin.entry
- if.url.std.interword.spacing
- }
- FUNCTION {manual}
- { std.status.using.comma
- start.entry
- if.url.alt.interword.spacing
- format.authors output
- name.or.dash
- format.book.title.edition "title" output.warn
- format.howpublished "howpublished" bibinfo.check output
- format.organization "organization" bibinfo.check output
- format.address "address" bibinfo.check output
- format.date output
- format.note output
- format.url output
- fin.entry
- if.url.std.interword.spacing
- }
- FUNCTION {mastersthesis}
- { std.status.using.comma
- start.entry
- if.url.alt.interword.spacing
- format.authors "author" output.warn
- name.or.dash
- format.article.title "title" output.warn
- format.master.thesis.type output.nonnull
- format.school "school" bibinfo.warn output
- format.address "address" bibinfo.check output
- format.date "year" output.warn
- format.note output
- format.url output
- fin.entry
- if.url.std.interword.spacing
- }
- FUNCTION {misc}
- { std.status.using.comma
- start.entry
- if.url.alt.interword.spacing
- format.authors output
- name.or.dash
- format.article.title output
- format.howpublished "howpublished" bibinfo.check output
- format.organization "organization" bibinfo.check output
- format.address "address" bibinfo.check output
- format.pages output
- format.date output
- format.note output
- format.url output
- fin.entry
- empty.entry.warn
- if.url.std.interword.spacing
- }
- FUNCTION {patent}
- { std.status.using.comma
- start.entry
- if.url.alt.interword.spacing
- format.authors output
- name.or.dash
- format.article.title output
- format.patent.nationality.type.number output
- format.patent.date output
- format.note output
- format.url output
- fin.entry
- empty.entry.warn
- if.url.std.interword.spacing
- }
- FUNCTION {periodical}
- { std.status.using.comma
- start.entry
- if.url.alt.interword.spacing
- format.editors output
- name.or.dash
- format.book.title "title" output.warn
- format.series output
- format.volume output
- format.number output
- format.organization "organization" bibinfo.check output
- format.date "year" output.warn
- format.note output
- format.url output
- fin.entry
- if.url.std.interword.spacing
- }
- FUNCTION {phdthesis}
- { std.status.using.comma
- start.entry
- if.url.alt.interword.spacing
- format.authors "author" output.warn
- name.or.dash
- format.article.title "title" output.warn
- format.phd.thesis.type output.nonnull
- format.school "school" bibinfo.warn output
- format.address "address" bibinfo.check output
- format.date "year" output.warn
- format.note output
- format.url output
- fin.entry
- if.url.std.interword.spacing
- }
- FUNCTION {proceedings}
- { std.status.using.comma
- start.entry
- if.url.alt.interword.spacing
- format.editors output
- name.or.dash
- format.book.title "title" output.warn
- format.series output
- format.volume output
- format.number output
- publisher empty$
- { format.address.organization.date output }
- { format.organization "organization" bibinfo.check output
- format.address.publisher.date output
- }
- if$
- format.note output
- format.url output
- fin.entry
- if.url.std.interword.spacing
- }
- FUNCTION {standard}
- { std.status.using.comma
- start.entry
- if.url.alt.interword.spacing
- format.authors output
- name.or.dash
- format.book.title "title" output.warn
- format.howpublished "howpublished" bibinfo.check output
- format.organization.institution.standard.type.number output
- format.revision output
- format.date output
- format.note output
- format.url output
- fin.entry
- if.url.std.interword.spacing
- }
- FUNCTION {techreport}
- { std.status.using.comma
- start.entry
- if.url.alt.interword.spacing
- format.authors "author" output.warn
- name.or.dash
- format.article.title "title" output.warn
- format.howpublished "howpublished" bibinfo.check output
- format.institution "institution" bibinfo.warn output
- format.address "address" bibinfo.check output
- format.tech.report.number output.nonnull
- format.date "year" output.warn
- format.note output
- format.url output
- fin.entry
- if.url.std.interword.spacing
- }
- FUNCTION {unpublished}
- { std.status.using.comma
- start.entry
- if.url.alt.interword.spacing
- format.authors "author" output.warn
- name.or.dash
- format.article.title "title" output.warn
- format.date output
- format.note "note" output.warn
- format.url output
- fin.entry
- if.url.std.interword.spacing
- }
- % The special entry type which provides the user interface to the
- % BST controls
- FUNCTION {IEEEtranBSTCTL}
- { is.print.banners.to.terminal
- { "** IEEEtran BST control entry " quote$ * cite$ * quote$ * " detected." *
- top$
- }
- { skip$ }
- if$
- CTLuse_article_number
- empty$
- { skip$ }
- { CTLuse_article_number
- yes.no.to.int
- 'is.use.number.for.article :=
- }
- if$
- CTLuse_paper
- empty$
- { skip$ }
- { CTLuse_paper
- yes.no.to.int
- 'is.use.paper :=
- }
- if$
- CTLuse_forced_etal
- empty$
- { skip$ }
- { CTLuse_forced_etal
- yes.no.to.int
- 'is.forced.et.al :=
- }
- if$
- CTLmax_names_forced_etal
- empty$
- { skip$ }
- { CTLmax_names_forced_etal
- string.to.integer
- 'max.num.names.before.forced.et.al :=
- }
- if$
- CTLnames_show_etal
- empty$
- { skip$ }
- { CTLnames_show_etal
- string.to.integer
- 'num.names.shown.with.forced.et.al :=
- }
- if$
- CTLuse_alt_spacing
- empty$
- { skip$ }
- { CTLuse_alt_spacing
- yes.no.to.int
- 'is.use.alt.interword.spacing :=
- }
- if$
- CTLalt_stretch_factor
- empty$
- { skip$ }
- { CTLalt_stretch_factor
- 'ALTinterwordstretchfactor :=
- "\renewcommand{\BIBentryALTinterwordstretchfactor}{"
- ALTinterwordstretchfactor * "}" *
- write$ newline$
- }
- if$
- CTLdash_repeated_names
- empty$
- { skip$ }
- { CTLdash_repeated_names
- yes.no.to.int
- 'is.dash.repeated.names :=
- }
- if$
- CTLname_format_string
- empty$
- { skip$ }
- { CTLname_format_string
- 'name.format.string :=
- }
- if$
- CTLname_latex_cmd
- empty$
- { skip$ }
- { CTLname_latex_cmd
- 'name.latex.cmd :=
- }
- if$
- CTLname_url_prefix
- missing$
- { skip$ }
- { CTLname_url_prefix
- 'name.url.prefix :=
- }
- if$
- num.names.shown.with.forced.et.al max.num.names.before.forced.et.al >
- { "CTLnames_show_etal cannot be greater than CTLmax_names_forced_etal in " cite$ * warning$
- max.num.names.before.forced.et.al 'num.names.shown.with.forced.et.al :=
- }
- { skip$ }
- if$
- }
- %%%%%%%%%%%%%%%%%%%
- %% ENTRY ALIASES %%
- %%%%%%%%%%%%%%%%%%%
- FUNCTION {conference}{inproceedings}
- FUNCTION {online}{electronic}
- FUNCTION {internet}{electronic}
- FUNCTION {webpage}{electronic}
- FUNCTION {www}{electronic}
- FUNCTION {default.type}{misc}
- %%%%%%%%%%%%%%%%%%
- %% MAIN PROGRAM %%
- %%%%%%%%%%%%%%%%%%
- READ
- EXECUTE {initialize.controls}
- EXECUTE {initialize.status.constants}
- EXECUTE {banner.message}
- EXECUTE {initialize.longest.label}
- ITERATE {longest.label.pass}
- EXECUTE {begin.bib}
- ITERATE {call.type$}
- EXECUTE {end.bib}
- EXECUTE{completed.message}
- %% That's all folks, mds.
|