cpl.c

#include "sys.h"
#include "util.h"
#include "syscqct.h"

static Expr*
compilel(U *ctx, Expr* e)
{
	Expr *p;
	Expr *se;

	if(e == 0)
		return 0;
	switch(e->kind){
	case Eland:
		se = Zifelse(compilel(ctx, e->e1),
			     Zifelse(compilel(ctx, e->e2),
				     Zint(1),
				     Zint(0)),
			     Zint(0));
		putsrc(se, e->src);
		return se;
	case Elor:
		se = Zifelse(compilel(ctx, e->e1),
			     Zint(1),
			     Zifelse(compilel(ctx, e->e2),
				     Zint(1),
				     Zint(0)));
		putsrc(se, e->src);
		return se;
	case Eelist:
		p = e;
		while(p->kind == Eelist){
			sete1(p, compilel(ctx, p->e1));
			p = p->e2;
		}
		return e;
	default:
		sete1(e, compilel(ctx, e->e1));
		sete2(e, compilel(ctx, e->e2));
		sete3(e, compilel(ctx, e->e3));
		sete4(e, compilel(ctx, e->e4));
		return e;
	}
}

Expr*
docompilel(U *ctx, Expr *e)
{
	compilel(ctx, e);
	return e;
}

void
l1_cpl(VM *vm, Imm argc, Val *argv, Val *rv)
{
	U ctx;
	Expr *e;

	if(argc != 1)
		vmerr(vm, "wrong number of arguments to cpl");
	checkarg(vm, argv, 0, Qexpr);
	initctx(&ctx, vm);
	e = docompilel(&ctx, valexpr(argv[0]));
	if(e)
		*rv = mkvalexpr(e);
}