IEEEtran.bst

   1 %%\r
   2 %% IEEEtran.bst\r
   3 %% BibTeX Bibliography Style file for IEEE Journals and Conferences (unsorted)\r
   4 %% Version 1.13 (2008/09/30)\r
   5 %% \r
   6 %% Copyright (c) 2003-2008 Michael Shell\r
   7 %% \r
   8 %% Original starting code base and algorithms obtained from the output of\r
   9 %% Patrick W. Daly's makebst package as well as from prior versions of\r
  10 %% IEEE BibTeX styles:\r
  11 %% \r
  12 %% 1. Howard Trickey and Oren Patashnik's ieeetr.bst  (1985/1988)\r
  13 %% 2. Silvano Balemi and Richard H. Roy's IEEEbib.bst (1993)\r
  14 %% \r
  15 %% Support sites:\r
  16 %% http://www.michaelshell.org/tex/ieeetran/\r
  17 %% http://www.ctan.org/tex-archive/macros/latex/contrib/IEEEtran/\r
  18 %% and/or\r
  19 %% http://www.ieee.org/\r
  20 %% \r
  21 %% For use with BibTeX version 0.99a or later\r
  22 %%\r
  23 %% This is a numerical citation style.\r
  24 %% \r
  25 %%*************************************************************************\r
  26 %% Legal Notice:\r
  27 %% This code is offered as-is without any warranty either expressed or\r
  28 %% implied; without even the implied warranty of MERCHANTABILITY or\r
  29 %% FITNESS FOR A PARTICULAR PURPOSE! \r
  30 %% User assumes all risk.\r
  31 %% In no event shall IEEE or any contributor to this code be liable for\r
  32 %% any damages or losses, including, but not limited to, incidental,\r
  33 %% consequential, or any other damages, resulting from the use or misuse\r
  34 %% of any information contained here.\r
  35 %%\r
  36 %% All comments are the opinions of their respective authors and are not\r
  37 %% necessarily endorsed by the IEEE.\r
  38 %%\r
  39 %% This work is distributed under the LaTeX Project Public License (LPPL)\r
  40 %% ( http://www.latex-project.org/ ) version 1.3, and may be freely used,\r
  41 %% distributed and modified. A copy of the LPPL, version 1.3, is included\r
  42 %% in the base LaTeX documentation of all distributions of LaTeX released\r
  43 %% 2003/12/01 or later.\r
  44 %% Retain all contribution notices and credits.\r
  45 %% ** Modified files should be clearly indicated as such, including  **\r
  46 %% ** renaming them and changing author support contact information. **\r
  47 %%\r
  48 %% File list of work: IEEEabrv.bib, IEEEfull.bib, IEEEexample.bib,\r
  49 %%                    IEEEtran.bst, IEEEtranS.bst, IEEEtranSA.bst,\r
  50 %%                    IEEEtranN.bst, IEEEtranSN.bst, IEEEtran_bst_HOWTO.pdf\r
  51 %%*************************************************************************\r
  52 %\r
  53 %\r
  54 % Changelog:\r
  55 %\r
  56 % 1.00 (2002/08/13) Initial release\r
  57 %\r
  58 % 1.10 (2002/09/27)\r
  59 %  1. Corrected minor bug for improperly formed warning message when a\r
  60 %     book was not given a title. Thanks to Ming Kin Lai for reporting this.\r
  61 %  2. Added support for CTLname_format_string and CTLname_latex_cmd fields\r
  62 %     in the BST control entry type.\r
  63 %\r
  64 % 1.11 (2003/04/02)\r
  65 %  1. Fixed bug with URLs containing underscores when using url.sty. Thanks\r
  66 %     to Ming Kin Lai for reporting this.\r
  67 %\r
  68 % 1.12 (2007/01/11)\r
  69 %  1. Fixed bug with unwanted comma before "et al." when an entry contained\r
  70 %     more than two author names. Thanks to Pallav Gupta for reporting this.\r
  71 %  2. Fixed bug with anomalous closing quote in tech reports that have a\r
  72 %     type, but without a number or address. Thanks to Mehrdad Mirreza for\r
  73 %     reporting this.\r
  74 %  3. Use braces in \providecommand in begin.bib to better support\r
  75 %     latex2html. TeX style length assignments OK with recent versions\r
  76 %     of latex2html - 1.71 (2002/2/1) or later is strongly recommended.\r
  77 %     Use of the language field still causes trouble with latex2html.\r
  78 %     Thanks to Federico Beffa for reporting this.\r
  79 %  4. Added IEEEtran.bst ID and version comment string to .bbl output.\r
  80 %  5. Provide a \BIBdecl hook that allows the user to execute commands\r
  81 %     just prior to the first entry.\r
  82 %  6. Use default urlstyle (is using url.sty) of "same" rather than rm to\r
  83 %     better work with a wider variety of bibliography styles.\r
  84 %  7. Changed month abbreviations from Sept., July and June to Sep., Jul.,\r
  85 %     and Jun., respectively, as IEEE now does. Thanks to Moritz Borgmann\r
  86 %     for reporting this.\r
  87 %  8. Control entry types should not be considered when calculating longest\r
  88 %     label width.\r
  89 %  9. Added alias www for electronic/online.\r
  90 % 10. Added CTLname_url_prefix control entry type.\r
  91 %\r
  92 % 1.13 (2008/09/30)\r
  93 %  1. Fixed bug with edition number to ordinal conversion. Thanks to\r
  94 %     Michael Roland for reporting this and correcting the algorithm.\r
  95 \r
  96 \r
  97 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\r
  98 %% DEFAULTS FOR THE CONTROLS OF THE BST STYLE %%\r
  99 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\r
 100 \r
 101 % These are the defaults for the user adjustable controls. The values used\r
 102 % here can be overridden by the user via IEEEtranBSTCTL entry type.\r
 103 \r
 104 % NOTE: The recommended LaTeX command to invoke a control entry type is:\r
 105 % \r
 106 %\makeatletter\r
 107 %\def\bstctlcite{\@ifnextchar[{\@bstctlcite}{\@bstctlcite[@auxout]}}\r
 108 %\def\@bstctlcite[#1]#2{\@bsphack\r
 109 %  \@for\@citeb:=#2\do{%\r
 110 %    \edef\@citeb{\expandafter\@firstofone\@citeb}%\r
 111 %    \if@filesw\immediate\write\csname #1\endcsname{\string\citation{\@citeb}}\fi}%\r
 112 %  \@esphack}\r
 113 %\makeatother\r
 114 %\r
 115 % It is called at the start of the document, before the first \cite, like:\r
 116 % \bstctlcite{IEEEexample:BSTcontrol}\r
 117 %\r
 118 % IEEEtran.cls V1.6 and later does provide this command.\r
 119 \r
 120 \r
 121 \r
 122 % #0 turns off the display of the number for articles.\r
 123 % #1 enables\r
 124 FUNCTION {default.is.use.number.for.article} { #1 }\r
 125 \r
 126 \r
 127 % #0 turns off the display of the paper and type fields in @inproceedings.\r
 128 % #1 enables\r
 129 FUNCTION {default.is.use.paper} { #1 }\r
 130 \r
 131 \r
 132 % #0 turns off the forced use of "et al."\r
 133 % #1 enables\r
 134 FUNCTION {default.is.forced.et.al} { #0 }\r
 135 \r
 136 % The maximum number of names that can be present beyond which an "et al."\r
 137 % usage is forced. Be sure that num.names.shown.with.forced.et.al (below)\r
 138 % is not greater than this value!\r
 139 % Note: There are many instances of references in IEEE journals which have\r
 140 % a very large number of authors as well as instances in which "et al." is\r
 141 % used profusely.\r
 142 FUNCTION {default.max.num.names.before.forced.et.al} { #10 }\r
 143 \r
 144 % The number of names that will be shown with a forced "et al.".\r
 145 % Must be less than or equal to max.num.names.before.forced.et.al\r
 146 FUNCTION {default.num.names.shown.with.forced.et.al} { #1 }\r
 147 \r
 148 \r
 149 % #0 turns off the alternate interword spacing for entries with URLs.\r
 150 % #1 enables\r
 151 FUNCTION {default.is.use.alt.interword.spacing} { #1 }\r
 152 \r
 153 % If alternate interword spacing for entries with URLs is enabled, this is\r
 154 % the interword spacing stretch factor that will be used. For example, the\r
 155 % default "4" here means that the interword spacing in entries with URLs can\r
 156 % stretch to four times normal. Does not have to be an integer. Note that\r
 157 % the value specified here can be overridden by the user in their LaTeX\r
 158 % code via a command such as: \r
 159 % "\providecommand\BIBentryALTinterwordstretchfactor{1.5}" in addition to\r
 160 % that via the IEEEtranBSTCTL entry type.\r
 161 FUNCTION {default.ALTinterwordstretchfactor} { "4" }\r
 162 \r
 163 \r
 164 % #0 turns off the "dashification" of repeated (i.e., identical to those\r
 165 % of the previous entry) names. IEEE normally does this.\r
 166 % #1 enables\r
 167 FUNCTION {default.is.dash.repeated.names} { #1 }\r
 168 \r
 169 \r
 170 % The default name format control string.\r
 171 FUNCTION {default.name.format.string}{ "{f.~}{vv~}{ll}{, jj}" }\r
 172 \r
 173 \r
 174 % The default LaTeX font command for the names.\r
 175 FUNCTION {default.name.latex.cmd}{ "" }\r
 176 \r
 177 \r
 178 % The default URL prefix.\r
 179 FUNCTION {default.name.url.prefix}{ "[Online]. Available:" }\r
 180 \r
 181 \r
 182 % Other controls that cannot be accessed via IEEEtranBSTCTL entry type.\r
 183 \r
 184 % #0 turns off the terminal startup banner/completed message so as to\r
 185 % operate more quietly.\r
 186 % #1 enables\r
 187 FUNCTION {is.print.banners.to.terminal} { #1 }\r
 188 \r
 189 \r
 190 \r
 191 \r
 192 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%\r
 193 %% FILE VERSION AND BANNER %%\r
 194 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%\r
 195 \r
 196 FUNCTION{bst.file.version} { "1.13" }\r
 197 FUNCTION{bst.file.date} { "2008/09/30" }\r
 198 FUNCTION{bst.file.website} { "http://www.michaelshell.org/tex/ieeetran/bibtex/" }\r
 199 \r
 200 FUNCTION {banner.message}\r
 201 { is.print.banners.to.terminal\r
 202      { "-- IEEEtran.bst version" " " * bst.file.version *\r
 203        " (" * bst.file.date * ") " * "by Michael Shell." *\r
 204        top$\r
 205        "-- " bst.file.website *\r
 206        top$\r
 207        "-- See the " quote$ * "IEEEtran_bst_HOWTO.pdf" * quote$ * " manual for usage information." *\r
 208        top$\r
 209      }\r
 210      { skip$ }\r
 211    if$\r
 212 }\r
 213 \r
 214 FUNCTION {completed.message}\r
 215 { is.print.banners.to.terminal\r
 216      { ""\r
 217        top$\r
 218        "Done."\r
 219        top$\r
 220      }\r
 221      { skip$ }\r
 222    if$\r
 223 }\r
 224 \r
 225 \r
 226 \r
 227 \r
 228 %%%%%%%%%%%%%%%%%%%%%%\r
 229 %% STRING CONSTANTS %%\r
 230 %%%%%%%%%%%%%%%%%%%%%%\r
 231 \r
 232 FUNCTION {bbl.and}{ "and" }\r
 233 FUNCTION {bbl.etal}{ "et~al." }\r
 234 FUNCTION {bbl.editors}{ "eds." }\r
 235 FUNCTION {bbl.editor}{ "ed." }\r
 236 FUNCTION {bbl.edition}{ "ed." }\r
 237 FUNCTION {bbl.volume}{ "vol." }\r
 238 FUNCTION {bbl.of}{ "of" }\r
 239 FUNCTION {bbl.number}{ "no." }\r
 240 FUNCTION {bbl.in}{ "in" }\r
 241 FUNCTION {bbl.pages}{ "pp." }\r
 242 FUNCTION {bbl.page}{ "p." }\r
 243 FUNCTION {bbl.chapter}{ "ch." }\r
 244 FUNCTION {bbl.paper}{ "paper" }\r
 245 FUNCTION {bbl.part}{ "pt." }\r
 246 FUNCTION {bbl.patent}{ "Patent" }\r
 247 FUNCTION {bbl.patentUS}{ "U.S." }\r
 248 FUNCTION {bbl.revision}{ "Rev." }\r
 249 FUNCTION {bbl.series}{ "ser." }\r
 250 FUNCTION {bbl.standard}{ "Std." }\r
 251 FUNCTION {bbl.techrep}{ "Tech. Rep." }\r
 252 FUNCTION {bbl.mthesis}{ "Master's thesis" }\r
 253 FUNCTION {bbl.phdthesis}{ "Ph.D. dissertation" }\r
 254 FUNCTION {bbl.st}{ "st" }\r
 255 FUNCTION {bbl.nd}{ "nd" }\r
 256 FUNCTION {bbl.rd}{ "rd" }\r
 257 FUNCTION {bbl.th}{ "th" }\r
 258 \r
 259 \r
 260 % This is the LaTeX spacer that is used when a larger than normal space\r
 261 % is called for (such as just before the address:publisher).\r
 262 FUNCTION {large.space} { "\hskip 1em plus 0.5em minus 0.4em\relax " }\r
 263 \r
 264 % The LaTeX code for dashes that are used to represent repeated names.\r
 265 % Note: Some older IEEE journals used something like\r
 266 % "\rule{0.275in}{0.5pt}\," which is fairly thick and runs right along\r
 267 % the baseline. However, IEEE now uses a thinner, above baseline,\r
 268 % six dash long sequence.\r
 269 FUNCTION {repeated.name.dashes} { "------" }\r
 270 \r
 271 \r
 272 \r
 273 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\r
 274 %% PREDEFINED STRING MACROS %%\r
 275 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\r
 276 \r
 277 MACRO {jan} {"Jan."}\r
 278 MACRO {feb} {"Feb."}\r
 279 MACRO {mar} {"Mar."}\r
 280 MACRO {apr} {"Apr."}\r
 281 MACRO {may} {"May"}\r
 282 MACRO {jun} {"Jun."}\r
 283 MACRO {jul} {"Jul."}\r
 284 MACRO {aug} {"Aug."}\r
 285 MACRO {sep} {"Sep."}\r
 286 MACRO {oct} {"Oct."}\r
 287 MACRO {nov} {"Nov."}\r
 288 MACRO {dec} {"Dec."}\r
 289 \r
 290 \r
 291 \r
 292 %%%%%%%%%%%%%%%%%%\r
 293 %% ENTRY FIELDS %%\r
 294 %%%%%%%%%%%%%%%%%%\r
 295 \r
 296 ENTRY\r
 297   { address\r
 298     assignee\r
 299     author\r
 300     booktitle\r
 301     chapter\r
 302     day\r
 303     dayfiled\r
 304     edition\r
 305     editor\r
 306     howpublished\r
 307     institution\r
 308     intype\r
 309     journal\r
 310     key\r
 311     language\r
 312     month\r
 313     monthfiled\r
 314     nationality\r
 315     note\r
 316     number\r
 317     organization\r
 318     pages\r
 319     paper\r
 320     publisher\r
 321     school\r
 322     series\r
 323     revision\r
 324     title\r
 325     type\r
 326     url\r
 327     volume\r
 328     year\r
 329     yearfiled\r
 330     CTLuse_article_number\r
 331     CTLuse_paper\r
 332     CTLuse_forced_etal\r
 333     CTLmax_names_forced_etal\r
 334     CTLnames_show_etal\r
 335     CTLuse_alt_spacing\r
 336     CTLalt_stretch_factor\r
 337     CTLdash_repeated_names\r
 338     CTLname_format_string\r
 339     CTLname_latex_cmd\r
 340     CTLname_url_prefix\r
 341   }\r
 342   {}\r
 343   { label }\r
 344 \r
 345 \r
 346 \r
 347 \r
 348 %%%%%%%%%%%%%%%%%%%%%%%\r
 349 %% INTEGER VARIABLES %%\r
 350 %%%%%%%%%%%%%%%%%%%%%%%\r
 351 \r
 352 INTEGERS { prev.status.punct this.status.punct punct.std\r
 353            punct.no punct.comma punct.period \r
 354            prev.status.space this.status.space space.std\r
 355            space.no space.normal space.large\r
 356            prev.status.quote this.status.quote quote.std\r
 357            quote.no quote.close\r
 358            prev.status.nline this.status.nline nline.std\r
 359            nline.no nline.newblock \r
 360            status.cap cap.std\r
 361            cap.no cap.yes}\r
 362 \r
 363 INTEGERS { longest.label.width multiresult nameptr namesleft number.label numnames }\r
 364 \r
 365 INTEGERS { is.use.number.for.article\r
 366            is.use.paper\r
 367            is.forced.et.al\r
 368            max.num.names.before.forced.et.al\r
 369            num.names.shown.with.forced.et.al\r
 370            is.use.alt.interword.spacing\r
 371            is.dash.repeated.names}\r
 372 \r
 373 \r
 374 %%%%%%%%%%%%%%%%%%%%%%\r
 375 %% STRING VARIABLES %%\r
 376 %%%%%%%%%%%%%%%%%%%%%%\r
 377 \r
 378 STRINGS { bibinfo\r
 379           longest.label\r
 380           oldname\r
 381           s\r
 382           t\r
 383           ALTinterwordstretchfactor\r
 384           name.format.string\r
 385           name.latex.cmd\r
 386           name.url.prefix}\r
 387 \r
 388 \r
 389 \r
 390 \r
 391 %%%%%%%%%%%%%%%%%%%%%%%%%\r
 392 %% LOW LEVEL FUNCTIONS %%\r
 393 %%%%%%%%%%%%%%%%%%%%%%%%%\r
 394 \r
 395 FUNCTION {initialize.controls}\r
 396 { default.is.use.number.for.article 'is.use.number.for.article :=\r
 397   default.is.use.paper 'is.use.paper :=\r
 398   default.is.forced.et.al 'is.forced.et.al :=\r
 399   default.max.num.names.before.forced.et.al 'max.num.names.before.forced.et.al :=\r
 400   default.num.names.shown.with.forced.et.al 'num.names.shown.with.forced.et.al :=\r
 401   default.is.use.alt.interword.spacing 'is.use.alt.interword.spacing :=\r
 402   default.is.dash.repeated.names 'is.dash.repeated.names :=\r
 403   default.ALTinterwordstretchfactor 'ALTinterwordstretchfactor :=\r
 404   default.name.format.string 'name.format.string :=\r
 405   default.name.latex.cmd 'name.latex.cmd :=\r
 406   default.name.url.prefix 'name.url.prefix :=\r
 407 }\r
 408 \r
 409 \r
 410 % This IEEEtran.bst features a very powerful and flexible mechanism for\r
 411 % controlling the capitalization, punctuation, spacing, quotation, and\r
 412 % newlines of the formatted entry fields. (Note: IEEEtran.bst does not need\r
 413 % or use the newline/newblock feature, but it has been implemented for\r
 414 % possible future use.) The output states of IEEEtran.bst consist of\r
 415 % multiple independent attributes and, as such, can be thought of as being\r
 416 % vectors, rather than the simple scalar values ("before.all", \r
 417 % "mid.sentence", etc.) used in most other .bst files.\r
 418 % \r
 419 % The more flexible and complex design used here was motivated in part by\r
 420 % IEEE's rather unusual bibliography style. For example, IEEE ends the\r
 421 % previous field item with a period and large space prior to the publisher\r
 422 % address; the @electronic entry types use periods as inter-item punctuation\r
 423 % rather than the commas used by the other entry types; and URLs are never\r
 424 % followed by periods even though they are the last item in the entry.\r
 425 % Although it is possible to accommodate these features with the conventional\r
 426 % output state system, the seemingly endless exceptions make for convoluted,\r
 427 % unreliable and difficult to maintain code.\r
 428 %\r
 429 % IEEEtran.bst's output state system can be easily understood via a simple\r
 430 % illustration of two most recently formatted entry fields (on the stack):\r
 431 %\r
 432 %               CURRENT_ITEM\r
 433 %               "PREVIOUS_ITEM\r
 434 %\r
 435 % which, in this example, is to eventually appear in the bibliography as:\r
 436 % \r
 437 %               "PREVIOUS_ITEM," CURRENT_ITEM\r
 438 %\r
 439 % It is the job of the output routine to take the previous item off of the\r
 440 % stack (while leaving the current item at the top of the stack), apply its\r
 441 % trailing punctuation (including closing quote marks) and spacing, and then\r
 442 % to write the result to BibTeX's output buffer:\r
 443 % \r
 444 %               "PREVIOUS_ITEM," \r
 445 % \r
 446 % Punctuation (and spacing) between items is often determined by both of the\r
 447 % items rather than just the first one. The presence of quotation marks\r
 448 % further complicates the situation because, in standard English, trailing\r
 449 % punctuation marks are supposed to be contained within the quotes.\r
 450 % \r
 451 % IEEEtran.bst maintains two output state (aka "status") vectors which\r
 452 % correspond to the previous and current (aka "this") items. Each vector\r
 453 % consists of several independent attributes which track punctuation,\r
 454 % spacing, quotation, and newlines. Capitalization status is handled by a\r
 455 % separate scalar because the format routines, not the output routine,\r
 456 % handle capitalization and, therefore, there is no need to maintain the\r
 457 % capitalization attribute for both the "previous" and "this" items.\r
 458 % \r
 459 % When a format routine adds a new item, it copies the current output status\r
 460 % vector to the previous output status vector and (usually) resets the\r
 461 % current (this) output status vector to a "standard status" vector. Using a\r
 462 % "standard status" vector in this way allows us to redefine what we mean by\r
 463 % "standard status" at the start of each entry handler and reuse the same\r
 464 % format routines under the various inter-item separation schemes. For\r
 465 % example, the standard status vector for the @book entry type may use\r
 466 % commas for item separators, while the @electronic type may use periods,\r
 467 % yet both entry handlers exploit many of the exact same format routines.\r
 468 % \r
 469 % Because format routines have write access to the output status vector of\r
 470 % the previous item, they can override the punctuation choices of the\r
 471 % previous format routine! Therefore, it becomes trivial to implement rules\r
 472 % such as "Always use a period and a large space before the publisher." By\r
 473 % pushing the generation of the closing quote mark to the output routine, we\r
 474 % avoid all the problems caused by having to close a quote before having all\r
 475 % the information required to determine what the punctuation should be.\r
 476 %\r
 477 % The IEEEtran.bst output state system can easily be expanded if needed.\r
 478 % For instance, it is easy to add a "space.tie" attribute value if the\r
 479 % bibliography rules mandate that two items have to be joined with an\r
 480 % unbreakable space. \r
 481 \r
 482 FUNCTION {initialize.status.constants}\r
 483 { #0 'punct.no :=\r
 484   #1 'punct.comma :=\r
 485   #2 'punct.period :=\r
 486   #0 'space.no := \r
 487   #1 'space.normal :=\r
 488   #2 'space.large :=\r
 489   #0 'quote.no :=\r
 490   #1 'quote.close :=\r
 491   #0 'cap.no :=\r
 492   #1 'cap.yes :=\r
 493   #0 'nline.no :=\r
 494   #1 'nline.newblock :=\r
 495 }\r
 496 \r
 497 FUNCTION {std.status.using.comma}\r
 498 { punct.comma 'punct.std :=\r
 499   space.normal 'space.std :=\r
 500   quote.no 'quote.std :=\r
 501   nline.no 'nline.std :=\r
 502   cap.no 'cap.std :=\r
 503 }\r
 504 \r
 505 FUNCTION {std.status.using.period}\r
 506 { punct.period 'punct.std :=\r
 507   space.normal 'space.std :=\r
 508   quote.no 'quote.std :=\r
 509   nline.no 'nline.std :=\r
 510   cap.yes 'cap.std :=\r
 511 }\r
 512 \r
 513 FUNCTION {initialize.prev.this.status}\r
 514 { punct.no 'prev.status.punct :=\r
 515   space.no 'prev.status.space :=\r
 516   quote.no 'prev.status.quote :=\r
 517   nline.no 'prev.status.nline :=\r
 518   punct.no 'this.status.punct :=\r
 519   space.no 'this.status.space :=\r
 520   quote.no 'this.status.quote :=\r
 521   nline.no 'this.status.nline :=\r
 522   cap.yes 'status.cap :=\r
 523 }\r
 524 \r
 525 FUNCTION {this.status.std}\r
 526 { punct.std 'this.status.punct :=\r
 527   space.std 'this.status.space :=\r
 528   quote.std 'this.status.quote :=\r
 529   nline.std 'this.status.nline :=\r
 530 }\r
 531 \r
 532 FUNCTION {cap.status.std}{ cap.std 'status.cap := }\r
 533 \r
 534 FUNCTION {this.to.prev.status}\r
 535 { this.status.punct 'prev.status.punct :=\r
 536   this.status.space 'prev.status.space :=\r
 537   this.status.quote 'prev.status.quote :=\r
 538   this.status.nline 'prev.status.nline :=\r
 539 }\r
 540 \r
 541 \r
 542 FUNCTION {not}\r
 543 {   { #0 }\r
 544     { #1 }\r
 545   if$\r
 546 }\r
 547 \r
 548 FUNCTION {and}\r
 549 {   { skip$ }\r
 550     { pop$ #0 }\r
 551   if$\r
 552 }\r
 553 \r
 554 FUNCTION {or}\r
 555 {   { pop$ #1 }\r
 556     { skip$ }\r
 557   if$\r
 558 }\r
 559 \r
 560 \r
 561 % convert the strings "yes" or "no" to #1 or #0 respectively\r
 562 FUNCTION {yes.no.to.int}\r
 563 { "l" change.case$ duplicate$\r
 564     "yes" =\r
 565     { pop$  #1 }\r
 566     { duplicate$ "no" =\r
 567         { pop$ #0 }\r
 568         { "unknown boolean " quote$ * swap$ * quote$ *\r
 569           " in " * cite$ * warning$\r
 570           #0\r
 571         }\r
 572       if$\r
 573     }\r
 574   if$\r
 575 }\r
 576 \r
 577 \r
 578 % pushes true if the single char string on the stack is in the\r
 579 % range of "0" to "9"\r
 580 FUNCTION {is.num}\r
 581 { chr.to.int$\r
 582   duplicate$ "0" chr.to.int$ < not\r
 583   swap$ "9" chr.to.int$ > not and\r
 584 }\r
 585 \r
 586 % multiplies the integer on the stack by a factor of 10\r
 587 FUNCTION {bump.int.mag}\r
 588 { #0 'multiresult :=\r
 589     { duplicate$ #0 > }\r
 590     { #1 -\r
 591       multiresult #10 +\r
 592       'multiresult :=\r
 593     }\r
 594   while$\r
 595 pop$\r
 596 multiresult\r
 597 }\r
 598 \r
 599 % converts a single character string on the stack to an integer\r
 600 FUNCTION {char.to.integer}\r
 601 { duplicate$ \r
 602   is.num\r
 603     { chr.to.int$ "0" chr.to.int$ - }\r
 604     {"noninteger character " quote$ * swap$ * quote$ *\r
 605           " in integer field of " * cite$ * warning$\r
 606     #0\r
 607     }\r
 608   if$\r
 609 }\r
 610 \r
 611 % converts a string on the stack to an integer\r
 612 FUNCTION {string.to.integer}\r
 613 { duplicate$ text.length$ 'namesleft :=\r
 614   #1 'nameptr :=\r
 615   #0 'numnames :=\r
 616     { nameptr namesleft > not }\r
 617     { duplicate$ nameptr #1 substring$\r
 618       char.to.integer numnames bump.int.mag +\r
 619       'numnames :=\r
 620       nameptr #1 +\r
 621       'nameptr :=\r
 622     }\r
 623   while$\r
 624 pop$\r
 625 numnames\r
 626 }\r
 627 \r
 628 \r
 629 \r
 630 \r
 631 % The output routines write out the *next* to the top (previous) item on the\r
 632 % stack, adding punctuation and such as needed. Since IEEEtran.bst maintains\r
 633 % the output status for the top two items on the stack, these output\r
 634 % routines have to consider the previous output status (which corresponds to\r
 635 % the item that is being output). Full independent control of punctuation,\r
 636 % closing quote marks, spacing, and newblock is provided.\r
 637 % \r
 638 % "output.nonnull" does not check for the presence of a previous empty\r
 639 % item.\r
 640 % \r
 641 % "output" does check for the presence of a previous empty item and will\r
 642 % remove an empty item rather than outputing it.\r
 643 % \r
 644 % "output.warn" is like "output", but will issue a warning if it detects\r
 645 % an empty item.\r
 646 \r
 647 FUNCTION {output.nonnull}\r
 648 { swap$\r
 649   prev.status.punct punct.comma =\r
 650      { "," * }\r
 651      { skip$ }\r
 652    if$\r
 653   prev.status.punct punct.period =\r
 654      { add.period$ }\r
 655      { skip$ }\r
 656    if$ \r
 657   prev.status.quote quote.close =\r
 658      { "''" * }\r
 659      { skip$ }\r
 660    if$\r
 661   prev.status.space space.normal =\r
 662      { " " * }\r
 663      { skip$ }\r
 664    if$\r
 665   prev.status.space space.large =\r
 666      { large.space * }\r
 667      { skip$ }\r
 668    if$\r
 669   write$\r
 670   prev.status.nline nline.newblock =\r
 671      { newline$ "\newblock " write$ }\r
 672      { skip$ }\r
 673    if$\r
 674 }\r
 675 \r
 676 FUNCTION {output}\r
 677 { duplicate$ empty$\r
 678     'pop$\r
 679     'output.nonnull\r
 680   if$\r
 681 }\r
 682 \r
 683 FUNCTION {output.warn}\r
 684 { 't :=\r
 685   duplicate$ empty$\r
 686     { pop$ "empty " t * " in " * cite$ * warning$ }\r
 687     'output.nonnull\r
 688   if$\r
 689 }\r
 690 \r
 691 % "fin.entry" is the output routine that handles the last item of the entry\r
 692 % (which will be on the top of the stack when "fin.entry" is called).\r
 693 \r
 694 FUNCTION {fin.entry}\r
 695 { this.status.punct punct.no =\r
 696      { skip$ }\r
 697      { add.period$ }\r
 698    if$\r
 699    this.status.quote quote.close =\r
 700      { "''" * }\r
 701      { skip$ }\r
 702    if$\r
 703 write$\r
 704 newline$\r
 705 }\r
 706 \r
 707 \r
 708 FUNCTION {is.last.char.not.punct}\r
 709 { duplicate$\r
 710    "}" * add.period$\r
 711    #-1 #1 substring$ "." =\r
 712 }\r
 713 \r
 714 FUNCTION {is.multiple.pages}\r
 715 { 't :=\r
 716   #0 'multiresult :=\r
 717     { multiresult not\r
 718       t empty$ not\r
 719       and\r
 720     }\r
 721     { t #1 #1 substring$\r
 722       duplicate$ "-" =\r
 723       swap$ duplicate$ "," =\r
 724       swap$ "+" =\r
 725       or or\r
 726         { #1 'multiresult := }\r
 727         { t #2 global.max$ substring$ 't := }\r
 728       if$\r
 729     }\r
 730   while$\r
 731   multiresult\r
 732 }\r
 733 \r
 734 FUNCTION {capitalize}{ "u" change.case$ "t" change.case$ }\r
 735 \r
 736 FUNCTION {emphasize}\r
 737 { duplicate$ empty$\r
 738     { pop$ "" }\r
 739 %%  Turned off for MESH2013\r
 740 %    { "\emph{" swap$ * "}" * }\r
 741      { skip$ }\r
 742 %%\r
 743   if$\r
 744 }\r
 745 \r
 746 FUNCTION {do.name.latex.cmd}\r
 747 { name.latex.cmd\r
 748   empty$\r
 749     { skip$ }\r
 750     { name.latex.cmd "{" * swap$ * "}" * }\r
 751   if$\r
 752 }\r
 753 \r
 754 % IEEEtran.bst uses its own \BIBforeignlanguage command which directly\r
 755 % invokes the TeX hyphenation patterns without the need of the Babel\r
 756 % package. Babel does a lot more than switch hyphenation patterns and\r
 757 % its loading can cause unintended effects in many class files (such as\r
 758 % IEEEtran.cls).\r
 759 FUNCTION {select.language}\r
 760 { duplicate$ empty$ 'pop$\r
 761     { language empty$ 'skip$\r
 762         { "\BIBforeignlanguage{" language * "}{" * swap$ * "}" * }\r
 763       if$\r
 764     }\r
 765   if$\r
 766 }\r
 767 \r
 768 FUNCTION {tie.or.space.prefix}\r
 769 { duplicate$ text.length$ #3 <\r
 770     { "~" }\r
 771     { " " }\r
 772   if$\r
 773   swap$\r
 774 }\r
 775 \r
 776 FUNCTION {get.bbl.editor}\r
 777 { editor num.names$ #1 > 'bbl.editors 'bbl.editor if$ }\r
 778 \r
 779 FUNCTION {space.word}{ " " swap$ * " " * }\r
 780 \r
 781 \r
 782 % Field Conditioners, Converters, Checkers and External Interfaces\r
 783 \r
 784 FUNCTION {empty.field.to.null.string}\r
 785 { duplicate$ empty$\r
 786     { pop$ "" }\r
 787     { skip$ }\r
 788   if$\r
 789 }\r
 790 \r
 791 FUNCTION {either.or.check}\r
 792 { empty$\r
 793     { pop$ }\r
 794     { "can't use both " swap$ * " fields in " * cite$ * warning$ }\r
 795   if$\r
 796 }\r
 797 \r
 798 FUNCTION {empty.entry.warn}\r
 799 { author empty$ title empty$ howpublished empty$\r
 800   month empty$ year empty$ note empty$ url empty$\r
 801   and and and and and and\r
 802     { "all relevant fields are empty in " cite$ * warning$ }\r
 803     'skip$\r
 804   if$\r
 805 }\r
 806 \r
 807 \r
 808 % The bibinfo system provides a way for the electronic parsing/acquisition\r
 809 % of a bibliography's contents as is done by ReVTeX. For example, a field\r
 810 % could be entered into the bibliography as:\r
 811 % \bibinfo{volume}{2}\r
 812 % Only the "2" would show up in the document, but the LaTeX \bibinfo command\r
 813 % could do additional things with the information. IEEEtran.bst does provide\r
 814 % a \bibinfo command via "\providecommand{\bibinfo}[2]{#2}". However, it is\r
 815 % currently not used as the bogus bibinfo functions defined here output the\r
 816 % entry values directly without the \bibinfo wrapper. The bibinfo functions\r
 817 % themselves (and the calls to them) are retained for possible future use.\r
 818 % \r
 819 % bibinfo.check avoids acting on missing fields while bibinfo.warn will\r
 820 % issue a warning message if a missing field is detected. Prior to calling\r
 821 % the bibinfo functions, the user should push the field value and then its\r
 822 % name string, in that order.\r
 823 \r
 824 FUNCTION {bibinfo.check}\r
 825 { swap$ duplicate$ missing$\r
 826     { pop$ pop$ "" }\r
 827     { duplicate$ empty$\r
 828         { swap$ pop$ }\r
 829         { swap$ pop$ }\r
 830       if$\r
 831     }\r
 832   if$\r
 833 }\r
 834 \r
 835 FUNCTION {bibinfo.warn}\r
 836 { swap$ duplicate$ missing$\r
 837     { swap$ "missing " swap$ * " in " * cite$ * warning$ pop$ "" }\r
 838     { duplicate$ empty$\r
 839         { swap$ "empty " swap$ * " in " * cite$ * warning$ }\r
 840         { swap$ pop$ }\r
 841       if$\r
 842     }\r
 843   if$\r
 844 }\r
 845 \r
 846 \r
 847 % IEEE separates large numbers with more than 4 digits into groups of\r
 848 % three. IEEE uses a small space to separate these number groups. \r
 849 % Typical applications include patent and page numbers.\r
 850 \r
 851 % number of consecutive digits required to trigger the group separation.\r
 852 FUNCTION {large.number.trigger}{ #5 }\r
 853 \r
 854 % For numbers longer than the trigger, this is the blocksize of the groups.\r
 855 % The blocksize must be less than the trigger threshold, and 2 * blocksize\r
 856 % must be greater than the trigger threshold (can't do more than one\r
 857 % separation on the initial trigger).\r
 858 FUNCTION {large.number.blocksize}{ #3 }\r
 859 \r
 860 % What is actually inserted between the number groups.\r
 861 FUNCTION {large.number.separator}{ "\," }\r
 862 \r
 863 % So as to save on integer variables by reusing existing ones, numnames\r
 864 % holds the current number of consecutive digits read and nameptr holds\r
 865 % the number that will trigger an inserted space.\r
 866 FUNCTION {large.number.separate}\r
 867 { 't :=\r
 868   ""\r
 869   #0 'numnames :=\r
 870   large.number.trigger 'nameptr :=\r
 871   { t empty$ not }\r
 872   { t #-1 #1 substring$ is.num\r
 873       { numnames #1 + 'numnames := }\r
 874       { #0 'numnames := \r
 875         large.number.trigger 'nameptr :=\r
 876       }\r
 877     if$\r
 878     t #-1 #1 substring$ swap$ *\r
 879     t #-2 global.max$ substring$ 't :=\r
 880     numnames nameptr =\r
 881       { duplicate$ #1 nameptr large.number.blocksize - substring$ swap$\r
 882         nameptr large.number.blocksize - #1 + global.max$ substring$\r
 883         large.number.separator swap$ * *\r
 884         nameptr large.number.blocksize - 'numnames :=\r
 885         large.number.blocksize #1 + 'nameptr :=\r
 886       }\r
 887       { skip$ }\r
 888     if$\r
 889   }\r
 890   while$\r
 891 }\r
 892 \r
 893 % Converts all single dashes "-" to double dashes "--".\r
 894 FUNCTION {n.dashify}\r
 895 { large.number.separate\r
 896   't :=\r
 897   ""\r
 898     { t empty$ not }\r
 899     { t #1 #1 substring$ "-" =\r
 900         { t #1 #2 substring$ "--" = not\r
 901             { "--" *\r
 902               t #2 global.max$ substring$ 't :=\r
 903             }\r
 904             {   { t #1 #1 substring$ "-" = }\r
 905                 { "-" *\r
 906                   t #2 global.max$ substring$ 't :=\r
 907                 }\r
 908               while$\r
 909             }\r
 910           if$\r
 911         }\r
 912         { t #1 #1 substring$ *\r
 913           t #2 global.max$ substring$ 't :=\r
 914         }\r
 915       if$\r
 916     }\r
 917   while$\r
 918 }\r
 919 \r
 920 \r
 921 % This function detects entries with names that are identical to that of\r
 922 % the previous entry and replaces the repeated names with dashes (if the\r
 923 % "is.dash.repeated.names" user control is nonzero).\r
 924 FUNCTION {name.or.dash}\r
 925 { 's :=\r
 926    oldname empty$\r
 927      { s 'oldname := s }\r
 928      { s oldname =\r
 929          { is.dash.repeated.names\r
 930               { repeated.name.dashes }\r
 931               { s 'oldname := s }\r
 932             if$\r
 933          }\r
 934          { s 'oldname := s }\r
 935        if$\r
 936      }\r
 937    if$\r
 938 }\r
 939 \r
 940 % Converts the number string on the top of the stack to\r
 941 % "numerical ordinal form" (e.g., "7" to "7th"). There is\r
 942 % no artificial limit to the upper bound of the numbers as the\r
 943 % two least significant digits determine the ordinal form.\r
 944 FUNCTION {num.to.ordinal}\r
 945 { duplicate$ #-2 #1 substring$ "1" =\r
 946       { bbl.th * }\r
 947       { duplicate$ #-1 #1 substring$ "1" =\r
 948           { bbl.st * }\r
 949           { duplicate$ #-1 #1 substring$ "2" =\r
 950               { bbl.nd * }\r
 951               { duplicate$ #-1 #1 substring$ "3" =\r
 952                   { bbl.rd * }\r
 953                   { bbl.th * }\r
 954                 if$\r
 955               }\r
 956             if$\r
 957           }\r
 958         if$\r
 959       }\r
 960     if$\r
 961 }\r
 962 \r
 963 % If the string on the top of the stack begins with a number,\r
 964 % (e.g., 11th) then replace the string with the leading number\r
 965 % it contains. Otherwise retain the string as-is. s holds the\r
 966 % extracted number, t holds the part of the string that remains\r
 967 % to be scanned.\r
 968 FUNCTION {extract.num}\r
 969 { duplicate$ 't :=\r
 970   "" 's :=\r
 971   { t empty$ not }\r
 972   { t #1 #1 substring$\r
 973     t #2 global.max$ substring$ 't :=\r
 974     duplicate$ is.num\r
 975       { s swap$ * 's := }\r
 976       { pop$ "" 't := }\r
 977     if$\r
 978   }\r
 979   while$\r
 980   s empty$\r
 981     'skip$\r
 982     { pop$ s }\r
 983   if$\r
 984 }\r
 985 \r
 986 % Converts the word number string on the top of the stack to\r
 987 % Arabic string form. Will be successful up to "tenth".\r
 988 FUNCTION {word.to.num}\r
 989 { duplicate$ "l" change.case$ 's :=\r
 990   s "first" =\r
 991     { pop$ "1" }\r
 992     { skip$ }\r
 993   if$\r
 994   s "second" =\r
 995     { pop$ "2" }\r
 996     { skip$ }\r
 997   if$\r
 998   s "third" =\r
 999     { pop$ "3" }\r
1000     { skip$ }\r
1001   if$\r
1002   s "fourth" =\r
1003     { pop$ "4" }\r
1004     { skip$ }\r
1005   if$\r
1006   s "fifth" =\r
1007     { pop$ "5" }\r
1008     { skip$ }\r
1009   if$\r
1010   s "sixth" =\r
1011     { pop$ "6" }\r
1012     { skip$ }\r
1013   if$\r
1014   s "seventh" =\r
1015     { pop$ "7" }\r
1016     { skip$ }\r
1017   if$\r
1018   s "eighth" =\r
1019     { pop$ "8" }\r
1020     { skip$ }\r
1021   if$\r
1022   s "ninth" =\r
1023     { pop$ "9" }\r
1024     { skip$ }\r
1025   if$\r
1026   s "tenth" =\r
1027     { pop$ "10" }\r
1028     { skip$ }\r
1029   if$\r
1030 }\r
1031 \r
1032 \r
1033 % Converts the string on the top of the stack to numerical\r
1034 % ordinal (e.g., "11th") form.\r
1035 FUNCTION {convert.edition}\r
1036 { duplicate$ empty$ 'skip$\r
1037     { duplicate$ #1 #1 substring$ is.num\r
1038         { extract.num\r
1039           num.to.ordinal\r
1040         }\r
1041         { word.to.num\r
1042           duplicate$ #1 #1 substring$ is.num\r
1043             { num.to.ordinal }\r
1044             { "edition ordinal word " quote$ * edition * quote$ *\r
1045               " may be too high (or improper) for conversion" * " in " * cite$ * warning$\r
1046             }\r
1047           if$\r
1048         }\r
1049       if$\r
1050     }\r
1051   if$\r
1052 }\r
1053 \r
1054 \r
1055 \r
1056 \r
1057 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%\r
1058 %% LATEX BIBLIOGRAPHY CODE %%\r
1059 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%\r
1060 \r
1061 FUNCTION {start.entry}\r
1062 { newline$\r
1063   "\bibitem{" write$\r
1064   cite$ write$\r
1065   "}" write$\r
1066   newline$\r
1067   ""\r
1068   initialize.prev.this.status\r
1069 }\r
1070 \r
1071 % Here we write out all the LaTeX code that we will need. The most involved\r
1072 % code sequences are those that control the alternate interword spacing and\r
1073 % foreign language hyphenation patterns. The heavy use of \providecommand\r
1074 % gives users a way to override the defaults. Special thanks to Javier Bezos,\r
1075 % Johannes Braams, Robin Fairbairns, Heiko Oberdiek, Donald Arseneau and all\r
1076 % the other gurus on comp.text.tex for their help and advice on the topic of\r
1077 % \selectlanguage, Babel and BibTeX.\r
1078 FUNCTION {begin.bib}\r
1079 { "% Generated by IEEEtran.bst, version: " bst.file.version * " (" * bst.file.date * ")" *\r
1080   write$ newline$\r
1081   preamble$ empty$ 'skip$\r
1082     { preamble$ write$ newline$ }\r
1083   if$\r
1084   "\begin{thebibliography}{"  longest.label  * "}" *\r
1085   write$ newline$\r
1086   "\providecommand{\url}[1]{#1}"\r
1087   write$ newline$\r
1088   "\csname url@samestyle\endcsname"\r
1089   write$ newline$\r
1090   "\providecommand{\newblock}{\relax}"\r
1091   write$ newline$\r
1092   "\providecommand{\bibinfo}[2]{#2}"\r
1093   write$ newline$\r
1094   "\providecommand{\BIBentrySTDinterwordspacing}{\spaceskip=0pt\relax}"\r
1095   write$ newline$\r
1096   "\providecommand{\BIBentryALTinterwordstretchfactor}{"\r
1097   ALTinterwordstretchfactor * "}" *\r
1098   write$ newline$\r
1099   "\providecommand{\BIBentryALTinterwordspacing}{\spaceskip=\fontdimen2\font plus "\r
1100   write$ newline$\r
1101   "\BIBentryALTinterwordstretchfactor\fontdimen3\font minus \fontdimen4\font\relax}"\r
1102   write$ newline$\r
1103   "\providecommand{\BIBforeignlanguage}[2]{{%"\r
1104   write$ newline$\r
1105   "\expandafter\ifx\csname l@#1\endcsname\relax"\r
1106   write$ newline$\r
1107   "\typeout{** WARNING: IEEEtran.bst: No hyphenation pattern has been}%"\r
1108   write$ newline$\r
1109   "\typeout{** loaded for the language `#1'. Using the pattern for}%"\r
1110   write$ newline$\r
1111   "\typeout{** the default language instead.}%"\r
1112   write$ newline$\r
1113   "\else"\r
1114   write$ newline$\r
1115   "\language=\csname l@#1\endcsname"\r
1116   write$ newline$\r
1117   "\fi"\r
1118   write$ newline$\r
1119   "#2}}"\r
1120   write$ newline$\r
1121   "\providecommand{\BIBdecl}{\relax}"\r
1122   write$ newline$\r
1123   "\BIBdecl"\r
1124   write$ newline$\r
1125 }\r
1126 \r
1127 FUNCTION {end.bib}\r
1128 { newline$ "\end{thebibliography}" write$ newline$ }\r
1129 \r
1130 FUNCTION {if.url.alt.interword.spacing}\r
1131 { is.use.alt.interword.spacing \r
1132      {url empty$ 'skip$ {"\BIBentryALTinterwordspacing" write$ newline$} if$}\r
1133      { skip$ }\r
1134    if$\r
1135 }\r
1136 \r
1137 FUNCTION {if.url.std.interword.spacing}\r
1138 { is.use.alt.interword.spacing \r
1139      {url empty$ 'skip$ {"\BIBentrySTDinterwordspacing" write$ newline$} if$}\r
1140      { skip$ }\r
1141    if$\r
1142 }\r
1143 \r
1144 \r
1145 \r
1146 \r
1147 %%%%%%%%%%%%%%%%%%%%%%%%\r
1148 %% LONGEST LABEL PASS %%\r
1149 %%%%%%%%%%%%%%%%%%%%%%%%\r
1150 \r
1151 FUNCTION {initialize.longest.label}\r
1152 { "" 'longest.label :=\r
1153   #1 'number.label :=\r
1154   #0 'longest.label.width :=\r
1155 }\r
1156 \r
1157 FUNCTION {longest.label.pass}\r
1158 { type$ "ieeetranbstctl" =\r
1159     { skip$ }\r
1160     { number.label int.to.str$ 'label :=\r
1161       number.label #1 + 'number.label :=\r
1162       label width$ longest.label.width >\r
1163         { label 'longest.label :=\r
1164           label width$ 'longest.label.width :=\r
1165         }\r
1166         { skip$ }\r
1167       if$\r
1168     }\r
1169   if$\r
1170 }\r
1171 \r
1172 \r
1173 \r
1174 \r
1175 %%%%%%%%%%%%%%%%%%%%%\r
1176 %% FORMAT HANDLERS %%\r
1177 %%%%%%%%%%%%%%%%%%%%%\r
1178 \r
1179 %% Lower Level Formats (used by higher level formats)\r
1180 \r
1181 FUNCTION {format.address.org.or.pub.date}\r
1182 { 't :=\r
1183   ""\r
1184   year empty$\r
1185     { "empty year in " cite$ * warning$ }\r
1186     { skip$ }\r
1187   if$\r
1188   address empty$ t empty$ and\r
1189   year empty$ and month empty$ and\r
1190     { skip$ }\r
1191     { this.to.prev.status\r
1192       this.status.std\r
1193       cap.status.std\r
1194       address "address" bibinfo.check *\r
1195       t empty$\r
1196         { skip$ }\r
1197         { punct.period 'prev.status.punct :=\r
1198           space.large 'prev.status.space :=\r
1199           address empty$\r
1200             { skip$ }\r
1201             { ": " * }\r
1202           if$\r
1203           t *\r
1204         }\r
1205       if$\r
1206       year empty$ month empty$ and\r
1207         { skip$ }\r
1208         { t empty$ address empty$ and\r
1209             { skip$ }\r
1210             { ", " * }\r
1211           if$\r
1212           month empty$\r
1213             { year empty$\r
1214                 { skip$ }\r
1215                 { year "year" bibinfo.check * }\r
1216               if$\r
1217             }\r
1218             { month "month" bibinfo.check *\r
1219               year empty$\r
1220                  { skip$ }\r
1221                  { " " * year "year" bibinfo.check * }\r
1222               if$\r
1223             }\r
1224           if$\r
1225         }\r
1226       if$\r
1227     }\r
1228   if$\r
1229 }\r
1230 \r
1231 \r
1232 FUNCTION {format.names}\r
1233 { 'bibinfo :=\r
1234   duplicate$ empty$ 'skip$ {\r
1235   this.to.prev.status\r
1236   this.status.std\r
1237   's :=\r
1238   "" 't :=\r
1239   #1 'nameptr :=\r
1240   s num.names$ 'numnames :=\r
1241   numnames 'namesleft :=\r
1242     { namesleft #0 > }\r
1243     { s nameptr\r
1244       name.format.string\r
1245       format.name$\r
1246       bibinfo bibinfo.check\r
1247       't :=\r
1248       nameptr #1 >\r
1249         { nameptr num.names.shown.with.forced.et.al #1 + =\r
1250           numnames max.num.names.before.forced.et.al >\r
1251           is.forced.et.al and and\r
1252             { "others" 't :=\r
1253               #1 'namesleft :=\r
1254             }\r
1255             { skip$ }\r
1256           if$\r
1257           namesleft #1 >\r
1258             { ", " * t do.name.latex.cmd * }\r
1259             { s nameptr "{ll}" format.name$ duplicate$ "others" =\r
1260                 { 't := }\r
1261                 { pop$ }\r
1262               if$\r
1263               t "others" =\r
1264                 { " " * bbl.etal emphasize * }\r
1265                 { numnames #2 >\r
1266                     { "," * }\r
1267                     { skip$ }\r
1268                   if$\r
1269                   bbl.and\r
1270                   space.word * t do.name.latex.cmd *\r
1271                 }\r
1272               if$\r
1273             }\r
1274           if$\r
1275         }\r
1276         { t do.name.latex.cmd }\r
1277       if$\r
1278       nameptr #1 + 'nameptr :=\r
1279       namesleft #1 - 'namesleft :=\r
1280     }\r
1281   while$\r
1282   cap.status.std\r
1283   } if$\r
1284 }\r
1285 \r
1286 \r
1287 \r
1288 \r
1289 %% Higher Level Formats\r
1290 \r
1291 %% addresses/locations\r
1292 \r
1293 FUNCTION {format.address}\r
1294 { address duplicate$ empty$ 'skip$\r
1295     { this.to.prev.status\r
1296       this.status.std\r
1297       cap.status.std\r
1298     }\r
1299   if$\r
1300 }\r
1301 \r
1302 \r
1303 \r
1304 %% author/editor names\r
1305 \r
1306 FUNCTION {format.authors}{ author "author" format.names }\r
1307 \r
1308 FUNCTION {format.editors}\r
1309 { editor "editor" format.names duplicate$ empty$ 'skip$\r
1310     { ", " *\r
1311       get.bbl.editor\r
1312       capitalize\r
1313       *\r
1314     }\r
1315   if$\r
1316 }\r
1317 \r
1318 \r
1319 \r
1320 %% date\r
1321 \r
1322 FUNCTION {format.date}\r
1323 {\r
1324   month "month" bibinfo.check duplicate$ empty$\r
1325   year  "year" bibinfo.check duplicate$ empty$\r
1326     { swap$ 'skip$\r
1327         { this.to.prev.status\r
1328           this.status.std\r
1329           cap.status.std\r
1330          "there's a month but no year in " cite$ * warning$ }\r
1331       if$\r
1332       *\r
1333     }\r
1334     { this.to.prev.status\r
1335       this.status.std\r
1336       cap.status.std\r
1337       swap$ 'skip$\r
1338         {\r
1339           swap$\r
1340           " " * swap$\r
1341         }\r
1342       if$\r
1343       *\r
1344     }\r
1345   if$\r
1346 }\r
1347 \r
1348 % WARNING: This function was modified to adhere to the formatting rules\r
1349 % of MESH2013 conference for entries with both month and year specified.\r
1350 % It will not work properly otherwise.\r
1351 FUNCTION {format.date.electronic}\r
1352 { year  "year" bibinfo.check duplicate$ empty$\r
1353   month "month" bibinfo.check duplicate$ empty$\r
1354     { swap$ \r
1355         { pop$ }\r
1356         { "there's a month but no year in " cite$ * warning$\r
1357         pop$ ")" * "(" swap$ *\r
1358         this.to.prev.status\r
1359         punct.no 'this.status.punct :=\r
1360         space.normal 'this.status.space :=\r
1361         quote.no 'this.status.quote :=\r
1362         cap.yes  'status.cap :=\r
1363         }\r
1364       if$\r
1365     }\r
1366     { swap$ \r
1367         { swap$ pop$ ")" * "(" swap$ * }\r
1368         { "[retrieved: " swap$ * ", " * swap$ * "]" * }\r
1369       if$\r
1370     this.to.prev.status\r
1371     punct.no 'this.status.punct :=\r
1372     space.normal 'this.status.space :=\r
1373     quote.no 'this.status.quote :=\r
1374     cap.yes  'status.cap :=\r
1375     }\r
1376   if$\r
1377 }\r
1378 \r
1379 \r
1380 \r
1381 %% edition/title\r
1382 \r
1383 % Note: IEEE considers the edition to be closely associated with\r
1384 % the title of a book. So, in IEEEtran.bst the edition is normally handled \r
1385 % within the formatting of the title. The format.edition function is \r
1386 % retained here for possible future use.\r
1387 FUNCTION {format.edition}\r
1388 { edition duplicate$ empty$ 'skip$\r
1389     { this.to.prev.status\r
1390       this.status.std\r
1391       convert.edition\r
1392       status.cap\r
1393         { "t" }\r
1394         { "l" }\r
1395       if$ change.case$\r
1396       "edition" bibinfo.check\r
1397       "~" * bbl.edition *\r
1398       cap.status.std\r
1399     }\r
1400   if$\r
1401 }\r
1402 \r
1403 % This is used to format the booktitle of a conference proceedings.\r
1404 % Here we use the "intype" field to provide the user a way to \r
1405 % override the word "in" (e.g., with things like "presented at")\r
1406 % Use of intype stops the emphasis of the booktitle to indicate that\r
1407 % we no longer mean the written conference proceedings, but the\r
1408 % conference itself.\r
1409 FUNCTION {format.in.booktitle}\r
1410 { booktitle "booktitle" bibinfo.check duplicate$ empty$ 'skip$\r
1411     { this.to.prev.status\r
1412       this.status.std\r
1413       select.language\r
1414       intype missing$\r
1415         { emphasize\r
1416           bbl.in " " *\r
1417         }\r
1418         { intype " " * }\r
1419       if$\r
1420       swap$ *\r
1421       cap.status.std\r
1422     }\r
1423   if$\r
1424 }\r
1425 \r
1426 % This is used to format the booktitle of collection.\r
1427 % Here the "intype" field is not supported, but "edition" is.\r
1428 FUNCTION {format.in.booktitle.edition}\r
1429 { booktitle "booktitle" bibinfo.check duplicate$ empty$ 'skip$\r
1430     { this.to.prev.status\r
1431       this.status.std\r
1432       select.language\r
1433       emphasize\r
1434       edition empty$ 'skip$\r
1435         { ", " *\r
1436           edition\r
1437           convert.edition\r
1438           "l" change.case$\r
1439           * "~" * bbl.edition *\r
1440         }\r
1441       if$\r
1442       bbl.in " " * swap$ *\r
1443       cap.status.std\r
1444     }\r
1445   if$\r
1446 }\r
1447 \r
1448 FUNCTION {format.article.title}\r
1449 { title duplicate$ empty$ 'skip$\r
1450     { this.to.prev.status\r
1451       this.status.std\r
1452       "t" change.case$\r
1453     }\r
1454   if$\r
1455   "title" bibinfo.check\r
1456   duplicate$ empty$ 'skip$\r
1457     { quote.close 'this.status.quote :=\r
1458       is.last.char.not.punct\r
1459         { punct.std 'this.status.punct := }\r
1460         { punct.no 'this.status.punct := }\r
1461       if$\r
1462       select.language\r
1463       "``" swap$ *\r
1464       cap.status.std\r
1465     }\r
1466   if$\r
1467 }\r
1468 \r
1469 FUNCTION {format.article.title.electronic}\r
1470 { title duplicate$ empty$ 'skip$\r
1471     { this.to.prev.status\r
1472       this.status.std\r
1473       cap.status.std\r
1474       "t" change.case$ \r
1475     }\r
1476   if$\r
1477   "title" bibinfo.check\r
1478   duplicate$ empty$ \r
1479     { skip$ } \r
1480     { select.language }\r
1481   if$\r
1482 }\r
1483 \r
1484 FUNCTION {format.book.title.edition}\r
1485 { title "title" bibinfo.check\r
1486   duplicate$ empty$\r
1487     { "empty title in " cite$ * warning$ }\r
1488     { this.to.prev.status\r
1489       this.status.std\r
1490       select.language\r
1491       emphasize\r
1492       edition empty$ 'skip$\r
1493         { ", " *\r
1494           edition\r
1495           convert.edition\r
1496           status.cap\r
1497             { "t" }\r
1498             { "l" }\r
1499           if$\r
1500           change.case$\r
1501           * "~" * bbl.edition *\r
1502         }\r
1503       if$\r
1504       cap.status.std\r
1505     }\r
1506   if$\r
1507 }\r
1508 \r
1509 FUNCTION {format.book.title}\r
1510 { title "title" bibinfo.check\r
1511   duplicate$ empty$ 'skip$\r
1512     { this.to.prev.status\r
1513       this.status.std\r
1514       cap.status.std\r
1515       select.language\r
1516       emphasize\r
1517     }\r
1518   if$\r
1519 }\r
1520 \r
1521 \r
1522 \r
1523 %% journal\r
1524 \r
1525 FUNCTION {format.journal}\r
1526 { journal duplicate$ empty$ 'skip$\r
1527     { this.to.prev.status\r
1528       this.status.std\r
1529       cap.status.std\r
1530       select.language\r
1531       emphasize\r
1532     }\r
1533   if$\r
1534 }\r
1535 \r
1536 \r
1537 \r
1538 %% how published\r
1539 \r
1540 FUNCTION {format.howpublished}\r
1541 { howpublished duplicate$ empty$ 'skip$\r
1542     { this.to.prev.status\r
1543       this.status.std\r
1544       cap.status.std\r
1545     }\r
1546   if$\r
1547 }\r
1548 \r
1549 \r
1550 \r
1551 %% institutions/organization/publishers/school\r
1552 \r
1553 FUNCTION {format.institution}\r
1554 { institution duplicate$ empty$ 'skip$\r
1555     { this.to.prev.status\r
1556       this.status.std\r
1557       cap.status.std\r
1558     }\r
1559   if$\r
1560 }\r
1561 \r
1562 FUNCTION {format.organization}\r
1563 { organization duplicate$ empty$ 'skip$\r
1564     { this.to.prev.status\r
1565       this.status.std\r
1566       cap.status.std\r
1567     }\r
1568   if$\r
1569 }\r
1570 \r
1571 FUNCTION {format.address.publisher.date}\r
1572 { publisher "publisher" bibinfo.warn format.address.org.or.pub.date }\r
1573 \r
1574 FUNCTION {format.address.publisher.date.nowarn}\r
1575 { publisher "publisher" bibinfo.check format.address.org.or.pub.date }\r
1576 \r
1577 FUNCTION {format.address.organization.date}\r
1578 { organization "organization" bibinfo.check format.address.org.or.pub.date }\r
1579 \r
1580 FUNCTION {format.school}\r
1581 { school duplicate$ empty$ 'skip$\r
1582     { this.to.prev.status\r
1583       this.status.std\r
1584       cap.status.std\r
1585     }\r
1586   if$\r
1587 }\r
1588 \r
1589 \r
1590 \r
1591 %% volume/number/series/chapter/pages\r
1592 \r
1593 FUNCTION {format.volume}\r
1594 { volume empty.field.to.null.string\r
1595   duplicate$ empty$ 'skip$\r
1596     { this.to.prev.status\r
1597       this.status.std\r
1598       bbl.volume \r
1599       status.cap\r
1600         { capitalize }\r
1601         { skip$ }\r
1602       if$\r
1603       swap$ tie.or.space.prefix\r
1604       "volume" bibinfo.check\r
1605       * *\r
1606       cap.status.std\r
1607     }\r
1608   if$\r
1609 }\r
1610 \r
1611 FUNCTION {format.number}\r
1612 { number empty.field.to.null.string\r
1613   duplicate$ empty$ 'skip$\r
1614     { this.to.prev.status\r
1615       this.status.std\r
1616       status.cap\r
1617          { bbl.number capitalize }\r
1618          { bbl.number }\r
1619        if$\r
1620       swap$ tie.or.space.prefix\r
1621       "number" bibinfo.check\r
1622       * *\r
1623       cap.status.std\r
1624     }\r
1625   if$\r
1626 }\r
1627 \r
1628 FUNCTION {format.number.if.use.for.article}\r
1629 { is.use.number.for.article \r
1630      { format.number }\r
1631      { "" }\r
1632    if$\r
1633 }\r
1634 \r
1635 % IEEE does not seem to tie the series so closely with the volume\r
1636 % and number as is done in other bibliography styles. Instead the\r
1637 % series is treated somewhat like an extension of the title.\r
1638 FUNCTION {format.series}\r
1639 { series empty$ \r
1640    { "" }\r
1641    { this.to.prev.status\r
1642      this.status.std\r
1643      bbl.series " " *\r
1644      series "series" bibinfo.check *\r
1645      cap.status.std\r
1646    }\r
1647  if$\r
1648 }\r
1649 \r
1650 \r
1651 FUNCTION {format.chapter}\r
1652 { chapter empty$\r
1653     { "" }\r
1654     { this.to.prev.status\r
1655       this.status.std\r
1656       type empty$\r
1657         { bbl.chapter }\r
1658         { type "l" change.case$\r
1659           "type" bibinfo.check\r
1660         }\r
1661       if$\r
1662       chapter tie.or.space.prefix\r
1663       "chapter" bibinfo.check\r
1664       * *\r
1665       cap.status.std\r
1666     }\r
1667   if$\r
1668 }\r
1669 \r
1670 \r
1671 % The intended use of format.paper is for paper numbers of inproceedings.\r
1672 % The paper type can be overridden via the type field.\r
1673 % We allow the type to be displayed even if the paper number is absent\r
1674 % for things like "postdeadline paper"\r
1675 FUNCTION {format.paper}\r
1676 { is.use.paper\r
1677      { paper empty$\r
1678         { type empty$\r
1679             { "" }\r
1680             { this.to.prev.status\r
1681               this.status.std\r
1682               type "type" bibinfo.check\r
1683               cap.status.std\r
1684             }\r
1685           if$\r
1686         }\r
1687         { this.to.prev.status\r
1688           this.status.std\r
1689           type empty$\r
1690             { bbl.paper }\r
1691             { type "type" bibinfo.check }\r
1692           if$\r
1693           " " * paper\r
1694           "paper" bibinfo.check\r
1695           *\r
1696           cap.status.std\r
1697         }\r
1698       if$\r
1699      }\r
1700      { "" } \r
1701    if$\r
1702 }\r
1703 \r
1704 \r
1705 FUNCTION {format.pages}\r
1706 { pages duplicate$ empty$ 'skip$\r
1707     { this.to.prev.status\r
1708       this.status.std\r
1709       duplicate$ is.multiple.pages\r
1710         {\r
1711           bbl.pages swap$\r
1712           n.dashify\r
1713         }\r
1714         {\r
1715           bbl.page swap$\r
1716         }\r
1717       if$\r
1718       tie.or.space.prefix\r
1719       "pages" bibinfo.check\r
1720       * *\r
1721       cap.status.std\r
1722     }\r
1723   if$\r
1724 }\r
1725 \r
1726 \r
1727 \r
1728 %% technical report number\r
1729 \r
1730 FUNCTION {format.tech.report.number}\r
1731 { number "number" bibinfo.check\r
1732   this.to.prev.status\r
1733   this.status.std\r
1734   cap.status.std\r
1735   type duplicate$ empty$\r
1736     { pop$ \r
1737       bbl.techrep\r
1738     }\r
1739     { skip$ }\r
1740   if$\r
1741   "type" bibinfo.check \r
1742   swap$ duplicate$ empty$\r
1743     { pop$ }\r
1744     { tie.or.space.prefix * * }\r
1745   if$\r
1746 }\r
1747 \r
1748 \r
1749 \r
1750 %% note\r
1751 \r
1752 FUNCTION {format.note}\r
1753 { note empty$\r
1754     { "" }\r
1755     { this.to.prev.status\r
1756       this.status.std\r
1757       punct.period 'this.status.punct :=\r
1758       note #1 #1 substring$\r
1759       duplicate$ "{" =\r
1760         { skip$ }\r
1761         { status.cap\r
1762           { "u" }\r
1763           { "l" }\r
1764         if$\r
1765         change.case$\r
1766         }\r
1767       if$\r
1768       note #2 global.max$ substring$ * "note" bibinfo.check\r
1769       cap.yes  'status.cap :=\r
1770     }\r
1771   if$\r
1772 }\r
1773 \r
1774 \r
1775 \r
1776 %% patent\r
1777 \r
1778 FUNCTION {format.patent.date}\r
1779 { this.to.prev.status\r
1780   this.status.std\r
1781   year empty$\r
1782     { monthfiled duplicate$ empty$\r
1783         { "monthfiled" bibinfo.check pop$ "" }\r
1784         { "monthfiled" bibinfo.check }\r
1785       if$\r
1786       dayfiled duplicate$ empty$\r
1787         { "dayfiled" bibinfo.check pop$ "" * }\r
1788         { "dayfiled" bibinfo.check \r
1789           monthfiled empty$ \r
1790              { "dayfiled without a monthfiled in " cite$ * warning$\r
1791                * \r
1792              }\r
1793              { " " swap$ * * }\r
1794            if$\r
1795         }\r
1796       if$\r
1797       yearfiled empty$\r
1798         { "no year or yearfiled in " cite$ * warning$ }\r
1799         { yearfiled "yearfiled" bibinfo.check \r
1800           swap$\r
1801           duplicate$ empty$\r
1802              { pop$ }\r
1803              { ", " * swap$ * }\r
1804            if$\r
1805         }\r
1806       if$\r
1807     }\r
1808     { month duplicate$ empty$\r
1809         { "month" bibinfo.check pop$ "" }\r
1810         { "month" bibinfo.check }\r
1811       if$\r
1812       day duplicate$ empty$\r
1813         { "day" bibinfo.check pop$ "" * }\r
1814         { "day" bibinfo.check \r
1815           month empty$ \r
1816              { "day without a month in " cite$ * warning$\r
1817                * \r
1818              }\r
1819              { " " swap$ * * }\r
1820            if$\r
1821         }\r
1822       if$\r
1823       year "year" bibinfo.check \r
1824       swap$\r
1825       duplicate$ empty$\r
1826         { pop$ }\r
1827         { ", " * swap$ * }\r
1828       if$\r
1829     }\r
1830   if$\r
1831   cap.status.std\r
1832 }\r
1833 \r
1834 FUNCTION {format.patent.nationality.type.number}\r
1835 { this.to.prev.status\r
1836   this.status.std\r
1837   nationality duplicate$ empty$\r
1838     { "nationality" bibinfo.warn pop$ "" }\r
1839     { "nationality" bibinfo.check\r
1840       duplicate$ "l" change.case$ "united states" =\r
1841         { pop$ bbl.patentUS }\r
1842         { skip$ }\r
1843       if$\r
1844       " " *\r
1845     }\r
1846   if$\r
1847   type empty$\r
1848     { bbl.patent "type" bibinfo.check }\r
1849     { type "type" bibinfo.check }\r
1850   if$  \r
1851   *\r
1852   number duplicate$ empty$\r
1853     { "number" bibinfo.warn pop$ }\r
1854     { "number" bibinfo.check\r
1855       large.number.separate\r
1856       swap$ " " * swap$ *\r
1857     }\r
1858   if$ \r
1859   cap.status.std\r
1860 }\r
1861 \r
1862 \r
1863 \r
1864 %% standard\r
1865 \r
1866 FUNCTION {format.organization.institution.standard.type.number}\r
1867 { this.to.prev.status\r
1868   this.status.std\r
1869   organization duplicate$ empty$\r
1870     { pop$ \r
1871       institution duplicate$ empty$\r
1872         { "institution" bibinfo.warn }\r
1873         { "institution" bibinfo.warn " " * }\r
1874       if$\r
1875     }\r
1876     { "organization" bibinfo.warn " " * }\r
1877   if$\r
1878   type empty$\r
1879     { bbl.standard "type" bibinfo.check }\r
1880     { type "type" bibinfo.check }\r
1881   if$  \r
1882   *\r
1883   number duplicate$ empty$\r
1884     { "number" bibinfo.check pop$ }\r
1885     { "number" bibinfo.check\r
1886       large.number.separate\r
1887       swap$ " " * swap$ *\r
1888     }\r
1889   if$ \r
1890   cap.status.std\r
1891 }\r
1892 \r
1893 FUNCTION {format.revision}\r
1894 { revision empty$\r
1895     { "" }\r
1896     { this.to.prev.status\r
1897       this.status.std\r
1898       bbl.revision\r
1899       revision tie.or.space.prefix\r
1900       "revision" bibinfo.check\r
1901       * *\r
1902       cap.status.std\r
1903     }\r
1904   if$\r
1905 }\r
1906 \r
1907 \r
1908 %% thesis\r
1909 \r
1910 FUNCTION {format.master.thesis.type}\r
1911 { this.to.prev.status\r
1912   this.status.std\r
1913   type empty$\r
1914     {\r
1915       bbl.mthesis\r
1916     }\r
1917     { \r
1918       type "type" bibinfo.check\r
1919     }\r
1920   if$\r
1921 cap.status.std\r
1922 }\r
1923 \r
1924 FUNCTION {format.phd.thesis.type}\r
1925 { this.to.prev.status\r
1926   this.status.std\r
1927   type empty$\r
1928     {\r
1929       bbl.phdthesis\r
1930     }\r
1931     { \r
1932       type "type" bibinfo.check\r
1933     }\r
1934   if$\r
1935 cap.status.std\r
1936 }\r
1937 \r
1938 \r
1939 \r
1940 %% URL\r
1941 \r
1942 FUNCTION {format.url}\r
1943 { url empty$\r
1944     { "" }\r
1945     { this.to.prev.status\r
1946       this.status.std\r
1947       cap.yes 'status.cap :=\r
1948       name.url.prefix " " *\r
1949       "\url{" * url * "}" *\r
1950       punct.no 'this.status.punct :=\r
1951       punct.period 'prev.status.punct :=\r
1952       space.normal 'this.status.space :=\r
1953       space.normal 'prev.status.space :=\r
1954       quote.no 'this.status.quote :=\r
1955     }\r
1956   if$\r
1957 }\r
1958 \r
1959 \r
1960 \r
1961 \r
1962 %%%%%%%%%%%%%%%%%%%%\r
1963 %% ENTRY HANDLERS %%\r
1964 %%%%%%%%%%%%%%%%%%%%\r
1965 \r
1966 \r
1967 % Note: In many journals, IEEE (or the authors) tend not to show the number\r
1968 % for articles, so the display of the number is controlled here by the\r
1969 % switch "is.use.number.for.article"\r
1970 FUNCTION {article}\r
1971 { std.status.using.comma\r
1972   start.entry\r
1973   if.url.alt.interword.spacing\r
1974   format.authors "author" output.warn\r
1975   name.or.dash\r
1976   format.article.title "title" output.warn\r
1977   format.journal "journal" bibinfo.check "journal" output.warn\r
1978   format.volume output\r
1979   format.number.if.use.for.article output\r
1980   format.date "year" output.warn\r
1981   format.pages output\r
1982   format.note output\r
1983   format.url output\r
1984   fin.entry\r
1985   if.url.std.interword.spacing\r
1986 }\r
1987 \r
1988 FUNCTION {book}\r
1989 { std.status.using.comma\r
1990   start.entry\r
1991   if.url.alt.interword.spacing\r
1992   author empty$\r
1993     { format.editors "author and editor" output.warn }\r
1994     { format.authors output.nonnull }\r
1995   if$\r
1996   name.or.dash\r
1997   format.book.title.edition output\r
1998   format.series output\r
1999   author empty$\r
2000     { skip$ }\r
2001     { format.editors output }\r
2002   if$\r
2003   format.address.publisher.date output\r
2004   format.volume output\r
2005   format.number output\r
2006   format.note output\r
2007   format.url output\r
2008   fin.entry\r
2009   if.url.std.interword.spacing\r
2010 }\r
2011 \r
2012 FUNCTION {booklet}\r
2013 { std.status.using.comma\r
2014   start.entry\r
2015   if.url.alt.interword.spacing\r
2016   format.authors output\r
2017   name.or.dash\r
2018   format.article.title "title" output.warn\r
2019   format.howpublished "howpublished" bibinfo.check output\r
2020   format.organization "organization" bibinfo.check output\r
2021   format.address "address" bibinfo.check output\r
2022   format.date output\r
2023   format.note output\r
2024   format.url output\r
2025   fin.entry\r
2026   if.url.std.interword.spacing\r
2027 }\r
2028 \r
2029 FUNCTION {electronic}\r
2030 { std.status.using.period\r
2031   start.entry\r
2032   if.url.alt.interword.spacing\r
2033   format.authors output\r
2034   name.or.dash\r
2035   format.article.title.electronic output\r
2036   format.howpublished "howpublished" bibinfo.check output\r
2037   format.organization "organization" bibinfo.check output\r
2038   format.address "address" bibinfo.check output\r
2039   format.note output\r
2040   format.url output\r
2041   format.date.electronic output\r
2042   fin.entry\r
2043   empty.entry.warn\r
2044   if.url.std.interword.spacing\r
2045 }\r
2046 \r
2047 FUNCTION {inbook}\r
2048 { std.status.using.comma\r
2049   start.entry\r
2050   if.url.alt.interword.spacing\r
2051   author empty$\r
2052     { format.editors "author and editor" output.warn }\r
2053     { format.authors output.nonnull }\r
2054   if$\r
2055   name.or.dash\r
2056   format.book.title.edition output\r
2057   format.series output\r
2058   format.address.publisher.date output\r
2059   format.volume output\r
2060   format.number output\r
2061   format.chapter output\r
2062   format.pages output\r
2063   format.note output\r
2064   format.url output\r
2065   fin.entry\r
2066   if.url.std.interword.spacing\r
2067 }\r
2068 \r
2069 FUNCTION {incollection}\r
2070 { std.status.using.comma\r
2071   start.entry\r
2072   if.url.alt.interword.spacing\r
2073   format.authors "author" output.warn\r
2074   name.or.dash\r
2075   format.article.title "title" output.warn\r
2076   format.in.booktitle.edition "booktitle" output.warn\r
2077   format.series output\r
2078   format.editors output\r
2079   format.address.publisher.date.nowarn output\r
2080   format.volume output\r
2081   format.number output\r
2082   format.chapter output\r
2083   format.pages output\r
2084   format.note output\r
2085   format.url output\r
2086   fin.entry\r
2087   if.url.std.interword.spacing\r
2088 }\r
2089 \r
2090 FUNCTION {inproceedings}\r
2091 { std.status.using.comma\r
2092   start.entry\r
2093   if.url.alt.interword.spacing\r
2094   format.authors "author" output.warn\r
2095   name.or.dash\r
2096   format.article.title "title" output.warn\r
2097   format.in.booktitle "booktitle" output.warn\r
2098   format.series output\r
2099   format.editors output\r
2100   format.volume output\r
2101   format.number output\r
2102   publisher empty$\r
2103     { format.address.organization.date output }\r
2104     { format.organization "organization" bibinfo.check output\r
2105       format.address.publisher.date output\r
2106     }\r
2107   if$\r
2108   format.paper output\r
2109   format.pages output\r
2110   format.note output\r
2111   format.url output\r
2112   fin.entry\r
2113   if.url.std.interword.spacing\r
2114 }\r
2115 \r
2116 FUNCTION {manual}\r
2117 { std.status.using.comma\r
2118   start.entry\r
2119   if.url.alt.interword.spacing\r
2120   format.authors output\r
2121   name.or.dash\r
2122   format.book.title.edition "title" output.warn\r
2123   format.howpublished "howpublished" bibinfo.check output \r
2124   format.organization "organization" bibinfo.check output\r
2125   format.address "address" bibinfo.check output\r
2126   format.date output\r
2127   format.note output\r
2128   format.url output\r
2129   fin.entry\r
2130   if.url.std.interword.spacing\r
2131 }\r
2132 \r
2133 FUNCTION {mastersthesis}\r
2134 { std.status.using.comma\r
2135   start.entry\r
2136   if.url.alt.interword.spacing\r
2137   format.authors "author" output.warn\r
2138   name.or.dash\r
2139   format.article.title "title" output.warn\r
2140   format.master.thesis.type output.nonnull\r
2141   format.school "school" bibinfo.warn output\r
2142   format.address "address" bibinfo.check output\r
2143   format.date "year" output.warn\r
2144   format.note output\r
2145   format.url output\r
2146   fin.entry\r
2147   if.url.std.interword.spacing\r
2148 }\r
2149 \r
2150 FUNCTION {misc}\r
2151 { std.status.using.comma\r
2152   start.entry\r
2153   if.url.alt.interword.spacing\r
2154   format.authors output\r
2155   name.or.dash\r
2156   format.article.title output\r
2157   format.howpublished "howpublished" bibinfo.check output \r
2158   format.organization "organization" bibinfo.check output\r
2159   format.address "address" bibinfo.check output\r
2160   format.pages output\r
2161   format.date output\r
2162   format.note output\r
2163   format.url output\r
2164   fin.entry\r
2165   empty.entry.warn\r
2166   if.url.std.interword.spacing\r
2167 }\r
2168 \r
2169 FUNCTION {patent}\r
2170 { std.status.using.comma\r
2171   start.entry\r
2172   if.url.alt.interword.spacing\r
2173   format.authors output\r
2174   name.or.dash\r
2175   format.article.title output\r
2176   format.patent.nationality.type.number output\r
2177   format.patent.date output\r
2178   format.note output\r
2179   format.url output\r
2180   fin.entry\r
2181   empty.entry.warn\r
2182   if.url.std.interword.spacing\r
2183 }\r
2184 \r
2185 FUNCTION {periodical}\r
2186 { std.status.using.comma\r
2187   start.entry\r
2188   if.url.alt.interword.spacing\r
2189   format.editors output\r
2190   name.or.dash\r
2191   format.book.title "title" output.warn\r
2192   format.series output\r
2193   format.volume output\r
2194   format.number output\r
2195   format.organization "organization" bibinfo.check output\r
2196   format.date "year" output.warn\r
2197   format.note output\r
2198   format.url output\r
2199   fin.entry\r
2200   if.url.std.interword.spacing\r
2201 }\r
2202 \r
2203 FUNCTION {phdthesis}\r
2204 { std.status.using.comma\r
2205   start.entry\r
2206   if.url.alt.interword.spacing\r
2207   format.authors "author" output.warn\r
2208   name.or.dash\r
2209   format.article.title "title" output.warn\r
2210   format.phd.thesis.type output.nonnull\r
2211   format.school "school" bibinfo.warn output\r
2212   format.address "address" bibinfo.check output\r
2213   format.date "year" output.warn\r
2214   format.note output\r
2215   format.url output\r
2216   fin.entry\r
2217   if.url.std.interword.spacing\r
2218 }\r
2219 \r
2220 FUNCTION {proceedings}\r
2221 { std.status.using.comma\r
2222   start.entry\r
2223   if.url.alt.interword.spacing\r
2224   format.editors output\r
2225   name.or.dash\r
2226   format.book.title "title" output.warn\r
2227   format.series output\r
2228   format.volume output\r
2229   format.number output\r
2230   publisher empty$\r
2231     { format.address.organization.date output }\r
2232     { format.organization "organization" bibinfo.check output\r
2233       format.address.publisher.date output\r
2234     }\r
2235   if$\r
2236   format.note output\r
2237   format.url output\r
2238   fin.entry\r
2239   if.url.std.interword.spacing\r
2240 }\r
2241 \r
2242 FUNCTION {standard}\r
2243 { std.status.using.comma\r
2244   start.entry\r
2245   if.url.alt.interword.spacing\r
2246   format.authors output\r
2247   name.or.dash\r
2248   format.book.title "title" output.warn\r
2249   format.howpublished "howpublished" bibinfo.check output \r
2250   format.organization.institution.standard.type.number output\r
2251   format.revision output\r
2252   format.date output\r
2253   format.note output\r
2254   format.url output\r
2255   fin.entry\r
2256   if.url.std.interword.spacing\r
2257 }\r
2258 \r
2259 FUNCTION {techreport}\r
2260 { std.status.using.comma\r
2261   start.entry\r
2262   if.url.alt.interword.spacing\r
2263   format.authors "author" output.warn\r
2264   name.or.dash\r
2265   format.article.title "title" output.warn\r
2266   format.howpublished "howpublished" bibinfo.check output \r
2267   format.institution "institution" bibinfo.warn output\r
2268   format.address "address" bibinfo.check output\r
2269   format.tech.report.number output.nonnull\r
2270   format.date "year" output.warn\r
2271   format.note output\r
2272   format.url output\r
2273   fin.entry\r
2274   if.url.std.interword.spacing\r
2275 }\r
2276 \r
2277 FUNCTION {unpublished}\r
2278 { std.status.using.comma\r
2279   start.entry\r
2280   if.url.alt.interword.spacing\r
2281   format.authors "author" output.warn\r
2282   name.or.dash\r
2283   format.article.title "title" output.warn\r
2284   format.date output\r
2285   format.note "note" output.warn\r
2286   format.url output\r
2287   fin.entry\r
2288   if.url.std.interword.spacing\r
2289 }\r
2290 \r
2291 \r
2292 % The special entry type which provides the user interface to the\r
2293 % BST controls\r
2294 FUNCTION {IEEEtranBSTCTL}\r
2295 { is.print.banners.to.terminal\r
2296     { "** IEEEtran BST control entry " quote$ * cite$ * quote$ * " detected." *\r
2297       top$\r
2298     }\r
2299     { skip$ }\r
2300   if$\r
2301   CTLuse_article_number\r
2302   empty$\r
2303     { skip$ }\r
2304     { CTLuse_article_number\r
2305       yes.no.to.int\r
2306       'is.use.number.for.article :=\r
2307     }\r
2308   if$\r
2309   CTLuse_paper\r
2310   empty$\r
2311     { skip$ }\r
2312     { CTLuse_paper\r
2313       yes.no.to.int\r
2314       'is.use.paper :=\r
2315     }\r
2316   if$\r
2317   CTLuse_forced_etal\r
2318   empty$\r
2319     { skip$ }\r
2320     { CTLuse_forced_etal\r
2321       yes.no.to.int\r
2322       'is.forced.et.al :=\r
2323     }\r
2324   if$\r
2325   CTLmax_names_forced_etal\r
2326   empty$\r
2327     { skip$ }\r
2328     { CTLmax_names_forced_etal\r
2329       string.to.integer\r
2330       'max.num.names.before.forced.et.al :=\r
2331     }\r
2332   if$\r
2333   CTLnames_show_etal\r
2334   empty$\r
2335     { skip$ }\r
2336     { CTLnames_show_etal\r
2337       string.to.integer\r
2338       'num.names.shown.with.forced.et.al :=\r
2339     }\r
2340   if$\r
2341   CTLuse_alt_spacing\r
2342   empty$\r
2343     { skip$ }\r
2344     { CTLuse_alt_spacing\r
2345       yes.no.to.int\r
2346       'is.use.alt.interword.spacing :=\r
2347     }\r
2348   if$\r
2349   CTLalt_stretch_factor\r
2350   empty$\r
2351     { skip$ }\r
2352     { CTLalt_stretch_factor\r
2353       'ALTinterwordstretchfactor :=\r
2354       "\renewcommand{\BIBentryALTinterwordstretchfactor}{"\r
2355       ALTinterwordstretchfactor * "}" *\r
2356       write$ newline$\r
2357     }\r
2358   if$\r
2359   CTLdash_repeated_names\r
2360   empty$\r
2361     { skip$ }\r
2362     { CTLdash_repeated_names\r
2363       yes.no.to.int\r
2364       'is.dash.repeated.names :=\r
2365     }\r
2366   if$\r
2367   CTLname_format_string\r
2368   empty$\r
2369     { skip$ }\r
2370     { CTLname_format_string\r
2371       'name.format.string :=\r
2372     }\r
2373   if$\r
2374   CTLname_latex_cmd\r
2375   empty$\r
2376     { skip$ }\r
2377     { CTLname_latex_cmd\r
2378       'name.latex.cmd :=\r
2379     }\r
2380   if$\r
2381   CTLname_url_prefix\r
2382   missing$\r
2383     { skip$ }\r
2384     { CTLname_url_prefix\r
2385       'name.url.prefix :=\r
2386     }\r
2387   if$\r
2388 \r
2389 \r
2390   num.names.shown.with.forced.et.al max.num.names.before.forced.et.al >\r
2391     { "CTLnames_show_etal cannot be greater than CTLmax_names_forced_etal in " cite$ * warning$ \r
2392       max.num.names.before.forced.et.al 'num.names.shown.with.forced.et.al :=\r
2393     }\r
2394     { skip$ }\r
2395   if$\r
2396 }\r
2397 \r
2398 \r
2399 %%%%%%%%%%%%%%%%%%%\r
2400 %% ENTRY ALIASES %%\r
2401 %%%%%%%%%%%%%%%%%%%\r
2402 FUNCTION {conference}{inproceedings}\r
2403 FUNCTION {online}{electronic}\r
2404 FUNCTION {internet}{electronic}\r
2405 FUNCTION {webpage}{electronic}\r
2406 FUNCTION {www}{electronic}\r
2407 FUNCTION {default.type}{misc}\r
2408 \r
2409 \r
2410 \r
2411 %%%%%%%%%%%%%%%%%%\r
2412 %% MAIN PROGRAM %%\r
2413 %%%%%%%%%%%%%%%%%%\r
2414 \r
2415 READ\r
2416 \r
2417 EXECUTE {initialize.controls}\r
2418 EXECUTE {initialize.status.constants}\r
2419 EXECUTE {banner.message}\r
2420 \r
2421 EXECUTE {initialize.longest.label}\r
2422 ITERATE {longest.label.pass}\r
2423 \r
2424 EXECUTE {begin.bib}\r
2425 ITERATE {call.type$}\r
2426 EXECUTE {end.bib}\r
2427 \r
2428 EXECUTE{completed.message}\r
2429 \r
2430 \r
2431 %% That's all folks, mds.\r
2432 \r