Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Implement lexical native ref taking ops.
  • Loading branch information
@jnthn
jnthn committed Feb 28, 2015
1 parent 228f135 commit 52f64dd
Showing 1 changed file with 131 additions and 0 deletions.
131 changes: 131 additions & 0 deletions src/vm/jvm/runtime/org/perl6/nqp/runtime/Ops.java
View file
Expand Up @@ -87,6 +87,9 @@
import org.perl6.nqp.sixmodel.reprs.NFA;
import org.perl6.nqp.sixmodel.reprs.NFAInstance;
import org.perl6.nqp.sixmodel.reprs.NFAStateInfo;
import org.perl6.nqp.sixmodel.reprs.NativeRefInstanceIntLex;
import org.perl6.nqp.sixmodel.reprs.NativeRefInstanceNumLex;
import org.perl6.nqp.sixmodel.reprs.NativeRefInstanceStrLex;
import org.perl6.nqp.sixmodel.reprs.NativeRefREPRData;
import org.perl6.nqp.sixmodel.reprs.P6bigintInstance;
import org.perl6.nqp.sixmodel.reprs.P6int;
Expand Down Expand Up @@ -1229,6 +1232,134 @@ public static String bindlex_s(String name, String value, ThreadContext tc) {
throw ExceptionHandling.dieInternal(tc, "Lexical '" + name + "' not found");
}

/* Native lexical references. */
public static SixModelObject getlexref_i(ThreadContext tc, int idx) {
CallFrame cf = tc.curFrame;
SixModelObject refType = cf.codeRef.staticInfo.compUnit.hllConfig.intLexRef;
if (refType == null)
throw ExceptionHandling.dieInternal(tc,
"No int lexical reference type registered for current HLL");
NativeRefInstanceIntLex ref = (NativeRefInstanceIntLex)refType.st.REPR.allocate(tc, refType.st);
ref.lexicals = cf.iLex;
ref.idx = idx;
return ref;
}
public static SixModelObject getlexref_n(ThreadContext tc, int idx) {
CallFrame cf = tc.curFrame;
SixModelObject refType = cf.codeRef.staticInfo.compUnit.hllConfig.numLexRef;
if (refType == null)
throw ExceptionHandling.dieInternal(tc,
"No num lexical reference type registered for current HLL");
NativeRefInstanceNumLex ref = (NativeRefInstanceNumLex)refType.st.REPR.allocate(tc, refType.st);
ref.lexicals = cf.nLex;
ref.idx = idx;
return ref;
}
public static SixModelObject getlexref_s(ThreadContext tc, int idx) {
CallFrame cf = tc.curFrame;
SixModelObject refType = cf.codeRef.staticInfo.compUnit.hllConfig.strLexRef;
if (refType == null)
throw ExceptionHandling.dieInternal(tc,
"No str lexical reference type registered for current HLL");
NativeRefInstanceStrLex ref = (NativeRefInstanceStrLex)refType.st.REPR.allocate(tc, refType.st);
ref.lexicals = cf.sLex;
ref.idx = idx;
return ref;
}
public static SixModelObject getlexref_i_si(ThreadContext tc, int idx, int si) {
CallFrame cf = tc.curFrame;
SixModelObject refType = cf.codeRef.staticInfo.compUnit.hllConfig.intLexRef;
if (refType == null)
throw ExceptionHandling.dieInternal(tc,
"No int lexical reference type registered for current HLL");
while (si-- > 0)
cf = cf.outer;
NativeRefInstanceIntLex ref = (NativeRefInstanceIntLex)refType.st.REPR.allocate(tc, refType.st);
ref.lexicals = cf.iLex;
ref.idx = idx;
return ref;
}
public static SixModelObject getlexref_n_si(ThreadContext tc, int idx, int si) {
CallFrame cf = tc.curFrame;
SixModelObject refType = cf.codeRef.staticInfo.compUnit.hllConfig.numLexRef;
if (refType == null)
throw ExceptionHandling.dieInternal(tc,
"No num lexical reference type registered for current HLL");
while (si-- > 0)
cf = cf.outer;
NativeRefInstanceNumLex ref = (NativeRefInstanceNumLex)refType.st.REPR.allocate(tc, refType.st);
ref.lexicals = cf.nLex;
ref.idx = idx;
return ref;
}
public static SixModelObject getlexref_s_si(ThreadContext tc, int idx, int si) {
CallFrame cf = tc.curFrame;
SixModelObject refType = cf.codeRef.staticInfo.compUnit.hllConfig.strLexRef;
if (refType == null)
throw ExceptionHandling.dieInternal(tc,
"No str lexical reference type registered for current HLL");
while (si-- > 0)
cf = cf.outer;
NativeRefInstanceStrLex ref = (NativeRefInstanceStrLex)refType.st.REPR.allocate(tc, refType.st);
ref.lexicals = cf.sLex;
ref.idx = idx;
return ref;
}
public static SixModelObject getlexref_i(String name, ThreadContext tc) {
CallFrame cf = tc.curFrame;
SixModelObject refType = cf.codeRef.staticInfo.compUnit.hllConfig.intLexRef;
if (refType == null)
throw ExceptionHandling.dieInternal(tc,
"No int lexical reference type registered for current HLL");
while (cf != null) {
Integer found = cf.codeRef.staticInfo.iTryGetLexicalIdx(name);
if (found != null) {
NativeRefInstanceIntLex ref = (NativeRefInstanceIntLex)refType.st.REPR.allocate(tc, refType.st);
ref.lexicals = cf.iLex;
ref.idx = (int)found;
return ref;
}
cf = cf.outer;
}
throw ExceptionHandling.dieInternal(tc, "Lexical '" + name + "' not found");
}
public static SixModelObject getlexref_n(String name, ThreadContext tc) {
CallFrame cf = tc.curFrame;
SixModelObject refType = cf.codeRef.staticInfo.compUnit.hllConfig.numLexRef;
if (refType == null)
throw ExceptionHandling.dieInternal(tc,
"No num lexical reference type registered for current HLL");
while (cf != null) {
Integer found = cf.codeRef.staticInfo.nTryGetLexicalIdx(name);
if (found != null) {
NativeRefInstanceNumLex ref = (NativeRefInstanceNumLex)refType.st.REPR.allocate(tc, refType.st);
ref.lexicals = cf.nLex;
ref.idx = (int)found;
return ref;
}
cf = cf.outer;
}
throw ExceptionHandling.dieInternal(tc, "Lexical '" + name + "' not found");
}
public static SixModelObject getlexref_s(String name, ThreadContext tc) {
CallFrame cf = tc.curFrame;
SixModelObject refType = cf.codeRef.staticInfo.compUnit.hllConfig.strLexRef;
if (refType == null)
throw ExceptionHandling.dieInternal(tc,
"No str lexical reference type registered for current HLL");
while (cf != null) {
Integer found = cf.codeRef.staticInfo.sTryGetLexicalIdx(name);
if (found != null) {
NativeRefInstanceStrLex ref = (NativeRefInstanceStrLex)refType.st.REPR.allocate(tc, refType.st);
ref.lexicals = cf.sLex;
ref.idx = (int)found;
return ref;
}
cf = cf.outer;
}
throw ExceptionHandling.dieInternal(tc, "Lexical '" + name + "' not found");
}

/* Dynamic lexicals. */
public static SixModelObject bindlexdyn(SixModelObject value, String name, ThreadContext tc) {
CallFrame curFrame = tc.curFrame.caller;
Expand Down

0 comments on commit 52f64dd

Please sign in to comment.