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

Lines Matching defs:tok
92  * push back one token or entire card if tok==0
96 xel(register Jcl_t* jcl, register char* tok)
98 	if (tok)
101 		jcl->peek = tok;
922 	register char*	tok;
925 		while ((tok = lex(jcl)) && tok != END);
1069 	char*	tok;
1072 	if (!(tok = lex(jcl)))
1074 	else if (tok == END)
1084 	return tok;
1157 	register char*		tok;
1194 		else if (tok = strchr(dd->name, '.'))
1196 			dd->reference = tok - dd->name;
1228 	while (tok = arg(jcl, &val))
1236 			if (streq(tok, "OUTPUT"))
1306 		if (val && (streq(tok, "DSN") || streq(tok, "DSNAME")) || !val && (streq(tok, "DUMMY") && (val = dummy) && (dd->flags |= JCL_DD_DUMMY) || !jcl->pushed && tok != ST && (val = tok)))
1339 			if (streq(tok, "AVGREC"))
1357 			else if (streq(tok, "DCB"))
1368 			else if (streq(tok, "DDNAME"))
1373 			else if (streq(tok, "DISP"))
1377 				else if (tok = jclparm(&val))
1379 					if (streq(tok, "NEW"))
1381 					else if (streq(tok, "OLD"))
1383 					else if (streq(tok, "SHR"))
1385 					else if (streq(tok, "MOD"))
1387 					else if (*tok && jcl->disc->errorf && (jcl->flags & JCL_WARN))
1388 						(*jcl->disc->errorf)(NiL, jcl->disc, 1, "%s: unknown DISP", tok);
1389 					for (i = 1; i < elementsof(dd->disp) && (tok = jclparm(&val)); i++)
1391 						if (streq(tok, "DELETE"))
1393 						else if (streq(tok, "KEEP"))
1395 						else if (streq(tok, "PASS"))
1397 						else if (streq(tok, "CATLG"))
1399 						else if (streq(tok, "UNCATLG"))
1401 						else if (*tok && jcl->disc->errorf && (jcl->flags & JCL_WARN))
1402 							(*jcl->disc->errorf)(NiL, jcl->disc, 1, "%s: unknown DISP", tok);
1406 			else if (streq(tok, "DLM"))
1414 			else if (streq(tok, "LRECL"))
1416 			else if (streq(tok, "RECFM"))
1459 			else if (streq(tok, "SPACE"))
1496 			else if (streq(tok, "SUBSYS"))
1502 		else if (tok == ST)
1504 			while (tok = card(jcl))
1506 				if (tok[0] == d1 && tok[1] == d2 || tok[0] == d0 && tok[1] == d1 && tok[2] == d2)
1508 				sfputr(jcl->tp, tok, '\n');
1516 			jcl->record = tok;
1518 			if (tok)
1565 	char*		tok;
1592 	while (tok = arg(jcl, &val))
1594 		sfprintf(jcl->tp, ",%s", tok);
1943 	register char*		tok;
1953 	while (tok = lex(jcl))
1955 		if (tok != SS)
1957 			syntax(jcl, 2, tok, SS, NiL);
2021 			while (tok = arg(jcl, &val))
2023 				if (val && (streq(tok, "PGM") && (step->flags |= JCL_PGM) || streq(tok, "PROC")) || !val && !step->command && (val = tok))
2032 					if (streq(tok, "COND"))
2037 					else if (streq(tok, "PARM"))
2042 					else if (!jclsym(jcl, tok, val, 0))
2074 			while (tok = arg(jcl, &val))
2075 				if (val && streq(tok, "MEMBER") && (!(tok = jclfind(jcl, val, JCL_PROC, 2, &sp)) || jclpush(jcl, sp, tok, 0)))
2080 			while (tok = arg(jcl, &val))
2081 				if (val && streq(tok, "ORDER"))
2082 					while (tok = jclparm(&val))
2083 						if (jclinclude(jcl, tok, JCL_PROC, NiL))
2090 			while (tok = arg(jcl, &val))
2093 					if (streq(tok, "COND"))
2098 					else if (!lookup(jcl, tok, val, 0, DEFAULT))
2117 				while (tok = card(jcl))
2119 					if (sfvalue(jcl->sp) > 10 && tok[0] == '/' && tok[1] == '/' && tok[2] != '*')
2121 						for (val = tok + 2; isspace(*val); val++);
2125 					sfputr(jcl->tp, tok, '\n');
2136 				while (tok = arg(jcl, &val))
2139 						if (*tok == '?' && *(tok + strlen(tok) - 1) == '?')
2141 							if (streq(tok + 1, "ABEND?"))
2143 							else if (streq(tok + 1, "RC?"))
2146 						else if (!lookup(jcl, tok, val, 0, i))