C++ (Cpp) assignment_variableの例

コード例 #1

ファイル: slip.c プロジェクト: stu/bootstrap-slip

pSlipObject eval_assignment(pSlip gd, pSlipObject exp, pSlipEnvironment env)
{
	pSlipObject a1;
	pSlipObject z1;
	pSlipObject z2;

	z1 = assignment_value(exp);
	assert(z1 != NULL);

	a1 = slip_eval(gd, z1, env);
	assert(a1 != NULL);

	z2 = assignment_variable(exp);
	assert(z2 != NULL);

	set_variable_value(gd, z2, a1, env);

	if (gd->running == SLIP_RUNNING)
		return gd->singleton_OKSymbol;
	else
		return gd->singleton_False;
}

コード例 #2

ファイル: eval.c プロジェクト: lienhua34/CSchemer

//one arg: exp
static cellpoint eval_assignment(void)
{
	//calls assignment_variable
	args_push(args_ref(1));
	reg = assignment_variable();
	stack_push(&vars_stack, reg);
	//compute assignment value
	args_push(args_ref(1));
	reg = assignment_value();
	args_push(a_false);
	args_push(reg);
	reg = eval();
	stack_push(&vars_stack, reg);
	//calls set_var_val
	args_push(current_env);
	args_push(stack_pop(&vars_stack));
	args_push(stack_pop(&vars_stack));
	set_var_val();
	
	args_pop(1);
	return make_symbol("ok");
}

コード例 #3

ファイル: repleval.c プロジェクト: AndrewRademacher/ptscheme

object *eval_assignment(object *exp, object *env) {
        set_variable_value(assignment_variable(exp), eval(assignment_value(exp), env), env);
        return ok_symbol();
}

コード例 #4

ファイル: eval.c プロジェクト: ingramj/bs

/**** Evaluation ****/
static object *eval_assignment(object *exp, object *env)
{
    return set_variable_value(assignment_variable(exp),
            bs_eval(assignment_value(exp), env),
            env);
}