On 25-2-2012 17:52, Wolfgang Schuster wrote:
Am 25.02.2012 um 12:02 schrieb Jaroslav Hajtmar:
Thanx Wolfgang
for reply, but it does not work still.
I was in a hurry and had no time to test it but the following is tested and
works.
\def\strc_lists_write_between[#tag][#settings]#command% we can overload location
{\begingroup
\edef\currentlist{#tag}%
\doifelse{\namedlistparameter{#tag}\c!state}\v!start
{\strc_lists_inject_yes[#settings,\c!type=\s!command][command={#command}]}
{\endgroup}}
\def\strc_lists_write_to_yes[#settings]#first#second%
{\strc_lists_inject_yes[\c!location=\v!here,#settings,\c!type=\s!simple][first={#first},second={#second}]}
@Hans The “\s!” prefix for first, second and command can’t be used because
otherwise the keys end up as “\\s!first ” in Lua table index.
ok, but another one needed fixing as well, so now we have
\unexpanded\def\writebetweenlist{\dodoubleempty \strc_lists_write_between}
\unexpanded\def\writedatatolist {\dotripleargument\strc_lists_write_data_to}
\unexpanded\def\writetolist {\dodoubleempty \strc_lists_write_to}
\def\strc_lists_write_between[#tag]%
{\begingroup
\edef\currentlist{#tag}%
\doifelse{\namedlistparameter{#tag}\c!state}\v!start
\strc_lists_write_between_yes
\strc_lists_write_between_nop}
\def\strc_lists_write_between_yes[#settings]#command%
{\strc_lists_inject_yes[#settings,\c!type=\s!command][command={#command}]}
\def\strc_lists_write_between_nop[#settings]#command%
{\endgroup}
\def\strc_lists_write_data_to[#tag]%
{\begingroup
\edef\currentlist{#tag}%
\doifelse{\namedlistparameter{#tag}\c!state}\v!start
\strc_lists_write_data_to_yes
\strc_lists_write_data_to_nop}
\def\strc_lists_write_data_to_yes[#settings][#userdata]%
{\ifthirdargument % no need to have an extra step ... used seldom
\strc_lists_inject_yes[#settings,\c!type=\s!userdata][#userdata]%
\else
\strc_lists_inject_yes[\c!type=\s!userdata][#settings]%
\fi}
\def\strc_lists_write_data_to_nop[#settings][#userdata]%
{\endgroup}
\def\strc_lists_write_to[#tag]%
{\begingroup
\edef\currentlist{#tag}%
\doifelse{\namedlistparameter{#tag}\c!state}\v!start
\strc_lists_write_to_yes
\strc_lists_write_to_nop}
\def\strc_lists_write_to_yes[#settings]#first#second% no \s!first
because we don't expand user settings
{\strc_lists_inject_yes[\c!location=\v!here,#settings,\c!type=\s!simple][first={#first},second={#second}]}
\def\strc_lists_write_to_nop[#settings]#first#second%
{\endgroup}
-----------------------------------------------------------------
Hans Hagen | PRAGMA ADE
Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
tel: 038 477 53 69 | voip: 087 875 68 74 | www.pragma-ade.com
| www.pragma-pod.nl
-----------------------------------------------------------------
___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the
Wiki!
maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context
webpage : http://www.pragma-ade.nl / http://tex.aanhet.net
archive : http://foundry.supelec.fr/projects/contextrev/
wiki : http://contextgarden.net
___________________________________________________________________________________