cdo/imp
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Create car, cdr and assign AM operations

Browse Source
This commit is contained in:
Camden Dixie O'Brien
2025-08-10 21:15:36 +01:00
parent eaef6f3cd3
commit 426d270318
4 changed files with 68 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
lib/am.c
View File

@@ -36,3 +36,20 @@ void am_append(am_t *am, am_reg_t list_reg, am_reg_t item_reg)
list->pair.car = am->regs[item_reg];
list->pair.cdr = expr_empty_list(am);
}
void am_car(am_t *am, am_reg_t dest, am_reg_t src)
{
assert(!am->regs[src]->is_atom);
am->regs[dest] = am->regs[src]->pair.car;
}
void am_cdr(am_t *am, am_reg_t dest, am_reg_t src)
{
assert(!am->regs[src]->is_atom);
am->regs[dest] = am->regs[src]->pair.cdr;
}
void am_assign(am_t *am, am_reg_t dest, am_reg_t src)
{
am->regs[dest] = am->regs[src];
}

19
lib/eval.c
View File

@@ -10,7 +10,7 @@ static void eval_atom(am_t *am)
case ATOM_TYPE_EMPTY_LIST:
case ATOM_TYPE_INTEGER:
case ATOM_TYPE_PRIM_PROC:
AM_VAL(am) = AM_EXPR(am);
am_assign(am, VAL, EXPR);
break;
case ATOM_TYPE_SYMBOL:
env_fetch(am);
@@ -21,23 +21,24 @@ static void eval_atom(am_t *am)
static void eval_list(am_t *am)
{
AM_ARGL(am) = expr_empty_list(am);
AM_UNEV(am) = AM_EXPR(am)->pair.cdr;
AM_EXPR(am) = AM_EXPR(am)->pair.car;
am_cdr(am, UNEV, EXPR);
am_car(am, EXPR, EXPR);
while (!AM_UNEV(am)->is_atom) {
am_push(am, EXPR);
AM_EXPR(am) = AM_UNEV(am)->pair.cdr;
am_push(am, EXPR);
am_push(am, ARGL);
AM_EXPR(am) = AM_UNEV(am)->pair.car;
am_car(am, EXPR, UNEV);
am_cdr(am, UNEV, UNEV);
am_push(am, UNEV);
eval(am);
am_pop(am, ARGL);
am_append(am, ARGL, VAL);
am_pop(am, UNEV);
am_pop(am, ARGL);
am_pop(am, EXPR);
am_append(am, ARGL, VAL);
}
assert(AM_EXPR(am)->is_atom);

3
lib/include/am.h
View File

@@ -32,5 +32,8 @@ void am_init(am_t *am);
void am_push(am_t *am, am_reg_t reg);
void am_pop(am_t *am, am_reg_t reg);
void am_append(am_t *am, am_reg_t list_reg, am_reg_t item_reg);
void am_car(am_t *am, am_reg_t dest, am_reg_t src);
void am_cdr(am_t *am, am_reg_t dest, am_reg_t src);
void am_assign(am_t *am, am_reg_t dest, am_reg_t src);
#endif