public void Run(Context cx) { cx.SetReg((ushort)(this.A + 1), cx.R(this.B)); cx.SetReg(this.A, cx.LoadTable(B, cx.RK(C))); cx.SetSReg((ushort)(this.A + 1), cx.SR(this.B)); cx.SetSReg(this.A, cx.SR(B) + "[" + cx.SRK(C) + "]"); }
public override string ToString(Context cx) { if (!istart) { return("end"); } else { return("for " + cx.SR(A) + "=" + cx.R(A).ToString() + ", " + cx.SR((ushort)(A + 1)) + ", " + cx.SR((ushort)(A + 2)) + " do "); } }
public override string ToString(Context cx) { if (A == B) { if (!ObjLuaFunction.DEBUG) { return(""); } return("/// " + AssignA(cx, cx.SR(B))); } return(AssignA(cx, cx.SR(B))); }
public override string ToString(Context cx) { object o = cx.R(A); if (o is ObjLuaFunction) { return(cx.SR(A).Replace("{{name}}", Kst(BX))); } else { return(Kst(BX) + " = " + cx.SR(A)); } }
public override string ToString(Context cx) { if (cx.IsLocal(A)) { return(cx.LocalName(A) + " = !" + cx.SR(B)); } else { if (!ObjLuaFunction.DEBUG) { return(""); } return("// " + R(A) + " = !" + cx.SR(B)); } }
public override string ToString(Context cx) { /*if (!ObjLuaFunction.DEBUG) return ""; * return "// " + R(A) + " = " + cx.SR(B)+"["+cx.SRK(C)+"]";*/ return(AssignA(cx, cx.SR(B) + "[" + cx.SRK(C) + "]")); }
public override string ToString(Context cx) { object o = cx.RK(C); if (o is ObjLuaFunction) { string s = cx.SRK(C).Replace("{{name}}", "function_" + cx.PC); s += "\n" + cx.Indent; s += cx.SR(A) + "[" + cx.SRK(B) + "]" + " = " + "function_" + cx.PC; return(s); } else { return(cx.SR(A) + "[" + cx.SRK(B) + "]" + " = " + cx.SRK(C)); } }
public void Run(Context cx) { //cx.SetReg(this.A, cx.R(this.B)); for (int i = A; i <= A + C - 2; i++) { cx.SetReg((ushort)i, Context.Nil); cx.SetSReg((ushort)i, cx.SR(A) + "(" + cx.ListSR(A + 1, A + B - 1, "") + ")" /*+".Result["+i+"]"*/); } }
public override string ToString(Context cx) { string content = cx.SR(A) + "(" + cx.ListSR(A + 1, A + B - 1, "") + ")"; bool haslocal = false; for (ushort i = A; i <= A + C - 2; i++) { if (!cx.IsLocal(i)) { cx.DefineLocal(i); //this fails, if this Register is used otherwise later } if (cx.IsLocal(i)) { haslocal = true; } } if (A <= A + C - 2) { if (!haslocal) { if (!ObjLuaFunction.DEBUG) { return(""); } return("// " + ListR(A, A + C - 2, " = ", ", ... ,") + content); } else { string ret = ""; for (ushort i = A; i <= A + C - 2; i++) { if (i > A) { ret += ","; } if (cx.IsLocal(i)) { ret += cx.LocalName(i); } else { ret += R(i); } } return(ret + " = " + content); } } return(content); }
public override string ToString(Context cx) { if (tfl == null) { return(""); } string str = "for "; str += cx.ListSR(tfl.A + 2, tfl.A + 2 + tfl.C, "") + " in "; str += cx.SR(A) + " do "; return(str); }
public override string ToString(Context cx) { if (!cx.IsLocal(A)) { cx.DefineLocal(A); //this fails, if this Register is used otherwise later } if (cx.IsLocal(A)) { return("local " + cx.SR(A) + " = " + cx.SKst(BX)); } if (!ObjLuaFunction.DEBUG) { return(""); } return("// " + R(A) + " = " + cx.SKst(BX)); }
public void Run(Context cx) { string v = ""; string sv = ""; for (ushort i = B; i <= C; i++) { v += cx.R(i).ToString(); if (i != B) { v += " .. "; } sv += cx.SR(i).ToString(); } cx.SetReg(this.A, v); cx.SetSReg(this.A, sv); }
public void Run(Context cx) { cx.SetReg(A, cx.LoadTable(B, cx.RK(C))); cx.SetSReg(A, cx.SR(B) + "[" + cx.SRK(C) + "]"); }
public void Run(Context cx) { cx.SetReg(this.A, !Convert.ToBoolean(cx.R(this.B))); cx.SetSReg(A, "!" + cx.SR(B)); }
public override string ToString(Context cx) { return("if (" + cx.SR(A) + " ~= " + C + ") then \n" + cx.Indent + AssignA(cx, cx.SR(B)) + "\n"); }
public override string ToString(Context cx) { return(Assign((ushort)(this.A + 1), cx, cx.SR(B)) + "\n" + cx.Indent + AssignA(cx, cx.SR(B) + "[" + cx.SRK(C) + "]")); }
public void Run(Context cx) { cx.SetReg(this.A, cx.R(this.B)); cx.SetSReg(this.A, cx.SR(this.B)); }
public void Run(Context cx) { cx.SetReg(this.A, -1 * Convert.ToDouble(cx.R(this.B))); cx.SetSReg(A, "-" + cx.SR(B)); }