Cross Reference: /ast/src/lib/libexpr/exeval.c

Lines Matching defs:env
76 getdyn(Expr_t* ex, register Exnode_t* expr, void* env, Exassoc_t** assoc)
85 		v = eval(ex, expr->data.variable.index, env);
116 	void*		env;
143 			fmt->value = exeval(fmt->expr, node, fmt->env);
178 			fmt->value = exeval(fmt->expr, node, fmt->env);
182 			fmt->value = exeval(fmt->expr, node, fmt->env);
296 print(Expr_t* ex, Exnode_t* expr, void* env, Sfio_t* sp)
304 		v = eval(ex, expr->data.print.descriptor, env);
315 	fmt.env = env;
331 		v = eval(ex, x->arg->data.operand.left, env);
402 scan(Expr_t* ex, Exnode_t* expr, void* env, Sfio_t* sp)
413 			v = eval(ex, expr->data.scan.descriptor, env);
430 	fmt.env = env;
431 	u = eval(ex, expr->data.scan.format, env);
539 eval(Expr_t* ex, register Exnode_t* expr, void* env)
564 		v = eval(ex, x, env);
574 			r = getdyn(ex, x, env, &assoc);
578 				i = eval(ex, x->data.variable.index, env);
581 			r = (*ex->disc->getf)(ex, x, x->data.variable.symbol, x->data.variable.reference, env, (int)i.integer, ex->disc);
613 				i = eval(ex, x->data.variable.index, env);
616 			if ((*ex->disc->setf)(ex, x, x->data.variable.symbol, x->data.variable.reference, env, (int)i.integer, v, ex->disc) < 0)
623 		return getdyn(ex, expr, env, &assoc);
625 		v = eval(ex, x, env);
631 		v = eval(ex, x, env);
633 			eval(ex, expr->data.operand.right->data.operand.left, env);
635 			eval(ex, expr->data.operand.right->data.operand.right, env);
643 			r = eval(ex, x, env);
651 				eval(ex, expr->data.operand.right, env);
659 				eval(ex, expr->data.operand.left, env);
663 		v = eval(ex, x, env);
684 						if ((ex->disc->version >= 19981111L && ex->disc->matchf) ? (*ex->disc->matchf)(ex, x, (*t)->string, expr->data.operand.left, v.string, env, ex->disc) : strmatch((*t)->string, v.string))
702 				r = eval(ex, x->data.select.statement, env);
712 			r = eval(ex, a, env);
729 				eval(ex, expr->data.generate.statement, env);
739 			r = (*ex->disc->getf)(ex, expr, expr->data.generate.array->data.variable.symbol, expr->data.generate.array->data.variable.reference, env, 0, ex->disc);
743 				eval(ex, expr->data.generate.statement, env);
759 				args[n++] = eval(ex, x->data.operand.left, env);
762 				a->data.operand.left->data.variable.symbol->value->data.constant.value = eval(ex, x->data.operand.left, env);
771 		v = exeval(ex, expr->data.call.procedure->value->data.procedure.body, env);
777 		args[n++].string = (char*)env;
779 			args[n++] = eval(ex, x->data.operand.left, env);
783 			i = eval(ex, expr->data.variable.index, env);
786 		return (*ex->disc->getf)(ex, expr, expr->data.variable.symbol, expr->data.variable.reference, env, (int)i.integer, ex->disc);
791 		v.integer = print(ex, expr, env, NiL);
794 		print(ex, expr, env, sfstderr);
798 		ex->loopret = eval(ex, x, env);
804 		v.integer = scan(ex, expr, env, NiL);
807 		print(ex, expr, env, ex->tmp);
811 		v = eval(ex, expr->data.operand.right, env);
816 				v = getdyn(ex, x, env, &assoc);
820 					v = eval(ex, x->data.variable.index, env);
823 				v = (*ex->disc->getf)(ex, x, x->data.variable.symbol, x->data.variable.reference, env, (int)v.integer, ex->disc);
948 			getdyn(ex, x, env, &assoc);
955 		v = eval(ex, x, env);
958 			v = eval(ex, expr->data.operand.left, env);
962 		return expr ? eval(ex, expr, env) : v;
964 		v = eval(ex, x, env);
965 		return v.integer ? eval(ex, expr->data.operand.right->data.operand.left, env) : eval(ex, expr->data.operand.right->data.operand.right, env);
967 		v = eval(ex, x, env);
968 		return v.integer ? eval(ex, expr->data.operand.right, env) : v;
970 		v = eval(ex, x, env);
971 		return v.integer ? v : eval(ex, expr->data.operand.right, env);
973 	v = eval(ex, x, env);
975 		r = eval(ex, x, env);
1249 			v.integer = ((v.string && r.string) ? ((ex->disc->version >= 19981111L && ex->disc->matchf) ? (*ex->disc->matchf)(ex, expr->data.operand.left, v.string, expr->data.operand.right, r.string, env, ex->disc) : strmatch(v.string, r.string)) : (v.string == r.string)) == (expr->op == EQ);
1301 exeval(Expr_t* ex, Exnode_t* expr, void* env)
1323 		v = eval(ex, expr, env);