/utphys

To download this project, use:
bzr branch http://golem.ph.utexas.edu/~distler/code/utphys/

« back to all changes in this revision

Viewing changes to utphys.bst

  • Committer: Jacques Distler
  • Date: 2018-11-30 06:59:56 UTC
  • Revision ID: distler@golem.ph.utexas.edu-20181130065956-t05fldeue0uq1utx
Fix format.title and format.title.p for when
the title contains trailing punctuation.

Show diffs side-by-side

added added

removed removed

utphys.bst
1
 
% UT Physics bibliographic style, ver. 2.7. Based on:
 
1
% UT Physics bibliographic style, ver. 2.5. Based on:
2
2
%
3
3
%X     IEEE Transactions bibliography style (29-Jan-88 version)
4
4
%X       numeric labels, order-of-reference, IEEE abbreviations,
53
53
%                                    MACROs (thanks to Mateus Araujo)
54
54
%                   ver 2.6   2/11 - Yipes! Fix capitalization of titles, spooged
55
55
%                                    in previous version. (Reported by Ling Weak)
56
 
%                   ver 2.7   8/11 - Fix "et~al." in format.crossref.editor, too.
57
 
%                                    (Reported by Blake Stacey)
 
56
%                   ver 2.7  12/18 - Fix format.title and format.title.p for when the
 
57
%                                    title contains trailing punctuation.
58
58
%
59
59
% HyperTeX Wizardry:
60
60
%
373
373
                'skip$
374
374
              if$
375
375
              t "others" =
376
 
                { " {\em et~al.}" * }
 
376
                { " {\em et al.}" * }
377
377
                { string.and * t * }
378
378
              if$
379
379
            }
473
473
FUNCTION {format.title}
474
474
{ title empty$
475
475
    { "" }
476
 
    { "``" title "t" change.case$ * ",''" * }
 
476
    {title title text.length$ #1 substring$ "?" =
 
477
     title title text.length$ #1 substring$ "!" =
 
478
     title title text.length$ #1 substring$ "." =
 
479
     or or
 
480
      { "``" title "t" change.case$ * "''" * }
 
481
      { "``" title "t" change.case$ * ",''" * }
 
482
    if$
 
483
   }
477
484
  if$
478
485
}
479
486
 
480
487
FUNCTION {format.title.p}
481
488
{ title empty$
482
489
    { "" }
483
 
    { "``" title "t" change.case$ * ".''" * }
 
490
    { "``" title "t" change.case$ * add.period$ "''" * }
484
491
  if$
485
492
}
486
493
 
762
769
{ editor #1 "{vv~}{ll}" format.name$
763
770
  editor num.names$ duplicate$
764
771
  #2 >
765
 
    { pop$ " {\em et~al.}" * }
 
772
    { pop$ " {\em et.~al.}" * }
766
773
    { #2 <
767
774
        'skip$
768
775
        { editor #2 "{ff }{vv }{ll}{ jj}" format.name$ "others" =
769
 
            { " {\em et~al.}" * }
 
776
            { " {\em et.~al.}" * }
770
777
            { string.and * editor #2 "{vv~}{ll}" format.name$ * }
771
778
          if$
772
779
        }