Changeset 6ee09c3569acd94dbc293973755507f3c558b54d

Timestamp:

06/05/10 02:21:28 (2 years ago)

Author:

redbrain <redbrain@…>

Parents:

793409fd1483fd649438e950a0311aceba612d58

Children:

4791bff1093bb1fefdb805fc38e2097b9fba992c

git-committer:

redbrain <redbrain@crules.org> / 2010-06-05T02:21:28Z+0100

Message:

refactors for handling the standard library and external modules

Files:

• modules/Makefile.am (added)
• modules/README (added)
• modules/zlib.c (added)
• src/rr_bin_eval.c (modified) (1 diff)
• src/rr_runtime.c (modified) (4 diffs)
• stdlib/sys.crl (moved) (moved from lib/sys.crl)
• stdlib/system.crl (moved) (moved from lib/system.crl)

src/rr_bin_eval.c

@@ -60 +60 @@
     case TYPE_INTEGER:
       Crl_Lookup_Object_DEF( def, "Int", &context );
+      break;
+
+    case TYPE_SYMBOL_NIL:
       break;
 

src/rr_runtime.c

@@ -336 +336 @@
   if( sym->type == SYMBOL_PRIMARY )
     {
-      switch( sym->op_a_t )
+      crl_symbol_obj *pr = sym;
+      if( pr->op_a_t != TYPE_OBJECT )
+        {
+          crl_symbol_obj *ff = crl_rr_literal_fold( pr, context );
+          pr = ff;
+          ff->n_ref--;
+        }
+
+      switch( pr->op_a_t )
         {
-        case TYPE_INTEGER:
-          fprintf( fd, "%li", sym->op_a.integer );
-          exec= true;
-          break;
-
-        case TYPE_FLOAT:
-          fprintf( fd, "%Lf", sym->op_a.floating_point );
-          exec= true;
-          break;
-
-        case TYPE_CHAR:
-          fprintf( fd, "%c", sym->op_a.character );
-          exec= false;
-          break;
-
-        case TYPE_STRING:
-          fprintf( fd, "\"%s\"", sym->op_a.string );
-          exec= true;
-          break;
-
-        case TYPE_BOOLEAN:
-          if( sym->op_a.boolean == true )
-            {
-              fprintf( fd, "true" );
-            }
-          else
-            {
-              fprintf( fd, "false" );
-            }
-          break;
-
-        case TYPE_LIST:
-          crl_fatal("not imeplemented yet!\n");
-          exec= true;
-          break;
-
         case TYPE_SYMBOL_NIL:
           fprintf( fd, "<SYMBOL NIL>" );
@@ -380 +352 @@
 
         case TYPE_OBJECT:
-          if( sym )
-            {
-              crl_obj_state_t *o = sym->op_a.object_state;
+          if( pr )
+            {
+              crl_obj_state_t *o = pr->op_a.object_state;
               struct crl_type_obj_def_t ** d = o->definition;
               bool (*__print_hook)( void *, FILE *, bool ) = (*d)->print_hook;
@@ -392 +364 @@
                 {
                   fprintf( fd, "instance of <%s> at <%p>!", o->identifier,
-                           (void *)sym );
+                           (void *)pr );
                 }
             }
@@ -399 +371 @@
         default:
           crl_error("unhandled symbol operand type '0x%X'!\n",
-                    sym->op_a_t); exec= false;
+                    pr->op_a_t); exec= false;
           break;
         }