%% %% This is file `expkv-cs.tex', %% generated with the docstrip utility. %% %% The original source files were: %% %% expkv-cs.dtx (with options: `tex') %% %% ---------------------------------------------------------------- %% expkv-bundle -- an expandable key=val implementation and friends %% E-mail: jspratte@yahoo.de %% Released under the LaTeX Project Public License v1.3c or later %% See http://www.latex-project.org/lppl.txt %% ---------------------------------------------------------------- %% %% Copyright (C) 2020-2023 Jonathan P. Spratte %% %% This work may be distributed and/or modified under the conditions of the %% LaTeX Project Public License (LPPL), either version 1.3c of this license or %% (at your option) any later version. The latest version of this license is in %% the file: %% %% http://www.latex-project.org/lppl.txt %% %% This work is "maintained" (as per LPPL maintenance status) by %% Jonathan P. Spratte. %% %% This work consists of the files expkv-bundle.ins %% expkv.dtx %% expkv-cs.dtx %% expkv-def.dtx %% expkv-opt.dtx %% expkv-pop.dtx %% and the derived files expkv.sty %% expkv.tex %% t-expkv.tex %% expkv-cs.sty %% expkv-cs.tex %% t-expkv-cs.tex %% expkv-def.sty %% expkv-def.tex %% t-expkv-def.tex %% expkv-opt.sty %% expkv-pop.sty %% expkv-pop.tex %% t-expkv-pop.tex %% %% as well as any documentation files shipped with it. %% \input expkv-pop \expandafter\ifx\csname ekvcVersion\endcsname\relax \else \expandafter\endinput \fi \def\ekvcVersion{1.3} \def\ekvcDate{2023-01-23} \csname ekvc@tmp\endcsname \expandafter\chardef\csname ekvc@tmp\endcsname=\catcode`\@ \catcode`\@=11 \edef\ekvc@tripledots{\detokenize{...}} \newcount\ekvc@keycount \let\ekvc@long\ekv@empty \let\ekvc@any@long\ekv@empty \long\def\ekvc@ifdefined#1% {% \ifdefined#1% \ifx\relax#1% \ekv@fi@gobble \fi \@firstofone \ekv@fi@firstoftwo \fi \@secondoftwo } \def\ekvc@ekvset@pre@expander#1% {% \expandafter\ekvc@ekvset@pre@expander@a\ekvset{#1}\ekvc@stop\ekvc@stop } \def\ekvc@ekvset@pre@expander@a {% \expandafter\ekvc@ekvset@pre@expander@b } \def\ekvc@ekvset@pre@expander@b#1\ekvc@stop#2\ekvc@stop {% \ekv@unexpanded\expandafter{\ekv@alignsafe}% \ekv@unexpanded{#1}##1\ekv@unexpanded{#2}% \ekv@unexpanded\expandafter{\ekv@endalignsafe}% } \protected\long\def\ekvcSplitAndUse#1#2% {% \let\ekvc@helpers@needed\@firstoftwo \ekvc@ifdefined#1% {\ekvc@err@already@defined#1}% {\ekvcSplitAndUse@#1{}{#2}}% } \protected\long\def\ekvcSplitAndUse@#1#2#3% {% \edef\ekvc@set{\string#1}% \ekvc@SetupSplitKeys{#3}% \ekvc@helpers@needed {% \ekvc@any@long\edef#1##1% {% \expandafter\ekvc@ekvset@pre@expander\expandafter{\ekvc@set}% \ekv@unexpanded\expandafter {\csname ekvc@split@\the\ekvc@keycount\endcsname}% \ekv@unexpanded\expandafter{\ekvc@initials{}#2}% }% }% {% \ekvc@any@long\edef#1##1% {% \expandafter\ekvc@ekvset@pre@expander\expandafter{\ekvc@set}% \ekv@unexpanded{#2}% \ekv@unexpanded\expandafter{\ekvc@initials}% }% }% } \protected\long\def\ekvcSplitAndForward#1#2#3% {% \let\ekvc@helpers@needed\@firstoftwo \ekvc@ifdefined#1% {\ekvc@err@already@defined#1}% {\ekvcSplitAndUse@#1{{#2}}{#3}}% } \protected\long\def\ekvcSplit#1#2#3% {% \let\ekvc@helpers@needed\@secondoftwo \ekvc@ifdefined#1% {\ekvc@err@already@defined#1}% {% \expandafter \ekvcSplitAndUse@\expandafter#1\csname ekvc@\string#1\endcsname{#2}% \ifnum\ekvc@keycount<1 \ekvc@any@long\expandafter\def\csname ekvc@\string#1\endcsname{#3}% \else \ifnum\ekvc@keycount>9 \ekvc@err@toomany{#1}% \let#1\ekvc@undefined \else \ekvcSplit@build@argspec \ekvc@any@long\expandafter \def\csname ekvc@\string#1\expandafter\endcsname\ekvc@tmp{#3}% \fi \fi }% } \protected\def\ekvcSplit@build@argspec {% \begingroup \edef\ekvc@tmp {\endgroup\def\ekv@unexpanded{\ekvc@tmp}{\ekvcSplit@build@argspec@{1}}}% \ekvc@tmp } \def\ekvcSplit@build@argspec@#1% {% \ifnum#1>\ekvc@keycount \ekv@fi@gobble \fi \@firstofone {% \ekv@unexpanded\expandafter{\csname ekvc@splitmark@#1\endcsname####}#1% \expandafter\ekvcSplit@build@argspec@\expandafter{\the\numexpr#1+1}% }% } \protected\long\def\ekvc@SetupSplitKeys {% \ekvc@keycount=\ekv@zero \let\ekvc@any@long\ekv@empty \let\ekvc@initials\ekv@empty \ekvpParse@unsafe\ekvp@@p@ekvc@setup@splitkeys } \ekvpNewParser{ekvc@setup@splitkeys} \ekvpDefType{ekvc@setup@splitkeys}{short} {% \let\ekvc@long\ekv@empty \expandafter\ekvc@SetupSplitKeys@a\detokenize{#1}\ekv@stop{#3}% } \ekvpDefType{ekvc@setup@splitkeys}{long} {% \let\ekvc@long\long \let\ekvc@any@long\long \expandafter\ekvc@SetupSplitKeys@a\detokenize{#1}\ekv@stop{#3}% } \ekvpDefNoType{ekvc@setup@splitkeys} {% \let\ekvc@long\ekv@empty \expandafter\ekvc@SetupSplitKeys@a\detokenize{#1}\ekv@stop{#3}% } \ekvpDefNoValue{ekvc@setup@splitkeys} {% \begingroup \edef\ekvc@tmp{\detokenize{#1}}% \expandafter \endgroup \ifx\ekvc@tripledots\ekvc@tmp \advance\ekvc@keycount1 \begingroup\expandafter\endgroup \expandafter\ekvc@SetupSplitKeys@unknown \csname ekvc@splitmark@\the\ekvc@keycount\endcsname \let\ekvc@any@long\long \else \ekvc@err@value@required{#1}% \fi } \protected\long\def\ekvc@SetupSplitKeys@a {% \advance\ekvc@keycount1 \begingroup\expandafter\endgroup \expandafter\ekvc@SetupSplitKeys@b \csname ekvc@splitmark@\the\ekvc@keycount\endcsname } \protected\long\def\ekvc@SetupSplitKeys@b#1#2\ekv@stop#3% {% \long\def\ekvc@tmp##1##2#1##3{##2#1{##1}}% \ifx\ekvc@long\long \else \expandafter\let\csname ekvc@\ekvc@set(#2)\endcsname\ekvc@tmp \edef\ekvc@tmp##1% {% \ekv@unexpanded\expandafter{\csname ekvc@\ekvc@set(#2)\endcsname}% {##1}% }% \fi \ekvlet\ekvc@set{#2}\ekvc@tmp \edef\ekvc@initials{\ekv@unexpanded\expandafter{\ekvc@initials#1{#3}}}% \ekvc@helpers@needed {\expandafter\ekvc@setup@splitmacro\expandafter{\the\ekvc@keycount}}% {}% } \protected\long\def\ekvc@SetupSplitKeys@unknown#1% {% \long\def\ekvc@tmp##1##2##3##4#1##5{##4#1{##5, {##3} = {##1} }}% \ekvletunknown\ekvc@set\ekvc@tmp \long\def\ekvc@tmp##1##2##3#1##4{##3#1{##4, {##2} }}% \ekvletunknownNoVal\ekvc@set\ekvc@tmp \edef\ekvc@initials{\ekv@unexpanded\expandafter{\ekvc@initials#1{}}}% \ekvc@helpers@needed {\expandafter\ekvc@setup@splitmacro\expandafter{\the\ekvc@keycount}}% {}% } \protected\def\ekvc@defarggobbler#1{\def\ekvc@tmp##1#1##2##{##1#1}} \begingroup \edef\ekvc@tmp {% \long\gdef\ekv@unexpanded\expandafter{\csname ekvc@split@1\endcsname}% \ekv@unexpanded\expandafter{\csname ekvc@splitmark@1\endcsname}##1% ##2##3% {##3{##1}##2}% \long\gdef\ekv@unexpanded\expandafter{\csname ekvc@split@2\endcsname}% \ekv@unexpanded\expandafter{\csname ekvc@splitmark@1\endcsname}##1% \ekv@unexpanded\expandafter{\csname ekvc@splitmark@2\endcsname}##2% ##3##4% {##4{##1}{##2}##3}% \long\gdef\ekv@unexpanded\expandafter{\csname ekvc@split@3\endcsname}% \ekv@unexpanded\expandafter{\csname ekvc@splitmark@1\endcsname}##1% \ekv@unexpanded\expandafter{\csname ekvc@splitmark@2\endcsname}##2% \ekv@unexpanded\expandafter{\csname ekvc@splitmark@3\endcsname}##3% ##4##5% {##5{##1}{##2}{##3}##4}% \long\gdef\ekv@unexpanded\expandafter{\csname ekvc@split@4\endcsname}% \ekv@unexpanded\expandafter{\csname ekvc@splitmark@1\endcsname}##1% \ekv@unexpanded\expandafter{\csname ekvc@splitmark@2\endcsname}##2% \ekv@unexpanded\expandafter{\csname ekvc@splitmark@3\endcsname}##3% \ekv@unexpanded\expandafter{\csname ekvc@splitmark@4\endcsname}##4% ##5##6% {##6{##1}{##2}{##3}{##4}##5}% \long\gdef\ekv@unexpanded\expandafter{\csname ekvc@split@5\endcsname}% \ekv@unexpanded\expandafter{\csname ekvc@splitmark@1\endcsname}##1% \ekv@unexpanded\expandafter{\csname ekvc@splitmark@2\endcsname}##2% \ekv@unexpanded\expandafter{\csname ekvc@splitmark@3\endcsname}##3% \ekv@unexpanded\expandafter{\csname ekvc@splitmark@4\endcsname}##4% \ekv@unexpanded\expandafter{\csname ekvc@splitmark@5\endcsname}##5% ##6##7% {##7{##1}{##2}{##3}{##4}{##5}##6}% \long\gdef\ekv@unexpanded\expandafter{\csname ekvc@split@6\endcsname}% \ekv@unexpanded\expandafter{\csname ekvc@splitmark@1\endcsname}##1% \ekv@unexpanded\expandafter{\csname ekvc@splitmark@2\endcsname}##2% \ekv@unexpanded\expandafter{\csname ekvc@splitmark@3\endcsname}##3% \ekv@unexpanded\expandafter{\csname ekvc@splitmark@4\endcsname}##4% \ekv@unexpanded\expandafter{\csname ekvc@splitmark@5\endcsname}##5% \ekv@unexpanded\expandafter{\csname ekvc@splitmark@6\endcsname}##6% ##7##8% {##8{##1}{##2}{##3}{##4}{##5}{##6}##7}% \long\gdef\ekv@unexpanded\expandafter{\csname ekvc@split@7\endcsname}% \ekv@unexpanded\expandafter{\csname ekvc@splitmark@1\endcsname}##1% \ekv@unexpanded\expandafter{\csname ekvc@splitmark@2\endcsname}##2% \ekv@unexpanded\expandafter{\csname ekvc@splitmark@3\endcsname}##3% \ekv@unexpanded\expandafter{\csname ekvc@splitmark@4\endcsname}##4% \ekv@unexpanded\expandafter{\csname ekvc@splitmark@5\endcsname}##5% \ekv@unexpanded\expandafter{\csname ekvc@splitmark@6\endcsname}##6% \ekv@unexpanded\expandafter{\csname ekvc@splitmark@7\endcsname}##7% ##8##9% {##9{##1}{##2}{##3}{##4}{##5}{##6}{##7}##8}% } \ekvc@tmp \endgroup \protected\def\ekvc@setup@splitmacro#1% {% \ekv@ifdefined{ekvc@split@#1}{}% {% \begingroup \def\ekvc@tmp##1% {% \ekv@unexpanded\expandafter {\csname ekvc@splitmark@\the\numexpr#1-##1\relax\endcsname}% }% \edef\ekvc@tmp {% \long\gdef \ekv@unexpanded\expandafter{\csname ekvc@split@#1\endcsname}% ####1% \ekvc@tmp{6}####2% \ekvc@tmp{5}####3% \ekvc@tmp{4}####4% \ekvc@tmp{3}####5% \ekvc@tmp{2}####6% \ekvc@tmp{1}####7% \ekvc@tmp{0}####8% ####9% {% \ekv@unexpanded\expandafter {\csname ekvc@split@\the\numexpr#1-7\relax\endcsname}% ####1{{####2}{####3}{####4}{####5}{####6}{####7}{####8}####9}% }% }% \ekvc@tmp \endgroup }% } \protected\long\def\ekvcHashAndUse#1#2% {% \let\ekvc@helpers@needed\@firstoftwo \ekvc@ifdefined#1% {\ekvc@err@already@defined#1}% {\ekvcHashAndUse@#1{}{#2}}% } \protected\long\def\ekvcHashAndUse@#1#2#3% {% \edef\ekvc@set{\string#1}% \ekvc@SetupHashKeys{#3}% \ekvc@helpers@needed {% \ekvc@any@long\edef#1##1% {% \expandafter\ekvc@ekvset@pre@expander\expandafter{\ekvc@set}% \ekv@unexpanded{\ekvc@hash@pack@argument}% \ekv@unexpanded\expandafter{\ekvc@initials\ekvc@stop#2}% }% }% {% \ekvc@any@long\edef#1##1% {% \expandafter\ekvc@ekvset@pre@expander\expandafter{\ekvc@set}% \ekv@unexpanded{#2}% \ekv@unexpanded\expandafter{\ekvc@initials\ekvc@stop}% }% }% } \protected\long\def\ekvcHashAndForward#1#2#3% {% \let\ekvc@helpers@needed\@firstoftwo \ekvc@ifdefined#1% {\ekvc@err@already@defined#1}% {\ekvcHashAndUse@#1{{#2}}{#3}}% } \protected\long\def\ekvcHash#1#2#3% {% \let\ekvc@helpers@needed\@secondoftwo \ekvc@ifdefined#1% {\ekvc@err@already@defined#1}% {% \expandafter \ekvcHashAndUse@\expandafter#1\csname ekvc@\string#1\endcsname{#2}% \ekvc@any@long\expandafter\def\csname ekvc@\string#1\endcsname ##1\ekvc@stop {#3}% }% } \long\def\ekvc@hash@pack@argument#1\ekvc@stop#2{#2{#1}} \protected\long\def\ekvc@SetupHashKeys {% \let\ekvc@any@long\ekv@empty \let\ekvc@initials\ekv@empty \ekvpParse@unsafe\ekvp@@p@ekvc@setup@hashkeys } \ekvpNewParser{ekvc@setup@hashkeys} \ekvpDefType{ekvc@setup@hashkeys}{short} {% \let\ekvc@long\ekv@empty \expandafter\ekvc@SetupHashKeys@a\detokenize{#1}\ekv@stop{#3}% } \ekvpDefType{ekvc@setup@hashkeys}{long} {% \let\ekvc@long\long \let\ekvc@any@long\long \expandafter\ekvc@SetupHashKeys@a\detokenize{#1}\ekv@stop{#3}% } \ekvpDefNoType{ekvc@setup@hashkeys} {% \let\ekvc@long\ekv@empty \expandafter\ekvc@SetupHashKeys@a\detokenize{#1}\ekv@stop{#3}% } \ekvpDefNoValue{ekvc@setup@hashkeys} {% \begingroup \edef\ekvc@tmp{\detokenize{#1}}% \expandafter \endgroup \ifx\ekvc@tripledots\ekvc@tmp \ekvc@SetupHashKeys@unknown \let\ekvc@any@long\long \else \ekvc@err@value@required{#1}% \fi } \protected\long\def\ekvc@SetupHashKeys@a#1\ekv@stop {% \begingroup\expandafter\endgroup \expandafter\ekvc@SetupHashKeys@b\csname ekvc@hashmark@#1\endcsname{#1}% } \protected\long\def\ekvc@SetupHashKeys@b#1#2#3% {% \long\def\ekvc@tmp##1##2#1##3{##2#1{##1}}% \ifx\ekvc@long\long \else \expandafter\let\csname ekvc@\ekvc@set(#2)\endcsname\ekvc@tmp \edef\ekvc@tmp##1% {% \ekv@unexpanded\expandafter{\csname ekvc@\ekvc@set(#2)\endcsname}% {##1}% }% \fi \ekvlet\ekvc@set{#2}\ekvc@tmp \edef\ekvc@initials{\ekv@unexpanded\expandafter{\ekvc@initials#1{#3}}}% \ekvc@setup@hashmacro{#2}% } \def\ekvc@SetupHashKeys@unknown#1% {% \protected\def\ekvc@SetupHashKeys@unknown {% \ekvletunknown\ekvc@set\ekvc@hash@unknown@kv \ekvletunknownNoVal\ekvc@set\ekvc@hash@unknown@k \edef\ekvc@initials{\ekv@unexpanded\expandafter{\ekvc@initials#1{}}}% \ekvc@setup@hashmacro{...}% }% \long\def\ekvc@hash@unknown@kv##1##2##3##4#1##5{##4#1{##5, {##3} = {##1} }}% \long\def\ekvc@hash@unknown@k##1##2##3#1##4{##3#1{##4, {##2} }}% } \begingroup\expandafter\endgroup \expandafter\ekvc@SetupHashKeys@unknown \csname ekvc@hashmark@\ekvc@tripledots\endcsname \protected\def\ekvc@setup@hashmacro#1% {% \ekv@ifdefined{ekvc@fasthash@#1}{}% {% \begingroup \edef\ekvc@tmp {% \long\gdef \ekv@unexpanded\expandafter{\csname ekvc@fasthash@#1\endcsname}% ####1% \ekv@unexpanded\expandafter {\csname ekvc@hashmark@#1\endcsname}% ####2####3\ekv@unexpanded{\ekvc@stop}% {####2}% \long\gdef \ekv@unexpanded\expandafter{\csname ekvc@safehash@#1\endcsname}% ####1% {% \ekv@unexpanded\expandafter {\csname ekvc@@safehash@#1\endcsname}% ####1\ekv@unexpanded{\ekvc@mark}{}% \ekv@unexpanded\expandafter {% \csname ekvc@hashmark@#1\endcsname{}% \ekvc@mark{\ekvc@err@missing@hash{#1}}\ekvc@stop }% }% \long\gdef \ekv@unexpanded\expandafter {\csname ekvc@@safehash@#1\endcsname}% ####1% \ekv@unexpanded\expandafter {\csname ekvc@hashmark@#1\endcsname}% ####2####3\ekv@unexpanded{\ekvc@mark}####4####5% \ekv@unexpanded{\ekvc@stop}% {% ####4{####2}% }% \long\gdef\ekv@unexpanded\expandafter {\csname ekvc@fastsplithash@#1\endcsname}% ####1% \ekv@unexpanded\expandafter {\csname ekvc@hashmark@#1\endcsname}% ####2####3\ekv@unexpanded{\ekvc@stop}####4% {% ####4{####2}% }% \long\gdef\ekv@unexpanded\expandafter {\csname ekvc@safesplithash@#1\endcsname}####1% {% \ekv@unexpanded\expandafter {\csname ekvc@@safesplithash@#1\endcsname}% ####1\ekv@unexpanded{\ekvc@mark\ekvc@safe@after@hash}% \ekv@unexpanded\expandafter {% \csname ekvc@hashmark@#1\endcsname{}% \ekvc@mark {\ekvc@err@missing@hash{#1}\ekvc@safe@after@hash}% \ekvc@stop }% }% \long\gdef\ekv@unexpanded\expandafter {\csname ekvc@@safesplithash@#1\endcsname}% ####1% \ekv@unexpanded\expandafter {\csname ekvc@hashmark@#1\endcsname}% ####2####3\ekv@unexpanded{\ekvc@mark}####4####5% \ekv@unexpanded{\ekvc@stop}% {% ####4{####2}% }% }% \ekvc@tmp \endgroup }% } \long\def\ekvcValue#1% {% \ekv@unexpanded \expandafter\ekvcValue@\detokenize{#1}\ekvc@stop } \def\ekvcValue@#1\ekvc@stop {% \ekv@ifdefined{ekvc@safehash@#1}% {\csname ekvc@safehash@#1\endcsname}% {\ekvc@err@unknown@hash{#1}\@firstoftwo{{}}}% } \long\def\ekvcValueFast#1#2% {\csname ekvc@fasthash@\detokenize{#1}\endcsname#2\ekvc@stop} \long\def\ekvcValueSplit#1% {\expandafter\ekvcValueSplit@\detokenize{#1}\ekvc@stop} \def\ekvcValueSplit@#1\ekvc@stop {% \ekv@ifdefined{ekvc@safesplithash@#1}% {\csname ekvc@safesplithash@#1\endcsname}% {\ekvc@err@unknown@hash{#1}\ekvcValueSplit@recover}% } \long\def\ekvcValueSplit@recover#1#2{#2{}} \long\def\ekvc@safe@after@hash#1#2% {% #2{#1}% } \long\def\ekvcValueSplitFast#1#2% {\csname ekvc@fastsplithash@\detokenize{#1}\endcsname#2\ekvc@stop} \long\def\ekvc@safehash@#1{\ekvc@err@empty@hash{}} \long\def\ekvc@fasthash@#1\ekvc@stop{\ekvc@err@empty@hash} \long\def\ekvc@safesplithash@#1#2{\ekvc@err@empty@hash#2{}} \long\def\ekvc@fastsplithash@#1\ekvc@stop#2{\ekvc@err@empty@hash#2{}} \ekvpNewParser{ekvc@setup@secondary} \ekvpValueAlwaysRequired{ekvc@setup@secondary} \protected\long\def\ekvcSecondaryKeys#1% {% \edef\ekvc@set{\string#1}% \let\ekvc@long\ekv@empty \ekvpParse@unsafe\ekvp@@p@ekvc@setup@secondary } \protected\long\def\ekvcChange#1% {% \ekvifdefinedset{\string#1}% {% \ekvc@ifdefined#1% {\ekvc@change#1}% {\ekvc@err@no@key@macro#1\@gobble}% }% {\ekvc@err@no@key@macro#1\@gobble}% } \protected\def\ekvc@change#1% {\expandafter\ekvc@change@a\meaning#1\ekv@stop#1} \def\ekvc@change@a#1% {% \protected\def\ekvc@change@a##1#1##2->##3\ekv@stop {% \ekvc@change@iflong{##1}% {\ekvc@change@b{}}% {\ekvc@change@b{\long}}% }% } \expandafter\ekvc@change@a\expandafter{\detokenize{macro:}} \protected\def\ekvc@change@b#1#2% {\expandafter\ekvc@change@c\expandafter{#2\ekvc@stop}{#1}#2} \ekv@exparg{\protected\long\def\ekvc@change@c#1#2#3#4}% {% \expandafter\iffalse\expandafter{\expandafter{\expandafter\fi \ekvset{\string#3}{#4}% \ekvc@change@d{#2}{#3}% #1% }}% } \protected\def\ekvc@change@d#1#2% {#1\edef#2##1{\expandafter\ekvc@change@e\iffalse}\fi} \long\def\ekvc@change@e#1\ekvc@stop {\ekv@unexpanded{#1}##1\ekv@unexpanded\expandafter{\iffalse}\fi} \def\ekvc@change@iflong#1% {% \protected\def\ekvc@change@iflong##1% {\expandafter\ekv@ifempty\expandafter{\ekvc@change@iflong@##1#1}}% \def\ekvc@change@iflong@##1#1{} } \expandafter\ekvc@change@iflong\expandafter{\string\long} \long\def\ekvcPass#1#2% {% \ekvifdefined{\string#1}{#2}% {\csname\ekv@name{\string#1}{#2}\endcsname}% {\ekvc@err@unknown@key@or@macro{#1}{#2}\@gobble}% } \ekvpDefPrefixLet{ekvc@setup@secondary}{long}\ekvc@long\long\ekv@empty \ekvpDefType{ekvc@setup@secondary}{meta} {\ekvc@type@meta\ekv@exparg\ekvc@long{##1}\ekvlet{#1}{#3}} \ekvpDefType{ekvc@setup@secondary}{nmeta} {\ekvc@assert@not@long\ekvc@type@meta\ekv@expargtwice{}{}\ekvletNoVal{#1}{#3}} \protected\long\def\ekvc@type@meta#1#2#3#4#5#6% {% #1\ekvc@type@meta@{\ekvmorekv{#6}}{#2}{#3}% #4\ekvc@set{#5}\ekvc@tmp } \protected\long\def\ekvc@type@meta@#1#2#3{#2\def\ekvc@tmp#3{#1}} \ekvpDefType{ekvc@setup@secondary}{alias} {% \ekvc@assert@not@long \ekvc@assert@k@or@p@defined{#3}% \ekvifdefined\ekvc@set{#3}{\ekvletkv\ekvc@set{#1}\ekvc@set{#3}}{}% \ekvifdefinedNoVal\ekvc@set{#3}{\ekvletkvNoVal\ekvc@set{#1}\ekvc@set{#3}}{}% } \ekvpDefType{ekvc@setup@secondary}{default} {% \ekvc@assert@defined{#1}% \ekvc@assert@not@long \edef\ekvc@tmp {% \ekv@unexpanded\expandafter {\csname\ekv@name\ekvc@set{#1}\endcsname{#3}}% }% \ekvletNoVal\ekvc@set{#1}\ekvc@tmp } \def\ekvc@enum@name#1#2#3{ekvc#1(#2)#3} \ekvpDefType{ekvc@setup@secondary}{enum} {\ekvpAssertTwoValues{#3}\ekvc@type@enum\ekvc@type@enum@{#1}#3} \ekvpDefType{ekvc@setup@secondary}{choice} {\ekvpAssertTwoValues{#3}\ekvc@type@enum\ekvc@type@choice@{#1}#3} \protected\long\def\ekvc@type@enum#1#2#3% {% \ekvc@assert@defined{#3}% \ekvc@long\edef\ekvc@tmp##1% {% \ekv@unexpanded{\expandafter\ekvc@h@enum\detokenize}{##1}% \ekv@unexpanded{\ekvc@stop}% {\ekvc@set}{#2}% }% \ekvlet\ekvc@set{#2}\ekvc@tmp \def\ekvc@tmp{0}% \expandafter\ekvcsvloop\expandafter {\expandafter#1\csname\ekv@name\ekvc@set{#3}\endcsname{#2}}% } \ekv@exparg{\protected\long\def\ekvc@type@enum@#1#2#3}% {% \expandafter\expandafter\expandafter\edef\expandafter \csname\ekvc@enum@name\ekvc@set{#2}{\detokenize{#3}}\endcsname {\ekv@unexpanded{#1}{\ekvc@tmp}}% \edef\ekvc@tmp{\the\numexpr\ekvc@tmp+1\relax}% } \ekv@exparg{\protected\long\def\ekvc@type@choice@#1#2#3}% {% \expandafter\expandafter\expandafter\edef\expandafter \csname\ekvc@enum@name\ekvc@set{#2}{\detokenize{#3}}\endcsname {\ekv@unexpanded{#1{#3}}}% } \ekv@if@lastnamedcs {% \ekv@exparg{\def\ekvc@h@enum#1\ekvc@stop#2#3}% {% \expandafter\ifcsname\ekvc@enum@name{#2}{#3}{#1}\endcsname \expandafter\ekvc@h@enum@\lastnamedcs \fi \ekvc@err@unknown@enum{#2}{#3}{#1}% } \def\ekvc@h@enum@#1\fi\ekvc@err@unknown@enum#2#3#4% {% \fi \ifx#1\relax \ekvc@err@unknown@enum{#2}{#3}{#4}% \expandafter\@gobble \fi #1% } } {% \def\ekvc@h@enum#1% {% \def\ekvc@h@enum##1\ekvc@stop##2##3% {% \expandafter\ekvc@h@enum@ \csname\ifcsname#1\endcsname#1\else relax\fi\endcsname {##2}{##3}{##1}% }% } \expandafter\ekvc@h@enum\expandafter{\ekvc@enum@name{#2}{#3}{#1}} \def\ekvc@h@enum@#1#2#3#4% {% \ifx#1\relax \ekvc@err@unknown@enum{#2}{#3}{#4}% \expandafter\@gobble \fi #1% } } \let\ekvc@enum@name\ekvc@undefined \ekvpDefType{ekvc@setup@secondary}{aggregate} {% \let\ekvc@type@aggregate@ifexpanded\@secondoftwo \ekvc@type@aggregate{#1}{#3}% } \ekvpDefType{ekvc@setup@secondary}{e-aggregate} {% \let\ekvc@type@aggregate@ifexpanded\@firstoftwo \ekvc@type@aggregate{#1}{#3}% } \protected\long\def\ekvc@type@aggregate#1#2% {% \ekvc@assert@not@long \ekvpAssertTwoValues{#2}% \ekvc@type@aggregate@a \ekvc@type@aggregate@long\ekvc@type@aggregate@short {#1}#2% } \protected\long\def\ekvc@type@aggregate@a#1#2#3#4#5% {% \ekvc@assert@defined{#4}% \def\ekvc@type@aggregate@tmp##1##2{#5}% \begingroup\expandafter\endgroup \expandafter\ekvc@type@aggregate@b \csname\ekv@name\ekvc@set{#4}\expandafter\endcsname \csname ekvc@\ekvc@set(#4)\endcsname #1#2% {#3}% } \protected\long\def\ekvc@type@aggregate@b#1#2#3#4% {% \ekvc@type@aggregate@check@long#1#2% {#3#1}% {#4#2}% } \protected\long\def\ekvc@type@aggregate@check@long#1#2% {\expandafter\ekvc@type@aggregate@check@long@a\detokenize{#2}\ekv@stop#1} \protected\long\def\ekvc@type@aggregate@check@long@a#1\ekv@stop#2% {% \def\ekvc@type@aggregate@check@long@@##1#1{}% \expandafter\ekvc@type@aggregate@check@long@b\meaning#2\ekv@stop{#1}% } \protected\def\ekvc@type@aggregate@check@long@b#1\ekv@stop#2% {\expandafter\ekv@ifempty\expandafter{\ekvc@type@aggregate@check@long@@#1#2}} \protected\long\def\ekvc@type@aggregate@long#1% {% \begingroup\expandafter\endgroup\expandafter \ekvc@type@aggregate@long@ \csname\ekvc@extract@mark#1\expandafter\endcsname \expandafter{\ekvc@type@aggregate@tmp{##3}{##1}}% } \protected\long\def\ekvc@type@aggregate@long@#1#2#3% {% \ekvc@type@aggregate@ifexpanded {% \long\def\ekvc@type@aggregate@tmp##1##2#1##3% {\ekv@expanded{\ekv@unexpanded{##2#1}{#2}}}% }% {\long\def\ekvc@type@aggregate@tmp##1##2#1##3{##2#1{#2}}}% \ekvlet\ekvc@set{#3}\ekvc@type@aggregate@tmp } \protected\long\def\ekvc@type@aggregate@short#1#2% {% \begingroup\expandafter\endgroup\expandafter \ekvc@type@aggregate@short@ \csname\ekvc@extract@mark#1\expandafter\endcsname \csname ekvc@\ekvc@set(#2)\expandafter\endcsname \expandafter{\ekvc@type@aggregate@tmp{##3}{##1}}% {#2}% } \protected\long\def\ekvc@type@aggregate@short@#1#2#3#4% {% \ekvdef\ekvc@set{#4}{#2{##1}}% \ekvc@type@aggregate@ifexpanded {\long\def#2##1##2#1##3{\ekv@expanded{\ekv@unexpanded{##2#1}{#3}}}}% {\long\def#2##1##2#1##3{##2#1{#3}}}% } \ekvpDefType{ekvc@setup@secondary}{process} {% \ekvpAssertTwoValues{#3}% \ifx\ekvc@long\long \ekv@fi@firstoftwo \fi \@secondoftwo {% \ekvc@type@aggregate@a \ekvc@type@process@long\ekvc@type@process@long }% {% \ekvc@type@aggregate@a \ekvc@type@process@short\ekvc@type@process@short }% {#1}#3% } \protected\long\def\ekvc@type@process@long#1% {% \begingroup\expandafter\endgroup\expandafter \ekvc@type@process@long@ \csname\ekvc@extract@mark#1\expandafter\endcsname \expandafter{\ekvc@type@aggregate@tmp{##3}{##1}}% } \protected\long\def\ekvc@type@process@long@#1#2#3% {% \long\def\ekvc@type@aggregate@tmp##1##2#1##3{#2##2#1{##3}}% \ekvlet\ekvc@set{#3}\ekvc@type@aggregate@tmp } \protected\long\def\ekvc@type@process@short#1#2% {% \begingroup\expandafter\endgroup\expandafter \ekvc@type@process@short@ \csname\ekvc@extract@mark#1\expandafter\endcsname \csname ekvc@\ekvc@set(#2)\expandafter\endcsname \expandafter{\ekvc@type@aggregate@tmp{##3}{##1}}% {#2}% } \protected\long\def\ekvc@type@process@short@#1#2#3#4% {% \ekvdef\ekvc@set{#4}{#2{##1}}% \long\def#2##1##2#1##3{#3##2#1{##3}}% } \ekvpDefType{ekvc@setup@secondary}{flag-bool} {% \ekvc@assert@not@long \ekvpAssertOneValue{#3}% \ifdefined#3\else\ekvcFlagNew#3\fi \ekvdef\ekvc@set{#1}% {% \ekv@ifdefined{ekvc@flag@set@##1}% {% \csname ekvc@flag@set@##1\expandafter\endcsname \ekvcFlagHeight#3\ekv@stop#3% }% {\ekvc@err@invalid@bool{##1}}% }% } \protected\def\ekvc@type@flag#1#2#3% {% \ekvc@assert@not@long \ekvpAssertOneValue{#3}% \ifdefined#3\else\ekvcFlagNew#3\fi \ekv@exparg{\ekvdefNoVal\ekvc@set{#2}}{#1#3}% } \ekvpDefType{ekvc@setup@secondary}{flag-true} {\ekvc@type@flag\ekvcFlagSetTrue{#1}{#3}} \ekvpDefType{ekvc@setup@secondary}{flag-false} {\ekvc@type@flag\ekvcFlagSetFalse{#1}{#3}} \ekvpDefType{ekvc@setup@secondary}{flag-raise} {\ekvc@type@flag\ekvcFlagRaise{#1}{#3}} \def\ekvc@flag@name{ekvcf\string} \def\ekvc@flag@namescheme#1#2{ekvch#2#1} \let\ekvcFlagHeight\number \protected\def\ekvcFlagNew#1% {% \edef#1% {% \ekv@unexpanded{\ekvc@flag@height}% \ekv@unexpanded\expandafter{\csname\ekvc@flag@name#1\endcsname}% }% \ekv@expargtwice {\expandafter\def\csname\ekvc@flag@name#1\endcsname##1}% {\expandafter\ekvc@flag@namescheme\expandafter{\string#1}{##1}}% } \def\ekvc@flag@height#1% {% \ifcsname#10\endcsname \ekvc@flag@height@1\ekv@stop#1% \fi \@firstofone{0} % leave this space } \def\ekvc@flag@height@#1\ekv@stop#2\fi\@firstofone#3% {% \fi \ifcsname#2{#1}\endcsname \expandafter\ekvc@flag@height@\the\numexpr#1+1\relax\ekv@stop#2% \fi \@firstofone{#1}% } \ekv@exparg{\def\ekvcFlagRaise#1}% {% \expandafter\expandafter\expandafter\@gobble\expandafter \csname\ekvc@flag@namescheme{\string#1}{\ekvcFlagHeight#1}\endcsname } \def\ekvcFlagSetTrue#1% {\expandafter\ekvc@flag@set@true\ekvcFlagHeight#1\ekv@stop#1} \def\ekvcFlagSetFalse#1% {\expandafter\ekvc@flag@set@false\ekvcFlagHeight#1\ekv@stop#1} \def\ekvc@flag@set@true#1% {% \def\ekvc@flag@set@true##1\ekv@stop##2% {% \ifodd##1 \ekv@fi@gobble \fi \@firstofone{\expandafter\@gobble\csname#1\endcsname}% }% \def\ekvc@flag@set@false##1\ekv@stop##2% {% \ifodd##1 \ekv@fi@firstofone \fi \@gobble{\expandafter\@gobble\csname#1\endcsname}% }% } \expandafter\ekvc@flag@set@true\expandafter {\ekvc@flag@namescheme{\string#2}{#1}} \def\ekvcFlagIf#1% {% \ifodd#1% \ekv@fi@firstoftwo \fi \@secondoftwo } \ekv@exparg{\def\ekvcFlagIfRaised#1}% {% \expandafter\ifcsname\ekvc@flag@namescheme{\string#1}0\endcsname \ekv@fi@firstoftwo \fi \@secondoftwo } \protected\def\ekvcFlagReset#1% {\expandafter\ekvc@flag@reset\csname\ekvc@flag@name#1\endcsname{}} \protected\def\ekvcFlagResetGlobal#1% {\expandafter\ekvc@flag@reset\csname\ekvc@flag@name#1\endcsname\global} \protected\def\ekvc@flag@reset#1#2% {% \ifcsname#10\endcsname #2\expandafter\let\csname#10\endcsname\ekvc@undefined \ekvc@flag@reset@1\ekv@stop#1{#2}% \fi } \protected\def\ekvc@flag@reset@#1\ekv@stop#2#3\fi {% \fi \ifcsname#2{#1}\endcsname #3\expandafter\let\csname#2{#1}\endcsname\ekvc@undefined \expandafter\ekvc@flag@reset@\the\numexpr#1+1\relax\ekv@stop#2{#3}% \fi } \def\ekvcFlagGetHeight#1% {\expandafter\ekvc@flag@get@height@single\ekvcFlagHeight#1\ekv@stop} \long\def\ekvc@flag@get@height@single#1\ekv@stop#2{#2{#1}} \def\ekvcFlagGetHeights#1% {% \ekvc@flag@get@heights#1\ekv@stop{}% } \def\ekvc@flag@get@heights#1% {% \ekv@gobbleto@stop#1\ekvc@flag@get@heights@done\ekv@stop \expandafter\ekvc@flag@get@heights@\ekvcFlagHeight#1\ekv@stop } \def\ekvc@flag@get@heights@#1\ekv@stop#2\ekv@stop#3% {\ekvc@flag@get@heights#2\ekv@stop{#3{#1}}} \long\def\ekvc@flag@get@heights@done \ekv@stop \expandafter\ekvc@flag@get@heights@\ekvcFlagHeight\ekv@stop\ekv@stop#1#2% {#2{#1}} \def\ekvc@extract@mark#1{\expandafter\ekvc@extract@mark@\meaning#1\ekv@stop} \begingroup \lccode`;=`# \lccode`/=`\\ \lowercase{\endgroup \def\ekvc@extract@mark@#1:#2/#3 ;#4\ekv@stop{#3}% } \ekv@exparg{\def\ekvc@assert@not@long}% {\ekvpAssertIfNot{\ifx\ekvc@long\long}{`long' not accepted}} \long\def\ekvc@assert@defined#1% {\ekvpAssertTF{\ekvifdefined\ekvc@set{#1}}{undefined key `#1'}} \long\def\ekvc@assert@k@or@p@defined#1% {% \ekvpAssertTF {\ekvifdefined\ekvc@set{#1}\@firstoftwo{\ekvifdefinedNoVal\ekvc@set{#1}}}% {undefined key `#1'}% } \protected\long\def\ekvc@errm#1{\errmessage{expkv-cs Error: #1}} \protected\long\def\ekvc@err@toomany#1% {\ekvc@errm{Too many keys for macro `\string#1'}} \protected\long\def\ekvc@err@value@required#1% {\ekvc@errm{Missing value for key `\ekv@unexpanded{#1}'}} \protected\long\def\ekvc@err@already@defined#1% {\ekvc@errm{Macro `\string#1' already defined}} \protected\long\def\ekvc@err@no@key@macro#1% {\ekvc@errm{\string#1 is no key=val macro}} \ekv@exparg{\long\def\ekvc@err#1}{\ekverr{expkv-cs}{#1}} \long\def\ekvc@err@unknown@hash#1{\ekvc@err{unknown hash `#1'}} \long\def\ekvc@err@missing@hash#1{\ekvc@err{hash `#1' not found}} \long\def\ekvc@err@empty@hash{\ekvc@err{empty hash}} \def\ekvc@err@invalid@bool#1{\ekvc@err{invalid boolean value `#1'}} \long\def\ekvc@err@unknown@key@or@macro#1#2% {\ekvc@err{unknown key `#2' for #1}} \def\ekvc@err@unknown@enum#1#2#3% {\ekvc@err{unknown choice `#3' for `#2' in #1}} \catcode`\@=\ekvc@tmp %% %% %% End of file `expkv-cs.tex'.