Fix build errors for j2me. #32

Fix build bug. #32
Remove libs dependency from PackageLib.
2019-03-09 17:38:32 +02:00 · 2019-03-09 15:49:56 +02:00 · 2019-01-13 19:23:44 +02:00 · 2019-01-03 18:09:00 +02:00 · 2018-12-29 19:49:43 +02:00 · 2018-12-24 22:34:49 +02:00
32 changed files with 787 additions and 634 deletions
--- a/.gitignore
+++ b/.gitignore
@@ -1,8 +1,8 @@
-bin
+bin/
-target
+target/
-build
+build/
-lib
+lib/
-jit
+jit/
 *.ser
 *.gz
 *.jar
--- a/README.html
+++ b/README.html
@@ -1,22 +1,22 @@
-<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
+# This is a fork!
-<html>
+<div style="border: 1px dotted red; margin: 1.em 0.5em; font-weight: bold; color: red;">
 This repository has been forked from the original CVS sources of Luaj.
 The commit history has been converted to make sure that the original work of
 James Roseborough and Ian Farmer is not lost.
 Unfortunately, I was not able to contact either James or Ian to hand over
 ownership of the Github organization/repo as I have originally intended to.
 The community however seems interested enough to continue work on the original
 sources and therefore I have decided to make sure that any useful pull requests
 that may add some value to the original code base shall be merged in from now
 on.<br>
 -- Benjamin P. Jung, Jan. 26th 2018
 </div>
-<head>
+<h1>Getting Started with LuaJ</h1>
 <title>Getting Started with LuaJ</title>
 <link rel="stylesheet" type="text/css" href="http://www.lua.org/lua.css">
 <META HTTP-EQUIV="content-type" CONTENT="text/html; charset=iso-8859-1">
 </head>
 <body>
-<hr>
+<h1>Getting Started with LuaJ</h1>
-<h1>
+James Roseborough, Ian Farmer, Version 3.0.2
 <a href="README.html"><img src="http://sourceforge.net/dbimage.php?id=196139" alt="" border="0"></a>
 Getting Started with LuaJ
 </h1>
 James Roseborough, Ian Farmer, Version 3.0.1
 <p>
 <small>
 Copyright &copy; 2009-2014 Luaj.org.
@@ -120,7 +120,7 @@ in comparison with the standard C distribution.
 	<td>16.794</td>
 	<td>11.274</td>
 	<td>Java</td>
-	<td>java -cp luaj-jse-3.0.1.jar;bcel-5.2.jar lua <b>-b</b> fannkuch.lua 10</td></tr>
+	<td>java -cp luaj-jse-3.0.2.jar;bcel-5.2.jar lua <b>-b</b> fannkuch.lua 10</td></tr>
 <tr valign="top">
 	<td></td>
 	<td></td>
@@ -130,7 +130,7 @@ in comparison with the standard C distribution.
 	<td>36.894</td>
 	<td>15.163</td>
 	<td></td>
-	<td>java -cp luaj-jse-3.0.1.jar lua -n fannkuch.lua 10</td></tr>
+	<td>java -cp luaj-jse-3.0.2.jar lua -n fannkuch.lua 10</td></tr>
 <tr valign="top">
 	<td>lua</td>
 	<td>5.1.4</td>
@@ -186,7 +186,7 @@ It is also faster than Java-lua implementations Jill, Kahlua, and Mochalua for a
 From the main distribution directory line type:
 <pre>
-	java -cp lib/luaj-jse-3.0.1.jar lua examples/lua/hello.lua
+	java -cp lib/luaj-jse-3.0.2.jar lua examples/lua/hello.lua
 </pre>
 <p>
@@ -198,7 +198,7 @@ You should see the following output:
 To see how luaj can be used to acccess most Java API's including swing, try:
 <pre>
-	java -cp lib/luaj-jse-3.0.1.jar lua examples/lua/swingapp.lua
+	java -cp lib/luaj-jse-3.0.2.jar lua examples/lua/swingapp.lua
 </pre>
 <p>
@@ -213,8 +213,8 @@ Links to sources:<pre>
 From the main distribution directory line type:
 <pre>
-	java -cp lib/luaj-jse-3.0.1.jar luac examples/lua/hello.lua
+	java -cp lib/luaj-jse-3.0.2.jar luac examples/lua/hello.lua
-	java -cp lib/luaj-jse-3.0.1.jar lua luac.out
+	java -cp lib/luaj-jse-3.0.2.jar lua luac.out
 </pre>
 <p>
@@ -228,8 +228,8 @@ Luaj can compile lua sources or binaries directly to java bytecode if the bcel l
 <pre>
 	ant bcel-lib
-	java -cp &quot;lib/luaj-jse-3.0.1.jar;lib/bcel-5.2.jar&quot; luajc -s examples/lua -d . hello.lua
+	java -cp &quot;lib/luaj-jse-3.0.2.jar;lib/bcel-5.2.jar&quot; luajc -s examples/lua -d . hello.lua
-	java -cp &quot;lib/luaj-jse-3.0.1.jar;.&quot; lua -l hello
+	java -cp &quot;lib/luaj-jse-3.0.2.jar;.&quot; lua -l hello
 </pre>
 <p>
@@ -240,7 +240,7 @@ but the compiled classes must be in the class path at runtime, unless runtime ji
 <p>
 Lua scripts can also be run directly in this mode without precompiling using the <em>lua</em> command with the <b><em>-b</em></b> option and providing the <em>bcel</em> library in the class path:
 <pre>
-	java -cp &quot;lib/luaj-jse-3.0.1.jar;lib/bcel-5.2.jar&quot; lua -b examples/lua/hello.lua
+	java -cp &quot;lib/luaj-jse-3.0.2.jar;lib/bcel-5.2.jar&quot; lua -b examples/lua/hello.lua
 </pre>
@@ -284,7 +284,7 @@ A simple example may be found in
 </pre>
 <p>
-You must include the library <b>lib/luaj-jse-3.0.1.jar</b> in your class path.
+You must include the library <b>lib/luaj-jse-3.0.2.jar</b> in your class path.
 <h2>Run a script in a MIDlet</h2>
@@ -311,7 +311,7 @@ A simple example may be found in
 </pre>
 <p>
-You must include the library <b>lib/luaj-jme-3.0.1.jar</b> in your midlet jar.
+You must include the library <b>lib/luaj-jme-3.0.2.jar</b> in your midlet jar.
 <p>
 An ant script to build and run the midlet is in
@@ -341,7 +341,7 @@ You can also look up the engine by language "lua" or mimetypes "text/lua" or "ap
 All standard aspects of script engines including compiled statements are supported.
 <p>
-You must include the library <b>lib/luaj-jse-3.0.1.jar</b> in your class path.
+You must include the library <b>lib/luaj-jse-3.0.2.jar</b> in your class path.
 <p>
 A working example may be found in
@@ -352,8 +352,8 @@ A working example may be found in
 To compile and run it using Java 1.6 or higher:
 <pre>
-	javac -cp lib/luaj-jse-3.0.1.jar examples/jse/ScriptEngineSample.java
+	javac -cp lib/luaj-jse-3.0.2.jar examples/jse/ScriptEngineSample.java
-	java -cp &quot;lib/luaj-jse-3.0.1.jar;examples/jse&quot; ScriptEngineSample
+	java -cp &quot;lib/luaj-jse-3.0.2.jar;examples/jse&quot; ScriptEngineSample
 </pre>
 <h2>Excluding the lua bytecode compiler</h2>
@@ -593,7 +593,7 @@ The following lua script will open a swing frame on Java SE:
 See a longer sample in <em>examples/lua/swingapp.lua</em> for details, including a simple animation loop, rendering graphics, mouse and key handling, and image loading. 
 Or try running it using: 
 <pre>
-	java -cp lib/luaj-jse-3.0.1.jar lua examples/lua/swingapp.lua
+	java -cp lib/luaj-jse-3.0.2.jar lua examples/lua/swingapp.lua
 </pre>
 <p>
@@ -842,7 +842,7 @@ For JSE projects, add this dependency for the luaj-jse jar:
   &lt;dependency&gt;
      &lt;groupId&gt;org.luaj&lt;/groupId&gt;
      &lt;artifactId&gt;luaj-jse&lt;/artifactId&gt;
-      &lt;version&gt;3.0.1&lt;/version&gt;
+      &lt;version&gt;3.0.2&lt;/version&gt;
   &lt;/dependency&gt;	
 </pre>
 while for JME projects, use the luaj-jme jar:
@@ -850,7 +850,7 @@ while for JME projects, use the luaj-jme jar:
   &lt;dependency&gt;
      &lt;groupId&gt;org.luaj&lt;/groupId&gt;
      &lt;artifactId&gt;luaj-jme&lt;/artifactId&gt;
-      &lt;version&gt;3.0.1&lt;/version&gt;
+      &lt;version&gt;3.0.2&lt;/version&gt;
   &lt;/dependency&gt;	
 </pre>
