%==============================================================================

% abnt.bst

% Estilo BibTeX de formatação de referências bibliográficas no padrão ABNT

%

% UFRGS TeX Users Group

% Informatics Institute --- UFRGS

% Porto Alegre, Brazil

% http://www.inf.ufrgs.br/utug

% Discussion list: utug-l@inf.ufrgs.br

%

% $Id: abnt.bst,v 5.6 2003/03/03 00:17:46 avila Exp $

%

% Copyright (C) 2001-2002 UFRGS TeX Users Group

%

% This program is free software; you can redistribute it and/or modify

% it under the terms of the GNU General Public License as published by

% the Free Software Foundation; either version 2 of the License, or

% (at your option) any later version.

%

% This program is distributed in the hope that it will be useful,

% but WITHOUT ANY WARRANTY; without even the implied warranty of

% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

% GNU General Public License for more details.

%

% You should have received a copy of the GNU General Public License

% along with this program; if not, write to the Free Software

% Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA

%==============================================================================

%==============================================================================

% Definição dos campos das entradas

%==============================================================================

ENTRY

{ 

  author

  editor

  title

  booktitle

  chapter

  pages

  address

  publisher

  year

  journal

  month

  number

  edition

  howpublished

  institution

  key

  note

  organization

  school

  series

  type

  volume

    url

    urldate

}

{}

{

  label

  year.char

}

INTEGERS {i j n}

STRINGS {s t last.label last.year.char current.letter names new.pages}

%==============================================================================

% Definicao dos nomes dos meses

%==============================================================================

MACRO {jan} {"Jan."}

MACRO {feb} {"Feb."}

MACRO {mar} {"Mar."}

MACRO {apr} {"Apr."}

MACRO {may} {"May"}

MACRO {jun} {"June"}

MACRO {jul} {"July"}

MACRO {aug} {"Aug."}

MACRO {sep} {"Sept."}

MACRO {oct} {"Oct."}

MACRO {nov} {"Nov."}

MACRO {dec} {"Dec."}

%==============================================================================

% Definicao de strings usados na elaboracao das referencias

%==============================================================================

FUNCTION {str:mastersthesis} {"Disserta{\c{c}}{\~a}o (Mestrado em Ci{\^e}ncia da Computa{\c{c}}{\~a}o)"}

FUNCTION {str:phdthesis} {"Tese (Doutorado em Ci{\^e}ncia da Computa{\c{c}}{\~a}o)"}

FUNCTION {str:chapter} {"Cap."}

%==============================================================================

% Definicao das abreviaturas padrao

%==============================================================================

MACRO {acmcs} {"ACM Computing Surveys"}

MACRO {acta} {"Acta Informatica"}

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

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

MACRO {ibmsj} {"IBM Systems Journal"}

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

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

MACRO {ieeetcad}

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

MACRO {ipl} {"Information Processing Letters"}

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

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

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

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

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

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

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

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

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

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

MACRO {tcs} {"Theoretical Computer Science"}

%==============================================================================

% Exibe warning quando um campo ``required'' esta' faltando. Recebe na pilha o

% tipo do campo.

%==============================================================================

FUNCTION {show.missing.field.warning}

{

  "Falta o campo " swap$ " em " cite$ * * * warning$

}

%==============================================================================

% Funcoes logicas

%==============================================================================

FUNCTION {not}

