Changeset 91e77a868d76fab126a8de04f8e3b11fd2e324c5

Timestamp:

04/14/10 00:08:17 (2 years ago)

Author:

Philip Herron <redbrain@…>

Parents:

41c78d09c225d11d8c9f5dbd3bbec838c6f90bdf

Children:

4c5f389b4583cde85e1c06f9cd61fabe3feba888

git-committer:

Philip Herron <redbrain@omicron.(none)> / 2010-04-14T00:08:17Z+0100

Message:

objects can be created now need accessor code

Location:

src

Files:

• rr_context.c (modified) (1 diff)
• rr_runtime.c (modified) (3 diffs)

src/rr_context.c

@@ -390 +390 @@
         crl_malloc( sizeof(crl_obj_state_t) );
       retval->identifier = crl_strdup( (*obj_s)->identifier );
-      crl_debug("retval->identifier = <%s>!\n", retval->identifier );
       retval->state = ((*obj_s)->state);
-      crl_debug("object state set!\n");
       retval->context = crl_context_clone_branch( &((*obj_s)->context) );
       crl_debug("cloned context!\n");

src/rr_runtime.c

@@ -595 +595 @@
             {
               crl_obj_state_t *o = sym->op_a.object_state;
-              fprintf( fd, "object of type <%s> state <", o->identifier );
+              fprintf( fd, "Object <%s> State <", o->identifier );
               if( o->state == CLASS_UNINIT )
                 {
-                  fprintf( fd, "un-initilized> ");
+                  fprintf( fd, "UN_INIT> ");
                 }
               else if( o->state == CLASS_INIT )
                 {
-                  fprintf( fd, "initilized> ");
+                  fprintf( fd, "INIT> ");
                 }
               else if( o->state == CLASS_DESTROYED )
                 {
-                  fprintf( fd, "destroyed> ");
-                }
-              fprintf( fd, "<%p>!\n", (void*)(o) );
+                  fprintf( fd, "DESTROYED> ");
+                }
+              fprintf( fd, "At <%p>!", (void*)(o) );
             }
           break;
@@ -708 +708 @@
           break;
 
+        case TYPE_OBJ_STATE:
+          retval->op_a.object_state = crl_context_clone_obj_state( &((*sym)->op_a.object_state) );
+          break;
+
         case TYPE_SYMBOL_NIL:
           retval->op_a.symbol_table= NULL;
@@ -776 +780 @@
               retval->op_b.stack_table= t;
             }
+          break;
+
+        case TYPE_OBJ_STATE:
+          retval->op_b.object_state = crl_context_clone_obj_state( &((*sym)->op_b.object_state) );
           break;