Thiago César / TCC-UFRN

Blame view

abntex-abrev.sty 2.3 KB
edit raw normal view history
1fbcbd399   Thiago César   first commit 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
 
  %% $Id: abntex-abrev.sty,v 1.3 2003/10/13 09:41:21 gweber Exp $
  %% name of this file abntex-abrev.sty
  %% Copyright 2003 by the abnTeX group at http://abntex.codigolivre.org.br
  %%
  %% This file is distributed under the LaTeX-Project Public License (LPPL)
  %%            http://www.latex-project.org/lppl.html
  %% You are free to modify this file under the LPPL.
  %%
  %% $Log: abntex-abrev.sty,v $
  %% Revision 1.3  2003/10/13 09:41:21  gweber
  %% Passa a usar cvs-id.def para gerar informações sobre data e versão.
  %%
  %% Revision 1.2  2003/10/10 10:08:09  gweber
  %% Passa a usar cvs-id.def para gerar informações sobre data e versão.
  %%
  %% Revision 1.1  2003/06/27 13:49:21  gweber
  %% Estilo principal que implementa abreviações para o projeto abntex.
  %% O arquivo pode ser usado sozinho ou em conjunto com classes e estilos bibliográficos.
  %% Ele carrega um aquivo com traduções portugês-inglês abntex-abrev-pt_BR.def e um arquivo
  %% com as definições da norma 10522/1988.
  %%
  
  
  \NeedsTeXFormat{LaTeX2e}
  \input{cvs-id.def}
  \CVSExtract$Id: abntex-abrev.sty,v 1.3 2003/10/13 09:41:21 gweber Exp $
  \CVSPackage{abntexabrev}{\space Abreviacoes}
  
  \RequirePackage{ifthen}
  
  
  ewcommand{\NoAbrevending}{\let\Abrevending\@empty}
  \input{nbr10522-1988.def}
  
  ewcommand{\@NBR}{@NBR@A@}
  
  ewcommand{\@PREF@}[1]{\csname \@NBR#1\endcsname}
  \input{abntex-abrev-pt_BR.def}
  \ProcessOptions
  
  
  ewcommand{\@TR@}{@TR@}
  
  ewcommand{\Capitalize}[1]{\uppercase{#1}}
  
  %para testar, coloca os resultados em forma mais explícita
  
  ewcommand{\TESTabrev}[1]{%
  \@ifundefined{@TR@#1}{pt(#1):\csname \@NBR#1\endcsname}{en(#1):\csname \@TR@#1\endcsname}}
  
  %controla como termina a abreviação
  
  ewcommand{\abrevending}{.}
  
  ewcommand{\Abrevending}{}
  %comando para usuários, pode ser portugês ou inglês
  
  ewcommand{\abrev}[1]{\let\Abrevending\abrevending%
  \@ifundefined{@TR@#1}{\csname \@NBR#1\endcsname\Abrevending}{\csname \@TR@#1\endcsname\Abrevending}}
  
  %comando para usuários, pode ser portugês ou inglês
  
  ewcommand{\Abrev}[1]{\expandafter\Capitalize\abrev{#1}}
  
  %comando para desenvolvedores, só inglês sem finalização, ou seja sem ponto
  
  ewcommand{\ABNTEXabrev}[1]{\@ifundefined{@TR@#1}{#1}{\csname \@TR@#1\endcsname}}
  
  %comando para desenvolvedores, só inglês com finalização, ou seja com ponto
  
  ewcommand{\ABNTEXabrevp}[1]{\let\Abrevending\abrevending
  \ABNTEXabrev{#1}\Abrevending}