Hi Hans,
there are two \enabblemode’s missing.
\startxmlsetups xml:setups:typeset
\getvalue{\e!start setuptext}
\tttf
\nohyphens
\veryraggedright
\doglobal\newcounter\currentSETUPargument
\xdef\maximumSETUPargument{\xmlcount{#1}{/arguments/*}}
\bgroup
+ \enablemode[setups-pass-one]
\doif {\xmlatt{#1}{generated}} {yes} {
\ttsl
}
\doifelse {\xmlatt{#1}{type}} {environment} {
\tex{\e!start}
} {
\tex{}
}
\xmlfilter{#1}{/sequence/first()}
\ignorespaces
\egroup
\xmldoif{#1}{/arguments} {
\bgroup
+ \enablemode[setups-pass-one]
\doglobal\newcounter\currentSETUPargument
\ignorespaces
\xmlfilter{#1}{/arguments/text()}
\egroup
}
\doif {\xmlatt{#1}{type}} {environment} {
\bgroup
\enablemode[setups-pass-one]
\hskip.5em\unknown\hskip.5em
\doif {\xmlatt{#1}{generated}} {yes} {
\ttsl
}
\tex{\e!stop}
\xmlfilter{#1}{/sequence/first()}
\ignorespaces
\egroup
}
\endgraf
\xmldoif{#1}{/arguments} {
\bgroup
\enablemode[setups-pass-two]
\doglobal\newcounter\currentSETUPargument
\blank[\v!line]
\switchtobodyfont[small]
\ignorespaces\xmlfilter{#1}{/arguments/text()}\endgraf
\egroup
}
\getvalue{\e!stop setuptext}
\stopxmlsetups
What’s also missing is support for the “generated” and “variant” attributes,
the code below doesn’t work but it shows what is missing.
%\def\showsetupindeed#1%
% {\xmlfilterlist{\loadedsetups}{/interface/command['#1' ==
(@type=='environment' and 'start' or '') .. @name]/command(xml:setups:typeset)}}
\def\showsetupindeed#1%
{\xmlfilterlist{\loadedsetups}{/interface/command['#1' ==
(@type=='environment' and 'start' or '') .. @name .. (@generated=='yes' and '*'
or '') .. (@variant~='' and ':@variant' or '')]/command(xml:setups:typeset)}}
<cd:command name="framedtext"> ->
\showsetups{framedtext}
<cd:command name="framedtext" type="environment"> ->
\showsetups{startframedtext}
<cd:command name="framedtext" generated="yes"> ->
\showsetups{framedtext*}
<cd:command name="framedtext" type="environment" generated="yes"> ->
\showsetups{startframedtext*}
<cd:command name="interlinespace" variant="1"> ->
\showsetups{setupinterlinespace:1}
<cd:command name="typing" type="environment" generated="yes" variant="1"> ->
\showsetups{starttyping*:1}
Wolfgang
_______________________________________________
dev-context mailing list
[email protected]
http://www.ntg.nl/mailman/listinfo/dev-context