@@ -880,7 +880,7 @@ Unit test scripts can be found in these locations
 	test/lua/*.lua
 	test/lua/errors/*.lua
 	test/lua/perf/*.lua
-	test/lua/luaj3.0.1-tests.zip
+	test/lua/luaj3.0.2-tests.zip
 </pre>
 <h2>Code coverage</h2>
@@ -1017,6 +1017,11 @@ and at <a href="http://luaj.sourceforge.net/api/2.0/index.html">http://luaj.sour
 <li>Move online docs to <a href="http://luaj.org/luaj/3.0/api/index.html">http://luaj.org/luaj/3.0/api/</a></li>
 <li>Fix os.time() conversions for pm times.</li>
 <tr valign="top"><td>&nbsp;&nbsp;<b>3.0.2</b></td><td><ul>
 <li>Fix JsePlatform.luaMain() to provide an "arg" table in the chunk's environment.</li>
 <li>Let JsePlatform.luaMain() return values returned by the main chunk.</li>
 <li>Add synchronization to CoerceJavaToLua.COERCIONS map.</li>
 </ul></td></tr>
 </table></td></tr></table>
--- a/examples/jse/SampleApplet.java
+++ b/examples/jse/SampleApplet.java
@@ -11,13 +11,13 @@ import org.luaj.vm2.lib.Bit32Lib;
 import org.luaj.vm2.lib.CoroutineLib;
 import org.luaj.vm2.lib.PackageLib;
 import org.luaj.vm2.lib.ResourceFinder;
 import org.luaj.vm2.lib.StringLib;
 import org.luaj.vm2.lib.TableLib;
 import org.luaj.vm2.lib.jse.CoerceJavaToLua;
 import org.luaj.vm2.lib.jse.JseBaseLib;
 import org.luaj.vm2.lib.jse.JseIoLib;
 import org.luaj.vm2.lib.jse.JseMathLib;
 import org.luaj.vm2.lib.jse.JseOsLib;
 import org.luaj.vm2.lib.jse.JseStringLib;
 import org.luaj.vm2.lib.jse.LuajavaLib;
 /**
@@ -76,7 +76,7 @@ public class SampleApplet extends Applet implements ResourceFinder {
 		globals.load(new PackageLib());
 		globals.load(new Bit32Lib());
 		globals.load(new TableLib());
-		globals.load(new StringLib());
+		globals.load(new JseStringLib());
 		globals.load(new CoroutineLib());
 		globals.load(new JseMathLib());
 		globals.load(new JseIoLib());
--- a/examples/jse/SampleSandboxed.java
+++ b/examples/jse/SampleSandboxed.java
@@ -1,7 +1,21 @@
-import org.luaj.vm2.*;
+import org.luaj.vm2.Globals;
 import org.luaj.vm2.LoadState;
 import org.luaj.vm2.LuaBoolean;
 import org.luaj.vm2.LuaString;
 import org.luaj.vm2.LuaTable;
 import org.luaj.vm2.LuaThread;
 import org.luaj.vm2.LuaValue;
 import org.luaj.vm2.Varargs;
 import org.luaj.vm2.compiler.LuaC;
-import org.luaj.vm2.lib.*;
+import org.luaj.vm2.lib.Bit32Lib;
-import org.luaj.vm2.lib.jse.*;
+import org.luaj.vm2.lib.DebugLib;
 import org.luaj.vm2.lib.PackageLib;
 import org.luaj.vm2.lib.TableLib;
 import org.luaj.vm2.lib.TwoArgFunction;
 import org.luaj.vm2.lib.ZeroArgFunction;
 import org.luaj.vm2.lib.jse.JseBaseLib;
 import org.luaj.vm2.lib.jse.JseMathLib;
 import org.luaj.vm2.lib.jse.JseStringLib;
 /** Simple program that illustrates basic sand-boxing of client scripts
 * in a server environment.
@@ -29,7 +43,7 @@ public class SampleSandboxed {
 		server_globals = new Globals();
 		server_globals.load(new JseBaseLib());
 		server_globals.load(new PackageLib());
-		server_globals.load(new StringLib());
+		server_globals.load(new JseStringLib());
 		// To load scripts, we occasionally need a math library in addition to compiler support.
 		// To limit scripts using the debug library, they must be closures, so we only install LuaC.
@@ -82,7 +96,7 @@ public class SampleSandboxed {
 		user_globals.load(new PackageLib());
 		user_globals.load(new Bit32Lib());
 		user_globals.load(new TableLib());
-		user_globals.load(new StringLib());
+		user_globals.load(new JseStringLib());
 		user_globals.load(new JseMathLib());
 		// This library is dangerous as it gives unfettered access to the
--- a/src/core/org/luaj/vm2/LuaClosure.java
+++ b/src/core/org/luaj/vm2/LuaClosure.java
@@ -97,15 +97,20 @@ public class LuaClosure extends LuaFunction {
 	 */
 	public LuaClosure(Prototype p, LuaValue env) {
 		this.p = p;
 		this.initupvalue1(env);
 		globals = env instanceof Globals? (Globals) env: null;	
 	}
 	public void initupvalue1(LuaValue env) {
 		if (p.upvalues == null || p.upvalues.length == 0)
 			this.upValues = NOUPVALUES;
 		else {
 			this.upValues = new UpValue[p.upvalues.length];
 			this.upValues[0] = new UpValue(new LuaValue[] {env}, 0);
 		}
 		globals = env instanceof Globals? (Globals) env: null;	
 	}
 	public boolean isclosure() {
 		return true;
 	}
