Source Browser ?

1%D \module
2%D   [       file=core-env, % was core-new
3%D        version=1995.01.01, % wrong
4%D          title=\CONTEXT\ Core Macros,
5%D       subtitle=New ones,
6%D         author=Hans Hagen,
7%D           date=\currentdate,
8%D      copyright={PRAGMA ADE \& \CONTEXT\ Development Team}]
9%C
10%C This module is part of the \CONTEXT\ macro||package and is
11%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
12%C details.
13
14\writestatus{loading}{ConTeXt Core Macros / Environments}
15
16\registerctxluafile{core-env}{}
17
18\unprotect
19
20\ifdefined\wildcardsymbol \else \def\wildcardsymbol{*} \fi
21
22%D Modes:
23%D
24%D \starttyping
25%D \enablemode[screen,paper,bound]
26%D
27%D \doifmodeelse {paper}        {this} {that}
28%D \doifmode     {paper,screen} {this}
29%D \doifnotmode  {paper,bound}  {that}
30%D
31%D \startmode [list]
32%D \stopmode
33%D
34%D \startnotmode [list]
35%D \stopnotmode
36%D \stoptyping
37%D
38%D system modes have a * as prefix
39%D
40%D Sometimes, we want to prevent a mode for being set. Think of situations where a
41%D style enables a mode, but an outer level style does not want that. Preventing can
42%D be considered a permanent disabling on forehand.
43
44\let\systemmodeprefix\wildcardsymbol
45
46% we will have \installcorenamespace{mode} but need some hackery at the lua end then
47
48\installcorenamespace{modestack}
49
50\setnewconstant\disabledmode \zerocount
51\setnewconstant\enabledmode  \plusone
52\setnewconstant\preventedmode\plustwo
53
54% fast internal ones
55
56\def\??mode{mode>} % special namespace, also used at lua end
57
58\def\syst_modes_new#1%
59  {\expandafter\newcount\csname\??mode#1\endcsname}
60
61\unexpanded\def\newmode#1% so, no change of already set modes !
62  {\ifcsname\??mode#1\endcsname\else\syst_modes_new{#1}\fi}
63
64\unexpanded\def\setmode#1%
65  {\ifcsname\??mode#1\endcsname\else\syst_modes_new{#1}\fi
66   \lastnamedcs\enabledmode}
67
68\unexpanded\def\resetmode#1%
69  {\ifcsname\??mode#1\endcsname\else\syst_modes_new{#1}\fi
70   \lastnamedcs\disabledmode}
71
72\unexpanded\def\globalsetmode#1%
73  {\ifcsname\??mode#1\endcsname\else\syst_modes_new{#1}\fi
74   \global\lastnamedcs\enabledmode}
75
76\unexpanded\def\globalresetmode#1%
77  {\ifcsname\??mode#1\endcsname\else\syst_modes_new{#1}\fi
78   \global\lastnamedcs\disabledmode}
79
80\unexpanded\def\newsystemmode#1%
81  {\ifcsname\??mode\systemmodeprefix#1\endcsname\else\syst_modes_new{\systemmodeprefix#1}\fi}
82
83\unexpanded\def\setsystemmode#1%
84  {\ifcsname\??mode\systemmodeprefix#1\endcsname\else\syst_modes_new{\systemmodeprefix#1}\fi
85   \lastnamedcs\enabledmode}
86
87\unexpanded\def\resetsystemmode#1%
88  {\ifcsname\??mode\systemmodeprefix#1\endcsname\else\syst_modes_new{\systemmodeprefix#1}\fi
89   \lastnamedcs\disabledmode}
90
91\unexpanded\def\globalsetsystemmode#1%
92  {\ifcsname\??mode\systemmodeprefix#1\endcsname\else\syst_modes_new{\systemmodeprefix#1}\fi
93   \global\lastnamedcs\enabledmode}
94
95\unexpanded\def\globalresetsystemmode#1%
96  {\ifcsname\??mode\systemmodeprefix#1\endcsname\else\syst_modes_new{\systemmodeprefix#1}\fi
97   \global\lastnamedcs\disabledmode}
98
99% \def\dosetsystemmode#1%
100%   {\csname\??mode\systemmodeprefix#1\endcsname\enabledmode}
101%
102% \def\doresetsystemmode#1%
103%   {\csname\??mode\systemmodeprefix#1\endcsname\disabledmode}
104
105% demo: trialtypesetting is a systemmode as well as an if
106
107\pushoverloadmode
108
109\newsystemmode{trialtypesetting}
110
111\expandafter\let\csname\??mode\systemmodeprefix trialtypesetting\endcsname\trialtypesettingstate
112
113\popoverloadmode
114
115\appendtoks
116    \trialtypesettingstate\enabledmode
117    \luacopyinputnodes\plusone
118\to \everysettrialtypesetting
119
120\appendtoks
121    \trialtypesettingstate\disabledmode
122    \luacopyinputnodes\zerocount
123\to \everyresettrialtypesetting
124
125% user ones
126
127\let\syst_mode_prefix\relax
128
129\unexpanded\def\preventmode{\unprotect\syst_modes_prevent}
130\unexpanded\def\enablemode {\unprotect\syst_modes_enable }
131\unexpanded\def\disablemode{\unprotect\syst_modes_disable}
132
133\unexpanded\def\globalpreventmode{\let\syst_mode_prefix\global\unprotect\syst_modes_prevent}
134\unexpanded\def\globalenablemode {\let\syst_mode_prefix\global\unprotect\syst_modes_enable }
135\unexpanded\def\globaldisablemode{\let\syst_mode_prefix\global\unprotect\syst_modes_disable}
136
137% \def\syst_modes_prevent[#1]{\protect\rawprocesscommacommand[#1]\syst_modes_prevent_indeed\let\syst_mode_prefix\relax}
138% \def\syst_modes_enable [#1]{\protect\rawprocesscommacommand[#1]\syst_modes_enable_indeed \let\syst_mode_prefix\relax}
139% \def\syst_modes_disable[#1]{\protect\rawprocesscommacommand[#1]\syst_modes_disable_indeed\let\syst_mode_prefix\relax}
140
141\def\syst_modes_prevent[#1]{\protect\fastprocesscommacommand[#1]\syst_modes_prevent_indeed\let\syst_mode_prefix\relax}
142\def\syst_modes_enable [#1]{\protect\fastprocesscommacommand[#1]\syst_modes_enable_indeed \let\syst_mode_prefix\relax}
143\def\syst_modes_disable[#1]{\protect\fastprocesscommacommand[#1]\syst_modes_disable_indeed\let\syst_mode_prefix\relax}
144
145\def\syst_modes_prevent_indeed#1%
146  {\ifcsname\??mode#1\endcsname\else\syst_modes_new{#1}\fi
147   \syst_mode_prefix\lastnamedcs\preventedmode}
148
149\def\syst_modes_enable_indeed#1% we can speed it up by moving the new outside
150  {\ifcsname\??mode#1\endcsname\else\syst_modes_new{#1}\fi
151   \ifnum\lastnamedcs=\preventedmode\else
152     \syst_mode_prefix\lastnamedcs\enabledmode
153   \fi}
154
155\def\syst_modes_disable_indeed#1%
156  {\ifcsname\??mode#1\endcsname\else\syst_modes_new{#1}\fi
157   \ifnum\lastnamedcs=\preventedmode\else
158     \syst_mode_prefix\lastnamedcs\disabledmode
159   \fi}
160
161%D If you do a lot of mode testing, it makes sense to define modes (or disable them
162%D explicitly if unset. This makes testing twice as fast. Often one enables modes
163%D beforehand, in which case \type {\definemode} would reset the mode. The optional
164%D second argument \type {keep} will prevent changing the already set mode but defines
165%D it when undefined.
166
167\unexpanded\def\definemode
168  {\unprotect
169   \dodoubleempty\syst_modes_define}
170
171\def\syst_modes_define[#1][#2]%
172  {\protect
173   \edef\m_modes_asked{#2}%
174 % \rawprocesscommacommand[#1]\syst_modes_define_indeed}
175   \fastprocesscommacommand[#1]\syst_modes_define_indeed}
176
177\def\syst_modes_define_indeed#1%
178  {\ifcsname\??mode#1\endcsname
179     % already set
180   \else
181     \syst_modes_new{#1}
182   \fi
183   \ifx\m_modes_asked\v!keep
184     % not changes, disabled when undefined
185   \else
186     \lastnamedcs\ifx\m_modes_asked\v!yes\enabledmode\else\disabledmode\fi
187   \fi}
188
189% handy for mp
190
191\def\booleanmodevalue#1%
192  {\ifcsname\??mode#1\endcsname
193     \ifcase\lastnamedcs
194       \s!false
195     \or
196       \s!true
197     \else
198       \s!false
199     \fi
200   \else
201     \s!false
202   \fi}
203
204% check macros
205
206\newconditional\c_checked_mode
207
208% one
209
210\def\syst_modes_check_indeed#1%
211  {\ifcsname\??mode#1\endcsname
212     \ifcase\lastnamedcs\else
213       \let\syst_modes_check_step\gobbleoneargument
214     \fi
215   \fi}
216
217\def\syst_modes_check_nop#1#2#3%
218  {\let\syst_modes_check_step\syst_modes_check_indeed
219 % \rawprocesscommacommand[#3]\syst_modes_check_step
220   \fastprocesscommacommand[#3]\syst_modes_check_step
221   \ifx\syst_modes_check_step\gobbleoneargument
222     \expandafter#1%
223   \else
224     \expandafter#2%
225   \fi}
226
227\def\syst_modes_check_yes#1#2#3%
228  {\ifcase\lastnamedcs
229     \expandafter#2%
230   \or
231     \expandafter#1%
232   \else
233     \expandafter#2%
234   \fi}
235
236\def\syst_modes_check_lr#1#2#3%
237  {\ifcsname\??mode#3\endcsname
238     \expandafter\syst_modes_check_yes
239   \else
240     \expandafter\syst_modes_check_nop
241   \fi#1#2{#3}}
242
243\def\syst_modes_check_ss#1#2[#3]%
244  {\ifcsname\??mode#3\endcsname
245     \expandafter\syst_modes_check_yes
246   \else
247     \expandafter\syst_modes_check_nop
248   \fi#1#2{#3}}
249
250% all
251
252\def\syst_modes_check_all_indeed#1%
253  {\ifcsname\??mode#1\endcsname
254     \ifcase\lastnamedcs
255       \let\syst_modes_check_all_step\gobbleoneargument
256     \or
257       % enabled
258     \else
259       \let\syst_modes_check_all_step\gobbleoneargument
260     \fi
261   \else
262     \let\syst_modes_check_all_step\gobbleoneargument
263   \fi}
264
265\def\syst_modes_check_all_lr#1#2#3%
266  {\let\syst_modes_check_all_step\syst_modes_check_all_indeed
267   \fastprocesscommacommand[#3]\syst_modes_check_all_step
268   \ifx\syst_modes_check_all_step\gobbleoneargument
269     \expandafter#2%
270   \else
271     \expandafter#1%
272   \fi}
273
274\def\syst_modes_check_all_ss#1#2[#3]%
275  {\let\syst_modes_check_all_step\syst_modes_check_all_indeed
276   \fastprocesscommacommand[#3]\syst_modes_check_all_step
277   \ifx\syst_modes_check_all_step\gobbleoneargument
278     \expandafter#2%
279   \else
280     \expandafter#1%
281   \fi}
282
283\unexpanded\def\doifelsemode    {\syst_modes_check_lr\firstoftwoarguments\secondoftwoarguments}
284\unexpanded\def\doifmode        {\syst_modes_check_lr\firstofoneargument\gobbleoneargument}
285\unexpanded\def\doifnotmode     {\syst_modes_check_lr\gobbleoneargument\firstofoneargument}
286\unexpanded\def\startmode       {\syst_modes_check_ss\donothing\syst_modes_stop_yes}
287\unexpanded\def\startnotmode    {\syst_modes_check_ss\syst_modes_stop_nop\donothing}
288\unexpanded\def\doifelseallmodes{\syst_modes_check_all_lr\firstoftwoarguments\secondoftwoarguments}
289\unexpanded\def\doifallmodes    {\syst_modes_check_all_lr\firstofoneargument\gobbleoneargument}
290\unexpanded\def\doifnotallmodes {\syst_modes_check_all_lr\gobbleoneargument\firstofoneargument}
291\unexpanded\def\startallmodes   {\syst_modes_check_all_ss\donothing\syst_modes_stop_all_yes}
292\unexpanded\def\startnotallmodes{\syst_modes_check_all_ss\syst_modes_stop_all_nop\donothing}
293
294\let\doifmodeelse     \doifelsemode
295\let\doifallmodeselse \doifelseallmodes
296
297\unexpanded\def\stopmode         {} % no relax
298\unexpanded\def\stopnotmode      {} % no relax
299\unexpanded\def\stopallmodes     {} % no relax
300\unexpanded\def\stopnotallmodes  {} % no relax
301
302\def\syst_modes_stop_yes    #1\stopmode       {}
303\def\syst_modes_stop_nop    #1\stopnotmode    {}
304\def\syst_modes_stop_all_yes#1\stopallmodes   {}
305\def\syst_modes_stop_all_nop#1\stopnotallmodes{}
306
307%D Pushing/popping:
308
309\unexpanded\def\pushmode[#1]%
310  {\ifcsname\??mode#1\endcsname\else\syst_modes_new{#1}\fi
311   \expandafter\edef\csname\??modestack#1\expandafter\endcsname\expandafter{\number\lastnamedcs}%
312   \expandafter\pushmacro\lastnamedcs}
313
314\unexpanded\def\popmode[#1]%
315  {\ifcsname\??modestack#1\endcsname
316     \expandafter\popmacro\lastnamedcs
317     \csname\??mode#1\endcsname\csname\??modestack#1\endcsname\relax
318   \fi}
319
320\def\pushsystemmode#1%
321  {\ifcsname\??mode\systemmodeprefix#1\endcsname\else\syst_modes_new{\systemmodeprefix#1}\fi
322   \expandafter\edef\csname\??modestack\systemmodeprefix#1\expandafter\endcsname\expandafter{\number\lastnamedcs}%
323   \expandafter\pushmacro\lastnamedcs}
324
325\def\popsystemmode#1%
326  {\ifcsname\??modestack\systemmodeprefix#1\endcsname
327     \expandafter\popmacro\lastnamedcs
328     \csname\??mode\systemmodeprefix#1\endcsname\csname\??modestack\systemmodeprefix#1\endcsname\relax
329   \fi}
330
331%D Here is a relatively new variant of mode checking:
332%D
333%D \starttyping
334%D \enablemode[two]
335%D
336%D \startmodeset
337%D     [one]     {1}
338%D     [two]     {2}
339%D     [two]     {2}
340%D     [three]   {3}
341%D     [default] {?}
342%D \stopmodeset
343%D
344%D \startmodeset
345%D     [one]     {1}
346%D     [three]   {3}
347%D     [default] {?}
348%D \stopmodeset
349%D
350%D \startmodeset
351%D     [one] {
352%D         \input tufte
353%D     }
354%D     [two] {
355%D         \startmodes
356%D             [one]     {1}
357%D             [two]     {2}
358%D             [two]     {2}
359%D             [three]   {3}
360%D             [default] {?}
361%D         \stopmodes
362%D     }
363%D     [three] {
364%D         \input zapf
365%D     }
366%D     [default] {
367%D         \input ward
368%D     }
369%D \stopmodeset
370%D \stoptyping
371
372\newconditional\c_syst_modes_set_done % conditionals can be pushed/popped
373
374\unexpanded\def\startmodeset
375  {\pushmacro\c_syst_modes_set_done
376   \setfalse\c_syst_modes_set_done
377   \doifelsenextoptionalcs\syst_modes_set_start\syst_modes_set_quit}
378
379\def\syst_modes_set_start[#1]%
380  {\edef\m_mode_case{#1}%
381   \ifx\m_mode_case\s!default
382     \ifconditional\c_syst_modes_set_done
383       \doubleexpandafter\syst_modes_set_quit
384     \else
385       \doubleexpandafter\syst_modes_set_yes
386     \fi
387   \else
388     \singleexpandafter\syst_modes_set_check
389   \fi}
390
391\def\syst_modes_set_check
392  {\syst_modes_check_lr\syst_modes_set_yes\syst_modes_set_nop\m_mode_case}
393
394\def\syst_modes_set_yes#1%
395  {\settrue\c_syst_modes_set_done
396   #1%
397   \doifelsenextoptionalcs\syst_modes_set_start\syst_modes_set_quit}
398
399\def\syst_modes_set_nop#1%
400  {\doifelsenextoptionalcs\syst_modes_set_start\syst_modes_set_quit}
401
402\def\syst_modes_set_quit#1\stopmodeset
403  {\popmacro\c_syst_modes_set_done}
404
405\let\stopmodeset\relax
406
407%D Lets now set a mode:
408
409\enablemode[mkiv] \newsystemmode{mkiv} \setsystemmode{mkiv}
410
411%D Setups:
412
413\installcorenamespace{setup} % we can probably get rid of some :'s later on
414
415\unexpanded\def\startsetups{} % to please dep checker
416\unexpanded\def\stopsetups {} % to please dep checker
417
418\unexpanded\def\setups{\doifelsenextbgroup\syst_setups_a\syst_setups_b} % {..} or [..]
419\unexpanded\def\setup {\doifelsenextbgroup\syst_setups  \syst_setups_c} % {..} or [..]
420
421\def\syst_setups_a  #1{\processcommacommand[#1]\syst_setups} % {..}
422\def\syst_setups_b[#1]{\processcommacommand[#1]\syst_setups} % [..]
423\def\syst_setups_c[#1]{\syst_setups{#1}} % [..]
424
425\letvalue{\??setup:\??empty}\gobbleoneargument
426
427\def\syst_setups#1% the grid option will be extended to other main modes
428  {\csname\??setup
429     \ifgridsnapping
430       \ifcsname\??setup\v!grid:#1\endcsname\v!grid:#1\else:\ifcsname\??setup:#1\endcsname#1\else\??empty\fi\fi
431     \else
432                                                           :\ifcsname\??setup:#1\endcsname#1\else\??empty\fi
433     \fi
434   \endcsname\empty} % takes one argument
435
436% no checking and we assume it being defined:
437
438\def\fastsetup                     #1{\csname\??setup:#1\endcsname\empty}
439\def\fastsetupwithargument         #1{\csname\??setup:#1\endcsname}    % swapped per 2015-08-30
440\def\fastsetupwithargumentswapped#1#2{\csname\??setup:#2\endcsname{#1}}% swapped per 2015-09-05
441
442% the next one is meant for \c!setups situations, hence the check for
443% a shortcut
444
445\let\m_syst_setups_asked\empty
446
447\def\doprocesslocalsetups#1% sort of public, fast local variant
448  {\edef\m_syst_setups_asked{#1}%
449   \ifx\m_syst_setups_asked\empty\else
450     \expandafter\syst_setups_process_local
451   \fi}
452
453\unexpanded\def\usesetupsparameter#1%
454  {\edef\m_syst_setups_asked{#1\c!setups}%
455   \ifx\m_syst_setups_asked\empty\else
456     \expandafter\syst_setups_process_local
457   \fi}
458
459% setups=S1
460% setups=lua(S2)
461% setups=S3
462% setups={S1,lua(S2),xml(test{123}),S3}
463
464\def\syst_setups_process_local
465  {\clf_autosetups{\m_syst_setups_asked}%
466   \relax} % let's prevent lookahead
467
468\def\autosetups#1%
469  {\clf_autosetups{#1}}
470
471\edef\setupwithargument#1% saves a few expansions
472  {\noexpand\csname\??setup:\noexpand\ifcsname\??setup:#1\endcsname#1\noexpand\else\??empty\noexpand\fi\endcsname}
473
474\edef\setupwithargumentswapped#1#2% saves a few expansions (can be \let)
475  {\noexpand\csname\??setup:\noexpand\ifcsname\??setup:#2\endcsname#2\noexpand\else\??empty\noexpand\fi\endcsname{#1}}
476
477\let\directsetup\syst_setups
478\let\texsetup   \syst_setups % nicer than \directsetup and more en par with xmlsetup and luasetup
479
480\unexpanded\def\doifelsesetups#1% to be done: grid
481  {\ifcsname\??setup:#1\endcsname
482     \expandafter\firstoftwoarguments
483   \else
484     \expandafter\secondoftwoarguments
485   \fi}
486
487\let\doifsetupselse\doifelsesetups
488
489\unexpanded\def\doifsetups#1% to be done: grid
490  {\ifcsname\??setup:#1\endcsname
491     \expandafter\firstofoneargument
492   \else
493     \expandafter\gobbleoneargument
494   \fi}
495
496\unexpanded\def\doifnotsetups#1% to be done: grid
497  {\ifcsname\??setup:#1\endcsname
498     \expandafter\gobbleoneargument
499   \else
500     \expandafter\firstofoneargument
501   \fi}
502
503% maybe some day:
504%
505% \unexpanded\def\fastsetupfallback#1#2%
506%   {\ifcsname\??setup:#1\endcsname
507%      \expandafter\lastnamedcs
508%    \else
509%      \csname\??setup:#2\expandafter\endcsname
510%    \fi}
511%
512% or
513%
514% \unexpanded\def\fastsetupfallback#1#2#3% prefix preferred fallback
515%   {\ifcsname\??setup:#1#2\endcsname
516%      \expandafter\lastnamedcs
517%    \else
518%      \csname\??setup:#1#3\expandafter\endcsname
519%    \fi}
520
521% \startluasetups oeps
522%     context("DONE")
523%     a = 1
524%     b = 1
525% \stopluasetups
526%
527% \luasetup{oeps}
528%
529% \startsetups xxx
530%     ziezo
531% \stopsetups
532%
533% \directsetup{xxx}
534%
535% \startxmlsetups zzz
536%     [[#1]]
537% \stopxmlsetups
538%
539% \xmlsetup{123}{zzz}
540%
541% \startbuffer[what]
542%     context("DONE")
543% \stopbuffer
544%
545% \startbuffer
546%     context("MORE")
547% \stopbuffer
548%
549% \ctxluabuffer[what]
550%
551% \ctxluabuffer
552
553\newtoks\t_syst_setups_tex \appendtoks
554    \catcode\endoflineasciicode \ignorecatcode
555\to \t_syst_setups_tex
556
557\newtoks\t_syst_setups_loc \appendtoks
558    \catcode\endoflineasciicode \ignorecatcode
559\to \t_syst_setups_loc
560
561\newtoks\t_syst_setups_raw \appendtoks
562    % nothing
563\to \t_syst_setups_raw
564
565\newtoks\t_syst_setups_xml \appendtoks
566    \catcode\endoflineasciicode\ignorecatcode
567    \catcode\barasciicode      \othercatcode
568\to \t_syst_setups_xml
569
570\newtoks\t_syst_setups_lua \appendtoks
571    \obeylualines
572    \obeyluatokens
573\to \t_syst_setups_lua
574
575% Is doglobal still relevant? Maybe always global? Or never? Anyway, it will become obsolete.
576
577\unexpanded\def\startluasetups  {\begingroup\doifelsenextoptionalcs\syst_setups_start_lua_a\syst_setups_start_lua_b} \let\stopluasetups              \relax
578\unexpanded\def\startxmlsetups  {\begingroup\doifelsenextoptionalcs\syst_setups_start_xml_a\syst_setups_start_xml_b} \let\stopxmlsetups              \relax
579\unexpanded\def\startrawsetups  {\begingroup\doifelsenextoptionalcs\syst_setups_start_raw_a\syst_setups_start_raw_b} \let\stoprawsetups              \relax
580\unexpanded\def\startlocalsetups{\begingroup\doifelsenextoptionalcs\syst_setups_start_loc_a\syst_setups_start_loc_b} \let\stoplocalsetups            \relax
581\unexpanded\def\startsetups     {\begingroup\doifelsenextoptionalcs\syst_setups_start_tex_a\syst_setups_start_tex_b} \let\stopsetups                 \relax
582
583\def\syst_setups_start_lua_indeed#1#2#3\stopluasetups  {\endgroup\dodoglobal\expandafter\def\csname\??setup#1:#2\expandafter\endcsname\expandafter##\expandafter1\expandafter{#3}}
584\def\syst_setups_start_xml_indeed#1#2#3\stopxmlsetups  {\endgroup\dodoglobal\expandafter\def\csname\??setup#1:#2\expandafter\endcsname\expandafter##\expandafter1\expandafter{#3}}
585\def\syst_setups_start_raw_indeed#1#2#3\stoprawsetups  {\endgroup\dodoglobal\expandafter\def\csname\??setup#1:#2\expandafter\endcsname\expandafter##\expandafter1\expandafter{#3}}
586\def\syst_setups_start_loc_indeed#1#2#3\stoplocalsetups{\endgroup\dodoglobal\expandafter\def\csname\??setup#1:#2\expandafter\endcsname\expandafter##\expandafter1\expandafter{#3}}
587\def\syst_setups_start_tex_indeed#1#2#3\stopsetups     {\endgroup\dodoglobal\expandafter\def\csname\??setup#1:#2\expandafter\endcsname\expandafter##\expandafter1\expandafter{#3}}
588
589\def\syst_setups_start_lua{\ifsecondargument\expandafter\syst_setups_start_lua_c\else\expandafter\syst_setups_start_lua_d\fi}
590\def\syst_setups_start_xml{\ifsecondargument\expandafter\syst_setups_start_xml_c\else\expandafter\syst_setups_start_xml_d\fi}
591\def\syst_setups_start_raw{\ifsecondargument\expandafter\syst_setups_start_raw_c\else\expandafter\syst_setups_start_raw_d\fi}
592\def\syst_setups_start_loc{\ifsecondargument\expandafter\syst_setups_start_loc_c\else\expandafter\syst_setups_start_loc_d\fi}
593\def\syst_setups_start_tex{\ifsecondargument\expandafter\syst_setups_start_tex_c\else\expandafter\syst_setups_start_tex_d\fi}
594
595% no need for \the\t_syst_setups_lua in the next, now too often
596
597\def\syst_setups_start_lua_a{\the\t_syst_setups_lua\dodoubleempty\syst_setups_start_lua} % [ ] delimited
598\def\syst_setups_start_xml_a{\the\t_syst_setups_xml\dodoubleempty\syst_setups_start_xml} % [ ] delimited
599\def\syst_setups_start_raw_a{\the\t_syst_setups_raw\dodoubleempty\syst_setups_start_raw} % [ ] delimited
600\def\syst_setups_start_loc_a{\the\t_syst_setups_loc\dodoubleempty\syst_setups_start_loc} % [ ] delimited
601\def\syst_setups_start_tex_a{\the\t_syst_setups_tex\dodoubleempty\syst_setups_start_tex} % [ ] delimited
602
603% empty preserves inner {} (is removed by the \expandafter{#3}) .. hm, looks old
604
605\def\syst_setups_start_lua_b#1 {\the\t_syst_setups_lua\syst_setups_start_lua_indeed\empty{#1}\empty} % space delimited
606\def\syst_setups_start_xml_b#1 {\the\t_syst_setups_xml\syst_setups_start_xml_indeed\empty{#1}\empty} % space delimited
607\def\syst_setups_start_raw_b#1 {\the\t_syst_setups_raw\syst_setups_start_raw_indeed\empty{#1}\empty} % space delimited
608\def\syst_setups_start_loc_b#1 {\the\t_syst_setups_loc\syst_setups_start_loc_indeed\empty{#1}\empty} % space delimited
609\def\syst_setups_start_tex_b#1 {\the\t_syst_setups_tex\syst_setups_start_tex_indeed\empty{#1}\empty} % space delimited
610
611\def\syst_setups_start_lua_c[#1][#2]{\the\t_syst_setups_lua\syst_setups_start_lua_indeed{#1}{#2}\empty} % [..] [..]
612\def\syst_setups_start_xml_c[#1][#2]{\the\t_syst_setups_xml\syst_setups_start_xml_indeed{#1}{#2}\empty} % [..] [..]
613\def\syst_setups_start_raw_c[#1][#2]{\the\t_syst_setups_raw\syst_setups_start_raw_indeed{#1}{#2}\empty} % [..] [..]
614\def\syst_setups_start_loc_c[#1][#2]{\the\t_syst_setups_loc\syst_setups_start_loc_indeed{#1}{#2}\empty} % [..] [..]
615\def\syst_setups_start_tex_c[#1][#2]{\the\t_syst_setups_tex\syst_setups_start_tex_indeed{#1}{#2}\empty} % [..] [..]
616
617\def\syst_setups_start_lua_d[#1][#2]{\the\t_syst_setups_lua\syst_setups_start_lua_indeed\empty{#1}\empty} % [..]
618\def\syst_setups_start_xml_d[#1][#2]{\the\t_syst_setups_xml\syst_setups_start_xml_indeed\empty{#1}\empty} % [..]
619\def\syst_setups_start_raw_d[#1][#2]{\the\t_syst_setups_raw\syst_setups_start_raw_indeed\empty{#1}\empty} % [..]
620\def\syst_setups_start_loc_d[#1][#2]{\the\t_syst_setups_loc\syst_setups_start_loc_indeed\empty{#1}\empty} % [..]
621\def\syst_setups_start_tex_d[#1][#2]{\the\t_syst_setups_tex\syst_setups_start_tex_indeed\empty{#1}\empty} % [..]
622
623\def\luasetup#1{\ctxlua{\syst_setups{#1}}}
624
625%D System setups:
626
627\let\systemsetupsprefix\wildcardsymbol
628
629\def\systemsetups#1{\syst_setups{\systemsetupsprefix#1}}
630
631\unexpanded\def\resetsetups[#1]% see x-fo for usage
632  {\ifcsname\??setup\ifgridsnapping\v!grid\fi:#1\endcsname
633     \dodoglobal\undefinevalue{\??setup\ifgridsnapping\v!grid\fi:#1}%
634   \else
635     \dodoglobal\undefinevalue{\??setup:#1}%
636   \fi}
637
638\unexpanded\def\copysetups
639  {\dodoubleargument\syst_setups_copy}
640
641\def\syst_setups_copy[#1][#2]%
642  {\ifcsname\??setup:#2\endcsname
643      \expandafter\let\csname\??setup:#1\expandafter\endcsname\lastnamedcs
644   \fi}
645
646\unexpanded\def\showsetupsdefinition[#1]%
647  {\showvalue{\??setup:#1}} % temp hack for debugging
648
649%D \macros
650%D   {setvariables,getvariable,getvariabledefault}
651%D
652%D \starttyping
653%D \setvariables[xx][title=]
654%D \setvariables[xx][title=test test]
655%D \setvariables[xx][title=test $x=1$ test]   % fatal error reported
656%D \setvariables[xx][title=test {$x=1$} test]
657%D \setvariables[xx][title]                   % fatal error reported
658%D \setvariables[xx][titletitel=e]
659%D \stoptyping
660
661\installcorenamespace{variables}
662
\unexpanded\def\setvariables {\dotripleargument\syst_variables_set[\getrawparameters ]}
664\unexpanded\def\setevariables{\dotripleargument\syst_variables_set[\getraweparameters]}
665\unexpanded\def\setgvariables{\dotripleargument\syst_variables_set[\getrawgparameters]}
666\unexpanded\def\setxvariables{\dotripleargument\syst_variables_set[\getrawxparameters]}
667
\unexpanded\def\globalsetvariables % obsolete
669  {\dotripleargument\syst_variables_set[\globalgetrawparameters]}
670
671\def\syst_variables_set[#1][#2][#3]% tricky, test on s-pre-60
672  {\doifelse{#2}\currentvariableclass
673     {#1[\??variables#2:][#3]}%
674     {\pushmacro\currentvariableclass
675      \def\currentvariableclass{#2}%
676      \getvariable{#2}\s!reset
677      #1[\??variables#2:][#3]%
678      \getvariable{#2}\s!set
679      \popmacro\currentvariableclass}}
680
681\unexpanded\def\setvariable #1#2#3{\expandafter\def \csname\??variables#1:#2\endcsname{#3}}
682\unexpanded\def\setevariable#1#2#3{\expandafter\edef\csname\??variables#1:#2\endcsname{#3}}
683\unexpanded\def\setgvariable#1#2#3{\expandafter\gdef\csname\??variables#1:#2\endcsname{#3}}
684\unexpanded\def\setxvariable#1#2#3{\expandafter\xdef\csname\??variables#1:#2\endcsname{#3}}
685
686\def\getvariable#1#2%
687  {\begincsname\??variables#1:#2\endcsname}
688
689\def\showvariable#1#2%
690  {\showvalue{\begincsname\??variables#1:#2\endcsname}}
691
692\let\currentvariableclass\empty
693
694%D \macros
695%D   {checkvariables}
696%D
697%D I'll probably forget that this on exists.
698
699\let\m_syst_variables_temp\empty
700
701\def\checkvariables
702  {\dodoubleargument\syst_variables_check}
703
704\def\syst_variables_check
705  {\dogetparameters\syst_variables_check_value}
706
707\def\syst_variables_check_value#1#2#3%
708  {\ifcsname\??variables#1:#2\endcsname
709     \edef\m_syst_variables_temp{\lastnamedcs}%
710     \ifx\m_syst_variables_temp\empty
711       \expandafter\def\csname\??variables#1:#2\endcsname{#3}%
712     \fi
713   \else
714     \expandafter\def\csname\??variables#1:#2\endcsname{#3}%
715   \fi}
716
717%D \macros
718%D   {doifelsevariable,doifvariable,doifnotvariable}
719%D
720%D A few trivial macros:
721
722\unexpanded\def\doifelsevariable#1#2%
723  {\ifcsname\??variables#1:#2\endcsname
724     \expandafter\firstoftwoarguments
725   \else
726     \expandafter\secondoftwoarguments
727   \fi}
728
729\let\doifvariableelse\doifelsevariable
730
731\unexpanded\def\doifvariable#1#2%
732  {\ifcsname\??variables#1:#2\endcsname
733     \expandafter\firstofoneargument
734   \else
735     \expandafter\gobbleoneargument
736   \fi}
737
738\unexpanded\def\doifnotvariable#1#2%
739  {\ifcsname\??variables#1:#2\endcsname
740     \expandafter\gobbleoneargument
741   \else
742     \expandafter\firstofoneargument
743   \fi}
744
745%D A few more (we could use a public test variable so that we only need to expand
746%D once, assuming expandable variables):
747
748\letvalue{\??variables:}\empty
749
750\unexpanded\def\doifelseemptyvariable#1#2%
751  {\edef\m_syst_string_one{\begincsname\??variables#1:#2\endcsname}%
752   \ifx\m_syst_string_one\empty
753     \expandafter\firstoftwoarguments
754   \else
755     \expandafter\secondoftwoarguments
756   \fi}
757
758\let\doifemptyvariableelse\doifelseemptyvariable
759
760\unexpanded\def\doifemptyvariable#1#2%
761  {\edef\m_syst_string_one{\begincsname\??variables#1:#2\endcsname}%
762   \ifx\m_syst_string_one\empty
763     \expandafter\firstofoneargument
764   \else
765     \expandafter\gobbleoneargument
766   \fi}
767
768\unexpanded\def\doifnotemptyvariable#1#2%
769  {\edef\m_syst_string_one{\begincsname\??variables#1:#2\endcsname}%
770   \ifx\m_syst_string_one\empty
771     \expandafter\gobbleoneargument
772   \else
773     \expandafter\firstofoneargument
774   \fi}
775
776\def\getvariabledefault#1#2% #3% can be command
777  {\ifcsname\??variables#1:#2\endcsname
778     \expandafter\expandafter\expandafter\lastnamedcs\expandafter\gobbleoneargument
779   \else
780     \expandafter\firstofoneargument
781   \fi}
782
783\unexpanded\def\setupenv
784  {\dotripleargument\syst_variables_set[\getrawparameters][\s!environment]}
785
786\unexpanded\def\doifelseenv{\doifelsevariable  \s!environment}
787\unexpanded\def\doifenv    {\doifvariable      \s!environment}
788\unexpanded\def\doifnotenv {\doifnotvariable   \s!environment}
789\def\env                   {\getvariable       \s!environment}
790\def\envvar                {\getvariabledefault\s!environment}
791
792\let\doifenvelse\doifelseenv
793
794%D \macros
795%D   {defineselector,setupselector,select,directselect}
796%D
797%D \starttyping
798%D \defineselector[caption][max=2,n=2]
799%D
800%D \start
801%D     \setupselector[caption][n=1]
802%D     \placelist[figure][criterium=all]
803%D \stop
804%D
805%D \starttext
806%D     \placefigure
807%D       {\select{caption}{zapf}{\input zapf \relax}}
808%D       {}
809%D \stoptext
810%D \stoptyping
811
812\installcorenamespace{selector}
813
814\unexpanded\def\defineselector{\dodoubleargument\syst_selectors_define}
815\unexpanded\def\setupselector {\dodoubleargument\syst_selectors_setup}
816
817% \def\syst_selectors_define[#1][#2]{\getparameters[\??selector#1][\c!max=\plusone,\c!n=\plusone,#2]}
818% \def\syst_selectors_setup [#1][#2]{\getparameters[\??selector#1][#2]}
819
820\def\syst_selectors_define[#1][{\getparameters[\??selector#1][\c!max=\plustwo,\c!n=\plusone,}
821\def\syst_selectors_setup [#1][{\getparameters[\??selector#1][}
822
823\unexpanded\def\select % unexpandable
824  {\directselect}
825
826% \def\directselect#1% expandable
827%   {\filterfromnext % maybe add an \expanded
828%      {\csname\??selector\ifcsname\??selector#1\c!max\endcsname#1\fi\c!max\endcsname}%
829%      {\csname\??selector\ifcsname\??selector#1\c!n  \endcsname#1\fi\c!n  \endcsname}}
830%
831% this is more efficient when the arguments are used a few times (or passed along):
832
833\def\directselect#1% expandable
834  {\expandafter\filterfromnext
835     \csname\??selector\ifcsname\??selector#1\c!max\endcsname#1\fi\c!max\expandafter\endcsname
836     \csname\??selector\ifcsname\??selector#1\c!n  \endcsname#1\fi\c!n  \endcsname}
837
838\letvalue{\??selector\c!max}\plusone
839\letvalue{\??selector\c!n  }\plusone
840
841\protect \endinput
842