{

    { #0 }

    { #1 }

  if$

}

FUNCTION {and}

{

    'skip$

    { pop$ #0 }

  if$

}

FUNCTION {or}

{

    { pop$ #1 }

    'skip$

  if$

}

FUNCTION {is.numeric.char}

{

  #1 #1 substring$

  duplicate$ "" =

    {pop$ #0}

    {

      duplicate$ chr.to.int$ #47 >

      swap$ chr.to.int$ #58 <

      and

    }

  if$

}

FUNCTION {is.uppercase.char}

{

  #1 #1 substring$

  duplicate$ "" =

    {pop$ #0}

    {

      duplicate$ chr.to.int$ #64 >

      swap$ chr.to.int$ #91 <

      and

    }

  if$

}

%==============================================================================

% Escreve no arquivo o comando que gera o item

%

% Parm:

%  um string com a formatacao do item

%==============================================================================

FUNCTION {write.item}

{

  "\bibitem[" label * "]{" * cite$ * "} " *

  swap$ *

  write$ newline$ newline$

}

%==============================================================================

% Separa o titulo em titulo e sub-titulo, empilhando o sub-titulo e o titulo,

% nessa ordem

%

% Parm:

%  o titulo

%==============================================================================

FUNCTION {extract.subtitle}

{

  #1 'i :=

  duplicate$

  i #1 substring$

  {

    duplicate$ ":" = not

    swap$ "" = not

    and

  }

  {

    #1 i + 'i :=

    duplicate$

    i #1 substring$

  } while$

  duplicate$ i #999 substring$

  swap$

  #1 i #1 - substring$

}

%==============================================================================

% Separa a primeira palavra do texto, empilhando o resto e a palavra, nessa

% ordem

%

% Parm:

%  o texto

%==============================================================================

FUNCTION {extract.first.word}

{

  #1 'i :=

  duplicate$

  i #1 substring$

  {

    duplicate$ " " = not

    swap$ "" = not

    and

  }

  {

    #1 i + 'i :=

    duplicate$

    i #1 substring$

  } while$

  duplicate$ i #999 substring$

  swap$

  #1 i #1 - substring$

}

%==============================================================================

% Enfatiza um string

%

% Parm:

%  o string

%==============================================================================

FUNCTION {emphasize}

{

  "\textbf{" swap$ * "}" *

}

%==============================================================================

% Adiciona um texto (se nao-empty$) ja' formatado ao item, separando-o por

% ponto.

% Ex.: NOME. Titulo. data. ano.

%

% Parm:

%  um string representando o item (pode ser vazio, para iniciar o item)

%  o texto a ser adicionado

%==============================================================================

FUNCTION {add.to.item}

{

  duplicate$ empty$

    'pop$

    {

      swap$

      duplicate$ empty$

        'skip$

        {" " *}

      if$

      swap$ add.period$ *

    }

  if$

}

%==============================================================================

% Adiciona um item (se nao-empty$) a uma lista do tipo "a, b, c, ..."

%

% Parm:

%  um string representando a lista (pode ser vazio, para criar uma lista)

%  o item a ser adicionado

%==============================================================================

FUNCTION {add.to.list}

{

  duplicate$ empty$

    'pop$

    {

      swap$

      duplicate$ empty$

        'skip$

        {", " *}

      if$

      swap$ *

    }

  if$

}

%==============================================================================

% Adiciona um nome a uma lista de nomes (separados por ponto-e-virgula)

%

% Parm:

%  um string representando a lista (pode ser vazio, para criar uma lista)

%  o nome a ser adicionado

%==============================================================================

FUNCTION {add.to.namelist}

{

  swap$

  duplicate$ empty$

    'skip$

    {"; " *}

  if$

  swap$ *

}

%==============================================================================

% Formata uma lista de nomes.

%

% Parm:

%  os nomes a serem formatados

%==============================================================================

FUNCTION {format.names}

{

  duplicate$ num.names$ 'n :=

  #1 'i :=

  "" 'names :=

  {i n #1 + <}

  {

    duplicate$ duplicate$ i "{ll}{~jj}" format.name$

    duplicate$ "others" =

        n #4 >

        i #2 =

        and

        or

    {

      pop$ pop$ names " et~al." *

      n 'i :=

    }{

      "u" change.case$ swap$

      i "{, ff}{~vv}" format.name$ *

      names swap$ add.to.namelist

    } if$ 'names :=

    #1 i + 'i :=

  } while$

  pop$

  names

  duplicate$ #-1 #1 substring$ "." = {

    #-2 global.max$ substring$

    "\@." *

  }

    'skip$

  if$

}

%==============================================================================

% Formata uma lista de sobrenomes.

%

% Parm:

%  os nomes a serem formatados

%==============================================================================

FUNCTION {format.family.names}

{

  duplicate$ num.names$ 'n :=

  #1 'i :=

  "" 'names :=

  {i n #1 + <}

  {

    duplicate$ i "{ll}{~jj}" format.name$

    duplicate$ "others" =

    n #3 >

    i #2 =

    and

    or

    {

      pop$ names " et~al." *

      n 'i :=

    }{

      "u" change.case$

      names swap$ add.to.namelist

    } if$ 'names :=

    #1 i + 'i :=

  } while$

  pop$

  names

}

%==============================================================================

% Formata uma lista de sobrenomes com todos os autores.

%

% Parm:

%  os nomes a serem formatados

%==============================================================================

FUNCTION {format.family.names.all}

{

  duplicate$ num.names$ 'n :=

  #1 'i :=

  "" 'names :=

  {i n #1 + <}

  {

    duplicate$ i "{ll}{~jj}" format.name$

    duplicate$ "others" =

    {

      pop$ names " et~al." *

      n 'i :=

    }{

      "u" change.case$

      names swap$ add.to.namelist

    } if$ 'names :=

    #1 i + 'i :=

  } while$

  pop$

  names

}

%==============================================================================

% Formata um titulo (pode ser `title' ou `booktitle')

%

% Parm:

%  um valor (0 ou 1) que indica se a formatacao deve ser enfatizada ou nao

%  um string com o titulo a ser formatado

%==============================================================================

FUNCTION {format.title}

{

  swap$ {

    extract.subtitle emphasize swap$ *

  }{

    skip$

  } if$

}

%==============================================================================

% Retorna a indicacao de paginas ajustada para ter dois tracos (`--') se a

% entrada so' tiver um.

%==============================================================================

FUNCTION {get.adjusted.pages}

{

  #1 'i :=

  "" 'new.pages :=

  pages #1 #1 substring$

  {duplicate$ "" = not}

  {

    duplicate$ "-" =

    pages i #1 - #1 substring$ "-" = not

    and

    pages i #1 + #1 substring$ "-" = not

    and

      {"-" *}

      'skip$

    if$

    new.pages swap$ * 'new.pages :=

    #1 i + 'i :=

    pages i #1 substring$

  } while$

  pop$

  new.pages

}

%==============================================================================

% Coloca a primeira palavra do titulo em letras maiusculas e o resto em

% minusculas. Esta funcao e' usada para gerar referencias cuja entrada e' pelo

% titulo.

%==============================================================================

FUNCTION {format.entrytitle}

{

  #0 title format.title

  extract.first.word "u" change.case$

  swap$ * 

}

%==============================================================================

% Converte a edicao literal ("First", "Second", etc., que é o padrão indicado

% no manual do BibTeX) para o algarismo correspondente. Recebe na pilha o

% string e devolve o numero.

%==============================================================================

FUNCTION {convert.to.number}

{

  duplicate$ "First" =

  {pop$ "1"}

  {duplicate$ "Second" =

  {pop$ "2"}

  {duplicate$ "Third" =

  {pop$ "3"}

  {duplicate$ "Fourth" =

  {pop$ "4"}

  {duplicate$ "Fifth" =

  {pop$ "5"}

  {duplicate$ "Sixth" =

  {pop$ "6"}

  {duplicate$ "Seventh" =

  {pop$ "7"}

  {duplicate$ "Eighth" =

  {pop$ "8"}

  {duplicate$ "Ninth" =

  {pop$ "9"}

  {duplicate$ "Tenth" =

  {pop$ "10"}

  {skip$

  } if$

  } if$

  } if$

  } if$

  } if$

  } if$

  } if$

  } if$

  } if$

  } if$

}

%=========================================================================

% Formatacao dos campos. Se o campo nao existir a funcao devolve um string

% vazio.

%==============================================================================

FUNCTION {format.author}

{

  author empty$

    {""}

    {author format.names}

  if$

}

FUNCTION {format.editor}

{

  editor empty$

    {""}

    {editor format.names "~(Ed.)" *}

  if$

}

FUNCTION {format.edition}

{

  edition empty$

    {""}

    {edition convert.to.number ".ed." *}

  if$

}

FUNCTION {format.volume}

{

  volume empty$

    {""}

    {"v." volume *}

  if$

}

FUNCTION {format.number}

{

  number empty$

    {""}

    {"n." number *}

  if$

}

FUNCTION {format.month}

{

  month empty$

    {""}

    {month}

  if$

}

FUNCTION {format.address}

{

  address empty$

    {""}

    {address}

  if$

}

FUNCTION {format.publisher}

{

  type$ "mastersthesis" =

  type$ "phdthesis" =

  or

  {

    school empty$

      {""}

      {school}

    if$

  }{

  type$ "techreport" =

  {

    institution empty$

      {""}

      {institution}

    if$

  }{

    publisher empty$

      {""}

      {publisher}

    if$

  } if$

  } if$

}

FUNCTION {format.year}

{

  year empty$

    {""}

    {year}

  if$

}

FUNCTION {format.chapter}

{

  chapter empty$

    {""}

    {

      type empty$

        {str:chapter}

        {type "~" *}

      if$

      chapter *

    }

  if$

}

FUNCTION {format.pages}

{

  pages empty$

    {""}

    {"p." get.adjusted.pages *}

  if$

}

FUNCTION {format.totalpages}

{

  pages empty$

    {""}

    {pages "p." *}

  if$

}

FUNCTION {format.note}

{

  note empty$

    {""}

    {note}

  if$

}

FUNCTION {format.month.year}

{

  month empty$

    {year}

    {month "~" * year *}

  if$

}

FUNCTION {format.type}

{

  type empty$

    'skip$

    {pop$ type}

  if$

}

FUNCTION {format.howpublished}

{

  howpublished empty$

    {""}

    {howpublished}

  if$

}

FUNCTION {format.series}

{

  series empty$

    {""}

    {series}

  if$

}

FUNCTION {format.parenthised.number}

{

  number empty$ {

    ""

  }{

    "(" number * ")" *

  } if$

}

%==============================================================================

% As seguintes funcoes adicionam um item a uma lista passada na pilha.

%==============================================================================

FUNCTION {add.address} {format.address add.to.list}

FUNCTION {add.publisher} {format.publisher add.to.list}

FUNCTION {add.year} {format.year add.to.list}

FUNCTION {add.chapter} {format.chapter add.to.list}

FUNCTION {add.edition} {format.edition add.to.list}

FUNCTION {add.volume} {format.volume add.to.list}

FUNCTION {add.number} {format.number add.to.list}

FUNCTION {add.month} {format.month add.to.list}

FUNCTION {add.totalpages} {format.totalpages add.to.list}

FUNCTION {add.pages} {format.pages add.to.list}

FUNCTION {add.note} {format.note add.to.list}

FUNCTION {add.month.year} {format.month.year add.to.list}

FUNCTION {add.howpublished} {format.howpublished add.to.list}

FUNCTION {format.urldate} {

  urldate empty$

      {""}

    {"Acesso em: " urldate *}

    if$

}

FUNCTION {format.url} {

  url empty$

      {""}

        {"Dispon{\'\i}vel em: <" url * ">" *}

  if$

}

%==============================================================================

% Converte virgula para dois-pontos; usado na formatacao do publisher de

% proceedings e inproceedings, que normalmente levam tambem o local de publi-

% cao; no padrao ABNT essa separacao deve ser por dois-pontos.

% Recebe o string original e devolve o novo.

%==============================================================================

FUNCTION {comma.to.colon}

{

  's :=

  "" 't :=

  #1 'i :=

  {s i #1 substring$ "" = not}

  {

    s i #1 substring$ duplicate$ "," =

      {pop$ t ":" * 't :=}

      {t swap$ * 't :=}

    if$

    i #1 + 'i :=

  } while$

  t

}

%

% localiza a posicao do primeiro caractere maiusculo

% recebe o string, devolve a posicao

%

FUNCTION {find.first.uppercase.char}

{

  's :=

  #1 'j :=

  #1 'i :=

  {

    s i #1 substring$ 't :=

    t "" = not

    t is.uppercase.char not

    and

  }

  {

    i #1 + 'i :=

    t "\" = not

    t "{" = not

    and

    t "}" = not

    and

      {i 'j :=}

      'skip$

    if$

  } while$

  t "" =

    {#1}

    {j}

  if$

}

%

% extrai o primeiro numero que aparece no string passado na pilha,

% retornando-o; se nao ha' numero, retorna ""

%

FUNCTION {extract.first.number}

{

  's :=

  "" 't :=

  #1 'i :=

  {

    s i #1 substring$

    duplicate$ is.numeric.char not

    swap$ "" = not

    and

  }

  {

    i #1 + 'i :=

  } while$

  {s i #1 substring$ is.numeric.char}

  {

    t s i #1 substring$ * 't :=

    i #1 + 'i :=

  } while$

  t

}

%

% divide um string em dois

% recebe o string e a posicao

% devolve a primeira e a segunda parte

FUNCTION {split.string}

{

  swap$ 's :=

  duplicate$

  s swap$ #1 swap$ #1 - substring$

  swap$ s swap$ global.max$ substring$

}

%

% recebe o titulo original e devolve, na ordem, o tipo de proceedings e o

% restante do titulo

%

FUNCTION {extract.proceedings.type}

{

  's :=

  type empty$ not

    {type s}

    {"dummy"

  pop$ s #1 #11 substring$ duplicate$ "Proceedings" =

    {s #12 global.max$ substring$}{

  pop$ s #1 #5 substring$ duplicate$ "Proc." =

    {pop$ "Proceedings" s #6 global.max$ substring$}{

  pop$ s #1 #22 substring$ duplicate$ "Conference Proceedings" =

    {pop$ "Proceedings" s #23 global.max$ substring$}{

  pop$ s #1 #6 substring$ duplicate$ "Annals" =

    {s #7 global.max$ substring$}{

  pop$ s #1 #5 substring$ duplicate$ "Actas" =

    {s #6 global.max$ substring$}{

  pop$ s #1 #5 substring$ duplicate$ "Anais" =

    {s #6 global.max$ substring$}{

  pop$ s #1 #6 substring$ duplicate$ "Anales" =

    {s #7 global.max$ substring$}{

  pop$ s #1 #8 substring$ duplicate$ "Memorias" =

    {s #9 global.max$ substring$}{

  pop$ s #1 #22 substring$ duplicate$ "Trabajos Seleccionados" =

    {s #23 global.max$ substring$}{

  pop$ s #1 #11 substring$ duplicate$ "Tagungsband" =

    {s #12 global.max$ substring$}

    {pop$ "Proceedings" s} if$

  } if$

  } if$

  } if$

  } if$

  } if$

  } if$

  } if$

  } if$

  } if$

  } if$

}

%==============================================================================

% Converte um booktitle do tipo "Proc. of XXX" no padrao ABNT

% Recebe na pilha o titulo original

% Devolve na pilha, na ordem:

% - o tipo de publicacao

% - o titulo ja' formatado (em maiusculas e com a edicao)

%==============================================================================

FUNCTION {process.proceedings.booktitle}

{

  extract.proceedings.type

  duplicate$ find.first.uppercase.char split.string "u" change.case$

  swap$ extract.first.number

  duplicate$ empty$

    'pop$

    {", " swap$ * * "." *}

  if$

}

%==============================================================================

% Estas funcoes formatam partes comuns a varios tipos de referencia.

%==============================================================================

FUNCTION {format.publication}

{

  ""

  address empty$

    {

      "[S.l."

      format.publisher empty$

        {":~s.n.]" *}

        {"]: " format.publisher * *}

      if$ add.year add.to.item

    }

    {

      format.address

      format.publisher empty$

        {": [s.n.]" *}

        {": " format.publisher * *}

      if$ add.year add.to.item

    }

  if$

}

FUNCTION {format.proceedings.publication}

{

  publisher empty$

    {"[S.l.:~s.n.]"}

    {publisher comma.to.colon}

  if$ add.year

}

FUNCTION {format.misc.publication}

{

  address empty$

  publisher empty$

  and

    {""}

    {format.publication}

  if$

}

FUNCTION {format.series.info}

{

  "(" format.series *

  add.volume ")" *

}

FUNCTION {format.complementary.data.with.totalpages}

{

  "" format.totalpages add.to.item

  ""

  series empty$

    {add.volume add.number add.to.item}

    {add.number add.to.item format.series.info add.to.item}

  if$

}

FUNCTION {format.complementary.data.with.page.range}

{

  ""

  series empty$

    {add.volume add.number add.pages}

    {"" add.number add.pages add.to.item format.series.info add.to.item}

  if$

}

%

% esta funcao recebe o titulo a ser formatado

%

FUNCTION {format.proceedings.booktitle}

{

  process.proceedings.booktitle "" swap$ add.year add.address add.to.item

  swap$ "{\ldots}" * emphasize " " swap$ * *

}

%==============================================================================

% Formatacao das entradas

%==============================================================================

FUNCTION {article}

{

  ""

  format.author add.to.item

  #0 title format.title add.to.item

  journal emphasize

    address empty$ {

      "[S.l.]" add.to.list

    }{

      add.address

    } if$

    add.volume add.number add.pages add.month.year add.to.item

  format.note add.to.item

  write.item

}

FUNCTION {book}

{

  ""

  editor empty$

    {format.author}

    {format.editor}

  if$ add.to.item

  #1 title format.title add.to.item

  format.edition add.to.item

  format.publication add.to.item

  format.complementary.data.with.totalpages add.to.item

  format.note add.to.item

  write.item

}

FUNCTION {inbook}

{

  ""

  editor empty$

    {format.author}

    {format.editor}

  if$ add.to.item

  #1 title format.title add.to.item

  format.edition add.to.item

  format.publication add.to.item

  format.complementary.data.with.page.range add.to.item