Changeset 94d484a in mainline for uspace/app/sbi/src/builtin.c

Timestamp:

2010-03-07T17:45:33Z (14 years ago)

Author:

Jiri Svoboda <jiri@…>

Branches:

lfn, master, serial, ticket/834-toolchain-update, topic/msim-upgrade, topic/simplify-dev-export

Children:

d0febca

Parents:

fa36f29

Message:

Update SBI to rev. 90.

File:

• uspace/app/sbi/src/builtin.c (modified) (7 diffs)

uspace/app/sbi/src/builtin.c

@@ -34 +34 @@
 #include "list.h"
 #include "mytypes.h"
+#include "os/os.h"
 #include "run.h"
 #include "stree.h"
 #include "strtab.h"
+#include "symbol.h"
 
 #include "builtin.h"
 
+static stree_symbol_t *builtin_declare_fun(stree_csi_t *csi, char *name);
+static void builtin_fun_add_arg(stree_symbol_t *fun_sym, char *name);
+static void builtin_fun_add_vararg(stree_symbol_t *fun_sym, char *name);
+
 static void builtin_write_line(run_t *run);
+static void builtin_exec(run_t *run);
 
 static stree_symbol_t *bi_write_line;
+static stree_symbol_t *bi_exec;
 
 /** Declare builtin symbols in the program.
@@ -53 +61 @@
         stree_csi_t *csi;
         stree_ident_t *ident;
-        stree_csimbr_t *csimbr;
-        stree_fun_t *fun;
-        stree_fun_arg_t *fun_arg;
         stree_symbol_t *symbol;
 
@@ -76 +81 @@
 
         /* Declare builtin functions. */
-        ident = stree_ident_new();
-        ident->sid = strtab_get_sid("WriteLine");
-
-        fun = stree_fun_new();
-        fun->name = ident;
-        fun->body = NULL;
-        list_init(&fun->args);
-
-        csimbr = stree_csimbr_new(csimbr_fun);
-        csimbr->u.fun = fun;
-
-        symbol = stree_symbol_new(sc_fun);
-        symbol->u.fun = fun;
-        symbol->outer_csi = csi;
-        fun->symbol = symbol;
-
-        list_append(&csi->members, csimbr);
-
-        fun_arg = stree_fun_arg_new();
-        fun_arg->name = stree_ident_new();
-        fun_arg->name->sid = strtab_get_sid("arg");
-        fun_arg->type = NULL; /* XXX */
-
-        list_append(&fun->args, fun_arg);
-
-        bi_write_line = symbol;
+
+        bi_write_line = builtin_declare_fun(csi, "WriteLine");
+        builtin_fun_add_arg(bi_write_line, "arg");
+
+        bi_exec = builtin_declare_fun(csi, "Exec");
+        builtin_fun_add_vararg(bi_exec, "args");
 }
 
@@ -111 +96 @@
         if (fun_sym == bi_write_line) {
                 builtin_write_line(run);
+        } else if (fun_sym == bi_exec) {
+                builtin_exec(run);
         } else {
                 assert(b_false);
@@ -116 +103 @@
 }
 
+/** Declare a builtin function in @a csi. */
+static stree_symbol_t *builtin_declare_fun(stree_csi_t *csi, char *name)
+{
+        stree_ident_t *ident;
+        stree_fun_t *fun;
+        stree_csimbr_t *csimbr;
+        stree_symbol_t *symbol;
+
+        ident = stree_ident_new();
+        ident->sid = strtab_get_sid(name);
+
+        fun = stree_fun_new();
+        fun->name = ident;
+        fun->body = NULL;
+        list_init(&fun->args);
+
+        csimbr = stree_csimbr_new(csimbr_fun);
+        csimbr->u.fun = fun;
+
+        symbol = stree_symbol_new(sc_fun);
+        symbol->u.fun = fun;
+        symbol->outer_csi = csi;
+        fun->symbol = symbol;
+
+        list_append(&csi->members, csimbr);
+
+        return symbol;
+}
+
+/** Add one formal parameter to function. */
+static void builtin_fun_add_arg(stree_symbol_t *fun_sym, char *name)
+{
+        stree_fun_arg_t *fun_arg;
+        stree_fun_t *fun;
+
+        fun = symbol_to_fun(fun_sym);
+        assert(fun != NULL);
+
+        fun_arg = stree_fun_arg_new();
+        fun_arg->name = stree_ident_new();
+        fun_arg->name->sid = strtab_get_sid(name);
+        fun_arg->type = NULL; /* XXX */
+
+        list_append(&fun->args, fun_arg);
+}
+
+/** Add variadic formal parameter to function. */
+static void builtin_fun_add_vararg(stree_symbol_t *fun_sym, char *name)
+{
+        stree_fun_arg_t *fun_arg;
+        stree_fun_t *fun;
+
+        fun = symbol_to_fun(fun_sym);
+        assert(fun != NULL);
+
+        fun_arg = stree_fun_arg_new();
+        fun_arg->name = stree_ident_new();
+        fun_arg->name->sid = strtab_get_sid(name);
+        fun_arg->type = NULL; /* XXX */
+
+        fun->varg = fun_arg;
+}
+
 static void builtin_write_line(run_t *run)
 {
@@ -121 +171 @@
 
 #ifdef DEBUG_RUN_TRACE
-        printf("Called Builtin.writeLine()\n");
+        printf("Called Builtin.WriteLine()\n");
 #endif
         var = run_local_vars_lookup(run, strtab_get_sid("arg"));
@@ -138 +188 @@
         }
 }
+
+/** Start an executable and wait for it to finish. */
+static void builtin_exec(run_t *run)
+{
+        rdata_var_t *args;
+        rdata_var_t *var;
+        rdata_array_t *array;
+        rdata_var_t *arg;
+        int idx, dim;
+        char **cmd;
+
+#ifdef DEBUG_RUN_TRACE
+        printf("Called Builtin.Exec()\n");
+#endif
+        args = run_local_vars_lookup(run, strtab_get_sid("args"));
+
+        assert(args);
+        assert(args->vc == vc_ref);
+
+        var = args->u.ref_v->vref;
+        assert(var->vc == vc_array);
+
+        array = var->u.array_v;
+        assert(array->rank == 1);
+        dim = array->extent[0];
+
+        if (dim == 0) {
+                printf("Error: Builtin.Exec() expects at least one argument.\n");
+                exit(1);
+        }
+
+        cmd = calloc(dim + 1, sizeof(char *));
+        if (cmd == NULL) {
+                printf("Memory allocation failed.\n");
+                exit(1);
+        }
+
+        for (idx = 0; idx < dim; ++idx) {
+                arg = array->element[idx];
+                if (arg->vc != vc_string) {
+                        printf("Error: Argument to Builtin.Exec() must be "
+                            "string (found %d).\n", arg->vc);
+                        exit(1);
+                }
+
+                cmd[idx] = arg->u.string_v->value;
+        }
+
+        cmd[dim] = '\0';
+
+        if (os_exec(cmd) != EOK) {
+                printf("Error: Exec failed.\n");
+                exit(1);
+        }
+}