summaryrefslogtreecommitdiff
path: root/tex/context/base/core-job.tex
diff options
context:
space:
mode:
Diffstat (limited to 'tex/context/base/core-job.tex')
-rw-r--r--tex/context/base/core-job.tex81
1 files changed, 41 insertions, 40 deletions
diff --git a/tex/context/base/core-job.tex b/tex/context/base/core-job.tex
index f1f296922..91c963770 100644
--- a/tex/context/base/core-job.tex
+++ b/tex/context/base/core-job.tex
@@ -11,7 +11,7 @@
%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
%C details.
-%D This module is still to be split and documented.
+%D This module is still to be split and documented.
\writestatus{loading}{Context Core Macros / Job Handling}
@@ -31,9 +31,9 @@
%S
%S CheckChar $
-% \appendtoks \reportprotectionstate \to \everydump
+% \appendtoks \reportprotectionstate \to \everydump
-\unprotect
+\unprotect
\let \currentproject \empty
\let \currentproduct \empty
@@ -50,7 +50,7 @@
\setvalue{\c!file::0}{\jobname}
-\def\processedfile % is used in styles, don't change !
+\def\processedfile % is used in styles, don't change !
{\getvalue{\c!file::\fileprocesslevel}}
%\def\processfile#1%
@@ -65,13 +65,13 @@
\setxvalue{\c!file::\fileprocesslevel}{#1}%
\@EA\doglobal\@EA\addtocommalist\@EA{#1}\processedfiles}
-\def\dostoptextfile
+\def\dostoptextfile
{\doglobal\decrement\fileprocesslevel}
\def\processlocalfile#1#2%
{% #1=\readlocfile|\readsetfile{dir} #2=filename
- % #1{#2}\donothing\donothing
- #1{#2}\donothing{\readfile{#2}\donothing\donothing}}
+ % #1{#2}\donothing\donothing
+ #1{#2}\donothing{\readfile{#2}\donothing\donothing}}
\def\processfile#1%
{\ifx\allinputpaths\empty
@@ -83,7 +83,7 @@
{\donetrue\def\filepath{##1}}
{\donefalse}%
\ifdone\expandafter\quitcommalist\fi}%
- \doifparentfileelse{#1} % new
+ \doifparentfileelse{#1} % new
{\processcommacommand [\allinputpaths]\docommando}
{\processcommacommand[.,\allinputpaths]\docommando}%
\ifx\filepath\empty
@@ -103,7 +103,7 @@
{\addtocommalist{##1}\allinputpaths}}%
\processcommalist[#1]\docommando}
-\def\usesubpath[#1]% new, see webschrift for usage
+\def\usesubpath[#1]% new, see webschrift for usage
{\ifx\allinputpaths\empty
\edef\allinputpaths{#1}%
\else
@@ -113,7 +113,7 @@
\processcommacommand[\allinputpaths]\docommando
\fi}
-\def\registreerfileinfo[#1#2]#3% geen \showmessage ?
+\def\registreerfileinfo[#1#2]#3% geen \showmessage ?
{\writestatus\m!systems{#1#2 file #3 at line \the\inputlineno}%
\immediatewriteutility{f #1 {#3}}}
@@ -130,13 +130,13 @@
% {\showmessage\m!systems2\f!filfilename}\donothing
% \readsysfile\f!sysfilename
% {\showmessage\m!systems2\f!sysfilename}\donothing}
-%
+%
% test \@@svgebied
\def\loadallsystemfiles#1#2%
{\ifx\@@svgebied\empty
\readsysfile{#1}{\showmessage\m!systems2{#1}}{#2}%
- \else% yet undocumented
+ \else% yet undocumented
\def\doloadsystemfile##1%
{\readsetfile{##1}{#1}{\showmessage\m!systems2{#1}}{#2}}%
\processcommacommand[\@@svgebied]\doloadsystemfile
@@ -160,8 +160,8 @@
%\loadallsystemfiles\f!modfilename
% \donothing}
-%D Loading of \type {cont-usr.tex} (edited by the user)
-%D and \type {cont-fmt.tex} (generated by texexec).
+%D Loading of \type {cont-usr.tex} (edited by the user)
+%D and \type {cont-fmt.tex} (generated by texexec).
\def\loaduserspecifications
{\readsysfile\f!usrfilename
@@ -169,7 +169,7 @@
\readjobfile\f!fmtfilename
{\showmessage\m!systems2\f!fmtfilename}\donothing}
-%D We don't want multiple jobfiles to interfere.
+%D We don't want multiple jobfiles to interfere.
\bgroup
\catcode`\%=\@@other
@@ -193,7 +193,7 @@
\appendtoks \preloadlanguages \to \everyjob
\appendtoks \preloadspecials \to \everyjob
\appendtoks \openspecialfile \to \everyjob
-%appendtoks \checkutilityfile \to \everyjob % obsolete
+%appendtoks \checkutilityfile \to \everyjob % obsolete
\appendtoks \openutilities \to \everyjob
\appendtoks \loadoptionfile \to \everyjob
%appendtoks \loadtwopassdata \to \everyjob
@@ -213,7 +213,7 @@
\prependtoks \resetutilities \to \everystarttext % moved 28-02-2002
\prependtoks \loadtwopassdata \to \everystarttext % moved 28-02-2002
-\appendtoks \checkreferences \to \everystarttext % new 04-12-1999
+\appendtoks \checkreferences \to \everystarttext % new 04-12-1999
% Most natural ...
%
@@ -221,14 +221,14 @@
% {\the\everystarttext
% \global\let\doateverystarttext\relax}
%
-% ... most practical, since we can load env's in a
-% something.run file (nested \starttext's; see for
-% instance x-res-08, where we definitely want to
+% ... most practical, since we can load env's in a
+% something.run file (nested \starttext's; see for
+% instance x-res-08, where we definitely want to
% open the file!).
\def\doateverystarttext
{\the\everystarttext
- \global\everystarttext\emptytoks}
+ \global\everystarttext\emptytoks}
\def\starttekst
{\doateverystarttext
@@ -242,14 +242,14 @@
{\doglobal\decrement\textlevel\relax
\ifnum\textlevel>\zerocount \else
\the\everystoptext
- %\the\everybye %
+ %\the\everybye %
%\the\everygoodbye % == \end (new)
%\expandafter\normalend %
\expandafter\end
\fi}
-\let\starttext\starttekst
-\let\stoptext \stoptekst
+\let\starttext\starttekst
+\let\stoptext \stoptekst
\let\normalend=\end
@@ -258,7 +258,7 @@
\the\everybye
\the\everygoodbye
\global\everybye \emptytoks % rather unneeded
- \global\everygoodbye\emptytoks % but for sure
+ \global\everygoodbye\emptytoks % but for sure
\expandafter\normalend
\fi}
@@ -291,11 +291,11 @@
\dostoptextfile}
\def\onderdeel #1 % at outermost level only
- {\dostarttextfile{#1}%
+ {\dostarttextfile{#1}%
\processfile{#1}%
\dostoptextfile}
-\def\environment{\omgeving} % for the moment, no \let !
+\def\environment{\omgeving} % for the moment, no \let !
\newcounter\filelevel
@@ -389,6 +389,9 @@
\next}
\def\dodosetups#1%
+ {\processcommalist[#1]\dododosetups}
+
+\def\dodososetups#1%
{\getvalue{\??su#1}}
\def\doifsetupselse#1%
@@ -400,17 +403,15 @@
\xdostartsetups{#1}}
\expanded
- {\long\noexpand\def\noexpand\xdostartsetups##1##2\csname\e!stop\v!instellingen\endcsname%
+ {\long\noexpand\def\noexpand\xdostartsetups##1##2\csname\e!stop\v!instellingen\endcsname
{\egroup
\long\noexpand\setvalue{\??su##1}{##2}}}
\def\startsetups % for international purposes
- {\bgroup\doifnextcharelse[{\startsetupsA\stopsetups}%
- {\startsetupsB\stopsetups}}
+ {\bgroup\doifnextcharelse[\startsetupsA\startsetupsB\stopsetups}
\def\startlocalsetups % for nested purposes
- {\bgroup\doifnextcharelse[{\startsetupsA\stoplocalsetups}%
- {\startsetupsB\stoplocalsetups}}
+ {\bgroup\doifnextcharelse[\startsetupsA\startsetupsB\stoplocalsetups}
\def\startsetupsA#1[#2]%
{\catcode`\^^M=\@@ignore
@@ -430,18 +431,18 @@
\neverypar=\emptytoks
-\appendtoks \flushnotes \to \everypar
-\appendtoks \ifinner\else\checksidefloat\fi \to \everypar
-\appendtoks \checkindentation \to \everypar
-\appendtoks \showparagraphnumber \to \everypar
-\appendtoks \flushmargincontents \to \everypar
-\appendtoks \flushcommentanchors \to \everypar
-\appendtoks \synchronizenotes \to \everypar
+\appendtoks \flushnotes \to \everypar
+\appendtoks \ifinner\else\checksidefloat\fi \to \everypar
+\appendtoks \checkindentation \to \everypar
+\appendtoks \showparagraphnumber \to \everypar
+\appendtoks \flushmargincontents \to \everypar
+\appendtoks \flushcommentanchors \to \everypar
+\appendtoks \synchronizenotes \to \everypar
\appendtoks \flushnotes \to \everydisplay
\appendtoks \adjustsidefloatdisplaylines \to \everydisplay
-%D Better here than in supp-mps:
+%D Better here than in supp-mps:
\def\executesystemcommand{\immediate\write18}