From 3bf9c09996ceea5ec6f6fcb33132626646196685 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Wed, 25 Apr 2007 00:00:58 +0000 Subject: new latex package xoptarg (23apr07) git-svn-id: svn://tug.org/texlive/trunk@4188 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/tex/latex/xoptarg/xoptarg.sty | 225 ++++++++++++++++++++++++ 1 file changed, 225 insertions(+) create mode 100644 Master/texmf-dist/tex/latex/xoptarg/xoptarg.sty (limited to 'Master/texmf-dist/tex') diff --git a/Master/texmf-dist/tex/latex/xoptarg/xoptarg.sty b/Master/texmf-dist/tex/latex/xoptarg/xoptarg.sty new file mode 100644 index 00000000000..d76cfe9f474 --- /dev/null +++ b/Master/texmf-dist/tex/latex/xoptarg/xoptarg.sty @@ -0,0 +1,225 @@ +% $Date: 2007-04-22 12:22:27 +0200 (Sun, 22 Apr 2007) $ +% $Revision: 39 $ +\def \filedate {2007/04/22} +\def \fileversion {v1.0} +\NeedsTeXFormat{LaTeX2e} +\ProvidesPackage{xoptarg}% + [\filedate \space \fileversion \space Expandable optional-argument macros (JN)] + +\ifx \eTeXversion \@undefined + \PackageWarning{xoptarg}{% + This package works best with e-TeX\MessageBreak + for its \protect\protected \space feature% + }% + \let \XOA@protected = \relax +\else + \let \XOA@protected = \protected +\fi + +\RequirePackage{newcommand} + +%% \newcommand*{\xnewcommand}{% +%% \@ifstar {\XOA@xnewcommand[\def]}% +%% {\@testopt{\XOA@xnewcommand}{\long \def}}% +%% } + +\newcommand*{\xnewcommand}{\@star@or@long \XOA@xnewcommand} + +\newcommand*{\XOA@xnewcommand}{} +\newcommand*{\XOA@@xnewcommand}{} +\newcommand*{\XOA@@@xnewcommand}{} +\newcommand*{\XOA@@@@xnewcommand}{} +\newcommand*{\XOA@@@@ynewcommand}{} +\newcommand*{\XOA@@@ynewcommand}{} + +% [] {} +%% \long \def \XOA@xnewcommand [#1]#2{% +%% \@testopt {\XOA@@xnewcommand{#1}{#2}}{0}% +%% } + +% {} +\long \def \XOA@xnewcommand #1{\@testopt {\XOA@@xnewcommand{#1}}{0}} + +% {} {} [] +%% \long \def \XOA@@xnewcommand #1#2[#3]{% +%% \ifnum #3>0 +%% \expandafter \@firstoftwo +%% \else +%% \expandafter \@secondoftwo +%% \fi +%% {\XOA@@@xnewcommand{#1}{#2}{#3}}% Possibly with optional +%% {\XOA@@@ynewcommand{#1}{#2}}% Certainly without optional +%% } + +% {} [] +\long \def \XOA@@xnewcommand #1[#2]{% + \ifnum #2>0 + \expandafter \@firstoftwo + \else + \expandafter \@secondoftwo + \fi + {\XOA@@@xnewcommand{#1}{#2}}% Possibly with optional + {\XOA@@@ynewcommand{#1}}% Certainly without optional +} + + +% {} {} {} +%% \long \def \XOA@@@xnewcommand #1#2#3{% +%% \@ifnextchar [%] +%% {\XOA@@@@xnewcommand{#1}{#2}{#3}}% With optional +%% {\XOA@@@@ynewcommand{#1}{#2}{#3}}% Without optional +%% } + +% {} {} +\long \def \XOA@@@xnewcommand #1#2{% + \@ifnextchar [%] + {\XOA@@@@xnewcommand{#1}{#2}}% With optional + {\XOA@@@@ynewcommand{#1}{#2}}% Without optional +} + +% {} {} {} [] {} +%% \long \def \XOA@@@@xnewcommand #1#2#3[#4]#5{% +%% \ifnum #3<2 +%% \PackageWarning{xoptarg}{% +%% Without at least one mandatory argument {...}\MessageBreak +%% I cannot make the macro \protect#2\space expandible.\MessageBreak +%% I will make it robust instead% +%% }% +%% \def \@tempa ##1{% +%% \in@{\protected}{#1}% +%% \unless \ifin@ +%% \XOA@protected +%% \fi +%% #1#2{\@testopt {##1}{#4}}% +%% \def \@tempa {#1##1}% +%% \def \@tempb ####1#3####2\@nil {####1#3}% +%% \expandafter \@tempa \@tempb [####1]% +%% ####2####3####4####5####6####7####8####9\@nil +%% }% +%% \count@ = \escapechar +%% \escapechar = -1 +%% \expandafter \@tempa \csname \string #2 \endcsname {#5}% +%% \escapechar = \count@ +%% \else +%% \def \@tempa ##1{% +%% #1#2####1####{% +%% \XOA@ifempty{####1}% +%% {##1[{#4}]}% +%% {% +%% \XOA@ifbeginswithspace{####1}% +%% {\XOA@removespace \foo ####1}% +%% {\XOA@ifbracket {##1[}{##1[{#4}]}####1}%] +%% }% +%% }% +%% \def \@tempa {#1##1}% +%% \def \@tempb ####1#3####2\@nil {####1#3}% +%% \expandafter \@tempa \@tempb [####1]% +%% ####2####3####4####5####6####7####8####9\@nil +%% }% +%% \count@ = \escapechar +%% \escapechar = -1 +%% \expandafter \@tempa \csname \string #2 \endcsname {#5}% +%% \escapechar = \count@ +%% \fi +%% } + +% {} {} [] {} +\long \def \XOA@@@@xnewcommand #1#2[#3]#4{% + \ifnum #2<2 + \PackageWarning{xoptarg}{% + Without at least one mandatory argument {...}\MessageBreak + I cannot make the macro \protect#1\space expandible.\MessageBreak + I will make it robust instead% + }% + \def \@tempa ##1{% + \expandafter \in@ \expandafter \protected \expandafter {\l@ngrel@x}% + \unless \ifin@ + \XOA@protected + \fi + \l@ngrel@x \def #1{\@testopt {##1}{#3}}% + \def \@tempa {\l@ngrel@x \def ##1}% + \def \@tempb ####1#2####2\@nil {####1#2}% + \expandafter \@tempa \@tempb [####1]% + ####2####3####4####5####6####7####8####9\@nil + }% + \count@ = \escapechar + \escapechar = -1 + \expandafter \@tempa \csname \string #1 \endcsname {#4}% + \escapechar = \count@ + \else + \def \@tempa ##1{% + \l@ngrel@x \def #1####1####{% + \XOA@ifempty{####1}% + {##1[{#3}]}% + {% + \XOA@ifbeginswithspace{####1}% + {\XOA@removespace \foo ####1}% + {\XOA@ifbracket {##1[}{##1[{#3}]}####1}%] + }% + }% + \def \@tempa {\l@ngrel@x \def ##1}% + \def \@tempb ####1#2####2\@nil {####1#2}% + \expandafter \@tempa \@tempb [####1]% + ####2####3####4####5####6####7####8####9\@nil + }% + \count@ = \escapechar + \escapechar = -1 + \expandafter \@tempa \csname \string #1 \endcsname {#4}% + \escapechar = \count@ + \fi +} + +% {} {} {} {} +%% \long \def \XOA@@@@ynewcommand #1#2#3#4{% +%% \def \@tempa {#1#2}% +%% \def \@tempb ##1#3##2\@nil {##1#3}% +%% \expandafter \@tempa \@tempb ##1##2##3##4##5##6##7##8##9\@nil {#4}% +%% } + +% {} {} {} +\long \def \XOA@@@@ynewcommand #1#2#3{% + \def \@tempa {\l@ngrel@x \def #1}% + \def \@tempb ##1#2##2\@nil {##1#2}% + \expandafter \@tempa \@tempb ##1##2##3##4##5##6##7##8##9\@nil {#3}% +} + +% {} {} {} +%% \long \def \XOA@@@ynewcommand #1#2#3{#1#2{#3}} + +% {} {} +\long \def \XOA@@@ynewcommand #1#2{\l@ngrel@x \def #1{#2}} + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +\newcommand*{\XOA@ifbeginswithspace}[1]{% + \XOA@@ifbeginswithspace #1 \@nil +} + +\newcommand*{\XOA@@ifbeginswithspace}{} +\def \XOA@@ifbeginswithspace #1 #2\@nil {% + \XOA@ifempty{#1}% + {\@firstoftwo}% + {\@secondoftwo}% +} + +\newcommand*{\XOA@removespace}{} +\def \XOA@removespace #1 {#1} + +\newcommand*{\XOA@ifbracket}[3]{% + \ifx [#3% + \expandafter \@firstoftwo + \else + \expandafter \@secondoftwo + \fi + {#1}{#2#3}% +} + +\newcommand*{\XOA@ifempty}[1]{% + \ifx \relax #1\relax + \expandafter \@firstoftwo + \else + \expandafter \@secondoftwo + \fi +} + +\empty -- cgit v1.2.3