aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorPřemysl Janouch <p.janouch@gmail.com>2017-05-23 17:54:53 +0200
committerPřemysl Janouch <p.janouch@gmail.com>2017-05-23 17:54:53 +0200
commit9f51b986d2e05d477bed34cac94e73542a28f156 (patch)
tree33eae36180e35aecea387c2096ecb458cba04bd8
parent120b604abd617c01b485a432a4838d437153ea36 (diff)
downloadell-9f51b986d2e05d477bed34cac94e73542a28f156.tar.gz
ell-9f51b986d2e05d477bed34cac94e73542a28f156.tar.xz
ell-9f51b986d2e05d477bed34cac94e73542a28f156.zip
"filter" is not a primitive
-rw-r--r--ell.c33
1 files changed, 2 insertions, 31 deletions
diff --git a/ell.c b/ell.c
index bb85e23..3c9c5e2 100644
--- a/ell.c
+++ b/ell.c
@@ -1046,36 +1046,6 @@ defn (fn_map) {
return check (ctx, (*result = new_list (res)));
}
-defn (fn_filter) {
- struct item *body = args, *values;
- if (!body || body->type != ITEM_LIST)
- return set_error (ctx, "first argument must be a function");
- if (!(values = body->next) || values->type != ITEM_LIST)
- return set_error (ctx, "second argument must be a list");
-
- struct item *res = NULL, **out = &res;
- for (struct item *v = values->head; v; v = v->next) {
- struct item *keep = NULL;
- if (!set_single_argument (ctx, v)
- || !execute (ctx, body->head, &keep)) {
- item_free_list (res);
- return false;
- }
- bool match = truthy (keep);
- item_free_list (keep);
- if (!match)
- continue;
-
- struct item *copy;
- if (!check (ctx, (copy = new_clone (v)))) {
- item_free_list (res);
- return false;
- }
- out = &(*out = copy)->next;
- }
- return check (ctx, (*result = new_list (res)));
-}
-
defn (fn_print) {
(void) result;
for (; args; args = args->next) {
@@ -1247,6 +1217,8 @@ init_runtime_library (struct context *ctx) {
const char *definition; ///< The defining script
} functions[] = {
{ "unless", "arg _cond _body; if (not (@_cond)) @_body" },
+ { "filter", "arg _body _list; map {"
+ "arg _item; if (@_body @_item) { @_item } } @_list" },
// TODO: we should be able to apply them to all arguments
{ "ne?", "arg _ne1 _ne2; not (eq? @_ne1 @_ne2)" },
{ "ge?", "arg _ge1 _ge2; not (lt? @_ge1 @_ge2)" },
@@ -1285,7 +1257,6 @@ init_runtime_library (struct context *ctx) {
&& native_register (ctx, "for", fn_for)
&& native_register (ctx, "break", fn_break)
&& native_register (ctx, "map", fn_map)
- && native_register (ctx, "filter", fn_filter)
&& native_register (ctx, "print", fn_print)
&& native_register (ctx, "..", fn_concatenate)
&& native_register (ctx, "system", fn_system)