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

Timestamp:

07/03/08 16:03:58 (5 months ago)

Author:

ruoso

Message:

[smop] some more work in p6opaque, delegation almost working... I need to finish the "setting how" method, so I can effectively test the delegation

Files:

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

v6/smop/src/p6opaque.sm0p

@@ -102 +102 @@
                                       SMOP__Object* capture) {
   SMOP__Object* ret = SMOP__NATIVE__bool_false;
+
   if (identifier == SMOP__ID__REPR_CREATE) {
     ret = smop_lowlevel_alloc(sizeof(SMOP__p6opaque_struct));
     ret->RI = (SMOP__ResponderInterface*)SMOP__p6opaque__RI;
+
   } else if (identifier == SMOP__ID__REPR_how) {
-    fprintf(stderr,"[SMOP p6opaque] .^!how not implemented");
-    ret = SMOP__NATIVE__bool_true;
+    if (SMOP_RI(capture) == (SMOP__ResponderInterface*)SMOP__NATIVE__capture) {
+      SMOP__Object* invocant = SMOP__NATIVE__capture_invocant(interpreter,capture);
+      SMOP__Object* set = SMOP__NATIVE__capture_positional(interpreter,capture,0);
+
+      if (invocant == SMOP__p6opaque__RI) {
+        fprintf(stderr, "[SMOP p6opaque] TODO: p6opaque RI's meta undefined yet\n");
+        ret = SMOP__NATIVE__bool_false;
+      } else {
+        if (set)
+          smop_lowlevel_wrlock(invocant);
+        else
+          smop_lowlevel_rdlock(invocant);
+
+        if (((SMOP__p6opaque_struct*)invocant)->metadata) {
+          // we have our own metadata.
+          SMOP__Object* old = ((SMOP__p6opaque_struct*)invocant)->metadata->how;
+          ret = old;
+          if (set) {
+            ((SMOP__p6opaque_struct*)invocant)->metadata->how = set;
+            ret = set;
+          }
+          smop_lowlevel_unlock(invocant);
+          if (old) SMOP_RELEASE(interpreter, old);
+
+        } else if (((SMOP__p6opaque_struct*)invocant)->instanceof) {
+
+          // re-dispatch to the instanceof
+          SMOP__Object* super = ((SMOP__p6opaque_struct*)invocant)->instanceof;
+          smop_lowlevel_unlock(invocant);
+
+          if (set) {
+            fprintf(stderr, "[SMOP p6opaque] Can't set how on a instance\n");
+          } else {
+
+            ret = SMOP__NATIVE__bool_true;
+            SMOP__Object* frame;
+            SMOP__Object* continuation = SMOP_DISPATCH(interpreter, SMOP_RI(interpreter),
+                                                       SMOP__ID__continuation, interpreter);
+            $frame = q:sm0p {
+              $continuation;
+              $super.SMOP__ID__REPR_how();
+              SMOP__SLIME__CurrentFrame.move_capturize(SMOP__SLIME__Capturize.new(2,(1),(),1));
+              $continuation.setr();
+              $interpreter.goto(|$continuation);
+            };
+
+            SMOP_DISPATCH(interpreter, SMOP_RI(interpreter),
+                          SMOP__ID__goto,
+                          frame);
+          }
+
+        } else if (set) {
+          // create the metadata struct and set the how.
+        
+
+        } else {
+
+          fprintf(stderr,"[SMOP p6opaque] TODO: invalid .^!how call\n");
+        }
+      }
+
+      if (set) SMOP_RELEASE(interpreter,set);
+      SMOP_RELEASE(interpreter,invocant);
+    } else {
+      fprintf(stderr,"[SMOP p6opaque] TODO: non-native captures\n");
+      ret = SMOP__NATIVE__bool_false;
+    }
   } else {
     // as we want to support different captures, we'll start to use a
@@ -164 +231 @@
   ((SMOP__ResponderInterface*)SMOP__p6opaque__RI)->REFERENCE = p6opaque_reference;
   ((SMOP__ResponderInterface*)SMOP__p6opaque__RI)->RELEASE = p6opaque_release;
+  ((SMOP__ResponderInterface*)SMOP__p6opaque__RI)->id = "p6opaque";
 
 }