Cross Reference: /ast/src/lib/libjcl/parse.c

Lines Matching defs:step
26  * jcl step parser from the description in
1016 					if (!(x->step = vmnewof(jcl->vs, 0, char, s - t, 1)))
1021 					memcpy(x->step, t, s - t);
1155 DD(register Jcl_t* jcl, register Jclstep_t* step, char* name)
1173 	if (!step->name && !jcl->lastdd && !DDLIB(name))
1182 		if (dd = (Jcldd_t*)dtmatch(step->dd, name))
1249 						sfprintf(jcl->tp, "%s.%s", step->name, val);
1280 				if (!streq(val, step->name))
1283 						(*jcl->disc->errorf)(NiL, jcl->disc, 2, "%s: step back reference not supported", val);
1294 			pd = (Jcldd_t*)dtmatch(step->dd, val);
1552 	dtinsert(step->dd, dd);
1561 OUTPUT(register Jcl_t* jcl, register Jclstep_t* step, char* name)
1573 	if (step->name)
1575 		sfprintf(jcl->tp, "%s.%s", step->name, name);
1941 parse(register Jcl_t* jcl, register Jclstep_t* step)
1974 			if (DD(jcl, step, name))
1979 			if (step->name || jcl->vs == jcl->vm)
2004 			if (step->name || jcl->vs == jcl->vm)
2014 			if (step->name || jcl->vs == jcl->vm)
2019 			if (!(step->name = stash(jcl, jcl->vs, name, 0)))
2023 				if (val && (streq(tok, "PGM") && (step->flags |= JCL_PGM) || streq(tok, "PROC")) || !val && !step->command && (val = tok))
2025 					if (!(step->command = stash(jcl, jcl->vs, val, 0)))
2027 					if (!(step->flags & JCL_PGM))
2028 						step->flags |= JCL_PROC;
2034 						if (*val && !(step->cond = cond(jcl, val, NiL)))
2039 						if (*val && !(step->parm = stash(jcl, jcl->vs, val, 0)))
2049 			if (step->name || jcl->vs == jcl->vm)
2104 			if (OUTPUT(jcl, step, name))
2159  * return the next jcl job step
2165 	register Jclstep_t*	step;
2177 		step = jcl->step;
2183 		memset(step, 0, sizeof(*step));
2184 		step->dd = jcl->ds;
2185 		step->syms = jcl->ss;
2186 		dtclear(step->dd);
2187 		step->vm = jcl->vs;
2191 		if (parse(jcl, step))
2193 		if (!step->name && jcl->vs != jcl->vm)
2197 		if (step->name)
2199 				for (dd = (Jcldd_t*)dtfirst(scope->step->dd); dd; dd = (Jcldd_t*)dtnext(scope->step->dd, dd))
2200 					if (dd->reference && strneq(dd->name, step->name, dd->reference) && dd->name[dd->reference] == '.')
2214 						i = parse(jcl, step);
2223 			for (dd = (Jcldd_t*)dtfirst(step->dd); dd; dd = (Jcldd_t*)dtnext(step->dd, dd))
2235 		return step;
2290  * set step return code
2295 jclrc(register Jcl_t* jcl, register Jclstep_t* step, int rc)
2307 	if (step && step->name)
2309 		if (!(rp = (Rc_t*)dtmatch(jcl->rcs, step->name)))
2311 			if (!(rp = vmnewof(jcl->vm, 0, Rc_t, 1, strlen(step->name))))
2316 			strcpy(rp->name, step->name);