diff options
Diffstat (limited to 'Master/texmf-dist/tex')
-rw-r--r-- | Master/texmf-dist/tex/latex/skeycommand/skeycommand.sty | 63 |
1 files changed, 42 insertions, 21 deletions
diff --git a/Master/texmf-dist/tex/latex/skeycommand/skeycommand.sty b/Master/texmf-dist/tex/latex/skeycommand/skeycommand.sty index e9231f299e9..3123bb0a215 100644 --- a/Master/texmf-dist/tex/latex/skeycommand/skeycommand.sty +++ b/Master/texmf-dist/tex/latex/skeycommand/skeycommand.sty @@ -1,6 +1,6 @@ %++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++% % % -% This is file 'skeycommand.sty', version 0.1. % +% This is file 'skeycommand.sty', version 0.2. % % % % This package and accompanying files may be distributed and/or % % modified under the conditions of the LaTeX Project Public License, % @@ -25,7 +25,7 @@ \catcode123 01% { \catcode125 02% } \def\SKC@tempa{\endgroup - \edef\SKC@reincodes{% + \edef\SKC@restorecodes{% \catcode035 \the\catcode035% # \catcode064 \the\catcode064% @ \catcode123 \the\catcode123% { @@ -40,16 +40,16 @@ \catcode123 01% { \catcode125 02% } \def\SKC@catcode#1#2{% - \edef\SKC@reincodes{% - \SKC@reincodes + \edef\SKC@restorecodes{% + \SKC@restorecodes \catcode#1 \the\catcode#1\relax }% \catcode#1 #2\relax } \AtEndOfPackage{% \SKV@AfterPackageEnd{% - \SKC@reincodes - \SKV@Undef?{\SKC@catcode\SKC@reincodes}% + \SKC@restorecodes + \SKV@Undef?{\SKC@catcode\SKC@restorecodes}% }% } \SKC@catcode{036}{03}% $ @@ -70,7 +70,7 @@ \def\SKC@rcsid$#1: #2 #3 #4 #5${#4 v#3} \ProvidesPackage{skeycommand}[% \SKC@rcsid - $Id: skeycommand.sty,v 0.1 2010/05/05 09:00:00 Ahmed Musa $ + $Id: skeycommand.sty,v 0.2 2010/05/20 09:00:00 Ahmed Musa $ Defining new commands and environments using keys (AM) ] \NeedsTeXFormat{LaTeX2e}[1996/12/01] @@ -96,6 +96,8 @@ \TestProvidedCommand\newdef{}{\let\newdef\SKV@def} \TestProvidedCommand\robustdef{}{\let\robustdef\SKV@pdef} \TestProvidedCommand\redef{}{\let\redef\SKV@redef} +\ReserveMacroPrefixNames*{SKC} +\ReserveFamilyNames*{skeycmd} \robustdef\SKC@info#1{\PackageInfo{skeycommand}{#1\@gobble}} \robustdef\SKC@warn#1{\PackageWarningNoLine{skeycommand}{#1}} \robustdef\SKC@err#1#2{\PackageError{skeycommand}{#1}{#2}} @@ -106,7 +108,7 @@ \DeclareOptionX*{\SKC@warn{Unknown option '\CurrentOption' ignored}} \ExecuteOptionsX[KV]<skeycmd>{verbose=false} \ProcessOptionsX*[KV]<skeycmd>\relax -\robustdef*\skeycommand#1{\setkeys[KV]{skeycmd}{#1}} +\robustdef\skeycommand#1{\setkeys[KV]{skeycmd}{#1}} \newdef*\SKC@fdigit#1{% \let\SKC@resvda\@empty \SKV@tfor{#1}\SKC@resvdb{% @@ -123,7 +125,7 @@ \SKV@emptycmds{\SKC@keycmdlist,\SKC@k@ycmdlist} \newdef\SKC@keycmd@i#1{% \SKV@ensurescape{#1}% - \gdef\SKC@keycmdname{#1}% + \def\SKC@keycmdname{#1}% \edef\SKC@tfam{\expandafter\@gobble\string#1}% \edef\SKC@pref{\expandafter\expandafter\expandafter% \SKV@carcube\expandafter\@gobble\string#1xxx\@nil}% @@ -151,7 +153,7 @@ \SKV@testopt\SKC@keycmd@v{0}% } \newdef\SKC@keycmd@iv#1{% - \SKV@emptycmds*{\SKC@keycmdlist,\SKC@k@ycmdlist}% + \SKV@emptycmds?{\SKC@keycmdlist,\SKC@k@ycmdlist}% \XKV@checksanitizea{#1}\SKC@tempa \SKV@normalizea\SKC@tempa \SKV@for*[,]\SKC@tempa\SKC@tempa{% @@ -163,7 +165,9 @@ \SKC@paramerr{#1}% \SKV@testopt{\SKC@keycmd@vi[#1]}{}% } +\let\SKC@tag\z@ \newdef\SKC@keycmd@vi[#1][#2]#3{% + \let\SKC@tag\@ne \edef\SKC@resvda##1##2{% ##1[\the\numexpr#1+1]\SKV@ifblank{#2}{}{[\unexpanded{#2}]}% {\setkeys[KV]{\SKC@tfam}{####\the\numexpr#1+1}##2}% @@ -172,6 +176,7 @@ {\def\SKC@resvdb{\newtwooptcmd*}}% {\let\SKC@resvdb\newtwooptcmd}% \SKC@resvda{\expandafter\SKC@resvdb\SKC@keycmdname}{#3}% + \let\SKC@tag\z@ } \robustdef*\renewkeycmd{\@star@or@long\SKC@renewkeycmd@i} \robustdef*\csrenewkeycmd{\SKV@aftercs\renewkeycmd} @@ -195,7 +200,7 @@ }{}% \edef\SKC@tfam{#1}% \edef\SKC@pref{\SKV@carcube#1xxx\@nil @}% - \xdef\SKC@keycmdname{\SKV@noexpcs{#1}}% + \edef\SKC@keycmdname{\SKV@noexpcs{#1}}% \SKV@testopth\SKC@keyenviron@ii\SKC@pref } \newdef\SKC@keyenviron@ii<#1>{% @@ -220,6 +225,7 @@ \SKV@testopt{\SKC@keyenviron@vi[#1]}{}% } \newdef\SKC@keyenviron@vi[#1][#2]#3#4{% + \let\SKC@tag\@ne \edef\SKC@resvda##1##2{% ##1[\the\numexpr#1+1]\SKV@ifblank{#2}{}{[\unexpanded{#2}]}% {\setkeys[KV]{\SKC@tfam}{####\the\numexpr#1+1}##2}% @@ -233,6 +239,7 @@ }% \SKC@resvdb{end\SKC@tfam}{#4}% \SKC@resvda{\expandafter\SKC@resvdc\SKC@keycmdname}{#3}% + \let\SKC@tag\z@ } \robustdef*\renewkeyenviron{\@star@or@long\SKC@renewkeyenviron@i} \robustdef*\csrenewkeyenviron{\SKV@aftercs\renewkeyenviron} @@ -297,9 +304,8 @@ }% } \newdef\SKC@protected@testopt#1{% - \SKV@ifx\protect\@typeset@protect\SKV@testopt{\SKC@x@protect#1}% + \SKV@ifx\protect\@typeset@protect\SKV@testopt{\protect#1}% } -\newdef\SKC@x@protect#1#2#3{\protect#1} \newdef\SKC@yargdef#1#2#3{% \SKV@ifx{#2}\tw@ {\edef\SKC@shear##11{[\detokenize{####1}]}}% @@ -361,20 +367,35 @@ \expandafter\SKC@resvda\SKC@resvdb\@nil \SKV@scantoksa{\SKC@tempa,\SKC@tempb,\SKC@tempc}% \edef\SKC@resvda{\expandafter\@gobble\string#2@SKC}% - \edef\SKC@resvdb{\l@ngrel@x\def\noexpand#2\SKC@tempb + \def\SKC@resvdc{% + \edef\SKC@resvdb{\l@ngrel@x\def\SKV@noexpcs\SKC@resvda\SKC@tempc}% + \SKC@resvdb + }% + \edef\SKC@resvdb{% \ifnum#1<\tw@ \ifx\SKC@shear\@gobble - {\SKV@noexpcs\SKC@resvda{\SKC@tempa}}% + \ifx\SKC@tag\@ne + \l@ngrel@x\def\noexpand#2% + {\noexpand\SKV@testoptp\SKV@noexpcs\SKC@resvda{}}% + \unexpanded{\edef\SKC@resvdb{\l@ngrel@x\def\SKV@noexpcs + \SKC@resvda(\SKC@tempc)}\SKC@resvdb}% + \else + \l@ngrel@x\def\noexpand#2\SKC@tempb + {\SKV@noexpcs\SKC@resvda{\SKC@tempa}}% + \noexpand\SKC@resvdc + \fi \else - {\SKV@noexpcs\SKC@resvda\SKC@tempa}% + \l@ngrel@x\def\noexpand#2\SKC@tempb + {\SKV@noexpcs\SKC@resvda\SKC@tempa}% + \noexpand\SKC@resvdc \fi \else - {\noexpand\SKV@testoptp{\SKV@noexpcs\SKC@resvda\SKC@tempa}{}}% + \l@ngrel@x\def\noexpand#2\SKC@tempb + {\noexpand\SKV@testoptp{\SKV@noexpcs\SKC@resvda\SKC@tempa}{}}% + \noexpand\SKC@resvdc \fi }% \SKC@resvdb - \edef\SKC@resvdb{\l@ngrel@x\def\SKV@noexpcs\SKC@resvda\SKC@tempc}% - \SKC@resvdb } \newdef\SKC@reargdef#1[#2]{\SKC@yargdef#1\@ne{#2}} \robustdef*\renewtwooptcmd{\@star@or@long\SKC@renewcommand@i} @@ -438,8 +459,8 @@ } \robustdef*\SKC@nilkeylist{% \SKC@err{% - No key list submitted.\SKV@MB - Why use keycommand without keys? + No key list submitted or wrong command syntax.\SKV@MB + Please see the user guide. }{% Keycommand requires keys.\SKV@MB Perhaps you submitted an empty key list,\SKV@MB |