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

Add arithmetics

Browse Source
This commit is contained in:
Přemysl Eric Janouch 2017-05-21 10:24:14 +02:00
parent 16a4c3b21a
commit 9eb2967340
Signed by: p
GPG Key ID: B715679E3A361BE6
1 changed files with 49 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
ell.c
View File

@ -1093,6 +1093,50 @@ defn (fn_system) {
return check (ctx, (*result = new_format ("%d", system (command->value))));
}
defn (fn_plus) {
double res = 0.0;
for (; args; args = args->next) {
if (args->type != ITEM_STRING)
return set_error (ctx, "arguments must be strings");
res += strtod (args->value, NULL);
}
return check (ctx, (*result = new_format ("%f", res)));
}
defn (fn_minus) {
double res = -0.0;
for (; args; args = args->next) {
if (args->type != ITEM_STRING)
return set_error (ctx, "arguments must be strings");
res -= strtod (args->value, NULL);
}
return check (ctx, (*result = new_format ("%f", res)));
}
defn (fn_multiply) {
double res = 1.0;
for (; args; args = args->next) {
if (args->type != ITEM_STRING)
return set_error (ctx, "arguments must be strings");
res *= strtod (args->value, NULL);
}
return check (ctx, (*result = new_format ("%f", res)));
}
defn (fn_divide) {
if (!args || args->type != ITEM_STRING)
return set_error (ctx, "first argument must be string");
double res = strtod (args->value, NULL), x;
for (args = args->next; args; args = args->next) {
if (args->type != ITEM_STRING)
return set_error (ctx, "arguments must be strings");
if (!(x = strtod (args->value, NULL)))
return set_error (ctx, "division by zero");
res /= x;
}
return check (ctx, (*result = new_format ("%f", res)));
}
// - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
static bool
@ -1136,7 +1180,11 @@ init_runtime_library (struct context *ctx) {
&& native_register (ctx, "filter", fn_filter)
&& native_register (ctx, "print", fn_print)
&& native_register (ctx, "..", fn_concatenate)
&& native_register (ctx, "system", fn_system);
&& native_register (ctx, "system", fn_system)
&& native_register (ctx, "+", fn_plus)
&& native_register (ctx, "-", fn_minus)
&& native_register (ctx, "*", fn_multiply)
&& native_register (ctx, "/", fn_divide);
}
// --- Main --------------------------------------------------------------------