Changeset 11b18d6c8033bdf184ee5924e576f0de3e5861aa

Timestamp:

04/19/10 18:03:45 (2 years ago)

Author:

Philip Herron <redbrain@…>

Parents:

168c2a5ec263be75f797e77bdf8a7e3011663c1a

Children:

794fb4166890a42ec59270e3441d7ddf500fdbdb

git-committer:

Philip Herron <redbrain@omicron.(none)> / 2010-04-19T18:03:45Z+0100

Message:

compiles now time to fill out the objects

Location:

src

Files:

• gg_garbage.c (modified) (13 diffs)
• rr_context.c (modified) (7 diffs)

src/gg_garbage.c

@@ -40 +40 @@
 
 /* Declare the tables */
-extern crl_stack *crl_parse_stk, *crl_lex_stack;
+extern crl_stack_t *crl_parse_stk, *crl_lex_stack;
 // the runtime symbol stack!
 extern crl_context_table *crl_runtime_ctx_table;
-static crl_stack* crl_runtime_gbg = NULL;
-
-static void free_hash_table_symbols( crl_table ** );
+static crl_stack_t* crl_runtime_gbg = NULL;
+
+static void free_hash_table_symbols( crl_table_t ** );
 
 void crl_garbage_lex_free( void )
@@ -52 +52 @@
     {
       char * o;
-      while( (o= crl_stack_pop( crl_lex_stack )) )
+      while( (o= crl_dd_stack_pop( crl_lex_stack )) )
         {
           crl_free( o );
         }
-      crl_stack_free( crl_lex_stack );
+      crl_dd_stack_free( crl_lex_stack );
       crl_lex_stack= NULL;
     }
@@ -67 +67 @@
       crl_debug("garbage collector running...\n");
       crl_symbol_obj *p_obj;
-      unsigned int i = crl_stack_get_size( crl_runtime_gbg );
+      unsigned int i = crl_dd_stack_get_size( crl_runtime_gbg );
       unsigned int idx = 0;
 
@@ -75 +75 @@
           idx++; crl_garbage_free_obj( &p_obj );
         }
-      crl_stack_free( crl_runtime_gbg );
+      crl_dd_stack_free( crl_runtime_gbg );
       crl_runtime_gbg = NULL;
     }
@@ -86 +86 @@
       if( crl_runtime_gbg )
         {
-          crl_stack_push( crl_runtime_gbg, (*sym) );
+          crl_dd_stack_push( crl_runtime_gbg, (*sym) );
         }
       else
         {
-          crl_runtime_gbg= (crl_stack*)
-            crl_malloc(sizeof(crl_stack));
-          crl_stack_init( &crl_runtime_gbg );
-
-          crl_stack_push( crl_runtime_gbg, (*sym) );
+          crl_runtime_gbg= (crl_stack_t *)
+            crl_malloc(sizeof(crl_stack_t));
+          crl_dd_stack_init( &crl_runtime_gbg );
+
+          crl_dd_stack_push( crl_runtime_gbg, (*sym) );
         }
     }
@@ -117 +117 @@
     {
       crl_debug("freeing parse stk!\n");
-      crl_stack_free( crl_parse_stk );
+      crl_dd_stack_free( crl_parse_stk );
       crl_debug("done!\n");
     }
@@ -147 +147 @@
         {
         case TYPE_LIST:
-          crl_garbage_free_hash_table( &((*sym)->op_a.list_table) );
+          crl_fatal("not implemented yet!\n");
           break;
 
@@ -169 +169 @@
         {
         case TYPE_LIST:
-          crl_garbage_free_hash_table( &((*sym)->op_b.list_table) );
+          crl_fatal("not implemented yet!\n");
           break;
 
@@ -187 +187 @@
           if( (*sym)->op_b.stack_table )
             {
-              crl_stack *t= (*sym)->op_b.stack_table;
-              char * o= crl_stack_pop( t );
+              crl_stack_t *t= (*sym)->op_b.stack_table;
+              char * o= crl_dd_stack_pop( t );
               while( o )
                 {
                   crl_free( o );
-                  o= crl_stack_pop( t );
+                  o= crl_dd_stack_pop( t );
                 }
-              crl_stack_free( t );
+              crl_dd_stack_free( t );
             }
           break;
@@ -201 +201 @@
           if( (*sym)->op_b.stack_table )
             {
-              crl_stack *t= (*sym)->op_b.stack_table;
-              crl_symbol_obj * o= crl_stack_pop( t );
+              crl_stack_t *t= (*sym)->op_b.stack_table;
+              crl_symbol_obj * o= crl_dd_stack_pop( t );
               while( o )
                 {
                   crl_garbage_free_obj( &o );
-                  o= crl_stack_pop( t );
+                  o= crl_dd_stack_pop( t );
                 }
-              crl_stack_free( t );
+              crl_dd_stack_free( t );
             }
           break;
@@ -231 +231 @@
 }
 
-void crl_garbage_free_hash_table( crl_table **table )
+void crl_garbage_free_hash_table( crl_table_t ** table )
 {
   crl_debug("freeing hash table!\n");
@@ -239 +239 @@
 
 static
-void free_hash_table_symbols( crl_table **table )
+void free_hash_table_symbols( crl_table_t ** table )
 {
   if( table )
@@ -292 +292 @@
 void crl_garbage_free_context_table( crl_context_table **stack )
 {
-  signed int len= crl_context_get_table_size( *stack );
+  signed int len= crl_rr_context_get_table_size( *stack );
   crl_debug("stack frame size :: '%i'!\n", len );
   len--;

src/rr_context.c

@@ -250 +250 @@
 }
 
-bool crl_context_push_function_def( crl_symbol_obj * functor,
+bool crl_rr_context_push_function_def( crl_symbol_obj * functor,
                                     crl_context_table ** context )
 {
@@ -277 +277 @@
 }
 
-bool crl_context_push_object_def( crl_symbol_obj * object,
+bool crl_rr_context_push_object_def( crl_symbol_obj * object,
                                   crl_context_table ** context )
 {
@@ -328 +328 @@
 }
 
-void crl_context_init_context( crl_branch_context ** branch )
+void crl_rr_context_init( crl_branch_context ** branch )
 {
   if( branch )
@@ -369 +369 @@
  **/
 crl_branch_context *
-crl_context_clone_branch( crl_branch_context ** ctx )
+crl_rr_context_clone_branch( crl_branch_context ** ctx )
 {
   crl_branch_context * retval = (crl_branch_context*)
@@ -387 +387 @@
 
 crl_obj_state_t *
-crl_context_clone_obj_state( crl_obj_state_t ** obj_s )
+crl_rr_context_clone_obj_state( crl_obj_state_t ** obj_s )
 {
   crl_debug("clone object state!\n");
@@ -397 +397 @@
       retval->identifier = crl_strdup( (*obj_s)->identifier );
       retval->state = ((*obj_s)->state);
-      retval->context = crl_context_clone_branch( &((*obj_s)->context) );
+      retval->context = crl_rr_context_clone_branch( &((*obj_s)->context) );
       crl_debug("cloned context!\n");
     }
@@ -413 +413 @@
   crl_branch_context *ctx= (crl_branch_context*)
     crl_malloc(sizeof( crl_branch_context ));
-  crl_context_init_context( &ctx );
+  crl_rr_context_init( &ctx );
 
   crl_runtime_ctx_table= (crl_context_table*)