Changeset bf8bfc6ff3bcd1af04da77ec59b7bce4fa7fc494

Timestamp:

05/18/10 18:29:13 (2 years ago)

Author:

redbrain <redbrain@…>

Parents:

f145c908c1c2779316e42e87de129c7aa21929b5

Children:

7e64c6fe41df36edb22d2c3ddf7e1cbd7a4c767b

git-committer:

redbrain <redbrain@crules.org> / 2010-05-18T18:29:13Z+0100

Message:

nearly working member access

Location:

src

Files:

• rr_bin_eval.c (modified) (2 diffs)
• ss_parser.y (modified) (1 diff)

src/rr_bin_eval.c

@@ -174 +174 @@
       if( functor )
         {
-          crl_debug("trying to call <%s:%s>!\n", o->identifier, member->op_a.string );
+          crl_debug("trying to call <%s:%s( ... )>!\n", o->identifier, member->op_a.string );
           retval = crl_runtime_dispatch_function( member, functor, m_ctx, context );
-          crl_debug("finished call <%s:%s>!\n", o->identifier, member->op_a.string );
+          crl_debug("finished call <%s:%s( ... )>!\n", o->identifier, member->op_a.string );
         }
       else
@@ -203 +203 @@
     return NULL;
   }
-  // Evaluation of dot accessor : x.y ( 1,2,3,4 )
-  // requires you to get the object state of x then lookup y from x
-  // requires walking down the tree rather than the expression evals
-  // of recursivly walking the tree
-  // ---------------------------------------------------------------
-
-  // the head accessor
+
   crl_symbol_obj * t1 = crl_runtime_evaluate_expression( opa, context );
   crl_assert( t1->op_a_t == TYPE_OBJECT );
 
-  /*
-  crl_context_table * acc_ctx = (crl_context_table*)
-    crl_malloc(sizeof( crl_context_table ));
-  crl_rr_context_init_table( &acc_ctx );
-  crl_rr_context_push( t1->op_a.object_state->context, acc_ctx );
-  */
-
-  crl_symbol_obj *t2 = crl_runtime_obj_access( t1, opb->op_a.symbol_table, context);
+  crl_symbol_obj *t2 = crl_runtime_obj_access( t1, opb, context);
 
   return retval;

src/ss_parser.y

@@ -215 +215 @@
                 crl_symbol_init( t1 );
 
+                t1->exp = OP_EXPRESS;
                 t1->type = OP_BIN_ACCESSOR;
                 t1->op_a_t = TYPE_SYMBOL;