@@ -118,26 +123,24 @@ public class LuaClosure extends LuaFunction {
 		return this;
 	}
 	public LuaValue getmetatable() { 
 		return s_metatable; 
 	}
 	public String tojstring() {
 		return "function: " + p.toString();
 	}
 	private LuaValue[] getNewStack() {
 		int max = p.maxstacksize;
 		LuaValue[] stack = new LuaValue[max];
 		System.arraycopy(NILS, 0, stack, 0, max);
 		return stack;
 	}
 	public final LuaValue call() {
-		LuaValue[] stack = new LuaValue[p.maxstacksize];
+		LuaValue[] stack = getNewStack();
 		for (int i = 0; i < p.numparams; ++i )
 			stack[i] = NIL;
 		return execute(stack,NONE).arg1();
 	}
 	public final LuaValue call(LuaValue arg) {
-		LuaValue[] stack = new LuaValue[p.maxstacksize];
+		LuaValue[] stack = getNewStack();
 		System.arraycopy(NILS, 0, stack, 0, p.maxstacksize);
 		for (int i = 1; i < p.numparams; ++i )
 			stack[i] = NIL;
 		switch ( p.numparams ) {
 		default: stack[0]=arg; return execute(stack,NONE).arg1();
 		case 0: return execute(stack,arg).arg1();
@@ -145,9 +148,7 @@ public class LuaClosure extends LuaFunction {
 	}
 	public final LuaValue call(LuaValue arg1, LuaValue arg2) {
-		LuaValue[] stack = new LuaValue[p.maxstacksize];
+		LuaValue[] stack = getNewStack();
 		for (int i = 2; i < p.numparams; ++i )
 			stack[i] = NIL;
 		switch ( p.numparams ) {
 		default: stack[0]=arg1; stack[1]=arg2; return execute(stack,NONE).arg1();
 		case 1: stack[0]=arg1; return execute(stack,arg2).arg1();
@@ -156,9 +157,7 @@ public class LuaClosure extends LuaFunction {
 	}
 	public final LuaValue call(LuaValue arg1, LuaValue arg2, LuaValue arg3) {
-		LuaValue[] stack = new LuaValue[p.maxstacksize];
+		LuaValue[] stack = getNewStack();
 		for (int i = 3; i < p.numparams; ++i )
 			stack[i] = NIL;
 		switch ( p.numparams ) {
 		default: stack[0]=arg1; stack[1]=arg2; stack[2]=arg3; return execute(stack,NONE).arg1();
 		case 2: stack[0]=arg1; stack[1]=arg2; return execute(stack,arg3).arg1();
@@ -172,7 +171,7 @@ public class LuaClosure extends LuaFunction {
 	}
 	public final Varargs onInvoke(Varargs varargs) {
-		LuaValue[] stack = new LuaValue[p.maxstacksize];
+		LuaValue[] stack = getNewStack();
 		for ( int i=0; i<p.numparams; i++ )
 			stack[i] = varargs.arg(i+1);
 		return execute(stack,p.is_vararg!=0? varargs.subargs(p.numparams+1): NONE);
@@ -302,7 +301,7 @@ public class LuaClosure extends LuaFunction {
 						if ( c > b+1 ) {
 							Buffer sb = stack[c].buffer();
 							while ( --c>=b ) 
-								sb = stack[c].concat(sb);
+								sb.concatTo(stack[c]);
 							stack[a] = sb.value();
 						} else {
 							stack[a] = stack[c-1].concat(stack[c]);
--- a/src/core/org/luaj/vm2/LuaDouble.java
+++ b/src/core/org/luaj/vm2/LuaDouble.java
@@ -177,7 +177,14 @@ public class LuaDouble extends LuaNumber {
 	 * @see #dmod_d(double, double) 
 	 */
 	public static LuaValue dmod(double lhs, double rhs) {
-		return rhs!=0? valueOf( lhs-rhs*Math.floor(lhs/rhs) ): NAN;
+		if (rhs == 0 || lhs == Double.POSITIVE_INFINITY || lhs == Double.NEGATIVE_INFINITY) return NAN;
 		if (rhs == Double.POSITIVE_INFINITY) {
 			return lhs < 0 ? POSINF : valueOf(lhs);
 		}
 		if (rhs == Double.NEGATIVE_INFINITY) {
 			return lhs > 0 ? NEGINF : valueOf(lhs);
 		}
 		return valueOf( lhs-rhs*Math.floor(lhs/rhs) );
 	}
 	/** Take modulo for double numbers according to lua math, and return a double result.
@@ -188,7 +195,14 @@ public class LuaDouble extends LuaNumber {
 	 * @see #dmod(double, double)
 	 */
 	public static double dmod_d(double lhs, double rhs) {
-		return rhs!=0? lhs-rhs*Math.floor(lhs/rhs): Double.NaN;
+		if (rhs == 0 || lhs == Double.POSITIVE_INFINITY || lhs == Double.NEGATIVE_INFINITY) return Double.NaN;
 		if (rhs == Double.POSITIVE_INFINITY) {
 			return lhs < 0 ? Double.POSITIVE_INFINITY : lhs;
 		}
 		if (rhs == Double.NEGATIVE_INFINITY) {
 			return lhs > 0 ? Double.NEGATIVE_INFINITY : lhs;
 		}
 		return lhs-rhs*Math.floor(lhs/rhs);
 	}
 	// relational operators
--- a/src/core/org/luaj/vm2/LuaString.java
+++ b/src/core/org/luaj/vm2/LuaString.java
@@ -144,7 +144,7 @@ public class LuaString extends LuaValue {
 	/** Construct a new LuaString using a copy of the bytes array supplied */
 	private static LuaString valueFromCopy(byte[] bytes, int off, int len) {
 		final byte[] copy = new byte[len];
-		for (int i=0; i<len; ++i) copy[i] = bytes[off+i];
+		System.arraycopy(bytes, off, copy, 0, len);
 		return new LuaString(copy, 0, len);
 	}
@@ -391,23 +391,23 @@ public class LuaString extends LuaValue {
 	public short   toshort()       { return (short) toint(); }
 	public double optdouble(double defval) {
-		return checknumber().checkdouble();
+		return checkdouble();
 	}
 	public int optint(int defval) {
-		return checknumber().checkint();
+		return checkint();
 	}
 	public LuaInteger optinteger(LuaInteger defval) { 
-		return checknumber().checkinteger();
+		return checkinteger();
 	}
 	public long optlong(long defval) {
-		return checknumber().checklong();
+		return checklong();
 	}
 	public LuaNumber optnumber(LuaNumber defval) {
-		return checknumber().checknumber();
+		return checknumber();
 	}
 	public LuaString optstring(LuaString defval) {
--- a/src/core/org/luaj/vm2/LuaTable.java
+++ b/src/core/org/luaj/vm2/LuaTable.java
@@ -266,8 +266,8 @@ public class LuaTable extends LuaValue implements Metatable {
 	/** caller must ensure key is not nil */
 	public void set( LuaValue key, LuaValue value ) {
-		if (!key.isvalidkey() && !metatag(NEWINDEX).isfunction())
+		if (key == null || !key.isvalidkey() && !metatag(NEWINDEX).isfunction())
-			typerror("table index");
+			throw new LuaError("value ('" + key + "') can not be used as a table index");
 		if ( m_metatable==null || ! rawget(key).isnil() ||  ! settable(this,key,value) )
 			rawset(key, value);
 	}
@@ -347,7 +347,12 @@ public class LuaTable extends LuaValue implements Metatable {
 	}
 	public int length() {
-		return m_metatable != null? len().toint(): rawlen(); 
+		if (m_metatable != null) {
 			LuaValue len = len();
 			if (!len.isint()) throw new LuaError("table length is not an integer: " + len);
 			return len.toint();
 		}
 		return rawlen();
 	}
 	public LuaValue len()  { 
@@ -390,7 +395,7 @@ public class LuaTable extends LuaValue implements Metatable {
 					}
 				}
 				if ( hash.length == 0 )
-					error( "invalid key to 'next'" );
+					error( "invalid key to 'next' 1: " + key );
 				i = hashSlot( key );
 				boolean found = false;
 				for ( Slot slot = hash[i]; slot != null; slot = slot.rest() ) {
@@ -404,7 +409,7 @@ public class LuaTable extends LuaValue implements Metatable {
 					}
 				}
 				if ( !found ) {
-					error( "invalid key to 'next'" );
+					error( "invalid key to 'next' 2: " + key );
 				}
 				i += 1+array.length;
 			}
@@ -780,6 +785,7 @@ public class LuaTable extends LuaValue implements Metatable {
 	 * @param comparator {@link LuaValue} to be called to compare elements.
 	 */
 	public void sort(LuaValue comparator) {
 		if (len().tolong() >= (long)Integer.MAX_VALUE) throw new LuaError("array too big: " + len().tolong());
 		if (m_metatable != null && m_metatable.useWeakValues()) {
 			dropWeakArrayValues();
 		}
@@ -892,6 +898,11 @@ public class LuaTable extends LuaValue implements Metatable {
 	/** Unpack the elements from i to j inclusive */
 	public Varargs unpack(int i, int j) {
 		if (j < i) return NONE;
 		int count = j - i;
 		if (count < 0) throw new LuaError("too many results to unpack: greater " + Integer.MAX_VALUE); // integer overflow
 		int max = 0x00ffffff;
 		if (count >= max) throw new LuaError("too many results to unpack: " + count + " (max is " + max + ')');
 		int n = j + 1 - i;
 		switch (n) {
 		case 0: return NONE;
@@ -900,10 +911,14 @@ public class LuaTable extends LuaValue implements Metatable {
 		default:
 			if (n < 0)
 				return NONE;
-			LuaValue[] v = new LuaValue[n];
+			try {
-			while (--n >= 0)
+				LuaValue[] v = new LuaValue[n];
-				v[n] = get(i+n);
+				while (--n >= 0)
-			return varargsOf(v);
+					v[n] = get(i+n);
 				return varargsOf(v);
 			} catch (OutOfMemoryError e) {
 				throw new LuaError("too many results to unpack [out of memory]: " + n);
 			}
 		}
 	}
@@ -1231,13 +1246,14 @@ public class LuaTable extends LuaValue implements Metatable {
 		}
 		public Entry set(LuaValue value) {
-			LuaValue n = value.tonumber();
+			if (value.type() == TNUMBER) {
-			if ( !n.isnil() ) {
+				LuaValue n = value.tonumber();
-				this.value = n.todouble();
+				if (!n.isnil()) {
-				return this;
+					this.value = n.todouble();
-			} else {
+					return this;
-				return new NormalEntry( this.key, value );
+				}
 			}
 			return new NormalEntry( this.key, value );
 		}
 		public int keyindex( int mask ) {
--- a/src/core/org/luaj/vm2/LuaValue.java
+++ b/src/core/org/luaj/vm2/LuaValue.java
@@ -643,7 +643,7 @@ public class LuaValue extends Varargs {
 	 * @see #isnumber()
 	 * @see #TNUMBER
 	 */
-	public double      optdouble(double defval)            { argerror("double");    return 0;     }
+	public double      optdouble(double defval)            { argerror("number");    return 0;     }
 	/** Check that optional argument is a function and return as {@link LuaFunction}
 	 * <p>
@@ -855,7 +855,7 @@ public class LuaValue extends Varargs {
 	 * @see #optdouble(double)
 	 * @see #TNUMBER
 	 */
-	public double      checkdouble()           { argerror("double");    return 0; }
+	public double      checkdouble()           { argerror("number");    return 0; }
 	/** Check that the value is a function , or throw {@link LuaError} if not 
 	 * <p>
@@ -2045,7 +2045,7 @@ public class LuaValue extends Varargs {
 	 * @see #eqmtcall(LuaValue, LuaValue, LuaValue, LuaValue)
 	 * @see #EQ
 	 */
-	public LuaValue   eq( LuaValue val )      { return this == val? TRUE: FALSE; }
+	public LuaValue   eq( LuaValue val )      { return eq_b(val)? TRUE: FALSE; }
 	/** Equals: Perform equality comparison with another value 
 	 * including metatag processing using {@link #EQ}, 
@@ -3143,7 +3143,7 @@ public class LuaValue extends Varargs {
 	 * @return {@link LuaString} corresponding to the value if a string or number
 	 * @throws LuaError if not a string or number
 	 */
-	public LuaString strvalue()     { typerror("strValue"); return null; }
+	public LuaString strvalue()     { typerror("string or number"); return null; }
 	/** Return this value as a strong reference, or null if it was weak and is no longer referenced.
 	 * @return {@link LuaValue} referred to, or null if it was weak and is no longer referenced.
@@ -3298,7 +3298,7 @@ public class LuaValue extends Varargs {
 				if ((!res.isnil()) || (tm = t.metatag(INDEX)).isnil())
 					return res;
 			} else if ((tm = t.metatag(INDEX)).isnil())
-				t.indexerror();
+				t.indexerror(key.tojstring());
 			if (tm.isfunction())
 				return tm.call(t, key);
 			t = tm;
@@ -3326,7 +3326,7 @@ public class LuaValue extends Varargs {
 					return true;
 				}
 			} else if ((tm = t.metatag(NEWINDEX)).isnil())
-				t.typerror("index");
+				throw new LuaError("table expected for set index ('" + key + "') value, got " + t.typename());
 			if (tm.isfunction()) {
 				tm.call(t, key, value);
 				return true;
@@ -3389,8 +3389,8 @@ public class LuaValue extends Varargs {
 	/** Throw {@link LuaError} indicating index was attempted on illegal type 
 	 * @throws LuaError when called.  
 	 */
-    private void indexerror() {
+    private void indexerror(String key) {
-		error( "attempt to index ? (a "+typename()+" value)" );
+		error( "attempt to index ? (a "+typename()+" value) with key '" + key + "'" );
 	}
 	/** Construct a {@link Varargs} around an array of {@link LuaValue}s.
--- a/src/core/org/luaj/vm2/Print.java
+++ b/src/core/org/luaj/vm2/Print.java
@@ -128,6 +128,10 @@ public class Print extends Lua {
 	}
 	static void printValue( PrintStream ps, LuaValue v ) {
 		if (v == null) {
 			ps.print("null");
 			return;
 		}
 		switch ( v.type() ) {
 		case LuaValue.TSTRING: printString( ps, (LuaString) v ); break;
 		default: ps.print( v.tojstring() );
@@ -136,7 +140,7 @@ public class Print extends Lua {
 	}
 	static void printConstant(PrintStream ps, Prototype f, int i) {
-		printValue( ps, f.k[i] );
+		printValue( ps, i < f.k.length ? f.k[i] : LuaValue.valueOf("UNKNOWN_CONST_" + i) );
 	}
 	static void printUpvalue(PrintStream ps, Upvaldesc u) {
@@ -152,7 +156,7 @@ public class Print extends Lua {
 		int[] code = f.code;
 		int pc, n = code.length;
 		for (pc = 0; pc < n; pc++) {
-			printOpCode(f, pc);
+			pc = printOpCode(f, pc);
 			ps.println();
 		}
 	}
@@ -161,9 +165,10 @@ public class Print extends Lua {
 	 * Print an opcode in a prototype
 	 * @param f the {@link Prototype}
 	 * @param pc the program counter to look up and print
 	 * @return pc same as above or changed
 	 */
-	public static void printOpCode(Prototype f, int pc) {
+	public static int printOpCode(Prototype f, int pc) {
-		printOpCode(ps,f,pc);
+		return printOpCode(ps,f,pc);
 	}
 	/** 
@@ -171,8 +176,9 @@ public class Print extends Lua {
 	 * @param ps the {@link PrintStream} to print to
 	 * @param f the {@link Prototype}
 	 * @param pc the program counter to look up and print
 	 * @return pc same as above or changed
 	 */
-	public static void printOpCode(PrintStream ps, Prototype f, int pc) {
+	public static int printOpCode(PrintStream ps, Prototype f, int pc) {
 		int[] code = f.code;
 		int i = code[pc];
 		int o = GET_OPCODE(i);
@@ -187,80 +193,67 @@ public class Print extends Lua {
 			ps.print("[" + line + "]  ");
 		else
 			ps.print("[-]  ");
-		ps.print(OPNAMES[o] + "  ");
+		if (o >= OPNAMES.length - 1) {
-		switch (getOpMode(o)) {
+			ps.print("UNKNOWN_OP_" + o + "  ");
-		case iABC:
+		} else {
-			ps.print( a );
+			ps.print(OPNAMES[o] + "  ");
-			if (getBMode(o) != OpArgN)
+			switch (getOpMode(o)) {
-				ps.print(" "+(ISK(b) ? (-1 - INDEXK(b)) : b));
+			case iABC:
-			if (getCMode(o) != OpArgN)
+				ps.print( a );
-				ps.print(" "+(ISK(c) ? (-1 - INDEXK(c)) : c));
+				if (getBMode(o) != OpArgN)
-			break;
+					ps.print(" "+(ISK(b) ? (-1 - INDEXK(b)) : b));
-		case iABx:
+				if (getCMode(o) != OpArgN)
-			if (getBMode(o) == OpArgK) {
+					ps.print(" "+(ISK(c) ? (-1 - INDEXK(c)) : c));
-				ps.print(a + " " + (-1 - bx));
+				break;
-			} else {
+			case iABx:
-				ps.print(a + " " + (bx));
+				if (getBMode(o) == OpArgK) {
 					ps.print(a + " " + (-1 - bx));
 				} else {
 					ps.print(a + " " + (bx));
 				}
 				break;
 			case iAsBx:
 				if (o == OP_JMP)
 					ps.print( sbx );
 				else
 					ps.print(a + " " + sbx);
 				break;
 			}
-			break;
+			switch (o) {
-		case iAsBx:
+			case OP_LOADK:
 			if (o == OP_JMP)
 				ps.print( sbx );
 			else
 				ps.print(a + " " + sbx);
 			break;
 		}
 		switch (o) {
 		case OP_LOADK:
 			ps.print("  ; ");
 			printConstant(ps, f, bx);
 			break;
 		case OP_GETUPVAL:
 		case OP_SETUPVAL:
 			ps.print("  ; ");
 			printUpvalue(ps, f.upvalues[b]);
 			break;
 		case OP_GETTABUP:
 			ps.print("  ; ");
 			printUpvalue(ps, f.upvalues[b]);
 			ps.print(" ");
 			if (ISK(c))
 				printConstant(ps, f, INDEXK(c));
 			else
 				ps.print("-");
 			break;
 		case OP_SETTABUP:
 			ps.print("  ; ");
 			printUpvalue(ps, f.upvalues[a]);
 			ps.print(" ");
 			if (ISK(b))
 				printConstant(ps, f, INDEXK(b));
 			else
 				ps.print("-");
 			ps.print(" ");
 			if (ISK(c))
 				printConstant(ps, f, INDEXK(c));
 			else
 				ps.print("-");
 			break;
 		case OP_GETTABLE:
 		case OP_SELF:
 			if (ISK(c)) {
 				ps.print("  ; ");
-				printConstant(ps, f, INDEXK(c));
+				printConstant(ps, f, bx);
-			}
+				break;
-			break;
+			case OP_GETUPVAL:
-		case OP_SETTABLE:
+			case OP_SETUPVAL:
 		case OP_ADD:
 		case OP_SUB:
 		case OP_MUL:
 		case OP_DIV:
 		case OP_POW:
 		case OP_EQ:
 		case OP_LT:
 		case OP_LE:
 			if (ISK(b) || ISK(c)) {
 				ps.print("  ; ");
 				if (b < f.upvalues.length) {
 					printUpvalue(ps, f.upvalues[b]);
 				} else {
 					ps.print("UNKNOWN_UPVALUE_" + b);
 				}	
 				break;
 			case OP_GETTABUP:
 				ps.print("  ; ");
 				if (b < f.upvalues.length) {
 					printUpvalue(ps, f.upvalues[b]);
 				} else {
 					ps.print("UNKNOWN_UPVALUE_" + b);
 				}
 				ps.print(" ");
 				if (ISK(c))
 					printConstant(ps, f, INDEXK(c));
 				else
 					ps.print("-");
 				break;
 			case OP_SETTABUP:
 				ps.print("  ; ");
 				if (a < f.upvalues.length) {
 					printUpvalue(ps, f.upvalues[a]);
 				} else {
 					ps.print("UNKNOWN_UPVALUE_" + a);
 				}
 				ps.print(" ");
 				if (ISK(b))
 					printConstant(ps, f, INDEXK(b));
 				else
@@ -270,28 +263,62 @@ public class Print extends Lua {
 					printConstant(ps, f, INDEXK(c));
 				else
 					ps.print("-");
 				break;
 			case OP_GETTABLE:
 			case OP_SELF:
 				if (ISK(c)) {
 					ps.print("  ; ");
 					printConstant(ps, f, INDEXK(c));
 				}
 				break;
 			case OP_SETTABLE:
 			case OP_ADD:
 			case OP_SUB:
 			case OP_MUL:
 			case OP_DIV:
 			case OP_POW:
 			case OP_EQ:
 			case OP_LT:
 			case OP_LE:
 				if (ISK(b) || ISK(c)) {
 					ps.print("  ; ");
 					if (ISK(b))
 						printConstant(ps, f, INDEXK(b));
 					else
 						ps.print("-");
 					ps.print(" ");
 					if (ISK(c))
 						printConstant(ps, f, INDEXK(c));
 					else
 						ps.print("-");
 				}
 				break;
 			case OP_JMP:
 			case OP_FORLOOP:
 			case OP_FORPREP:
 				ps.print("  ; to " + (sbx + pc + 2));
 				break;
 			case OP_CLOSURE:
 				if (bx < f.p.length) {
 					ps.print("  ; " + f.p[bx].getClass().getName());
 				} else {
 					ps.print("  ; UNKNOWN_PROTYPE_" + bx);
 				}
 				break;
 			case OP_SETLIST:
 				if (c == 0)
 					ps.print("  ; " + ((int) code[++pc]) + " (stored in the next OP)");
 				else
 					ps.print("  ; " + ((int) c));
 				break;
 			case OP_VARARG:
 				ps.print( "  ; is_vararg="+ f.is_vararg );
 				break;			
 			default:
 				break;
 			}
 			break;
 		case OP_JMP:
 		case OP_FORLOOP:
 		case OP_FORPREP:
 			ps.print("  ; to " + (sbx + pc + 2));
 			break;
 		case OP_CLOSURE:
 			ps.print("  ; " + f.p[bx].getClass().getName());
 			break;
 		case OP_SETLIST:
 			if (c == 0)
 				ps.print("  ; " + ((int) code[++pc]));
 			else
 				ps.print("  ; " + ((int) c));
 			break;
 		case OP_VARARG:
 			ps.print( "  ; is_vararg="+ f.is_vararg );
 			break;			
 		default:
 			break;
 		}
 		return pc;
 	}
 	private static int getline(Prototype f, int pc) {
--- a/src/core/org/luaj/vm2/compiler/LuaC.java
+++ b/src/core/org/luaj/vm2/compiler/LuaC.java
@@ -117,7 +117,7 @@ public class LuaC extends Constants implements Globals.Compiler, Globals.Loader
 		protected CompileState() {}
 		/** Parse the input */
-		private Prototype luaY_parser(InputStream z, String name) throws IOException{
+		Prototype luaY_parser(InputStream z, String name) throws IOException{
 			LexState lexstate = new LexState(this, z);
 			FuncState funcstate = new FuncState();
 			// lexstate.buff = buff;
--- a/src/core/org/luaj/vm2/lib/BaseLib.java
+++ b/src/core/org/luaj/vm2/lib/BaseLib.java
@@ -245,7 +245,7 @@ public class BaseLib extends TwoArgFunction implements ResourceFinder {
 		public Varargs invoke(Varargs args) {
 			LuaValue tostring = globals.get("tostring"); 
 			for ( int i=1, n=args.narg(); i<=n; i++ ) {
-				if ( i>1 ) globals.STDOUT.print( '\t' );
+				if ( i>1 ) globals.STDOUT.print( " \t" );
 				LuaString s = tostring.call( args.arg(i) ).strvalue();
 				globals.STDOUT.print(s.tojstring());
 			}
@@ -299,7 +299,8 @@ public class BaseLib extends TwoArgFunction implements ResourceFinder {
 		}
 		public LuaValue call(LuaValue table, LuaValue index, LuaValue value) {
 			LuaTable t = table.checktable();
-			t.rawset(index.checknotnil(), value);
+			if (!index.isvalidkey()) argerror(2, "value");
 			t.rawset(index, value);
 			return t;
 		}
 	}
--- a/src/core/org/luaj/vm2/lib/Bit32Lib.java
+++ b/src/core/org/luaj/vm2/lib/Bit32Lib.java
@@ -71,7 +71,7 @@ public class Bit32Lib extends TwoArgFunction {
 			"arshift", "lrotate", "lshift", "rrotate", "rshift"
 		});
 		env.set("bit32", t);
-		env.get("package").get("loaded").set("bit32", t);
+		if (!env.get("package").isnil()) env.get("package").get("loaded").set("bit32", t);
 		return t;
 	}
--- a/src/core/org/luaj/vm2/lib/CoroutineLib.java
+++ b/src/core/org/luaj/vm2/lib/CoroutineLib.java
@@ -82,7 +82,7 @@ public class CoroutineLib extends TwoArgFunction {
 		coroutine.set("yield", new yield());
 		coroutine.set("wrap", new wrap());
 		env.set("coroutine", coroutine);
-		env.get("package").get("loaded").set("coroutine", coroutine);
+		if (!env.get("package").isnil()) env.get("package").get("loaded").set("coroutine", coroutine);
 		return coroutine;
 	}
@@ -92,7 +92,7 @@ public class CoroutineLib extends TwoArgFunction {
 		}
 	}
-	final class resume extends VarArgFunction {
+	static final class resume extends VarArgFunction {
 		public Varargs invoke(Varargs args) {
 			final LuaThread t = args.checkthread(1);
 			return t.resume( args.subargs(2) );
@@ -127,7 +127,7 @@ public class CoroutineLib extends TwoArgFunction {
 		}
 	}
-	final class wrapper extends VarArgFunction {
+	static final class wrapper extends VarArgFunction {
 		final LuaThread luathread;
 		wrapper(LuaThread luathread) {
 			this.luathread = luathread;
--- a/src/core/org/luaj/vm2/lib/DebugLib.java
+++ b/src/core/org/luaj/vm2/lib/DebugLib.java
@@ -84,27 +84,27 @@ public class DebugLib extends TwoArgFunction {
 		try { TRACE = (null != System.getProperty("TRACE")); } catch (Exception e) {}
 	}
-	private static final LuaString LUA             = valueOf("Lua");  
+	static final LuaString LUA             = valueOf("Lua");
 	private static final LuaString QMARK           = valueOf("?");
 	private static final LuaString CALL            = valueOf("call");
 	private static final LuaString LINE            = valueOf("line");
 	private static final LuaString COUNT           = valueOf("count");
 	private static final LuaString RETURN          = valueOf("return");
-	private static final LuaString FUNC            = valueOf("func");  
+	static final LuaString FUNC            = valueOf("func");
-	private static final LuaString ISTAILCALL      = valueOf("istailcall");  
+	static final LuaString ISTAILCALL      = valueOf("istailcall");
-	private static final LuaString ISVARARG        = valueOf("isvararg");  
+	static final LuaString ISVARARG        = valueOf("isvararg");
-	private static final LuaString NUPS            = valueOf("nups");  
+	static final LuaString NUPS            = valueOf("nups");
-	private static final LuaString NPARAMS         = valueOf("nparams");  
+	static final LuaString NPARAMS         = valueOf("nparams");
-	private static final LuaString NAME            = valueOf("name");  
+	static final LuaString NAME            = valueOf("name");
-	private static final LuaString NAMEWHAT        = valueOf("namewhat");  
+	static final LuaString NAMEWHAT        = valueOf("namewhat");
-	private static final LuaString WHAT            = valueOf("what");  
+	static final LuaString WHAT            = valueOf("what");
-	private static final LuaString SOURCE          = valueOf("source");  
+	static final LuaString SOURCE          = valueOf("source");
-	private static final LuaString SHORT_SRC       = valueOf("short_src");  
+	static final LuaString SHORT_SRC       = valueOf("short_src");
-	private static final LuaString LINEDEFINED     = valueOf("linedefined");  
+	static final LuaString LINEDEFINED     = valueOf("linedefined");
-	private static final LuaString LASTLINEDEFINED = valueOf("lastlinedefined");  
+	static final LuaString LASTLINEDEFINED = valueOf("lastlinedefined");
-	private static final LuaString CURRENTLINE     = valueOf("currentline");  
+	static final LuaString CURRENTLINE     = valueOf("currentline");
-	private static final LuaString ACTIVELINES     = valueOf("activelines");  
+	static final LuaString ACTIVELINES     = valueOf("activelines");
 	Globals globals;
@@ -135,7 +135,7 @@ public class DebugLib extends TwoArgFunction {
 		debug.set("upvalueid", new upvalueid());
 		debug.set("upvaluejoin", new upvaluejoin());
 		env.set("debug", debug);
-		env.get("package").get("loaded").set("debug", debug);
+		if (!env.get("package").isnil()) env.get("package").get("loaded").set("debug", debug);
 		return debug;
 	}
@@ -234,7 +234,7 @@ public class DebugLib extends TwoArgFunction {
 	}
 	//	debug.getmetatable (value)
-	final class getmetatable extends LibFunction {
+	static final class getmetatable extends LibFunction {
 		public LuaValue call(LuaValue v) {
 			LuaValue mt = v.getmetatable();
 			return mt != null? mt: NIL;
@@ -311,7 +311,7 @@ public class DebugLib extends TwoArgFunction {
 	}
 	//	debug.setmetatable (value, table)
-	final class setmetatable extends TwoArgFunction { 
+	static final class setmetatable extends TwoArgFunction {
 		public LuaValue call(LuaValue value, LuaValue table) {
 			LuaValue mt = table.opttable(null);
 			switch ( value.type() ) {
@@ -328,7 +328,7 @@ public class DebugLib extends TwoArgFunction {
 	}
 	//	debug.setupvalue (f, up, value)
-	final class setupvalue extends VarArgFunction { 
+	static final class setupvalue extends VarArgFunction {
 		public Varargs invoke(Varargs args) {
 			LuaValue func = args.checkfunction(1);
 			int up = args.checkint(2);
@@ -346,7 +346,7 @@ public class DebugLib extends TwoArgFunction {
 	}
 	//	debug.setuservalue (udata, value)
-	final class setuservalue extends VarArgFunction { 
+	static final class setuservalue extends VarArgFunction {
 		public Varargs invoke(Varargs args) {
 			Object o = args.checkuserdata(1);
 			LuaValue v = args.checkvalue(2);
@@ -370,7 +370,7 @@ public class DebugLib extends TwoArgFunction {
 	}
 	//	debug.upvalueid (f, n)
-	final class upvalueid extends VarArgFunction { 
+	static final class upvalueid extends VarArgFunction {
 		public Varargs invoke(Varargs args) {
 			LuaValue func = args.checkfunction(1);
 			int up = args.checkint(2);
@@ -385,7 +385,7 @@ public class DebugLib extends TwoArgFunction {
 	}
 	//	debug.upvaluejoin (f1, n1, f2, n2)
-	final class upvaluejoin extends VarArgFunction { 
+	static final class upvaluejoin extends VarArgFunction {
 		public Varargs invoke(Varargs args) {
 			LuaClosure f1 = args.checkclosure(1);
 			int n1 = args.checkint(2);
@@ -565,7 +565,11 @@ public class DebugLib extends TwoArgFunction {
 					sb.append( ar.name );
 					sb.append( '\'' );
 				} else {
-					sb.append( "function <"+c.shortsource()+":"+c.linedefined()+">" );
+					sb.append( "function <" );
 					sb.append( c.shortsource() );
 					sb.append( ':' );
 					sb.append( c.linedefined() );
 					sb.append( '>' );
 				}
 			}
 			sb.append("\n\t[Java]: in ?");
@@ -673,16 +677,16 @@ public class DebugLib extends TwoArgFunction {
 		}
 		Varargs getLocal(int i) {
 			LuaString name = getlocalname(i);
-			if ( name != null )
+			if ( i >= 1 && i <= stack.length && stack[i-1] != null )
-				return varargsOf( name, stack[i-1] );
+				return varargsOf( name == null ? NIL : name, stack[i-1] );
 			else
 				return NIL;
 		}
 		Varargs setLocal(int i, LuaValue value) {
 			LuaString name = getlocalname(i);
-			if ( name != null ) {
+			if ( i >= 1 && i <= stack.length && stack[i-1] != null ) {
 				stack[i-1] = value;
-				return name;
+				return name == null ? NIL : name;
 			} else {
 				return NIL;
 			}
@@ -696,7 +700,7 @@ public class DebugLib extends TwoArgFunction {
 			if ( !f.isclosure() ) return f.tojstring();
 			return f.checkclosure().p.shortsource() + ":" + currentline();
 		}
-		private int linedefined() {
+		int linedefined() {
 			return f.isclosure()? f.checkclosure().p.linedefined: -1;
 		}
 		LuaString getlocalname(int index) {
@@ -867,6 +871,10 @@ public class DebugLib extends TwoArgFunction {
 	        if (reg == a) setreg = pc;  /* jumped code can change 'a' */
 	        break;
 	      }
 	      case Lua.OP_SETLIST: { // Lua.testAMode(Lua.OP_SETLIST) == false
 	    	if ( ((i>>14)&0x1ff) == 0 ) pc++; // if c == 0 then c stored in next op -> skip
 		break;
 	      }
 	      default:
 	        if (Lua.testAMode(op) && reg == a)  /* any instruction that set A */
 	          setreg = pc;
--- a/src/core/org/luaj/vm2/lib/IoLib.java
+++ b/src/core/org/luaj/vm2/lib/IoLib.java
@@ -256,7 +256,7 @@ public class IoLib extends TwoArgFunction {
 		// return the table
 		env.set("io", t);
-		env.get("package").get("loaded").set("io", t);
+		if (!env.get("package").isnil()) env.get("package").get("loaded").set("io", t);
 		return t;
 	}
@@ -467,7 +467,7 @@ public class IoLib extends TwoArgFunction {
 		return LuaValue.TRUE;
 	}
-	private static Varargs errorresult(Exception ioe) {
+	static Varargs errorresult(Exception ioe) {
 		String s = ioe.getMessage();
 		return errorresult("io error: "+(s!=null? s: ioe.toString()));
 	}
@@ -544,7 +544,7 @@ public class IoLib extends TwoArgFunction {
 		}
 		boolean isreadmode = mode.startsWith("r");
 		boolean isappend = mode.startsWith("a");
-		boolean isupdate = mode.indexOf("+") > 0;
+		boolean isupdate = mode.indexOf('+') > 0;
 		boolean isbinary = mode.endsWith("b");
 		return openFile( filename, isreadmode, isappend, isupdate, isbinary );
 	}
--- a/src/core/org/luaj/vm2/lib/LibFunction.java
+++ b/src/core/org/luaj/vm2/lib/LibFunction.java
@@ -139,7 +139,7 @@ abstract public class LibFunction extends LuaFunction {
 	}
 	public String tojstring() {
-		return name != null? name: super.tojstring();
+		return name != null ? "function: " + name : super.tojstring();
 	}
 	/** 
--- a/src/core/org/luaj/vm2/lib/MathLib.java
+++ b/src/core/org/luaj/vm2/lib/MathLib.java
@@ -125,7 +125,7 @@ public class MathLib extends TwoArgFunction {
 		math.set("sqrt", new sqrt());
 		math.set("tan", new tan());
 		env.set("math", math);
-		env.get("package").get("loaded").set("math", math);
+		if (!env.get("package").isnil()) env.get("package").get("loaded").set("math", math);
 		return math;
 	}
@@ -163,10 +163,12 @@ public class MathLib extends TwoArgFunction {
 		}
 	}
-	static final class fmod extends BinaryOp {
+	static final class fmod extends TwoArgFunction {
-		protected double call(double x, double y) {
+		public LuaValue call(LuaValue xv, LuaValue yv) {
-			double q = x/y;
+			if (xv.islong() && yv.islong()) {
-			return x - y * (q>=0? Math.floor(q): Math.ceil(q));
+				return valueOf(xv.tolong() % yv.tolong());
 			}
 			return valueOf(xv.checkdouble() % yv.checkdouble());
 		}
 	}
 	static final class ldexp extends BinaryOp {
@@ -194,27 +196,36 @@ public class MathLib extends TwoArgFunction {
 	static class max extends VarArgFunction {
 		public Varargs invoke(Varargs args) {
-			double m = args.checkdouble(1);
+			LuaValue m = args.checkvalue(1);
-			for ( int i=2,n=args.narg(); i<=n; ++i )
+			for ( int i=2,n=args.narg(); i<=n; ++i ) {
-				m = Math.max(m,args.checkdouble(i));
+				LuaValue v = args.checkvalue(i);
-			return valueOf(m);
+				if (m.lt_b(v)) m = v;
 			}
 			return m;
 		}
 	}
 	static class min extends VarArgFunction {
 		public Varargs invoke(Varargs args) {
-			double m = args.checkdouble(1);
+			LuaValue m = args.checkvalue(1);
-			for ( int i=2,n=args.narg(); i<=n; ++i )
+			for ( int i=2,n=args.narg(); i<=n; ++i ) {
-				m = Math.min(m,args.checkdouble(i));
+				LuaValue v = args.checkvalue(i);
-			return valueOf(m);
+				if (v.lt_b(m)) m = v;
 			}
 			return m;
 		}
 	}
 	static class modf extends VarArgFunction {
 		public Varargs invoke(Varargs args) {
-			double x = args.checkdouble(1);
+			LuaValue n = args.arg1();
 			/* number is its own integer part, no fractional part */
 			if (n.islong()) return varargsOf(n, valueOf(0.0));
 			double x = n.checkdouble();
 			/* integer part (rounds toward zero) */
 			double intPart = ( x > 0 ) ? Math.floor( x ) : Math.ceil( x );
-			double fracPart = x - intPart;
+			/* fractional part (test needed for inf/-inf) */
 			double fracPart = x == intPart ? 0.0 : x - intPart;
 			return varargsOf( valueOf(intPart), valueOf(fracPart) );
 		}
 	}
--- a/src/core/org/luaj/vm2/lib/OsLib.java
+++ b/src/core/org/luaj/vm2/lib/OsLib.java
@@ -80,8 +80,8 @@ import org.luaj.vm2.Varargs;
 * @see <a href="http://www.lua.org/manual/5.1/manual.html#5.8">http://www.lua.org/manual/5.1/manual.html#5.8</a>
 */
 public class OsLib extends TwoArgFunction {
-	public static String TMP_PREFIX    = ".luaj";
+	public static final String TMP_PREFIX    = ".luaj";
-	public static String TMP_SUFFIX    = "tmp";
+	public static final String TMP_SUFFIX    = "tmp";
 	private static final int CLOCK     = 0;
 	private static final int DATE      = 1;
@@ -132,7 +132,7 @@ public class OsLib extends TwoArgFunction {
 		for (int i = 0; i < NAMES.length; ++i)
 			os.set(NAMES[i], new OsLibFunc(i, NAMES[i]));
 		env.set("os", os);
-		env.get("package").get("loaded").set("os", os);
+		if (!env.get("package").isnil()) env.get("package").get("loaded").set("os", os);
 		return os;
 	}
--- a/src/core/org/luaj/vm2/lib/PackageLib.java
+++ b/src/core/org/luaj/vm2/lib/PackageLib.java
@@ -81,23 +81,26 @@ public class PackageLib extends TwoArgFunction {
 	/** The default value to use for package.path.  This can be set with the system property
 	 * <code>"luaj.package.path"</code>, and is <code>"?.lua"</code> by default. */
-	public static String DEFAULT_LUA_PATH;
+	public static final String DEFAULT_LUA_PATH;
 	static {
 		String path = null;
 		try {
-			DEFAULT_LUA_PATH = System.getProperty("luaj.package.path");
+			path = System.getProperty("luaj.package.path");
 		} catch (Exception e) {
 			System.out.println(e.toString());
 		}
-		if (DEFAULT_LUA_PATH == null)
+		if (path == null) {
-			DEFAULT_LUA_PATH = "?.lua";
+			path = "?.lua";
 		}
 		DEFAULT_LUA_PATH = path;
 	}
-	private static final LuaString _LOADED      = valueOf("loaded");
+	static final LuaString _LOADED      = valueOf("loaded");
 	private static final LuaString _LOADLIB     = valueOf("loadlib");
-	private static final LuaString _PRELOAD     = valueOf("preload");
+	static final LuaString _PRELOAD     = valueOf("preload");
-	private static final LuaString _PATH        = valueOf("path");
+	static final LuaString _PATH        = valueOf("path");
-	private static final LuaString _SEARCHPATH  = valueOf("searchpath");
+	static final LuaString _SEARCHPATH  = valueOf("searchpath");
-	private static final LuaString _SEARCHERS   = valueOf("searchers");
+	static final LuaString _SEARCHERS   = valueOf("searchers");
 	/** The globals that were used to load this library. */
 	Globals globals;
@@ -252,7 +255,6 @@ public class PackageLib extends TwoArgFunction {
 	public class lua_searcher extends VarArgFunction {
 		public Varargs invoke(Varargs args) {
 			LuaString name = args.checkstring(1);
 			InputStream is = null;
 			// get package path
 			LuaValue path = package_.get(_PATH);
--- a/src/core/org/luaj/vm2/lib/StringLib.java
+++ b/src/core/org/luaj/vm2/lib/StringLib.java
@@ -24,8 +24,8 @@ package org.luaj.vm2.lib;
 import java.io.ByteArrayOutputStream;
 import java.io.IOException;
 import org.luaj.vm2.LuaClosure;
 import org.luaj.vm2.Buffer;
 import org.luaj.vm2.LuaClosure;
 import org.luaj.vm2.LuaString;
 import org.luaj.vm2.LuaTable;
 import org.luaj.vm2.LuaValue;
@@ -49,7 +49,7 @@ import org.luaj.vm2.compiler.DumpState;
 * Globals globals = new Globals();
 * globals.load(new JseBaseLib());
 * globals.load(new PackageLib());
- * globals.load(new StringLib());
+ * globals.load(new JseStringLib());
 * System.out.println( globals.get("string").get("upper").call( LuaValue.valueOf("abcde") ) );
 * } </pre>
 * <p>
@@ -97,12 +97,12 @@ public class StringLib extends TwoArgFunction {
 		string.set("reverse", new reverse());
 		string.set("sub", new sub());
 		string.set("upper", new upper());
-		LuaTable mt = LuaValue.tableOf(
+		
 				new LuaValue[] { INDEX, string });
 		env.set("string", string);
-		env.get("package").get("loaded").set("string", string);
+		if (!env.get("package").isnil()) env.get("package").get("loaded").set("string", string);
-		if (LuaString.s_metatable == null)
+		if (LuaString.s_metatable == null) {
-			LuaString.s_metatable = mt;
+			LuaString.s_metatable = LuaValue.tableOf(new LuaValue[] { INDEX, string });
 		}
 		return string;
 	}
@@ -154,7 +154,7 @@ public class StringLib extends TwoArgFunction {
 			byte[] bytes = new byte[n];
 			for ( int i=0, a=1; i<n; i++, a++ ) {
 				int c = args.checkint(a);
-				if (c<0 || c>=256) argerror(a, "invalid value");
+				if (c<0 || c>=256) argerror(a, "invalid value for string.char [0; 255]: " + c);
 				bytes[i] = (byte) c;
 			}
 			return LuaString.valueUsing( bytes );
@@ -162,20 +162,22 @@ public class StringLib extends TwoArgFunction {
 	}
 	/**
-	 * string.dump (function)
+	 * string.dump (function[, stripDebug])
 	 * 
 	 * Returns a string containing a binary representation of the given function,
 	 * so that a later loadstring on this string returns a copy of the function.
 	 * function must be a Lua function without upvalues.
 	 * Boolean param stripDebug - true to strip debugging info, false otherwise.
 	 * The default value for stripDebug is true.
 	 * 
 	 * TODO: port dumping code as optional add-on
 	 */
-	static final class dump extends OneArgFunction {
+	static final class dump extends VarArgFunction {
-		public LuaValue call(LuaValue arg) {
+		public Varargs invoke(Varargs args) {
-			LuaValue f = arg.checkfunction();
+			LuaValue f = args.checkfunction(1);
 			ByteArrayOutputStream baos = new ByteArrayOutputStream();
 			try {
-				DumpState.dump( ((LuaClosure)f).p, baos, true );
+				DumpState.dump( ((LuaClosure)f).p, baos, args.optboolean(2, true) );
 				return LuaString.valueUsing(baos.toByteArray());
 			} catch (IOException e) {
 				return error( e.getMessage() );
@@ -228,7 +230,7 @@ public class StringLib extends TwoArgFunction {
 	 * This function does not accept string values containing embedded zeros,
 	 * except as arguments to the q option.
 	 */
-	static final class format extends VarArgFunction {
+	final class format extends VarArgFunction {
 		public Varargs invoke(Varargs args) {
 			LuaString fmt = args.checkstring( 1 );
 			final int n = fmt.length();
@@ -259,7 +261,7 @@ public class StringLib extends TwoArgFunction {
 								break;
 							case 'i':
 							case 'd':
-								fdsc.format( result, args.checkint( arg ) );
+								fdsc.format( result, args.checklong( arg ) );
 								break;
 							case 'o':
 							case 'u':
@@ -298,7 +300,7 @@ public class StringLib extends TwoArgFunction {
 		}
 	}
-	private static void addquoted(Buffer buf, LuaString s) {
+	static void addquoted(Buffer buf, LuaString s) {
 		int c;
 		buf.append( (byte) '"' );
 		for ( int i = 0, n = s.length(); i < n; i++ ) {
@@ -328,7 +330,7 @@ public class StringLib extends TwoArgFunction {
 	private static final String FLAGS = "-+ #0";
-	static class FormatDesc {
+	class FormatDesc {
 		private boolean leftAdjust;
 		private boolean zeroPad;
@@ -338,11 +340,13 @@ public class StringLib extends TwoArgFunction {
 		private static final int MAX_FLAGS = 5;
 		private int width;
-		private int precision;
+		int precision;
 		public final int conversion;
 		public final int length;
 		public final String src;
 		public FormatDesc(Varargs args, LuaString strfrmt, final int start) {
 			int p = start, n = strfrmt.length();
 			int c = 0;
@@ -390,6 +394,7 @@ public class StringLib extends TwoArgFunction {
 			zeroPad &= !leftAdjust; // '-' overrides '0'
 			conversion = c;
 			length = p - start;
 			src = strfrmt.substring(start - 1, p).tojstring();
 		}
 		public void format(Buffer buf, byte c) {
@@ -465,8 +470,7 @@ public class StringLib extends TwoArgFunction {
 		}
 		public void format(Buffer buf, double x) {
-			// TODO
+			buf.append( StringLib.this.format(src, x) );
 			buf.append( String.valueOf( x ) );
 		}
 		public void format(Buffer buf, LuaString s) {
@@ -476,13 +480,17 @@ public class StringLib extends TwoArgFunction {
 			buf.append(s);
 		}
-		public static final void pad(Buffer buf, char c, int n) {
+		public final void pad(Buffer buf, char c, int n) {
 			byte b = (byte)c;
 			while ( n-- > 0 )
 				buf.append(b);
 		}
 	}
 	protected String format(String src, double x) {
 		return String.valueOf(x);
 	}
 	/**
 	 * string.gmatch (s, pattern)
 	 * 
@@ -525,12 +533,13 @@ public class StringLib extends TwoArgFunction {
 			this.soffset = 0;
 		}
 		public Varargs invoke(Varargs args) {
-			for ( ; soffset<srclen; soffset++ ) {
+			for ( ; soffset<=srclen; soffset++ ) {
 				ms.reset();
 				int res = ms.match(soffset, 0);
 				if ( res >=0 ) {
 					int soff = soffset;
 					soffset = res;
 					if (soff == res) soffset++; /* empty match? go at least one position */
 					return ms.push_captures( true, soff, res );
 				}
 			}
@@ -764,7 +773,7 @@ public class StringLib extends TwoArgFunction {
 			boolean anchor = false;
 			int poff = 0;
-			if ( pat.luaByte( 0 ) == '^' ) {
+			if ( pat.length() > 0 && pat.luaByte( 0 ) == '^' ) {
 				anchor = true;
 				poff = 1;
 			}
@@ -785,7 +794,7 @@ public class StringLib extends TwoArgFunction {
 		return NIL;
 	}
-	private static int posrelat( int pos, int len ) {
+	static int posrelat( int pos, int len ) {
 		return ( pos >= 0 ) ? pos : len + pos + 1;
 	}
@@ -807,7 +816,7 @@ public class StringLib extends TwoArgFunction {
 	private static final byte MASK_CONTROL		= 0x40;
 	private static final byte MASK_HEXDIGIT		= (byte)0x80;
-	private static final byte[] CHAR_TABLE;
+	static final byte[] CHAR_TABLE;
 	static {
 		CHAR_TABLE = new byte[256];
@@ -866,8 +875,14 @@ public class StringLib extends TwoArgFunction {
 					lbuf.append( (byte) b );
 				} else {
 					++i; // skip ESC
-					b = (byte) news.luaByte( i );
+					b = (byte)(i < l ? news.luaByte( i ) : 0);
 					if ( !Character.isDigit( (char) b ) ) {
 						if (b != L_ESC) error( "invalid use of '" + (char)L_ESC +
 							"' in replacement string: after '" + (char)L_ESC +
 							"' must be '0'-'9' or '" + (char)L_ESC +
 							"', but found " + (i < l ? "symbol '" + (char)b + "' with code " + b +
 							" at pos " + (i + 1) :
 							"end of string"));
 						lbuf.append( b );
 					} else if ( b == '0' ) {
 						lbuf.append( s.substring( soff, e ) );
@@ -961,19 +976,19 @@ public class StringLib extends TwoArgFunction {
 			switch ( p.luaByte( poffset++ ) ) {
 			case L_ESC:
 				if ( poffset == p.length() ) {
-					error( "malformed pattern (ends with %)" );
+					error( "malformed pattern (ends with '%')" );
 				}
 				return poffset + 1;
 			case '[':
-				if ( p.luaByte( poffset ) == '^' ) poffset++;
+				if ( poffset != p.length() && p.luaByte( poffset ) == '^' ) poffset++;
 				do {
 					if ( poffset == p.length() ) {
-						error( "malformed pattern (missing ])" );
+						error( "malformed pattern (missing ']')" );
 					}
-					if ( p.luaByte( poffset++ ) == L_ESC && poffset != p.length() )
+					if ( p.luaByte( poffset++ ) == L_ESC && poffset < p.length() )
-						poffset++;
+						poffset++; /* skip escapes (e.g. '%]') */
-				} while ( p.luaByte( poffset ) != ']' );
+				} while ( poffset == p.length() || p.luaByte( poffset ) != ']' );
 				return poffset + 1;
 			default:
 				return poffset;
@@ -1062,13 +1077,14 @@ public class StringLib extends TwoArgFunction {
 						continue;
 					case 'f': {
 						poffset += 2;
-						if ( p.luaByte( poffset ) != '[' ) {
+						if ( poffset == p.length() || p.luaByte( poffset ) != '[' ) {
-							error("Missing [ after %f in pattern");
+							error("Missing '[' after '%f' in pattern");
 						}
 						int ep = classend( poffset );
-						int previous = ( soffset == 0 ) ? -1 : s.luaByte( soffset - 1 );
+						int previous = ( soffset == 0 ) ? '\0' : s.luaByte( soffset - 1 );
 						int next = ( soffset == s.length() ) ? '\0' : s.luaByte( soffset );
 						if ( matchbracketclass( previous, poffset, ep - 1 ) ||
-							 matchbracketclass( s.luaByte( soffset ), poffset, ep - 1 ) )
+							 !matchbracketclass( next, poffset, ep - 1 ) )
 							return -1;
 						poffset = ep;
 						continue;
--- a/src/core/org/luaj/vm2/lib/TableLib.java
+++ b/src/core/org/luaj/vm2/lib/TableLib.java
@@ -70,7 +70,7 @@ public class TableLib extends TwoArgFunction {
 		table.set("sort", new sort());
 		table.set("unpack", new unpack());
 		env.set("table", table);
-		env.get("package").get("loaded").set("table", table);
+		if (!env.get("package").isnil()) env.get("package").get("loaded").set("table", table);
 		return NIL;
 	}
--- a/src/jse/org/luaj/vm2/ast/Visitor.java
+++ b/src/jse/org/luaj/vm2/ast/Visitor.java
@@ -101,7 +101,7 @@ abstract public class Visitor {
 		visitExps(args.exps);
 	}
 	public void visit(TableField field) {
-		if ( field.name != null );
+		if ( field.name != null )
 			visit( field.name );
 		if ( field.index != null )
 			field.index.accept(this);
--- a/src/jse/org/luaj/vm2/lib/jse/CoerceJavaToLua.java
+++ b/src/jse/org/luaj/vm2/lib/jse/CoerceJavaToLua.java
@@ -21,6 +21,7 @@
 ******************************************************************************/
 package org.luaj.vm2.lib.jse;
 import java.util.Collections;
 import java.util.HashMap;
 import java.util.Map;
@@ -133,7 +134,7 @@ public class CoerceJavaToLua {
 	}
-	static final Map COERCIONS = new HashMap();
+	static final Map COERCIONS = Collections.synchronizedMap(new HashMap());
 	static {
 		Coercion boolCoercion = new BoolCoercion() ;
--- a/src/jse/org/luaj/vm2/lib/jse/JseBaseLib.java
+++ b/src/jse/org/luaj/vm2/lib/jse/JseBaseLib.java
@@ -21,6 +21,7 @@
 ******************************************************************************/
 package org.luaj.vm2.lib.jse;
 import java.io.BufferedInputStream;
 import java.io.File;
 import java.io.FileInputStream;
 import java.io.IOException;
@@ -106,9 +107,10 @@ public class JseBaseLib extends org.luaj.vm2.lib.BaseLib {
 		if ( ! f.exists() )
 			return super.findResource(filename);
 		try {
-			return new FileInputStream(f);
+			return new BufferedInputStream(new FileInputStream(f));
 		} catch ( IOException ioe ) {
 			return null;
 		}
 	}
 }
--- a/src/jse/org/luaj/vm2/lib/jse/JseMathLib.java
+++ b/src/jse/org/luaj/vm2/lib/jse/JseMathLib.java
@@ -24,6 +24,7 @@ package org.luaj.vm2.lib.jse;
 import org.luaj.vm2.Globals;
 import org.luaj.vm2.LuaValue;
 import org.luaj.vm2.lib.LibFunction;
 import org.luaj.vm2.lib.TwoArgFunction;
 /** 
 * Subclass of {@link LibFunction} which implements the lua standard {@code math} 
@@ -76,8 +77,9 @@ public class JseMathLib extends org.luaj.vm2.lib.MathLib {
 		LuaValue math = env.get("math");
 		math.set("acos", new acos());
 		math.set("asin", new asin());
-		math.set("atan", new atan());
+		LuaValue atan =  new atan2();
-		math.set("atan2", new atan2());
+		math.set("atan", atan);
 		math.set("atan2", atan);
 		math.set("cosh", new cosh());
 		math.set("exp", new exp());
 		math.set("log", new log());
@@ -89,11 +91,21 @@ public class JseMathLib extends org.luaj.vm2.lib.MathLib {
 	static final class acos extends UnaryOp { protected double call(double d) { return Math.acos(d); } }
 	static final class asin extends UnaryOp { protected double call(double d) { return Math.asin(d); } }
-	static final class atan extends UnaryOp { protected double call(double d) { return Math.atan(d); } }
+	static final class atan2 extends TwoArgFunction { 
-	static final class atan2 extends BinaryOp { protected double call(double y, double x) { return Math.atan2(y, x); } }
+		public LuaValue call(LuaValue x, LuaValue y) {
 			return valueOf(Math.atan2(x.checkdouble(), y.optdouble(1)));
 		} 
 	}
 	static final class cosh extends UnaryOp { protected double call(double d) { return Math.cosh(d); } }
 	static final class exp extends UnaryOp { protected double call(double d) { return Math.exp(d); } }
-	static final class log extends UnaryOp { protected double call(double d) { return Math.log(d); } }
+	static final class log extends TwoArgFunction {
 		public LuaValue call(LuaValue x, LuaValue base) {
 			double nat = Math.log(x.checkdouble());
 			double b = base.optdouble(Math.E);
 			if (b != Math.E) nat /= Math.log(b);
 			return valueOf(nat);
 		}
 	}
 	static final class pow extends BinaryOp { protected double call(double x, double y) { return Math.pow(x, y); } }
 	static final class sinh extends UnaryOp { protected double call(double d) { return Math.sinh(d); } }
 	static final class tanh extends UnaryOp { protected double call(double d) { return Math.tanh(d); } }
@@ -105,3 +117,4 @@ public class JseMathLib extends org.luaj.vm2.lib.MathLib {
 }
--- a/src/jse/org/luaj/vm2/lib/jse/JseOsLib.java
+++ b/src/jse/org/luaj/vm2/lib/jse/JseOsLib.java
@@ -74,13 +74,13 @@ import org.luaj.vm2.lib.OsLib;
 public class JseOsLib extends org.luaj.vm2.lib.OsLib {
 	/** return code indicating the execute() threw an I/O exception */
-	public static int EXEC_IOEXCEPTION =  1;
+	public static final int EXEC_IOEXCEPTION =  1;
 	/** return code indicating the execute() was interrupted */
-	public static int EXEC_INTERRUPTED = -2;
+	public static final int EXEC_INTERRUPTED = -2;
 	/** return code indicating the execute() threw an unknown exception */
-	public static int EXEC_ERROR       = -3;
+	public static final int EXEC_ERROR       = -3;
 	/** public constructor */
 	public JseOsLib() {
@@ -120,7 +120,7 @@ public class JseOsLib extends org.luaj.vm2.lib.OsLib {
 		if ( ! f.exists() )
 			throw new IOException("No such file or directory");
 		if ( ! f.renameTo(new File(newname)) )
-			throw new IOException("Failed to delete");
+			throw new IOException("Failed to rename");
 	}
 	protected String tmpname() {
--- a/src/jse/org/luaj/vm2/lib/jse/JsePlatform.java
+++ b/src/jse/org/luaj/vm2/lib/jse/JsePlatform.java
@@ -23,8 +23,8 @@ package org.luaj.vm2.lib.jse;
 import org.luaj.vm2.Globals;
 import org.luaj.vm2.LoadState;
 import org.luaj.vm2.LuaThread;
 import org.luaj.vm2.LuaValue;
 import org.luaj.vm2.Varargs;
 import org.luaj.vm2.compiler.LuaC;
 import org.luaj.vm2.lib.Bit32Lib;
 import org.luaj.vm2.lib.CoroutineLib;
@@ -97,7 +97,7 @@ public class JsePlatform {
 		globals.load(new PackageLib());
 		globals.load(new Bit32Lib());
 		globals.load(new TableLib());
-		globals.load(new StringLib());
+		globals.load(new JseStringLib());
 		globals.load(new CoroutineLib());
 		globals.load(new JseMathLib());
 		globals.load(new JseIoLib());
@@ -124,10 +124,11 @@ public class JsePlatform {
 	/** Simple wrapper for invoking a lua function with command line arguments.
-	 * The supplied function is first given a new Globals object, 
+	 * The supplied function is first given a new Globals object as its environment
 	 * then the program is run with arguments.
 	 * @return {@link Varargs} containing any values returned by mainChunk.
 	 */
-	public static void luaMain(LuaValue mainChunk, String[] args) {
+	public static Varargs luaMain(LuaValue mainChunk, String[] args) {
 		Globals g = standardGlobals();
 		int n = args.length;
 		LuaValue[] vargs = new LuaValue[args.length];
@@ -137,6 +138,6 @@ public class JsePlatform {
 		arg.set("n", n);
 		g.set("arg", arg);
 		mainChunk.initupvalue1(g);
-		mainChunk.invoke(LuaValue.varargsOf(vargs));
+		return mainChunk.invoke(LuaValue.varargsOf(vargs));
 	}
 }
--- a/src/jse/org/luaj/vm2/lib/jse/LuajavaLib.java
+++ b/src/jse/org/luaj/vm2/lib/jse/LuajavaLib.java
@@ -112,7 +112,7 @@ public class LuajavaLib extends VarArgFunction {
 				LuaTable t = new LuaTable();
 				bind( t, this.getClass(), NAMES, BINDCLASS );
 				env.set("luajava", t);
-				env.get("package").get("loaded").set("luajava", t);
+				if (!env.get("package").isnil()) env.get("package").get("loaded").set("luajava", t);
 				return t;
 			}
 			case BINDCLASS: {
--- a/test/junit/org/luaj/vm2/AllTests.java
+++ b/test/junit/org/luaj/vm2/AllTests.java
@@ -32,6 +32,7 @@ import org.luaj.vm2.compiler.DumpLoadEndianIntTest;
 import org.luaj.vm2.compiler.LuaParserTests;
 import org.luaj.vm2.compiler.RegressionTests;
 import org.luaj.vm2.compiler.SimpleTests;
 import org.luaj.vm2.lib.jse.JsePlatformTest;
 import org.luaj.vm2.lib.jse.LuaJavaCoercionTest;
 import org.luaj.vm2.lib.jse.LuajavaAccessibleMembersTest;
 import org.luaj.vm2.lib.jse.LuajavaClassMembersTest;
@@ -85,6 +86,7 @@ public class AllTests {
 		// library tests
 		TestSuite lib = new TestSuite("Library Tests");
 		lib.addTestSuite(JsePlatformTest.class);
 		lib.addTestSuite(LuajavaAccessibleMembersTest.class);
 		lib.addTestSuite(LuajavaClassMembersTest.class);
 		lib.addTestSuite(LuaJavaCoercionTest.class);
--- a/test/junit/org/luaj/vm2/lib/jse/JsePlatformTest.java
+++ b/test/junit/org/luaj/vm2/lib/jse/JsePlatformTest.java
@@ -0,0 +1,21 @@
 package org.luaj.vm2.lib.jse;
 import junit.framework.TestCase;
 import org.luaj.vm2.Globals;
 import org.luaj.vm2.LuaValue;
 import org.luaj.vm2.Varargs;
 public class JsePlatformTest extends TestCase {
 	public void testLuaMainPassesArguments() {
 		Globals globals = JsePlatform.standardGlobals();   
 		LuaValue chunk = globals.load("return #arg, arg.n, arg[2], arg[1]");
 		Varargs results = JsePlatform.luaMain(chunk, new String[] { "aaa", "bbb" });
 		assertEquals(results.narg(), 4);
 		assertEquals(results.arg(1), LuaValue.valueOf(2));
 		assertEquals(results.arg(2), LuaValue.valueOf(2));
 		assertEquals(results.arg(3), LuaValue.valueOf("bbb"));
 		assertEquals(results.arg(4), LuaValue.valueOf("aaa"));
 	}
 }
--- a/version.properties
+++ b/version.properties
@@ -1 +1 @@
-version: 3.0.1
+version: 3.0.2
Author	SHA1	Message	Date
Enyby	6694c375c9	Fix build errors for j2me. #32	2019-03-09 17:38:32 +02:00
Enyby	e70eb5edc2	Fix build bug. #32	2019-03-09 15:49:56 +02:00
Enyby	9688d3c5fc	Remove libs dependency from PackageLib.	2019-01-13 19:23:44 +02:00
Enyby	6f5af581e8	Fix string.gsub for invalid use '%' in replacement string Check code: ``` print(pcall(load('string.gsub("test", "%S", "A%")'))) print(pcall(load('string.gsub("test", "%S", "%A")'))) ```	2019-01-03 18:09:00 +02:00
Enyby	870aee2cae	Improved opt methods for numbers in LuaString	2018-12-29 19:49:43 +02:00
Enyby	c2ec9edf39	Deny use NaN as index in rawset.	2018-12-24 22:34:49 +02:00
Enyby	cfb3aaca61	Fix math.min and math.max. Now similar to native Lua and reference: `Returns the argument with the maximum value, according to the Lua operator <. (integer/float) `	2018-12-24 20:52:23 +02:00
Enyby	4105cebf1e	Fix math.fmod for int values.	2018-12-24 20:37:39 +02:00
Enyby	339f004eb7	More compat with lua tests.	2018-12-24 19:30:11 +02:00
Enyby	05a604645d	Fix modulo for edge cases. Reference code: ``` for i,lhs in ipairs({-math.huge, -10.0, 0.0, 10.0, math.huge}) do for j,rhs in ipairs({-math.huge, -10.0, 0.0, 10.0, math.huge}) do print(lhs, rhs, lhs % rhs) end end ```	2018-12-24 18:30:35 +02:00
Enyby	63ead7aac7	Fix string.format for long integers.	2018-12-24 11:45:06 +02:00
Enyby	c9ba2d4bb1	Fix math.modf for inf/-inf and int values.	2018-12-23 17:48:31 +02:00
Enyby	92cee0812d	Fix JSE math.log for second arg.	2018-12-23 17:06:34 +02:00
Enyby	e61e5694fa	Fix string.match for empty pattern	2018-12-16 06:38:23 +02:00
Enyby	47f8d6e6fc	Fix a frontier pattern match We're not in C anymore. LuaString are not null terminated. Also need quotes in error messages.	2018-12-11 23:44:39 +02:00
Enyby	14ac4bb7f9	Merge pull request #21 from lorenzos/patch-1 Check the type before reusing a NumberValueEntry	2018-11-02 23:11:36 +02:00
Lorenzo Stanco	b8aaaafb68	Check the type before reusing a NumberValueEntry Fixes #20	2018-10-31 15:57:02 +01:00
Enyby	88a557033b	Optimize get new stack for calls.	2018-09-20 20:14:02 +03:00
Enyby	24a8559ceb	Fix make LuaString from copy.	2018-09-17 16:32:09 +03:00
Enyby	028e03e4bc	Avoid synthetic methods	2018-09-16 18:49:26 +03:00
Enyby	5c1f7d2ab2	Make const final	2018-09-16 18:45:52 +03:00
Enyby	9db1254160	Avoid synthetic methods	2018-09-16 18:44:36 +03:00
Enyby	f899c709ff	Remove unused var.	2018-09-16 18:43:39 +03:00
Enyby	9c9e193cc4	Make consts final.	2018-09-16 18:40:06 +03:00
Enyby	e9db487d97	Improve convert function to string.	2018-09-16 18:38:49 +03:00
Enyby	c6fe5d3ed3	Avoid synthetic methods	2018-09-16 17:15:54 +03:00
Enyby	52ab872d08	Improve rawopenfile	2018-09-16 17:11:28 +03:00
Enyby	5d3041c6be	Improved get/setLocal.	2018-09-16 17:09:18 +03:00
Enyby	8d544729a8	Avoid synthetic methods.	2018-09-16 17:05:52 +03:00
Enyby	bd57dddef0	Imrove traceback build.	2018-09-16 17:03:35 +03:00
Enyby	d509e21cc6	Make static classes.	2018-09-16 17:02:24 +03:00
Enyby	5b67841232	Avoid synthetic methods	2018-09-16 16:58:51 +03:00
Enyby	bd4dac18ff	Make classes static to avoid leak parent instance.	2018-09-16 16:56:53 +03:00
Enyby	e02a82ef8d	Improve print.	2018-09-16 16:53:20 +03:00
Enyby	70a5086097	Make constants final.	2018-09-16 16:47:17 +03:00
Enyby	ad20f939b1	Fixed typo in JseOsLib	2018-09-16 16:46:13 +03:00
Enyby	e7058bcd6a	Improved math.atan/atan2.	2018-09-16 16:44:21 +03:00
Enyby	00c7e266ba	Used BufferedInputStream for JseBaseLib	2018-09-16 16:36:40 +03:00
Enyby	e75c5e2fca	Fix Visitor bug.	2018-09-16 16:33:42 +03:00
Enyby	ed46675a25	Improved concat values.	2018-09-16 16:08:53 +03:00
Enyby	8fbca25dce	Fixed table.unpack	2018-09-16 16:03:09 +03:00
Enyby	d0ed5b80e5	Improved error messages.	2018-09-16 15:52:14 +03:00
Enyby	9b77084109	Improved error messages.	2018-09-16 15:39:24 +03:00
Enyby	4f410fba6e	Fixed metatag processing for equality.	2018-09-16 15:30:41 +03:00
Enyby	f164c1cd28	Added optional param stripDebug to string.dump	2018-09-16 15:21:16 +03:00
Enyby	63ca0f94af	Removed synthetic accessors.	2018-09-16 15:13:06 +03:00
Enyby	5bd9827af1	Improve error message for string.char.	2018-09-16 15:09:36 +03:00
Enyby	0a5cccc50f	Fix issue with frontier patterns #3	2018-09-16 15:02:29 +03:00
Enyby	12aded74ca	Removed unused objects.	2018-09-16 10:01:39 +03:00
Enyby	48dd90f6d7	Removed unnecessary override.	2018-09-16 09:58:16 +03:00
Enyby	6333d9acf7	Merge pull request #17 from Enyby/patch-9 Fix format float numbers	2018-09-16 09:24:04 +03:00
Benjamin P. Jung	d61ed707ef	Merge pull request #18 from Enyby/patch-1 Rename README.html to README.md	2018-09-15 21:40:22 +02:00
Enyby	1e521d8900	Rename README.html to README.md	2018-09-14 15:46:14 +03:00
Benjamin P. Jung	bf8ef8d1a9	Merge pull request #15 from Enyby/patch-7 Fix gmatch for pass testsuites	2018-09-14 12:13:34 +02:00
Benjamin P. Jung	69498dbb7c	Merge pull request #16 from Enyby/patch-8 Fix build stack traceback in DebugLib Fixes #7	2018-09-14 12:12:42 +02:00
Benjamin P. Jung	4cc5f4270d	Merge pull request #14 from Enyby/patch-6 Fix for proper print OP_SETLIST additional opcode Closes #7	2018-09-14 12:12:10 +02:00
Enyby	75fa98d13f	Fix format float numbers Fix bug: https://sourceforge.net/p/luaj/bugs/53/ if System support String.format or fallback to old way.	2018-09-14 02:16:42 +03:00
Enyby	a627a868d5	Fix build stack traceback in DebugLib #7 If create huge table with a lot items (> 28000) then additional op code for store `c` out of range of op codes and this loop crash. This PR add case for OP_SETLIST for skip next op if in it stored `c`. OP_SETLIST not AMode OP `70cb74b4d6/src/core/org/luaj/vm2/Lua.java (L319)` `70cb74b4d6/src/core/org/luaj/vm2/Lua.java (L335)`	2018-09-14 02:13:21 +03:00
Enyby	f073919f64	Print any code	2018-09-14 02:09:43 +03:00
Enyby	27a1dcdd11	Fix gmatch for pass testsuites Test suites from lua.org: ``` -- tests for gmatch local a = 0 for i in string.gmatch('abcde', '()') do assert(i == a+1); a=i end assert(a==6) t = {n=0} for w in string.gmatch("first second word", "%w+") do t.n=t.n+1; t[t.n] = w end assert(t[1] == "first" and t[2] == "second" and t[3] == "word") t = {3, 6, 9} for i in string.gmatch ("xuxx uu ppar r", "()(.)%2") do assert(i == table.remove(t, 1)) end assert(#t == 0) t = {} for i,j in string.gmatch("13 14 10 = 11, 15= 16, 22=23", "(%d+)%s=%s(%d+)") do t[tonumber(i)] = tonumber(j) end a = 0 for k,v in pairs(t) do assert(k+1 == v+0); a=a+1 end assert(a == 3) -- tests for `%f' (`frontiers') assert(string.gsub("aaa aa a aaa a", "%f[%w]a", "x") == "xaa xa x xaa x") assert(string.gsub("[[]] [][] [[[[", "%f[[].", "x") == "x[]] x]x] x[[[") assert(string.gsub("01abc45de3", "%f[%d]", ".") == ".01abc.45de.3") assert(string.gsub("01abc45 de3x", "%f[%D]%w", ".") == "01.bc45 de3.") assert(string.gsub("function", "%f[\1-\255]%w", ".") == ".unction") assert(string.gsub("function", "%f[^\1-\255]", ".") == "function.") assert(string.find("a", "%f[a]") == 1) assert(string.find("a", "%f[^%z]") == 1) assert(string.find("a", "%f[^%l]") == 2) assert(string.find("aba", "%f[a%z]") == 3) assert(string.find("aba", "%f[%z]") == 4) assert(not string.find("aba", "%f[%l%z]")) assert(not string.find("aba", "%f[^%l%z]")) local i, e = string.find(" alo aalo allo", "%f[%S].-%f[%s].-%f[%S]") assert(i == 2 and e == 5) local k = string.match(" alo aalo allo", "%f[%S](.-%f[%s].-%f[%S])") assert(k == 'alo ') local a = {1, 5, 9, 14, 17,} for k in string.gmatch("alo alo th02 is 1hat", "()%f[%w%d]") do assert(table.remove(a, 1) == k) end assert(#a == 0) ``` Code from lua: https://www.lua.org/source/5.2/lstrlib.c.html ``` static int gmatch_aux (lua_State L) { MatchState ms; size_t ls, lp; const char s = lua_tolstring(L, lua_upvalueindex(1), &ls); const char p = lua_tolstring(L, lua_upvalueindex(2), &lp); const char src; ms.L = L; ms.matchdepth = MAXCCALLS; ms.src_init = s; ms.src_end = s+ls; ms.p_end = p + lp; for (src = s + (size_t)lua_tointeger(L, lua_upvalueindex(3)); src <= ms.src_end; src++) { const char e; ms.level = 0; lua_assert(ms.matchdepth == MAXCCALLS); if ((e = match(&ms, src, p)) != NULL) { lua_Integer newstart = e-s; if (e == src) newstart++; / empty match? go at least one position / lua_pushinteger(L, newstart); lua_replace(L, lua_upvalueindex(3)); return push_captures(&ms, src, e); } } return 0; / not found */ } ``` On empty match need increase string offset.	2018-09-14 02:04:56 +03:00
Enyby	b459724103	Fix for proper print OP_SETLIST additional opcode #7	2018-09-14 01:59:35 +03:00
Benjamin P. Jung	3d22990e3c	Migrate CVS project to Git * Delete .svnignore and move stuff to .gitignore * Add note to README to show that this is an inofficial fork as of now. * Change file suffix of README file from .html to .md for better Github integration and readability	2018-09-13 11:56:02 +02:00
James Roseborough	194b776317	Add synchronization to CoerceJavaToLua.COERCIONS map.	2018-09-13 11:53:24 +02:00
James Roseborough	828e4be019	Fix JsePlatform.luaMain() to provide an "arg" table in the chunk's environment.	2018-09-13 11:53:00 +02:00