sam/klisp
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Added if function. takes 3 arguments <number> <q expr if not zero> <q expr if zero>

Browse Source
This commit is contained in:
Sam Stevens
2014-05-29 16:35:32 +01:00
parent d4e84782ef
commit 147c68ccde
2 changed files with 22 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
functions.c
View File

@@ -36,6 +36,7 @@ void lenv_add_builtin_funcs(lenv* env) {
lenv_add_builtin(env, "join", builtin_join);
lenv_add_builtin(env, "head", builtin_head);
lenv_add_builtin(env, "tail", builtin_tail);
lenv_add_builtin(env, "if", builtin_if);
//ENV Functions
lenv_add_builtin(env, "def", builtin_def);
@@ -227,6 +228,26 @@ lval* builtin_tail(lenv* env, lval* val){
lval_delete(lval_pop(x, 0));
return x;
}
lval* builtin_if(lenv* env, lval* val) {
LASSERT_ARG_COUNT("if", val, val, 3);
LASSERT_TYPE("if", val, val->cell_list[0], LVAL_NUM);
LASSERT_TYPE("if", val, val->cell_list[1], LVAL_Q_EXPR);
LASSERT_TYPE("if", val, val->cell_list[2], LVAL_Q_EXPR);
lval* result = NULL;
val->cell_list[1]->type = LVAL_S_EXPR;
val->cell_list[2]->type = LVAL_S_EXPR;
if (fabs(val->cell_list[0]->data.num) > DBL_EPSILON) { //Non Zero == True
result = eval(env, lval_pop(val, 1));
} else { //Zero == False
result = eval(env, lval_pop(val, 2));
}
lval_delete(val);
return result;
}
//End List/Util functions
//Start ENV Functions