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

Timestamp:

2010-03-13T12:04:37Z (14 years ago)

Author:

Jiri Svoboda <jiri@…>

Branches:

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

Children:

7715994

Parents:

94d484a

Message:

Update SBI to rev. 100.

File:

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

uspace/app/sbi/src/builtin.c

@@ -27 +27 @@
  */
 
-/** @file Builtin functions. */
+/** @file Builtin procedures. */
 
 #include <stdio.h>
@@ -42 +42 @@
 #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 stree_symbol_t *builtin_declare_fun(stree_csi_t *csi, const char *name);
+static void builtin_fun_add_arg(stree_symbol_t *fun_sym, const char *name);
+static void builtin_fun_add_vararg(stree_symbol_t *fun_sym, const char *name);
 
 static void builtin_write_line(run_t *run);
@@ -54 +54 @@
 /** Declare builtin symbols in the program.
  *
- * Declares symbols that will be hooked to builtin interpreter functions.
+ * Declares symbols that will be hooked to builtin interpreter procedures.
  */
 void builtin_declare(stree_program_t *program)
@@ -80 +80 @@
         list_append(&program->module->members, modm);
 
-        /* Declare builtin functions. */
+        /* Declare builtin procedures. */
 
         bi_write_line = builtin_declare_fun(csi, "WriteLine");
@@ -89 +89 @@
 }
 
-void builtin_run_fun(run_t *run, stree_symbol_t *fun_sym)
+void builtin_run_proc(run_t *run, stree_symbol_t *proc_sym)
 {
 #ifdef DEBUG_RUN_TRACE
-        printf("Run builtin function.\n");
+        printf("Run builtin procedure.\n");
 #endif
-        if (fun_sym == bi_write_line) {
+        if (proc_sym == bi_write_line) {
                 builtin_write_line(run);
-        } else if (fun_sym == bi_exec) {
+        } else if (proc_sym == bi_exec) {
                 builtin_exec(run);
         } else {
@@ -104 +104 @@
 
 /** Declare a builtin function in @a csi. */
-static stree_symbol_t *builtin_declare_fun(stree_csi_t *csi, char *name)
+static stree_symbol_t *builtin_declare_fun(stree_csi_t *csi, const char *name)
 {
         stree_ident_t *ident;
@@ -133 +133 @@
 
 /** 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;
+static void builtin_fun_add_arg(stree_symbol_t *fun_sym, const char *name)
+{
+        stree_proc_arg_t *proc_arg;
         stree_fun_t *fun;
 
@@ -141 +141 @@
         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);
+        proc_arg = stree_proc_arg_new();
+        proc_arg->name = stree_ident_new();
+        proc_arg->name->sid = strtab_get_sid(name);
+        proc_arg->type = NULL; /* XXX */
+
+        list_append(&fun->args, proc_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;
+static void builtin_fun_add_vararg(stree_symbol_t *fun_sym, const char *name)
+{
+        stree_proc_arg_t *proc_arg;
         stree_fun_t *fun;
 
@@ -158 +158 @@
         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;
+        proc_arg = stree_proc_arg_new();
+        proc_arg->name = stree_ident_new();
+        proc_arg->name->sid = strtab_get_sid(name);
+        proc_arg->type = NULL; /* XXX */
+
+        fun->varg = proc_arg;
 }