LaTeX Forum

FUNCTION {format.btitle}
{ edition empty$
  { title }
  { title empty$
    { title }
    { volume empty$     % gnp - check for volume, then don't need period
       { " " title * " (" * edition * " ed.)" * "." * }
       { " " title * " (" * edition * " ed.)" * }
      if$
    }
    if$
  }
  if$
}

FUNCTION {format.emphasize.booktitle}
{ edition empty$
  { booktitle }
  { booktitle empty$
    { booktitle }
    { volume empty$    % gnp - extra period an error if book has a volume
        { " " booktitle * " (" * edition * " ed.)" * "." *}
        { " " booktitle * " (" * edition * " ed.)" * }
      if$
      }
    if$
    }
  if$
}

FUNCTION {format.names}
{ 's :=
  #1 'nameptr :=               % nameptr = 1;
  s num.names$ 'numnames :=    % numnames = num.name$(s);
  numnames 'namesleft :=
    { namesleft #0 > }

    { nameptr #1 =
        {s nameptr "{vv~}{ll}{, jj}{, f.}" format.name$ 't := }
        {s nameptr "{f.~}{vv~}{ll}{, jj}" format.name$ 't := }
      if$
      nameptr #1 >
        { namesleft #1 >
              { ", " * t * }
              { numnames #2 >
                  { "," * }
                  'skip$
                if$
                t "others" =
                    { " et~al." * }
                    { " \textup{and} " * t * } % from Chicago Manual of Style
                  if$
               }
               if$
             }
            't
        if$
        nameptr #1 + 'nameptr :=          % nameptr += 1;
        namesleft #1 - 'namesleft :=      % namesleft =- 1;
    }
  while$
  t "others" =
    'skip$
    { bib.name.font }
  if$
}

FUNCTION {format.jour.vol}
{ journal empty$
    { "no journal in " cite$ * warning$
      "" }
    { journal }
    if$
  number empty$
    { volume empty$
       { "no number and no volume in " cite$ * warning$
         "" * }
       { "~{\em " * Volume * "}" * }
      if$
    }
    { volume empty$
      {"no volume for " cite$ * warning$
       "~(" * number * ")" * }
      { "~" *
        volume emphasize.space
        "(" * number * ")" * * }
      if$
    }
  if$
  pages empty$
    {"page numbers missing in " cite$ * warning$
     "" * } % gnp - place a null string on the stack for output
    { duplicate$ empty$
      { pop$ format.pages }
      { ", " *  pages n.dashify * } % gnp - removed pp. for articles
      if$
    }
  if$
}

FUNCTION {format.btitle}
{ edition empty$
  { title }
  { title empty$
    { title }
    { volume empty$     % gnp - check for volume, then don't need period
       { title * " (" * edition * " ed.)" * "." * }
       { title * " (" * edition * " ed.)" * }
      if$
    }
    if$
  }
  if$
}

FUNCTION {format.emphasize.booktitle}
{ edition empty$
  { booktitle }
  { booktitle empty$
    { booktitle }
    { volume empty$    % gnp - extra period an error if book has a volume
        { booktitle * " (" * edition * " ed.)" * "." *}
        { booktitle * " (" * edition * " ed.)" * }
      if$
      }
    if$
    }
  if$
  }