Lines Matching defs:jcl
23 * jcl deck interpreter
29 #include "jcl.h"
34 "[-?\n@(#)$Id: jcl (AT&T Research) 2006-11-11 $\n]"
36 "[+NAME?jcl - jcl deck interpreter]"
72 " \b../lib/jcl/\b\afile\a is searched for on \b$PATH\b. If no \b--map\b"
115 " [+../lib/jcl/prefix?Default \b--map\b file, found on \b$PATH\b.]"
140 optset(Jcl_t* jcl, int c, Jcldisc_t* disc)
181 jcl->flags |= JCL_LISTAUTOEDITS;
184 jcl->flags |= JCL_LISTCOUNTS;
187 jcl->flags |= JCL_LISTEXEC;
190 jcl->flags |= JCL_LISTINPUTS;
193 jcl->flags |= JCL_LISTOUTPUTS;
196 jcl->flags |= JCL_LISTPROGRAMS;
199 jcl->flags |= JCL_LISTSCRIPTS;
202 jcl->flags |= JCL_LISTVARIABLES;
207 jcl->roflags |= JCL_EXEC;
209 jcl->flags &= ~JCL_EXEC;
212 jcl->roflags |= JCL_RECURSE;
214 jcl->flags &= ~JCL_RECURSE;
217 t = &jcl->disc->odate;
233 t = &jcl->disc->rdate;
239 t = &jcl->disc->date;
257 if ((jcl->roflags & (JCL_MAPPED|f)) != (JCL_MAPPED|f))
259 if (!(jcl->roflags & JCL_MAPPED))
260 jcl->roflags |= f;
262 jcl->flags |= f;
264 jcl->flags &= ~f;
274 Jcl_t* jcl;
279 error_info.id = "jcl";
284 if (jcl = jclopen(NiL, NiL, JCL_EXEC|JCL_JOB|JCL_RECURSE|JCL_STANDARD|JCL_SCOPE, &state.disc))
286 while ((c = optget(argv, usage)) && optset(jcl, c, &state.disc));
290 while (jclsym(jcl, *argv, NiL, JCL_SYM_READONLY))
296 if (jclmap(jcl, p->arg, &state.disc))
301 if (!c && jclmap(jcl, NiL, &state.disc))
306 if (t = jclpath(jcl, s))
313 jcl->step->command = *argv;
314 while (!jclrun(jcl) && jcl->step->command && (jcl->step->command = *++argv));
317 if (!(c = jclclose(jcl)) && error_info.errors)