aboutsummaryrefslogtreecommitdiff
path: root/ell.c
diff options
context:
space:
mode:
Diffstat (limited to 'ell.c')
-rw-r--r--ell.c16
1 files changed, 16 insertions, 0 deletions
diff --git a/ell.c b/ell.c
index a73d0a4..8234432 100644
--- a/ell.c
+++ b/ell.c
@@ -1029,6 +1029,21 @@ defn (fn_system) {
return check (ctx, (*result = new_number (system (command->value))));
}
+defn (fn_parse) {
+ struct item *body = args;
+ if (!body || body->type != ITEM_STRING)
+ return set_error (ctx, "first argument must be string");
+
+ struct parser parser;
+ parser_init (&parser, args->value, args->len);
+ const char *e = NULL;
+ bool ok = check (ctx, (*result = new_list (parser_run (&parser, &e))));
+ if (e)
+ ok = set_error (ctx, "%s", e);
+ parser_free (&parser);
+ return ok;
+}
+
defn (fn_plus) {
double res = 0.0;
for (; args; args = args->next) {
@@ -1205,6 +1220,7 @@ init_runtime_library (struct context *ctx) {
&& native_register (ctx, "print", fn_print)
&& native_register (ctx, "..", fn_concatenate)
&& native_register (ctx, "system", fn_system)
+ && native_register (ctx, "parse", fn_parse)
&& native_register (ctx, "+", fn_plus)
&& native_register (ctx, "-", fn_minus)
&& native_register (ctx, "*", fn_multiply)