SourceBrowser

1%D \module
2%D   [       file=file-job, % copied from main-001, later core-job
3%D        version=1997.03.31,
4%D          title=\CONTEXT\ Core Macros,
5%D       subtitle=Job Handling,
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%D This module is still to be split and documented.
15
16\writestatus
{
loading
}{
ConTeXt
 File
 Macros
 /
 Job
 Handling
}
17
18\unprotect
19
20\registerctxluafile
{
file
-
job
}{}
21
22% processing
23
24\unexpanded
\def
\doifelseinputfile
#
name
%
25  {
\clf_doifelseinputfile
{
#
name
}}
26
27\let
\doifinputfileelse\doifelseinputfile
28
29\unexpanded
\def
\processfile
#
name
%
30  {
\clf_processfile
{
#
name
}}
31
32% path control
33
34%D In the following example the lookup order is \type {.}, {/foo}, \type
35%D {foo/bar} as one can always explicitly prefix a wanted file.
36%D
37%D \starttyping
38%D \pushpath[foo]
39%D     \pushpath[foo/bar]
40%D         \input test
41%D     \poppath
42%D \poppath
43%D \stoptyping
44
45\unexpanded
\def
\usepath
[#
path
]
%
46  {
\clf_usepath
{
#
path
}}
47
48\unexpanded
\def
\usesubpath
[#
path
]
%
49  {
\clf_usesubpath
{
#
path
}}
50
51\unexpanded
\def
\pushpath
[#
path
]
%
52  {
\clf_pushpath
{
#
path
}}
53
54\unexpanded
\def
\poppath
55  {
\clf_poppath
}
56
57\unexpanded
\def
\resetpath
 % not the pushed paths
58  {
\clf_resetpath
}
59
60\def
\allinputpaths
61  {
\clf_allinputpaths
}
62
63% helper (not really needed nowadays)
64
65\let
\locatedfilepath
\empty
66
67\unexpanded
\def
\locatefilepath
#
name
% no [] ?
68  {
\edef
\locatedfilepath
{
\clf_locatefilepath
{
#
name
}}}
69
70% % maybe:
71%
72% % \dirlist{c:/data/temporary/foo}{images/bar.jpg}
73% % \dirfile{c:/data/temporary/foo}{images/bar.jpg}
74%
75% \def\dirlist#1#2{dirlist://#1/**/#2}
76% \def\dirfile#1#2{dirlist://#1/**/#2?option=fileonly}
77
78% zip files are tree'd
79
80\unexpanded
\def
\usezipfile
81  {
\dodoubleempty
\syst_files_use_zip_file
}
82
83\def
\syst_files_use_zip_file
[#
zipname
][#
subtree
]
%
84  {
\clf_usezipfile
{
#
zipname
}{
#
subtree
}}
85
86% exa stuff might become obsolete:
87
88\unexpanded
\def
\loadexamodes
89  {
\dosingleempty
\syst_files_load_exa_modes
}
90
91\def
\syst_files_load_exa_modes
[#
name
]
%
92  {
\clf_loadexamodes
{
#
name
}}
93
94% runtime files (maybe also do this in lua?)
95
96% \def\doloadsystemfile#1% only mkiv files
97%   {\readfile{sys:///#1.\mksuffix}{\showmessage\m!system2{#1.\mksuffix}}\donothing}
98
99\unexpanded
\def
\syst_files_load
100  {
\syst_files_load_indeed
\f!newfilename
  % new code, to be integrated at some point, plus fixes posted on the list
101   \syst_files_load_indeed
\f!locfilename
  % new code, somewhat experimental, not distributed (outside the dev group)
102   \syst_files_load_indeed
\f!expfilename
  % new code, very experimental, can be engine specific, mostly for me only
103   \syst_files_load_indeed
\f!sysfilename
  % local settings, but probably not that good an idea to use
104  %\syst_files_load_indeed\f!fntfilename  % maybe some day, can load goodies and patches
105  }
106
107\def
\syst_files_load_indeed
#
name
% from now on we assume a suffix to be part of the name
108  {
\readsysfile
{
#
name
}{
\showmessage
\m!system
2
{
#
name
}}
\donothing
}
109
110% document structure
111
112\ifdefined
\textlevel
                         \else
 \newcount
\textlevel
                          \fi
 % might go away
113\ifdefined
\strc_pagenumbers_flush_final_page
 \else
 \let
\strc_pagenumbers_flush_final_page
\relax
 \fi
 % ugly
114
115\unexpanded
\def
\dostarttext
116  {
\glet
\dostarttext
\relax
117   \the
\everystarttext
118   \global
\everystarttext\emptytoks
}
119
120\unexpanded
\def
\dostoptext
121  {
\glet
\dostoptext
\relax
122   \strc_pagenumbers_flush_final_page
123   \page
 % hm, bonus
124   \the
\everystoptext
125   \global
\everystoptext\emptytoks
126   \the
\everybye
127   \global
\everybye
\emptytoks
128   \the
\everygoodbye
129   \global
\everygoodbye
\emptytoks
130   \doifelsesometoks
\everynotabene
{
\writeline
\the
\everynotabene
\writeline
}
\donothing
131   \normalend
}
           % tex's \end
132
133\unexpanded
\def
\starttext
    {
\clf_starttext
}
134\unexpanded
\def
\stoptext
     {
\clf_stoptext
}
135\unexpanded
\def
\forcequitjob
 {
\clf_forcequitjob
}
136\unexpanded
\def\end
          {
\clf_forceendjob
}
137\unexpanded
\def
\autostarttext
{
\clf_autostarttext
}
138\unexpanded
\def
\autostoptext
 {
\clf_autostoptext
}
139
140\unexpanded
\def
\finishjob
{
\stoptext
}
 % nicer in luatex call commandline
141
142\newtoks
\everystartnotext
143\newtoks
\everystopnotext
144
145\unexpanded
\def
\startnotext
  {
\the
\everystartnotext
}
146\unexpanded
\def
\stopnotext
   {
\the
\everystopnotext
 \normalend
}
147
148% protect structure
149
150\unexpanded
\def
\processfilemany
#
name
{
\clf_processfilemany
{
#
name
}}
151\unexpanded
\def
\processfileonce
#
name
{
\clf_processfileonce
{
#
name
}}
152\unexpanded
\def
\processfilenone
#
name
{
\clf_processfilenone
{
#
name
}}
153
154\unexpanded
\def
\project
    {
\doifelsenextoptionalcs
\useproject
    \syst_structure_arg_project
}
155\unexpanded
\def
\product
    {
\doifelsenextoptionalcs
\useproduct
    \syst_structure_arg_product
}
156\unexpanded
\def
\component
  {
\doifelsenextoptionalcs
\usecomponent
  \syst_structure_arg_component
}
157\unexpanded
\def
\environment
{
\doifelsenextoptionalcs
\useenvironment
\syst_structure_arg_environment
}
158
159\def
\syst_structure_arg_project
    #
name
 {
\clf_useproject
    {
#
name
}}
160\def
\syst_structure_arg_product
    #
name
 {
\clf_useproduct
    {
#
name
}}
161\def
\syst_structure_arg_component
  #
name
 {
\clf_usecomponent
  {
#
name
}}
162\def
\syst_structure_arg_environment
#
name
 {
\clf_useenvironment
{
#
name
}}
163
164\unexpanded
\def
\startproject
    {
\doifelsenextoptionalcs
\syst_structure_start_opt_project
    \syst_structure_start_arg_project
    }
165\unexpanded
\def
\startproduct
    {
\doifelsenextoptionalcs
\syst_structure_start_opt_product
    \syst_structure_start_arg_product
    }
166\unexpanded
\def
\startcomponent
  {
\doifelsenextoptionalcs
\syst_structure_start_opt_component
  \syst_structure_start_arg_component
  }
167\unexpanded
\def
\startenvironment
{
\doifelsenextoptionalcs
\syst_structure_start_opt_environment
\syst_structure_start_arg_environment
}
168
169\def
\syst_structure_start_arg_project
    #
name
 {
\clf_startproject
    {
#
name
}}
170\def
\syst_structure_start_arg_product
    #
name
 {
\clf_startproduct
    {
#
name
}}
171\def
\syst_structure_start_arg_component
  #
name
 {
\clf_startcomponent
  {
#
name
}}
172\def
\syst_structure_start_arg_environment
#
name
 {
\clf_startenvironment
{
#
name
}}
173
174\unexpanded
\def
\useproject
    [#
name
]
{
\clf_useproject
    {
#
name
}}
175\unexpanded
\def
\useproduct
    [#
name
]
{
\clf_useproduct
    {
#
name
}}
176\unexpanded
\def
\usecomponent
  [#
name
]
{
\clf_usecomponent
  {
#
name
}}
177\unexpanded
\def
\useenvironment
[#
name
]
{
\clf_useenvironment
{
#
name
}}
178
179\unexpanded
\def
\syst_structure_start_opt_project
    [#
name
]
{
\clf_startproject
    {
#
name
}}
180\unexpanded
\def
\syst_structure_start_opt_product
    [#
name
]
{
\clf_startproduct
    {
#
name
}}
181\unexpanded
\def
\syst_structure_start_opt_component
  [#
name
]
{
\clf_startcomponent
  {
#
name
}}
182\unexpanded
\def
\syst_structure_start_opt_environment
[#
name
]
{
\clf_startenvironment
{
#
name
}}
183
184\newconditional
\endofinput
 % hack, needed because \endinput happens one level down in the input when we write from lua
185
186\unexpanded
\def
\signalendofinput
#
1
% argument just for tracing
187  {
\global
\settrue
\endofinput
}
188
189\unexpanded
\def
\honorendofinput
190  {
\ifconditional
\endofinput
191     \global
\setfalse
\endofinput
192     \endinput
193   \fi
}
194
195\unexpanded
\def
\stopproject
              {
\clf_stopproject
    \honorendofinput
}
196\unexpanded
\def
\stopproduct
              {
\clf_stopproduct
    \honorendofinput
}
197\unexpanded
\def
\stopcomponent
            {
\clf_stopcomponent
  \honorendofinput
}
198\unexpanded
\def
\stopenvironment
          {
\clf_stopenvironment
\honorendofinput
}
199
200           \let
\currentproject
            \clf_currentproject
201           \let
\currentproduct
            \clf_currentproduct
202           \let
\currentcomponent
          \clf_currentcomponent
203           \let
\currentenvironment
        \clf_currentenvironment
204           \let
\processedfile
             \clf_processedfile
205           \let
\processedfiles
            \clf_processedfiles
206
207\unexpanded
\def
\dostarttextfile
     #
name
{
\clf_dostarttextfile
{
name
}}
208\unexpanded
\def
\dostoptextfile
           {
\clf_dostoptextfile
}
209
210\unexpanded
\def
\loadtexfile
       [#
name
]
{
\clf_usetexfile
{
#
name
}}
211\unexpanded
\def
\loadluafile
       [#
name
]
{
\clf_useluafile
{
#
name
}}
212\unexpanded
\def
\loadcldfile
       [#
name
]
{
\clf_usecldfile
{
#
name
}}
213\unexpanded
\def
\loadanyfile
       [#
name
]
{
\clf_useanyfile
{
#
name
}}
214
215\unexpanded
\def
\loadtexfileonce
   [#
name
]
{
\clf_usetexfileonce
{
#
name
}}
216\unexpanded
\def
\loadluafileonce
   [#
name
]
{
\clf_useluafileonce
{
#
name
}}
217\unexpanded
\def
\loadcldfileonce
   [#
name
]
{
\clf_usecldfileonce
{
#
name
}}
218\unexpanded
\def
\loadanyfileonce
   [#
name
]
{
\clf_useanyfileonce
{
#
name
}}
219
220%D Handy for modules that have a test/demo appended (true added).
221
222\unexpanded
\def
\continueifinputfile
#
name
%
223  {
\clf_doifelsecontinuewithfile
{
#
name
}
\relax\endinput
}
 % we cannot do \endinput via lua
224
225% \startproject test
226%     1: \startmode[*project] project \stopmode \endgraf
227%     2: \startmode[*product] product \stopmode \endgraf
228% \stopproject
229
230% replaced by modes:
231%
232% \setvalue{\e!start\v!localenvironment}[#1]%
233%   {\let\loadedlocalenvironments\empty
234%    \def\docommand##1%
235%      {\beforesplitstring##1\at.\to\someevironment
236%       \addtocommalist\someevironment\loadedlocalenvironments}%
237%    \processcommalist[#1]\docommand
238%    \doifcommonelse{\currentproject,\currentproduct,\currentcomponent,\currentenvironment}\loadedlocalenvironments
239%      {\letvalue{\e!stop\v!localenvironment}\relax}
240%      {\grabuntil{\e!stop\v!localenvironment}\gobbleoneargument}}
241%
242% \setvalue{\v!localenvironment}{\doifnextoptionalcselse\uselocalenvironment\redolocalenvironment}
243%
244% \def\redolocalenvironment#1 {\uselocalenvironment[#1]}
245% \def\uselocalenvironment[#1]{\doexecutefileonce{#1}}
246
247% weird place:
248
249\neverypar
\emptytoks
250
251%D Wrappers (the signal is a synchronization with lua hack):
252
253\newsystemmode
\v!project
254\newsystemmode
\v!product
255\newsystemmode
\v!component
256\newsystemmode
\v!environment
257
258\unexpanded
\def
\startprojectindeed
259  {
%starttext
260   \pushsystemmode
\v!project
261   \setsystemmode
\v!project
}
262
263\unexpanded
\def
\stopprojectindeed
264  {
\popsystemmode
\v!project
265   %stoptext
266   \signalendofinput
\v!project
}
267
268\unexpanded
\def
\startproductindeed
269  {
\starttext
270   \pushsystemmode
\v!product
271   \setsystemmode
\v!product
}
272
273\unexpanded
\def
\stopproductindeed
274  {
\popsystemmode
\v!product
275   \stoptext
276   \signalendofinput
\v!product
}
277
278\unexpanded
\def
\startcomponentindeed
279  {
\starttext
280   \pushreferenceprefix
\currentcomponent
281   \pushsystemmode
\v!component
282   \setsystemmode
\v!component
}
283
284\unexpanded
\def
\stopcomponentindeed
285  {
\popsystemmode
\v!component
286   \popreferenceprefix
287   \stoptext
288   \signalendofinput
\v!component
}
289
290\unexpanded
\def
\startenvironmentindeed
291  {
\pushsystemmode
\v!environment
292   \setsystemmode
\v!environment
}
293
294\unexpanded
\def
\stopenvironmentindeed
295  {
\popsystemmode
\v!environment
296   \signalendofinput
\v!environment
}
297
298%D Relatively new (might move as it depends on setups):
299
300%newtoks\everysetupdocument
301
302\unexpanded
\def
\startdocument
 % todo: dostarttagged\t!document
303  {
\dosingleargument
\syst_structure_document_start
}
304
305\unexpanded
\def
\syst_structure_document_start
[#
settings
]
%
306  {
\setvariables
[
\s!document
][#
settings
]
%
307   \the
\everysetupdocument
\relax
308   \starttext
309   \documentvariable
\c!before
}
310
311\unexpanded
\def
\stopdocument
 % todo: dostoptagged\t!document
312  {
\documentvariable
\c!after
313   \stoptext
}
314
315\unexpanded
\def
\doifelsedocumentvariable
#
name
{
\doifelsesomething
{
\documentvariable
{
#
name
}}}
316\unexpanded
\def
\doifdocumentvariable
    #
name
{
\doifsomething
    {
\documentvariable
{
#
name
}}}
317\unexpanded
\def
\doifnotdocumentvariable
 #
name
{
\doifnot
          {
\documentvariable
{
#
name
}}}
318
319\let
\doifdocumentvariableelse\doifelsedocumentvariable
320
321\def
\documentvariable
#
name
%
322  {
\getvariable
\s!document
{
#
name
}}
323
324\unexpanded
\def
\unexpandeddocumentvariable
#
name
%
325  {
\getvariable
\s!document
{
#
name
}}
326
327\unexpanded
\def
\setupdocument
[#
settings
]
%
328  {
\setvariables
[
\s!document
][#
settings
]
%
329   \the
\everysetupdocument
\relax
}
330
331\unexpanded
\def
\presetdocument
[#
settings
]
%
332  {
\checkvariables
[
\s!document
][#
settings
]
}
333
334% We silently ignore missing documents. Beware: there are no begin/end setups
335% invoked as we expect the loaded document to be wrapped in \startdocument ...
336% \stopdocument. This is just a convenient variant of input.
337%
338% \unexpanded\def\document
339%   {\dosingleempty\syst_document}
340%
341% \def\syst_document[#1]#2%
342%    \startdocument[#1]
343%    \readfile{#2}{}{}}
344
345% metadata:author  metadata:title  metadata:subject
346
347\setvariables
348  [
document
]
349  [
\c!before
=
\directsetup
{
\s!document
:
start
}
,
350   \c!after
=
\directsetup
{
\s!document
:
stop
}
]
351
352%S The document: namespace will be used elsewhere too.
353
354% Bonus:
355
356% \installcorenamespace{samplefile}
357%
358% \unexpanded\def\samplefile#1%
359%   {\ifcsname\??samplefile#1\endcsname \else
360%      \setxvalue{\??samplefile#1}{\cldloadfile{#1}}%
361%    \fi
362%    \lastnamedcs}
363
364\unexpanded
\def
\samplefile
#
1
%
365  {
\clf_samplefile
{
#
1
}}
366
367\protect
 \endinput
368
Source Browser ?
