diff options
author | Přemysl Janouch <p.janouch@gmail.com> | 2017-05-21 10:03:29 +0200 |
---|---|---|
committer | Přemysl Janouch <p.janouch@gmail.com> | 2017-05-21 13:19:48 +0200 |
commit | 16a4c3b21a26681605fdb5b1f04b657832d2b739 (patch) | |
tree | e8053882549e92073cfac93a8d8e1325c99c3ebf | |
parent | c7b06a490f8df8427a2726c59a73fd6188fa8b3a (diff) | |
download | ell-16a4c3b21a26681605fdb5b1f04b657832d2b739.tar.gz ell-16a4c3b21a26681605fdb5b1f04b657832d2b739.tar.xz ell-16a4c3b21a26681605fdb5b1f04b657832d2b739.zip |
Add "system"
-rwxr-xr-x | ell.c | 29 |
1 files changed, 28 insertions, 1 deletions
@@ -888,6 +888,23 @@ execute (struct context *ctx, struct item *body, struct item **result) { #define defn(name) static bool name \ (struct context *ctx, struct item *args, struct item **result) +static struct item *new_format (const char *fmt, ...) ATTRIBUTE_PRINTF (1, 2); + +static struct item * +new_format (const char *fmt, ...) { + va_list ap; + va_start (ap, fmt); + char *s = vformat (fmt, ap); + va_end (ap); + + if (!s) + return NULL; + + struct item *item = new_string (s, strlen (s)); + free (s); + return item; +} + #define E_BREAK "_break" static bool @@ -1067,6 +1084,15 @@ defn (fn_concatenate) { return ok; } +defn (fn_system) { + struct item *command = args; + if (!command || command->type != ITEM_STRING) + return set_error (ctx, "first argument must be string"); + if (command->next) + return set_error (ctx, "cannot deal with multiple arguments"); + return check (ctx, (*result = new_format ("%d", system (command->value)))); +} + // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - static bool @@ -1109,7 +1135,8 @@ init_runtime_library (struct context *ctx) { && 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, "..", fn_concatenate) + && native_register (ctx, "system", fn_system); } // --- Main -------------------------------------------------------------------- |