Changeset c7d35a585321cd3187bd956d71ba5cca13788500

Timestamp:

04/20/10 20:13:47 (2 years ago)

Author:

Philip Herron <redbrain@…>

Parents:

6e32d3f0de9260d4456ba0359ed144ba6d525952

Children:

c508c581f70744f8cf9cd86f23b478e88f6a7aa2

git-committer:

Philip Herron <redbrain@omicron.(none)> / 2010-04-20T20:13:47Z+0100

Message:

intilized integer module

Files:

• include/crules/opcodes.h (modified) (1 diff)
• include/crules/symbols.h (modified) (2 diffs)
• src/gg_garbage.c (modified) (2 diffs)
• src/rr_context.c (modified) (2 diffs)
• src/rr_runtime.c (modified) (2 diffs)

include/crules/opcodes.h

@@ -51 +51 @@
 #define TYPE_BOOLEAN           0xF028
 #define TYPE_OBJECT            0xF029
-#define TYPE_BUILTIN           0xF02A
+#define TYPE_BUILTIN_CALLBACK  0xF02A
 
 #define SYMBOL_REFERENCE       0xF02B

include/crules/symbols.h

@@ -36 +36 @@
     unsigned char character;
     char * string;
+    struct crl_builtin_function_def_t * callback;
     struct crl_symbol_table_t * symbol_table;
     struct crl_obj_state_t * object_state;
@@ -46 +47 @@
     bool boolean;
     unsigned char character;
-    char *string;
+    char * string;
+    struct crl_builtin_function_def_t * callback;
     struct crl_symbol_table_t * symbol_table;
     struct crl_obj_state_t * object_state;

src/gg_garbage.c

@@ -263 +263 @@
     }
   else
-    crl_error("freeing null hash table!\n");
+    {
+      crl_error("freeing null hash table!\n");
+    }
 }
 
@@ -303 +305 @@
     }
 
-  if( (*stack)->array )
-    crl_free( (*stack)->array );
-  crl_free( *stack );
-}
+  if( ((*stack)->array) ) {
+    crl_free( ((*stack)->array) );
+  }
+  crl_free( (*stack) );
+}

src/rr_context.c

@@ -211 +211 @@
     {
       crl_hash_t h= crl_dd_hash_hash( identifier );
-      crl_debug( "looking up function '%s' - hash 0x%X\n",
+      crl_debug( "looking up defintion '%s' - hash 0x%X\n",
                  identifier, h );
 
@@ -287 +287 @@
 crl_rr_context_clone_n_prot( struct crl_number_prot_t * prot )
 {
-  return NULL;
-}
-
-void crl_rr_context_init_member_functions( crl_branch_context * context ,
+  struct crl_number_prot_t * retval = NULL;
+  if( prot )
+    {
+      retval = crl_malloc( sizeof(struct crl_number_prot_t) );
+      retval->init = prot->init;
+      retval->n_add = prot->n_add;
+      retval->n_sub = prot->n_sub;
+      retval->n_div = prot->n_div;
+      retval->n_mul = prot->n_mul;
+      retval->n_pow = prot->n_pow;
+      retval->n_let = prot->n_let;
+      retval->n_lee = prot->n_lee;
+      retval->n_get = prot->n_get;
+      retval->n_gee = prot->n_gee;
+      retval->n_eee = prot->n_eee;
+      retval->n_nee = prot->n_nee;
+      retval->n_orr = prot->n_orr;
+      retval->n_and = prot->n_and;
+    }
+  return retval;
+}
+
+bool crl_rr_context_init_member_functions( crl_branch_context * context ,
                                            struct crl_builtin_function_def_t * functions )
 {
-  return;
+  bool retval = true;
+  crl_context_table * ctx = (crl_context_table *)
+    crl_malloc( sizeof(crl_context_table) );
+  crl_rr_context_init_table( &ctx );
+  crl_rr_context_push( context, ctx );
+  
+  unsigned int idx = 0;
+  while( functions[idx].identifier != NULL )
+    {
+      crl_debug("initilizing member <%s>!\n", functions[idx].identifier );
+      crl_symbol_obj *o;
+      crl_symbol_init( o );
+      
+      struct crl_builtin_function_def_t * call =
+        crl_malloc( sizeof(struct crl_builtin_function_def_t) );
+      call->identifier = crl_strdup( functions[idx].identifier );
+      memcpy( &(call->n_parameters), &(functions[idx].n_parameters),
+              sizeof(int) );
+      call->callback = functions[idx].callback;
+
+      o->identifier = crl_strdup( functions[idx].identifier );
+      o->type = TYPE_BUILTIN_CALLBACK;
+      o->op_a.callback = call;
+
+      if( !(crl_rr_context_push_function_def( o, &ctx )) )
+        {
+          crl_error("error inserting table defined function <%s> idx <%i>!\n",
+                    functions[idx].identifier, idx );
+          retval = false;
+          return retval;
+        }
+      idx++;
+    }
+  crl_rr_context_pop( ctx );
+  crl_garbage_free_context_table( &ctx );
+
+  return retval;
 }
 

src/rr_runtime.c

@@ -534 +534 @@
           break;
 
-        case TYPE_BUILTIN:
-          crl_fatal("not implemented yet!\n");
-          break;
-
         case TYPE_SYMBOL_NIL:
           retval->op_a.symbol_table= NULL;
@@ -608 +604 @@
         case TYPE_OBJECT:
           retval->op_b.object_state = crl_rr_context_clone_obj_state( &((*sym)->op_b.object_state) );
-          break;
-
-        case TYPE_BUILTIN:
-          crl_fatal("not imeplemented yet!\n");
           break;