personal/mumble
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

add comparator function

Browse Source
This commit is contained in:
NunoSempere 2023-05-09 23:10:06 -04:00
parent 5a0bcbefc6
commit 44853b0e1d
2 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
mumble
View File

Binary file not shown.

20
src/mumble.c
View File

@ -876,6 +876,25 @@ lispval* builtin_equal(lispval* v, lispenv* e)
}
lispval* builtin_greater_than(lispval* v, lispenv* e)
{
// ifelse 1 {a} b
LISPVAL_ASSERT(v->count == 2, "Error: function = takes two numeric arguments. Try (= 1 2)");
lispval* a = v->cell[0];
lispval* b = v->cell[1];
LISPVAL_ASSERT(a->type == LISPVAL_NUM, "Error: Functio = only takes numeric arguments.");
LISPVAL_ASSERT(b->type == LISPVAL_NUM, "Error: Functio = only takes numeric arguments.");
if(a->num > b->num){
return lispval_num(1);
}else {
return lispval_num(0);
}
}
// Simple math ops
lispval* builtin_math_ops(char* op, lispval* v, lispenv* e)
{
@ -977,6 +996,7 @@ void lispenv_add_builtins(lispenv* env)
lispenv_add_builtin("@", builtin_define_lambda, env);
lispenv_add_builtin("ifelse", builtin_ifelse, env);
lispenv_add_builtin("=", builtin_equal, env);
lispenv_add_builtin(">", builtin_greater_than, env);
}
// Evaluate the lispval