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

Make AM registers into an array

Browse Source
This commit is contained in:
Camden Dixie O'Brien
2025-08-10 20:30:07 +01:00
parent 52a42d2937
commit 57c39fd00b
14 changed files with 311 additions and 288 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
lib/prim.c
View File

@@ -13,49 +13,49 @@ typedef struct {
static void add(am_t *am)
{
assert(am->argl);
assert(AM_ARGL(am));
int64_t total = 0;
for (expr_t *list = am->argl; !list->is_atom; list = list->pair.cdr) {
for (expr_t *list = AM_ARGL(am); !list->is_atom; list = list->pair.cdr) {
assert(list->pair.car->is_atom);
assert(list->pair.car->atom.type == ATOM_TYPE_INTEGER);
total += list->pair.car->atom.integer;
}
am->val = expr_integer(am, total);
AM_VAL(am) = expr_integer(am, total);
}
static void mul(am_t *am)
{
assert(am->argl);
assert(AM_ARGL(am));
int64_t total = 1;
for (expr_t *list = am->argl; !list->is_atom; list = list->pair.cdr) {
for (expr_t *list = AM_ARGL(am); !list->is_atom; list = list->pair.cdr) {
assert(list->pair.car->is_atom);
assert(list->pair.car->atom.type == ATOM_TYPE_INTEGER);
total *= list->pair.car->atom.integer;
}
am->val = expr_integer(am, total);
AM_VAL(am) = expr_integer(am, total);
}
static void sub(am_t *am)
{
assert(am->argl);
assert(!am->argl->is_atom);
assert(am->argl->pair.car->is_atom);
assert(am->argl->pair.car->atom.type == ATOM_TYPE_INTEGER);
assert(AM_ARGL(am));
assert(!AM_ARGL(am)->is_atom);
assert(AM_ARGL(am)->pair.car->is_atom);
assert(AM_ARGL(am)->pair.car->atom.type == ATOM_TYPE_INTEGER);
int64_t total = am->argl->pair.car->atom.integer;
if (!am->argl->is_atom && am->argl->pair.cdr->is_atom) {
int64_t total = AM_ARGL(am)->pair.car->atom.integer;
if (!AM_ARGL(am)->is_atom && AM_ARGL(am)->pair.cdr->is_atom) {
total *= -1;
} else {
for (expr_t *list = am->argl->pair.cdr; !list->is_atom;
for (expr_t *list = AM_ARGL(am)->pair.cdr; !list->is_atom;
list = list->pair.cdr) {
assert(list->pair.car->is_atom);
assert(list->pair.car->atom.type == ATOM_TYPE_INTEGER);
total -= list->pair.car->atom.integer;
}
}
am->val = expr_integer(am, total);
AM_VAL(am) = expr_integer(am, total);
}
static const prim_table_entry_t prim_table[] = {
@@ -67,8 +67,8 @@ static const prim_table_entry_t prim_table[] = {
void prim_load(am_t *am)
{
for (unsigned i = 0; i < NELEMS(prim_table); ++i) {
am->expr = expr_str_symbol(am, prim_table[i].name);
am->val = expr_prim_proc(am, prim_table[i].prim_proc);
AM_EXPR(am) = expr_str_symbol(am, prim_table[i].name);
AM_VAL(am) = expr_prim_proc(am, prim_table[i].prim_proc);
env_set(am);
}
}