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

Add "parse"

This commit is contained in:
Přemysl Eric Janouch 2017-05-25 13:50:26 +02:00
parent 1f71c5202c
commit 3929106e5d
Signed by: p
GPG Key ID: B715679E3A361BE6
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
ell.c
View File

@ -1029,6 +1029,21 @@ defn (fn_system) {
return check (ctx, (*result = new_number (system (command->value)))); 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) { defn (fn_plus) {
double res = 0.0; double res = 0.0;
for (; args; args = args->next) { for (; args; args = args->next) {
@ -1205,6 +1220,7 @@ init_runtime_library (struct context *ctx) {
&& native_register (ctx, "print", fn_print) && native_register (ctx, "print", fn_print)
&& native_register (ctx, "..", fn_concatenate) && native_register (ctx, "..", fn_concatenate)
&& native_register (ctx, "system", fn_system) && native_register (ctx, "system", fn_system)
&& native_register (ctx, "parse", fn_parse)
&& native_register (ctx, "+", fn_plus) && native_register (ctx, "+", fn_plus)
&& native_register (ctx, "-", fn_minus) && native_register (ctx, "-", fn_minus)
&& native_register (ctx, "*", fn_multiply) && native_register (ctx, "*", fn_multiply)