p/ell
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Add boolean operators

Browse Source
This commit is contained in:
Přemysl Eric Janouch 2017-05-21 10:39:39 +02:00
parent 792deba5f3
commit c8e3e2eed6
Signed by: p
GPG Key ID: B715679E3A361BE6
1 changed files with 26 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
ell.c
View File

@ -923,6 +923,8 @@ truthy (struct item *item) {
&& ((item->type == ITEM_STRING && item->len != 0) || item->head);
}
static struct item * new_boolean (bool b) { return new_string ("1", b); }
// - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
defn (fn_set) {
@ -1137,6 +1139,26 @@ defn (fn_divide) {
return check (ctx, (*result = new_number (res)));
}
defn (fn_not) {
if (!args)
return set_error (ctx, "missing argument");
return check (ctx, (*result = new_boolean (!truthy (args))));
}
defn (fn_and) {
bool res = true;
for (; args; args = args->next)
res &= truthy (args);
return check (ctx, (*result = new_boolean (res)));
}
defn (fn_or) {
bool res = false;
for (; args; args = args->next)
res |= truthy (args);
return check (ctx, (*result = new_boolean (res)));
}
// - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
static bool
@ -1184,7 +1206,10 @@ init_runtime_library (struct context *ctx) {
&& native_register (ctx, "+", fn_plus)
&& native_register (ctx, "-", fn_minus)
&& native_register (ctx, "*", fn_multiply)
&& native_register (ctx, "/", fn_divide);
&& native_register (ctx, "/", fn_divide)
&& native_register (ctx, "not", fn_not)
&& native_register (ctx, "and", fn_and)
&& native_register (ctx, "or", fn_or);
}
// --- Main --------------------------------------------------------------------