Changeset 21201 for v6/smop/src/p6opaque.sm0p

Timestamp:

07/03/08 23:23:38 (5 months ago)

Author:

ruoso

Message:

[smop] still more work on p6opaque, few bugs fixed, some slime bugs still.

Files:

• v6/smop/src/p6opaque.sm0p (modified) (5 diffs)

v6/smop/src/p6opaque.sm0p

@@ -115 +115 @@
         fprintf(stderr, "[SMOP p6opaque] TODO: p6opaque RI's meta undefined yet\n");
         ret = SMOP__NATIVE__bool_false;
+      } else if (SMOP_RI(invocant) != (SMOP__ResponderInterface*)SMOP__p6opaque__RI) {
+        fprintf(stderr, "[SMOP p6opaque] call to repr method with non p6opaque invocant\n");
+        ret = SMOP__NATIVE__bool_false;
       } else {
         if (set)
@@ -140 +143 @@
           if (set) {
             fprintf(stderr, "[SMOP p6opaque] Can't set how on a instance\n");
+            SMOP_RELEASE(interpreter,set);
           } else {
 
@@ -145 +149 @@
             SMOP__Object* frame;
             SMOP__Object* continuation = SMOP_DISPATCH(interpreter, SMOP_RI(interpreter),
-                                                       SMOP__ID__continuation, interpreter);
+                                                       SMOP__ID__continuation, SMOP_REFERENCE(interpreter,interpreter));
             $frame = q:sm0p {
               $continuation;
@@ -161 +165 @@
         } else if (set) {
           // create the metadata struct and set the how.
-        
-
+          SMOP__p6opaque_LOWL_metadata* m = calloc(1,sizeof(SMOP__p6opaque_LOWL_metadata));
+          assert(m);
+          m->how = set;
+          ((SMOP__p6opaque_struct*)invocant)->metadata = m;
+          smop_lowlevel_unlock(invocant);
+
+          ret = SMOP_REFERENCE(interpreter, set);
         } else {
-
           fprintf(stderr,"[SMOP p6opaque] TODO: invalid .^!how call\n");
         }
@@ -182 +190 @@
     SMOP__Object* frame;
     SMOP__Object* continuation = SMOP_DISPATCH(interpreter, SMOP_RI(interpreter),
-                                               SMOP__ID__continuation, interpreter);
+                                               SMOP__ID__continuation, 
+                                               SMOP_REFERENCE(interpreter,interpreter));
     $frame = q:sm0p {
       $capture;