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

Add call AM operation

Browse Source
This commit is contained in:
Camden Dixie O'Brien
2025-08-10 21:33:25 +01:00
parent 426d270318
commit 167e91d816
4 changed files with 34 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
lib/am.c
View File

@@ -53,3 +53,11 @@ void am_assign(am_t *am, am_reg_t dest, am_reg_t src)
{
am->regs[dest] = am->regs[src];
}
void am_call(am_t *am, am_reg_t proc)
{
assert(am->regs[proc]->is_atom);
assert(am->regs[proc]->atom.type == ATOM_TYPE_PRIM_PROC);
assert(am->regs[proc]->atom.prim_proc != NULL);
am->regs[proc]->atom.prim_proc(am);
}

8
lib/eval.c
View File

@@ -41,14 +41,8 @@ static void eval_list(am_t *am)
am_append(am, ARGL, VAL);
}
assert(AM_EXPR(am)->is_atom);
assert(AM_EXPR(am)->atom.type == ATOM_TYPE_SYMBOL);
env_fetch(am);
assert(AM_VAL(am)->is_atom);
assert(AM_VAL(am)->atom.type == ATOM_TYPE_PRIM_PROC);
assert(AM_VAL(am)->atom.prim_proc != NULL);
AM_VAL(am)->atom.prim_proc(am);
am_call(am, VAL);
}
void eval(am_t *am)

1
lib/include/am.h
View File

@@ -35,5 +35,6 @@ 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);
void am_call(am_t *am, am_reg_t proc);
#endif

24
tests/am_tests.c
View File

@@ -6,10 +6,18 @@
#define CADR(expr) CAR(CDR(expr))
static am_t am;
static bool test_prim_proc_called;
static void test_prim_proc(am_t *am)
{
(void)am;
test_prim_proc_called = true;
}
void setUp(void)
{
am_init(&am);
test_prim_proc_called = false;
}
void tearDown(void)
@@ -116,6 +124,20 @@ static void test_assign_expr_to_val(void)
TEST_ASSERT_EQUAL(42, am.regs[EXPR]->atom.integer);
}
static void test_call_prim_proc_val(void)
{
am.regs[VAL] = expr_prim_proc(&am, test_prim_proc);
am_call(&am, VAL);
TEST_ASSERT_TRUE(test_prim_proc_called);
}
static void test_call_prim_proc_expr(void)
{
am.regs[EXPR] = expr_prim_proc(&am, test_prim_proc);
am_call(&am, EXPR);
TEST_ASSERT_TRUE(test_prim_proc_called);
}
int main(void)
{
UNITY_BEGIN();
@@ -126,5 +148,7 @@ int main(void)
RUN_TEST(test_car_of_expr_pair_1_2);
RUN_TEST(test_cdr_of_expr_pair_1_2);
RUN_TEST(test_assign_expr_to_val);
RUN_TEST(test_call_prim_proc_val);
RUN_TEST(test_call_prim_proc_expr);
return UNITY_END();
}