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

Simplify runtime library initialization 

And remove the error printing side effect, just like that, at a cost.
This commit is contained in:
Přemysl Eric Janouch 2017-05-25 19:41:27 +02:00
parent 5ae69c1cfc
commit 4358e6f324
Signed by: p
GPG Key ID: B715679E3A361BE6
1 changed files with 51 additions and 62 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

111
ell.c
View File

@ -1244,70 +1244,59 @@ defn (fn_less) {
// - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
const char init_program[] =
"set unless { arg _cond _body; if (not (@_cond)) @_body }\n"
"set filter { arg _body _list\n"
" map { arg _i; if (@_body @_i) { @_i } } @_list }\n"
"set for { arg _list _body\n"
" try { map { arg _i; @_body @_i } @_list } {\n"
" arg _e; if (ne? @_e _break) { throw @e } } }\n"
"set break { throw _break }\n"
// TODO: we should be able to apply them to all arguments
"set ne? { arg _ne1 _ne2; not (eq? @_ne1 @_ne2) }\n"
"set ge? { arg _ge1 _ge2; not (lt? @_ge1 @_ge2) }\n"
"set le? { arg _le1 _le2; ge? @_le2 @_le1 }\n"
"set gt? { arg _gt1 _gt2; lt? @_gt2 @_gt1 }\n"
"set <> { arg _<>1 _<>2; not (= @_<>1 @_<>2) }\n"
"set >= { arg _>=1 _>=2; not (< @_>=1 @_>=2) }\n"
"set <= { arg _<=1 _<=2; >= @_<=2 @_<=1 }\n"
"set > { arg _>1 _>2; < @_>2 @_>1 }\n";
static bool static bool
init_runtime_library (struct context *ctx) { init_runtime_library (struct context *ctx) {
struct { if (!native_register (ctx, "set", fn_set)
const char *name; ///< Name of the function || !native_register (ctx, "list", fn_list)
const char *definition; ///< The defining script || !native_register (ctx, "if", fn_if)
} functions[] = { || !native_register (ctx, "map", fn_map)
{ "unless", "arg _cond _body; if (not (@_cond)) @_body" }, || !native_register (ctx, "print", fn_print)
{ "filter", "arg _body _list;" || !native_register (ctx, "..", fn_concatenate)
"map { arg _i; if (@_body @_i) { @_i } } @_list" }, || !native_register (ctx, "system", fn_system)
{ "for", "arg _list _body;" || !native_register (ctx, "parse", fn_parse)
"try { map {arg _i; @_body @_i } @_list" || !native_register (ctx, "try", fn_try)
"} { arg _e; if (ne? @_e _break) { throw @e } }" }, || !native_register (ctx, "throw", fn_throw)
{ "break", "throw _break" }, || !native_register (ctx, "+", fn_plus)
// TODO: we should be able to apply them to all arguments || !native_register (ctx, "-", fn_minus)
{ "ne?", "arg _ne1 _ne2; not (eq? @_ne1 @_ne2)" }, || !native_register (ctx, "*", fn_multiply)
{ "ge?", "arg _ge1 _ge2; not (lt? @_ge1 @_ge2)" }, || !native_register (ctx, "/", fn_divide)
{ "le?", "arg _le1 _le2; ge? @_le2 @_le1" }, || !native_register (ctx, "not", fn_not)
{ "gt?", "arg _gt1 _gt2; lt? @_gt2 @_gt1" }, || !native_register (ctx, "and", fn_and)
{ "<>", "arg _<>1 _<>2; not (= @_<>1 @_<>2)" }, || !native_register (ctx, "or", fn_or)
{ ">=", "arg _>=1 _>=2; not (< @_>=1 @_>=2)" }, || !native_register (ctx, "eq?", fn_eq)
{ "<=", "arg _<=1 _<=2; >= @_<=2 @_<=1" }, || !native_register (ctx, "lt?", fn_lt)
{ ">", "arg _>1 _>2; < @_>2 @_>1" }, || !native_register (ctx, "=", fn_equals)
}; || !native_register (ctx, "<", fn_less))
return false;
bool ok = true;
for (size_t i = 0; i < N_ELEMENTS (functions); i++) {
struct parser parser; struct parser parser;
parser_init (&parser, parser_init (&parser, init_program, sizeof init_program);
functions[i].definition, strlen (functions[i].definition));
const char *e = NULL;
struct item *body = parser_run (&parser, &e);
if (e) {
printf ("error parsing internal function `%s': %s\n",
functions[i].name, e);
ok = false;
} else if (!check (ctx, (body = new_list (body)))
|| !set (ctx, functions[i].name, body)) {
ok = false;
} else
body = NULL;
item_free_list (body);
parser_free (&parser);
}
return ok const char *e = NULL;
&& native_register (ctx, "set", fn_set) struct item *result = NULL;
&& native_register (ctx, "list", fn_list) struct item *program = parser_run (&parser, &e);
&& native_register (ctx, "if", fn_if) bool ok = !e && execute (ctx, program, &result);
&& native_register (ctx, "map", fn_map) parser_free (&parser);
&& native_register (ctx, "print", fn_print) item_free_list (program);
&& native_register (ctx, "..", fn_concatenate) item_free_list (result);
&& native_register (ctx, "system", fn_system) return ok;
&& native_register (ctx, "parse", fn_parse)
&& native_register (ctx, "try", fn_try)
&& native_register (ctx, "throw", fn_throw)
&& native_register (ctx, "+", fn_plus)
&& native_register (ctx, "-", fn_minus)
&& native_register (ctx, "*", fn_multiply)
&& native_register (ctx, "/", fn_divide)
&& native_register (ctx, "not", fn_not)
&& native_register (ctx, "and", fn_and)
&& native_register (ctx, "or", fn_or)
&& native_register (ctx, "eq?", fn_eq)
&& native_register (ctx, "lt?", fn_lt)
&& native_register (ctx, "=", fn_equals)
&& native_register (ctx, "<", fn_less);
} }