blob: e19f9f6acd26cafe62a06e5be8bd17b57d6990eb (
plain)
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
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
|
%%
%% This is file `nevelok.sty',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% nevelok.dtx (with options: `package')
%% ----------------------------------------------------------------
%% nevelok --- LaTeX package for automatic definite articles for Hungarian
%% Author: Zalan Bodo
%% E-mail: zbodo@cs.ubbcluj.ro
%% License: Released under the LaTeX Project Public License v1.3c or later
%% See: http://www.latex-project.org/lppl.txt
%% ----------------------------------------------------------------
%%
\NeedsTeXFormat{LaTeX2e}[1999/12/01]
\ProvidesPackage{nevelok}
[2015/09/10 v1.00 LaTeX package for automatic definite articles for Hungarian]
\RequirePackage{xstring}
%%
\newcommand{\aaz}[1]{%
\z@aaz{#1}{a}{az}{(}{)}%
}
%%
%%
\newcommand{\Aaz}[1]{%
\z@aaz{#1}{A}{Az}{(}{)}%
}
%%
%%
\newcommand{\z@aaz}[5]{%
\def\param{#1}% the first (reference) parameter
\def\kezd{}\relax% the symbols to be put before the output
\def\veg{}\relax% the symbols to be put after the output
\IfBeginWith{\param}{#4}{% if starts with round parantheses,
% we remove it from both sides;
% the parameter changes
\StrPosition{\param}{#5}[\vegz]%
\newcount\ind%
\ind = \vegz%
\advance \ind by -1%
\StrMid{\param}{2}{\ind}[\param]%
\def\kezd{#4}%
\def\veg{#5}%
}{}\relax%
\IfBeginWith{\param}{1}{% if the reference starts with 1,
% special care is required
\StrLen{\param}[\hossz]%
\newcount\ind%
\newcount\vege%
\ind = \hossz%
\vege = 0%
\loop% loops while it does not find a digit at the end
% (in \ref-s, strangely, an \hbox {} appears at the end;
% this loop was actually written to remove these)
\StrChar{\param}{\ind}[\kar]%
\IfSubStr{1234567890}{\kar}{\vege=1}{}\relax%
\ifnum \vege = 0%
\advance \ind by -1%
\repeat%
\StrLeft{\param}{\ind}[\paramuj]% \paramuj will contain the
% ``cleaned'' parameter
\StrPosition[1]{\paramuj}{.}[\elsopontpozicioja]%
\StrLen{\paramuj}[\hossz]%
\newcount\eppme% position of the first dot minus 1
\eppme = \elsopontpozicioja%
\advance \eppme by -1%
\ifnum \elsopontpozicioja = 0%
\StrLeft{\paramuj}{\hossz}[\prefix]%
\else%
\StrLeft{\paramuj}{\eppme}[\prefix]%
\fi%
\StrLen{\prefix}[\elsohossz]%
\ifnum \elsohossz = 1% 1
#3%
\else\ifnum \elsohossz = 2% 10
#2%
\else\ifnum \elsohossz = 3% 100
#2%
\else\ifnum \elsohossz = 4% 1000
#3%
\fi\fi\fi\fi%
}{%
\StrChar{\param}{1}[\kar]%
\newcount\az%
\az = 0%
\IfSubStr{2346789}{\kar}{% digits that require ``a'';
% this is redundant, but was kept for some reasons
\az = 0%
}{%
\IfSubStr{5AEIOUFLMNRSaeiouflmnrs}{\kar}{% digits and letters
% that require ``az''
\az = 1%
}{%
\az = 0%
}\relax%
}\relax%
\ifnum \az = 1%
#3%
\else%
#2%
\fi%
}%
\ \kezd\param\veg%
}
%%
%%
%% Copyright (C) 2015 by Zalan Bodo <zbodo@cs.ubbcluj.ro>
%%
%% This work may be distributed and/or modified under the
%% conditions of the LaTeX Project Public License (LPPL), either
%% version 1.3c of this license or (at your option) any later
%% version. The latest version of this license is in the file:
%%
%% http://www.latex-project.org/lppl.txt
%%
%% This work is "maintained" (as per LPPL maintenance status) by
%% Zalan Bodo.
%%
%% This work consists of the file nevelok.dtx and a Makefile.
%% Running make generates the derived files README.txt, nevelok.pdf and nevelok.sty.
%% Running make inst installs the files in the user's TeX tree.
%% Running make install installs the files in the local TeX tree.
%%
%%
%% End of file `nevelok.sty'.
|