Changeset 21971 for v6/smop/src/smop_mold.c

Timestamp:

08/20/08 20:48:37 (5 months ago)

Author:

ruoso

Message:

[smop] YAY! We have code blocks working... with signature binding and all...

Files:

• v6/smop/src/smop_mold.c (modified) (3 diffs)

v6/smop/src/smop_mold.c

@@ -8 +8 @@
 SMOP__Object* SMOP__Mold;
 SMOP__Object* SMOP__Mold__Frame;
+
+static SMOP__Object* SMOP__ID__set_reg;
+static SMOP__Object* SMOP__ID__set_back;
 
 typedef struct smop_mold {
@@ -143 +146 @@
     SMOP__Object* mold = SMOP__NATIVE__capture_positional(interpreter, capture, 0);
     ret = SMOP__Mold__Frame_create(interpreter,mold);
+  } else if (SMOP__ID__set_reg == identifier) {
+
+    SMOP__Object* reg_pos = SMOP__NATIVE__capture_positional(interpreter, capture, 0);
+    SMOP__Object* value = SMOP__NATIVE__capture_positional(interpreter, capture, 1);
+    mold_reg_set(interpreter, invocant, SMOP__NATIVE__int_fetch(reg_pos), value);
+
+  } else if (SMOP__ID__back == identifier) {
+
+    SMOP__Object* value = SMOP__NATIVE__capture_positional(interpreter, capture, 0);
+    if (frame->back) {
+      ret = SMOP_REFERENCE(interpreter,frame->back);
+    }
+
+  } else if (SMOP__ID__set_back == identifier) {
+
+    SMOP__Object* value = SMOP__NATIVE__capture_positional(interpreter, capture, 0);
+    if (!frame->back) {
+      frame->back = value;
+    } else {
+      printf("trying to set a new back to the frame\n");
+      abort();
+    }
+
   } else if (SMOP__ID__has_next == identifier) {
     if (mold->opcodes[frame->position]) {
@@ -289 +315 @@
 
 void smop_mold_init() {
+  SMOP__ID__set_reg = SMOP__NATIVE__idconst_create("set_reg");
+  SMOP__ID__set_back = SMOP__NATIVE__idconst_create("set_back");
+
   SMOP__Mold = calloc(1,sizeof(SMOP__ResponderInterface));
   ((SMOP__ResponderInterface*)SMOP__Mold)->MESSAGE = smop_mold_message;