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

Lines Matching refs:symbol
91 		if (!(b = (Exassoc_t*)dtmatch((Dt_t*)expr->data.variable.symbol->local.pointer, v.string)))
96 			dtinsert((Dt_t*)expr->data.variable.symbol->local.pointer, b);
101 			if (expr->data.variable.symbol->type == STRING && !b->value.string)
102 				b->value = exzero(expr->data.variable.symbol->type);
105 		v = exzero(expr->data.variable.symbol->type);
109 	return expr->data.variable.symbol->value->data.constant.value;
365 			exerror("scanf: %s: floating variable address argument expected", node->data.variable.symbol->name);
369 		*((void**)vp) = &node->data.variable.symbol->value->data.constant.value;
374 			exerror("scanf: %s: string variable address argument expected", node->data.variable.symbol->name);
377 		if (node->data.variable.symbol->value->data.constant.value.string == expr.nullstring)
378 			node->data.variable.symbol->value->data.constant.value.string = 0;
380 		*((void**)vp) = node->data.variable.symbol->value->data.constant.value.string = vmnewof(fmt->expr->vm, node->data.variable.symbol->value->data.constant.value.string, char, fmt->fmt.size, 0);
385 			exerror("scanf: %s: integer variable address argument expected", node->data.variable.symbol->name);
389 		*((void**)vp) = &node->data.variable.symbol->value->data.constant.value;
436 		exerror("scanf: %s: too many arguments", fmt.actuals->data.operand.left->data.variable.symbol->name);
581 			r = (*ex->disc->getf)(ex, x, x->data.variable.symbol, x->data.variable.reference, env, (int)i.integer, ex->disc);
602 				if (e = assoc ? assoc->value.string : x->data.variable.symbol->value->data.constant.value.string)
608 				x->data.variable.symbol->value->data.constant.value = v;
616 			if ((*ex->disc->setf)(ex, x, x->data.variable.symbol, x->data.variable.reference, env, (int)i.integer, v, ex->disc) < 0)
617 				exerror("%s: cannot set value", x->data.variable.symbol->name);
722 			for (assoc = (Exassoc_t*)dtfirst((Dt_t*)expr->data.generate.array->data.variable.symbol->local.pointer); assoc; assoc = (Exassoc_t*)dtnext((Dt_t*)expr->data.generate.array->data.variable.symbol->local.pointer, assoc))
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);
758 				save[n] = a->data.operand.left->data.variable.symbol->value->data.constant.value;
762 				a->data.operand.left->data.variable.symbol->value->data.constant.value = eval(ex, x->data.operand.left, env);
766 			a->data.operand.left->data.variable.symbol->value->data.constant.value = args[n++];
773 			a->data.operand.left->data.variable.symbol->value->data.constant.value = save[n++];
780 		return (*ex->disc->getf)(ex, expr->data.operand.left, expr->data.operand.left->data.variable.symbol, expr->data.operand.left->data.variable.reference, args+1, EX_CALL, ex->disc);
786 		return (*ex->disc->getf)(ex, expr, expr->data.variable.symbol, expr->data.variable.reference, env, (int)i.integer, ex->disc);
823 				v = (*ex->disc->getf)(ex, x, x->data.variable.symbol, x->data.variable.reference, env, (int)v.integer, ex->disc);
992 			else if ((*ex->disc->convertf)(ex, &tmp, STRING, expr->data.operand.right ? expr->data.operand.right->data.variable.symbol : (Exid_t*)0, 0, ex->disc))
993 				exerror("%s: cannot convert value to string", expr->data.operand.left->data.variable.symbol->name);
999 			if ((*ex->disc->convertf)(ex, &tmp, expr->type, expr->data.operand.right ? expr->data.operand.right->data.variable.symbol : (Exid_t*)0, 0, ex->disc))
1000 				exerror("%s: cannot convert floating value to external", tmp.data.variable.symbol->name);
1074 			if ((*ex->disc->convertf)(ex, &tmp, FLOATING, expr->data.operand.right ? expr->data.operand.right->data.variable.symbol : (Exid_t*)0, 0, ex->disc))
1075 				exerror("%s: cannot convert value to floating", expr->data.operand.left->data.variable.symbol->name);
1081 			if ((*ex->disc->convertf)(ex, &tmp, INTEGER, expr->data.operand.right ? expr->data.operand.right->data.variable.symbol : (Exid_t*)0, 0, ex->disc))
1082 				exerror("%s: cannot convert value to integer", expr->data.operand.left->data.variable.symbol->name);
1088 			if ((*ex->disc->convertf)(ex, &tmp, STRING, expr->data.operand.right ? expr->data.operand.right->data.variable.symbol : (Exid_t*)0, 0, ex->disc))
1089 				exerror("%s: cannot convert value to string", expr->data.operand.left->data.variable.symbol->name);
1136 			else if ((*ex->disc->convertf)(ex, &tmp, STRING, expr->data.operand.right ? expr->data.operand.right->data.variable.symbol : (Exid_t*)0, 0, ex->disc))
1137 				exerror("%s: cannot convert value to string", expr->data.operand.left->data.variable.symbol->name);
1143 			if ((*ex->disc->convertf)(ex, &tmp, expr->type, expr->data.operand.right ? expr->data.operand.right->data.variable.symbol : (Exid_t*)0, 0, ex->disc))
1144 				exerror("%s: cannot convert integer value to external", tmp.data.variable.symbol->name);
1221 			if ((*ex->disc->convertf)(ex, &tmp, FLOATING, expr->data.operand.right ? expr->data.operand.right->data.variable.symbol : (Exid_t*)0, 0, ex->disc))
1232 			if ((*ex->disc->convertf)(ex, &tmp, INTEGER, expr->data.operand.right ? expr->data.operand.right->data.variable.symbol : (Exid_t*)0, 0, ex->disc))
1243 			if ((*ex->disc->convertf)(ex, &tmp, expr->type, expr->data.operand.right ? expr->data.operand.right->data.variable.symbol : (Exid_t*)0, 0, ex->disc))
1244 				exerror("%s: cannot convert string value to external", tmp.data.variable.symbol->name);