%++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++%
% %
% This is file 'pgfkeyx.sty', version 0.0.1, April 2012. %
% %
% This package and accompanying files may be distributed and/or %
% modified under the conditions of the LaTeX Project Public License, %
% either version 1.3 of this license or any later version. The latest %
% version of this license is in http://www.latex-project.org/lppl.txt %
% and version 1.3 or later is part of all distributions of LaTeX %
% version 2005/12/01 or later. %
% %
% The LPPL maintenance status of this software is 'author-maintained'. %
% %
% This software is provided 'as it is', without warranty of any kind, %
% either expressed or implied, including, but not limited to, the %
% implied warranties of merchantability and fitness for a particular %
% purpose. %
% %
% Copyright (c) 2012 Ahmed Musa (amusa22@gmail.com). %
% %
%++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++%
\begingroup
\catcode064 11 % @
\catcode123 01 % {
\catcode125 02 % }
\catcode044 12 % ,
\def\reserved@a{\endgroup
\def\do##1,{%
\ifx##1\do\else
\catcode##1\string=\the\catcode##1 %
\expandafter\do
\fi
}%
\edef\pgfkeys@restorecodes{\do035,064,123,125,061,059,\do,}%
}
\reserved@a
\catcode035 06 % #
\catcode064 11 % @
\catcode123 01 % {
\catcode125 02 % }
\catcode061 12 % =
\catcode044 12 % ,
\def\do#1=#2,{%
\ifx#1\do\else
\edef\pgfkeys@restorecodes{%
\pgfkeys@restorecodes
\catcode#1=\the\catcode#1 %
}%
\catcode#1=#2\relax
\expandafter\do
\fi
}
\do 032=10,033=12,036=03,038=04,040=12,041=12,042=12,043=12,%
059=12,045=12,047=12,058=12,063=12,091=12,093=12,126=13,\do=,%
\NeedsTeXFormat{LaTeX2e}[2011/06/27]
\ProvidesPackage{pgfkeyx}[2012/04/13 v0.0.1 Patch for pgfkeys (AM)]
\begingroup\expandafter\endgroup\expandafter
\ifx\csname ver@pgfkeys.sty\endcsname\@undefined
\PackageError{pgfkeyx}{'pgfkeys' package not loaded}
{This package requires 'pgfkeys' package to be loaded first.}%
\expandafter\endinput
\fi
\newif\ifpgfkeys@tempst
\newif\ifpgfkeysloopbreak
\newif\ifpgfkeys@preservebrace % preserve outer braces in key values?
\newif\ifpgfkeys@in
\newif\ifpgfkeys@tracingkeys % include tracing features in the future.
\long\def\pgfkeys@iofi#1{#1}
\long\def\pgfkeys@iofii#1#2{#1}
\long\def\pgfkeys@iiofii#1#2{#2}
\long\protected\def\pgfkeys@ifnextchar@a#1#2#3{%
\let\reserved@d=#1\def\reserved@a{#2}\def\reserved@b{#3}%
\futurelet\pgfkeys@next\pgfkeys@ifnextchar@c
}
\lowercase{\lowercase{\let\pgfkeys@sptoken= } }
\lowercase{\def\pgfkeys@ifnextchar@b} %
{\futurelet\pgfkeys@next\pgfkeys@ifnextchar@c}
\def\pgfkeys@ifnextchar@c{%
\ifx\pgfkeys@next\pgfkeys@sptoken
\let\reserved@c\pgfkeys@ifnextchar@b
\else
\ifx\pgfkeys@next\reserved@d
\let\reserved@c\reserved@a
\else
\let\reserved@c\reserved@b
\fi
\fi
\reserved@c
}
\long\protected\def\ifpgfkeysnextchar#1#2#3{%
\pgfkeys@ifnextchar@a\bgroup
{\pgfkeys@ifnextchar@a{#1}{#2}{#3}}%
{\pgfkeys@ifnextchar{#1}{#2}{#3}}%
}
\long\def\pgfkeys@ifnextchar#1#2#3#4{%
\if\string#1\string#4%
\expandafter\pgfkeys@iofii
\else
\expandafter\pgfkeys@iiofii
\fi
{#2}{#3}#4%
}
\long\protected\def\pgfkeys@starorlong#1{%
\ifpgfkeysstar{\let\l@ngrel@x\relax#1}{\let\l@ngrel@x\long#1}%
}
\long\protected\def\pgfkeys@testopt#1#2{\ifpgfkeysnextchar[{#1}{#1[{#2}]}}
\long\protected\def\ifpgfkeysstar#1{\ifpgfkeysnextchar*{\pgfkeys@iofii{#1}}}
\def\pgfkeys@defcmd#1#2#3{%
\ifdefined#3%
\ifx#3\relax\else
\pgfkeys@error{Command '\string#3' already exists}%
\fi
\fi
\l@ngrel@x
\ifcat$\detokenize{#2}$\else
\ifx#2p\expandafter\expandafter\expandafter\protected\fi
\fi
\csname#1def\endcsname#3%
}
\protected\def\pgfkeysrobustdef{\pgfkeys@starorlong{\pgfkeys@defcmd{}{p}}}
\pgfkeysrobustdef*\pgfkeysrobustgdef{\pgfkeys@starorlong{\pgfkeys@defcmd{g}{p}}}
\pgfkeysrobustdef*\pgfkeysnewdef{\pgfkeys@starorlong{\pgfkeys@defcmd{}{}}}
\pgfkeysrobustdef*\pgfkeysnewedef{\pgfkeys@starorlong{\pgfkeys@defcmd{e}{}}}
\pgfkeysrobustdef*\pgfkeysnewgdef{\pgfkeys@starorlong{\pgfkeys@defcmd{g}{}}}
\pgfkeysrobustdef*\pgfkeysrobustredef{\pgfkeys@starorlong{\pgfkeys@redefcmd{}{p}}}
\pgfkeysrobustdef*\pgfkeysnewredef{\pgfkeys@starorlong{\pgfkeys@redefcmd{}{}}}
\pgfkeysrobustdef*\pgfkeys@redefcmd#1#2#3{%
\ifdefined#3%
\ifpgfkeys@tracingkeys
\immediate\write\m@ne{Command '\string#3' redefined}%
\fi
\fi
\l@ngrel@x
\ifcat$\detokenize{#2}$\else
\ifx#2p\expandafter\expandafter\expandafter\protected\fi
\fi
\csname#1def\endcsname#3%
}
\pgfkeysrobustdef\pgfkeys@testst#1{%
\ifpgfkeysstar{\pgfkeys@tempsttrue#1}{\pgfkeys@tempstfalse#1}%
}
\pgfkeysrobustdef\pgfkeys@testcl#1{%
\ifpgfkeysnextchar!{\pgfkeys@cltrue#1}{\pgfkeys@clfalse#1}%
}
\pgfkeysrobustdef\pgfkeys@testpl#1{%
\ifpgfkeysnextchar+{\pgfkeys@pltrue#1}{\pgfkeys@plfalse#1}%
}
% \pgfkeysnewlet shouldn't grab second argument!
\pgfkeysrobustdef*\pgfkeysnewlet#1{%
\ifdefined#1%
\pgfkeys@error{Command '\string#1' already exists}%
\expandafter\pgfkeys@gobble
\else
\expandafter\pgfkeys@iofi
\fi
{\let#1 }%
}
\pgfkeysnewlet\pgfkeys@nil\relax
\pgfkeysnewdef\pgfkeys@cmdeq{\pgfkeys@gobble\pgfkeys@cmdeq}
\pgfkeysnewdef\ifpgfkeyscmdeq#1#2{%
\ifx#1#2\pgfkeys@cmdeq\expandafter\pgfkeys@iofii\else
\expandafter\pgfkeys@iiofii\fi
}
\pgfkeysnewdef\pgfkeys@gobble#1{}
\pgfkeysnewdef*\pgfkeys@space{ }
\edef\pgfkeys@backslashchar{\expandafter\pgfkeys@gobble\string\\}
\pgfkeysnewdef\pgfkeys@gobbletwo#1#2{}
\pgfkeysnewdef*\pgfkeys@stripprefix#1>{}
\pgfkeysnewdef\pgfkeys@car#1#2\car@nil{#1}
\lowercase{\pgfkeysnewdef*\pgfkeys@gobblespace} {}
\pgfkeysnewdef\pgfkeysswap#1#2{#2#1}
\pgfkeysnewdef\pgfkeysswapfirstbraced#1#2{#2{#1}}
\pgfkeysnewdef\pgfkeysexpandnext#1#2{%
\expandafter\pgfkeysswap\expandafter{#2}{#1}%
}
\pgfkeysnewdef\pgfkeysexpandbracenext#1#2{%
\expandafter\pgfkeysswap\expandafter{\expandafter{#2}}{#1}%
}
\pgfkeysrobustdef*\pgfkeyscsdef#1{\expandafter\def\csname#1\endcsname}
\pgfkeysrobustdef*\pgfkeyscsedef#1{\expandafter\edef\csname#1\endcsname}
\pgfkeysrobustdef*\pgfkeysnoexpandcs#1{%
\unexpanded\expandafter{\csname#1\endcsname}%
}
\pgfkeysrobustdef*\pgfkeysexpandcsonce#1{%
\unexpanded\expandafter\expandafter\expandafter{\csname#1\endcsname}%
}
\pgfkeysrobustdef\pgfkeysexpanded#1{\begingroup\edef\x{\endgroup#1}\x}
\pgfkeysrobustdef\pgfkeysexpandarg#1#2{%
\begingroup\toks@{#1}%
\pgfkeysexpanded{\endgroup\the\toks@{#2}}%
}
\pgfkeysrobustdef\pgfkeysexpandargonce#1#2{%
\begingroup
\toks@{#1}\toks1\expandafter{#2}%
\pgfkeysexpanded{\endgroup\the\toks@{\the\toks1}}%
}
\pgfkeysrobustdef\pgfkeysexpandsecond#1#2{%
\begingroup\toks@{#1}%
\pgfkeysexpanded{\endgroup\the\toks@#2}%
}
\pgfkeysrobustdef\pgfkeysexpandsecondonce#1#2{%
\begingroup
\toks@{#1}\toks1\expandafter{#2}%
\pgfkeysexpanded{\endgroup\the\toks@\the\toks1}%
}
\pgfkeysnewdef*\ifpgfkeysswitch#1{%
\ifpgfkeysblank{#1}{%
\pgfkeys@iiofii
}{%
\expandafter\pgfkeys@ifswitch\romannumeral-`\q#1\pgfkeys@nil{%
\if#1\expandafter\pgfkeys@iofii\else\expandafter\pgfkeys@iiofii\fi
}{%
\pgfkeys@error{Invalid switch '#1'}%
}%
}%
}
\pgfkeysnewdef*\pgfkeys@ifswitch#1#2\pgfkeys@nil{%
\ifpgfkeysblank{#2}\pgfkeys@iiofii\pgfkeys@iofii
}
\pgfkeysnewdef\ifpgfkeyscond#1\fi{%
#1\relax\expandafter\pgfkeys@iofii\else
\expandafter\pgfkeys@iiofii\fi
}
\pgfkeysnewdef*\ifpgfkeysnum#1#{\ifpgfkeyscond\ifnum#1\fi}
\pgfkeysrobustdef*\pgfkeys@in#1#2{%
\long\def\in@@##1#1##2\in@@{%
\edef\in@@{\unexpanded{##2}}%
\ifx\in@@\pgfkeys@empty\pgfkeys@infalse\else\pgfkeys@intrue\fi
}%
\in@@#2{\in@@}#1\in@@
}
\pgfkeysrobustdef*\ifpgfkeysin#1#2{%
\pgfkeys@in{#1}{#2}%
\csname pgfkeys@\ifpgfkeys@in iofii\else iiofii\fi\endcsname
}
\pgfkeysrobustdef*\ifpgfkeysnotin#1#2{%
\ifpgfkeysin{#1}{#2}\pgfkeys@iiofii\pgfkeys@iofii
}
\pgfkeysrobustdef*\ifpgfkeysxin#1#2{%
\pgfkeys@expandtwoargs\ifpgfkeysin{#1}{#2}%
}
\pgfkeysrobustdef*\pgfkeys@expandtwoargs#1#2#3{%
% #1 might be a token list:
\begingroup\toks@{#1}%
\edef\x{\endgroup\the\toks@{#2}{#3}}\x
}
\pgfkeysnewdef*\ifpgfkeysdef#1{%
\ifpgfkeysblank{#1}\pgfkeys@iiofii{%
\ifx#1\@undefined
\expandafter\pgfkeys@iiofii
\else
\ifx#1\relax
\expandafter\expandafter\expandafter\pgfkeys@iiofii
\else
\expandafter\expandafter\expandafter\pgfkeys@iofii
\fi
\fi
}%
}
\pgfkeysnewdef*\ifpgfkeyscsdef#1{%
\ifpgfkeysblank{#1}{%
\expandafter\pgfkeys@iiofii\pgfkeys@gobble
}{%
\ifcsname#1\endcsname
\expandafter\pgfkeys@iofi
\else
\expandafter\expandafter\expandafter
\pgfkeys@iiofii\expandafter\pgfkeys@gobble
\fi
}{%
\expandafter\ifpgfkeysdef\csname#1\endcsname
}%
}
\pgfkeysnewdef*\ifpgfkeyskeydef#1{\ifpgfkeyscsdef{pgfk@#1}}
\pgfkeysnewredef*\pgfkeysifdefined#1{%
\pgfkeys@ifcsname pgfk@#1\endcsname
\expandafter\pgfkeys@iofii
\else
\expandafter\pgfkeys@iiofii
\fi
}
% If you don't want to have \detokenize, here is rather lengthy way for
% \ifnull. Note that \ifnull defers from \ifblank:
\pgfkeysnewdef\ifpgfkeysnull#1#2#3{%
\romannumeral\iffalse{\fi\expandafter\pgfkeys@iiofii\expandafter
{\expandafter{\string#1}\expandafter\pgfkeys@iiofii\string}%
\expandafter\pgfkeys@iofii\expandafter{\iffalse}\fi0 #3}{0 #2}%
}
%\pgfkeysnewdef\ifpgfkeysblank#1{%
% \expandafter\ifpgfkeysnull\expandafter{\pgfkeys@gobble#1.}%
%}
\pgfkeysnewdef\ifpgfkeysblank#1{%
\ifcat$\detokenize\expandafter{\pgfkeys@gobble#1.}$%
\expandafter\pgfkeys@iofii\else\expandafter\pgfkeys@iiofii\fi
}
\pgfkeysnewdef*\ifpgfkeysbool#1{%
\ifpgfkeysblank{#1}{%
\pgfkeys@iiofii
}{%
\ifpgfkeyscsdef{if#1}{%
\csname pgfkeys@i\csname if#1\endcsname ofii\else iofii\fi\endcsname
}{%
\pgfkeys@error{Undefined boolean '#1'}%
}%
}%
}
\pgfkeysrobustdef*\pgfkeysaftergroupdef#1\endgroup{%
\edef\x{\endgroup\edef\noexpand#1{\noexpand\unexpanded
{\unexpanded\expandafter{#1}}}}\x
}
\ifpgfkeysdef\pdfstrcmp{%
\let\pgfkeys@strcmp\pdfstrcmp
}{%
% Is it true that tikz doesn't load any external packages? If yes,
% then we've to find another way around the need for 'pdftexcmds':
\RequirePackage{pdftexcmds}%
\ifpgfkeysdef\pdf@strcmp{%
\let\pgfkeys@strcmp\pdf@strcmp
}{%
\pgfkeys@error{Neither '\string\pdfstrcmp' nor
'\string\pdf@strcmp' could be found}%
}%
}
\pgfkeysnewdef\ifpgfkeysstrcmp#1#2{%
\csname pgfkeys@i\ifnum\pgfkeys@strcmp{\detokenize{#1}}%
{\detokenize{#2}}=0ofii\else iofii\fi\endcsname
}
\pgfkeysnewdef\ifpgfkeysxstrcmp#1#2{%
\csname pgfkeys@i\ifnum\pgfkeys@strcmp{#1}{#2}=0
ofii\else iofii\fi\endcsname
}
\pgfkeysnewdef\ifpgfkeysbraced#1{%
\ifpgfkeysblank{#1}\pgfkeys@iiofii{%
\ifpgfkeysxstrcmp{\detokenize\expandafter{\pgfkeys@gobble#1}}{}{%
\ifpgfkeysxstrcmp{\expandafter\pgfkeys@car\detokenize{#1}\car@nil}
{\pgfkeys@leftbracechar}\pgfkeys@iofii\pgfkeys@iiofii
}{%
\pgfkeys@iiofii
}%
}%
}
\pgfkeysnewdef\ifpgfkeysleadspace#1#2#3{%
\romannumeral\csname
pgfkeys@i\ifpgfkeysnull{#1}{iofii}{\iffalse{\fi\pgfkeys@ifleadspace.#1 }}%
\endcsname{0 #2}{0 #3}%
}
\pgfkeysnewdef\pgfkeys@ifleadspace#1 {% don't shift!
\expandafter\ifpgfkeysnull\expandafter{\pgfkeys@gobble#1}{ofii}{iofii}%
\expandafter\pgfkeys@gobble\expandafter{\iffalse}\fi
}
\pgfkeysrobustdef*\pgfkeys@sanitizemacro#1{%
\edef#1{\expandafter\pgfkeys@stripprefix\meaning#1}%
}
\begingroup
\catcode`\&=7
\pgfkeysnewgdef\pgfkeystrimspace#1{\pgfkeys@trimspace@a.#1& &}
\pgfkeysnewgdef\pgfkeys@trimspace@a#1 &{\pgfkeys@trimspace@b#1&}
\pgfkeysnewgdef\pgfkeys@trimspace@b#1{%
\unexpanded\expandafter{%
\romannumeral0%
\expandafter\ifpgfkeysleadspace\expandafter{\pgfkeys@gobble#1}{%
\pgfkeys@gobble#1%
}{%
\expandafter\space\pgfkeys@gobble#1%
}%
}%
}
\endgroup
\pgfkeysrobustdef\pgfkeysdespace#1#2{\edef#2{\pgfkeystrimspace{#1}}}
\pgfkeysrobustdef*\pgfkeysdespacecontent#1{%
\edef#1{\expandafter\pgfkeystrimspace\expandafter{#1}}%
}
\pgfkeysnewdef*\pgfkeysgobblescape#1{%
\ifpgfkeysblank{#1}{}{%
\ifnum\escapechar>255
\string#1%
\else
\ifnum\escapechar<0
\string#1%
\else
\ifnum\escapechar=32
\expandafter\pgfkeys@gobblespace\string#1%
\else
\expandafter\pgfkeys@gobble\string#1%
\fi
\fi
\fi
}%
}
\pgfkeysnewdef*\ifpgfkeysescaped#1{%
\ifnum\escapechar>255
\expandafter\pgfkeys@iiofii
\else
\ifnum\escapechar<0
\expandafter\expandafter\expandafter\pgfkeys@iiofii
\else
\ifnum\escapechar=32
\expandafter\expandafter\expandafter\expandafter
\expandafter\expandafter\expandafter\pgfkeys@iiofii
\else
\csname pgfkeys@i\if\expandafter\pgfkeys@car\string#1x\@nil
\pgfkeys@backslashchar ofii\else iofii\fi
\expandafter\expandafter\expandafter\expandafter
\expandafter\expandafter\expandafter
\endcsname
\fi
\fi
\fi
}
\pgfkeysnewdef\pgfkeys@alloftwo#1#2{#1#2}
\pgfkeysnewdef\ifpgfkeysntype#1{% Bruno Le Floch
\ifpgfkeysxstrcmp
{\detokenize\expandafter{\pgfkeys@alloftwo#1{}{}}}%
{\detokenize{#1{}}}%
}
% Expandable test option. Use with caution: it can't be used to test
% for explicit braces!
% Examples:
% {
% \catcode`\ =13
% \gdef\activespace{ }
% }
% \def\cmd[#1]{}
% \def\x{\pgfkeys@xtestopt\cmd{noarg}}
% \x {xy}
% \x [arg] {xy}
% \expandafter\x \activespace {xy}
% \expandafter\x \activespace [arg] {xy}
\pgfkeysnewdef*\pgfkeys@xtestopt#1#2#3{%
\ifpgfkeysstrcmp{ }{#3}{%
\pgfkeys@xtestopt#1{#2}%
}{%
\ifpgfkeysstrcmp{#3}{[}
{#1[}{\ifpgfkeysntype{#3}{#1[#2]#3}{#1[#2]{#3}}}%
}%
}
% This can't be used to test for the presence of explicit left or right brace.
\pgfkeysnewdef*\ifpgfkeysxifnextchar#1#2#3#4{%
\ifpgfkeysstrcmp{ }{#4}{%
\ifpgfkeysxifnextchar#1{#2}{#3}%
}{%
\ifpgfkeysstrcmp{#4}{#1}{#2}{\ifpgfkeysntype{#4}{#3#4}{#3{#4}}}%
}%
}
% \pgfkeysremoveouterbraces[<no of braces to remove>]{<token>}
% To make the test expandable, we need to use expandable testopt.
\pgfkeysnewdef*\pgfkeysremoveouterbraces{%
\pgfkeys@xtestopt\pgfkeys@removeouterbraces{1}%
}
\pgfkeysnewdef*\pgfkeys@removeouterbraces[#1]{%
\romannumeral\expandafter\pgfkeys@r@moveouterbraces\expandafter{%
\romannumeral\ifpgfkeysxstrcmp{\pgfkeystrimspace{#1}}{all}{1000}{#1}000%
}%
}
\pgfkeysnewdef\pgfkeys@r@moveouterbraces#1#2{%
\ifpgfkeysblank{#1}{0 \unexpanded{#2}}{%
\expandafter\ifpgfkeysblank\expandafter{\pgfkeys@gobble#2}{%
\ifpgfkeysbraced{#2}{%
\expandafter\pgfkeysswapfirstbraced\expandafter{\pgfkeys@iofi#2}%
{\expandafter\pgfkeys@r@moveouterbraces\expandafter{\pgfkeys@gobble#1}}%
}{0 \unexpanded{#2}}%
}{0 \unexpanded{#2}}%
}%
}
\pgfkeysrobustdef*\pgfkeyscsvnormalize{\pgfkeys@testopt\pgfkeys@csvnormalize,}
\pgfkeysrobustdef\pgfkeys@csvnormalize[#1]#2{%
\begingroup
\pgfkeysdeclarenormalizer{#1}%
\@tempswafalse
\pgfkeys@normalizelist{#2}%
\expandafter\endgroup\expandafter\pgfkeys@temptoks\expandafter
{\the\pgfkeys@temptoks}%
}
\pgfkeysrobustdef\pgfkeyskvnormalize#1{%
\begingroup
\pgfkeysdeclarenormalizer{,}%
\@tempswatrue
\pgfkeys@normalizelist{#1^?^}%
\def\reserved@a##1^?^##2\pgfkeys@nil{%
\pgfkeys@parserequalerr##1##2,=\pgfkeys@nil
\pgfkeys@temptoks{##1##2}%
}%
\expandafter\reserved@a\the\pgfkeys@temptoks\pgfkeys@nil
\expandafter\endgroup\expandafter\pgfkeys@temptoks\expandafter
{\the\pgfkeys@temptoks}%
}
\pgfkeysrobustdef\pgfkeysslashnormalize#1{%
\pgfkeys@csvnormalize[/]{x#1}%
\pgfkeys@temptoks\expandafter\expandafter\expandafter
\expandafter\expandafter\expandafter\expandafter
{\expandafter\expandafter\expandafter\noexpand\expandafter
\pgfkeys@gobble\the\pgfkeys@temptoks}%
}
% A general list normalizer, for arbitrary list parsers:
\begingroup
\catcode`\~=13
\catcode`\!=13
\pgfkeysrobustgdef*\pgfkeysdeclarenormalizer#1{%
\begingroup
\lccode`\~=`#1%
\lccode`\!=`\=%
\lowercase{\endgroup
\def\pgfkeys@normalizelist##1{%
\pgfkeys@temptoks\expandafter{\romannumeral-`\q
\pgfkeys@activeparser#1##1#1~\pgfkeys@nil}%
}%
\def\pgfkeys@activeparser##1~##2\pgfkeys@nil{%
\ifpgfkeysblank{##2}{%
\ifpgfkeysbool{@tempswa}{%
\pgfkeys@activeequal##1!\pgfkeys@nil
}{%
\pgfkeys@spaceparser##1 #1\pgfkeys@nil
}%
}{%
\pgfkeys@activeparser##1#1##2\pgfkeys@nil
}%
}%
}%
\begingroup
\uccode`\~=`\=%
\uppercase{\endgroup
\def\pgfkeys@activeequal##1~##2\pgfkeys@nil{%
\ifpgfkeysblank{##2}{%
\pgfkeys@spaceparser##1 #1\pgfkeys@nil
}{%
\pgfkeys@activeequal##1=##2\pgfkeys@nil
}%
}%
}%
\def\pgfkeys@spaceparser##1 #1##2\pgfkeys@nil{%
\ifpgfkeysblank{##2}{%
\pgfkeys@parserspace##1#1 \pgfkeys@nil
}{%
\pgfkeys@spaceparser##1#1##2\pgfkeys@nil
}%
}%
\def\pgfkeys@parserspace##1#1 ##2\pgfkeys@nil{%
\ifpgfkeysblank{##2}{%
\ifpgfkeysbool{@tempswa}{%
\pgfkeys@spaceequal##1 =\pgfkeys@nil
}{%
\pgfkeys@doubleparser##1#1#1\pgfkeys@nil
}%
}{%
\pgfkeys@parserspace##1#1##2\pgfkeys@nil
}%
}%
\def\pgfkeys@spaceequal##1 =##2\pgfkeys@nil{%
\ifpgfkeysblank{##2}{%
\pgfkeys@equalspace##1= \pgfkeys@nil
}{%
\pgfkeys@spaceequal##1=##2\pgfkeys@nil
}%
}%
\def\pgfkeys@equalspace##1= ##2\pgfkeys@nil{%
\ifpgfkeysblank{##2}{%
\pgfkeys@doubleparser##1#1#1\pgfkeys@nil
}{%
\pgfkeys@equalspace##1=##2\pgfkeys@nil
}%
}%
\def\pgfkeys@doubleparser##1#1#1##2\pgfkeys@nil{%
\ifpgfkeysblank{##2}{%
\ifpgfkeysbool{@tempswa}{%
\pgfkeys@doubleequal##1==\pgfkeys@nil
}{%
\ifpgfkeysblank{##1}{}{%
\pgfkeys@remleadparser##1\pgfkeys@nil
}%
}%
}{%
\pgfkeys@doubleparser##1#1##2\pgfkeys@nil
}%
}%
\def\pgfkeys@doubleequal##1==##2\pgfkeys@nil{%
\ifpgfkeysblank{##2}{%
\ifpgfkeysblank{##1}{}{%
\pgfkeys@remleadparser##1\pgfkeys@nil
}%
}{%
\pgfkeys@doubleequal##1=##2\pgfkeys@nil
}%
}%
\def\pgfkeys@remleadparser#1##1\pgfkeys@nil{%
\expandafter\space\noexpand##1%
}%
\def\pgfkeys@parserequalerr##1#1=##2\pgfkeys@nil{%
\ifpgfkeysblank{##2}{}{%
\pgfkeys@error{There is '#1=' in your key-value list}%
}%
}%
}
\endgroup
% I haven't studied all of pgf/tikz's looping macros, but we may sometimes
% need to break out of the loop prematurely.
% Example:
% \pgfkeysdeclarelistparser\myloop{,}
% \chardef\nr=0
% \myloop{a,b,c}\temp{%
% \edef\nr{\the\numexpr\nr+1}%
% \ifnum\nr=2 \pgfkeysloopbreak\fi % use only a,b
% \edef\y#1{#1\temp}%
% }
\pgfkeysnewlet\pgfkeysloopbreak\pgfkeysloopbreaktrue
\pgfkeysnewdef*\pgfkeys@listparser@nil{\pgfkeys@listparser@nil}
\pgfkeysrobustdef*\pgfkeysdeclarelistparser#1#2{%
\pgfkeysrobustdef#1##1##2##3{%
\pgfkeys@csvnormalize[#2]{##1}%
\edef##2{\the\pgfkeys@temptoks}%
\ifpgfkeyscmdeq##2\pgfkeys@empty{}{%
\pgfkeysexpandnext{%
\csname pgfkeys@listparser@\pgfkeysgobblescape#1\endcsname
##2{##3}%
}##2#2\pgfkeys@listparser@nil#2%
}%
}%
\pgfkeyscsdef{pgfkeys@listparser@\pgfkeysgobblescape#1}##1##2##3#2{%
\pgfkeys@temptoks{##3}%
\edef##1{\the\pgfkeys@temptoks}%
\ifpgfkeyscmdeq##1\pgfkeys@listparser@nil{}{%
##2\relax
\ifpgfkeysloopbreak
% To allow nesting of loop:
\pgfkeysloopbreakfalse
\begingroup
\pgfkeyscsdef{pgfkeys@listparser@\pgfkeysgobblescape#1}%
####1\pgfkeys@listparser@nil#2{%
\endgroup
\pgfkeys@temptoks{####1}%
\edef\pgfkeysremainder{\the\pgfkeys@temptoks}%
}%
\fi
\csname pgfkeys@listparser@\pgfkeysgobblescape#1\endcsname##1{##2}%
}%
}%
% <#1@e> is like #1 but will execute <callback> once when
% <list> is empty:
\expandafter\pgfkeysrobustdef
\csname\pgfkeysgobblescape#1@e\endcsname##1##2##3{%
\pgfkeys@csvnormalize[#2]{##1}%
\begingroup
\toks@{\csname pgfkeys@listparser@\pgfkeysgobblescape#1\endcsname##2{##3}}%
\expandafter\endgroup\the\expandafter\toks@
\the\pgfkeys@temptoks#2\pgfkeys@listparser@nil#2%
}%
}
\pgfkeysdeclarelistparser\pgfkeyscommaloop{,}
% \pgfkeysnewbools[<prefix>]{<boolean list>}
\pgfkeysrobustdef*\pgfkeysnewbools{\pgfkeys@testopt\pgfkeys@newbools{}}
\pgfkeysrobustdef*\pgfkeys@newbools[#1]#2{%
\pgfkeyscommaloop{#2}\pgfkeys@tempa{%
\ifpgfkeyscsdef{if#1\pgfkeys@tempa}{%
\pgfkeysnoexpandcs{if#1\pgfkeys@tempa}%
\pgfkeys@err{Boolean '\the\pgfkeys@temptoks'
already exists}%
}{%
\expandafter\newif\csname if#1\pgfkeys@tempa\endcsname
}%
}%
}
\pgfkeysnewbools[pgfkeys@]{cl,pl}
\pgfkeysrobustdef*\pgfkeys@trimsuffixcomma{%
\begingroup
\def\pgfkeys@tempa{%
\edef\reserved@a{\the\pgfkeys@temptoks}%
\pgfkeys@sanitizemacro\reserved@a
\ifpgfkeysxin{,\pgfkeys@nil}{\reserved@a\pgfkeys@nil}{%
\def\reserved@a####1,\pgfkeys@nil{%
\pgfkeys@temptoks{####1}\pgfkeys@tempa
}%
\expandafter\reserved@a\the\pgfkeys@temptoks\pgfkeys@nil
}{}%
}%
\pgfkeys@tempa
\expandafter\endgroup\expandafter\pgfkeys@temptoks\expandafter
{\the\pgfkeys@temptoks}%
}
\pgfkeysrobustredef\pgfkeys@@set#1#2{%
\let\pgfkeysdefaultpath\pgfkeys@root
\pgfkeys@set@aux{#1}{#2}%
}
% \pgfkeys@set@aux is also needed by \pgfkeys@@qset:
\pgfkeysrobustdef\pgfkeys@set@aux#1#2{%
\pgfkeysslashnormalize{#2}%
\expandafter\pgfkeyskvnormalize\expandafter{\the\pgfkeys@temptoks}%
\pgfkeys@trimsuffixcomma
\expandafter\pgfkeys@parse\the\pgfkeys@temptoks,\pgfkeys@mainstop
\def\pgfkeysdefaultpath{#1}%
}
\pgfkeysrobustredef\pgfkeys@normal#1,{%
\pgfkeys@unpack@a#1=\pgfkeysnovalue=\pgfkeys@stop
\pgfkeys@parse
}
\pgfkeysrobustdef\pgfkeys@unpack@a#1={%
% No need to despace #1: the list was previously normalized.
\edef\pgfkeyscurrentkey{#1}%
\ifpgfkeysbool{pgfkeys@preservebrace}{%
\pgfkeys@unpack@b\do
}{%
\pgfkeys@unpack@b
}%
}
\pgfkeysrobustdef\pgfkeys@unpack@b#1=#2\pgfkeys@stop{%
% No need to despace #1 here.
\ifpgfkeys@preservebrace
\pgfkeys@temptoks\expandafter{\pgfkeys@gobble#1}%
\else
\pgfkeys@temptoks{#1}%
\fi
% This solution is useful but it isn't yet foolproof because of the way
% the original pgfkeys package delimits arguments by \pgfeov.
% Robustifying this stage will require changes to pgfkeys' style of
% argument grabbing.
\edef\pgfkeyscurrentvalue{%
\ifpgfkeys@preservebrace
\expandafter\ifpgfkeysbraced\expandafter{\the\pgfkeys@temptoks}{%
{\the\pgfkeys@temptoks}%
}{%
\the\pgfkeys@temptoks
}%
\else
\the\pgfkeys@temptoks
\fi
}%
% Using LaTeX-style branches can help offset problems often found with
% parsing unbalanced conditionals.
\ifpgfkeyscmdeq\pgfkeyscurrentkey\pgfkeys@empty{%
% OK, just skip
}{%
\pgfkeys@add@path@as@needed
\ifpgfkeyscmdeq\pgfkeyscurrentvalue\pgfkeysnovalue@text{%
\pgfkeysifdefined{\pgfkeyscurrentkey/.@def}{%
\pgfkeysgetvalue{\pgfkeyscurrentkey/.@def}\pgfkeyscurrentvalue
}{%
% Proposal:
% If there is no user value and no default, we should check if
% their is an handler for the name of this key or if value is
% forbidden. If nothing is found, we should alert the user.
% To reduce the cost of checking, this should be based on user
% preference.
}%
}{}%
\ifpgfkeyscmdeq\pgfkeyscurrentvalue\pgfkeysvaluerequired{%
\pgfkeysvalueof{/errors/value required/.@cmd}\pgfkeyscurrentkey
\pgfkeyscurrentvalue\pgfeov
}{%
\pgfkeys@case@one
}%
}%
}
\pgfkeysrobustredef\pgfkeysalso#1{%
% First strip all outer brace of #1; otherwise parsing may fail.
\edef\pgfkeys@tempa{\pgfkeysremoveouterbraces[all]{#1}}%
\expandafter\pgfkeysslashnormalize\expandafter{\pgfkeys@tempa}%
\expandafter\pgfkeyskvnormalize\expandafter{\the\pgfkeys@temptoks}%
\pgfkeys@trimsuffixcomma
\expandafter\pgfkeys@parse\the\pgfkeys@temptoks,\pgfkeys@mainstop
}
% No change to the original \pgfqkeys, but \pgfkeys@@qset requires patching:
\pgfkeysrobustredef*\pgfqkeys{%
\expandafter\pgfkeys@@qset\expandafter{\pgfkeysdefaultpath}%
}
\pgfkeysrobustredef\pgfkeys@@qset#1#2#3{%
\pgfkeysexpandarg\pgfkeysslashnormalize{#2}%
\expandafter\pgfkeyskvnormalize\expandafter{\the\pgfkeys@temptoks}%
\edef\pgfkeysdefaultpath{\the\pgfkeys@temptoks/}%
\pgfkeys@set@aux{#1}{#3}%
}
% \pgfqkeysalso also needs to call the list normalizer:
\pgfkeysrobustredef\pgfqkeysalso#1#2{%
\pgfkeysexpandarg\pgfkeysslashnormalize{#1}%
\expandafter\pgfkeyskvnormalize\expandafter{\the\pgfkeys@temptoks}%
\edef\pgfkeysdefaultpath{\the\pgfkeys@temptoks/}%
\pgfkeysalso{#2}%
}
\pgfkeysnewdef*\pgfkeys@generateparameters#1#2{%
\ifnum#1<\numexpr#2+1\relax ####\number#1%
\expandafter\pgfkeys@generateparameters
\expandafter{\number\numexpr#1+1\expandafter}%
\expandafter{\number#2\expandafter}%
\fi
}
\pgfkeysnewredef\pgfkeysdefnargs#1#2#3{\pgfkeysdefnargs@{#1}{#2}{#3}{\def}}
\pgfkeysnewredef\pgfkeysedefnargs#1#2#3{\pgfkeysdefnargs@{#1}{#2}{#3}{\edef}}
\pgfkeysnewredef\pgfkeysdefnargs@#1#2#3#4{%
\ifnum#2>9\relax
\pgfkeys@error{\string\pgfkeysdefnargs:
I expected #2<=9 arguments but I saw #2}%
\else
\pgfkeyscsedef{pgfk@#1/.@args}{\pgfkeys@generateparameters{1}{#2}}%
\fi
\pgfkeysgetvalue{#1/.@args}\pgfkeys@tempargs
\def\pgfkeys@temp{\expandafter#4\csname pgfk@#1/.@@body\endcsname}%
\expandafter\pgfkeys@temp\pgfkeys@tempargs{#3}%
\edef\pgfkeys@tempargs{\noexpand\pgfkeysvalueof{#1/.@@body}}%
\def\pgfkeys@temp{\pgfkeysdef{#1}}%
\expandafter\pgfkeys@temp\expandafter{\pgfkeys@tempargs##1}%
\pgfkeyssetvalue{#1/.@body}{#3}%
}
\pgfkeys{%
% Use default values to set the key. If the key has no default or
% if value is required, an error will be raised:
/handlers/.restore default/.code=\pgfkeys{\pgfkeyscurrentpath}%
}
\pgfkeys{%
/handlers/.restore key defaults/.code=\pgfkeysalso{#1}%
}
\pgfkeys{/handlers/.normal code/.code=#1}
% New handlers for boolean keys:
% Syntaxes:
% <key>.is if with no callback=<default>
% <key>.is if with 1 callback={<default>}{<callback>}
% <key>.is if with 2 callbacks={<default>}{<callback-1>}{<callback-2>}
% In this way, I know I am dealing with <key>, and not with another
% (auxiliary) boolean as in conventional '.is if' handler.
\pgfkeys{%
/handlers/.is if with no callback/.code={%
\pgfkeys@boolean@handler{#1}{##1}{}{}%
},
/handlers/.is if with 1 callback/.code 2 args={%
\pgfkeys@boolean@handler{#1}{##1}{#2}{}%
},
/handlers/.is if with one callback/.style 2 args={%
\pgfkeyscurrentpath/.is if with 1 callback={#1}{#2}%
},
/handlers/.is if with 2 callbacks/.code n args={3}{%
\pgfkeys@boolean@handler{#1}{##1}{#2}{#3}%
}
}
\pgfkeysrobustredef*\pgfkeys@savresname#1{%
\ifcase#1\relax
% The idea is, for a given key '/my path/key/.code', to set
% path := '/my path'
% name := 'key/.code'
% key := '/my path/key/.code'
\let\pgfkeyssavedkey=\pgfkeyscurrentkey
\let\pgfkeyssavedname=\pgfkeyscurrentname
\edef\pgfkeyssavedpath{\pgfkeyscurrentpath}%
\edef\pgfkeyscurrentkey{\pgfkeyscurrentpath}%
\pgfkeys@split@path
\let\pgfkeyssavednameb\pgfkeyscurrentname
\or
% Recover:
\let\pgfkeyscurrentkey=\pgfkeyssavedkey
\let\pgfkeyscurrentname=\pgfkeyssavedname
% Don't do \edef\pgfkeyscurrentpath{\pgfkeyssavedpath} here, since
% \pgfkeyscurrentpath is determined by \pgfkeys@pathtoks.
\else
\pgfkeys@error{Number '#1' out of range [0,1]}%
\fi
}
\pgfkeysrobustredef\pgfkeys@boolean@handler#1#2#3#4{%
\pgfkeys@savresname{0}%
% Let's not redefine 'if\pgfkeyscurrentname' is it already exists,
% so that we don't change its current state:
\ifpgfkeyscsdef{if\pgfkeyscurrentname}{}{%
% Can use \outer-defined \newif:
\csname newif\expandafter\endcsname
\csname if\pgfkeyscurrentname\endcsname
}%
\begingroup
\def\reserved@a{\pgfkeyssavedpath/.code=}%
\expandafter\expandafter\expandafter\endgroup\expandafter\expandafter
\expandafter\pgfkeysalso\expandafter\expandafter\expandafter{%
\expandafter\reserved@a\expandafter\pgfkeys@boolean@handler@b
\expandafter{\pgfkeyssavednameb}{#2}{#3}{#4},
\pgfkeyssavedpath/.default=#1%
}%
\pgfkeys@savresname{1}%
}
\pgfkeysrobustredef\pgfkeys@boolean@handler@b#1#2#3#4{%
\ifpgfkeysxin{,\pgfkeystrimspace{#2},}{,true,false,}{%
\ifpgfkeyscsdef{#1#2}{%
\csname#1#2\endcsname
\ifpgfkeysblank{#3#4}{}{\ifpgfkeysbool{#1}{#3}{#4}}%
}{%
\pgfkeysvalueof{/errors/boolean expected/.@cmd}%
\pgfkeyscurrentkey{#2}\pgfeov
}%
}{%
\pgfkeysvalueof{/errors/boolean expected/.@cmd}%
\pgfkeyscurrentkey{#2}\pgfeov
}%
}
\pgfkeys@restorecodes
\endinput
%% End of file 'pgfkeyx.sty' %%