summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/nameauth/nameauth.sty
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/latex/nameauth/nameauth.sty')
-rw-r--r--Master/texmf-dist/tex/latex/nameauth/nameauth.sty45
1 files changed, 42 insertions, 3 deletions
diff --git a/Master/texmf-dist/tex/latex/nameauth/nameauth.sty b/Master/texmf-dist/tex/latex/nameauth/nameauth.sty
index 1f5ab08ee4e..641a3411c72 100644
--- a/Master/texmf-dist/tex/latex/nameauth/nameauth.sty
+++ b/Master/texmf-dist/tex/latex/nameauth/nameauth.sty
@@ -22,9 +22,7 @@
%%
\NeedsTeXFormat{LaTeX2e}[2005/12/01]
\ProvidesPackage{nameauth}
- [2013/02/22 v1.5 name authority macros to aid consistent display and indexing of names]
-
-
+ [2013/03/10 v1.6 name authority macros to aid consistent display and indexing of names]
\newif\if@nameauth@FullName
\newif\if@nameauth@FirstName
\newif\if@nameauth@AltAKA
@@ -834,6 +832,47 @@
\newcommand{\ReverseCommaActive}{\@nameauth@RevAlltrue\@nameauth@RevAllCommatrue}
\newcommand{\IndexInactive}{\@nameauth@DoIndexfalse}
\newcommand{\IndexActive}{\@nameauth@DoIndextrue}
+\newenvironment{nameauth}{%
+ \begingroup%
+ \csdef{<}##1&##2&##3&##4>{%
+ \protected@edef\arga{\trim@spaces{##1}}%
+ \protected@edef\argb{\trim@spaces{##2}}%
+ \protected@edef\argc{\trim@spaces{##3}}%
+ \protected@edef\argd{\trim@spaces{##4}}%
+ \ifx\arga\@empty
+ \PackageError{nameauth}%
+ {environment nameauth: Control sequence missing.}%
+ \else
+ \ifx\argc\@empty
+ \PackageError{nameauth}%
+ {environment nameauth: Essential name missing.}%
+ \else
+ \ifx\argd\@empty
+ \ifx\argb\@empty
+ \csxdef{\arga}{\Name{\argc}}%
+ \csxdef{L\arga}{\Name*{\argc}}%
+ \csxdef{S\arga}{\FName{\argc}}%
+ \else
+ \csxdef{\arga}{\Name[\argb]{\argc}}%
+ \csxdef{L\arga}{\Name*[\argb]{\argc}}%
+ \csxdef{S\arga}{\FName[\argb]{\argc}}%
+ \fi
+ \else
+ \ifx\argb\@empty
+ \csxdef{\arga}{\Name{\argc}[\argd]}%
+ \csxdef{L\arga}{\Name*{\argc}[\argd]}%
+ \csxdef{S\arga}{\FName{\argc}[\argd]}%
+ \else
+ \csxdef{\arga}{\Name[\argb]{\argc}[\argd]}%
+ \csxdef{L\arga}{\Name*[\argb]{\argc}[\argd]}%
+ \csxdef{S\arga}{\FName[\argb]{\argc}[\argd]}%
+ \fi
+ \fi
+ \fi
+ \fi
+ \ignorespaces%
+ }%
+}{\endgroup}
\endinput
%%
%% End of file `nameauth.sty'.