open-autonomous-connection/luaj
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases 2 Wiki Activity

Improve error reporting.

Browse Source
This commit is contained in:
James Roseborough
2010-05-15 17:12:50 +00:00
parent 281c4d7591
commit a6a06776fb
7 changed files with 50 additions and 35 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/core/org/luaj/vm2/Buffer.java
View File

@@ -51,6 +51,8 @@ public final class Buffer {
}
public final void append( LuaValue val ) {
if ( ! val.isstring() )
val.error("attempt to concatenate a '"+val.typename()+"' value");
append( val.strvalue() );
}

8
src/core/org/luaj/vm2/LuaClosure.java
View File

@@ -240,7 +240,7 @@ public class LuaClosure extends LuaFunction {
{
Buffer sb = new Buffer();
for ( ; b<=c; )
sb.append( stack[b++].checkstring() );
sb.append( stack[b++] );
stack[a] = sb.tostring();
}
continue;
@@ -345,9 +345,9 @@ public class LuaClosure extends LuaFunction {
case Lua.OP_FORPREP: /* A sBx R(A)-=R(A+2): pc+=sBx */
{
LuaValue init = stack[a].checknumber();
LuaValue limit = stack[a + 1].checknumber();
LuaValue step = stack[a + 2].checknumber();
LuaValue init = stack[a].checknumber("'for' initial value must be a number");
LuaValue limit = stack[a + 1].checknumber("'for' limit must be a number");
LuaValue step = stack[a + 2].checknumber("'for' step must be a number");
stack[a] = init.sub(step);
stack[a + 1] = limit;
stack[a + 2] = step;

4
src/core/org/luaj/vm2/LuaNumber.java
View File

@@ -38,6 +38,10 @@ public class LuaNumber extends LuaValue {
return this;
}
public LuaNumber checknumber(String errmsg) {
return this;
}
public LuaNumber optnumber(LuaNumber defval) {
return this;
}

6
src/core/org/luaj/vm2/LuaString.java
View File

@@ -183,6 +183,12 @@ public class LuaString extends LuaValue {
argerror("number");
return (LuaNumber) n;
}
public LuaNumber checknumber(String msg) {
LuaValue n = tonumber(10);
if ( ! n.isnumber() )
argerror(msg);
return (LuaNumber) n;
}
public LuaValue tonumber() {
return tonumber(10);
}

37
src/core/org/luaj/vm2/LuaValue.java
View File

@@ -146,6 +146,7 @@ public class LuaValue extends Varargs {
public LuaInteger checkinteger() { argerror("integer"); return null; }
public long checklong() { argerror("long"); return 0; }
public LuaNumber checknumber() { argerror("number"); return null; }
public LuaNumber checknumber(String msg) { throw new LuaError(msg); }
public String checkjstring() { argerror("string"); return null; }
public LuaString checkstring() { argerror("string"); return null; }
public LuaTable checktable() { argerror("table"); return null; }
@@ -170,6 +171,8 @@ public class LuaValue extends Varargs {
protected LuaValue lenerror() { throw new LuaError("attempt to get length of "+typename()); }
protected LuaValue aritherror() { throw new LuaError("attempt to perform arithmetic on "+typename()); }
protected LuaValue aritherror(String fun) { throw new LuaError("attempt to perform arithmetic '"+fun+"' on "+typename()); }
protected LuaValue compareerror(String rhs) { throw new LuaError("attempt to compare "+typename()+" with "+rhs); }
protected LuaValue compareerror(LuaValue rhs) { throw new LuaError("attempt to compare "+typename()+" with "+rhs.typename()); }
// table operations
public LuaValue get( LuaValue key ) { return gettable(this,key); }
@@ -271,22 +274,22 @@ public class LuaValue extends Varargs {
public LuaValue modFrom(double lhs) { return aritherror("modFrom"); }
// relational operators
public LuaValue lt( LuaValue rhs ) { return aritherror("lt"); }
public boolean lt_b( LuaValue rhs ) { aritherror("lt"); return false; }
public boolean lt_b( int rhs ) { aritherror("lt"); return false; }
public boolean lt_b( double rhs ) { aritherror("lt"); return false; }
public LuaValue lteq( LuaValue rhs ) { return aritherror("lteq"); }
public boolean lteq_b( LuaValue rhs ) { aritherror("lteq"); return false; }
public boolean lteq_b( int rhs ) { aritherror("lteq"); return false; }
public boolean lteq_b( double rhs ) { aritherror("lteq"); return false; }
public LuaValue gt( LuaValue rhs ) { return aritherror("gt"); }
public boolean gt_b( LuaValue rhs ) { aritherror("gt"); return false; }
public boolean gt_b( int rhs ) { aritherror("gt"); return false; }
public boolean gt_b( double rhs ) { aritherror("gt"); return false; }
public LuaValue gteq( LuaValue rhs ) { return aritherror("gteq"); }
public boolean gteq_b( LuaValue rhs ) { aritherror("gteq"); return false; }
public boolean gteq_b( int rhs ) { aritherror("gteq"); return false; }
public boolean gteq_b( double rhs ) { aritherror("gteq"); return false; }
public LuaValue lt( LuaValue rhs ) { return compareerror(rhs); }
public boolean lt_b( LuaValue rhs ) { compareerror(rhs); return false; }
public boolean lt_b( int rhs ) { compareerror("number"); return false; }
public boolean lt_b( double rhs ) { compareerror("number"); return false; }
public LuaValue lteq( LuaValue rhs ) { return compareerror(rhs); }
public boolean lteq_b( LuaValue rhs ) { compareerror(rhs); return false; }
public boolean lteq_b( int rhs ) { compareerror("number"); return false; }
public boolean lteq_b( double rhs ) { compareerror("number"); return false; }
public LuaValue gt( LuaValue rhs ) { return compareerror(rhs); }
public boolean gt_b( LuaValue rhs ) { compareerror(rhs); return false; }
public boolean gt_b( int rhs ) { compareerror("number"); return false; }
public boolean gt_b( double rhs ) { compareerror("number"); return false; }
public LuaValue gteq( LuaValue rhs ) { return compareerror(rhs); }
public boolean gteq_b( LuaValue rhs ) { compareerror(rhs); return false; }
public boolean gteq_b( int rhs ) { compareerror("number"); return false; }
public boolean gteq_b( double rhs ) { compareerror("number"); return false; }
// string comparison
public int strcmp( LuaValue rhs ) { error("attempt to compare "+typename()); return 0; }
@@ -352,7 +355,7 @@ public class LuaValue extends Varargs {
if ((!res.isnil()) || (tm = t.metatag(INDEX)).isnil())
return res;
} else if ((tm = t.metatag(INDEX)).isnil())
t.typerror("table");
t.indexerror();
if (tm.isfunction())
return tm.call(t, key);
t = tm;