View difference between Paste ID: 9JKjwnZf and 92yhzS4E
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'.