Cross Reference: /ast/src/lib/libexpr/exgram.h

Lines Matching refs:expr
38 #define exlex()		extoken(expr.program)
41 #define QUALIFY(r,s)	((r)&&(expr.program->disc->flags&EX_QUALIFY)?qualify(r,s):(s))
46 Exstate_t		expr;
319 	sfprintf(expr.program->tmp, "%s.%s", ref->symbol->name, sym->name);
320 	s = exstash(expr.program->tmp, NiL);
321 	if (!(x = (Exid_t*)dtmatch(expr.program->symbols, s)))
327 			dtinsert(expr.program->symbols, x);
351 	x = exnewnode(expr.program, ID, 0, 0, NiL, NiL);
366 			args->data.operand.left = excast(expr.program, args->data.operand.left, type, NiL, num);
397 		x = ALLOCATE(expr.program, Print_t);
406 		sfputc(expr.program->tmp, *s);
414 				sfputc(expr.program->tmp, '%');
420 		q = ALLOCATE(expr.program, Print_t);
458 						sfputc(expr.program->tmp, c);
502 					n = sfstrtell(expr.program->tmp);
503 					sfputc(expr.program->tmp, c);
508 						sfputc(expr.program->tmp, c);
516 					sfstrseek(expr.program->tmp, n, SEEK_SET);
523 				sfputc(expr.program->tmp, c);
526 			sfputc(expr.program->tmp, c);
543 				sfputc(expr.program->tmp, *s);
556 					x->arg = exnewnode(expr.program, x->arg->type == STRING ? S2F : INTEGRAL(x->arg->type) ? I2F : X2F, 0, FLOATING, x->arg, x->arg->op == ID ? x->arg : (Exnode_t*)0);
561 					x->arg = exnewnode(expr.program, x->arg->type == STRING ? S2I : x->arg->type == FLOATING ? F2I : X2I, 0, INTEGER, x->arg, x->arg->op == ID ? x->arg : (Exnode_t*)0);
567 					if (x->arg->op == CONSTANT && x->arg->data.constant.reference && expr.program->disc->convertf)
569 						if ((*expr.program->disc->convertf)(expr.program, x->arg, STRING, x->arg->data.constant.reference, 0, expr.program->disc) < 0)
571 						else x->arg->data.constant.value.string = vmstrdup(expr.program->vm, x->arg->data.constant.value.string);
573 					else if (!expr.program->disc->convertf || x->arg->op != ID && x->arg->op != DYNAMIC && x->arg->op != F2X && x->arg->op != I2X && x->arg->op != S2X)
576 						x->arg = exnewnode(expr.program, x->arg->type == FLOATING ? F2S : INTEGRAL(x->arg->type) ? I2S : X2S, 0, STRING, x->arg, x->arg->op == ID ? x->arg : (Exnode_t*)0);
582 		x->format = exstash(expr.program->tmp, expr.program->vm);
590 	sfstrseek(expr.program->tmp, 0, SEEK_SET);
611 		p->input = &expr.null;
653 	p->program = expr.program;
654 	expr.program = p;
695 		expr.program = p->program;
724 	if (expr.statics)
730 				if (!--expr.statics)
733 		expr.statics = 0;