SHOW:
|
|
- or go back to the newest paste.
1 | %% | |
2 | %% This is file `nameauth.sty', | |
3 | %% generated with the docstrip utility. | |
4 | %% | |
5 | %% The original source files were: | |
6 | %% | |
7 | %% nameauth.dtx (with options: `package') | |
8 | - | %% |
8 | + | |
9 | %% This is a generated file. | |
10 | - | %% |
10 | + | |
11 | %% Copyright (C) 2011 by Charles P. Schaum <charles dot schaum at comcast dot net> | |
12 | - | %% |
12 | + | |
13 | %% This file may be distributed and/or modified under the conditions of | |
14 | %% the LaTeX Project Public License, either version 1.2 of this license | |
15 | %% or (at your option) any later version. The latest version of this | |
16 | %% license is in: | |
17 | - | %% |
17 | + | |
18 | %% http://www.latex-project.org/lppl.txt | |
19 | - | %% |
19 | + | |
20 | %% and version 1.2 or later is part of all distributions of LaTeX version | |
21 | %% 1999/12/01 or later. | |
22 | - | %% |
22 | + | |
23 | \NeedsTeXFormat{LaTeX2e}[2005/12/01] | |
24 | \ProvidesPackage{nameauth_mod} | |
25 | - | [2013/09/19 v1.8 name authority macros to aid consistent display and indexing of names] |
25 | + | [2013/09/19 v1.8 name authority macros to aid consistent display and indexing of names] |
26 | \newif\if@nameauth@FullName | |
27 | \newif\if@nameauth@FirstName | |
28 | \newif\if@nameauth@AltAKA | |
29 | \newif\if@nameauth@DoFormat | |
30 | \newif\if@nameauth@DoIndex | |
31 | \newif\if@nameauth@AlwaysFormat | |
32 | \newif\if@nameauth@ShowComma | |
33 | \newif\if@nameauth@Comma | |
34 | \newif\if@nameauth@Punct | |
35 | \newif\if@nameauth@DoCaps | |
36 | \newif\if@nameauth@AllCaps | |
37 | \newif\if@nameauth@AllThis | |
38 | \newif\if@nameauth@SmallCaps | |
39 | \newif\if@nameauth@SmallThis | |
40 | \newif\if@nameauth@RevAll | |
41 | \newif\if@nameauth@RevThis | |
42 | \newif\if@nameauth@RevAllComma | |
43 | \newif\if@nameauth@RevThisComma | |
44 | \newcommand{\NamesFormat}{} | |
45 | \DeclareOption{mainmatter}{\@nameauth@DoFormattrue} | |
46 | \DeclareOption{frontmatter}{\@nameauth@DoFormatfalse} | |
47 | \DeclareOption{smallcaps}{\renewcommand{\NamesFormat}{\scshape}} | |
48 | \DeclareOption{italic}{\renewcommand{\NamesFormat}{\itshape}} | |
49 | \DeclareOption{boldface}{\renewcommand{\NamesFormat}{\bfseries}} | |
50 | \DeclareOption{noformat}{\renewcommand{\NamesFormat}{}} | |
51 | \DeclareOption{alwaysformat}{\@nameauth@AlwaysFormattrue} | |
52 | \DeclareOption{allcaps}{\@nameauth@AllCapstrue} | |
53 | \DeclareOption{namesmallcaps}{\@nameauth@SmallCapstrue} | |
54 | \DeclareOption{normalcaps}{\@nameauth@AllCapsfalse} | |
55 | \DeclareOption{allreversed}{\@nameauth@RevAlltrue\@nameauth@RevAllCommafalse} | |
56 | \DeclareOption{allrevcomma}{\@nameauth@RevAlltrue\@nameauth@RevAllCommatrue} | |
57 | \DeclareOption{notreversed}{\@nameauth@RevAllfalse\@nameauth@RevAllCommafalse} | |
58 | \DeclareOption{comma}{\protected@edef\Interspace{,\space}} | |
59 | \DeclareOption{nocomma}{\protected@edef\Interspace{\space}} | |
60 | \DeclareOption{index}{\@nameauth@DoIndextrue} | |
61 | \DeclareOption{noindex}{\@nameauth@DoIndexfalse} | |
62 | \ExecuteOptions{nocomma,mainmatter,index,normalcaps,notreversed,smallcaps} | |
63 | \ProcessOptions\relax | |
64 | \RequirePackage{etoolbox} | |
65 | \RequirePackage{trimspaces} | |
66 | \RequirePackage{suffix} | |
67 | \RequirePackage{xargs} | |
68 | \newcommand*{\@nameauth@CleanName}[1]% | |
69 | {% | |
70 | \expandafter\zap@space\detokenize{#1} \@empty% | |
71 | } | |
72 | \newcommand*{\@nameauth@Root}[1]% | |
73 | {% | |
74 | \@nameauth@TrimRoot#1,\@empty\relax% | |
75 | } | |
76 | \def\@nameauth@TrimRoot#1,#2\relax{#1} | |
77 | \newcommand*{\@nameauth@CapRoot}[1]% | |
78 | {% | |
79 | \@nameauth@CR#1\relax% | |
80 | } | |
81 | \def\@nameauth@CR#1#2\relax{\uppercase{#1}\@nameauth@Root{#2}} | |
82 | \newcommand*{\@nameauth@AllCapRoot}[1]% | |
83 | {% | |
84 | \uppercase{\@nameauth@Root{#1}}% | |
85 | } | |
86 | \newcommand*{\@nameauth@SmallCapRoot}[1]% | |
87 | {% | |
88 | \textsc{\@nameauth@Root{#1}}% | |
89 | } | |
90 | \newcommand*{\@nameauth@Suffix}[1]% | |
91 | {% | |
92 | \@nameauth@TrimSuffix#1\relax% | |
93 | } | |
94 | \def\@nameauth@TrimSuffix#1,#2\relax{\trim@spaces{#2}} | |
95 | \def\@nameauth@CheckDot{\futurelet\@token\@nameauth@EvalDot} | |
96 | \def\@nameauth@EvalDot% | |
97 | {% | |
98 | \let\@period=.\ifx\@token\@period\expandafter\@gobble \fi% | |
99 | } | |
100 | \newcommand*{\@nameauth@TestDot}[1]% | |
101 | {% | |
102 | \def\TestDot##1.\TestEnd##2\TestStop{\TestPunct{##2}}% | |
103 | \def\TestPunct##1% | |
104 | - | {\ifx\TestPunct##1\TestPunct\else\@nameauth@Puncttrue\fi}% |
104 | + | {\ifx\TestPunct##1\TestPunct\else\@nameauth@Puncttrue\fi}% |
105 | \@nameauth@Punctfalse% | |
106 | \TestDot#1\TestEnd.\TestEnd\TestStop% | |
107 | } | |
108 | \newcommand{\@nameauth@FmtName}[1]% | |
109 | {% | |
110 | \@nameauth@TestDot{#1}% | |
111 | \if@nameauth@DoFormat% | |
112 | - | \bgroup\NamesFormat{#1}\egroup% |
112 | + | \bgroup\NamesFormat{#1}\egroup% |
113 | \else% | |
114 | - | #1% |
114 | + | #1% |
115 | \fi% | |
116 | } | |
117 | \WithSuffix\newcommand\@nameauth@FmtName*[1]% | |
118 | {% | |
119 | \@nameauth@TestDot{#1}% | |
120 | \if@nameauth@DoFormat% | |
121 | - | \if@nameauth@AlwaysFormat% |
121 | + | \if@nameauth@AlwaysFormat% |
122 | - | \bgroup\NamesFormat{#1}\egroup% |
122 | + | \bgroup\NamesFormat{#1}\egroup% |
123 | - | \else% |
123 | + | \else% |
124 | - | #1% |
124 | + | #1% |
125 | - | \fi% |
125 | + | \fi% |
126 | \else% | |
127 | - | #1% |
127 | + | #1% |
128 | \fi% | |
129 | } | |
130 | \newcommandx\@nameauth@Index[2][2=\@empty]% | |
131 | {% | |
132 | \ifx#2\@empty% | |
133 | - | \if@nameauth@DoIndex\index{#1}\fi% |
133 | + | \if@nameauth@DoIndex\index{#1}\fi% |
134 | \else% | |
135 | - | \ifcsname#2\endcsname% |
135 | + | \ifcsname#2\endcsname% |
136 | - | \if@nameauth@DoIndex\index{#1\csname#2\endcsname}\fi% |
136 | + | \if@nameauth@DoIndex\index{#1\csname#2\endcsname}\fi% |
137 | - | \else% |
137 | + | \else% |
138 | - | \if@nameauth@DoIndex\index{#1}\fi% |
138 | + | \if@nameauth@DoIndex\index{#1}\fi% |
139 | - | \fi% |
139 | + | \fi% |
140 | \fi% | |
141 | } | |
142 | \newcommand{\CapThis}% | |
143 | {% | |
144 | \@nameauth@DoCapstrue% | |
145 | } | |
146 | \newcommand{\CapName}% | |
147 | {% | |
148 | \@nameauth@AllThistrue% | |
149 | } | |
150 | \newcommand{\SCapName}% | |
151 | {% | |
152 | \@nameauth@SmallThistrue% | |
153 | } | |
154 | \newcommand{\RevName}% | |
155 | {% | |
156 | \@nameauth@RevThistrue% | |
157 | } | |
158 | \newcommand{\RevComma}% | |
159 | {% | |
160 | \@nameauth@RevThistrue% | |
161 | \@nameauth@RevThisCommatrue% | |
162 | } | |
163 | \newcommand{\ShowComma}% | |
164 | {% | |
165 | \@nameauth@ShowCommatrue% | |
166 | } | |
167 | \newcommandx\Name[3][1=\@empty, 3=\@empty]% | |
168 | {% | |
169 | \leavevmode\hbox{}% | |
170 | \protected@edef\testi{#1}% | |
171 | \protected@edef\testii{#2}% | |
172 | \protected@edef\testiii{#3}% | |
173 | \if@nameauth@AllCaps\CapName\fi% | |
174 | \if@nameauth@SmallCaps\SCapName\fi% | |
175 | \if@nameauth@RevAll\RevName\fi% | |
176 | \if@nameauth@RevAllComma\RevComma\fi% | |
177 | \if@nameauth@ShowComma% | |
178 | - | \protected@edef\Space{,\space}% |
178 | + | \protected@edef\Space{,\space}% |
179 | \else% | |
180 | - | \let\Space\Interspace% |
180 | + | \let\Space\Interspace% |
181 | \fi% | |
182 | \protected@edef\RawShort{\@nameauth@Root{#2}}% | |
183 | \protected@edef\CapShort{\@nameauth@CapRoot{#2}}% | |
184 | \protected@edef\AllCapShort{\@nameauth@AllCapRoot{#2}}% | |
185 | \protected@edef\SmallCapShort{\@nameauth@SmallCapRoot{#2}}% | |
186 | \if@nameauth@SmallThis% | |
187 | - | \protected@edef\RawShortIdx{\textsc{\RawShort}}% |
187 | + | \protected@edef\RawShortIdx{\textsc{\RawShort}}% |
188 | \else% | |
189 | - | \protected@edef\RawShortIdx{\RawShort}% |
189 | + | \protected@edef\RawShortIdx{\RawShort}% |
190 | \fi% | |
191 | \let\IndexShort\RawShortIdx% | |
192 | \ifx\testii\RawShort% | |
193 | - | \protected@edef\Suffix{\@empty}% |
193 | + | \protected@edef\Suffix{\@empty}% |
194 | - | \let\IndexSurnames\RawShortIdx% |
194 | + | \let\IndexSurnames\RawShortIdx% |
195 | - | \let\Reversed\RawShort% |
195 | + | \let\Reversed\RawShort% |
196 | - | \let\Surnames\RawShort% |
196 | + | \let\Surnames\RawShort% |
197 | - | \let\PrintShort\RawShort% |
197 | + | \let\PrintShort\RawShort% |
198 | - | \if@nameauth@DoCaps% |
198 | + | \if@nameauth@DoCaps% |
199 | - | \let\Reversed\CapShort% |
199 | + | \let\Reversed\CapShort% |
200 | - | \let\Surnames\CapShort% |
200 | + | \let\Surnames\CapShort% |
201 | - | \let\PrintShort\CapShort% |
201 | + | \let\PrintShort\CapShort% |
202 | - | \fi% |
202 | + | \fi% |
203 | - | \if@nameauth@AllThis% |
203 | + | \if@nameauth@AllThis% |
204 | - | \let\Reversed\AllCapShort% |
204 | + | \let\Reversed\AllCapShort% |
205 | - | \let\Surnames\AllCapShort% |
205 | + | \let\Surnames\AllCapShort% |
206 | - | \let\PrintShort\AllCapShort% |
206 | + | \let\PrintShort\AllCapShort% |
207 | - | \fi% |
207 | + | \fi% |
208 | - | \if@nameauth@SmallThis% |
208 | + | \if@nameauth@SmallThis% |
209 | - | \let\Reversed\SmallCapShort% |
209 | + | \let\Reversed\SmallCapShort% |
210 | - | \let\Surnames\SmallCapShort% |
210 | + | \let\Surnames\SmallCapShort% |
211 | - | \let\PrintShort\SmallCapShort% |
211 | + | \let\PrintShort\SmallCapShort% |
212 | - | \fi% |
212 | + | \fi% |
213 | \else% | |
214 | - | \protected@edef\Suffix{\@nameauth@Suffix{#2}}% |
214 | + | \protected@edef\Suffix{\@nameauth@Suffix{#2}}% |
215 | - | \protected@edef\IndexSurnames{\RawShortIdx\Space\Suffix}% |
215 | + | \protected@edef\IndexSurnames{\RawShortIdx\Space\Suffix}% |
216 | - | \protected@edef\Reversed{\Suffix\Space\RawShort}% |
216 | + | \protected@edef\Reversed{\Suffix\Space\RawShort}% |
217 | - | \protected@edef\Surnames{\RawShort\Space\Suffix}% |
217 | + | \protected@edef\Surnames{\RawShort\Space\Suffix}% |
218 | - | \if@nameauth@RevThis% |
218 | + | \if@nameauth@RevThis% |
219 | - | \let\PrintShort\Suffix% |
219 | + | \let\PrintShort\Suffix% |
220 | - | \else% |
220 | + | \else% |
221 | - | \let\PrintShort\RawShort% |
221 | + | \let\PrintShort\RawShort% |
222 | - | \fi% |
222 | + | \fi% |
223 | - | \if@nameauth@DoCaps% |
223 | + | \if@nameauth@DoCaps% |
224 | - | \protected@edef\Reversed{\Suffix\Space\CapShort}% |
224 | + | \protected@edef\Reversed{\Suffix\Space\CapShort}% |
225 | - | \protected@edef\Surnames{\CapShort\Space\Suffix}% |
225 | + | \protected@edef\Surnames{\CapShort\Space\Suffix}% |
226 | - | \if@nameauth@RevThis% |
226 | + | \if@nameauth@RevThis% |
227 | - | \let\PrintShort\Suffix% |
227 | + | \let\PrintShort\Suffix% |
228 | - | \else% |
228 | + | \else% |
229 | - | \let\PrintShort\CapShort% |
229 | + | \let\PrintShort\CapShort% |
230 | - | \fi% |
230 | + | \fi% |
231 | - | \fi% |
231 | + | \fi% |
232 | - | \if@nameauth@AllThis% |
232 | + | \if@nameauth@AllThis% |
233 | - | \protected@edef\Reversed{\Suffix\Space\AllCapShort}% |
233 | + | \protected@edef\Reversed{\Suffix\Space\AllCapShort}% |
234 | - | \protected@edef\Surnames{\AllCapShort\Space\Suffix}% |
234 | + | \protected@edef\Surnames{\AllCapShort\Space\Suffix}% |
235 | - | \if@nameauth@RevThis% |
235 | + | \if@nameauth@RevThis% |
236 | - | \let\PrintShort\Suffix% |
236 | + | \let\PrintShort\Suffix% |
237 | - | \else% |
237 | + | \else% |
238 | - | \let\PrintShort\AllCapShort% |
238 | + | \let\PrintShort\AllCapShort% |
239 | - | \fi% |
239 | + | \fi% |
240 | - | \fi% |
240 | + | \fi% |
241 | - | \if@nameauth@SmallThis% |
241 | + | \if@nameauth@SmallThis% |
242 | - | \protected@edef\Reversed{\Suffix\Space\SmallCapShort}% |
242 | + | \protected@edef\Reversed{\Suffix\Space\SmallCapShort}% |
243 | - | \protected@edef\Surnames{\SmallCapShort\Space\Suffix}% |
243 | + | \protected@edef\Surnames{\SmallCapShort\Space\Suffix}% |
244 | - | \if@nameauth@RevThis% |
244 | + | \if@nameauth@RevThis% |
245 | - | \let\PrintShort\Suffix% |
245 | + | \let\PrintShort\Suffix% |
246 | - | \else% |
246 | + | \else% |
247 | - | \let\PrintShort\SmallCapShort% |
247 | + | \let\PrintShort\SmallCapShort% |
248 | - | \fi% |
248 | + | \fi% |
249 | - | \fi% |
249 | + | \fi% |
250 | \fi% | |
251 | \@nameauth@DoCapsfalse% | |
252 | \@nameauth@AllThisfalse% | |
253 | \@nameauth@SmallThisfalse% | |
254 | \@nameauth@ShowCommafalse% | |
255 | \ifx\testi\@empty% | |
256 | - | \ifx\testiii\@empty% |
256 | + | \ifx\testiii\@empty% |
257 | - | \ifcsname\@nameauth@CleanName{#2!PN!}\endcsname% |
257 | + | \ifcsname\@nameauth@CleanName{#2!PN!}\endcsname% |
258 | - | \PackageWarning{nameauth}% |
258 | + | \PackageWarning{nameauth}% |
259 | - | {macro \Name: Xref: #2 cannot be a page reference.}% |
259 | + | {macro \Name: Xref: #2 cannot be a page reference.}% |
260 | - | \else% |
260 | + | \else% |
261 | - | \@nameauth@Index{\IndexSurnames}[\@nameauth@CleanName{#2}]% |
261 | + | \@nameauth@Index{\IndexSurnames}[\@nameauth@CleanName{#2}]% |
262 | - | \fi% |
262 | + | \fi% |
263 | - | \if@nameauth@DoFormat% |
263 | + | \if@nameauth@DoFormat% |
264 | - | \ifcsname\@nameauth@CleanName{#2!MN!}\endcsname% |
264 | + | \ifcsname\@nameauth@CleanName{#2!MN!}\endcsname% |
265 | - | \if@nameauth@FirstName% |
265 | + | \if@nameauth@FirstName% |
266 | - | \@nameauth@FullNamefalse% |
266 | + | \@nameauth@FullNamefalse% |
267 | - | \@nameauth@FirstNamefalse% |
267 | + | \@nameauth@FirstNamefalse% |
268 | - | \fi% |
268 | + | \fi% |
269 | - | \if@nameauth@FullName% |
269 | + | \if@nameauth@FullName% |
270 | - | \@nameauth@FullNamefalse% |
270 | + | \@nameauth@FullNamefalse% |
271 | - | \if@nameauth@RevThis% |
271 | + | \if@nameauth@RevThis% |
272 | - | \expandafter\@nameauth@FmtName\expandafter*\expandafter{\Reversed}% |
272 | + | \expandafter\@nameauth@FmtName\expandafter*\expandafter{\Reversed}% |
273 | - | \else% |
273 | + | \else% |
274 | - | \expandafter\@nameauth@FmtName\expandafter*\expandafter{\Surnames}% |
274 | + | \expandafter\@nameauth@FmtName\expandafter*\expandafter{\Surnames}% |
275 | - | \fi% |
275 | + | \fi% |
276 | - | \else% |
276 | + | \else% |
277 | - | \expandafter\@nameauth@FmtName\expandafter*\expandafter{\PrintShort}% |
277 | + | \expandafter\@nameauth@FmtName\expandafter*\expandafter{\PrintShort}% |
278 | - | \fi% |
278 | + | \fi% |
279 | - | \else% |
279 | + | \else% |
280 | - | \@nameauth@FullNamefalse% |
280 | + | \@nameauth@FullNamefalse% |
281 | - | \@nameauth@FirstNamefalse% |
281 | + | \@nameauth@FirstNamefalse% |
282 | - | \csgdef{\@nameauth@CleanName{#2!MN!}}{}% |
282 | + | \csgdef{\@nameauth@CleanName{#2!MN!}}{}% |
283 | - | \if@nameauth@RevThis% |
283 | + | \if@nameauth@RevThis% |
284 | - | \expandafter\@nameauth@FmtName\expandafter{\Reversed}% |
284 | + | \expandafter\@nameauth@FmtName\expandafter{\Reversed}% |
285 | - | \else% |
285 | + | \else% |
286 | - | \expandafter\@nameauth@FmtName\expandafter{\Surnames}% |
286 | + | \expandafter\@nameauth@FmtName\expandafter{\Surnames}% |
287 | - | \fi% |
287 | + | \fi% |
288 | - | \fi% |
288 | + | \fi% |
289 | - | \else% |
289 | + | \else% |
290 | - | \ifcsname\@nameauth@CleanName{#2!NF!}\endcsname% |
290 | + | \ifcsname\@nameauth@CleanName{#2!NF!}\endcsname% |
291 | - | \if@nameauth@FirstName% |
291 | + | \if@nameauth@FirstName% |
292 | - | \@nameauth@FullNamefalse% |
292 | + | \@nameauth@FullNamefalse% |
293 | - | \@nameauth@FirstNamefalse% |
293 | + | \@nameauth@FirstNamefalse% |
294 | - | \fi% |
294 | + | \fi% |
295 | - | \if@nameauth@FullName% |
295 | + | \if@nameauth@FullName% |
296 | - | \@nameauth@FullNamefalse% |
296 | + | \@nameauth@FullNamefalse% |
297 | - | \if@nameauth@RevThis% |
297 | + | \if@nameauth@RevThis% |
298 | - | \expandafter\@nameauth@FmtName\expandafter*\expandafter{\Reversed}% |
298 | + | \expandafter\@nameauth@FmtName\expandafter*\expandafter{\Reversed}% |
299 | - | \else% |
299 | + | \else% |
300 | - | \expandafter\@nameauth@FmtName\expandafter*\expandafter{\Surnames}% |
300 | + | \expandafter\@nameauth@FmtName\expandafter*\expandafter{\Surnames}% |
301 | - | \fi% |
301 | + | \fi% |
302 | - | \else% |
302 | + | \else% |
303 | - | \expandafter\@nameauth@FmtName\expandafter*\expandafter{\PrintShort}% |
303 | + | \expandafter\@nameauth@FmtName\expandafter*\expandafter{\PrintShort}% |
304 | - | \fi% |
304 | + | \fi% |
305 | - | \else% |
305 | + | \else% |
306 | - | \@nameauth@FullNamefalse% |
306 | + | \@nameauth@FullNamefalse% |
307 | - | \@nameauth@FirstNamefalse% |
307 | + | \@nameauth@FirstNamefalse% |
308 | - | \csgdef{\@nameauth@CleanName{#2!NF!}}{}% |
308 | + | \csgdef{\@nameauth@CleanName{#2!NF!}}{}% |
309 | - | \if@nameauth@RevThis% |
309 | + | \if@nameauth@RevThis% |
310 | - | \expandafter\@nameauth@FmtName\expandafter*\expandafter{\Reversed}% |
310 | + | \expandafter\@nameauth@FmtName\expandafter*\expandafter{\Reversed}% |
311 | - | \else% |
311 | + | \else% |
312 | - | \expandafter\@nameauth@FmtName\expandafter*\expandafter{\Surnames}% |
312 | + | \expandafter\@nameauth@FmtName\expandafter*\expandafter{\Surnames}% |
313 | - | \fi% |
313 | + | \fi% |
314 | - | \fi% |
314 | + | \fi% |
315 | - | \fi% |
315 | + | \fi% |
316 | - | \else% |
316 | + | \else% |
317 | - | \ifcsname\@nameauth@CleanName{#2#3!PN!}\endcsname% |
317 | + | \ifcsname\@nameauth@CleanName{#2#3!PN!}\endcsname% |
318 | - | \PackageWarning{nameauth}% |
318 | + | \PackageWarning{nameauth}% |
319 | - | {macro \Name: Xref: #2 #3 cannot be a page reference.}% |
319 | + | {macro \Name: Xref: #2 #3 cannot be a page reference.}% |
320 | - | \else% |
320 | + | \else% |
321 | - | \@nameauth@Index{\IndexSurnames\space#3}[\@nameauth@CleanName{#2#3}]% |
321 | + | \@nameauth@Index{\IndexSurnames\space#3}[\@nameauth@CleanName{#2#3}]% |
322 | - | \fi% |
322 | + | \fi% |
323 | - | \if@nameauth@DoFormat% |
323 | + | \if@nameauth@DoFormat% |
324 | - | \ifcsname\@nameauth@CleanName{#2#3!MN!}\endcsname% |
324 | + | \ifcsname\@nameauth@CleanName{#2#3!MN!}\endcsname% |
325 | - | \if@nameauth@FirstName% |
325 | + | \if@nameauth@FirstName% |
326 | - | \@nameauth@FullNamefalse% |
326 | + | \@nameauth@FullNamefalse% |
327 | - | \@nameauth@FirstNamefalse% |
327 | + | \@nameauth@FirstNamefalse% |
328 | - | \fi% |
328 | + | \fi% |
329 | - | \if@nameauth@FullName% |
329 | + | \if@nameauth@FullName% |
330 | - | \@nameauth@FullNamefalse% |
330 | + | \@nameauth@FullNamefalse% |
331 | - | \if@nameauth@RevThis% |
331 | + | \if@nameauth@RevThis% |
332 | - | \expandafter\@nameauth@FmtName\expandafter*\expandafter{% |
332 | + | \expandafter\@nameauth@FmtName\expandafter*\expandafter{% |
333 | - | \expandafter\testiii\expandafter\space\Surnames}% |
333 | + | \expandafter\testiii\expandafter\space\Surnames}% |
334 | - | \else% |
334 | + | \else% |
335 | - | \expandafter\@nameauth@FmtName\expandafter*\expandafter{% |
335 | + | \expandafter\@nameauth@FmtName\expandafter*\expandafter{% |
336 | - | \expandafter\Surnames\expandafter\space#3}% |
336 | + | \expandafter\Surnames\expandafter\space#3}% |
337 | - | \fi% |
337 | + | \fi% |
338 | - | \else% |
338 | + | \else% |
339 | - | \if@nameauth@RevThis% |
339 | + | \if@nameauth@RevThis% |
340 | - | \expandafter\@nameauth@FmtName\expandafter*\expandafter{\testiii}% |
340 | + | \expandafter\@nameauth@FmtName\expandafter*\expandafter{\testiii}% |
341 | - | \else% |
341 | + | \else% |
342 | - | \expandafter\@nameauth@FmtName\expandafter*\expandafter{\PrintShort}% |
342 | + | \expandafter\@nameauth@FmtName\expandafter*\expandafter{\PrintShort}% |
343 | - | \fi% |
343 | + | \fi% |
344 | - | \fi% |
344 | + | \fi% |
345 | - | \else% |
345 | + | \else% |
346 | - | \@nameauth@FullNamefalse% |
346 | + | \@nameauth@FullNamefalse% |
347 | - | \@nameauth@FirstNamefalse% |
347 | + | \@nameauth@FirstNamefalse% |
348 | - | \csgdef{\@nameauth@CleanName{#2#3!MN!}}{}% |
348 | + | \csgdef{\@nameauth@CleanName{#2#3!MN!}}{}% |
349 | - | \if@nameauth@RevThis% |
349 | + | \if@nameauth@RevThis% |
350 | - | \expandafter\@nameauth@FmtName\expandafter{% |
350 | + | \expandafter\@nameauth@FmtName\expandafter{% |
351 | - | \expandafter\testiii\expandafter\space\Surnames}% |
351 | + | \expandafter\testiii\expandafter\space\Surnames}% |
352 | - | \else% |
352 | + | \else% |
353 | - | \expandafter\@nameauth@FmtName\expandafter{% |
353 | + | \expandafter\@nameauth@FmtName\expandafter{% |
354 | - | \expandafter\Surnames\expandafter\space#3}% |
354 | + | \expandafter\Surnames\expandafter\space#3}% |
355 | - | \fi% |
355 | + | \fi% |
356 | - | \fi% |
356 | + | \fi% |
357 | - | \else% |
357 | + | \else% |
358 | - | \ifcsname\@nameauth@CleanName{#2#3!NF!}\endcsname% |
358 | + | \ifcsname\@nameauth@CleanName{#2#3!NF!}\endcsname% |
359 | - | \if@nameauth@FirstName% |
359 | + | \if@nameauth@FirstName% |
360 | - | \@nameauth@FullNamefalse% |
360 | + | \@nameauth@FullNamefalse% |
361 | - | \@nameauth@FirstNamefalse% |
361 | + | \@nameauth@FirstNamefalse% |
362 | - | \fi% |
362 | + | \fi% |
363 | - | \if@nameauth@FullName% |
363 | + | \if@nameauth@FullName% |
364 | - | \@nameauth@FullNamefalse% |
364 | + | \@nameauth@FullNamefalse% |
365 | - | \if@nameauth@RevThis% |
365 | + | \if@nameauth@RevThis% |
366 | - | \expandafter\@nameauth@FmtName\expandafter*\expandafter{% |
366 | + | \expandafter\@nameauth@FmtName\expandafter*\expandafter{% |
367 | - | \expandafter\testiii\expandafter\space\Surnames}% |
367 | + | \expandafter\testiii\expandafter\space\Surnames}% |
368 | - | \else% |
368 | + | \else% |
369 | - | \expandafter\@nameauth@FmtName\expandafter*\expandafter{% |
369 | + | \expandafter\@nameauth@FmtName\expandafter*\expandafter{% |
370 | - | \expandafter\Surnames\expandafter\space#3}% |
370 | + | \expandafter\Surnames\expandafter\space#3}% |
371 | - | \fi% |
371 | + | \fi% |
372 | - | \else% |
372 | + | \else% |
373 | - | \if@nameauth@RevThis% |
373 | + | \if@nameauth@RevThis% |
374 | - | \expandafter\@nameauth@FmtName\expandafter*\expandafter{\testiii}% |
374 | + | \expandafter\@nameauth@FmtName\expandafter*\expandafter{\testiii}% |
375 | - | \else% |
375 | + | \else% |
376 | - | \expandafter\@nameauth@FmtName\expandafter*\expandafter{\PrintShort}% |
376 | + | \expandafter\@nameauth@FmtName\expandafter*\expandafter{\PrintShort}% |
377 | - | \fi% |
377 | + | \fi% |
378 | - | \fi% |
378 | + | \fi% |
379 | - | \else% |
379 | + | \else% |
380 | - | \@nameauth@FullNamefalse% |
380 | + | \@nameauth@FullNamefalse% |
381 | - | \@nameauth@FirstNamefalse% |
381 | + | \@nameauth@FirstNamefalse% |
382 | - | \csgdef{\@nameauth@CleanName{#2#3!NF!}}{}% |
382 | + | \csgdef{\@nameauth@CleanName{#2#3!NF!}}{}% |
383 | - | \if@nameauth@RevThis% |
383 | + | \if@nameauth@RevThis% |
384 | - | \expandafter\@nameauth@FmtName\expandafter*\expandafter{% |
384 | + | \expandafter\@nameauth@FmtName\expandafter*\expandafter{% |
385 | - | \expandafter\testiii\expandafter\space\Surnames}% |
385 | + | \expandafter\testiii\expandafter\space\Surnames}% |
386 | - | \else% |
386 | + | \else% |
387 | - | \expandafter\@nameauth@FmtName\expandafter*\expandafter{% |
387 | + | \expandafter\@nameauth@FmtName\expandafter*\expandafter{% |
388 | - | \expandafter\Surnames\expandafter\space#3}% |
388 | + | \expandafter\Surnames\expandafter\space#3}% |
389 | - | \fi% |
389 | + | \fi% |
390 | - | \fi% |
390 | + | \fi% |
391 | - | \fi% |
391 | + | \fi% |
392 | - | \fi% |
392 | + | \fi% |
393 | \else% | |
394 | - | \if@nameauth@RevThisComma% |
394 | + | \if@nameauth@RevThisComma% |
395 | - | \protected@edef\Space{,\space}% |
395 | + | \protected@edef\Space{,\space}% |
396 | - | \else% |
396 | + | \else% |
397 | - | \let\Space\Interspace% |
397 | + | \let\Space\Interspace% |
398 | - | \fi% |
398 | + | \fi% |
399 | - | \ifx\testiii\@empty% |
399 | + | \ifx\testiii\@empty% |
400 | - | \protected@edef\Forenames{#1}% |
400 | + | \protected@edef\Forenames{#1}% |
401 | - | \else% |
401 | + | \else% |
402 | - | \protected@edef\Forenames{#3}% |
402 | + | \protected@edef\Forenames{#3}% |
403 | - | \fi |
403 | + | \fi |
404 | - | \ifcsname\@nameauth@CleanName{#1#2!PN!}\endcsname% |
404 | + | \ifcsname\@nameauth@CleanName{#1#2!PN!}\endcsname% |
405 | - | \PackageWarning{nameauth}% |
405 | + | \PackageWarning{nameauth}% |
406 | - | {macro \Name: Xref: #1 #2 cannot be a page reference.}% |
406 | + | {macro \Name: Xref: #1 #2 cannot be a page reference.}% |
407 | - | \else% |
407 | + | \else% |
408 | - | \ifx\Suffix\@empty% |
408 | + | \ifx\Suffix\@empty% |
409 | - | \@nameauth@Index{\IndexShort, #1}[\@nameauth@CleanName{#1#2}]% |
409 | + | \@nameauth@Index{\IndexShort, #1}[\@nameauth@CleanName{#1#2}]% |
410 | - | \else% |
410 | + | \else% |
411 | - | \@nameauth@Index{\IndexShort, #1, \Suffix}[\@nameauth@CleanName{#1#2}]% |
411 | + | \@nameauth@Index{\IndexShort, #1, \Suffix}[\@nameauth@CleanName{#1#2}]% |
412 | - | \fi% |
412 | + | \fi% |
413 | - | \fi% |
413 | + | \fi% |
414 | - | \if@nameauth@DoFormat% |
414 | + | \if@nameauth@DoFormat% |
415 | - | \ifcsname\@nameauth@CleanName{#1#2!MN!}\endcsname% |
415 | + | \ifcsname\@nameauth@CleanName{#1#2!MN!}\endcsname% |
416 | - | \if@nameauth@FirstName% |
416 | + | \if@nameauth@FirstName% |
417 | - | \@nameauth@FullNamefalse% |
417 | + | \@nameauth@FullNamefalse% |
418 | - | \@nameauth@FirstNamefalse% |
418 | + | \@nameauth@FirstNamefalse% |
419 | - | \let\PrintShort\Forenames% |
419 | + | \let\PrintShort\Forenames% |
420 | - | \fi% |
420 | + | \fi% |
421 | - | \if@nameauth@FullName% |
421 | + | \if@nameauth@FullName% |
422 | - | \@nameauth@FullNamefalse% |
422 | + | \@nameauth@FullNamefalse% |
423 | - | \if@nameauth@RevThis% |
423 | + | \if@nameauth@RevThis% |
424 | - | \expandafter\@nameauth@FmtName\expandafter*\expandafter{% |
424 | + | \expandafter\@nameauth@FmtName\expandafter*\expandafter{% |
425 | - | \expandafter\Surnames\expandafter\Space\Forenames}% |
425 | + | \expandafter\Surnames\expandafter\Space\Forenames}% |
426 | - | \else% |
426 | + | \else% |
427 | - | \expandafter\@nameauth@FmtName\expandafter*\expandafter{% |
427 | + | \expandafter\@nameauth@FmtName\expandafter*\expandafter{% |
428 | - | \expandafter\Forenames\expandafter\space\Surnames}% |
428 | + | \expandafter\Forenames\expandafter\space\Surnames}% |
429 | - | \fi% |
429 | + | \fi% |
430 | - | \else% |
430 | + | \else% |
431 | - | \expandafter\@nameauth@FmtName\expandafter*\expandafter{\PrintShort}% |
431 | + | \expandafter\@nameauth@FmtName\expandafter*\expandafter{\PrintShort}% |
432 | - | \fi% |
432 | + | \fi% |
433 | - | \else% |
433 | + | \else% |
434 | - | \@nameauth@FullNamefalse% |
434 | + | \@nameauth@FullNamefalse% |
435 | - | \@nameauth@FirstNamefalse% |
435 | + | \@nameauth@FirstNamefalse% |
436 | - | \csgdef{\@nameauth@CleanName{#1#2!MN!}}{}% |
436 | + | \csgdef{\@nameauth@CleanName{#1#2!MN!}}{}% |
437 | - | \if@nameauth@RevThis% |
437 | + | \if@nameauth@RevThis% |
438 | - | \expandafter\@nameauth@FmtName\expandafter{% |
438 | + | \expandafter\@nameauth@FmtName\expandafter{% |
439 | - | \expandafter\Surnames\expandafter\Space\Forenames}% |
439 | + | \expandafter\Surnames\expandafter\Space\Forenames}% |
440 | - | \else% |
440 | + | \else% |
441 | - | \expandafter\@nameauth@FmtName\expandafter{% |
441 | + | \expandafter\@nameauth@FmtName\expandafter{% |
442 | - | \expandafter\Forenames\expandafter\space\Surnames}% |
442 | + | \expandafter\Forenames\expandafter\space\Surnames}% |
443 | - | \fi% |
443 | + | \fi% |
444 | - | \fi% |
444 | + | \fi% |
445 | - | \else% |
445 | + | \else% |
446 | - | \ifcsname\@nameauth@CleanName{#1#2!NF!}\endcsname% |
446 | + | \ifcsname\@nameauth@CleanName{#1#2!NF!}\endcsname% |
447 | - | \if@nameauth@FirstName% |
447 | + | \if@nameauth@FirstName% |
448 | - | \@nameauth@FullNamefalse% |
448 | + | \@nameauth@FullNamefalse% |
449 | - | \@nameauth@FirstNamefalse% |
449 | + | \@nameauth@FirstNamefalse% |
450 | - | \let\PrintShort\Forenames% |
450 | + | \let\PrintShort\Forenames% |
451 | - | \fi% |
451 | + | \fi% |
452 | - | \if@nameauth@FullName% |
452 | + | \if@nameauth@FullName% |
453 | - | \@nameauth@FullNamefalse% |
453 | + | \@nameauth@FullNamefalse% |
454 | - | \if@nameauth@RevThis% |
454 | + | \if@nameauth@RevThis% |
455 | - | \expandafter\@nameauth@FmtName\expandafter*\expandafter{% |
455 | + | \expandafter\@nameauth@FmtName\expandafter*\expandafter{% |
456 | - | \expandafter\Surnames\expandafter\Space\Forenames}% |
456 | + | \expandafter\Surnames\expandafter\Space\Forenames}% |
457 | - | \else% |
457 | + | \else% |
458 | - | \expandafter\@nameauth@FmtName\expandafter*\expandafter{% |
458 | + | \expandafter\@nameauth@FmtName\expandafter*\expandafter{% |
459 | - | \expandafter\Forenames\expandafter\space\Surnames}% |
459 | + | \expandafter\Forenames\expandafter\space\Surnames}% |
460 | - | \fi% |
460 | + | \fi% |
461 | - | \else% |
461 | + | \else% |
462 | - | \expandafter\@nameauth@FmtName\expandafter*\expandafter{\PrintShort}% |
462 | + | \expandafter\@nameauth@FmtName\expandafter*\expandafter{\PrintShort}% |
463 | - | \fi% |
463 | + | \fi% |
464 | - | \else% |
464 | + | \else% |
465 | - | \@nameauth@FullNamefalse% |
465 | + | \@nameauth@FullNamefalse% |
466 | - | \@nameauth@FirstNamefalse% |
466 | + | \@nameauth@FirstNamefalse% |
467 | - | \csgdef{\@nameauth@CleanName{#1#2!NF!}}{}% |
467 | + | \csgdef{\@nameauth@CleanName{#1#2!NF!}}{}% |
468 | - | \if@nameauth@RevThis% |
468 | + | \if@nameauth@RevThis% |
469 | - | \expandafter\@nameauth@FmtName\expandafter*\expandafter{% |
469 | + | \expandafter\@nameauth@FmtName\expandafter*\expandafter{% |
470 | - | \expandafter\Surnames\expandafter\Space\Forenames}% |
470 | + | \expandafter\Surnames\expandafter\Space\Forenames}% |
471 | - | \else% |
471 | + | \else% |
472 | - | \expandafter\@nameauth@FmtName\expandafter*\expandafter{% |
472 | + | \expandafter\@nameauth@FmtName\expandafter*\expandafter{% |
473 | - | \expandafter\Forenames\expandafter\space\Surnames}% |
473 | + | \expandafter\Forenames\expandafter\space\Surnames}% |
474 | - | \fi% |
474 | + | \fi% |
475 | - | \fi% |
475 | + | \fi% |
476 | - | \fi% |
476 | + | \fi% |
477 | \fi% | |
478 | \@nameauth@RevThisfalse% | |
479 | \@nameauth@RevThisCommafalse% | |
480 | \if@nameauth@Punct\expandafter\@nameauth@CheckDot\fi% | |
481 | } | |
482 | \WithSuffix\newcommandx\Name*[3][1=\@empty, 3=\@empty]% | |
483 | {% | |
484 | \@nameauth@FullNametrue% | |
485 | \Name[#1]{#2}[#3]% | |
486 | } | |
487 | \newcommandx\FName[3][1=\@empty, 3=\@empty]% | |
488 | {% | |
489 | \@nameauth@FirstNametrue% | |
490 | \Name[#1]{#2}[#3]% | |
491 | } | |
492 | \WithSuffix\newcommandx\FName*[3][1=\@empty, 3=\@empty]% | |
493 | {% | |
494 | \@nameauth@FirstNametrue% | |
495 | \Name[#1]{#2}[#3]% | |
496 | } | |
497 | \newcommandx\AKA[5][1=\@empty, 3=\@empty, 5=\@empty]% | |
498 | {% | |
499 | \leavevmode\hbox{}% | |
500 | \protected@edef\testi{#1}% | |
501 | \protected@edef\testii{#2}% | |
502 | \protected@edef\testiii{#3}% | |
503 | \protected@edef\testiv{#4}% | |
504 | \protected@edef\testv{#5}% | |
505 | \if@nameauth@AllCaps\CapName\fi% | |
506 | \if@nameauth@SmallCaps\SCapName\fi% | |
507 | \if@nameauth@RevAll\RevName\fi% | |
508 | \if@nameauth@RevAll\RevComma\fi% | |
509 | - | \protected@edef\Space{,\space}% |
509 | + | |
510 | \protected@edef\Space{,\space}% | |
511 | - | \let\Space\Interspace% |
511 | + | |
512 | \let\Space\Interspace% | |
513 | \fi% | |
514 | \protected@edef\Shortii{\@nameauth@Root{#2}}% | |
515 | \protected@edef\Shortiv{\@nameauth@Root{#4}}% | |
516 | - | \let\Surnamesii\Shortii% |
516 | + | \protected@edef\ShortivSmallCaps{\@nameauth@SmallCapRoot{#4}}% |
517 | - | \protected@edef\Suffixii{\@empty}% |
517 | + | |
518 | \let\Surnamesii\Shortii% | |
519 | - | \protected@edef\Suffixii{\@nameauth@Suffix{#2}}% |
519 | + | \protected@edef\Suffixii{\@empty}% |
520 | - | \protected@edef\Surnamesii{\Shortii\Space\Suffixii}% |
520 | + | |
521 | \protected@edef\Suffixii{\@nameauth@Suffix{#2}}% | |
522 | \protected@edef\Surnamesii{\Shortii\Space\Suffixii}% | |
523 | - | \protected@edef\Suffixiv{\@empty}% |
523 | + | |
524 | - | \let\Surnamesiv\Shortiv% |
524 | + | |
525 | - | \let\Reverseiv\Shortiv% |
525 | + | \protected@edef\Suffixiv{\@empty}% |
526 | \if@nameauth@SmallThis% | |
527 | - | \protected@edef\Suffixiv{\@nameauth@Suffix{#4}}% |
527 | + | \let\Surnamesiv\ShortivSmallCaps% |
528 | - | \protected@edef\Surnamesiv{\Shortiv\Space\Suffixiv}% |
528 | + | \let\Reverseiv\ShortivSmallCaps% |
529 | - | \protected@edef\Reverseiv{\Suffixiv\Space\Shortiv}% |
529 | + | \else% |
530 | \let\Surnamesiv\Shortiv% | |
531 | \let\Reverseiv\Shortiv% | |
532 | \fi% | |
533 | \else% | |
534 | - | \ifx\testv\@empty% |
534 | + | \protected@edef\Suffixiv{\@nameauth@Suffix{#4}}% |
535 | - | \ifcsname\@nameauth@CleanName{#4!PN!}\endcsname% |
535 | + | \if@nameauth@SmallThis% |
536 | - | \PackageWarning{nameauth}% |
536 | + | \protected@edef\Surnamesiv{\ShortivSmallCaps\Space\Suffixiv}% |
537 | - | {macro \AKA: XRef: #4 exists.}% |
537 | + | \protected@edef\Reverseiv{\Suffixiv\Space\ShortivSmallCaps}% |
538 | - | \else% |
538 | + | \else% |
539 | - | \ifcsname\@nameauth@CleanName{#4!MN!}\endcsname% |
539 | + | \protected@edef\Surnamesiv{\Shortiv\Space\Suffixiv}% |
540 | - | \PackageWarning{nameauth}% |
540 | + | \protected@edef\Reverseiv{\Suffixiv\Space\Shortiv}% |
541 | - | {macro \AKA: Name reference: #4 already exists; no see ref.}% |
541 | + | \fi% |
542 | - | \else% |
542 | + | |
543 | - | \ifcsname\@nameauth@CleanName{#4#5!NF!}\endcsname% |
543 | + | |
544 | - | \PackageWarning{nameauth}% |
544 | + | |
545 | - | {macro \AKA: Name reference: #4 already exists; no see ref.}% |
545 | + | |
546 | - | \else% |
546 | + | \ifx\testv\@empty% |
547 | - | \csgdef{\@nameauth@CleanName{#4!PN!}}{}% |
547 | + | \ifcsname\@nameauth@CleanName{#4!PN!}\endcsname% |
548 | - | \ifx\testi\@empty% |
548 | + | \PackageWarning{nameauth}% |
549 | - | \@nameauth@Index{\Surnamesiv|see{\Surnamesii}}% |
549 | + | {macro \AKA: XRef: #4 exists.}% |
550 | - | \else% |
550 | + | \else% |
551 | - | \ifx\Suffixii\@empty \@nameauth@Index{\Surnamesiv|see{\Surnamesii, #1}}% |
551 | + | \ifcsname\@nameauth@CleanName{#4!MN!}\endcsname% |
552 | - | \else \@nameauth@Index{\Surnamesiv|see{\Shortii, #1, \Suffixii}}\fi% |
552 | + | \PackageWarning{nameauth}% |
553 | - | \fi% |
553 | + | {macro \AKA: Name reference: #4 already exists; no see ref.}% |
554 | - | \fi% |
554 | + | \else% |
555 | - | \fi% |
555 | + | \ifcsname\@nameauth@CleanName{#4#5!NF!}\endcsname% |
556 | - | \fi% |
556 | + | \PackageWarning{nameauth}% |
557 | - | \@nameauth@AltAKAfalse% |
557 | + | {macro \AKA: Name reference: #4 already exists; no see ref.}% |
558 | - | \if@nameauth@RevThisComma% |
558 | + | \else% |
559 | - | \protected@edef\Space{,\space}% |
559 | + | \csgdef{\@nameauth@CleanName{#4!PN!}}{}% |
560 | - | \else% |
560 | + | \ifx\testi\@empty% |
561 | - | \let\Space\Interspace% |
561 | + | \@nameauth@Index{\Surnamesiv|see{\Surnamesii}}% |
562 | - | \fi% |
562 | + | \else% |
563 | - | \if@nameauth@RevThis% |
563 | + | \ifx\Suffixii\@empty \@nameauth@Index{\Surnamesiv|see{\Surnamesii, #1}}% |
564 | - | \expandafter\@nameauth@FmtName\expandafter*\expandafter{\Reverseiv}% |
564 | + | \else \@nameauth@Index{\Surnamesiv|see{\Shortii, #1, \Suffixii}}\fi% |
565 | - | \else% |
565 | + | \fi% |
566 | - | \expandafter\@nameauth@FmtName\expandafter*\expandafter{\Surnamesiv}% |
566 | + | \fi% |
567 | - | \fi% |
567 | + | \fi% |
568 | - | \else% |
568 | + | \fi% |
569 | - | \ifcsname\@nameauth@CleanName{#4#5!PN!}\endcsname% |
569 | + | \@nameauth@AltAKAfalse% |
570 | - | \PackageWarning{nameauth}% |
570 | + | \if@nameauth@RevThisComma% |
571 | - | {macro \AKA: XRef: #4 #5 exists.}% |
571 | + | \protected@edef\Space{,\space}% |
572 | - | \else% |
572 | + | \else% |
573 | - | \ifcsname\@nameauth@CleanName{#4#5!MN!}\endcsname% |
573 | + | \let\Space\Interspace% |
574 | - | \PackageWarning{nameauth}% |
574 | + | \fi% |
575 | - | {macro \AKA: Name reference: #4 #5 already exists; no see ref.}% |
575 | + | \if@nameauth@RevThis% |
576 | - | \else% |
576 | + | \expandafter\@nameauth@FmtName\expandafter*\expandafter{\Reverseiv}% |
577 | - | \ifcsname\@nameauth@CleanName{#4#5!NF!}\endcsname% |
577 | + | \else% |
578 | - | \PackageWarning{nameauth}% |
578 | + | \expandafter\@nameauth@FmtName\expandafter*\expandafter{\Surnamesiv}% |
579 | - | {macro \AKA: Name reference: #4 #5 already exists; no see ref.}% |
579 | + | \fi% |
580 | - | \else% |
580 | + | \else% |
581 | - | \csgdef{\@nameauth@CleanName{#4#5!PN!}}{}% |
581 | + | \ifcsname\@nameauth@CleanName{#4#5!PN!}\endcsname% |
582 | - | \ifx\testi\@empty% |
582 | + | \PackageWarning{nameauth}% |
583 | - | \@nameauth@Index{\Surnamesiv\space#5|see{\Surnamesii}}% |
583 | + | {macro \AKA: XRef: #4 #5 exists.}% |
584 | - | \else% |
584 | + | \else% |
585 | - | \ifx\Suffixii\@empty \@nameauth@Index{\Surnamesiv\space#5|see{\Surnamesii, #1}}% |
585 | + | \ifcsname\@nameauth@CleanName{#4#5!MN!}\endcsname% |
586 | - | \else \@nameauth@Index{\Surnamesiv\space#5|see{\Shortii, #1, \Suffixii}}\fi% |
586 | + | \PackageWarning{nameauth}% |
587 | - | \fi% |
587 | + | {macro \AKA: Name reference: #4 #5 already exists; no see ref.}% |
588 | - | \fi% |
588 | + | \else% |
589 | - | \fi% |
589 | + | \ifcsname\@nameauth@CleanName{#4#5!NF!}\endcsname% |
590 | - | \fi% |
590 | + | \PackageWarning{nameauth}% |
591 | - | \if@nameauth@RevThisComma% |
591 | + | {macro \AKA: Name reference: #4 #5 already exists; no see ref.}% |
592 | - | \protected@edef\Space{,\space}% |
592 | + | \else% |
593 | - | \else% |
593 | + | \csgdef{\@nameauth@CleanName{#4#5!PN!}}{}% |
594 | - | \let\Space\Interspace% |
594 | + | \ifx\testi\@empty% |
595 | - | \fi% |
595 | + | \@nameauth@Index{\Surnamesiv\space#5|see{\Surnamesii}}% |
596 | - | \if@nameauth@AltAKA% |
596 | + | \else% |
597 | - | \@nameauth@AltAKAfalse% |
597 | + | \ifx\Suffixii\@empty \@nameauth@Index{\Surnamesiv\space#5|see{\Surnamesii, #1}}% |
598 | - | \if@nameauth@RevThis% |
598 | + | \else \@nameauth@Index{\Surnamesiv\space#5|see{\Shortii, #1, \Suffixii}}\fi% |
599 | - | \else% |
599 | + | \fi% |
600 | - | \expandafter\@nameauth@FmtName\expandafter*\expandafter{\testv}% |
600 | + | \fi% |
601 | - | \fi% |
601 | + | \fi% |
602 | - | \else% |
602 | + | \fi% |
603 | - | \@nameauth@AltAKAfalse% |
603 | + | \if@nameauth@RevThisComma% |
604 | - | \if@nameauth@RevThis% |
604 | + | \protected@edef\Space{,\space}% |
605 | - | \expandafter\@nameauth@FmtName\expandafter*\expandafter{\expandafter\testv\expandafter\Space\Surnamesiv}% |
605 | + | \else% |
606 | - | \else% |
606 | + | \let\Space\Interspace% |
607 | - | \expandafter\@nameauth@FmtName\expandafter*\expandafter{\expandafter\Surnamesiv\expandafter\space\testv}% |
607 | + | \fi% |
608 | - | \fi% |
608 | + | \if@nameauth@AltAKA% |
609 | - | \fi% |
609 | + | \@nameauth@AltAKAfalse% |
610 | - | \fi% |
610 | + | \if@nameauth@RevThis% |
611 | \else% | |
612 | - | \ifcsname\@nameauth@CleanName{#3#4!PN!}\endcsname% |
612 | + | \expandafter\@nameauth@FmtName\expandafter*\expandafter{\testv}% |
613 | - | \PackageWarning{nameauth}% |
613 | + | \fi% |
614 | - | {macro \AKA: XRef: #3 #4 exists.}% |
614 | + | \else% |
615 | - | \else% |
615 | + | \@nameauth@AltAKAfalse% |
616 | - | \ifcsname\@nameauth@CleanName{#3#4!MN!}\endcsname% |
616 | + | \if@nameauth@RevThis% |
617 | - | \PackageWarning{nameauth}% |
617 | + | \expandafter\@nameauth@FmtName\expandafter*\expandafter{\expandafter\testv\expandafter\Space\Surnamesiv}% |
618 | - | {macro \AKA: Name reference: #3 #4 already exists; no see ref.}% |
618 | + | \else% |
619 | - | \else% |
619 | + | \expandafter\@nameauth@FmtName\expandafter*\expandafter{\expandafter\Surnamesiv\expandafter\space\testv}% |
620 | - | \ifcsname\@nameauth@CleanName{#3#4!NF!}\endcsname% |
620 | + | \fi% |
621 | - | \PackageWarning{nameauth}% |
621 | + | \fi% |
622 | - | {macro \AKA: Name reference: #3 #4 already exists; no see ref.}% |
622 | + | \fi% |
623 | - | \else% |
623 | + | |
624 | - | \csgdef{\@nameauth@CleanName{#3#4!PN!}}{}% |
624 | + | \ifcsname\@nameauth@CleanName{#3#4!PN!}\endcsname% |
625 | - | \ifx\testi\@empty% |
625 | + | \PackageWarning{nameauth}% |
626 | - | \ifx\Suffixiv\@empty \@nameauth@Index{\Surnamesiv, #3|see{\Surnamesii}}% |
626 | + | {macro \AKA: XRef: #3 #4 exists.}% |
627 | - | \else \@nameauth@Index{\Shortiv, #3, \Suffixiv|see{\Surnamesii}}\fi% |
627 | + | \else% |
628 | - | \else% |
628 | + | \ifcsname\@nameauth@CleanName{#3#4!MN!}\endcsname% |
629 | - | \ifx\Suffixii\@empty% |
629 | + | \PackageWarning{nameauth}% |
630 | - | \ifx\Suffixiv\@empty% |
630 | + | {macro \AKA: Name reference: #3 #4 already exists; no see ref.}% |
631 | - | \@nameauth@Index{\Surnamesiv, #3|see{\Surnamesii, #1}}% |
631 | + | \else% |
632 | - | \else% |
632 | + | \ifcsname\@nameauth@CleanName{#3#4!NF!}\endcsname% |
633 | - | \@nameauth@Index{\Shortiv, #3, \Suffixiv|see{\Surnamesii, #1}}% |
633 | + | \PackageWarning{nameauth}% |
634 | - | \fi% |
634 | + | {macro \AKA: Name reference: #3 #4 already exists; no see ref.}% |
635 | - | \else% |
635 | + | \else% |
636 | - | \ifx\Suffixiv\@empty% |
636 | + | \csgdef{\@nameauth@CleanName{#3#4!PN!}}{}% |
637 | - | \@nameauth@Index{\Surnamesiv, #3|see{\Shortii, #1, \Suffixii}}% |
637 | + | \ifx\testi\@empty% |
638 | - | \else% |
638 | + | \ifx\Suffixiv\@empty \@nameauth@Index{\Surnamesiv, #3|see{\Surnamesii}}% |
639 | - | \@nameauth@Index{\Shortiv, #3, \Suffixiv|see{\Shortii, #1, \Suffixii}}% |
639 | + | \else \@nameauth@Index{\Shortiv, #3, \Suffixiv|see{\Surnamesii}}\fi% |
640 | - | \fi% |
640 | + | \else% |
641 | - | \fi% |
641 | + | \ifx\Suffixii\@empty% |
642 | - | \fi% |
642 | + | \ifx\Suffixiv\@empty% |
643 | - | \fi% |
643 | + | \@nameauth@Index{\Surnamesiv, #3|see{\Surnamesii, #1}}% |
644 | - | \fi% |
644 | + | \else% |
645 | - | \fi% |
645 | + | \@nameauth@Index{\Shortiv, #3, \Suffixiv|see{\Surnamesii, #1}}% |
646 | - | \@nameauth@AltAKAfalse% |
646 | + | \fi% |
647 | - | \if@nameauth@RevThisComma% |
647 | + | \else% |
648 | - | \protected@edef\Space{,\space}% |
648 | + | \ifx\Suffixiv\@empty% |
649 | - | \else% |
649 | + | \@nameauth@Index{\Surnamesiv, #3|see{\Shortii, #1, \Suffixii}}% |
650 | - | \let\Space\Interspace% |
650 | + | \else% |
651 | - | \fi% |
651 | + | \@nameauth@Index{\Shortiv, #3, \Suffixiv|see{\Shortii, #1, \Suffixii}}% |
652 | - | \ifx\testv\@empty% |
652 | + | \fi% |
653 | - | \protected@edef\Forenames{#3}% |
653 | + | \fi% |
654 | - | \else% |
654 | + | \fi% |
655 | - | \protected@edef\Forenames{#5}% |
655 | + | \fi% |
656 | - | \fi% |
656 | + | \fi% |
657 | - | \if@nameauth@RevThis% |
657 | + | \fi% |
658 | - | \expandafter\@nameauth@FmtName\expandafter*\expandafter{% |
658 | + | \@nameauth@AltAKAfalse% |
659 | - | \expandafter\Surnamesiv\expandafter\Space\Forenames}% |
659 | + | \if@nameauth@RevThisComma% |
660 | - | \else% |
660 | + | \protected@edef\Space{,\space}% |
661 | - | \expandafter\@nameauth@FmtName\expandafter*\expandafter{% |
661 | + | \else% |
662 | - | \expandafter\Forenames\expandafter\space\Surnamesiv}% |
662 | + | \let\Space\Interspace% |
663 | - | \fi% |
663 | + | \fi% |
664 | \ifx\testv\@empty% | |
665 | \protected@edef\Forenames{#3}% | |
666 | \else% | |
667 | \protected@edef\Forenames{#5}% | |
668 | \fi% | |
669 | \if@nameauth@RevThis% | |
670 | \expandafter\@nameauth@FmtName\expandafter*\expandafter{% | |
671 | \expandafter\Surnamesiv\expandafter\Space\Forenames}% | |
672 | \else% | |
673 | \expandafter\@nameauth@FmtName\expandafter*\expandafter{% | |
674 | \expandafter\Forenames\expandafter\space\Surnamesiv}% | |
675 | \fi% | |
676 | \fi% | |
677 | \@nameauth@RevThisfalse% | |
678 | \@nameauth@RevThisCommafalse% | |
679 | \if@nameauth@Punct\expandafter\@nameauth@CheckDot\fi% | |
680 | } | |
681 | \WithSuffix\newcommandx\AKA*[5][1=\@empty,3=\@empty,5=\@empty]% | |
682 | {% | |
683 | \@nameauth@AltAKAtrue% | |
684 | \AKA[#1]{#2}[#3]{#4}[#5]% | |
685 | } | |
686 | \newcommandx\PName[5][1=\@empty,3=\@empty,5=\@empty]% | |
687 | - | \ifx\testiii\@empty% |
687 | + | |
688 | - | \ifcsname\@nameauth@CleanName{#2!PN!}\endcsname% |
688 | + | |
689 | - | \PackageWarning{nameauth}% |
689 | + | |
690 | - | {macro \textbackslash TagName Cannot tag xref: #2.}% |
690 | + | |
691 | - | \else% |
691 | + | |
692 | - | \csgdef{\@nameauth@CleanName{#2}}{#4}% |
692 | + | |
693 | - | \fi% |
693 | + | |
694 | - | \else% |
694 | + | |
695 | - | \ifcsname\@nameauth@CleanName{#2#3!PN!}\endcsname% |
695 | + | |
696 | - | \PackageWarning{nameauth}% |
696 | + | |
697 | - | {macro \textbackslash TagName Cannot tag xref: #2 #3.}% |
697 | + | |
698 | - | \else% |
698 | + | |
699 | - | \csgdef{\@nameauth@CleanName{#2#3}}{#4}% |
699 | + | \ifx\testiii\@empty% |
700 | - | \fi% |
700 | + | \ifcsname\@nameauth@CleanName{#2!PN!}\endcsname% |
701 | - | \fi% |
701 | + | \PackageWarning{nameauth}% |
702 | {macro \textbackslash TagName Cannot tag xref: #2.}% | |
703 | - | \ifcsname\@nameauth@CleanName{#1#2!PN!}\endcsname% |
703 | + | \else% |
704 | - | \PackageWarning{nameauth}% |
704 | + | \csgdef{\@nameauth@CleanName{#2}}{#4}% |
705 | - | {macro \textbackslash TagName Cannot tag xref: #1 #2.}% |
705 | + | \fi% |
706 | - | \else% |
706 | + | \else% |
707 | - | \csgdef{\@nameauth@CleanName{#1#2}}{#4}% |
707 | + | \ifcsname\@nameauth@CleanName{#2#3!PN!}\endcsname% |
708 | - | \fi% |
708 | + | \PackageWarning{nameauth}% |
709 | {macro \textbackslash TagName Cannot tag xref: #2 #3.}% | |
710 | \else% | |
711 | \csgdef{\@nameauth@CleanName{#2#3}}{#4}% | |
712 | \fi% | |
713 | \fi% | |
714 | \else% | |
715 | \ifcsname\@nameauth@CleanName{#1#2!PN!}\endcsname% | |
716 | - | \ifx\testiii\@empty% |
716 | + | \PackageWarning{nameauth}% |
717 | - | \csundef{\@nameauth@CleanName{#2}}% |
717 | + | {macro \textbackslash TagName Cannot tag xref: #1 #2.}% |
718 | - | \else% |
718 | + | \else% |
719 | - | \csundef{\@nameauth@CleanName{#2#3}}% |
719 | + | \csgdef{\@nameauth@CleanName{#1#2}}{#4}% |
720 | - | \fi% |
720 | + | \fi% |
721 | \fi% | |
722 | - | \csundef{\@nameauth@CleanName{#1#2}}% |
722 | + | |
723 | \newcommandx\UntagName[3][1=\@empty, 3=\@empty]% | |
724 | {% | |
725 | \protected@edef\testi{#1}% | |
726 | \protected@edef\testiii{#3}% | |
727 | \ifx\testi\@empty% | |
728 | \ifx\testiii\@empty% | |
729 | \csundef{\@nameauth@CleanName{#2}}% | |
730 | \else% | |
731 | - | \protected@edef\Space{,\space}% |
731 | + | \csundef{\@nameauth@CleanName{#2#3}}% |
732 | \fi% | |
733 | - | \let\Space\Interspace% |
733 | + | |
734 | \csundef{\@nameauth@CleanName{#1#2}}% | |
735 | \fi% | |
736 | } | |
737 | - | \let\Surnames\Short% |
737 | + | |
738 | - | \protected@edef\Suffix{\@empty}% |
738 | + | |
739 | \protected@edef\testi{#1}% | |
740 | - | \protected@edef\Suffix{\@nameauth@Suffix{#2}}% |
740 | + | |
741 | - | \protected@edef\Surnames{\Short\Space\Suffix}% |
741 | + | |
742 | \if@nameauth@ShowComma% | |
743 | \protected@edef\Space{,\space}% | |
744 | \else% | |
745 | - | \ifx\testiii\@empty% |
745 | + | \let\Space\Interspace% |
746 | - | \ifcsname\@nameauth@CleanName{#2!PN!}\endcsname% |
746 | + | |
747 | - | \PackageWarning{nameauth}% |
747 | + | |
748 | - | {macro \IndexName: XRef: #2 exists.}% |
748 | + | |
749 | - | \else% |
749 | + | \let\Surnames\Short% |
750 | - | \@nameauth@Index{\Surnames}[\@nameauth@CleanName{#2}]% |
750 | + | \protected@edef\Suffix{\@empty}% |
751 | - | \fi% |
751 | + | |
752 | - | \else% |
752 | + | \protected@edef\Suffix{\@nameauth@Suffix{#2}}% |
753 | - | \ifcsname\@nameauth@CleanName{#2#3!PN!}\endcsname% |
753 | + | \protected@edef\Surnames{\Short\Space\Suffix}% |
754 | - | \PackageWarning{nameauth}% |
754 | + | |
755 | - | {macro \IndexName: XRef: #2 #3 exists.}% |
755 | + | |
756 | - | \else% |
756 | + | |
757 | - | \@nameauth@Index{\Surnames\space#3}[\@nameauth@CleanName{#2#3}]% |
757 | + | \ifx\testiii\@empty% |
758 | - | \fi% |
758 | + | \ifcsname\@nameauth@CleanName{#2!PN!}\endcsname% |
759 | - | \fi% |
759 | + | \PackageWarning{nameauth}% |
760 | {macro \IndexName: XRef: #2 exists.}% | |
761 | - | \ifcsname\@nameauth@CleanName{#1#2!PN!}\endcsname% |
761 | + | \else% |
762 | - | \PackageWarning{nameauth}% |
762 | + | \@nameauth@Index{\Surnames}[\@nameauth@CleanName{#2}]% |
763 | - | {macro \IndexName: XRef: #1 #2 exists.}% |
763 | + | \fi% |
764 | - | \else% |
764 | + | \else% |
765 | - | \ifx\Suffix\@empty \@nameauth@Index{\Short, #1}[\@nameauth@CleanName{#1#2}]% |
765 | + | \ifcsname\@nameauth@CleanName{#2#3!PN!}\endcsname% |
766 | - | \else \@nameauth@Index{\Short, #1, \Suffix}[\@nameauth@CleanName{#1#2}]\fi% |
766 | + | \PackageWarning{nameauth}% |
767 | - | \fi% |
767 | + | {macro \IndexName: XRef: #2 #3 exists.}% |
768 | \else% | |
769 | \@nameauth@Index{\Surnames\space#3}[\@nameauth@CleanName{#2#3}]% | |
770 | \fi% | |
771 | \fi% | |
772 | \else% | |
773 | \ifcsname\@nameauth@CleanName{#1#2!PN!}\endcsname% | |
774 | \PackageWarning{nameauth}% | |
775 | - | \ifx\testiii\@empty% |
775 | + | {macro \IndexName: XRef: #1 #2 exists.}% |
776 | - | \ifcsname\@nameauth@CleanName{#2!PN!}\endcsname\relax% |
776 | + | \else% |
777 | - | \else% |
777 | + | \ifx\Suffix\@empty \@nameauth@Index{\Short, #1}[\@nameauth@CleanName{#1#2}]% |
778 | - | \ifcsname\@nameauth@CleanName{#2!MN!}\endcsname% |
778 | + | \else \@nameauth@Index{\Short, #1, \Suffix}[\@nameauth@CleanName{#1#2}]\fi% |
779 | - | \PackageWarning{nameauth}% |
779 | + | \fi% |
780 | - | {macro \ExcludeName: Reference: #2 already exists; no exclusion.}% |
780 | + | |
781 | - | \else% |
781 | + | |
782 | - | \ifcsname\@nameauth@CleanName{#2!NF!}\endcsname% |
782 | + | |
783 | - | \PackageWarning{nameauth}% |
783 | + | |
784 | - | {macro \ExcludeName: Reference: #2 already exists; no exclusion.}% |
784 | + | |
785 | - | \else% |
785 | + | |
786 | - | \csgdef{\@nameauth@CleanName{#2!PN!}}{}% |
786 | + | |
787 | - | \fi% |
787 | + | \ifx\testiii\@empty% |
788 | - | \fi% |
788 | + | \ifcsname\@nameauth@CleanName{#2!PN!}\endcsname\relax% |
789 | - | \fi% |
789 | + | \else% |
790 | - | \else% |
790 | + | \ifcsname\@nameauth@CleanName{#2!MN!}\endcsname% |
791 | - | \ifcsname\@nameauth@CleanName{#2#3!PN!}\endcsname\relax% |
791 | + | \PackageWarning{nameauth}% |
792 | - | \else% |
792 | + | {macro \ExcludeName: Reference: #2 already exists; no exclusion.}% |
793 | - | \ifcsname\@nameauth@CleanName{#2#3!MN!}\endcsname% |
793 | + | \else% |
794 | - | \PackageWarning{nameauth}% |
794 | + | \ifcsname\@nameauth@CleanName{#2!NF!}\endcsname% |
795 | - | {macro \ExcludeName: Reference: #2 #3 already exists; no exclusion.}% |
795 | + | \PackageWarning{nameauth}% |
796 | - | \else% |
796 | + | {macro \ExcludeName: Reference: #2 already exists; no exclusion.}% |
797 | - | \ifcsname\@nameauth@CleanName{#2#3!NF!}\endcsname% |
797 | + | \else% |
798 | - | \PackageWarning{nameauth}% |
798 | + | \csgdef{\@nameauth@CleanName{#2!PN!}}{}% |
799 | - | {macro \ExcludeName: Reference: #2 #3 already exists; no exclusion.}% |
799 | + | \fi% |
800 | - | \else% |
800 | + | \fi% |
801 | - | \csgdef{\@nameauth@CleanName{#2#3!PN!}}{}% |
801 | + | \fi% |
802 | - | \fi% |
802 | + | \else% |
803 | - | \fi% |
803 | + | \ifcsname\@nameauth@CleanName{#2#3!PN!}\endcsname\relax% |
804 | - | \fi% |
804 | + | \else% |
805 | - | \fi% |
805 | + | \ifcsname\@nameauth@CleanName{#2#3!MN!}\endcsname% |
806 | \PackageWarning{nameauth}% | |
807 | - | \ifcsname\@nameauth@CleanName{#1#2!PN!}\endcsname% |
807 | + | {macro \ExcludeName: Reference: #2 #3 already exists; no exclusion.}% |
808 | - | \PackageWarning{nameauth}% |
808 | + | \else% |
809 | - | {macro \ExcludeName: XRef: #1 #2 exists.}% |
809 | + | \ifcsname\@nameauth@CleanName{#2#3!NF!}\endcsname% |
810 | - | \else% |
810 | + | \PackageWarning{nameauth}% |
811 | - | \ifcsname\@nameauth@CleanName{#1#2!MN!}\endcsname% |
811 | + | {macro \ExcludeName: Reference: #2 #3 already exists; no exclusion.}% |
812 | - | \PackageWarning{nameauth}% |
812 | + | \else% |
813 | - | {macro \ExcludeName: Reference: #1 #2 already exists; no exclusion.}% |
813 | + | \csgdef{\@nameauth@CleanName{#2#3!PN!}}{}% |
814 | - | \else% |
814 | + | \fi% |
815 | - | \ifcsname\@nameauth@CleanName{#1#2!NF!}\endcsname% |
815 | + | \fi% |
816 | - | \PackageWarning{nameauth}% |
816 | + | \fi% |
817 | - | {macro \ExcludeName: Reference: #1 #2 already exists; no exclusion.}% |
817 | + | \fi% |
818 | - | \else% |
818 | + | |
819 | - | \csgdef{\@nameauth@CleanName{#1#2!PN!}}{}% |
819 | + | \ifcsname\@nameauth@CleanName{#1#2!PN!}\endcsname% |
820 | - | \fi% |
820 | + | \PackageWarning{nameauth}% |
821 | - | \fi% |
821 | + | {macro \ExcludeName: XRef: #1 #2 exists.}% |
822 | - | \fi% |
822 | + | \else% |
823 | \ifcsname\@nameauth@CleanName{#1#2!MN!}\endcsname% | |
824 | \PackageWarning{nameauth}% | |
825 | {macro \ExcludeName: Reference: #1 #2 already exists; no exclusion.}% | |
826 | \else% | |
827 | \ifcsname\@nameauth@CleanName{#1#2!NF!}\endcsname% | |
828 | \PackageWarning{nameauth}% | |
829 | {macro \ExcludeName: Reference: #1 #2 already exists; no exclusion.}% | |
830 | - | \ifx\testiii\@empty% |
830 | + | \else% |
831 | - | \csundef{\@nameauth@CleanName{#2!MN!}}% |
831 | + | \csgdef{\@nameauth@CleanName{#1#2!PN!}}{}% |
832 | - | \csundef{\@nameauth@CleanName{#2!NF!}}% |
832 | + | \fi% |
833 | - | \else% |
833 | + | \fi% |
834 | - | \csundef{\@nameauth@CleanName{#2#3!MN!}}% |
834 | + | \fi% |
835 | - | \csundef{\@nameauth@CleanName{#2#3!NF!}}% |
835 | + | |
836 | - | \fi% |
836 | + | |
837 | \newcommandx\ForgetName[3][1=\@empty, 3=\@empty]% | |
838 | - | \csundef{\@nameauth@CleanName{#1#2!MN!}}% |
838 | + | |
839 | - | \csundef{\@nameauth@CleanName{#1#2!NF!}}% |
839 | + | |
840 | \protected@edef\testiii{#3}% | |
841 | \ifx\testi\@empty% | |
842 | \ifx\testiii\@empty% | |
843 | \csundef{\@nameauth@CleanName{#2!MN!}}% | |
844 | \csundef{\@nameauth@CleanName{#2!NF!}}% | |
845 | \else% | |
846 | \csundef{\@nameauth@CleanName{#2#3!MN!}}% | |
847 | - | \ifx\testiii\@empty% |
847 | + | \csundef{\@nameauth@CleanName{#2#3!NF!}}% |
848 | - | \csgdef{\@nameauth@CleanName{#2!MN!}}{}% |
848 | + | \fi% |
849 | - | \csgdef{\@nameauth@CleanName{#2!NF!}}{}% |
849 | + | |
850 | - | \else% |
850 | + | \csundef{\@nameauth@CleanName{#1#2!MN!}}% |
851 | - | \csgdef{\@nameauth@CleanName{#2#3!MN!}}{}% |
851 | + | \csundef{\@nameauth@CleanName{#1#2!NF!}}% |
852 | - | \csgdef{\@nameauth@CleanName{#2#3!NF!}}{}% |
852 | + | |
853 | - | \fi% |
853 | + | |
854 | \newcommandx\SubvertName[3][1=\@empty, 3=\@empty]% | |
855 | - | \csgdef{\@nameauth@CleanName{#1#2!MN!}}{}% |
855 | + | |
856 | - | \csgdef{\@nameauth@CleanName{#1#2!NF!}}{}% |
856 | + | |
857 | \protected@edef\testiii{#3}% | |
858 | \ifx\testi\@empty% | |
859 | \ifx\testiii\@empty% | |
860 | \csgdef{\@nameauth@CleanName{#2!MN!}}{}% | |
861 | \csgdef{\@nameauth@CleanName{#2!NF!}}{}% | |
862 | \else% | |
863 | \csgdef{\@nameauth@CleanName{#2#3!MN!}}{}% | |
864 | \csgdef{\@nameauth@CleanName{#2#3!NF!}}{}% | |
865 | \fi% | |
866 | \else% | |
867 | \csgdef{\@nameauth@CleanName{#1#2!MN!}}{}% | |
868 | \csgdef{\@nameauth@CleanName{#1#2!NF!}}{}% | |
869 | \fi% | |
870 | } | |
871 | \newcommand{\NamesInactive}{\@nameauth@DoFormatfalse} | |
872 | - | \protected@edef\arga{\trim@spaces{##1}}% |
872 | + | |
873 | - | \protected@edef\argb{\trim@spaces{##2}}% |
873 | + | |
874 | - | \protected@edef\argc{\trim@spaces{##3}}% |
874 | + | |
875 | - | \protected@edef\argd{\trim@spaces{##4}}% |
875 | + | |
876 | - | \ifx\arga\@empty |
876 | + | |
877 | - | \PackageError{nameauth}% |
877 | + | |
878 | - | {environment nameauth: Control sequence missing.}% |
878 | + | |
879 | - | \else |
879 | + | |
880 | - | \ifx\argc\@empty |
880 | + | |
881 | - | \PackageError{nameauth}% |
881 | + | |
882 | - | {environment nameauth: Essential name missing.}% |
882 | + | |
883 | - | \else |
883 | + | |
884 | - | \ifx\argd\@empty |
884 | + | \protected@edef\arga{\trim@spaces{##1}}% |
885 | - | \ifx\argb\@empty |
885 | + | \protected@edef\argb{\trim@spaces{##2}}% |
886 | - | \csxdef{\arga}{\Name{\argc}}% |
886 | + | \protected@edef\argc{\trim@spaces{##3}}% |
887 | - | \csxdef{L\arga}{\Name*{\argc}}% |
887 | + | \protected@edef\argd{\trim@spaces{##4}}% |
888 | - | \csxdef{S\arga}{\FName{\argc}}% |
888 | + | \ifx\arga\@empty |
889 | - | \else |
889 | + | \PackageError{nameauth}% |
890 | - | \csxdef{\arga}{\Name[\argb]{\argc}}% |
890 | + | {environment nameauth: Control sequence missing.}% |
891 | - | \csxdef{L\arga}{\Name*[\argb]{\argc}}% |
891 | + | \else |
892 | - | \csxdef{S\arga}{\FName[\argb]{\argc}}% |
892 | + | \ifx\argc\@empty |
893 | - | \fi |
893 | + | \PackageError{nameauth}% |
894 | - | \else |
894 | + | {environment nameauth: Essential name missing.}% |
895 | - | \ifx\argb\@empty |
895 | + | \else |
896 | - | \csxdef{\arga}{\Name{\argc}[\argd]}% |
896 | + | \ifx\argd\@empty |
897 | - | \csxdef{L\arga}{\Name*{\argc}[\argd]}% |
897 | + | \ifx\argb\@empty |
898 | - | \csxdef{S\arga}{\FName{\argc}[\argd]}% |
898 | + | \csxdef{\arga}{\Name{\argc}}% |
899 | - | \else |
899 | + | \csxdef{L\arga}{\Name*{\argc}}% |
900 | - | \csxdef{\arga}{\Name[\argb]{\argc}[\argd]}% |
900 | + | \csxdef{S\arga}{\FName{\argc}}% |
901 | - | \csxdef{L\arga}{\Name*[\argb]{\argc}[\argd]}% |
901 | + | \else |
902 | - | \csxdef{S\arga}{\FName[\argb]{\argc}[\argd]}% |
902 | + | \csxdef{\arga}{\Name[\argb]{\argc}}% |
903 | - | \fi |
903 | + | \csxdef{L\arga}{\Name*[\argb]{\argc}}% |
904 | - | \fi |
904 | + | \csxdef{S\arga}{\FName[\argb]{\argc}}% |
905 | - | \fi |
905 | + | \fi |
906 | - | \fi |
906 | + | \else |
907 | - | \ignorespaces% |
907 | + | \ifx\argb\@empty |
908 | \csxdef{\arga}{\Name{\argc}[\argd]}% | |
909 | \csxdef{L\arga}{\Name*{\argc}[\argd]}% | |
910 | \csxdef{S\arga}{\FName{\argc}[\argd]}% | |
911 | \else | |
912 | \csxdef{\arga}{\Name[\argb]{\argc}[\argd]}% | |
913 | \csxdef{L\arga}{\Name*[\argb]{\argc}[\argd]}% | |
914 | \csxdef{S\arga}{\FName[\argb]{\argc}[\argd]}% | |
915 | \fi | |
916 | \fi | |
917 | \fi | |
918 | \fi | |
919 | \ignorespaces% | |
920 | }% | |
921 | }{\endgroup} | |
922 | \endinput | |
923 | %% | |
924 | %% End of file `nameauth.sty'. |