Cross Reference: /ast/src/lib/libpp/ppcall.c

Lines Matching refs:sym
36  *  0 returned if tok==0 and sym->mac->value to be copied to output by caller
41 ppcall(register struct ppsymbol* sym, int tok)
62 	sym->flags |= SYM_NOTICED;
63 	if (mac = sym->macro)
66 		if ((sym->flags & SYM_PREDICATE) && (pp.state & (CONDITIONAL|WARN)) == (CONDITIONAL|WARN))
67 			error(1, "%s: macro definition overrides assertion: use #%s ...", sym->name, sym->name);
68 		if (sym->flags & SYM_DISABLED)
76 				error(1, "%s: macro recursion inhibited", sym->name);
80 		if ((sym->flags & SYM_PREDEFINED) && !(pp.mode & (HOSTED|INACTIVE)))
83 			if (*sym->name != '_' && !(pp.state & COMPATIBILITY))
85 			if (*sym->name != '_')
90 					error(1, "%s: obsolete predefined symbol expansion disabled", sym->name);
93 				error(1, "%s: obsolete predefined symbol expanded%s", sym->name, (pp.state & DIRECTIVE) ? "" : " outside of directive");
96 				error(1, "%s: predefined symbol expanded outside of directive", sym->name);
98 		debug((-5, "macro %s = %s", sym->name, mac->value));
100 			(*pp.macref)(sym, error_info.file, error_info.line, (pp.state & CONDITIONAL) ? REF_IF : REF_NORMAL, 0L);
138 								PUSH_TUPLE(sym, tp->token);
177 		if (sym->flags & SYM_FUNCTION)
191 				error(3, "%s: too many nested function-like macros", sym->name);
216 							error(1, "%s: macro arguments omitted", sym->name);
248 			sym->flags |= SYM_ACTIVE;
301 					error(3, "%s: too many nested function-like macros", sym->name);
328 					if (!n && (m++, (c < mac->arity - 1 || !(sym->flags & SYM_VARIADIC))))
346 								error(1, "%s: macro call argument %d is null", sym->name, c + 1);
365 							2, "%s: %s in macro argument list", sym->name, pptokchr(0));
398 					error(2, "%s: macro call starts and ends in different files", sym->name);
401 			sym->flags &= ~SYM_ACTIVE;
406 				if (p > mp->arg[0] && ++m || (sym->flags & SYM_VARIADIC))
408 				if (c != (n = mac->arity) && (c > 0 || n > 1) && !(sym->flags & SYM_EMPTY))
410 					if (!(sym->flags & SYM_VARIADIC))
411 						error(1, "%s: %d actual argument%s expected", sym->name, n, n == 1 ? "" : "s");
413 						error(1, "%s: at least %d actual argument%s expected", sym->name, n, n == 1 ? "" : "s");
429 		if (!tok && (sym->flags & SYM_NOEXPAND))
431 			if (sym->flags & SYM_FUNCTION)
437 			if (sym->flags & SYM_MULTILINE)
438 				PUSH_MULTILINE(sym);
440 				PUSH_MACRO(sym);
445 	if (ret < 0 && sym->hidden && !(pp.mode & EXPOSE) && !(pp.state & HEADER) && (pp.in->type == IN_FILE || pp.in->type == IN_MACRO || pp.in->type == IN_EXPAND))
450 		sfsprintf(pp.hidebuf, MAXTOKEN, "_%d_%s_hIDe", inp->index, sym->name);