[abntex2] push by lauroce...@gmail.com - %% 2013/02/21 21h52 caduarte7@gmail.com (revision by laurocesar)... on 2013-02-22 00:57 GMT

[abn...@googlecode.com]

Revision: af847bdfec7f
Branch: default
Author: lauro...@gmail.com
Date: Thu Feb 21 16:56:50 2013
Log: %% 2013/02/21 21h52 cadu...@gmail.com (revision by laurocesar)
%% Fix iso-690-1987 option: year was placed twice
http://code.google.com/p/abntex2/source/detail?r=af847bdfec7f

Deleted:
/bibtex/bst/abntex2/abntex2-alf.bst
/bibtex/bst/abntex2/abntex2-num.bst
Modified:
/doc/latex/abntex2/README

=======================================
--- /bibtex/bst/abntex2/abntex2-alf.bst Mon Feb 4 03:03:59 2013
+++ /dev/null
@@ -1,2188 +0,0 @@
-%% abntex2-alf.bst, v<VERSION> laurocesar
-%% Copyright 2012-2013 by abnTeX2 group at http://abntex2.googlecode.com/
-%%
-%% This work may be distributed and/or modified under the
-%% conditions of the LaTeX Project Public License, either version 1.3
-%% of this license or (at your option) any later version.
-%% The latest version of this license is in
-%% http://www.latex-project.org/lppl.txt
-%% and version 1.3 or later is part of all distributions of LaTeX
-%% version 2005/12/01 or later.
-%%
-%% This work has the LPPL maintenance status `maintained'.
-%%
-%% The Current Maintainer of this work is the abnTeX2 team, led
-%% by Lauro César Araujo. Further information are available on
-%% http://abntex2.googlecode.com/
-%%
-%% Creator and original mantainer: Gerald Weber <gwe...@codigolivre.org.br>
-%% Copyright 2001-2002 by the abnTeX group at
http://abntex.codigolivre.org.br
-%%
-%% This file is an *extensive* modification from a file generated with the
docstrip utility.
-%% The original source files were:
-%% merlin.mbs (with options:
`babel,nm-revf,aunm-semi,nmlm,x3,m3,dt-end,yr-com,xmth,vnum-x,volp-com,jwdpg,jwdvol,num-xser,btit-rm,bt-rm,pg-bk,add-pub,pub-date,pub-xpar,pre-pub,isbn,issn,pp,ed,abr,ednx,nfss')
-%% These sourefiles are copyrighted by Patrick W Daly
-%%
-%% Revision history:
-%%
-%% 2012/12/12 21h48 laurocesar
-%% Fork of the version v 1.45.2.1 2004/11/02 15:17:44 created by gweber
-%% Change file name to from abnt-alf.bst to abntex2-alf.bst
-%% Removed CVS revision automation
-%% Modify referentes of abnt-alf.bst and abnt-num.bst
-%%
-%% The original revision history is the following:
-%%
-%% Nota sobre os Logs: Se aparecer abnt-num é por que as aletarções foram
feitas
-%% neste arquivo e depois copiadas para abnt.alf e vice-versa.
-%%
-%% $Log: abnt-alf.bst,v $
-%% Revision 1.45.2.1 2004/11/02 15:17:44 gweber
-%% correcao do bug 239
-%%
-%% Revision 1.45 2003/07/23 12:06:01 gweber
-%% O comando apply.title.command agora atua sobre todas as ocorrências de
title, mas
-%% não sobre campos title que estão vazios.
-%%
-%% Revision 1.44 2003/07/22 16:26:01 gweber
-%% Adicionada a opção abnt-title-command. Com esta opção pode-se definir o
comando
-%% \bibtextitlecommand que permite formatações especiais no titulo.
-%%
-%% Revision 1.43 2003/06/05 14:34:05 gweber
-%% Introduzido filtro.url.tex e filtro.url.html, a função do primeiro é
alterar uma url de tal maneira
-%% que que o TeX possa processá-la sem problemas. A do segundo é fazer a
mesma coisa
-%% para a url que é passada para html ou hyperref.
-%%
-%% Revision 1.42 2003/06/04 13:18:07 gweber
-%% Introduzidas as opções hyperref para abnt.url.package com isso os
campos url são formatados agora como hyperlinks ativos.
-%% Também foram acrescentadas a opção abnt.doi que permite selecionar o
tratamento que recebe uma url começada com doi:
-%%
-%% Revision 1.41 2003/04/08 00:39:39 gweber
-%% Implementada a entrada @hidden que gera um \hiddenbibitem (só alf),
-%% ou seja uma entrada que não aparece na lista de referências e que pode
ser
-%% usada com o comando \apud e \apudonline.
-%%
-%% Revision 1.40 2003/04/01 19:34:47 gweber
-%% consertado bug de ordenação alfabética, agora a ordenação em
sort.format.names é igual a de format.names
-%%
-%% Revision 1.39 2003/03/25 14:06:19 gweber
-%% Inicio da adaptação para ISO 690:1987.
-%% Acrescentada a opção iso-author-punctuation cuja opção
-%% void gera iniciais juntas e sem ponto.
-%%
-%% Revision 1.38 2003/03/22 22:59:13 gweber
-%% abnt-nbr10520 foi substituído por abnt-cite-style.
-%% A função recompose.name recompõe um nome complicado, mas a função
-%% ainda é experimental e não está sendo usada no momento. Mesmo
-%% porque há nomes que o próprio bibtex tem problemas para tratar.
-%% A função presort for modificada de modo a poder manter o SORT em
-%% abnt-num sem realmente ordenar alfabeticamente.
-%%
-ENTRY
- { address author
- booktitle booksubtitle
- chapter conference-number conference-year conference-location
- edition editor editortype
- dimensions furtherresp
- howpublished illustrated institution
- isbn issn journal key month note marginnote number organization
- org-short pages pagename
- publisher reprinted-from reprinted-text school
- series subtitle section title type url urlaccessdate
- volume year year-presented
- abnt-and-type
- abnt-doi abnt-dont-use-etal
- abnt-etal-cite abnt-etal-list abnt-etal-text abnt-emphasize
abnt-experimental
- abnt-full-initials
- abnt-last-names abnt-ldots-type
- abnt-missing-year abnt-cite-style abnt-no-etal-label abnt-note
- abnt-repeated-author-omit abnt-repeated-title-omit
- abnt-show-options abnt-refinfo abnt-thesis-year abnt-url-package
- abnt-title-command
- abnt-verbatim-entry
- iso-abbreviation iso-author-punctuation iso-date-place
- }{}{ label extra.label year.label}
-
-%revision string
-STRINGS { abnt.bst.revision }
-
-%general purpose strings
-STRINGS { r s t }
-
-%variables needed to implement the various abnt options
-STRINGS {abnt.etal.text abnt.emphasize previous.author previous.title}
-INTEGERS {abnt.alf abnt.cite.style abnt.doi
- abnt.experimental abnt.etal.cite abnt.etal.list
- abnt.full.initials
- abnt.last.names abnt.ldots.type
- abnt.missing.year
- abnt.refinfo abnt.repeated.author.omit abnt.repeated.title.omit
- abnt.show.options abnt.and.type
- abnt.title.command
- abnt.thesis.year
- abnt.url.package abnt.verbatim.entry
- iso.abbreviation iso.author.punctuation iso.date.place
- repeated.author}
-
-%needed for title formatting
-INTEGERS { title.lenght title.pos first.word no.bracket}
-STRINGS { title.char}
-
-%needed for controlling the sentence position
-INTEGERS {output.state before.all mid.sentence after.sentence after.block }
-
-%needed for url identification
-INTEGERS {url.type}
-
-%static values for options
-%values for abnt.doi
-FUNCTION {abnt.doi.expand.to.url} {#0} %expands a doi address to its url
correspondent
-FUNCTION {abnt.doi.link} {#1} %links doi to its url correspondent
-FUNCTION {abnt.doi.leave.as.is} {#2} %shows doi as is, external viewer
will have
- %to know what to do with a "doi:"
document
-
-%values for url types
-FUNCTION {unknown.url} {#0}
-FUNCTION {http.url} {#1}
-FUNCTION {file.url} {#2}
-FUNCTION {ftp.url} {#3}
-FUNCTION {doi.url} {#4}
-FUNCTION {mailto.url} {#5}
-
-FUNCTION {init.state.consts}
-{ #0 'before.all :=
- #1 'mid.sentence :=
- #2 'after.sentence :=
- #3 'after.block :=
-}
-
-
-%output.nonnull decides what is written before the argument s, if a comma,
period etc.
-FUNCTION {output.nonnull}
-{ 's := %the argument is written into s
- output.state mid.sentence =
- { ", " * write$ } %mid.sentence first write comma
- { output.state after.block =
- { add.period$ write$ newline$ }
- { output.state before.all = 'write$
- { add.period$ " " * write$ }
- if$}
- if$
- mid.sentence 'output.state := }
- if$
- s %now comes s
-}
-FUNCTION {output.nonnull.dash}
-{ 's := %the argument is written into s
- output.state mid.sentence =
- { " --- " * write$ } %mid.sentence first write
comma
- { output.state after.block =
- { add.period$ write$ newline$ write$}
- { output.state before.all = 'write$
- { add.period$ " " * write$ }
- if$}
- if$
- mid.sentence 'output.state := }
- if$
- s %now comes s
-}
-FUNCTION {output} %does nothing or calls output.nonull
-{ duplicate$ empty$
- 'pop$
- 'output.nonnull
- if$
-}
-FUNCTION {output.dash} %does nothing or calls output.nonull
-{ duplicate$ empty$
- 'pop$
- 'output.nonnull.dash
- if$
-}
-FUNCTION {output.check} %like ouput, but complains if t empty
-{ 't :=
- duplicate$ empty$
- { pop$ "campo " t * " vazio em " * cite$ * warning$ }
- 'output.nonnull
- if$
-}
-
-FUNCTION {new.block}
-{ output.state before.all =
- 'skip$
- { after.block 'output.state := }
- if$
-}
-FUNCTION {new.sentence}
-{ output.state after.block =
- 'skip$
- { output.state before.all =
- 'skip$
- { after.sentence 'output.state := }
- if$
- }
- if$
-}
-FUNCTION {add.blank} { " " * before.all 'output.state :=}
-
-FUNCTION {date.block} {new.block}
-
-FUNCTION {not}
-{ { #0 }
- { #1 }
- if$
-}
-FUNCTION {and}
-{ 'skip$
- { pop$ #0 }
- if$
-}
-FUNCTION {or}
-{ { pop$ #1 }
- 'skip$
- if$
-}
-FUNCTION {new.block.checka}
-{ empty$
- 'skip$
- 'new.block
- if$
-}
-FUNCTION {new.block.checkb}
-{ empty$
- swap$ empty$
- and
- 'skip$
- 'new.block
- if$
-}
-FUNCTION {new.sentence.checka}
-{ empty$
- 'skip$
- 'new.sentence
- if$
-}
-FUNCTION {new.sentence.checkb}
-{ empty$
- swap$ empty$
- and
- 'skip$
- 'new.sentence
- if$
-}
-FUNCTION {field.or.null}
-{ duplicate$ empty$
- { pop$ "" }
- 'skip$
- if$
-}
-FUNCTION {emphasize}
-{ duplicate$ empty$
- { pop$ "" }
- { abnt.emphasize "{" * swap$ * "}" * }
- if$
-}
-
-
-FUNCTION {tie.or.space.prefix} %if text length less than 3 chars. uses a
tie
-{ duplicate$ text.length$ #5 <
- { "~" }
- { " " }
- if$
- swap$
-}
-
-FUNCTION {no.space} { { "" } swap$ }
-
-
-FUNCTION {space.word} { " " swap$ * " " * }
-
-FUNCTION {bbl.and}
-{ abnt.and.type #0 = {" e "} 'skip$ if$
- abnt.and.type #1 = {" \& "} 'skip$ if$}
-FUNCTION {bbl.chapter} { "cap." }
-FUNCTION {bbl.colon} {": "}
-FUNCTION {bbl.editors} { "Ed." }
-FUNCTION {bbl.editor} { "Ed." }
-FUNCTION {bbl.edby} { "editado por" }
-FUNCTION {bbl.edition} { "ed." }
-FUNCTION {bbl.empty} {""}
-FUNCTION {bbl.etal}{abnt.etal.text "" = {""} {" " abnt.etal.text *} if$}
-FUNCTION {bbl.doi.url} {"http://dx.doi.org/"}
-FUNCTION {bbl.in}{ "In" iso.abbreviation 'skip$ { bbl.colon *} if$}
-FUNCTION {bbl.ldots} %#0 use nothing, #1 use \ldots, #2 use $\ldots$, 3#
use {...}
-{abnt.ldots.type
- {abnt.ldots.type #1 = {"\ldots"} 'skip$ if$
- abnt.ldots.type #2 = {"$\ldots$"} 'skip$ if$
- abnt.ldots.type #3 = {"{...}"} 'skip$ if$}
- {""} %for #0 use nothing
-if$}
-FUNCTION {bbl.master} { "Mestrado" }
-FUNCTION {bbl.missing.year}
-{abnt.missing.year
- {"[s.d.]"} %#1
- {""} %#0
- if$}
-FUNCTION {bbl.monography} { "Monografia" }
-FUNCTION {bbl.mthesis} { "Disserta\c{c}\~{a}o" }
-FUNCTION {bbl.no.address} {"[S.l.]"}
-FUNCTION {bbl.no.address.no.publisher} {"[S.l.: s.n.]"}
-FUNCTION {bbl.no.publisher} {"[s.n.]"}
-FUNCTION {bbl.number} { iso.abbreviation {"no."} {"n."} if$ }
-FUNCTION {bbl.nr} { "n." }
-FUNCTION {bbl.of} { "de" }
-FUNCTION {bbl.phd} { "Doutorado" }
-FUNCTION {bbl.phdthesis} { "Tese" }
-FUNCTION {bbl.pages}
- {pagename empty$
- { "p." }
- {pagename}
- if$
- }
-FUNCTION {bbl.page} { bbl.pages }
-FUNCTION {bbl.reprint} {"Separata de"}
-FUNCTION {bbl.semicolon} { "; "}
-FUNCTION {bbl.same.field} {"\underline{\ \ \ \ \ \ \ \ }"}
-FUNCTION {bbl.techrep} { "Rel. Tec." }
-FUNCTION {bbl.url.accessdate}
- {iso.abbreviation { "Cited "} {"Acesso em: "} if$}
-FUNCTION {bbl.url.available}
-{ iso.abbreviation {"Available from Internet: "} {"Dispon{\'\i}vel em: "}
if$}
-FUNCTION {bbl.void} {""}
-FUNCTION {bbl.volume} { iso.abbreviation {"vol."} {"v."} if$ }
-
-
-MACRO {jan} {"jan."}
-MACRO {feb} {"fev."}
-MACRO {mar} {"mar."}
-MACRO {apr} {"abr."}
-MACRO {may} {"maio"}
-MACRO {jun} {"jun."}
-MACRO {jul} {"jul."}
-MACRO {aug} {"ago."}
-MACRO {sep} {"set."}
-MACRO {oct} {"out."}
-MACRO {nov} {"nov."}
-MACRO {dec} {"dez."}
-
-
-FUNCTION {is.num}
-{ chr.to.int$
- duplicate$ "0" chr.to.int$ < not
- swap$ "9" chr.to.int$ > not and
-}
-FUNCTION {str.to.int}
-{ duplicate$ is.num
- {chr.to.int$ #48 -}
- 'skip$
- if$
-}
-FUNCTION {bibinfo.check} %usage: field "field" bibinfo.check
-{ swap$ duplicate$ missing$
- {pop$ pop$ ""}
- { duplicate$ empty$
- {swap$ pop$}
- {swap$ pop$}
- if$
- }
- if$
-}
-FUNCTION {bibinfo.warn}
-{ swap$
- duplicate$ missing$
- {swap$ "faltando " swap$ * " em " * cite$ * warning$ pop$ ""}
- { duplicate$ empty$
- {swap$ "vazio " swap$ * " em " * cite$ * warning$}
- {swap$ pop$}
- if$
- }
- if$
-}
-
-FUNCTION {write.field.verbatim}
-{
-duplicate$ missing$
- {pop$ pop$}
- {
- s text.length$ #0 >
- {s "," * newline$ write$ "" 's :=}
- 'skip$
- if$
- swap$
- "={" * swap$ * "}" *
- s swap$ * 's :=
- }
-if$
-}
-
-FUNCTION {write.entry.verbatim1}
-{
- "address" address write.field.verbatim
- "author" author write.field.verbatim
- "booktitle" booktitle write.field.verbatim
- "booksubtitle" booksubtitle write.field.verbatim
- "chapter" chapter write.field.verbatim
- "conference-number" conference-number write.field.verbatim
- "conference-year" conference-year write.field.verbatim
- "conference-location" conference-location write.field.verbatim
- "edition" edition write.field.verbatim
- "editor" editor write.field.verbatim
- "editortype" editortype write.field.verbatim
- "dimensions" dimensions write.field.verbatim
- "furtherresp" furtherresp write.field.verbatim
- "howpublished" howpublished write.field.verbatim
- "illustrated" illustrated write.field.verbatim
- "institution" institution write.field.verbatim
- "isbn" isbn write.field.verbatim
- "issn" issn write.field.verbatim
- "journal" journal write.field.verbatim
-}
-FUNCTION {write.entry.verbatim2}
-{
- "key" key write.field.verbatim
- "month" month write.field.verbatim
- "note" note write.field.verbatim
- "marginnote" marginnote write.field.verbatim
- "number" number write.field.verbatim
- "organization" organization write.field.verbatim
- "org-short" org-short write.field.verbatim
- "pages" pages write.field.verbatim
- "pagename" pagename write.field.verbatim
- "publisher" publisher write.field.verbatim
- "reprinted-from" reprinted-from write.field.verbatim
- "reprinted-text" reprinted-text write.field.verbatim
- "school" school write.field.verbatim
- "series" series write.field.verbatim
- "subtitle" subtitle write.field.verbatim
- "section" section write.field.verbatim
- "title" title write.field.verbatim
- "type" type write.field.verbatim
-}
-FUNCTION {write.entry.verbatim3}
-{
- "url" url write.field.verbatim
- "urlaccessdate" urlaccessdate write.field.verbatim
- "volume" volume write.field.verbatim
- "year" year write.field.verbatim
- "abnt-emphasize" abnt-emphasize write.field.verbatim
- "abnt-experimental" abnt-experimental write.field.verbatim
- "abnt-doi" abnt-doi write.field.verbatim
- "abnt-dont-use-etal" abnt-dont-use-etal write.field.verbatim
- "abnt-full-initials" abnt-full-initials write.field.verbatim
- "abnt-ldots-type" abnt-ldots-type write.field.verbatim
- "abnt-missing-year" abnt-missing-year write.field.verbatim
- "abnt-cite-style" abnt-cite-style write.field.verbatim
- "abnt-no-etal-label" abnt-no-etal-label write.field.verbatim
- %abnt-note
- "abnt-repeated-author-omit" abnt-repeated-author-omit
write.field.verbatim
- "abnt-repeated-title-omit" abnt-repeated-title-omit write.field.verbatim
- "abnt-show-options" abnt-show-options write.field.verbatim
- "abnt-refinfo" abnt-refinfo write.field.verbatim
- "abnt-thesis-year" abnt-thesis-year write.field.verbatim
- "abnt-title-command" abnt-title-command write.field.verbatim
- "abnt-url-package" abnt-url-package write.field.verbatim
- "abnt-verbatim-entry" abnt-verbatim-entry write.field.verbatim
-}
-
-FUNCTION {write.entry.verbatim}
-{"" 's := "" 't :=
- abnt.verbatim.entry
- {"{\footnotesize\begin{verbatim}" newline$ write$
- "@" type$ * "{" * cite$ * 's :=
- write.entry.verbatim1
- write.entry.verbatim2
- write.entry.verbatim3
- s "" = {"}"} {s "}" *} if$
- newline$ write$
- "\end{verbatim}}" newline$ write$}
- {newline$}
-if$}
-
-STRINGS { bibinfo}
-INTEGERS { nameptr namesleft numnames }
-
-FUNCTION {get.person} {"{vv }{ll}{, jj}{, ff}" format.name$}
-FUNCTION {get.last.name} {#1 "{ll}" format.name$}
-FUNCTION {get.first.name} {#1 "{ff}" format.name$}
-FUNCTION {get.von} {#1 "{vv}" format.name$}
-FUNCTION {get.jr} {#1 "{jj}" format.name$}
-FUNCTION {is.composed.von}
- {get.person
- get.von duplicate$ empty$ {pop$ #0}
- {duplicate$
- get.first.name empty$ not
- swap$ get.last.name empty$ not and
- } if$
- }
-
-FUNCTION {recompose.name}
- {get.person duplicate$ duplicate$ duplicate$
- get.von #1 "{ll }" format.name$ swap$
- get.last.name *
- swap$ #1 "{, ff}" format.name$ *
- swap$ get.von #1 "{ ff}" format.name$ *
- }
-
-
-FUNCTION {format.single.name}
-{
-s nameptr get.person 'r :=
-abnt.last.names
- {r #1 "{ll}{ jj}" format.name$ "u" change.case$
- abnt.full.initials
- {r #1 "{, ff}{ vv}" format.name$ *}
- {r #1 "{, f.}{ vv}" format.name$ *}
- if$}
- {%r #1 is.composed.von {r #1 recompose.name 'r :=} 'skip$ if$
- r #1 "{ll}" format.name$
- #1 "{ll}" format.name$
- r #1 "{ jj}" format.name$ * "u" change.case$
- abnt.full.initials
- {r #1 "{, ff}{ vv}" format.name$ *
- r #1 "{ll}" format.name$
- #1 "{ ff}{ vv}" format.name$ *}
- {iso.author.punctuation
- {r #1 "{, f{}}{ vv}" format.name$ *}
- {r #1 "{, f.}{ vv}" format.name$ *} if$
- r #1 "{ll}" format.name$
- #1 "{ f.}{ vv}" format.name$ *}
- if$}
-
-if$
-}
-FUNCTION {format.names}
-{ 'bibinfo := duplicate$ empty$ 'skip$
- {'s :=
- "" 't :=
- #1 'nameptr := s num.names$ 'numnames :=
- numnames 'namesleft :=
- { namesleft #0 > }
- { format.single.name
- bibinfo bibinfo.check
- 't :=
- nameptr #1 >
- {nameptr #1 #1 + = numnames abnt.etal.list > and
- {abnt.etal.list {"others" 't := #1 'namesleft :=} 'skip$ if$ }
- 'skip$
- if$
- namesleft #1 >
- { "; " * t * }
- { numnames #2 >
- { "" * }
- 'skip$
- if$
- s nameptr "{ll}" format.name$ duplicate$ "others" =
- { 't := }
- { pop$ }
- if$
- t "others" =
- { bbl.etal *}
- { "; " * t *}
- if$ }
- if$ }
- 't
- if$
- nameptr #1 + 'nameptr :=
- namesleft #1 - 'namesleft := }
- while$
- } if$
-}
-
-%from plain.bst
-FUNCTION {format.names.plain}
-{ 's :=
- #1 'nameptr :=
- s num.names$ 'numnames :=
- numnames 'namesleft :=
- { namesleft #0 > }
- { s nameptr "{ff }{vv }{ll}{ jj}" format.name$ 't :=
- nameptr #1 >
- { namesleft #1 >
- { ", " * t * }
- { numnames #20 >
- { "," * }
- 'skip$
- if$
- t "others" =
- { bbl.etal * }
- { bbl.and * t * }
- if$
- }
- if$
- }
- 't
- if$
- nameptr #1 + 'nameptr :=
- namesleft #1 - 'namesleft :=
- }
- while$
-}
-FUNCTION {format.names.ed} {format.names}
-
-FUNCTION {format.authors}
-{
-author "author" format.names
-}
-
-FUNCTION {format.authors.plain}
-{
-author format.names.plain
-}
-
-FUNCTION {get.bbl.editor} { editor num.names$ #1
> 'bbl.editors 'bbl.editor if$ }
-
-
-FUNCTION {format.book.pages}
-{ pages "pages" bibinfo.check duplicate$ empty$
- 'skip$
- { "~" * bbl.pages * }
- if$
-}
-FUNCTION {format.dimensions}
-{ dimensions empty$
- 'skip$
- { dimensions output}
- if$
-}
-FUNCTION {format.furtherresp}
-{ furtherresp empty$
- 'skip$
- { furtherresp output}
- if$
-}
-FUNCTION {format.illustrated}
-{ illustrated missing$
- 'skip$
- {illustrated empty$
- {"il." output}
- {illustrated output}
- if$}
- if$
-}
-FUNCTION {format.isbn}
-{ isbn "isbn" bibinfo.check duplicate$ empty$
- 'skip$
- {new.block "ISBN " swap$ *}
- if$
-}
-
-FUNCTION {format.issn}
-{ issn "issn" bibinfo.check
- duplicate$ empty$ 'skip$
- {new.block "ISSN " swap$ *}
- if$
-}
-
-FUNCTION {format.note}
-{ note empty$
- { "" }
- { note #1 #1 substring$
- duplicate$ "{" =
- 'skip$
- { output.state mid.sentence =
- { "l" }
- { "u" }
- if$
- change.case$ }
- if$
- note #2 global.max$ substring$ * "note" bibinfo.check }
- if$
-}
-
-FUNCTION {format.howpublished}
-{ howpublished empty$
- { "" }
- { howpublished #1 #1 substring$
- duplicate$ "{" =
- 'skip$
- { output.state mid.sentence =
- { "l" }
- { "u" }
- if$
- change.case$ }
- if$
- howpublished #2 global.max$ substring$ * "howpublished"
bibinfo.check }
- if$
-}
-
-
-%ABNT styles require that the title acts as an author if
-%typical author fields are absent. In this case the first
-%word is uppercase. Our main problem is to establish what
-%the first word actually is since portuguese uses accents.
-%For example: Fun{\c c}\ão (Função) is a whole word but contains a
-%space, but if we write Fun\c{c}\ão \c is converted to uppercase...
-%You get the problem, don't you?
-FUNCTION {format.title.as.author}
-{ 's := %holds the title
- #1 'title.pos := %our position in the title
- #1 'first.word := %boolean, true if we already have the first word
- #1 'no.bracket := %boolean, false if we are inside a {}
- "" 't := %holds the first title.pos characters of the title
- {first.word}
- {s title.pos #1 substring$ 'title.char :=
- %checks if the character is a {
- title.char "{" = {#0 'no.bracket :=} 'skip$ if$
- %if we are in a bracket
- no.bracket 'skip$ {title.char "}" = {#1 'no.bracket :=} 'skip$ if$}
if$
- type$ "journalpart" =
- {title.char "." = title.char ":" = or title.char "!" = or
- title.char "," = or title.char ";" = or title.char "?" = or}
- {title.char " " =}
- if$ s t = or no.bracket and
- {#0 'first.word :=
- t title.char * "u" change.case$
- title.pos #1 + 'title.pos :=
- s title.pos global.max$ substring$ * 's :=}
- {title.pos #1 + 'title.pos := t title.char * 't :=}
- if$
- }
- while$
-s
-}
-
-
-%compares current title with the title of the previous entry
-FUNCTION {compare.title}
-{abnt.repeated.title.omit
- {duplicate$ "" = 'skip$
- {duplicate$ previous.title = repeated.author and
- {duplicate$ 'previous.title := pop$ bbl.same.field}
- {duplicate$ 'previous.title :=}
- if$}
- if$}
- 'skip$
- if$
-}
-
-FUNCTION {apply.title.command}
-{abnt.title.command
- {duplicate$ empty$ 'skip$
- {"\bibtextitlecommand{" type$ * "}{" * swap$ * "}" *}
- if$}
- 'skip$ if$
-}
-
-FUNCTION {format.title}
-{author empty$ editor empty$ and organization empty$ and
- {title format.title.as.author}
- {title duplicate$ empty$ {pop$ ""} {"t" change.case$} if$}
- if$
- subtitle empty$ 'skip$ {subtitle ": " swap$ * "t" change.case$ *} if$
- apply.title.command
- compare.title
-}
-
-FUNCTION {n.dashify}
-{
- 't :=
- ""
- { t empty$ not }
- { t #1 #1 substring$ "-" =
- { t #1 #2 substring$ "--" = not
- { "--" *
- t #2 global.max$ substring$ 't :=
- }
- { { t #1 #1 substring$ "-" = }
- { "-" *
- t #2 global.max$ substring$ 't :=
- }
- while$
- }
- if$
- }
- { t #1 #1 substring$ *
- t #2 global.max$ substring$ 't :=
- }
- if$
- }
- while$
-}
-
-FUNCTION {word.in} { bbl.in " " * }
-
-FUNCTION {format.month}
-{ month empty$ 'skip$
- {month "month" bibinfo.check}
- if$
-}
-
-FUNCTION {format.date}
-{ year empty$
- { month empty$
- { bbl.missing.year }
- { "existe o campo month (mês) mas não o campo year (ano) em " cite$ *
warning$ month}
- if$}
- { month empty$
- { year n.dashify}
- { month " " * year * }
- if$}
- if$
-}
-FUNCTION {format.btitle}
-{author empty$ editor empty$ and organization empty$ and
- {title format.title.as.author "title" bibinfo.check duplicate$
empty$ 'skip$ {} if$
- subtitle empty$ 'skip$ {subtitle ": " swap$ * "t" change.case$ *} if$}
- {title "title" bibinfo.check emphasize duplicate$ empty$ 'skip$ {} if$
- subtitle empty$ 'skip$ {subtitle ": " swap$ * "t" change.case$ *} if$}
-if$
-apply.title.command
-compare.title
-}
-FUNCTION {either.or.check}
-{ empty$
- 'pop$
- { "não posso usar ambos " swap$ * " os campos em " * cite$ * warning$ }
- if$
-}
-
-FUNCTION {format.volume} %leaves formatted or empty volume on the stack
-{volume duplicate$ empty$
- 'skip$
- {volume #1 #1 substring$ is.num
- {bbl.volume swap$ tie.or.space.prefix * *}
- 'skip$
- if$}
- if$
-}
-
-FUNCTION {format.number} %leaves formatted or empty number on the stack
-{ number duplicate$ empty$
- 'skip$
- {bbl.number swap$ tie.or.space.prefix * *}
- if$
-}
-
-FUNCTION {format.patent.number}
-{ number
-}
-
-FUNCTION {format.bvolume}
-{ volume empty$
- { "" }
- { format.volume
- number empty$ 'skip$ {output format.number} if$
- series "series" bibinfo.check
- duplicate$ empty$ 'pop$
- { swap$ bbl.of space.word * swap$
- emphasize * }
- if$
- }
- if$
-}
-
-FUNCTION {format.bvolume.if.no.series}
-{ series empty$
- { format.bvolume }
- { "" }
- if$
-}
-
-
-FUNCTION {format.number.or.volume}
-{number empty$
- {format.volume}
- {number} %we use the pure number here without leading "n."
- if$
-}
-
-FUNCTION {format.volume.and.number}
-{format.volume output
- format.number
-}
-
-FUNCTION {format.volume.number.series}
-{ number empty$ volume empty$ and
- { series empty$
- { "" }
- {" (" series "series" bibinfo.check * ")" *}
- if$}
- { series empty$
- {""} %{ format.number.or.volume }
- { " (" series "series" bibinfo.check * ", " *
- format.number.or.volume * ")" * }
- if$ }
- if$
-}
-
-FUNCTION {extract.num}
-{ duplicate$ 't :=
- "" 's :=
- { t empty$ not }
- { t #1 #1 substring$
- t #2 global.max$ substring$ 't :=
- duplicate$ is.num
- { s swap$ * 's := }
- { pop$ "" 't := }
- if$ }
- while$
- s empty$
- 'skip$
- { pop$ s }
- if$
-}
-
-FUNCTION {format.edition}
-{ edition duplicate$ empty$ 'skip$
- {output.state mid.sentence = { "l" } { "t" } if$ change.case$
- "edition" bibinfo.check
- edition #1 #1 substring$ is.num {". " * bbl.edition * } 'skip$ if$}
- if$
-}
-INTEGERS { multiresult }
-FUNCTION {multi.page.check}
-{ 't :=
- #0 'multiresult :=
- { multiresult not
- t empty$ not
- and }
- { t #1 #1 substring$
- duplicate$ "-" =
- swap$ duplicate$ "," =
- swap$ "+" =
- or or
- { #1 'multiresult := }
- { t #2 global.max$ substring$ 't := }
- if$ }
- while$
- multiresult
-}
-FUNCTION {format.pages}
-{ pages duplicate$ empty$ 'skip$
- { duplicate$ multi.page.check
- { n.dashify bbl.pages swap$}
- { bbl.page swap$ }
- if$
- tie.or.space.prefix "pages" bibinfo.check * * }
- if$
-}
-FUNCTION {format.journal.pages}
-{ pages empty$ {""}
- { pages n.dashify bbl.pages
- swap$ tie.or.space.prefix "pages" bibinfo.check * *}
- if$
-}
-
-FUNCTION {get.url.type}
-{s #1 #5 substring$ "http:" = {http.url}
- {s #1 #5 substring$ "file:" = {file.url}
- {s #1 #4 substring$ "ftp:" = {ftp.url}
- {s #1 #4 substring$ "doi:" = {doi.url}
- {s #1 #7 substring$ "mailto:" = {mailto.url} {unknown.url} if$}
- if$}
- if$}
- if$}
- if$
- 'url.type :=
-}
-
-FUNCTION {expand.doi}
-{s
-url.type doi.url =
- {#5 global.max$ substring$ bbl.doi.url swap$ *}
- 'skip$ if$
-}
-
-INTEGERS {url.pos url.length}
-FUNCTION {filter.url.tex}
-{s text.length$ #1 + 'url.length :=
- #1 'url.pos := "" 't :=
- {url.pos url.length <}
- {s url.pos #1 substring$
- duplicate$ "_" = {pop$ "\underline{\ }" } 'skip$ if$
- duplicate$ "%" = {pop$ "\%" } 'skip$ if$
- duplicate$ "~" = {pop$ "\~{}" } 'skip$ if$
- duplicate$ "/" = {pop$ "\-/" } 'skip$ if$
- duplicate$ "." = {pop$ "\-." } 'skip$ if$
- duplicate$ "\" = {pop$ "{\textbackslash}" } 'skip$ if$
- t swap$ * 't :=
- url.pos #1 + 'url.pos :=
***The diff for this file has been truncated for email.***
=======================================
--- /bibtex/bst/abntex2/abntex2-num.bst Mon Feb 4 03:03:59 2013
+++ /dev/null
@@ -1,2188 +0,0 @@
-%% abntex2-num.bst, v<VERSION> laurocesar
-%% Copyright 2012-2013 by abnTeX2 group at http://abntex2.googlecode.com/
-%%
-%% This work may be distributed and/or modified under the
-%% conditions of the LaTeX Project Public License, either version 1.3
-%% of this license or (at your option) any later version.
-%% The latest version of this license is in
-%% http://www.latex-project.org/lppl.txt
-%% and version 1.3 or later is part of all distributions of LaTeX
-%% version 2005/12/01 or later.
-%%
-%% This work has the LPPL maintenance status `maintained'.
-%%
-%% The Current Maintainer of this work is the abnTeX2 team, led
-%% by Lauro César Araujo. Further information are available on
-%% http://abntex2.googlecode.com/
-%%
-%% Creator and original mantainer: Gerald Weber <gwe...@codigolivre.org.br>
-%% Copyright 2001-2003 by the abnTeX group at
http://abntex.codigolivre.org.br
-%%
-%% This file is an *extensive* modification from a file generated with the
docstrip utility.
-%% The original source files were:
-%% merlin.mbs (with options:
`babel,nm-revf,aunm-semi,nmlm,x3,m3,dt-end,yr-com,xmth,vnum-x,volp-com,jwdpg,jwdvol,num-xser,btit-rm,bt-rm,pg-bk,add-pub,pub-date,pub-xpar,pre-pub,isbn,issn,pp,ed,abr,ednx,nfss')
-%% These sourefiles are copyrighted by Patrick W Daly
-%%
-%% Revision history:
-%%
-%% 2012/12/12 22h14 laurocesar
-%% Fork of the version v 1.42.2.1 2004/11/02 15:18:21 created by gweber
-%% Change file name to from abnt-num.bst to abntex2-num.bst
-%% Removed CVS revision automation
-%% Modify referentes of abnt-alf.bst and abnt-num.bst
-%%
-%% The original revision history is the following:
-%%
-%% Nota sobre os Logs: Se aparecer abnt-num é por que as aletarções foram
feitas
-%% neste arquivo e depois copiadas para abnt.alf e vice-versa.
-%%
-%% $Log: abnt-num.bst,v $
-%% Revision 1.42.2.1 2004/11/02 15:18:21 gweber
-%% correcao do bug 239
-%%
-%% Revision 1.42 2003/07/23 12:06:01 gweber
-%% O comando apply.title.command agora atua sobre todas as ocorrências de
title, mas
-%% não sobre campos title que estão vazios.
-%%
-%% Revision 1.41 2003/07/22 16:26:02 gweber
-%% Adicionada a opção abnt-title-command. Com esta opção pode-se definir o
comando
-%% \bibtextitlecommand que permite formatações especiais no titulo.
-%%
-%% Revision 1.40 2003/06/05 14:34:05 gweber
-%% Introduzido filtro.url.tex e filtro.url.html, a função do primeiro é
alterar uma url de tal maneira
-%% que que o TeX possa processá-la sem problemas. A do segundo é fazer a
mesma coisa
-%% para a url que é passada para html ou hyperref.
-%%
-%% Revision 1.39 2003/06/04 13:18:07 gweber
-%% Introduzidas as opções hyperref para abnt.url.package com isso os
campos url são formatados agora como hyperlinks ativos.
-%% Também foram acrescentadas a opção abnt.doi que permite selecionar o
tratamento que recebe uma url começada com doi:
-%%
-%% Revision 1.38 2003/04/08 00:39:39 gweber
-%% Implementada a entrada @hidden que gera um \hiddenbibitem (só alf),
-%% ou seja uma entrada que não aparece na lista de referências e que pode
ser
-%% usada com o comando \apud e \apudonline.
-%%
-%% Revision 1.37 2003/04/01 19:34:47 gweber
-%% consertado bug de ordenação alfabética, agora a ordenação em
sort.format.names é igual a de format.names
-%%
-%% Revision 1.36 2003/03/25 14:06:20 gweber
-%% Inicio da adaptação para ISO 690:1987.
-%% Acrescentada a opção iso-author-punctuation cuja opção
-%% void gera iniciais juntas e sem ponto.
-%%
-%% Revision 1.35 2003/03/22 22:59:13 gweber
-%% abnt-nbr10520 foi substituído por abnt-cite-style.
-%% A função recompose.name recompõe um nome complicado, mas a função
-%% ainda é experimental e não está sendo usada no momento. Mesmo
-%% porque há nomes que o próprio bibtex tem problemas para tratar.
-%% A função presort for modificada de modo a poder manter o SORT em
-%% abnt-num sem realmente ordenar alfabeticamente.
-%%
-ENTRY
- { address author
- booktitle booksubtitle
- chapter conference-number conference-year conference-location
- edition editor editortype
- dimensions furtherresp
- howpublished illustrated institution
- isbn issn journal key month note marginnote number organization
- org-short pages pagename
- publisher reprinted-from reprinted-text school
- series subtitle section title type url urlaccessdate
- volume year year-presented
- abnt-and-type
- abnt-doi abnt-dont-use-etal
- abnt-etal-cite abnt-etal-list abnt-etal-text abnt-emphasize
abnt-experimental
- abnt-full-initials
- abnt-last-names abnt-ldots-type
- abnt-missing-year abnt-cite-style abnt-no-etal-label abnt-note
- abnt-repeated-author-omit abnt-repeated-title-omit
- abnt-show-options abnt-refinfo abnt-thesis-year abnt-url-package
- abnt-title-command
- abnt-verbatim-entry
- iso-abbreviation iso-author-punctuation iso-date-place
- }{}{ label extra.label year.label}
-
-%revision string
-STRINGS { abnt.bst.revision }
-
-%general purpose strings
-STRINGS { r s t }
-
-%variables needed to implement the various abnt options
-STRINGS {abnt.etal.text abnt.emphasize previous.author previous.title}
-INTEGERS {abnt.alf abnt.cite.style abnt.doi
- abnt.experimental abnt.etal.cite abnt.etal.list
- abnt.full.initials
- abnt.last.names abnt.ldots.type
- abnt.missing.year
- abnt.refinfo abnt.repeated.author.omit abnt.repeated.title.omit
- abnt.show.options abnt.and.type
- abnt.title.command
- abnt.thesis.year
- abnt.url.package abnt.verbatim.entry
- iso.abbreviation iso.author.punctuation iso.date.place
- repeated.author}
-
-%needed for title formatting
-INTEGERS { title.lenght title.pos first.word no.bracket}
-STRINGS { title.char}
-
-%needed for controlling the sentence position
-INTEGERS {output.state before.all mid.sentence after.sentence after.block }
-
-%needed for url identification
-INTEGERS {url.type}
-
-%static values for options
-%values for abnt.doi
-FUNCTION {abnt.doi.expand.to.url} {#0} %expands a doi address to its url
correspondent
-FUNCTION {abnt.doi.link} {#1} %links doi to its url correspondent
-FUNCTION {abnt.doi.leave.as.is} {#2} %shows doi as is, external viewer
will have
- %to know what to do with a "doi:"
document
-
-%values for url types
-FUNCTION {unknown.url} {#0}
-FUNCTION {http.url} {#1}
-FUNCTION {file.url} {#2}
-FUNCTION {ftp.url} {#3}
-FUNCTION {doi.url} {#4}
-FUNCTION {mailto.url} {#5}
-
-FUNCTION {init.state.consts}
-{ #0 'before.all :=
- #1 'mid.sentence :=
- #2 'after.sentence :=
- #3 'after.block :=
-}
-
-
-%output.nonnull decides what is written before the argument s, if a comma,
period etc.
-FUNCTION {output.nonnull}
-{ 's := %the argument is written into s
- output.state mid.sentence =
- { ", " * write$ } %mid.sentence first write comma
- { output.state after.block =
- { add.period$ write$ newline$ }
- { output.state before.all = 'write$
- { add.period$ " " * write$ }
- if$}
- if$
- mid.sentence 'output.state := }
- if$
- s %now comes s
-}
-FUNCTION {output.nonnull.dash}
-{ 's := %the argument is written into s
- output.state mid.sentence =
- { " --- " * write$ } %mid.sentence first write
comma
- { output.state after.block =
- { add.period$ write$ newline$ write$}
- { output.state before.all = 'write$
- { add.period$ " " * write$ }
- if$}
- if$
- mid.sentence 'output.state := }
- if$
- s %now comes s
-}
-FUNCTION {output} %does nothing or calls output.nonull
-{ duplicate$ empty$
- 'pop$
- 'output.nonnull
- if$
-}
-FUNCTION {output.dash} %does nothing or calls output.nonull
-{ duplicate$ empty$
- 'pop$
- 'output.nonnull.dash
- if$
-}
-FUNCTION {output.check} %like ouput, but complains if t empty
-{ 't :=
- duplicate$ empty$
- { pop$ "campo " t * " vazio em " * cite$ * warning$ }
- 'output.nonnull
- if$
-}
-
-FUNCTION {new.block}
-{ output.state before.all =
- 'skip$
- { after.block 'output.state := }
- if$
-}
-FUNCTION {new.sentence}
-{ output.state after.block =
- 'skip$
- { output.state before.all =
- 'skip$
- { after.sentence 'output.state := }
- if$
- }
- if$
-}
-FUNCTION {add.blank} { " " * before.all 'output.state :=}
-
-FUNCTION {date.block} {new.block}
-
-FUNCTION {not}
-{ { #0 }
- { #1 }
- if$
-}
-FUNCTION {and}
-{ 'skip$
- { pop$ #0 }
- if$
-}
-FUNCTION {or}
-{ { pop$ #1 }
- 'skip$
- if$
-}
-FUNCTION {new.block.checka}
-{ empty$
- 'skip$
- 'new.block
- if$
-}
-FUNCTION {new.block.checkb}
-{ empty$
- swap$ empty$
- and
- 'skip$
- 'new.block
- if$
-}
-FUNCTION {new.sentence.checka}
-{ empty$
- 'skip$
- 'new.sentence
- if$
-}
-FUNCTION {new.sentence.checkb}
-{ empty$
- swap$ empty$
- and
- 'skip$
- 'new.sentence
- if$
-}
-FUNCTION {field.or.null}
-{ duplicate$ empty$
- { pop$ "" }
- 'skip$
- if$
-}
-FUNCTION {emphasize}
-{ duplicate$ empty$
- { pop$ "" }
- { abnt.emphasize "{" * swap$ * "}" * }
- if$
-}
-
-
-FUNCTION {tie.or.space.prefix} %if text length less than 3 chars. uses a
tie
-{ duplicate$ text.length$ #5 <
- { "~" }
- { " " }
- if$
- swap$
-}
-
-FUNCTION {no.space} { { "" } swap$ }
-
-
-FUNCTION {space.word} { " " swap$ * " " * }
-
-FUNCTION {bbl.and}
-{ abnt.and.type #0 = {" e "} 'skip$ if$
- abnt.and.type #1 = {" \& "} 'skip$ if$}
-FUNCTION {bbl.chapter} { "cap." }
-FUNCTION {bbl.colon} {": "}
-FUNCTION {bbl.editors} { "Ed." }
-FUNCTION {bbl.editor} { "Ed." }
-FUNCTION {bbl.edby} { "editado por" }
-FUNCTION {bbl.edition} { "ed." }
-FUNCTION {bbl.empty} {""}
-FUNCTION {bbl.etal}{abnt.etal.text "" = {""} {" " abnt.etal.text *} if$}
-FUNCTION {bbl.doi.url} {"http://dx.doi.org/"}
-FUNCTION {bbl.in}{ "In" iso.abbreviation 'skip$ { bbl.colon *} if$}
-FUNCTION {bbl.ldots} %#0 use nothing, #1 use \ldots, #2 use $\ldots$, 3#
use {...}
-{abnt.ldots.type
- {abnt.ldots.type #1 = {"\ldots"} 'skip$ if$
- abnt.ldots.type #2 = {"$\ldots$"} 'skip$ if$
- abnt.ldots.type #3 = {"{...}"} 'skip$ if$}
- {""} %for #0 use nothing
-if$}
-FUNCTION {bbl.master} { "Mestrado" }
-FUNCTION {bbl.missing.year}
-{abnt.missing.year
- {"[s.d.]"} %#1
- {""} %#0
- if$}
-FUNCTION {bbl.monography} { "Monografia" }
-FUNCTION {bbl.mthesis} { "Disserta\c{c}\~{a}o" }
-FUNCTION {bbl.no.address} {"[S.l.]"}
-FUNCTION {bbl.no.address.no.publisher} {"[S.l.: s.n.]"}
-FUNCTION {bbl.no.publisher} {"[s.n.]"}
-FUNCTION {bbl.number} { iso.abbreviation {"no."} {"n."} if$ }
-FUNCTION {bbl.nr} { "n." }
-FUNCTION {bbl.of} { "de" }
-FUNCTION {bbl.phd} { "Doutorado" }
-FUNCTION {bbl.phdthesis} { "Tese" }
-FUNCTION {bbl.pages}
- {pagename empty$
- { "p." }
- {pagename}
- if$
- }
-FUNCTION {bbl.page} { bbl.pages }
-FUNCTION {bbl.reprint} {"Separata de"}
-FUNCTION {bbl.semicolon} { "; "}
-FUNCTION {bbl.same.field} {"\underline{\ \ \ \ \ \ \ \ }"}
-FUNCTION {bbl.techrep} { "Rel. Tec." }
-FUNCTION {bbl.url.accessdate}
- {iso.abbreviation { "Cited "} {"Acesso em: "} if$}
-FUNCTION {bbl.url.available}
-{ iso.abbreviation {"Available from Internet: "} {"Dispon{\'\i}vel em: "}
if$}
-FUNCTION {bbl.void} {""}
-FUNCTION {bbl.volume} { iso.abbreviation {"vol."} {"v."} if$ }
-
-
-MACRO {jan} {"jan."}
-MACRO {feb} {"fev."}
-MACRO {mar} {"mar."}
-MACRO {apr} {"abr."}
-MACRO {may} {"maio"}
-MACRO {jun} {"jun."}
-MACRO {jul} {"jul."}
-MACRO {aug} {"ago."}
-MACRO {sep} {"set."}
-MACRO {oct} {"out."}
-MACRO {nov} {"nov."}
-MACRO {dec} {"dez."}
-
-
-FUNCTION {is.num}
-{ chr.to.int$
- duplicate$ "0" chr.to.int$ < not
- swap$ "9" chr.to.int$ > not and
-}
-FUNCTION {str.to.int}
-{ duplicate$ is.num
- {chr.to.int$ #48 -}
- 'skip$
- if$
-}
-FUNCTION {bibinfo.check} %usage: field "field" bibinfo.check
-{ swap$ duplicate$ missing$
- {pop$ pop$ ""}
- { duplicate$ empty$
- {swap$ pop$}
- {swap$ pop$}
- if$
- }
- if$
-}
-FUNCTION {bibinfo.warn}
-{ swap$
- duplicate$ missing$
- {swap$ "faltando " swap$ * " em " * cite$ * warning$ pop$ ""}
- { duplicate$ empty$
- {swap$ "vazio " swap$ * " em " * cite$ * warning$}
- {swap$ pop$}
- if$
- }
- if$
-}
-
-FUNCTION {write.field.verbatim}
-{
-duplicate$ missing$
- {pop$ pop$}
- {
- s text.length$ #0 >
- {s "," * newline$ write$ "" 's :=}
- 'skip$
- if$
- swap$
- "={" * swap$ * "}" *
- s swap$ * 's :=
- }
-if$
-}
-
-FUNCTION {write.entry.verbatim1}
-{
- "address" address write.field.verbatim
- "author" author write.field.verbatim
- "booktitle" booktitle write.field.verbatim
- "booksubtitle" booksubtitle write.field.verbatim
- "chapter" chapter write.field.verbatim
- "conference-number" conference-number write.field.verbatim
- "conference-year" conference-year write.field.verbatim
- "conference-location" conference-location write.field.verbatim
- "edition" edition write.field.verbatim
- "editor" editor write.field.verbatim
- "editortype" editortype write.field.verbatim
- "dimensions" dimensions write.field.verbatim
- "furtherresp" furtherresp write.field.verbatim
- "howpublished" howpublished write.field.verbatim
- "illustrated" illustrated write.field.verbatim
- "institution" institution write.field.verbatim
- "isbn" isbn write.field.verbatim
- "issn" issn write.field.verbatim
- "journal" journal write.field.verbatim
-}
-FUNCTION {write.entry.verbatim2}
-{
- "key" key write.field.verbatim
- "month" month write.field.verbatim
- "note" note write.field.verbatim
- "marginnote" marginnote write.field.verbatim
- "number" number write.field.verbatim
- "organization" organization write.field.verbatim
- "org-short" org-short write.field.verbatim
- "pages" pages write.field.verbatim
- "pagename" pagename write.field.verbatim
- "publisher" publisher write.field.verbatim
- "reprinted-from" reprinted-from write.field.verbatim
- "reprinted-text" reprinted-text write.field.verbatim
- "school" school write.field.verbatim
- "series" series write.field.verbatim
- "subtitle" subtitle write.field.verbatim
- "section" section write.field.verbatim
- "title" title write.field.verbatim
- "type" type write.field.verbatim
-}
-FUNCTION {write.entry.verbatim3}
-{
- "url" url write.field.verbatim
- "urlaccessdate" urlaccessdate write.field.verbatim
- "volume" volume write.field.verbatim
- "year" year write.field.verbatim
- "abnt-emphasize" abnt-emphasize write.field.verbatim
- "abnt-experimental" abnt-experimental write.field.verbatim
- "abnt-doi" abnt-doi write.field.verbatim
- "abnt-dont-use-etal" abnt-dont-use-etal write.field.verbatim
- "abnt-full-initials" abnt-full-initials write.field.verbatim
- "abnt-ldots-type" abnt-ldots-type write.field.verbatim
- "abnt-missing-year" abnt-missing-year write.field.verbatim
- "abnt-cite-style" abnt-cite-style write.field.verbatim
- "abnt-no-etal-label" abnt-no-etal-label write.field.verbatim
- %abnt-note
- "abnt-repeated-author-omit" abnt-repeated-author-omit
write.field.verbatim
- "abnt-repeated-title-omit" abnt-repeated-title-omit write.field.verbatim
- "abnt-show-options" abnt-show-options write.field.verbatim
- "abnt-refinfo" abnt-refinfo write.field.verbatim
- "abnt-thesis-year" abnt-thesis-year write.field.verbatim
- "abnt-title-command" abnt-title-command write.field.verbatim
- "abnt-url-package" abnt-url-package write.field.verbatim
- "abnt-verbatim-entry" abnt-verbatim-entry write.field.verbatim
-}
-
-FUNCTION {write.entry.verbatim}
-{"" 's := "" 't :=
- abnt.verbatim.entry
- {"{\footnotesize\begin{verbatim}" newline$ write$
- "@" type$ * "{" * cite$ * 's :=
- write.entry.verbatim1
- write.entry.verbatim2
- write.entry.verbatim3
- s "" = {"}"} {s "}" *} if$
- newline$ write$
- "\end{verbatim}}" newline$ write$}
- {newline$}
-if$}
-
-STRINGS { bibinfo}
-INTEGERS { nameptr namesleft numnames }
-
-FUNCTION {get.person} {"{vv }{ll}{, jj}{, ff}" format.name$}
-FUNCTION {get.last.name} {#1 "{ll}" format.name$}
-FUNCTION {get.first.name} {#1 "{ff}" format.name$}
-FUNCTION {get.von} {#1 "{vv}" format.name$}
-FUNCTION {get.jr} {#1 "{jj}" format.name$}
-FUNCTION {is.composed.von}
- {get.person
- get.von duplicate$ empty$ {pop$ #0}
- {duplicate$
- get.first.name empty$ not
- swap$ get.last.name empty$ not and
- } if$
- }
-
-FUNCTION {recompose.name}
- {get.person duplicate$ duplicate$ duplicate$
- get.von #1 "{ll }" format.name$ swap$
- get.last.name *
- swap$ #1 "{, ff}" format.name$ *
- swap$ get.von #1 "{ ff}" format.name$ *
- }
-
-
-FUNCTION {format.single.name}
-{
-s nameptr get.person 'r :=
-abnt.last.names
- {r #1 "{ll}{ jj}" format.name$ "u" change.case$
- abnt.full.initials
- {r #1 "{, ff}{ vv}" format.name$ *}
- {r #1 "{, f.}{ vv}" format.name$ *}
- if$}
- {%r #1 is.composed.von {r #1 recompose.name 'r :=} 'skip$ if$
- r #1 "{ll}" format.name$
- #1 "{ll}" format.name$
- r #1 "{ jj}" format.name$ * "u" change.case$
- abnt.full.initials
- {r #1 "{, ff}{ vv}" format.name$ *
- r #1 "{ll}" format.name$
- #1 "{ ff}{ vv}" format.name$ *}
- {iso.author.punctuation
- {r #1 "{, f{}}{ vv}" format.name$ *}
- {r #1 "{, f.}{ vv}" format.name$ *} if$
- r #1 "{ll}" format.name$
- #1 "{ f.}{ vv}" format.name$ *}
- if$}
-
-if$
-}
-FUNCTION {format.names}
-{ 'bibinfo := duplicate$ empty$ 'skip$
- {'s :=
- "" 't :=
- #1 'nameptr := s num.names$ 'numnames :=
- numnames 'namesleft :=
- { namesleft #0 > }
- { format.single.name
- bibinfo bibinfo.check
- 't :=
- nameptr #1 >
- {nameptr #1 #1 + = numnames abnt.etal.list > and
- {abnt.etal.list {"others" 't := #1 'namesleft :=} 'skip$ if$ }
- 'skip$
- if$
- namesleft #1 >
- { "; " * t * }
- { numnames #2 >
- { "" * }
- 'skip$
- if$
- s nameptr "{ll}" format.name$ duplicate$ "others" =
- { 't := }
- { pop$ }
- if$
- t "others" =
- { bbl.etal *}
- { "; " * t *}
- if$ }
- if$ }
- 't
- if$
- nameptr #1 + 'nameptr :=
- namesleft #1 - 'namesleft := }
- while$
- } if$
-}
-
-%from plain.bst
-FUNCTION {format.names.plain}
-{ 's :=
- #1 'nameptr :=
- s num.names$ 'numnames :=
- numnames 'namesleft :=
- { namesleft #0 > }
- { s nameptr "{ff }{vv }{ll}{ jj}" format.name$ 't :=
- nameptr #1 >
- { namesleft #1 >
- { ", " * t * }
- { numnames #20 >
- { "," * }
- 'skip$
- if$
- t "others" =
- { bbl.etal * }
- { bbl.and * t * }
- if$
- }
- if$
- }
- 't
- if$
- nameptr #1 + 'nameptr :=
- namesleft #1 - 'namesleft :=
- }
- while$
-}
-FUNCTION {format.names.ed} {format.names}
-
-FUNCTION {format.authors}
-{
-author "author" format.names
-}
-
-FUNCTION {format.authors.plain}
-{
-author format.names.plain
-}
-
-FUNCTION {get.bbl.editor} { editor num.names$ #1
> 'bbl.editors 'bbl.editor if$ }
-
-
-FUNCTION {format.book.pages}
-{ pages "pages" bibinfo.check duplicate$ empty$
- 'skip$
- { "~" * bbl.pages * }
- if$
-}
-FUNCTION {format.dimensions}
-{ dimensions empty$
- 'skip$
- { dimensions output}
- if$
-}
-FUNCTION {format.furtherresp}
-{ furtherresp empty$
- 'skip$
- { furtherresp output}
- if$
-}
-FUNCTION {format.illustrated}
-{ illustrated missing$
- 'skip$
- {illustrated empty$
- {"il." output}
- {illustrated output}
- if$}
- if$
-}
-FUNCTION {format.isbn}
-{ isbn "isbn" bibinfo.check duplicate$ empty$
- 'skip$
- {new.block "ISBN " swap$ *}
- if$
-}
-
-FUNCTION {format.issn}
-{ issn "issn" bibinfo.check
- duplicate$ empty$ 'skip$
- {new.block "ISSN " swap$ *}
- if$
-}
-
-FUNCTION {format.note}
-{ note empty$
- { "" }
- { note #1 #1 substring$
- duplicate$ "{" =
- 'skip$
- { output.state mid.sentence =
- { "l" }
- { "u" }
- if$
- change.case$ }
- if$
- note #2 global.max$ substring$ * "note" bibinfo.check }
- if$
-}
-
-FUNCTION {format.howpublished}
-{ howpublished empty$
- { "" }
- { howpublished #1 #1 substring$
- duplicate$ "{" =
- 'skip$
- { output.state mid.sentence =
- { "l" }
- { "u" }
- if$
- change.case$ }
- if$
- howpublished #2 global.max$ substring$ * "howpublished"
bibinfo.check }
- if$
-}
-
-
-%ABNT styles require that the title acts as an author if
-%typical author fields are absent. In this case the first
-%word is uppercase. Our main problem is to establish what
-%the first word actually is since portuguese uses accents.
-%For example: Fun{\c c}\ão (Função) is a whole word but contains a
-%space, but if we write Fun\c{c}\ão \c is converted to uppercase...
-%You get the problem, don't you?
-FUNCTION {format.title.as.author}
-{ 's := %holds the title
- #1 'title.pos := %our position in the title
- #1 'first.word := %boolean, true if we already have the first word
- #1 'no.bracket := %boolean, false if we are inside a {}
- "" 't := %holds the first title.pos characters of the title
- {first.word}
- {s title.pos #1 substring$ 'title.char :=
- %checks if the character is a {
- title.char "{" = {#0 'no.bracket :=} 'skip$ if$
- %if we are in a bracket
- no.bracket 'skip$ {title.char "}" = {#1 'no.bracket :=} 'skip$ if$}
if$
- type$ "journalpart" =
- {title.char "." = title.char ":" = or title.char "!" = or
- title.char "," = or title.char ";" = or title.char "?" = or}
- {title.char " " =}
- if$ s t = or no.bracket and
- {#0 'first.word :=
- t title.char * "u" change.case$
- title.pos #1 + 'title.pos :=
- s title.pos global.max$ substring$ * 's :=}
- {title.pos #1 + 'title.pos := t title.char * 't :=}
- if$
- }
- while$
-s
-}
-
-
-%compares current title with the title of the previous entry
-FUNCTION {compare.title}
-{abnt.repeated.title.omit
- {duplicate$ "" = 'skip$
- {duplicate$ previous.title = repeated.author and
- {duplicate$ 'previous.title := pop$ bbl.same.field}
- {duplicate$ 'previous.title :=}
- if$}
- if$}
- 'skip$
- if$
-}
-
-FUNCTION {apply.title.command}
-{abnt.title.command
- {duplicate$ empty$ 'skip$
- {"\bibtextitlecommand{" type$ * "}{" * swap$ * "}" *}
- if$}
- 'skip$ if$
-}
-
-FUNCTION {format.title}
-{author empty$ editor empty$ and organization empty$ and
- {title format.title.as.author}
- {title duplicate$ empty$ {pop$ ""} {"t" change.case$} if$}
- if$
- subtitle empty$ 'skip$ {subtitle ": " swap$ * "t" change.case$ *} if$
- apply.title.command
- compare.title
-}
-
-FUNCTION {n.dashify}
-{
- 't :=
- ""
- { t empty$ not }
- { t #1 #1 substring$ "-" =
- { t #1 #2 substring$ "--" = not
- { "--" *
- t #2 global.max$ substring$ 't :=
- }
- { { t #1 #1 substring$ "-" = }
- { "-" *
- t #2 global.max$ substring$ 't :=
- }
- while$
- }
- if$
- }
- { t #1 #1 substring$ *
- t #2 global.max$ substring$ 't :=
- }
- if$
- }
- while$
-}
-
-FUNCTION {word.in} { bbl.in " " * }
-
-FUNCTION {format.month}
-{ month empty$ 'skip$
- {month "month" bibinfo.check}
- if$
-}
-
-FUNCTION {format.date}
-{ year empty$
- { month empty$
- { bbl.missing.year }
- { "existe o campo month (mês) mas não o campo year (ano) em " cite$ *
warning$ month}
- if$}
- { month empty$
- { year n.dashify}
- { month " " * year * }
- if$}
- if$
-}
-FUNCTION {format.btitle}
-{author empty$ editor empty$ and organization empty$ and
- {title format.title.as.author "title" bibinfo.check duplicate$
empty$ 'skip$ {} if$
- subtitle empty$ 'skip$ {subtitle ": " swap$ * "t" change.case$ *} if$}
- {title "title" bibinfo.check emphasize duplicate$ empty$ 'skip$ {} if$
- subtitle empty$ 'skip$ {subtitle ": " swap$ * "t" change.case$ *} if$}
-if$
-apply.title.command
-compare.title
-}
-FUNCTION {either.or.check}
-{ empty$
- 'pop$
- { "não posso usar ambos " swap$ * " os campos em " * cite$ * warning$ }
- if$
-}
-
-FUNCTION {format.volume} %leaves formatted or empty volume on the stack
-{volume duplicate$ empty$
- 'skip$
- {volume #1 #1 substring$ is.num
- {bbl.volume swap$ tie.or.space.prefix * *}
- 'skip$
- if$}
- if$
-}
-
-FUNCTION {format.number} %leaves formatted or empty number on the stack
-{ number duplicate$ empty$
- 'skip$
- {bbl.number swap$ tie.or.space.prefix * *}
- if$
-}
-
-FUNCTION {format.patent.number}
-{ number
-}
-
-FUNCTION {format.bvolume}
-{ volume empty$
- { "" }
- { format.volume
- number empty$ 'skip$ {output format.number} if$
- series "series" bibinfo.check
- duplicate$ empty$ 'pop$
- { swap$ bbl.of space.word * swap$
- emphasize * }
- if$
- }
- if$
-}
-
-FUNCTION {format.bvolume.if.no.series}
-{ series empty$
- { format.bvolume }
- { "" }
- if$
-}
-
-
-FUNCTION {format.number.or.volume}
-{number empty$
- {format.volume}
- {number} %we use the pure number here without leading "n."
- if$
-}
-
-FUNCTION {format.volume.and.number}
-{format.volume output
- format.number
-}
-
-FUNCTION {format.volume.number.series}
-{ number empty$ volume empty$ and
- { series empty$
- { "" }
- {" (" series "series" bibinfo.check * ")" *}
- if$}
- { series empty$
- {""} %{ format.number.or.volume }
- { " (" series "series" bibinfo.check * ", " *
- format.number.or.volume * ")" * }
- if$ }
- if$
-}
-
-FUNCTION {extract.num}
-{ duplicate$ 't :=
- "" 's :=
- { t empty$ not }
- { t #1 #1 substring$
- t #2 global.max$ substring$ 't :=
- duplicate$ is.num
- { s swap$ * 's := }
- { pop$ "" 't := }
- if$ }
- while$
- s empty$
- 'skip$
- { pop$ s }
- if$
-}
-
-FUNCTION {format.edition}
-{ edition duplicate$ empty$ 'skip$
- {output.state mid.sentence = { "l" } { "t" } if$ change.case$
- "edition" bibinfo.check
- edition #1 #1 substring$ is.num {". " * bbl.edition * } 'skip$ if$}
- if$
-}
-INTEGERS { multiresult }
-FUNCTION {multi.page.check}
-{ 't :=
- #0 'multiresult :=
- { multiresult not
- t empty$ not
- and }
- { t #1 #1 substring$
- duplicate$ "-" =
- swap$ duplicate$ "," =
- swap$ "+" =
- or or
- { #1 'multiresult := }
- { t #2 global.max$ substring$ 't := }
- if$ }
- while$
- multiresult
-}
-FUNCTION {format.pages}
-{ pages duplicate$ empty$ 'skip$
- { duplicate$ multi.page.check
- { n.dashify bbl.pages swap$}
- { bbl.page swap$ }
- if$
- tie.or.space.prefix "pages" bibinfo.check * * }
- if$
-}
-FUNCTION {format.journal.pages}
-{ pages empty$ {""}
- { pages n.dashify bbl.pages
- swap$ tie.or.space.prefix "pages" bibinfo.check * *}
- if$
-}
-
-FUNCTION {get.url.type}
-{s #1 #5 substring$ "http:" = {http.url}
- {s #1 #5 substring$ "file:" = {file.url}
- {s #1 #4 substring$ "ftp:" = {ftp.url}
- {s #1 #4 substring$ "doi:" = {doi.url}
- {s #1 #7 substring$ "mailto:" = {mailto.url} {unknown.url} if$}
- if$}
- if$}
- if$}
- if$
- 'url.type :=
-}
-
-FUNCTION {expand.doi}
-{s
-url.type doi.url =
- {#5 global.max$ substring$ bbl.doi.url swap$ *}
- 'skip$ if$
-}
-
-INTEGERS {url.pos url.length}
-FUNCTION {filter.url.tex}
-{s text.length$ #1 + 'url.length :=
- #1 'url.pos := "" 't :=
- {url.pos url.length <}
- {s url.pos #1 substring$
- duplicate$ "_" = {pop$ "\underline{\ }" } 'skip$ if$
- duplicate$ "%" = {pop$ "\%" } 'skip$ if$
- duplicate$ "~" = {pop$ "\~{}" } 'skip$ if$
- duplicate$ "/" = {pop$ "\-/" } 'skip$ if$
- duplicate$ "." = {pop$ "\-." } 'skip$ if$
- duplicate$ "\" = {pop$ "{\textbackslash}" } 'skip$ if$
- t swap$ * 't :=
- url.pos #1 + 'url.pos :=
***The diff for this file has been truncated for email.***
=======================================
--- /doc/latex/abntex2/README Wed Feb 20 02:23:09 2013
+++ /doc/latex/abntex2/README Thu Feb 21 16:56:50 2013
@@ -50,6 +50,9 @@
Adiciona exemplo e texto sobre margens idênticas para páginas
ímpares e pares.
Adiciona espaçamento simples como padrão

+ abntex2-alf.bst and abntex2-num.bst:
+ Fix iso-690-1987 option: year was placed twice
+
Adiciona exemplos de hifenização em diferentes idiomas em todos os
modelos
Adiciona \frenchspacing para tratar espaço entre frases em todos os
modelos