From 5400c076c2eb17a3b4a17f698eae2b2836bc5844 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Tue, 12 Mar 2013 22:35:58 +0000 Subject: nameauth (12mar13) git-svn-id: svn://tug.org/texlive/trunk@29359 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/tex/latex/nameauth/nameauth.sty | 45 +++++++++++++++++++++-- 1 file changed, 42 insertions(+), 3 deletions(-) (limited to 'Master/texmf-dist/tex/latex/nameauth') 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'. -- cgit v1.2.3