From c26ffc484d30dce65754c0081baa5402346c703a Mon Sep 17 00:00:00 2001 From: c Date: Tue, 16 Apr 2024 15:19:57 -0400 Subject: One may now add and subtract integers. --- src/doer.c | 23 +++++++++++++++++++++-- src/include/doer.h | 4 ++++ 2 files changed, 25 insertions(+), 2 deletions(-) (limited to 'src') diff --git a/src/doer.c b/src/doer.c index 5262fb1..bc6d4bd 100644 --- a/src/doer.c +++ b/src/doer.c @@ -229,9 +229,9 @@ tree_t* blin_add(doer_t* doer) { tree_t* arg1 = args; tree_t* arg2 = arg1->data.carg.nxt; - doer->tree = arg1; + doer->tree = arg1->data.carg.val; int a = doer_eval_lint(doer); - doer->tree = arg2; + doer->tree = arg2->data.carg.val; int b = doer_eval_lint(doer); tree_t* newt = tree_init(TREE_TYPE_LINT, tree->parent); @@ -241,6 +241,25 @@ tree_t* blin_add(doer_t* doer) { return newt; } +tree_t* blin_sub(doer_t* doer) { + tree_t* tree = doer->tree; + + tree_t* args = tree->data.call.arg; + tree_t* arg1 = args; + tree_t* arg2 = arg1->data.carg.nxt; + + doer->tree = arg1->data.carg.val; + int a = doer_eval_lint(doer); + doer->tree = arg2->data.carg.val; + int b = doer_eval_lint(doer); + + tree_t* newt = tree_init(TREE_TYPE_LINT, tree->parent); + + newt->data.lint.val = a - b; + + return newt; +} + void doer_do_block(doer_t* doer) { if (!doer->tree) return; diff --git a/src/include/doer.h b/src/include/doer.h index 30b514e..14f0a31 100644 --- a/src/include/doer.h +++ b/src/include/doer.h @@ -72,6 +72,9 @@ static tree_type_t blin_str_cat_args[] = { TREE_TYPE_LSTR, TREE_TYPE_LSTR }; // `+`: Add two integers. tree_t* blin_add(doer_t* doer); static tree_type_t blin_add_args[] = { TREE_TYPE_LINT, TREE_TYPE_LINT }; +// `-`: Subtract two integers. +tree_t* blin_sub(doer_t* doer); +static tree_type_t blin_sub_args[] = { TREE_TYPE_LINT, TREE_TYPE_LINT }; void doer_do_call(doer_t* doer); tree_t* doer_do_call_blin(doer_t* doer); @@ -91,6 +94,7 @@ static blinf_t blinfs[] = { { blin_printl, TREE_TYPE_LSTR, blin_printl_args, "printl" }, { blin_str_cat, TREE_TYPE_LSTR, blin_str_cat_args, "str_cat" }, { blin_add, TREE_TYPE_LINT, blin_add_args, "+" }, + { blin_sub, TREE_TYPE_LINT, blin_sub_args, "-" }, }; #endif -- cgit v1.2.3