At 21:45 02/06/2004, you wrote:
I'd prefer (at least a variant) that does it based on fontstyle as well:
\unprotect
\definesystemvariable{sx}
\def\definestylecollection {\dotripleargument\dodefinestylecollection}
\def\dodefinestylecollection[#1][#2][#3][#4]% {\unexpanded\setvalue{#1}{\styleinstance[#1]}% \setvalue{\??sx#1:#2:#3}{#4}}
\unexpanded\def\styleinstance[#1]% {\executeifdefined{\??sx#1:\fontstyle:\fontalternative}{\getvalue{\? ?sx#1:\fontstyle:\s!default}}}
\protect \definestylecollection[caps][ss][default][\sc] \definestylecollection[caps][ss][bf][\bc] \definestylecollection[caps][ss][bi][\bc] \definestylecollection[caps][ss][bs][\bc]
% \definestylecollection[mine]
% \definestyleinstance[mine][default][sorry] % \definestyleinstance[mine][tt][bs][ttbs:\rm\sl] % \definestyleinstance[mine][tt][bf][ttbf:\rm\sl] % \definestyleinstance[mine][bf][\sl] % \definestyleinstance[mine][sl][\tt]
% {\bf test \mine test \sl test \mine test \bs oeps \mine oeps {\tt test \mine \bf test}}
\definesystemvariable{sx}\def\definestylecollection
{\dosingleargument\dodefinestylecollection}\def\dodefinestylecollection[#1]%
{\iffirstargument
\unexpanded\setvalue{#1}{\styleinstance[#1]}%
\def\docommand##1%
{\def\dodocommand####1{\letbeundefined{\??sx##1:####1:\commalistelement}}%
\processcommacommand[\alternativelist,\s!default]\dodocommand}%
\processcommacommand[\stylelist,\s!default]\docommand
\fi}\def\definestyleinstance
{\doquadrupleargument\dodefinestyleinstance}\def\dodefinestyleinstance[#1][#2][#3][#4]% [name] [rm|ss|tt|..] [sl|bf|...] [whatever]
{\iffirstargument
\doifundefined{#1}{\definestylecollection[#1]}%
\fi
\iffourthargument
\setvalue{\??sx#1:#2:#3}{#4}%
\else\ifthirdargument
\setvalue{\??sx#1::#2}{#3}%
\else\ifsecondargument
\letvalue{\??sx#1::#2}\empty
\fi\fi\fi}
\unexpanded\def\styleinstance[#1]% will be faster
{%\begingroup\expanded{\infofont[#1:\fontstyle:\fontalternative]}\endgroup
\executeifdefined{\??sx#1:\fontstyle:\fontalternative}%
{\executeifdefined{\??sx#1:\fontstyle:\s!default}%
{\executeifdefined{\??sx#1::\fontalternative}
{\getvalue {\??sx#1::\s!default}}}}}_______________________________________________ ntg-context mailing list [EMAIL PROTECTED] http://www.ntg.nl/mailman/listinfo/ntg-context
