Implement keyed binding in ContextRef REPR.

Raku · Jun 21, 2013 · cf7c721 · cf7c721
1 parent 3b70d02
commit cf7c721
Showing 1 changed file with 29 additions and 0 deletions.
diff --git a/src/vm/jvm/runtime/org/perl6/nqp/sixmodel/reprs/ContextRefInstance.java b/src/vm/jvm/runtime/org/perl6/nqp/sixmodel/reprs/ContextRefInstance.java
@@ -36,6 +36,35 @@ public void at_key_native(ThreadContext tc, String key) {
         throw ExceptionHandling.dieInternal(tc, "No lexical " + key + " in this lexpad");
     }
 
+    public void bind_key_boxed(ThreadContext tc, String key, SixModelObject value) {
+        Integer idx = context.codeRef.staticInfo.oTryGetLexicalIdx(key);
+        if (idx == null)
+            throw ExceptionHandling.dieInternal(tc, "No lexical " + key + " in this lexpad");
+        context.oLex[idx] = value;
+    }
+
+    public void bind_key_native(ThreadContext tc, String key) {
+        Integer idx = context.codeRef.staticInfo.iTryGetLexicalIdx(key);
+        if (idx != null) {
+            context.iLex[idx] = tc.native_i;
+            tc.native_type = ThreadContext.NATIVE_INT;
+            return;
+        }
+        idx = context.codeRef.staticInfo.nTryGetLexicalIdx(key);
+        if (idx != null) {
+            context.nLex[idx] = tc.native_n;
+            tc.native_type = ThreadContext.NATIVE_NUM;
+            return;
+        }
+        idx = context.codeRef.staticInfo.sTryGetLexicalIdx(key);
+        if (idx != null) {
+            context.sLex[idx] = tc.native_s;
+            tc.native_type = ThreadContext.NATIVE_STR;
+            return;
+        }
+        throw ExceptionHandling.dieInternal(tc, "No lexical " + key + " in this lexpad");
+    }
+
     public long exists_key(ThreadContext tc, String key) {
         StaticCodeInfo sci = context.codeRef.staticInfo;
         return sci.oTryGetLexicalIdx(key) != null ||