Changeset 074444f in mainline for uspace/app/sbi/src/run_texpr.c

Timestamp:

2010-04-10T11:15:33Z (14 years ago)

Author:

Jiri Svoboda <jiri@…>

Branches:

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

Children:

1ef0fc3, 38aaacc2

Parents:

23de644

Message:

Update SBI to rev. 184.

File:

• uspace/app/sbi/src/run_texpr.c (modified) (11 diffs)

uspace/app/sbi/src/run_texpr.c

@@ -33 +33 @@
 #include "list.h"
 #include "mytypes.h"
+#include "strtab.h"
 #include "symbol.h"
 #include "tdata.h"
@@ -46 +47 @@
 static void run_tnameref(stree_program_t *prog, stree_csi_t *ctx,
     stree_tnameref_t *tnameref, tdata_item_t **res);
+static void run_tapply(stree_program_t *prog, stree_csi_t *ctx,
+    stree_tapply_t *tapply, tdata_item_t **res);
 
 void run_texpr(stree_program_t *prog, stree_csi_t *ctx, stree_texpr_t *texpr,
@@ -64 +67 @@
                 break;
         case tc_tapply:
-                printf("Unimplemented: Evaluate type expression type %d.\n",
-                    texpr->tc);
-                exit(1);
+                run_tapply(prog, ctx, texpr->u.tapply, res);
+                break;
         }
 }
@@ -85 +87 @@
         run_texpr(prog, ctx, taccess->arg, &targ_i);
 
+        if (targ_i->tic == tic_ignore) {
+                *res = tdata_item_new(tic_ignore);
+                return;
+        }
+
         if (targ_i->tic != tic_tobject) {
                 printf("Error: Using '.' with type which is not an object.\n");
-                exit(1);
+                *res = tdata_item_new(tic_ignore);
+                return;
         }
 
@@ -94 +102 @@
 
         sym = symbol_lookup_in_csi(prog, base_csi, taccess->member_name);
-
-        /* Existence should have been verified in type checking phase. */
-        assert(sym != NULL);
+        if (sym == NULL) {
+                printf("Error: CSI '");
+                symbol_print_fqn(csi_to_symbol(base_csi));
+                printf("' has no member named '%s'.\n",
+                    strtab_get_str(taccess->member_name->sid));
+                *res = tdata_item_new(tic_ignore);
+                return;
+        }
 
         if (sym->sc != sc_csi) {
@@ -102 +115 @@
                 symbol_print_fqn(sym);
                 printf("' is not a CSI.\n");
-                exit(1);
+                *res = tdata_item_new(tic_ignore);
+                return;
         }
 
@@ -130 +144 @@
         /* Evaluate base type. */
         run_texpr(prog, ctx, tindex->base_type, &base_ti);
+
+        if (base_ti->tic == tic_ignore) {
+                *res = tdata_item_new(tic_ignore);
+                return;
+        }
 
         /* Construct type item. */
@@ -167 +186 @@
 
         switch (tliteral->tlc) {
+        case tlc_bool: tpc = tpc_bool; break;
+        case tlc_char: tpc = tpc_char; break;
         case tlc_int: tpc = tpc_int; break;
         case tlc_string: tpc = tpc_string; break;
@@ -191 +212 @@
 #endif
         sym = symbol_lookup_in_csi(prog, ctx, tnameref->name);
-
-        /* Existence should have been verified in type-checking phase. */
-        assert(sym);
+        if (sym == NULL) {
+                printf("Error: Symbol '%s' not found.\n",
+                    strtab_get_str(tnameref->name->sid));
+                *res = tdata_item_new(tic_ignore);
+                return;
+        }
 
         if (sym->sc != sc_csi) {
@@ -199 +223 @@
                 symbol_print_fqn(sym);
                 printf("' is not a CSI.\n");
-                exit(1);
+                *res = tdata_item_new(tic_ignore);
+                return;
         }
 
@@ -212 +237 @@
         *res = titem;
 }
+
+static void run_tapply(stree_program_t *prog, stree_csi_t *ctx,
+    stree_tapply_t *tapply, tdata_item_t **res)
+{
+        tdata_item_t *base_ti;
+        tdata_item_t *arg_ti;
+        tdata_item_t *titem;
+        tdata_object_t *tobject;
+
+        list_node_t *arg_n;
+        stree_texpr_t *arg;
+
+#ifdef DEBUG_RUN_TRACE
+        printf("Evaluating type apply operation.\n");
+#endif
+        /* Construct type item. */
+        titem = tdata_item_new(tic_tobject);
+        tobject = tdata_object_new();
+        titem->u.tobject = tobject;
+
+        /* Evaluate base (generic) type. */
+        run_texpr(prog, ctx, tapply->gtype, &base_ti);
+
+        if (base_ti->tic != tic_tobject) {
+                printf("Error: Base type of generic application is not "
+                    "a CSI.\n");
+                *res = tdata_item_new(tic_ignore);
+                return;
+        }
+
+        tobject->static_ref = b_false;
+        tobject->csi = base_ti->u.tobject->csi;
+        list_init(&tobject->targs);
+
+        /* Evaluate type arguments. */
+        arg_n = list_first(&tapply->targs);
+        while (arg_n != NULL) {
+                arg = list_node_data(arg_n, stree_texpr_t *);
+                run_texpr(prog, ctx, arg, &arg_ti);
+
+                if (arg_ti->tic == tic_ignore) {
+                        *res = tdata_item_new(tic_ignore);
+                        return;
+                }
+
+                list_append(&tobject->targs, arg_ti);
+
+                arg_n = list_next(&tapply->targs, arg_n);
+        }
+
+        *res = titem;
+}