- -Copyright © 2009-2012 Luaj.org. -Freely available under the terms of the -Luaj license. - -
- -introduction -· -examples -· -concepts -· -libraries -· -luaj api -· -parser -· -building -· -downloads -· -release notes - - -
- -
| |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
-From the main distribution directory line type: - -
- java -cp lib/luaj-jse-2.0.3.jar lua examples/lua/hello.lua -- -
-You should see the following output: -
- hello, world -- -To see how luaj can be used to acccess most Java API's including swing, try: - -
- java -cp lib/luaj-jse-2.0.3.jar lua examples/lua/swingapp.lua -- -
-From the main distribution directory line type: - -
- java -cp lib/luaj-jse-2.0.3.jar luac examples/lua/hello.lua - java -cp lib/luaj-jse-2.0.3.jar lua luac.out -- -
-The compiled output "luac.out" is lua bytecode and should run and produce the same result. - -
-Luaj can compile to lua source code to Java source code: - -
- java -cp lib/luaj-jse-2.0.3.jar lua2java -s examples/lua -d . hello.lua - javac -cp lib/luaj-jse-2.0.3.jar hello.java - java -cp "lib/luaj-jse-2.0.3.jar;." lua -l hello -- -
-The output hello.java is Java source, that implements the logic in hello.lua directly. -Once hello.java is compiled into hello.class it can be required and used in place of the original lua script, but with better performance. -There are no additional dependencies for compiling or running source-to-source compiled lua. - -
-Lua scripts can also be run directly in this mode without precompiling using the lua command with the -j option when run in JDK 1.5 or higher: -
- java -cp lib/luaj-jse-2.0.3.jar lua -j examples/lua/hello.lua -- -
-Luaj can compile lua sources or binaries directly to java bytecode if the bcel library is on the class path. From the main distribution directory line type: - -
- ant bcel-lib - java -cp "lib/luaj-jse-2.0.3.jar;lib/bcel-5.2.jar" luajc -s examples/lua -d . hello.lua - java -cp "lib/luaj-jse-2.0.3.jar;." lua -l hello -- -
-The output hello.class is Java bytecode, should run and produce the same result. -There is no runtime dependency on the bcel library, -but the compiled classes must be in the class path at runtime, unless runtime jit-compiling via luajc and bcel are desired (see later sections). - -
-Lua scripts can also be run directly in this mode without precompiling using the lua command with the -b option and providing the bcel library in the class path: -
- java -cp "lib/luaj-jse-2.0.3.jar;lib/bcel-5.2.jar" lua -b examples/lua/hello.lua -- - -
-The following pattern is used within Java SE - -
- import org.luaj.vm2.*;
- import org.luaj.vm2.lib.jse.*;
-
- String script = "examples/lua/hello.lua";
- LuaValue _G = JsePlatform.standardGlobals();
- _G.get("dofile").call( LuaValue.valueOf(script) );
-
-
--A simple example may be found in -
- examples/jse/SampleJseMain.java -- -
-You must include the library lib/luaj-jse-2.0.3.jar in your class path. - -
-The for MIDlets the JmePlatform is used instead: - -
- import org.luaj.vm2.*;
- import org.luaj.vm2.lib.jme.*;
-
- String script = "examples/lua/hello.lua";
- LuaValue _G = JmePlatform.standardGlobals();
- _G.get("dofile").call( LuaValue.valueOf(script) );
-
-
--The file must be a resource within within the midlet jar for dofile() to find it. -Any files included via require() must also be part of the midlet resources. - -
-A simple example may be found in -
- examples/jme/SampleMIDlet.java -- -
-You must include the library lib/luaj-jme-2.0.3.jar in your midlet jar. - -
-An ant script to build and run the midlet is in -
- build-midlet.xml -- -
-You must install the wireless toolkit and define WTK_HOME for this script to work. - -
-The standard use of JSR-223 scripting engines may be used: - -
- ScriptEngineManager mgr = new ScriptEngineManager();
- ScriptEngine e = mgr.getEngineByExtension(".lua");
- e.put("x", 25);
- e.eval("y = math.sqrt(x)");
- System.out.println( "y="+e.get("y") );
-
-
--All standard aspects of script engines including compiled statements should be supported. - -
-You must include the library lib/luaj-jse-2.0.3.jar in your class path. - -
-A working example may be found in -
- examples/jse/ScriptEngineSample.java -- -To compile and run it using Java 1.6 or higher: - -
- javac examples/jse/ScriptEngineSample.java - java -cp "lib/luaj-jse-2.0.3.jar;examples/jse" ScriptEngineSample -- -
-To exclude the lua-to-lua-bytecode compiler, do not call -standardGlobals() or debugGlobals() -but instead initialize globals with including only those libraries -that are needed and omitting the line: -
- org.luaj.vm2.compiler.LuaC.install(); -- - -
-To compile from lua sources to Java sources for all lua loaded at runtime, -install the Lua2Java compiler after globals have been created using: - -
- org.luaj.vm2.jse.lua2java.Lua2Java.install(); -- -This uses the system Java compiler to compile from Java source to Java bytecode, -and cannot compile lua binary files containing lua bytecode at runtime. - -
-To compile from lua to Java bytecode for all lua loaded at runtime, -install the LuaJC compiler after globals have been created using: - -
- org.luaj.vm2.jse.luajc.LuaJC.install(); -- -
-This will compile all lua bytecode into Java bytecode, regardless of if they are loaded as -lua source or lua binary files. - -
-The requires bcel to be on the class path, and the ClassLoader of JSE or CDC. - -
-The following libraries are loaded by both JsePlatform.standardGlobals() and JmePlatform.standardGlobals(): -
base - coroutine - io - math - os - package - string - table -- -
-The JsePlatform.standardGlobals() globals also include: -
luajava -- -
-The JsePlatform.debugGlobals() and JsePlatform.debugGlobals() functions produce globals that include: -
debug -- -
-The JmePlatform.standardGlobals() instantiated the io library io in -
- src/jme/org/luaj/vm2/lib/jme/JmeIoLib.java -- -The JsePlatform.standardGlobals() includes support for random access and is in -
- src/jse/org/luaj/vm2/lib/jse/JseIoLib.java -- -
-The basic os library implementation us used by JmePlatform and is in: -
- src/core/org/luaj/lib/OsLib.java -- -A richer version for use by JsePlatform is : -
- src/jse/org/luaj/vm2/lib/jse/JseOsLib.java -- -Time is a represented as number of milliseconds since the epoch, -and most time and date formatting, locales, and other features -are not implemented. - -
-Luaj uses WeakReferences and the OrphanedThread error to ensure that coroutines that are no longer referenced -are properly garbage collected. For thread safety, OrphanedThread should not be caught by Java code. -See LuaThread -and OrphanedThread -javadoc for details. - -
- require 'org.luaj.vm2.lib.DebugLib' -- -The lua command line utility includes the debug library by default. - - -
-The following lua script will open a swing frame on Java SE: -
- jframe = luajava.bindClass( "javax.swing.JFrame" ) - frame = luajava.newInstance( "javax.swing.JFrame", "Texts" ); - frame:setDefaultCloseOperation(jframe.EXIT_ON_CLOSE) - frame:setSize(300,400) - frame:setVisible(true) -- -
-See a longer sample in examples/lua/swingapp.lua for details, including a simple animation loop, rendering graphics, mouse and key handling, and image loading. -Or try running it using: -
- java -cp lib/luaj-jse-2.0.3.jar lua examples/lua/swingapp.lua -- -
-The Java ME platform does not include this library, and it cannot be made to work because of the lack of a reflection API in Java ME. - -
-The lua connand line tool includes luajava. - -
- http://luaj.sourceforge.net/api/2.0 -- -You can also build a local version from sources using -
- ant doc -- -
- org.luaj.vm2.LuaValue -- -
- call(); // invoke the function with no arguments - call(LuaValue arg1); // call the function with 1 argument - invoke(Varargs arg); // call the function with variable arguments, variable return values - get(int index); // get a table entry using an integer key - get(LuaValue key); // get a table entry using an arbitrary key, may be a LuaInteger - rawget(int index); // raw get without metatable calls - valueOf(int i); // return LuaValue corresponding to an integer - valueOf(String s); // return LuaValue corresponding to a String - toint(); // return value as a Java int - tojstring(); // return value as a Java String - isnil(); // is the value nil - NIL; // the value nil - NONE; // a Varargs instance with no values -- -
- org.luaj.vm2.Varargs -- -
- narg(); // return number of arguments - arg1(); // return the first argument - arg(int n); // return the nth argument - isnil(int n); // true if the nth argument is nil - checktable(int n); // return table or throw error - optlong(int n,long d); // return n if a long, d if no argument, or error if not a long -- -See the Varargs API for a complete list. - -
- org.luaj.vm2.lib.ZeroArgFunction - org.luaj.vm2.lib.OneArgFunction - org.luaj.vm2.lib.TwoArgFunction - org.luaj.vm2.lib.ThreeArgFunction - org.luaj.vm2.lib.VarArgFunction -- -Each of these functions has an abstract method that must be implemented, -and argument fixup is done automatically by the classes as each Java function is invoked. - -
-For example, to implement a "hello, world" function, we could supply: -
- pubic class hello extends ZeroArgFunction {
- public LuaValue call() {
- env.get("print").call(valueOf("hello, world"));
- }
- }
-
-
-The value env is the environment of the function, and is normally supplied
-by the instantiating object whenever default loading is used.
-
--Calling this function from lua could be done by: -
- require( 'hello' )() -- -while calling this function from Java would look like: -
- new hello().call(); -- -Note that in both the lua and Java case, extra arguments will be ignored, and the function will be called. -Also, no virtual machine instance is necessary to call the function. -To allow for arguments, or return multiple values, extend one of the other base classes. - -
-A plain undecorated grammer that can be used for validation is available in grammar/Lua51.jj -while a grammar that generates a typed parse tree is in grammar/LuaParser.jj - -
-To simplify the creation of abstract syntax trees from lua sources, the LuaParser class is generated as part of the JME build. -To use it, provide an input stream, and invoke the root generator, which will return a Chunk if the file is valid, -or throw a ParseException if there is a syntax error. - -
-For example, to parse a file and print all variable names, use code like: -
- try {
- String file = "main.lua";
- LuaParser parser = new LuaParser(new FileInputStream(file));
- Chunk chunk = parser.Chunk();
- chunk.accept( new Visitor() {
- public void visit(Exp.NameExp exp) {
- System.out.println("Name in use: "+exp.name.name);
- }
- } );
- } catch ( ParseException e ) {
- System.out.println("parse failed: " + e.getMessage() + "\n"
- + "Token Image: '" + e.currentToken.image + "'\n"
- + "Location: " + e.currentToken.beginLine + ":" + e.currentToken.beginColumn
- + "-" + e.currentToken.endLine + "," + e.currentToken.endColumn);
- }
-
-In luaj 2.0.3 error reporting was turned on in the parser so line numbers are avaiable for most parse exceptions.
-This example may be found in
-- examples/jse/SampleParser.java -- -
-See the org.luaj.vm2.ast package javadoc for the API relating to the syntax tree that is produced. - -
-Other targets exist for creating distribution file an measuring code coverage of unit tests. - -
-The main luaj JUnit tests are organized into a JUnit 3 suite: -
- test/junit/org/luaj/vm2/AllTests.lua -- -
-Unit test scripts can be found in these locations -
- test/lua/*.lua - test/junit/org/luaj/vm2/compiler/lua5.1-tests.zip - test/junit/org/luaj/vm2/compiler/regressions.zip - test/junit/org/luaj/vm2/vm1/luajvm1-tests.zip -- -
-A build script for running unit tests and producing code coverage statistics is in -
- build-coverage.xml -- -It relies on the cobertura code coverage library. - -
- SourceForge Luaj Project Page - SourceForge Luaj Download Area -- -and LuaForge: -
- LuaForge Luaj Project Page - LuaForge Luaj Project Area -- -
|
- * The buffer can begin initially as a wrapped {@link LuaValue} - * and only when concatenation actually occurs are the bytes first copied. - *
- * To convert back to a {@link LuaValue} again,
- * the function {@link Buffer#value()} is used.
- * @see LuaValue
- * @see LuaValue#buffer()
- * @see LuaString
- */
-public final class Buffer {
-
- /** Default capacity for a buffer: 64 */
- private static final int DEFAULT_CAPACITY = 64;
-
- /** Shared static array with no bytes */
- private static final byte[] NOBYTES = {};
-
- /** Bytes in this buffer */
- private byte[] bytes;
-
- /** Length of this buffer */
- private int length;
-
- /** Offset into the byte array */
- private int offset;
-
- /** Value of this buffer, when not represented in bytes */
- private LuaValue value;
-
- /**
- * Create buffer with default capacity
- * @see #DEFAULT_CAPACITY
- */
- public Buffer() {
- this(DEFAULT_CAPACITY);
- }
-
- /**
- * Create buffer with specified initial capacity
- * @param initialCapacity the initial capacity
- */
- public Buffer( int initialCapacity ) {
- bytes = new byte[ initialCapacity ];
- length = 0;
- offset = 0;
- value = null;
- }
-
- /**
- * Create buffer with specified initial value
- * @param value the initial value
- */
- public Buffer(LuaValue value) {
- bytes = NOBYTES;
- length = offset = 0;
- this.value = value;
- }
-
- /**
- * Get buffer contents as a {@link LuaValue}
- * @return value as a {@link LuaValue}, converting as necessary
- */
- public LuaValue value() {
- return value != null? value: this.tostring();
- }
-
- /**
- * Set buffer contents as a {@link LuaValue}
- * @param value value to set
- */
- public Buffer setvalue(LuaValue value) {
- bytes = NOBYTES;
- offset = length = 0;
- this.value = value;
- return this;
- }
-
- /**
- * Convert the buffer to a {@link LuaString}
- * @return the value as a {@link LuaString}
- */
- public final LuaString tostring() {
- realloc( length, 0 );
- return LuaString.valueOf( bytes, offset, length );
- }
-
- /**
- * Convert the buffer to a Java String
- * @return the value as a Java String
- */
- public String tojstring() {
- return value().tojstring();
- }
-
- /**
- * Convert the buffer to a Java String
- * @return the value as a Java String
- */
- public String toString() {
- return tojstring();
- }
-
- /**
- * Append a single byte to the buffer.
- * @return {@code this} to allow call chaining
- */
- public final Buffer append( byte b ) {
- makeroom( 0, 1 );
- bytes[ offset + length++ ] = b;
- return this;
- }
-
- /**
- * Append a {@link LuaValue} to the buffer.
- * @return {@code this} to allow call chaining
- */
- public final Buffer append( LuaValue val ) {
- append( val.strvalue() );
- return this;
- }
-
- /**
- * Append a {@link LuaString} to the buffer.
- * @return {@code this} to allow call chaining
- */
- public final Buffer append( LuaString str ) {
- final int n = str.m_length;
- makeroom( 0, n );
- str.copyInto( 0, bytes, offset + length, n );
- length += n;
- return this;
- }
-
- /**
- * Append a Java String to the buffer.
- * The Java string will be converted to bytes using the UTF8 encoding.
- * @return {@code this} to allow call chaining
- * @see LuaString#encodeToUtf8(char[], byte[], int)
- */
- public final Buffer append( String str ) {
- char[] chars = str.toCharArray();
- /* DAN200 START */
- /*
- final int n = LuaString.lengthAsUtf8( chars );
- makeroom( 0, n );
- LuaString.encodeToUtf8( chars, bytes, offset + length );
- length += n;
- */
- makeroom( 0, chars.length );
- for( int i=0; i
-* A simple pattern for loading and executing code is
-*
-*
-* Prior to loading code, a compiler should be installed.
-*
-* By default, when using {@link JsePlatform} or {@JmePlatform}
-* to construct globals, the {@link LuaC} compiler is installed.
-*
-* To override the default compiler with, say, the {@link LuaJC}
-* lua-to-java bytecode compiler, install it before loading,
-* for example:
-*
- * See the {@link LuaClosure} documentation for examples of how to use the compiler.
- * @see LuaClosure
- * @see #load(InputStream, String, LuaValue)
- * */
- public interface LuaCompiler {
-
- /** Load into a Closure or LuaFunction from a Stream and initializes the environment
- * @throws IOException */
- public LuaFunction load(InputStream stream, String filename, LuaValue env) throws IOException;
- }
-
- /** Compiler instance, if installed */
- public static LuaCompiler compiler = null;
-
- /** Signature byte indicating the file is a compiled binary chunk */
- private static final byte[] LUA_SIGNATURE = { '\033', 'L', 'u', 'a' };
-
- /** Name for compiled chunks */
- public static final String SOURCE_BINARY_STRING = "binary string";
-
-
- /** for header of binary files -- this is Lua 5.1 */
- public static final int LUAC_VERSION = 0x51;
-
- /** for header of binary files -- this is the official format */
- public static final int LUAC_FORMAT = 0;
-
- /** size of header of binary files */
- public static final int LUAC_HEADERSIZE = 12;
-
- // values read from the header
- private int luacVersion;
- private int luacFormat;
- private boolean luacLittleEndian;
- private int luacSizeofInt;
- private int luacSizeofSizeT;
- private int luacSizeofInstruction;
- private int luacSizeofLuaNumber;
- private int luacNumberFormat;
-
- /** input stream from which we are loading */
- public final DataInputStream is;
-
- /** Name of what is being loaded? */
- String name;
-
- private static final LuaValue[] NOVALUES = {};
- private static final Prototype[] NOPROTOS = {};
- private static final LocVars[] NOLOCVARS = {};
- private static final LuaString[] NOSTRVALUES = {};
- private static final int[] NOINTS = {};
-
- /** Read buffer */
- private byte[] buf = new byte[512];
-
-
- /** Load a 4-byte int value from the input stream
- * @return the int value laoded.
- **/
- int loadInt() throws IOException {
- is.readFully(buf,0,4);
- return luacLittleEndian?
- (buf[3] << 24) | ((0xff & buf[2]) << 16) | ((0xff & buf[1]) << 8) | (0xff & buf[0]):
- (buf[0] << 24) | ((0xff & buf[1]) << 16) | ((0xff & buf[2]) << 8) | (0xff & buf[3]);
- }
-
- /** Load an array of int values from the input stream
- * @return the array of int values laoded.
- **/
- int[] loadIntArray() throws IOException {
- int n = loadInt();
- if ( n == 0 )
- return NOINTS;
-
- // read all data at once
- int m = n << 2;
- if ( buf.length < m )
- buf = new byte[m];
- is.readFully(buf,0,m);
- int[] array = new int[n];
- for ( int i=0, j=0; i
- * These instance are not instantiated directly by clients.
- * Instead, there are exactly twon instances of this class,
- * {@link LuaValue#TRUE} and {@link LuaValue#FALSE}
- * representing the lua values {@code true} and {@link false}.
- * The function {@link LuaValue#valueOf(boolean)} will always
- * return one of these two values.
- *
- * Any {@link LuaValue} can be converted to its equivalent
- * boolean representation using {@link LuaValue#toboolean()}
- *
- * @see LuaValue
- * @see LuaValue#valueOf(boolean)
- * @see LuaValue#TRUE
- * @see LuaValue#FALSE
- */
-public final class LuaBoolean extends LuaValue {
-
- /** The singleton instance representing lua {@code true} */
- static final LuaBoolean _TRUE = new LuaBoolean(true);
-
- /** The singleton instance representing lua {@code false} */
- static final LuaBoolean _FALSE = new LuaBoolean(false);
-
- /** Shared static metatable for boolean values represented in lua. */
- public static LuaValue s_metatable;
-
- /** The value of the boolean */
- public final boolean v;
-
- LuaBoolean(boolean b) {
- this.v = b;
- }
-
- public int type() {
- return LuaValue.TBOOLEAN;
- }
-
- public String typename() {
- return "boolean";
- }
-
- public boolean isboolean() {
- return true;
- }
-
- public LuaValue not() {
- return v ? FALSE : LuaValue.TRUE;
- }
-
- /**
- * Return the boolean value for this boolean
- * @return value as a Java boolean
- */
- public boolean booleanValue() {
- return v;
- }
-
- public boolean toboolean() {
- return v;
- }
-
- public String tojstring() {
- return v ? "true" : "false";
- }
-
- public boolean optboolean(boolean defval) {
- return this.v;
- }
-
- public boolean checkboolean() {
- return v;
- }
-
- public LuaValue getmetatable() {
- return s_metatable;
- }
-}
diff --git a/luaj-2.0.3/src/core/org/luaj/vm2/LuaClosure.java b/luaj-2.0.3/src/core/org/luaj/vm2/LuaClosure.java
deleted file mode 100644
index 8deb56b47..000000000
--- a/luaj-2.0.3/src/core/org/luaj/vm2/LuaClosure.java
+++ /dev/null
@@ -1,521 +0,0 @@
-/*******************************************************************************
-* Copyright (c) 2009 Luaj.org. All rights reserved.
-*
-* Permission is hereby granted, free of charge, to any person obtaining a copy
-* of this software and associated documentation files (the "Software"), to deal
-* in the Software without restriction, including without limitation the rights
-* to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
-* copies of the Software, and to permit persons to whom the Software is
-* furnished to do so, subject to the following conditions:
-*
-* The above copyright notice and this permission notice shall be included in
-* all copies or substantial portions of the Software.
-*
-* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
-* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
-* AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
-* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
-* OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
-* THE SOFTWARE.
-******************************************************************************/
-package org.luaj.vm2;
-
-import java.io.ByteArrayInputStream;
-import java.io.InputStream;
-
-import org.luaj.vm2.LoadState.LuaCompiler;
-import org.luaj.vm2.compiler.LuaC;
-import org.luaj.vm2.lib.DebugLib;
-
-/**
- * Extension of {@link LuaFunction} which executes lua bytecode.
- *
- * A {@link LuaClosure} is a combination of a {@link Prototype}
- * and a {@link LuaValue} to use as an environment for execution.
- *
- * There are three main ways {@link LuaClosure} instances are created:
- *
- * To construct it directly, the {@link Prototype} is typically created via a compiler such as {@link LuaC}:
- *
- * To construct it indirectly, the {@link LuaC} compiler may be used,
- * which implements the {@link LuaCompiler} interface:
- *
- * Typically, a closure that has just been loaded needs to be initialized by executing it,
- * and its return value can be saved if needed:
- *
- * In the preceding, the loaded value is typed as {@link LuaFunction}
- * to allow for the possibility of other compilers such as {@link LuaJC}
- * producing {@link LuaFunction} directly without
- * creating a {@link Prototype} or {@link LuaClosure}.
- *
- * Since a {@link LuaClosure} is a {@link LuaFunction} which is a {@link LuaValue},
- * all the value operations can be used directly such as:
- *
- * These instance are not instantiated directly by clients, but indirectly
- * via the static functions {@link LuaValue#valueOf(int)} or {@link LuaValue#valueOf(double)}
- * functions. This ensures that values which can be represented as int
- * are wrapped in {@link LuaInteger} instead of {@link LuaDouble}.
- *
- * Almost all API's implemented in LuaDouble are defined and documented in {@link LuaValue}.
- *
- * However the constants {@link #NAN}, {@link #POSINF}, {@link #NEGINF},
- * {@link #JSTR_NAN}, {@link #JSTR_POSINF}, and {@link #JSTR_NEGINF} may be useful
- * when dealing with Nan or Infinite values.
- *
- * LuaDouble also defines functions for handling the unique math rules of lua devision and modulo in
- *
- * @see LuaValue
- * @see LuaNumber
- * @see LuaInteger
- * @see LuaValue#valueOf(int)
- * @see LuaValue#valueOf(double)
- */
-public class LuaDouble extends LuaNumber {
-
- /** Constant LuaDouble representing NaN (not a number) */
- public static final LuaDouble NAN = new LuaDouble( Double.NaN );
-
- /** Constant LuaDouble representing positive infinity */
- public static final LuaDouble POSINF = new LuaDouble( Double.POSITIVE_INFINITY );
-
- /** Constant LuaDouble representing negative infinity */
- public static final LuaDouble NEGINF = new LuaDouble( Double.NEGATIVE_INFINITY );
-
- /** Constant String representation for NaN (not a number), "nan" */
- public static final String JSTR_NAN = "nan";
-
- /** Constant String representation for positive infinity, "inf" */
- public static final String JSTR_POSINF = "inf";
-
- /** Constant String representation for negative infinity, "-inf" */
- public static final String JSTR_NEGINF = "-inf";
-
- /** The value being held by this instance. */
- final double v;
-
- public static LuaNumber valueOf(double d) {
- int id = (int) d;
- return d==id? (LuaNumber) LuaInteger.valueOf(id): (LuaNumber) new LuaDouble(d);
- }
-
- /** Don't allow ints to be boxed by DoubleValues */
- private LuaDouble(double d) {
- this.v = d;
- }
-
- public int hashCode() {
- long l = Double.doubleToLongBits(v);
- return ((int)(l>>32)) | (int) l;
- }
-
- public boolean islong() {
- return v == (long) v;
- }
-
- public byte tobyte() { return (byte) (long) v; }
- public char tochar() { return (char) (long) v; }
- public double todouble() { return v; }
- public float tofloat() { return (float) v; }
- public int toint() { return (int) (long) v; }
- public long tolong() { return (long) v; }
- public short toshort() { return (short) (long) v; }
-
- public double optdouble(double defval) { return v; }
- public int optint(int defval) { return (int) (long) v; }
- public LuaInteger optinteger(LuaInteger defval) { return LuaInteger.valueOf((int) (long)v); }
- public long optlong(long defval) { return (long) v; }
-
- public LuaInteger checkinteger() { return LuaInteger.valueOf( (int) (long) v ); }
-
- // unary operators
- public LuaValue neg() { return valueOf(-v); }
-
- // object equality, used for key comparison
- public boolean equals(Object o) { return o instanceof LuaDouble? ((LuaDouble)o).v == v: false; }
-
- // equality w/ metatable processing
- public LuaValue eq( LuaValue val ) { return val.raweq(v)? TRUE: FALSE; }
- public boolean eq_b( LuaValue val ) { return val.raweq(v); }
-
- // equality w/o metatable processing
- public boolean raweq( LuaValue val ) { return val.raweq(v); }
- public boolean raweq( double val ) { return v == val; }
- public boolean raweq( int val ) { return v == val; }
-
- // basic binary arithmetic
- public LuaValue add( LuaValue rhs ) { return rhs.add(v); }
- public LuaValue add( double lhs ) { return LuaDouble.valueOf(lhs + v); }
- public LuaValue sub( LuaValue rhs ) { return rhs.subFrom(v); }
- public LuaValue sub( double rhs ) { return LuaDouble.valueOf(v - rhs); }
- public LuaValue sub( int rhs ) { return LuaDouble.valueOf(v - rhs); }
- public LuaValue subFrom( double lhs ) { return LuaDouble.valueOf(lhs - v); }
- public LuaValue mul( LuaValue rhs ) { return rhs.mul(v); }
- public LuaValue mul( double lhs ) { return LuaDouble.valueOf(lhs * v); }
- public LuaValue mul( int lhs ) { return LuaDouble.valueOf(lhs * v); }
- public LuaValue pow( LuaValue rhs ) { return rhs.powWith(v); }
- public LuaValue pow( double rhs ) { return MathLib.dpow(v,rhs); }
- public LuaValue pow( int rhs ) { return MathLib.dpow(v,rhs); }
- public LuaValue powWith( double lhs ) { return MathLib.dpow(lhs,v); }
- public LuaValue powWith( int lhs ) { return MathLib.dpow(lhs,v); }
- public LuaValue div( LuaValue rhs ) { return rhs.divInto(v); }
- public LuaValue div( double rhs ) { return LuaDouble.ddiv(v,rhs); }
- public LuaValue div( int rhs ) { return LuaDouble.ddiv(v,rhs); }
- public LuaValue divInto( double lhs ) { return LuaDouble.ddiv(lhs,v); }
- public LuaValue mod( LuaValue rhs ) { return rhs.modFrom(v); }
- public LuaValue mod( double rhs ) { return LuaDouble.dmod(v,rhs); }
- public LuaValue mod( int rhs ) { return LuaDouble.dmod(v,rhs); }
- public LuaValue modFrom( double lhs ) { return LuaDouble.dmod(lhs,v); }
-
-
- /** Divide two double numbers according to lua math, and return a {@link LuaValue} result.
- * @param lhs Left-hand-side of the division.
- * @param rhs Right-hand-side of the division.
- * @return {@link LuaValue} for the result of the division,
- * taking into account positive and negiative infinity, and Nan
- * @see #ddiv_d(double, double)
- */
- public static LuaValue ddiv(double lhs, double rhs) {
- return rhs!=0? valueOf( lhs / rhs ): lhs>0? POSINF: lhs==0? NAN: NEGINF;
- }
-
- /** Divide two double numbers according to lua math, and return a double result.
- * @param lhs Left-hand-side of the division.
- * @param rhs Right-hand-side of the division.
- * @return Value of the division, taking into account positive and negative infinity, and Nan
- * @see #ddiv(double, double)
- */
- public static double ddiv_d(double lhs, double rhs) {
- return rhs!=0? lhs / rhs: lhs>0? Double.POSITIVE_INFINITY: lhs==0? Double.NaN: Double.NEGATIVE_INFINITY;
- }
-
- /** Take modulo double numbers according to lua math, and return a {@link LuaValue} result.
- * @param lhs Left-hand-side of the modulo.
- * @param rhs Right-hand-side of the modulo.
- * @return {@link LuaValue} for the result of the modulo,
- * using lua's rules for modulo
- * @see #dmod_d(double, double)
- */
- public static LuaValue dmod(double lhs, double rhs) {
- return rhs!=0? valueOf( lhs-rhs*Math.floor(lhs/rhs) ): NAN;
- }
-
- /** Take modulo for double numbers according to lua math, and return a double result.
- * @param lhs Left-hand-side of the modulo.
- * @param rhs Right-hand-side of the modulo.
- * @return double value for the result of the modulo,
- * using lua's rules for modulo
- * @see #dmod(double, double)
- */
- public static double dmod_d(double lhs, double rhs) {
- return rhs!=0? lhs-rhs*Math.floor(lhs/rhs): Double.NaN;
- }
-
- // relational operators
- public LuaValue lt( LuaValue rhs ) { return rhs.gt_b(v)? LuaValue.TRUE: FALSE; }
- public LuaValue lt( double rhs ) { return v < rhs? TRUE: FALSE; }
- public LuaValue lt( int rhs ) { return v < rhs? TRUE: FALSE; }
- public boolean lt_b( LuaValue rhs ) { return rhs.gt_b(v); }
- public boolean lt_b( int rhs ) { return v < rhs; }
- public boolean lt_b( double rhs ) { return v < rhs; }
- public LuaValue lteq( LuaValue rhs ) { return rhs.gteq_b(v)? LuaValue.TRUE: FALSE; }
- public LuaValue lteq( double rhs ) { return v <= rhs? TRUE: FALSE; }
- public LuaValue lteq( int rhs ) { return v <= rhs? TRUE: FALSE; }
- public boolean lteq_b( LuaValue rhs ) { return rhs.gteq_b(v); }
- public boolean lteq_b( int rhs ) { return v <= rhs; }
- public boolean lteq_b( double rhs ) { return v <= rhs; }
- public LuaValue gt( LuaValue rhs ) { return rhs.lt_b(v)? LuaValue.TRUE: FALSE; }
- public LuaValue gt( double rhs ) { return v > rhs? TRUE: FALSE; }
- public LuaValue gt( int rhs ) { return v > rhs? TRUE: FALSE; }
- public boolean gt_b( LuaValue rhs ) { return rhs.lt_b(v); }
- public boolean gt_b( int rhs ) { return v > rhs; }
- public boolean gt_b( double rhs ) { return v > rhs; }
- public LuaValue gteq( LuaValue rhs ) { return rhs.lteq_b(v)? LuaValue.TRUE: FALSE; }
- public LuaValue gteq( double rhs ) { return v >= rhs? TRUE: FALSE; }
- public LuaValue gteq( int rhs ) { return v >= rhs? TRUE: FALSE; }
- public boolean gteq_b( LuaValue rhs ) { return rhs.lteq_b(v); }
- public boolean gteq_b( int rhs ) { return v >= rhs; }
- public boolean gteq_b( double rhs ) { return v >= rhs; }
-
- // string comparison
- public int strcmp( LuaString rhs ) { typerror("attempt to compare number with string"); return 0; }
-
- public String tojstring() {
- /*
- if ( v == 0.0 ) { // never occurs in J2me
- long bits = Double.doubleToLongBits( v );
- return ( bits >> 63 == 0 ) ? "0" : "-0";
- }
- */
- long l = (long) v;
- if ( l == v )
- return Long.toString(l);
- if ( Double.isNaN(v) )
- return JSTR_NAN;
- if ( Double.isInfinite(v) )
- return (v<0? JSTR_NEGINF: JSTR_POSINF);
- return Float.toString((float)v);
- }
-
- public LuaString strvalue() {
- return LuaString.valueOf(tojstring());
- }
-
- public LuaString optstring(LuaString defval) {
- return LuaString.valueOf(tojstring());
- }
-
- public LuaValue tostring() {
- return LuaString.valueOf(tojstring());
- }
-
- public String optjstring(String defval) {
- return tojstring();
- }
-
- public LuaNumber optnumber(LuaNumber defval) {
- return this;
- }
-
- public boolean isnumber() {
- return true;
- }
-
- public boolean isstring() {
- return true;
- }
-
- public LuaValue tonumber() {
- return this;
- }
- public int checkint() { return (int) (long) v; }
- public long checklong() { return (long) v; }
- public LuaNumber checknumber() { return this; }
- public double checkdouble() { return v; }
-
- public String checkjstring() {
- return tojstring();
- }
- public LuaString checkstring() {
- return LuaString.valueOf(tojstring());
- }
-
- public LuaValue checkvalidkey() {
- if ( Double.isNaN(v) )
- throw new LuaError("table index expected, got nan");
- return this;
- }
-}
diff --git a/luaj-2.0.3/src/core/org/luaj/vm2/LuaError.java b/luaj-2.0.3/src/core/org/luaj/vm2/LuaError.java
deleted file mode 100644
index fd9c62e4e..000000000
--- a/luaj-2.0.3/src/core/org/luaj/vm2/LuaError.java
+++ /dev/null
@@ -1,132 +0,0 @@
-/*******************************************************************************
-* Copyright (c) 2009-2011 Luaj.org. All rights reserved.
-*
-* Permission is hereby granted, free of charge, to any person obtaining a copy
-* of this software and associated documentation files (the "Software"), to deal
-* in the Software without restriction, including without limitation the rights
-* to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
-* copies of the Software, and to permit persons to whom the Software is
-* furnished to do so, subject to the following conditions:
-*
-* The above copyright notice and this permission notice shall be included in
-* all copies or substantial portions of the Software.
-*
-* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
-* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
-* AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
-* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
-* OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
-* THE SOFTWARE.
-******************************************************************************/
-package org.luaj.vm2;
-
-import org.luaj.vm2.lib.DebugLib;
-
-/**
- * RuntimeException that is thrown and caught in response to a lua error.
- *
- * {@link LuaError} is used wherever a lua call to {@code error()}
- * would be used within a script.
- *
- * Since it is an unchecked exception inheriting from {@link RuntimeException},
- * Java method signatures do notdeclare this exception, althoug it can
- * be thrown on almost any luaj Java operation.
- * This is analagous to the fact that any lua script can throw a lua error at any time.
- *
- */
-public class LuaError extends RuntimeException {
- private static final long serialVersionUID = 1L;
-
- private String traceback;
-
- /**
- * Run the error hook if there is one
- * @param msg the message to use in error hook processing.
- * */
- private static String errorHook(String msg) {
- LuaThread thread = LuaThread.getRunning();
- if ( thread.err != null ) {
- LuaValue errfunc = thread.err;
- thread.err = null;
- try {
- return errfunc.call( LuaValue.valueOf(msg) ).tojstring();
- } catch ( Throwable t ) {
- return "error in error handling";
- } finally {
- thread.err = errfunc;
- }
- }
- return msg;
- }
-
- private Throwable cause;
-
- /** Construct LuaError when a program exception occurs.
- *
- * All errors generated from lua code should throw LuaError(String) instead.
- * @param cause the Throwable that caused the error, if known.
- */
- public LuaError(Throwable cause) {
- super( errorHook( addFileLine( "vm error: "+cause ) ) );
- this.cause = cause;
- this.traceback = DebugLib.traceback(1);
- }
-
- /**
- * Construct a LuaError with a specific message.
- *
- * @param message message to supply
- */
- public LuaError(String message) {
- super( errorHook( addFileLine( message ) ) );
- this.traceback = DebugLib.traceback(1);
- }
-
- /**
- * Construct a LuaError with a message, and level to draw line number information from.
- * @param message message to supply
- * @param level where to supply line info from in call stack
- */
- public LuaError(String message, int level) {
- super( errorHook( addFileLine( message, level ) ) );
- this.traceback = DebugLib.traceback(1);
- }
-
- /**
- * Add file and line info to a message at a particular level
- * @param message the String message to use
- * @param level where to supply line info from in call stack
- * */
- private static String addFileLine( String message, int level ) {
- if ( message == null ) return null;
- if ( level == 0 ) return message;
- String fileline = DebugLib.fileline(level-1);
- return fileline!=null? fileline+": "+message: message;
- }
-
- /** Add file and line info for the nearest enclosing closure
- * @param message the String message to use
- * */
- private static String addFileLine( String message ) {
- if ( message == null ) return null;
- String fileline = DebugLib.fileline();
- return fileline!=null? fileline+": "+message: message;
- }
-
- /** Print the message and stack trace */
- public void printStackTrace() {
- System.out.println( toString() );
- if ( traceback != null )
- System.out.println( traceback );
- }
-
- /**
- * Get the cause, if any.
- */
- public Throwable getCause() {
- return cause;
- }
-
-
-}
diff --git a/luaj-2.0.3/src/core/org/luaj/vm2/LuaFunction.java b/luaj-2.0.3/src/core/org/luaj/vm2/LuaFunction.java
deleted file mode 100644
index 5a4f11463..000000000
--- a/luaj-2.0.3/src/core/org/luaj/vm2/LuaFunction.java
+++ /dev/null
@@ -1,82 +0,0 @@
-/*******************************************************************************
- * Copyright (c) 2009-2011 Luaj.org. All rights reserved.
- *
- * Permission is hereby granted, free of charge, to any person obtaining a copy
- * of this software and associated documentation files (the "Software"), to deal
- * in the Software without restriction, including without limitation the rights
- * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
- * copies of the Software, and to permit persons to whom the Software is
- * furnished to do so, subject to the following conditions:
- *
- * The above copyright notice and this permission notice shall be included in
- * all copies or substantial portions of the Software.
- *
- * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
- * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
- * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
- * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
- * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
- * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
- * THE SOFTWARE.
- ******************************************************************************/
-package org.luaj.vm2;
-
-/**
- * Base class for functions implemented in Java.
- *
- * Direct subclass include {@link LibFunction} which is the base class for
- * all built-in library functions coded in Java,
- * and {@link LuaClosure}, which represents a lua closure
- * whose bytecode is interpreted when the function is invoked.
- * @see LuaValue
- * @see LibFunction
- * @see LuaClosure
- */
-abstract
-public class LuaFunction extends LuaValue {
-
- /** Shared static metatable for all functions and closures. */
- public static LuaValue s_metatable;
-
- protected LuaValue env;
-
- public LuaFunction() {
- this.env = NIL;
- }
-
- public LuaFunction(LuaValue env) {
- this.env = env;
- }
-
- public int type() {
- return TFUNCTION;
- }
-
- public String typename() {
- return "function";
- }
-
- public boolean isfunction() {
- return true;
- }
-
- public LuaValue checkfunction() {
- return this;
- }
-
- public LuaFunction optfunction(LuaFunction defval) {
- return this;
- }
-
- public LuaValue getmetatable() {
- return s_metatable;
- }
-
- public LuaValue getfenv() {
- return env;
- }
-
- public void setfenv(LuaValue env) {
- this.env = env!=null? env: NIL;
- }
-}
diff --git a/luaj-2.0.3/src/core/org/luaj/vm2/LuaInteger.java b/luaj-2.0.3/src/core/org/luaj/vm2/LuaInteger.java
deleted file mode 100644
index 008efdd4b..000000000
--- a/luaj-2.0.3/src/core/org/luaj/vm2/LuaInteger.java
+++ /dev/null
@@ -1,215 +0,0 @@
-/*******************************************************************************
-* Copyright (c) 2009 Luaj.org. All rights reserved.
-*
-* Permission is hereby granted, free of charge, to any person obtaining a copy
-* of this software and associated documentation files (the "Software"), to deal
-* in the Software without restriction, including without limitation the rights
-* to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
-* copies of the Software, and to permit persons to whom the Software is
-* furnished to do so, subject to the following conditions:
-*
-* The above copyright notice and this permission notice shall be included in
-* all copies or substantial portions of the Software.
-*
-* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
-* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
-* AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
-* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
-* OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
-* THE SOFTWARE.
-******************************************************************************/
-package org.luaj.vm2;
-
-import org.luaj.vm2.lib.MathLib;
-
-/**
- * Extension of {@link LuaNumber} which can hold a Java int as its value.
- *
- * These instance are not instantiated directly by clients, but indirectly
- * via the static functions {@link LuaValue#valueOf(int)} or {@link LuaValue#valueOf(double)}
- * functions. This ensures that policies regarding pooling of instances are
- * encapsulated.
- *
- * There are no API's specific to LuaInteger that are useful beyond what is already
- * exposed in {@link LuaValue}.
- *
- * @see LuaValue
- * @see LuaNumber
- * @see LuaDouble
- * @see LuaValue#valueOf(int)
- * @see LuaValue#valueOf(double)
- */
-public class LuaInteger extends LuaNumber {
-
- private static final LuaInteger[] intValues = new LuaInteger[512];
- static {
- for ( int i=0; i<512; i++ )
- intValues[i] = new LuaInteger(i-256);
- }
-
- public static LuaInteger valueOf(int i) {
- return i<=255 && i>=-256? intValues[i+256]: new LuaInteger(i);
- };
-
- // TODO consider moving this to LuaValue
- /** Return a LuaNumber that represents the value provided
- * @param l long value to represent.
- * @return LuaNumber that is eithe LuaInteger or LuaDouble representing l
- * @see LuaValue#valueOf(int)
- * @see LuaValue#valueOf(double)
- */
- public static LuaNumber valueOf(long l) {
- int i = (int) l;
- return l==i? (i<=255 && i>=-256? intValues[i+256]:
- (LuaNumber) new LuaInteger(i)):
- (LuaNumber) LuaDouble.valueOf(l);
- }
-
- /** The value being held by this instance. */
- public final int v;
-
- /**
- * Package protected constructor.
- * @see LuaValue#valueOf(int)
- **/
- LuaInteger(int i) {
- this.v = i;
- }
-
- public boolean isint() { return true; }
- public boolean isinttype() { return true; }
- public boolean islong() { return true; }
-
- public byte tobyte() { return (byte) v; }
- public char tochar() { return (char) v; }
- public double todouble() { return v; }
- public float tofloat() { return v; }
- public int toint() { return v; }
- public long tolong() { return v; }
- public short toshort() { return (short) v; }
-
- public double optdouble(double defval) { return v; }
- public int optint(int defval) { return v; }
- public LuaInteger optinteger(LuaInteger defval) { return this; }
- public long optlong(long defval) { return v; }
-
- public String tojstring() {
- return Integer.toString(v);
- }
-
- public LuaString strvalue() {
- return LuaString.valueOf(Integer.toString(v));
- }
-
- public LuaString optstring(LuaString defval) {
- return LuaString.valueOf(Integer.toString(v));
- }
-
- public LuaValue tostring() {
- return LuaString.valueOf(Integer.toString(v));
- }
-
- public String optjstring(String defval) {
- return Integer.toString(v);
- }
-
- public LuaInteger checkinteger() {
- return this;
- }
-
- public boolean isstring() {
- return true;
- }
-
- public int hashCode() {
- return v;
- }
-
- // unary operators
- public LuaValue neg() { return valueOf(-(long)v); }
-
- // object equality, used for key comparison
- public boolean equals(Object o) { return o instanceof LuaInteger? ((LuaInteger)o).v == v: false; }
-
- // equality w/ metatable processing
- public LuaValue eq( LuaValue val ) { return val.raweq(v)? TRUE: FALSE; }
- public boolean eq_b( LuaValue val ) { return val.raweq(v); }
-
- // equality w/o metatable processing
- public boolean raweq( LuaValue val ) { return val.raweq(v); }
- public boolean raweq( double val ) { return v == val; }
- public boolean raweq( int val ) { return v == val; }
-
- // arithmetic operators
- public LuaValue add( LuaValue rhs ) { return rhs.add(v); }
- public LuaValue add( double lhs ) { return LuaDouble.valueOf(lhs + v); }
- public LuaValue add( int lhs ) { return LuaInteger.valueOf(lhs + (long)v); }
- public LuaValue sub( LuaValue rhs ) { return rhs.subFrom(v); }
- public LuaValue sub( double rhs ) { return LuaDouble.valueOf(v - rhs); }
- public LuaValue sub( int rhs ) { return LuaDouble.valueOf(v - rhs); }
- public LuaValue subFrom( double lhs ) { return LuaDouble.valueOf(lhs - v); }
- public LuaValue subFrom( int lhs ) { return LuaInteger.valueOf(lhs - (long)v); }
- public LuaValue mul( LuaValue rhs ) { return rhs.mul(v); }
- public LuaValue mul( double lhs ) { return LuaDouble.valueOf(lhs * v); }
- public LuaValue mul( int lhs ) { return LuaInteger.valueOf(lhs * (long)v); }
- public LuaValue pow( LuaValue rhs ) { return rhs.powWith(v); }
- public LuaValue pow( double rhs ) { return MathLib.dpow(v,rhs); }
- public LuaValue pow( int rhs ) { return MathLib.dpow(v,rhs); }
- public LuaValue powWith( double lhs ) { return MathLib.dpow(lhs,v); }
- public LuaValue powWith( int lhs ) { return MathLib.dpow(lhs,v); }
- public LuaValue div( LuaValue rhs ) { return rhs.divInto(v); }
- public LuaValue div( double rhs ) { return LuaDouble.ddiv(v,rhs); }
- public LuaValue div( int rhs ) { return LuaDouble.ddiv(v,rhs); }
- public LuaValue divInto( double lhs ) { return LuaDouble.ddiv(lhs,v); }
- public LuaValue mod( LuaValue rhs ) { return rhs.modFrom(v); }
- public LuaValue mod( double rhs ) { return LuaDouble.dmod(v,rhs); }
- public LuaValue mod( int rhs ) { return LuaDouble.dmod(v,rhs); }
- public LuaValue modFrom( double lhs ) { return LuaDouble.dmod(lhs,v); }
-
- // relational operators
- public LuaValue lt( LuaValue rhs ) { return rhs.gt_b(v)? TRUE: FALSE; }
- public LuaValue lt( double rhs ) { return v < rhs? TRUE: FALSE; }
- public LuaValue lt( int rhs ) { return v < rhs? TRUE: FALSE; }
- public boolean lt_b( LuaValue rhs ) { return rhs.gt_b(v); }
- public boolean lt_b( int rhs ) { return v < rhs; }
- public boolean lt_b( double rhs ) { return v < rhs; }
- public LuaValue lteq( LuaValue rhs ) { return rhs.gteq_b(v)? TRUE: FALSE; }
- public LuaValue lteq( double rhs ) { return v <= rhs? TRUE: FALSE; }
- public LuaValue lteq( int rhs ) { return v <= rhs? TRUE: FALSE; }
- public boolean lteq_b( LuaValue rhs ) { return rhs.gteq_b(v); }
- public boolean lteq_b( int rhs ) { return v <= rhs; }
- public boolean lteq_b( double rhs ) { return v <= rhs; }
- public LuaValue gt( LuaValue rhs ) { return rhs.lt_b(v)? TRUE: FALSE; }
- public LuaValue gt( double rhs ) { return v > rhs? TRUE: FALSE; }
- public LuaValue gt( int rhs ) { return v > rhs? TRUE: FALSE; }
- public boolean gt_b( LuaValue rhs ) { return rhs.lt_b(v); }
- public boolean gt_b( int rhs ) { return v > rhs; }
- public boolean gt_b( double rhs ) { return v > rhs; }
- public LuaValue gteq( LuaValue rhs ) { return rhs.lteq_b(v)? TRUE: FALSE; }
- public LuaValue gteq( double rhs ) { return v >= rhs? TRUE: FALSE; }
- public LuaValue gteq( int rhs ) { return v >= rhs? TRUE: FALSE; }
- public boolean gteq_b( LuaValue rhs ) { return rhs.lteq_b(v); }
- public boolean gteq_b( int rhs ) { return v >= rhs; }
- public boolean gteq_b( double rhs ) { return v >= rhs; }
-
- // string comparison
- public int strcmp( LuaString rhs ) { typerror("attempt to compare number with string"); return 0; }
-
- public int checkint() {
- return v;
- }
- public long checklong() {
- return v;
- }
- public double checkdouble() {
- return v;
- }
- public String checkjstring() {
- return String.valueOf(v);
- }
- public LuaString checkstring() {
- return valueOf( String.valueOf(v) );
- }
-
-}
diff --git a/luaj-2.0.3/src/core/org/luaj/vm2/LuaNil.java b/luaj-2.0.3/src/core/org/luaj/vm2/LuaNil.java
deleted file mode 100644
index a3960bc6c..000000000
--- a/luaj-2.0.3/src/core/org/luaj/vm2/LuaNil.java
+++ /dev/null
@@ -1,104 +0,0 @@
-/*******************************************************************************
-* Copyright (c) 2009-2011 Luaj.org. All rights reserved.
-*
-* Permission is hereby granted, free of charge, to any person obtaining a copy
-* of this software and associated documentation files (the "Software"), to deal
-* in the Software without restriction, including without limitation the rights
-* to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
-* copies of the Software, and to permit persons to whom the Software is
-* furnished to do so, subject to the following conditions:
-*
-* The above copyright notice and this permission notice shall be included in
-* all copies or substantial portions of the Software.
-*
-* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
-* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
-* AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
-* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
-* OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
-* THE SOFTWARE.
-******************************************************************************/
-package org.luaj.vm2;
-
-/**
- * Class to encapsulate behavior of the singleton instance {@code nil}
- *
- * There will be one instance of this class, {@link LuaValue#NIL},
- * per Java virtual machine.
- * However, the {@link Varargs} instance {@link LuaValue#NONE}
- * which is the empty list,
- * is also considered treated as a nil value by default.
- *
- * Although it is possible to test for nil using Java == operator,
- * the recommended approach is to use the method {@link LuaValue#isnil()}
- * instead. By using that any ambiguities between
- * {@link LuaValue#NIL} and {@link LuaValue#NONE} are avoided.
- * @see LuaValue
- * @see LuaValue#NIL
- */
-public class LuaNil extends LuaValue {
-
- static final LuaNil _NIL = new LuaNil();
-
- public static LuaValue s_metatable;
-
- LuaNil() {}
-
- public int type() {
- return LuaValue.TNIL;
- }
-
- public String typename() {
- return "nil";
- }
-
- public String tojstring() {
- return "nil";
- }
-
- public LuaValue not() {
- return LuaValue.TRUE;
- }
-
- public boolean toboolean() {
- return false;
- }
-
- public boolean isnil() {
- return true;
- }
-
- public LuaValue getmetatable() {
- return s_metatable;
- }
-
- public boolean equals(Object o) {
- return o instanceof LuaNil;
- }
-
- public LuaValue checknotnil() {
- return argerror("value");
- }
-
- public LuaValue checkvalidkey() {
- return typerror("table index");
- }
-
- // optional argument conversions - nil alwas falls badk to default value
- public boolean optboolean(boolean defval) { return defval; }
- public LuaClosure optclosure(LuaClosure defval) { return defval; }
- public double optdouble(double defval) { return defval; }
- public LuaFunction optfunction(LuaFunction defval) { return defval; }
- public int optint(int defval) { return defval; }
- public LuaInteger optinteger(LuaInteger defval) { return defval; }
- public long optlong(long defval) { return defval; }
- public LuaNumber optnumber(LuaNumber defval) { return defval; }
- public LuaTable opttable(LuaTable defval) { return defval; }
- public LuaThread optthread(LuaThread defval) { return defval; }
- public String optjstring(String defval) { return defval; }
- public LuaString optstring(LuaString defval) { return defval; }
- public Object optuserdata(Object defval) { return defval; }
- public Object optuserdata(Class c, Object defval) { return defval; }
- public LuaValue optvalue(LuaValue defval) { return defval; }
-}
diff --git a/luaj-2.0.3/src/core/org/luaj/vm2/LuaNumber.java b/luaj-2.0.3/src/core/org/luaj/vm2/LuaNumber.java
deleted file mode 100644
index ef9722182..000000000
--- a/luaj-2.0.3/src/core/org/luaj/vm2/LuaNumber.java
+++ /dev/null
@@ -1,81 +0,0 @@
-/*******************************************************************************
- * Copyright (c) 2009-2011 Luaj.org. All rights reserved.
- *
- * Permission is hereby granted, free of charge, to any person obtaining a copy
- * of this software and associated documentation files (the "Software"), to deal
- * in the Software without restriction, including without limitation the rights
- * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
- * copies of the Software, and to permit persons to whom the Software is
- * furnished to do so, subject to the following conditions:
- *
- * The above copyright notice and this permission notice shall be included in
- * all copies or substantial portions of the Software.
- *
- * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
- * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
- * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
- * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
- * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
- * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
- * THE SOFTWARE.
- ******************************************************************************/
-package org.luaj.vm2;
-
-/**
- * Base class for representing numbers as lua values directly.
- *
- * The main subclasses are {@link LuaInteger} which holds values that fit in a java int,
- * and {@link LuaDouble} which holds all other number values.
- * @see LuaInteger
- * @see LuaDouble
- * @see LuaValue
- *
- */
-abstract
-public class LuaNumber extends LuaValue {
-
- /** Shared static metatable for all number values represented in lua. */
- public static LuaValue s_metatable;
-
- public int type() {
- return TNUMBER;
- }
-
- public String typename() {
- return "number";
- }
-
- public LuaNumber checknumber() {
- return this;
- }
-
- public LuaNumber checknumber(String errmsg) {
- return this;
- }
-
- public LuaNumber optnumber(LuaNumber defval) {
- return this;
- }
-
- public LuaValue tonumber() {
- return this;
- }
-
- public boolean isnumber() {
- return true;
- }
-
- public boolean isstring() {
- return true;
- }
-
- public LuaValue getmetatable() {
- return s_metatable;
- }
-
- public LuaValue concat(LuaValue rhs) { return rhs.concatTo(this); }
- public Buffer concat(Buffer rhs) { return rhs.concatTo(this); }
- public LuaValue concatTo(LuaNumber lhs) { return strvalue().concatTo(lhs.strvalue()); }
- public LuaValue concatTo(LuaString lhs) { return strvalue().concatTo(lhs); }
-
-}
diff --git a/luaj-2.0.3/src/core/org/luaj/vm2/LuaString.java b/luaj-2.0.3/src/core/org/luaj/vm2/LuaString.java
deleted file mode 100644
index 5d33ba26c..000000000
--- a/luaj-2.0.3/src/core/org/luaj/vm2/LuaString.java
+++ /dev/null
@@ -1,749 +0,0 @@
-/*******************************************************************************
-* Copyright (c) 2009-2011 Luaj.org. All rights reserved.
-*
-* Permission is hereby granted, free of charge, to any person obtaining a copy
-* of this software and associated documentation files (the "Software"), to deal
-* in the Software without restriction, including without limitation the rights
-* to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
-* copies of the Software, and to permit persons to whom the Software is
-* furnished to do so, subject to the following conditions:
-*
-* The above copyright notice and this permission notice shall be included in
-* all copies or substantial portions of the Software.
-*
-* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
-* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
-* AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
-* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
-* OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
-* THE SOFTWARE.
-******************************************************************************/
-package org.luaj.vm2;
-
-
-import java.io.ByteArrayInputStream;
-import java.io.DataOutputStream;
-import java.io.IOException;
-import java.io.InputStream;
-import java.lang.String;
-import java.lang.ref.WeakReference;
-import java.util.Hashtable;
-
-import org.luaj.vm2.lib.MathLib;
-import org.luaj.vm2.lib.StringLib;
-
-/**
- * Subclass of {@link LuaValue} for representing lua strings.
- *
- * Because lua string values are more nearly sequences of bytes than
- * sequences of characters or unicode code points, the {@link LuaString}
- * implementation holds the string value in an internal byte array.
- *
- * {@link LuaString} values are generally not mutable once constructed,
- * so multiple {@link LuaString} values can chare a single byte array.
- *
- * Currently {@link LuaString}s are pooled via a centrally managed weak table.
- * To ensure that as many string values as possible take advantage of this,
- * Constructors are not exposed directly. As with number, booleans, and nil,
- * instance construction should be via {@link LuaValue#valueOf(byte[])} or similar API.
- *
- * When Java Strings are used to initialize {@link LuaString} data, the UTF8 encoding is assumed.
- * The functions
- * {@link LuaString#lengthAsUtf8(char[]),
- * {@link LuaString#encodeToUtf8(char[], byte[], int)}, and
- * {@link LuaString#decodeAsUtf8(byte[], int, int)
- * are used to convert back and forth between UTF8 byte arrays and character arrays.
- *
- * @see LuaValue
- * @see LuaValue#valueOf(String)
- * @see LuaValue#valueOf(byte[])
- */
-public class LuaString extends LuaValue {
-
- /** The singleton instance representing lua {@code true} */
- public static LuaValue s_metatable;
-
- /** The bytes for the string */
- public final byte[] m_bytes;
-
- /** The offset into the byte array, 0 means start at the first byte */
- public final int m_offset;
-
- /** The number of bytes that comprise this string */
- public final int m_length;
-
- private static final Hashtable index_java = new Hashtable();
-
- private final static LuaString index_get(Hashtable indextable, Object key) {
- WeakReference w = (WeakReference) indextable.get(key);
- return w!=null? (LuaString) w.get(): null;
- }
-
- private final static void index_set(Hashtable indextable, Object key, LuaString value) {
- indextable.put(key, new WeakReference(value));
- }
-
- /**
- * Get a {@link LuaString} instance whose bytes match
- * the supplied Java String using the UTF8 encoding.
- * @param string Java String containing characters to encode as UTF8
- * @return {@link LuaString} with UTF8 bytes corresponding to the supplied String
- */
- public static LuaString valueOf(String string) {
- LuaString s = index_get( index_java, string );
- if ( s != null ) return s;
- char[] c = string.toCharArray();
- /* DAN200 START */
- /*
- byte[] b = new byte[lengthAsUtf8(c)];
- encodeToUtf8(c, b, 0);
- */
- byte[] b = new byte[c.length];
- for( int i=0; i
- * @param bytes byte buffer
- * @param off offset into the byte buffer
- * @param len length of the byte buffer
- * @return {@link LuaString} wrapping the byte buffer
- */
- public static LuaString valueOf(byte[] bytes, int off, int len) {
- return new LuaString(bytes, off, len);
- }
-
- /** Construct a {@link LuaString} using the supplied characters as byte values.
- *
- * Only th elow-order 8-bits of each character are used, the remainder is ignored.
- *
- * This is most useful for constructing byte sequences that do not conform to UTF8.
- * @param bytes array of char, whose values are truncated at 8-bits each and put into a byte array.
- * @return {@link LuaString} wrapping a copy of the byte buffer
- */
- public static LuaString valueOf(char[] bytes) {
- int n = bytes.length;
- byte[] b = new byte[n];
- for ( int i=0; i
- * @param bytes byte buffer
- * @return {@link LuaString} wrapping the byte buffer
- */
- public static LuaString valueOf(byte[] bytes) {
- return valueOf(bytes, 0, bytes.length);
- }
-
- /** Construct a {@link LuaString} around a byte array without copying the contents.
- *
- * The array is used directly after this is called, so clients must not change contents.
- *
- * @param bytes byte buffer
- * @param offset offset into the byte buffer
- * @param length length of the byte buffer
- * @return {@link LuaString} wrapping the byte buffer
- */
- private LuaString(byte[] bytes, int offset, int length) {
- this.m_bytes = bytes;
- this.m_offset = offset;
- this.m_length = length;
- }
-
- public boolean isstring() {
- return true;
- }
-
- public LuaValue getmetatable() {
- return s_metatable;
- }
-
- public int type() {
- return LuaValue.TSTRING;
- }
-
- public String typename() {
- return "string";
- }
-
- public String tojstring() {
- /* DAN200 START */
- /*
- return decodeAsUtf8(m_bytes, m_offset, m_length);
- */
- char[] chars = new char[ m_length ];
- for( int i=0; i
- * The string should be measured first with lengthAsUtf8
- * to make sure the given byte array is large enough.
- * @param chars Array of unicode characters to be encoded as UTF-8
- * @param bytes byte array to hold the result
- * @param off offset into the byte array to start writing
- * @see #lengthAsUtf8(char[])
- * @see #decodeAsUtf8(byte[], int, int)
- * @see #isValidUtf8()
- */
- /* DAN200 START */
- //public static void encodeToUtf8(char[] chars, byte[] bytes, int off) {
- private static void encodeToUtf8(char[] chars, byte[] bytes, int off) {
- /* DAN200 END */
- final int n = chars.length;
- char c;
- for ( int i=0, j=off; i
- * If a table is needed, the one of the type-checking functions can be used such as
- * {@link #istable()},
- * {@link #checktable()}, or
- * {@link #opttable(LuaTable)}
- *
- * The main table operations are defined on {@link LuaValue}
- * for getting and setting values with and without metatag processing:
- *
- * To iterate over key-value pairs from Java, use
- *
- * As with other types, {@link LuaTable} instances should be constructed via one of the table constructor
- * methods on {@link LuaValue}:
- *
- * Provided for compatibility, not a scalable operation.
- * @return value for maxn
- */
- public int maxn() {
- int n = 0;
- for ( int i=0; i
- * A LuaThread is typically created in response to a scripted call to
- * {@code coroutine.create()}
- *
- * The threads must be initialized with the globals, so that
- * the global environment may be passed along according to rules of lua.
- * This is done via a call to {@link #setGlobals(LuaValue)}
- * at some point during globals initialization.
- * See {@link BaseLib} for additional documentation and example code.
- *
- * The utility classes {@link JsePlatform} and {@link JmePlatform}
- * see to it that this initialization is done properly.
- * For this reason it is highly recommended to use one of these classes
- * when initializing globals.
- *
- * The behavior of coroutine threads matches closely the behavior
- * of C coroutine library. However, because of the use of Java threads
- * to manage call state, it is possible to yield from anywhere in luaj.
- *
- * Each Java thread wakes up at regular intervals and checks a weak reference
- * to determine if it can ever be resumed. If not, it throws
- * {@link OrphanedThread} which is an {@link java.lang.Error}.
- * Applications should not catch {@link OrphanedThread}, because it can break
- * the thread safety of luaj.
- *
- * @see LuaValue
- * @see JsePlatform
- * @see JmePlatform
- * @see CoroutineLib
- */
-public class LuaThread extends LuaValue {
-
- public static LuaValue s_metatable;
-
- public static int coroutine_count = 0;
-
- /** Interval at which to check for lua threads that are no longer referenced.
- * This can be changed by Java startup code if desired.
- */
- static long thread_orphan_check_interval = 30000;
-
- private static final int STATUS_INITIAL = 0;
- private static final int STATUS_SUSPENDED = 1;
- private static final int STATUS_RUNNING = 2;
- private static final int STATUS_NORMAL = 3;
- private static final int STATUS_DEAD = 4;
- private static final String[] STATUS_NAMES = {
- "suspended",
- "suspended",
- "running",
- "normal",
- "dead",};
-
- private LuaValue env;
- private final State state;
-
- /** Field to hold state of error condition during debug hook function calls. */
- public LuaValue err;
-
- final CallStack callstack = new CallStack();
-
- public static final int MAX_CALLSTACK = 256;
-
- private static final LuaThread main_thread = new LuaThread();
-
- // state of running thread including call stack
- private static LuaThread running_thread = main_thread;
-
- /** Interval to check for LuaThread dereferencing. */
- public static int GC_INTERVAL = 30000;
-
- /** Thread-local used by DebugLib to store debugging state. */
- public Object debugState;
-
- /* DAN200 START */
- private Vector children = new Vector();
- /* DAN200 END */
-
- /** Private constructor for main thread only */
- private LuaThread() {
- state = new State(this, null);
- state.status = STATUS_RUNNING;
- }
-
- /**
- * Create a LuaThread around a function and environment
- * @param func The function to execute
- * @param env The environment to apply to the thread
- */
- public LuaThread(LuaValue func, LuaValue env) {
- LuaValue.assert_(func != null, "function cannot be null");
- this.env = env;
- state = new State(this, func);
- }
-
- public int type() {
- return LuaValue.TTHREAD;
- }
-
- public String typename() {
- return "thread";
- }
-
- public boolean isthread() {
- return true;
- }
-
- public LuaThread optthread(LuaThread defval) {
- return this;
- }
-
- public LuaThread checkthread() {
- return this;
- }
-
- public LuaValue getmetatable() {
- return s_metatable;
- }
-
- public LuaValue getfenv() {
- return env;
- }
-
- public void setfenv(LuaValue env) {
- this.env = env;
- }
-
- public String getStatus() {
- return STATUS_NAMES[state.status];
- }
-
- /**
- * Get the currently running thread.
- * @return {@link LuaThread} that is currenly running
- */
- public static LuaThread getRunning() {
- return running_thread;
- }
-
- /**
- * Test if this is the main thread
- * @return true if this is the main thread
- */
- public static boolean isMainThread(LuaThread r) {
- return r == main_thread;
- }
-
- /**
- * Set the globals of the current thread.
- *
- * This must be done once before any other code executes.
- * @param globals The global variables for the main ghread.
- */
- public static void setGlobals(LuaValue globals) {
- running_thread.env = globals;
- }
-
- /** Get the current thread's environment
- * @return {@link LuaValue} containing the global variables of the current thread.
- */
- public static LuaValue getGlobals() {
- LuaValue e = running_thread.env;
- return e!=null? e: LuaValue.error("LuaThread.setGlobals() not initialized");
- }
-
- /**
- * Callback used at the beginning of a call to prepare for possible getfenv/setfenv calls
- * @param function Function being called
- * @return CallStack which is used to signal the return or a tail-call recursion
- * @see DebugLib
- */
- public static final CallStack onCall(LuaFunction function) {
- CallStack cs = running_thread.callstack;
- cs.onCall(function);
- return cs;
- }
-
- /**
- * Get the function called as a specific location on the stack.
- * @param level 1 for the function calling this one, 2 for the next one.
- * @return LuaFunction on the call stack, or null if outside of range of active stack
- */
- public static final LuaFunction getCallstackFunction(int level) {
- return running_thread.callstack.getFunction(level);
- }
-
- /**
- * Replace the error function of the currently running thread.
- * @param errfunc the new error function to use.
- * @return the previous error function.
- */
- public static LuaValue setErrorFunc(LuaValue errfunc) {
- LuaValue prev = running_thread.err;
- running_thread.err = errfunc;
- return prev;
- }
-
- /** Yield the current thread with arguments
- *
- * @param args The arguments to send as return values to {@link #resume(Varargs)}
- * @return {@link Varargs} provided as arguments to {@link #resume(Varargs)}
- */
- public static Varargs yield(Varargs args) {
- State s = running_thread.state;
- if (s.function == null)
- throw new LuaError("cannot yield main thread");
- return s.lua_yield(args);
- }
-
- /** Start or resume this thread
- *
- * @param args The arguments to send as return values to {@link #yield(Varargs)}
- * @return {@link Varargs} provided as arguments to {@link #yield(Varargs)}
- */
- public Varargs resume(Varargs args) {
- if (this.state.status > STATUS_SUSPENDED)
- return LuaValue.varargsOf(LuaValue.FALSE,
- LuaValue.valueOf("cannot resume "+LuaThread.STATUS_NAMES[this.state.status]+" coroutine"));
- return state.lua_resume(this, args);
- }
-
- /* DAN200 START */
- public void addChild( LuaThread thread ) {
- this.children.addElement( new WeakReference( thread ) );
- }
-
- public Varargs abandon() {
- if( this.state.status > STATUS_SUSPENDED ) {
- return LuaValue.varargsOf( LuaValue.FALSE, LuaValue.valueOf( "cannot abandon " + STATUS_NAMES[this.state.status] + " coroutine" ) );
- } else {
- this.state.lua_abandon( this );
-
- Enumeration it = this.children.elements();
- while( it.hasMoreElements() ) {
- WeakReference ref = (WeakReference)it.nextElement();
- LuaThread thread = (LuaThread)ref.get();
- if(thread != null && !thread.getStatus().equals("dead")) {
- thread.abandon();
- }
- }
-
- this.children.removeAllElements();
- return LuaValue.varargsOf( new LuaValue[] { LuaValue.TRUE } );
- }
- }
- /* DAN200 END */
-
- static class State implements Runnable {
- final WeakReference lua_thread;
- final LuaValue function;
- Varargs args = LuaValue.NONE;
- Varargs result = LuaValue.NONE;
- String error = null;
- int status = LuaThread.STATUS_INITIAL;
- /* DAN200 START */
- boolean abandoned = false;
- /* DAN200 END */
-
- State(LuaThread lua_thread, LuaValue function) {
- this.lua_thread = new WeakReference(lua_thread);
- this.function = function;
- }
-
- public synchronized void run() {
- try {
- Varargs a = this.args;
- this.args = LuaValue.NONE;
- this.result = function.invoke(a);
- } catch (Throwable t) {
- this.error = t.getMessage();
- } finally {
- this.status = LuaThread.STATUS_DEAD;
- this.notify();
- }
- }
-
- synchronized Varargs lua_resume(LuaThread new_thread, Varargs args) {
- LuaThread previous_thread = LuaThread.running_thread;
- try {
- LuaThread.running_thread = new_thread;
- this.args = args;
- if (this.status == STATUS_INITIAL) {
- this.status = STATUS_RUNNING;
- new Thread(this, "Coroutine-"+(++coroutine_count)).start();
- } else {
- this.notify();
- }
- previous_thread.state.status = STATUS_NORMAL;
- this.status = STATUS_RUNNING;
- this.wait();
- return (this.error != null?
- LuaValue.varargsOf(LuaValue.FALSE, LuaValue.valueOf(this.error)):
- LuaValue.varargsOf(LuaValue.TRUE, this.result));
- } catch (InterruptedException ie) {
- throw new OrphanedThread();
- } finally {
- running_thread = previous_thread;
- running_thread.state.status =STATUS_RUNNING;
- this.args = LuaValue.NONE;
- this.result = LuaValue.NONE;
- this.error = null;
- }
- }
-
- synchronized Varargs lua_yield(Varargs args) {
- try {
- this.result = args;
- this.status = STATUS_SUSPENDED;
- this.notify();
- do {
- this.wait(thread_orphan_check_interval);
- /* DAN200 START */
- //if (this.lua_thread.get() == null) {
- if( this.abandoned || this.lua_thread.get() == null ) {
- /* DAN200 END */
- this.status = STATUS_DEAD;
- throw new OrphanedThread();
- }
- } while (this.status == STATUS_SUSPENDED);
- return this.args;
- } catch (InterruptedException ie) {
- this.status = STATUS_DEAD;
- throw new OrphanedThread();
- } finally {
- this.args = LuaValue.NONE;
- this.result = LuaValue.NONE;
- }
- }
-
- /* DAN200 START */
- synchronized void lua_abandon(LuaThread thread) {
- LuaThread current = LuaThread.running_thread;
-
- try {
- current.state.status = STATUS_NORMAL;
- this.abandoned = true;
- if(this.status == STATUS_INITIAL) {
- this.status = STATUS_DEAD;
- } else {
- this.notify();
- this.wait();
- }
- } catch (InterruptedException var7) {
- this.status = STATUS_DEAD;
- } finally {
- current.state.status = STATUS_RUNNING;
- this.args = LuaValue.NONE;
- this.result = LuaValue.NONE;
- this.error = null;
- }
- }
- /* DAN200 END */
- }
-
- public static class CallStack {
- final LuaFunction[] functions = new LuaFunction[MAX_CALLSTACK];
- int calls = 0;
-
- /**
- * Method to indicate the start of a call
- * @see DebugLib
- */
- final void onCall(LuaFunction function) {
- functions[calls++] = function;
- if (DebugLib.DEBUG_ENABLED)
- DebugLib.debugOnCall(running_thread, calls, function);
- }
-
- /**
- * Method to signal the end of a call
- * @see DebugLib
- */
- public final void onReturn() {
- functions[--calls] = null;
- if (DebugLib.DEBUG_ENABLED)
- DebugLib.debugOnReturn(running_thread, calls);
- }
-
- /**
- * Get number of calls in stack
- * @return number of calls in current call stack
- * @see DebugLib
- */
- public final int getCallstackDepth() {
- return calls;
- }
-
- /**
- * Get the function at a particular level of the stack.
- * @param level # of levels back from the top of the stack.
- * @return LuaFunction, or null if beyond the stack limits.
- */
- LuaFunction getFunction(int level) {
- return level>0 && level<=calls? functions[calls-level]: null;
- }
- }
-}
diff --git a/luaj-2.0.3/src/core/org/luaj/vm2/LuaUserdata.java b/luaj-2.0.3/src/core/org/luaj/vm2/LuaUserdata.java
deleted file mode 100644
index cf2b7b287..000000000
--- a/luaj-2.0.3/src/core/org/luaj/vm2/LuaUserdata.java
+++ /dev/null
@@ -1,126 +0,0 @@
-/*******************************************************************************
-* Copyright (c) 2009 Luaj.org. All rights reserved.
-*
-* Permission is hereby granted, free of charge, to any person obtaining a copy
-* of this software and associated documentation files (the "Software"), to deal
-* in the Software without restriction, including without limitation the rights
-* to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
-* copies of the Software, and to permit persons to whom the Software is
-* furnished to do so, subject to the following conditions:
-*
-* The above copyright notice and this permission notice shall be included in
-* all copies or substantial portions of the Software.
-*
-* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
-* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
-* AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
-* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
-* OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
-* THE SOFTWARE.
-******************************************************************************/
-package org.luaj.vm2;
-
-
-public class LuaUserdata extends LuaValue {
-
- public final Object m_instance;
- public LuaValue m_metatable;
-
- public LuaUserdata(Object obj) {
- m_instance = obj;
- }
-
- public LuaUserdata(Object obj, LuaValue metatable) {
- m_instance = obj;
- m_metatable = metatable;
- }
-
- public String tojstring() {
- return String.valueOf(m_instance);
- }
-
- public int type() {
- return LuaValue.TUSERDATA;
- }
-
- public String typename() {
- return "userdata";
- }
-
- public int hashCode() {
- return m_instance.hashCode();
- }
-
- public Object userdata() {
- return m_instance;
- }
-
- public boolean isuserdata() { return true; }
- public boolean isuserdata(Class c) { return c.isAssignableFrom(m_instance.getClass()); }
- public Object touserdata() { return m_instance; }
- public Object touserdata(Class c) { return c.isAssignableFrom(m_instance.getClass())? m_instance: null; }
- public Object optuserdata(Object defval) { return m_instance; }
- public Object optuserdata(Class c, Object defval) {
- if (!c.isAssignableFrom(m_instance.getClass()))
- typerror(c.getName());
- return m_instance;
- }
-
- public LuaValue getmetatable() {
- return m_metatable;
- }
-
- public LuaValue setmetatable(LuaValue metatable) {
- this.m_metatable = metatable;
- return this;
- }
-
- public Object checkuserdata() {
- return m_instance;
- }
-
- public Object checkuserdata(Class c) {
- if ( c.isAssignableFrom(m_instance.getClass()) )
- return m_instance;
- return typerror(c.getName());
- }
-
- public LuaValue get( LuaValue key ) {
- return m_metatable!=null? gettable(this,key): NIL;
- }
-
- public void set( LuaValue key, LuaValue value ) {
- if ( m_metatable==null || ! settable(this,key,value) )
- error( "cannot set "+key+" for userdata" );
- }
-
- public boolean equals( Object val ) {
- if ( this == val )
- return true;
- if ( ! (val instanceof LuaUserdata) )
- return false;
- LuaUserdata u = (LuaUserdata) val;
- return m_instance.equals(u.m_instance);
- }
-
- // equality w/ metatable processing
- public LuaValue eq( LuaValue val ) { return eq_b(val)? TRUE: FALSE; }
- public boolean eq_b( LuaValue val ) {
- if ( val.raweq(this) ) return true;
- if ( m_metatable == null || !val.isuserdata() ) return false;
- LuaValue valmt = val.getmetatable();
- return valmt!=null && LuaValue.eqmtcall(this, m_metatable, val, valmt);
- }
-
- // equality w/o metatable processing
- public boolean raweq( LuaValue val ) { return val.raweq(this); }
- public boolean raweq( LuaUserdata val ) {
- return this == val || (m_metatable == val.m_metatable && m_instance.equals(val.m_instance));
- }
-
- // __eq metatag processing
- public boolean eqmt( LuaValue val ) {
- return m_metatable!=null && val.isuserdata()? LuaValue.eqmtcall(this, m_metatable, val, val.getmetatable()): false;
- }
-}
diff --git a/luaj-2.0.3/src/core/org/luaj/vm2/LuaValue.java b/luaj-2.0.3/src/core/org/luaj/vm2/LuaValue.java
deleted file mode 100644
index 76907b754..000000000
--- a/luaj-2.0.3/src/core/org/luaj/vm2/LuaValue.java
+++ /dev/null
@@ -1,3648 +0,0 @@
-/*******************************************************************************
-* Copyright (c) 2009-2011 Luaj.org. All rights reserved.
-*
-* Permission is hereby granted, free of charge, to any person obtaining a copy
-* of this software and associated documentation files (the "Software"), to deal
-* in the Software without restriction, including without limitation the rights
-* to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
-* copies of the Software, and to permit persons to whom the Software is
-* furnished to do so, subject to the following conditions:
-*
-* The above copyright notice and this permission notice shall be included in
-* all copies or substantial portions of the Software.
-*
-* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
-* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
-* AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
-* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
-* OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
-* THE SOFTWARE.
-******************************************************************************/
-package org.luaj.vm2;
-
-
-/**
- * Base class for all concrete lua type values.
- *
- * Establishes base implementations for all the operations on lua types.
- * This allows Java clients to deal essentially with one type for all Java values, namely {@link LuaValue}.
- *
- * Constructors are provided as static methods for common Java types, such as
- * {@link LuaValue#valueOf(int)} or {@link LuaValue#valueOf(String)}
- * to allow for instance pooling.
- *
- * Constants are defined for the lua values
- * {@link #NIL}, {@link #TRUE}, and {@link #FALSE}.
- * A constant {@link #NONE} is defined which is a {@link Varargs} list having no values.
- *
- * Operations are performed on values directly via their Java methods.
- * For example, the following code divides two numbers:
- *
- * Field access and function calls are similar, with common overloads to simplify Java usage:
- *
- * To supply variable arguments or get multiple return values, use
- * {@link invoke(Varargs)} or {@link invokemethod(LuaValue, Varargs)} methods:
- *
- * To load and run a script, {@link LoadState} is used:
- *
- * although {@code require} could also be used:
- *
- * In general a {@link LuaError} may be thrown on any operation when the
- * types supplied to any operation are illegal from a lua perspective.
- * Examples could be attempting to concatenate a NIL value, or attempting arithmetic
- * on values that are not number.
- *
- * There are several methods for preinitializing tables, such as:
- *
- * Predefined constants exist for the standard lua type constants
- * {@link TNIL}, {@link TBOOLEAN}, {@link TLIGHTUSERDATA}, {@link TNUMBER}, {@link TSTRING},
- * {@link TTABLE}, {@link TFUNCTION}, {@link TUSERDATA}, {@link TTHREAD},
- * and extended lua type constants
- * {@link TINT}, {@link TNONE}, {@link TVALUE}
- *
- * Predefined constants exist for all strings used as metatags:
- * {@link INDEX}, {@link NEWINDEX}, {@link CALL}, {@link MODE}, {@link METATABLE},
- * {@link ADD}, {@link SUB}, {@link DIV}, {@link MUL}, {@link POW},
- * {@link MOD}, {@link UNM}, {@link LEN}, {@link EQ}, {@link LT},
- * {@link LE}, {@link TOSTRING}, and {@link CONCAT}.
- *
- * @see JsePlatform
- * @see JmePlatform
- * @see LoadState
- * @see Varargs
- */
-abstract
-public class LuaValue extends Varargs {
-
-
- /** Type enumeration constant for lua numbers that are ints, for compatibility with lua 5.1 number patch only */
- public static final int TINT = (-2);
-
- /** Type enumeration constant for lua values that have no type, for example weak table entries */
- public static final int TNONE = (-1);
-
- /** Type enumeration constant for lua nil */
- public static final int TNIL = 0;
-
- /** Type enumeration constant for lua booleans */
- public static final int TBOOLEAN = 1;
-
- /** Type enumeration constant for lua light userdata, for compatibility with C-based lua only */
- public static final int TLIGHTUSERDATA = 2;
-
- /** Type enumeration constant for lua numbers */
- public static final int TNUMBER = 3;
-
- /** Type enumeration constant for lua strings */
- public static final int TSTRING = 4;
-
- /** Type enumeration constant for lua tables */
- public static final int TTABLE = 5;
-
- /** Type enumeration constant for lua functions */
- public static final int TFUNCTION = 6;
-
- /** Type enumeration constant for lua userdatas */
- public static final int TUSERDATA = 7;
-
- /** Type enumeration constant for lua threads */
- public static final int TTHREAD = 8;
-
- /** Type enumeration constant for unknown values, for compatibility with C-based lua only */
- public static final int TVALUE = 9;
-
- /** String array constant containing names of each of the lua value types
- * @see #type()
- * @see #typename()
- */
- public static final String[] TYPE_NAMES = {
- "nil",
- "boolean",
- "lightuserdata",
- "number",
- "string",
- "table",
- "function",
- "userdata",
- "thread",
- "value",
- };
-
- /** LuaValue constant corresponding to lua {@code nil} */
- public static final LuaValue NIL = LuaNil._NIL;
-
- /** LuaBoolean constant corresponding to lua {@code true} */
- public static final LuaBoolean TRUE = LuaBoolean._TRUE;
-
- /** LuaBoolean constant corresponding to lua {@code false} */
- public static final LuaBoolean FALSE = LuaBoolean._FALSE;
-
- /** LuaValue constant corresponding to a {@link Varargs} list of no values */
- public static final LuaValue NONE = None._NONE;
-
- /** LuaValue number constant equal to 0 */
- public static final LuaNumber ZERO = LuaInteger.valueOf(0);
-
- /** LuaValue number constant equal to 1 */
- public static final LuaNumber ONE = LuaInteger.valueOf(1);
-
- /** LuaValue number constant equal to -1 */
- public static final LuaNumber MINUSONE = LuaInteger.valueOf(-1);
-
- /** LuaValue array constant with no values */
- public static final LuaValue[] NOVALS = {};
-
-
- /** LuaString constant with value "__index" for use as metatag */
- public static final LuaString INDEX = valueOf("__index");
-
- /** LuaString constant with value "__newindex" for use as metatag */
- public static final LuaString NEWINDEX = valueOf("__newindex");
-
- /** LuaString constant with value "__call" for use as metatag */
- public static final LuaString CALL = valueOf("__call");
-
- /** LuaString constant with value "__mode" for use as metatag */
- public static final LuaString MODE = valueOf("__mode");
-
- /** LuaString constant with value "__metatable" for use as metatag */
- public static final LuaString METATABLE = valueOf("__metatable");
-
- /** LuaString constant with value "__add" for use as metatag */
- public static final LuaString ADD = valueOf("__add");
-
- /** LuaString constant with value "__sub" for use as metatag */
- public static final LuaString SUB = valueOf("__sub");
-
- /** LuaString constant with value "__div" for use as metatag */
- public static final LuaString DIV = valueOf("__div");
-
- /** LuaString constant with value "__mul" for use as metatag */
- public static final LuaString MUL = valueOf("__mul");
-
- /** LuaString constant with value "__pow" for use as metatag */
- public static final LuaString POW = valueOf("__pow");
-
- /** LuaString constant with value "__mod" for use as metatag */
- public static final LuaString MOD = valueOf("__mod");
-
- /** LuaString constant with value "__unm" for use as metatag */
- public static final LuaString UNM = valueOf("__unm");
-
- /** LuaString constant with value "__len" for use as metatag */
- public static final LuaString LEN = valueOf("__len");
-
- /** LuaString constant with value "__eq" for use as metatag */
- public static final LuaString EQ = valueOf("__eq");
-
- /** LuaString constant with value "__lt" for use as metatag */
- public static final LuaString LT = valueOf("__lt");
-
- /** LuaString constant with value "__le" for use as metatag */
- public static final LuaString LE = valueOf("__le");
-
- /** LuaString constant with value "__tostring" for use as metatag */
- public static final LuaString TOSTRING = valueOf("__tostring");
-
- /** LuaString constant with value "__concat" for use as metatag */
- public static final LuaString CONCAT = valueOf("__concat");
-
- /** LuaString constant with value "" */
- public static final LuaString EMPTYSTRING = valueOf("");
-
- /** Limit on lua stack size */
- private static int MAXSTACK = 250;
-
- /** Array of {@link NIL} values to optimize filling stacks using System.arraycopy().
- * Must not be modified.
- */
- public static final LuaValue[] NILS = new LuaValue[MAXSTACK];
- static {
- for ( int i=0; i
- * No attempt to convert from string will be made by this call.
- * @return true if this is a {@code LuaInteger},
- * otherwise false
- * @see #isint()
- * @see #isnumber()
- * @see #tonumber()
- * @see #TNUMBER
- */
- public boolean isinttype() { return false; }
-
- /** Check if {@code this} is a {@code number} and is representable by java long
- * without rounding or truncation
- * @return true if this is a {@code number}
- * meaning derives from {@link LuaNumber}
- * or derives from {@link LuaString} and is convertible to a number,
- * and can be represented by long,
- * otherwise false
- * @see #tonumber()
- * @see #checklong()
- * @see #optlong(long)
- * @see #TNUMBER
- */
- public boolean islong() { return false; }
-
- /** Check if {@code this} is {@code nil}
- * @return true if this is {@code nil}, otherwise false
- * @see #NIL
- * @see #NONE
- * @see #checknotnil()
- * @see #optvalue(LuaValue)
- * @see Varargs#isnoneornil(int)
- * @see #TNIL
- * @see #TNONE
- */
- public boolean isnil() { return false; }
-
- /** Check if {@code this} is a {@code number}
- * @return true if this is a {@code number},
- * meaning derives from {@link LuaNumber}
- * or derives from {@link LuaString} and is convertible to a number,
- * otherwise false
- * @see #tonumber()
- * @see #checknumber()
- * @see #optnumber(LuaNumber)
- * @see #TNUMBER
- */
- public boolean isnumber() { return false; } // may convert from string
-
- /** Check if {@code this} is a {@code string}
- * @return true if this is a {@code string},
- * meaning derives from {@link LuaString} or {@link LuaNumber},
- * otherwise false
- * @see #tostring()
- * @see #checkstring()
- * @see #optstring(LuaString)
- * @see #TSTRING
- */
- public boolean isstring() { return false; }
-
- /** Check if {@code this} is a {@code thread}
- * @return true if this is a {@code thread}, otherwise false
- * @see #checkthread()
- * @see #optthread(LuaThread)
- * @see #TTHREAD
- */
- public boolean isthread() { return false; }
-
- /** Check if {@code this} is a {@code table}
- * @return true if this is a {@code table}, otherwise false
- * @see #checktable()
- * @see #opttable(LuaTable)
- * @see #TTABLE
- */
- public boolean istable() { return false; }
-
- /** Check if {@code this} is a {@code userdata}
- * @return true if this is a {@code userdata}, otherwise false
- * @see #isuserdata(Class)
- * @see #touserdata()
- * @see #checkuserdata()
- * @see #optuserdata(Object)
- * @see #TUSERDATA
- */
- public boolean isuserdata() { return false; }
-
- /** Check if {@code this} is a {@code userdata} of type {@code c}
- * @param c Class to test instance against
- * @return true if this is a {@code userdata}
- * and the instance is assignable to {@code c},
- * otherwise false
- * @see #isuserdata()
- * @see #touserdata(Class)
- * @see #checkuserdata(Class)
- * @see #optuserdata(Object,Class)
- * @see #TUSERDATA
- */
- public boolean isuserdata(Class c) { return false; }
-
- /** Convert to boolean false if {@link #NIL} or {@link FALSE}, true if anything else
- * @return Value cast to byte if number or string convertible to number, otherwise 0
- * @see #optboolean(boolean)
- * @see #checkboolean()
- * @see #isboolean()
- * @see TBOOLEAN
- */
- public boolean toboolean() { return true; }
-
- /** Convert to byte if numeric, or 0 if not.
- * @return Value cast to byte if number or string convertible to number, otherwise 0
- * @see #toint()
- * @see #todouble()
- * @see #optbyte(byte)
- * @see #checknumber()
- * @see #isnumber()
- * @see TNUMBER
- */
- public byte tobyte() { return 0; }
-
- /** Convert to char if numeric, or 0 if not.
- * @return Value cast to char if number or string convertible to number, otherwise 0
- * @see #toint()
- * @see #todouble()
- * @see #optchar(char)
- * @see #checknumber()
- * @see #isnumber()
- * @see TNUMBER
- */
- public char tochar() { return 0; }
-
- /** Convert to double if numeric, or 0 if not.
- * @return Value cast to double if number or string convertible to number, otherwise 0
- * @see #toint()
- * @see #tobyte()
- * @see #tochar()
- * @see #toshort()
- * @see #tolong()
- * @see #tofloat()
- * @see #optdouble(double)
- * @see #checknumber()
- * @see #isnumber()
- * @see TNUMBER
- */
- public double todouble() { return 0; }
-
- /** Convert to float if numeric, or 0 if not.
- * @return Value cast to float if number or string convertible to number, otherwise 0
- * @see #toint()
- * @see #todouble()
- * @see #optfloat(float)
- * @see #checknumber()
- * @see #isnumber()
- * @see TNUMBER
- */
- public float tofloat() { return 0; }
-
- /** Convert to int if numeric, or 0 if not.
- * @return Value cast to int if number or string convertible to number, otherwise 0
- * @see #tobyte()
- * @see #tochar()
- * @see #toshort()
- * @see #tolong()
- * @see #tofloat()
- * @see #todouble()
- * @see #optint(int)
- * @see #checknumber()
- * @see #isnumber()
- * @see TNUMBER
- */
- public int toint() { return 0; }
-
- /** Convert to long if numeric, or 0 if not.
- * @return Value cast to long if number or string convertible to number, otherwise 0
- * @see #isint()
- * @see #isinttype()
- * @see #toint()
- * @see #todouble()
- * @see #optlong(long)
- * @see #checknumber()
- * @see #isnumber()
- * @see TNUMBER
- */
- public long tolong() { return 0; }
-
- /** Convert to short if numeric, or 0 if not.
- * @return Value cast to short if number or string convertible to number, otherwise 0
- * @see #toint()
- * @see #todouble()
- * @see #optshort(short)
- * @see #checknumber()
- * @see #isnumber()
- * @see TNUMBER
- */
- public short toshort() { return 0; }
-
- /** Convert to human readable String for any type.
- * @return String for use by human readers based on type.
- * @see #tostring()
- * @see #optjstring(String)
- * @see #checkjstring()
- * @see #isstring()
- * @see TSTRING
- */
- public String tojstring() { return typename() + ": " + Integer.toHexString(hashCode()); }
-
- /** Convert to userdata instance, or null.
- * @return userdata instance if userdata, or null if not {@link LuaUserdata}
- * @see #optuserdata(Object)
- * @see #checkuserdata()
- * @see #isuserdata()
- * @see #TUSERDATA
- */
- public Object touserdata() { return null; }
-
- /** Convert to userdata instance if specific type, or null.
- * @return userdata instance if is a userdata whose instance derives from {@code c},
- * or null if not {@link LuaUserdata}
- * @see #optuserdata(Class,Object)
- * @see #checkuserdata(Class)
- * @see #isuserdata(Class)
- * @see #TUSERDATA
- */
- public Object touserdata(Class c) { return null; }
-
- /**
- * Convert the value to a human readable string using {@link #tojstring()}
- * @return String value intended to be human readible.
- * @see #tostring()
- * @see #tojstring()
- * @see #optstring(LuaString)
- * @see #checkstring()
- * @see #toString()
- */
- public String toString() { return tojstring(); }
-
- /** Conditionally convert to lua number without throwing errors.
- *
- * In lua all numbers are strings, but not all strings are numbers.
- * This function will return
- * the {@link LuaValue} {@code this} if it is a number
- * or a string convertible to a number,
- * and {@link NIL} for all other cases.
- *
- * This allows values to be tested for their "numeric-ness" without
- * the penalty of throwing exceptions,
- * nor the cost of converting the type and creating storage for it.
- * @return {@code this} if it is a {@link LuaNumber}
- * or {@link LuaString} that can be converted to a number,
- * otherwise {@link #NIL}
- * @see #tostring()
- * @see #optnumber(LuaNumber)
- * @see #checknumber()
- * @see #toint()
- * @see #todouble()
- */
- public LuaValue tonumber() { return NIL; }
-
- /** Conditionally convert to lua string without throwing errors.
- *
- * In lua all numbers are strings, so this function will return
- * the {@link LuaValue} {@code this} if it is a string or number,
- * and {@link NIL} for all other cases.
- *
- * This allows values to be tested for their "string-ness" without
- * the penalty of throwing exceptions.
- * @return {@code this} if it is a {@link LuaString} or {@link LuaNumber},
- * otherwise {@link NIL}
- * @see #tonumber()
- * @see #tojstring()
- * @see #optstring(LuaString)
- * @see #checkstring()
- * @see #toString()
- */
- public LuaValue tostring() { return NIL; }
-
- /** Check that optional argument is a boolean and return its boolean value
- * @param defval boolean value to return if {@code this} is nil or none
- * @return {@code this} cast to boolean if a {@LuaBoolean},
- * {@code defval} if nil or none,
- * throws {@link LuaError} otherwise
- * @throws LuaError if was not a boolean or nil or none.
- * @see #checkboolean()
- * @see #isboolean()
- * @see #TBOOLEAN
- */
- public boolean optboolean(boolean defval) { argerror("boolean"); return false; }
-
- /** Check that optional argument is a closure and return as {@link LuaClosure}
- *
- * A {@link LuaClosure} is a {@LuaFunction} that executes lua byteccode.
- * @param defval {@link LuaClosure} to return if {@code this} is nil or none
- * @return {@code this} cast to {@link LuaClosure} if a function,
- * {@code defval} if nil or none,
- * throws {@link LuaError} otherwise
- * @throws LuaError if was not a closure or nil or none.
- * @see #checkclosure()
- * @see #isclosure()
- * @see #TFUNCTION
- */
- public LuaClosure optclosure(LuaClosure defval) { argerror("closure"); return null; }
-
- /** Check that optional argument is a number or string convertible to number and return as double
- * @param defval double to return if {@code this} is nil or none
- * @return {@code this} cast to double if numeric,
- * {@code defval} if nil or none,
- * throws {@link LuaError} otherwise
- * @throws LuaError if was not numeric or nil or none.
- * @see #optint(int)
- * @see #optinteger(LuaInteger)
- * @see #checkdouble()
- * @see #todouble()
- * @see #tonumber()
- * @see #isnumber()
- * @see #TNUMBER
- */
- public double optdouble(double defval) { argerror("double"); return 0; }
-
- /** Check that optional argument is a function and return as {@link LuaFunction}
- *
- * A {@link LuaFunction} may either be a Java function that implements
- * functionality directly in Java,
- * or a {@link LuaClosure}
- * which is a {@link LuaFunction} that executes lua bytecode.
- * @param defval {@link LuaFunction} to return if {@code this} is nil or none
- * @return {@code this} cast to {@link LuaFunction} if a function,
- * {@code defval} if nil or none,
- * throws {@link LuaError} otherwise
- * @throws LuaError if was not a function or nil or none.
- * @see #checkfunction()
- * @see #isfunction()
- * @see #TFUNCTION
- */
- public LuaFunction optfunction(LuaFunction defval) { argerror("function"); return null; }
-
- /** Check that optional argument is a number or string convertible to number and return as int
- * @param defval int to return if {@code this} is nil or none
- * @return {@code this} cast to int if numeric,
- * {@code defval} if nil or none,
- * throws {@link LuaError} otherwise
- * @throws LuaError if was not numeric or nil or none.
- * @see #optdouble(double)
- * @see #optlong(long)
- * @see #optinteger(LuaInteger)
- * @see #checkint()
- * @see #toint()
- * @see #tonumber()
- * @see #isnumber()
- * @see #TNUMBER
- */
- public int optint(int defval) { argerror("int"); return 0; }
-
- /** Check that optional argument is a number or string convertible to number and return as {@link LuaInteger}
- * @param defval {@link LuaInteger} to return if {@code this} is nil or none
- * @return {@code this} converted and wrapped in {@link LuaInteger} if numeric,
- * {@code defval} if nil or none,
- * throws {@link LuaError} otherwise
- * @throws LuaError if was not numeric or nil or none.
- * @see #optdouble(double)
- * @see #optint(int)
- * @see #checkint()
- * @see #toint()
- * @see #tonumber()
- * @see #isnumber()
- * @see #TNUMBER
- */
- public LuaInteger optinteger(LuaInteger defval) { argerror("integer"); return null; }
-
- /** Check that optional argument is a number or string convertible to number and return as long
- * @param defval long to return if {@code this} is nil or none
- * @return {@code this} cast to long if numeric,
- * {@code defval} if nil or none,
- * throws {@link LuaError} otherwise
- * @throws LuaError if was not numeric or nil or none.
- * @see #optdouble(double)
- * @see #optint(int)
- * @see #checkint()
- * @see #toint()
- * @see #tonumber()
- * @see #isnumber()
- * @see #TNUMBER
- */
- public long optlong(long defval) { argerror("long"); return 0; }
-
- /** Check that optional argument is a number or string convertible to number and return as {@link LuaNumber}
- * @param defval {@link LuaNumber} to return if {@code this} is nil or none
- * @return {@code this} cast to {@link LuaNumber} if numeric,
- * {@code defval} if nil or none,
- * throws {@link LuaError} otherwise
- * @throws LuaError if was not numeric or nil or none.
- * @see #optdouble(double)
- * @see #optlong(long)
- * @see #optint(int)
- * @see #checkint()
- * @see #toint()
- * @see #tonumber()
- * @see #isnumber()
- * @see #TNUMBER
- */
- public LuaNumber optnumber(LuaNumber defval) { argerror("number"); return null; }
-
- /** Check that optional argument is a string or number and return as Java String
- * @param defval {@link LuaString} to return if {@code this} is nil or none
- * @return {@code this} converted to String if a string or number,
- * {@code defval} if nil or none,
- * throws {@link LuaError} if some other type
- * @throws LuaError if was not a string or number or nil or none.
- * @see #tojstring()
- * @see #optstring(LuaString)
- * @see #checkjstring()
- * @see #toString()
- * @see #TSTRING
- */
- public String optjstring(String defval) { argerror("String"); return null; }
-
- /** Check that optional argument is a string or number and return as {@link LuaString}
- * @param defval {@link LuaString} to return if {@code this} is nil or none
- * @return {@code this} converted to {@link LuaString} if a string or number,
- * {@code defval} if nil or none,
- * throws {@link LuaError} if some other type
- * @throws LuaError if was not a string or number or nil or none.
- * @see #tojstring()
- * @see #optjstring(String)
- * @see #checkstring()
- * @see #toString()
- * @see #TSTRING
- */
- public LuaString optstring(LuaString defval) { argerror("string"); return null; }
-
- /** Check that optional argument is a table and return as {@link LuaTable}
- * @param defval {@link LuaTable} to return if {@code this} is nil or none
- * @return {@code this} cast to {@link LuaTable} if a table,
- * {@code defval} if nil or none,
- * throws {@link LuaError} if some other type
- * @throws LuaError if was not a table or nil or none.
- * @see #checktable()
- * @see #istable()
- * @see #TTABLE
- */
- public LuaTable opttable(LuaTable defval) { argerror("table"); return null; }
-
- /** Check that optional argument is a thread and return as {@link LuaThread}
- * @param defval {@link LuaThread} to return if {@code this} is nil or none
- * @return {@code this} cast to {@link LuaTable} if a thread,
- * {@code defval} if nil or none,
- * throws {@link LuaError} if some other type
- * @throws LuaError if was not a thread or nil or none.
- * @see #checkthread()
- * @see #isthread()
- * @see #TTHREAD
- */
- public LuaThread optthread(LuaThread defval) { argerror("thread"); return null; }
-
- /** Check that optional argument is a userdata and return the Object instance
- * @param defval Object to return if {@code this} is nil or none
- * @return Object instance of the userdata if a {@link LuaUserdata},
- * {@code defval} if nil or none,
- * throws {@link LuaError} if some other type
- * @throws LuaError if was not a userdata or nil or none.
- * @see #checkuserdata()
- * @see #isuserdata()
- * @see #optuserdata(Class, Object)
- * @see #TUSERDATA
- */
- public Object optuserdata(Object defval) { argerror("object"); return null; }
-
- /** Check that optional argument is a userdata whose instance is of a type
- * and return the Object instance
- * @param c Class to test userdata instance against
- * @param defval Object to return if {@code this} is nil or none
- * @return Object instance of the userdata if a {@link LuaUserdata} and instance is assignable to {@code c},
- * {@code defval} if nil or none,
- * throws {@link LuaError} if some other type
- * @throws LuaError if was not a userdata whose instance is assignable to {@code c} or nil or none.
- * @see #checkuserdata(Class)
- * @see #isuserdata(Class)
- * @see #optuserdata(Object)
- * @see #TUSERDATA
- */
- public Object optuserdata(Class c, Object defval) { argerror(c.getName()); return null; }
-
- /** Perform argument check that this is not nil or none.
- * @param defval {@link LuaValue} to return if {@code this} is nil or none
- * @return {@code this} if not nil or none, else {@code defval}
- * @see #NIL
- * @see #NONE
- * @see #isnil()
- * @see Varargs#isnoneornil(int)
- * @see #TNIL
- * @see #TNONE
- */
- public LuaValue optvalue(LuaValue defval) { return this; }
-
-
- /** Check that the value is a {@link LuaBoolean},
- * or throw {@link LuaError} if not
- * @return boolean value for {@code this} if it is a {@link LuaBoolean}
- * @throws LuaError if not a {@link LuaBoolean}
- * @see #optboolean(boolean)
- * @see #TBOOLEAN
- */
- public boolean checkboolean() { argerror("boolean"); return false; }
-
- /** Check that the value is a {@link LuaClosure} ,
- * or throw {@link LuaError} if not
- *
- * {@link LuaClosure} is a subclass of {@LuaFunction} that interprets lua bytecode.
- * @return {@code this} cast as {@link LuaClosure}
- * @throws LuaError if not a {@link LuaClosure}
- * @see #checkfunction()
- * @see #optclosure(LuaClosure)
- * @see #isclosure()
- * @see #TFUNCTION
- */
- public LuaClosure checkclosure() { argerror("closure"); return null; }
-
- /** Check that the value is numeric and return the value as a double,
- * or throw {@link LuaError} if not numeric
- *
- * Values that are {@link LuaNumber} and values that are {@link LuaString}
- * that can be converted to a number will be converted to double.
- * @return value cast to a double if numeric
- * @throws LuaError if not a {@link LuaNumber} or is a {@link LuaString} that can't be converted to number
- * @see #checkint()
- * @see #checkinteger()
- * @see #checklong()
- * @see #optdouble(double)
- * @see #TNUMBER
- */
- public double checkdouble() { argerror("double"); return 0; }
-
- /** Check that the value is a function , or throw {@link LuaError} if not
- *
- * A function is considered anything whose {@link type()} returns {@link TFUNCTION}.
- * In practice it will be either a built-in Java function, typically deriving from
- * {@link LuaFunction} or a {@link LuaClosure} which represents lua source compiled
- * into lua bytecode.
- * @return {@code this} if if a lua function or closure
- * @throws LuaError if not a function
- * @see #checkclosure()
- */
- public LuaValue checkfunction() { argerror("function"); return null; }
-
- /** Check that the value is numeric, and convert and cast value to int, or throw {@link LuaError} if not numeric
- *
- * Values that are {@link LuaNumber} will be cast to int and may lose precision.
- * Values that are {@link LuaString} that can be converted to a number will be converted,
- * then cast to int, so may also lose precision.
- * @return value cast to a int if numeric
- * @throws LuaError if not a {@link LuaNumber} or is a {@link LuaString} that can't be converted to number
- * @see #checkinteger()
- * @see #checklong()
- * @see #checkdouble()
- * @see #optint(int)
- * @see #TNUMBER
- */
- public int checkint() { argerror("int"); return 0; }
-
- /** Check that the value is numeric, and convert and cast value to int, or throw {@link LuaError} if not numeric
- *
- * Values that are {@link LuaNumber} will be cast to int and may lose precision.
- * Values that are {@link LuaString} that can be converted to a number will be converted,
- * then cast to int, so may also lose precision.
- * @return value cast to a int and wrapped in {@link LuaInteger} if numeric
- * @throws LuaError if not a {@link LuaNumber} or is a {@link LuaString} that can't be converted to number
- * @see #checkint()
- * @see #checklong()
- * @see #checkdouble()
- * @see #optinteger(LuaInteger)
- * @see #TNUMBER
- */
- public LuaInteger checkinteger() { argerror("integer"); return null; }
-
- /** Check that the value is numeric, and convert and cast value to long, or throw {@link LuaError} if not numeric
- *
- * Values that are {@link LuaNumber} will be cast to long and may lose precision.
- * Values that are {@link LuaString} that can be converted to a number will be converted,
- * then cast to long, so may also lose precision.
- * @return value cast to a long if numeric
- * @throws LuaError if not a {@link LuaNumber} or is a {@link LuaString} that can't be converted to number
- * @see #checkint()
- * @see #checkinteger()
- * @see #checkdouble()
- * @see #optlong(long)
- * @see #TNUMBER
- */
- public long checklong() { argerror("long"); return 0; }
-
- /** Check that the value is numeric, and return as a LuaNumber if so, or throw {@link LuaError}
- *
- * Values that are {@link LuaString} that can be converted to a number will be converted and returned.
- * @return value as a {@link LuaNumber} if numeric
- * @throws LuaError if not a {@link LuaNumber} or is a {@link LuaString} that can't be converted to number
- * @see #checkint()
- * @see #checkinteger()
- * @see #checkdouble()
- * @see #checklong()
- * @see #optnumber(LuaNumber)
- * @see #TNUMBER
- */
- public LuaNumber checknumber() { argerror("number"); return null; }
-
- /** Check that the value is numeric, and return as a LuaNumber if so, or throw {@link LuaError}
- *
- * Values that are {@link LuaString} that can be converted to a number will be converted and returned.
- * @param msg String message to supply if conversion fails
- * @return value as a {@link LuaNumber} if numeric
- * @throws LuaError if not a {@link LuaNumber} or is a {@link LuaString} that can't be converted to number
- * @see #checkint()
- * @see #checkinteger()
- * @see #checkdouble()
- * @see #checklong()
- * @see #optnumber(LuaNumber)
- * @see #TNUMBER
- */
- public LuaNumber checknumber(String msg) { throw new LuaError(msg); }
-
- /** Convert this value to a Java String.
- *
- * The string representations here will roughly match what is produced by the
- * C lua distribution, however hash codes have no relationship,
- * and there may be differences in number formatting.
- * @return String representation of the value
- * @see #checkstring()
- * @see #optjstring(String)
- * @see #tojstring()
- * @see #isstring
- * @see #TSTRING
- */
- public String checkjstring() { argerror("string"); return null; }
-
- /** Check that this is a lua string, or throw {@link LuaError} if it is not.
- *
- * In lua all numbers are strings, so this will succeed for
- * anything that derives from {@link LuaString} or {@link LuaNumber}.
- * Numbers will be converted to {@link LuaString}.
- *
- * @return {@link LuaString} representation of the value if it is a {@link LuaString} or {@link LuaNumber}
- * @throws LuaError if {@code this} is not a {@link LuaTable}
- * @see #checkjstring()
- * @see #optstring(LuaString)
- * @see #tostring()
- * @see #isstring()
- * @see #TSTRING
- */
- public LuaString checkstring() { argerror("string"); return null; }
-
- /** Check that this is a {@link LuaTable}, or throw {@link LuaError} if it is not
- * @return {@code this} if it is a {@link LuaTable}
- * @throws LuaError if {@code this} is not a {@link LuaTable}
- * @see #istable()
- * @see #opttable(LuaTable)
- * @see #TTABLE
- */
- public LuaTable checktable() { argerror("table"); return null; }
-
- /** Check that this is a {@link LuaThread}, or throw {@link LuaError} if it is not
- * @return {@code this} if it is a {@link LuaThread}
- * @throws LuaError if {@code this} is not a {@link LuaThread}
- * @see #isthread()
- * @see #optthread(LuaThread)
- * @see #TTHREAD
- */
- public LuaThread checkthread() { argerror("thread"); return null; }
-
- /** Check that this is a {@link LuaUserdata}, or throw {@link LuaError} if it is not
- * @return {@code this} if it is a {@link LuaUserdata}
- * @throws LuaError if {@code this} is not a {@link LuaUserdata}
- * @see #isuserdata()
- * @see #optuserdata(Object)
- * @see #checkuserdata(Class)
- * @see #TUSERDATA
- */
- public Object checkuserdata() { argerror("userdata"); return null; }
-
- /** Check that this is a {@link LuaUserdata}, or throw {@link LuaError} if it is not
- * @return {@code this} if it is a {@link LuaUserdata}
- * @throws LuaError if {@code this} is not a {@link LuaUserdata}
- * @see #isuserdata(Class)
- * @see #optuserdata(Class, Object)
- * @see #checkuserdata()
- * @see #TUSERDATA
- */
- public Object checkuserdata(Class c) { argerror("userdata"); return null; }
-
- /** Check that this is not the value {@link NIL}, or throw {@link LuaError} if it is
- * @return {@code this} if it is not {@link NIL}
- * @throws LuaError if {@code this} is {@link NIL}
- * @see #optvalue(LuaValue)
- */
- public LuaValue checknotnil() { return this; }
-
- /** Check that this is a valid key in a table index operation, or throw {@link LuaError} if not
- * @return {@code this} if valid as a table key
- * @throws LuaError if not valid as a table key
- * @see #isnil()
- * @see #isinttype()
- */
- public LuaValue checkvalidkey() { return this; }
-
- /**
- * Throw a {@link LuaError} with a particular message
- * @param message String providing message details
- * @throws LuaError in all cases
- */
- public static LuaValue error(String message) { throw new LuaError(message); }
-
- /**
- * Assert a condition is true, or throw a {@link LuaError} if not
- * @param b condition to test
- * @return returns no value when b is true, throws error not return if b is false
- * @throws LuaError if b is not true
- */
- public static void assert_(boolean b,String msg) { if(!b) throw new LuaError(msg); }
-
- /**
- * Throw a {@link LuaError} indicating an invalid argument was supplied to a function
- * @param expected String naming the type that was expected
- * @throws LuaError in all cases
- */
- protected LuaValue argerror(String expected) { throw new LuaError("bad argument: "+expected+" expected, got "+typename()); }
-
- /**
- * Throw a {@link LuaError} indicating an invalid argument was supplied to a function
- * @param iarg index of the argument that was invalid, first index is 1
- * @param msg String providing information about the invalid argument
- * @throws LuaError in all cases
- */
- public static LuaValue argerror(int iarg,String msg) { throw new LuaError("bad argument #"+iarg+": "+msg); }
-
- /**
- * Throw a {@link LuaError} indicating an invalid type was supplied to a function
- * @param expected String naming the type that was expected
- * @throws LuaError in all cases
- */
- protected LuaValue typerror(String expected) { throw new LuaError(expected+" expected, got "+typename()); }
-
- /**
- * Throw a {@link LuaError} indicating an operation is not implemented
- * @throws LuaError in all cases
- */
- protected LuaValue unimplemented(String fun) { throw new LuaError("'"+fun+"' not implemented for "+typename()); }
-
- /**
- * Throw a {@link LuaError} indicating an illegal operation occurred,
- * typically involved in managing weak references
- * @throws LuaError in all cases
- */
- protected LuaValue illegal(String op,String typename) { throw new LuaError("illegal operation '"+op+"' for "+typename); }
-
- /**
- * Throw a {@link LuaError} based on the len operator,
- * typically due to an invalid operand type
- * @throws LuaError in all cases
- */
- protected LuaValue lenerror() { throw new LuaError("attempt to get length of "+typename()); }
-
- /**
- * Throw a {@link LuaError} based on an arithmetic error such as add, or pow,
- * typically due to an invalid operand type
- * @throws LuaError in all cases
- */
- protected LuaValue aritherror() { throw new LuaError("attempt to perform arithmetic on "+typename()); }
-
- /**
- * Throw a {@link LuaError} based on an arithmetic error such as add, or pow,
- * typically due to an invalid operand type
- * @param fun String description of the function that was attempted
- * @throws LuaError in all cases
- */
- protected LuaValue aritherror(String fun) { throw new LuaError("attempt to perform arithmetic '"+fun+"' on "+typename()); }
-
- /**
- * Throw a {@link LuaError} based on a comparison error such as greater-than or less-than,
- * typically due to an invalid operand type
- * @param rhs String description of what was on the right-hand-side of the comparison that resulted in the error.
- * @throws LuaError in all cases
- */
- protected LuaValue compareerror(String rhs) { throw new LuaError("attempt to compare "+typename()+" with "+rhs); }
-
- /**
- * Throw a {@link LuaError} based on a comparison error such as greater-than or less-than,
- * typically due to an invalid operand type
- * @param rhs Right-hand-side of the comparison that resulted in the error.
- * @throws LuaError in all cases
- */
- protected LuaValue compareerror(LuaValue rhs) { throw new LuaError("attempt to compare "+typename()+" with "+rhs.typename()); }
-
- /** Get a value in a table including metatag processing using {@link INDEX}.
- * @param key the key to look up, must not be {@link NIL} or null
- * @return {@link LuaValue} for that key, or {@link NIL} if not found and no metatag
- * @throws LuaError if {@code this} is not a table,
- * or there is no {@link INDEX} metatag,
- * or key is {@link NIL}
- * @see #get(int)
- * @see #get(String)
- * @see #rawget(LuaValue)
- */
- public LuaValue get( LuaValue key ) { return gettable(this,key); }
-
- /** Get a value in a table including metatag processing using {@link INDEX}.
- * @param key the key to look up
- * @return {@link LuaValue} for that key, or {@link NIL} if not found
- * @throws LuaError if {@code this} is not a table,
- * or there is no {@link INDEX} metatag
- * @see #get(LuaValue)
- * @see #rawget(int)
- */
- public LuaValue get( int key ) { return get(LuaInteger.valueOf(key)); }
-
- /** Get a value in a table including metatag processing using {@link INDEX}.
- * @param key the key to look up, must not be null
- * @return {@link LuaValue} for that key, or {@link NIL} if not found
- * @throws LuaError if {@code this} is not a table,
- * or there is no {@link INDEX} metatag
- * @see #get(LuaValue)
- * @see #rawget(String)
- */
- public LuaValue get( String key ) { return get(valueOf(key)); }
-
- /** Set a value in a table without metatag processing using {@link NEWINDEX}.
- * @param key the key to use, must not be {@link NIL} or null
- * @param value the value to use, can be {@link NIL}, must not be null
- * @throws LuaError if {@code this} is not a table,
- * or key is {@link NIL},
- * or there is no {@link NEWINDEX} metatag
- */
- public void set( LuaValue key, LuaValue value ) { settable(this, key, value); }
-
- /** Set a value in a table without metatag processing using {@link NEWINDEX}.
- * @param key the key to use
- * @param value the value to use, can be {@link NIL}, must not be null
- * @throws LuaError if {@code this} is not a table,
- * or there is no {@link NEWINDEX} metatag
- */
- public void set( int key, LuaValue value ) { set(LuaInteger.valueOf(key), value ); }
-
- /** Set a value in a table without metatag processing using {@link NEWINDEX}.
- * @param key the key to use
- * @param value the value to use, must not be null
- * @throws LuaError if {@code this} is not a table,
- * or there is no {@link NEWINDEX} metatag
- */
- public void set( int key, String value ) { set(key, valueOf(value) ); }
-
- /** Set a value in a table without metatag processing using {@link NEWINDEX}.
- * @param key the key to use, must not be {@link NIL} or null
- * @param value the value to use, can be {@link NIL}, must not be null
- * @throws LuaError if {@code this} is not a table,
- * or there is no {@link NEWINDEX} metatag
- */
- public void set( String key, LuaValue value ) { set(valueOf(key), value ); }
-
- /** Set a value in a table without metatag processing using {@link NEWINDEX}.
- * @param key the key to use, must not be null
- * @param value the value to use
- * @throws LuaError if {@code this} is not a table,
- * or there is no {@link NEWINDEX} metatag
- */
- public void set( String key, double value ) { set(valueOf(key), valueOf(value) ); }
-
- /** Set a value in a table without metatag processing using {@link NEWINDEX}.
- * @param key the key to use, must not be null
- * @param value the value to use
- * @throws LuaError if {@code this} is not a table,
- * or there is no {@link NEWINDEX} metatag
- */
- public void set( String key, int value ) { set(valueOf(key), valueOf(value) ); }
-
- /** Set a value in a table without metatag processing using {@link NEWINDEX}.
- * @param key the key to use, must not be null
- * @param value the value to use, must not be null
- * @throws LuaError if {@code this} is not a table,
- * or there is no {@link NEWINDEX} metatag
- */
- public void set( String key, String value ) { set(valueOf(key), valueOf(value) ); }
-
- /** Get a value in a table without metatag processing.
- * @param key the key to look up, must not be {@link NIL} or null
- * @return {@link LuaValue} for that key, or {@link NIL} if not found
- * @throws LuaError if {@code this} is not a table, or key is {@link NIL}
- */
- public LuaValue rawget( LuaValue key ) { return unimplemented("rawget"); }
-
- /** Get a value in a table without metatag processing.
- * @param key the key to look up
- * @return {@link LuaValue} for that key, or {@link NIL} if not found
- * @throws LuaError if {@code this} is not a table
- */
- public LuaValue rawget( int key ) { return rawget(valueOf(key)); }
-
- /** Get a value in a table without metatag processing.
- * @param key the key to look up, must not be null
- * @return {@link LuaValue} for that key, or {@link NIL} if not found
- * @throws LuaError if {@code this} is not a table
- */
- public LuaValue rawget( String key ) { return rawget(valueOf(key)); }
-
- /** Set a value in a table without metatag processing.
- * @param key the key to use, must not be {@link NIL} or null
- * @param value the value to use, can be {@link NIL}, must not be null
- * @throws LuaError if {@code this} is not a table, or key is {@link NIL}
- */
- public void rawset( LuaValue key, LuaValue value ) { unimplemented("rawset"); }
-
- /** Set a value in a table without metatag processing.
- * @param key the key to use
- * @param value the value to use, can be {@link NIL}, must not be null
- * @throws LuaError if {@code this} is not a table
- */
- public void rawset( int key, LuaValue value ) { rawset(valueOf(key),value); }
-
- /** Set a value in a table without metatag processing.
- * @param key the key to use
- * @param value the value to use, can be {@link NIL}, must not be null
- * @throws LuaError if {@code this} is not a table
- */
- public void rawset( int key, String value ) { rawset(key,valueOf(value)); }
-
- /** Set a value in a table without metatag processing.
- * @param key the key to use, must not be null
- * @param value the value to use, can be {@link NIL}, must not be null
- * @throws LuaError if {@code this} is not a table
- */
- public void rawset( String key, LuaValue value ) { rawset(valueOf(key),value); }
-
- /** Set a value in a table without metatag processing.
- * @param key the key to use, must not be null
- * @param value the value to use
- * @throws LuaError if {@code this} is not a table
- */
- public void rawset( String key, double value ) { rawset(valueOf(key),valueOf(value)); }
-
- /** Set a value in a table without metatag processing.
- * @param key the key to use, must not be null
- * @param value the value to use
- * @throws LuaError if {@code this} is not a table
- */
- public void rawset( String key, int value ) { rawset(valueOf(key),valueOf(value)); }
-
- /** Set a value in a table without metatag processing.
- * @param key the key to use, must not be null
- * @param value the value to use, must not be null
- * @throws LuaError if {@code this} is not a table
- */
- public void rawset( String key, String value ) { rawset(valueOf(key),valueOf(value)); }
-
- /** Set list values in a table without invoking metatag processing
- *
- * Primarily used internally in response to a SETLIST bytecode.
- * @param key0 the first key to set in the table
- * @param values the list of values to set
- * @throws LuaError if this is not a table.
- */
- public void rawsetlist( int key0, Varargs values ) { for ( int i=0, n=values.narg(); i
- * To iterate over all key-value pairs in a table you can use
- *
- * To iterate over integer keys in a table you can use
- *
- * For {@link LuaTable} and {@link LuaUserdata} instances,
- * the metatable returned is this instance metatable.
- * For all other types, the class metatable value will be returned.
- * @return metatable, or null if it there is none
- * @see LuaBoolean#s_metatable
- * @see LuaNumber#s_metatable
- * @see LuaNil#s_metatable
- * @see LuaFunction#s_metatable
- * @see LuaThread#s_metatable
- */
- public LuaValue getmetatable() { return null; };
-
- /**
- * Set the metatable for this {@link LuaValue}
- *
- * For {@link LuaTable} and {@link LuaUserdata} instances, the metatable is per instance.
- * For all other types, there is one metatable per type that can be set directly from java
- * @param metatable {@link LuaValue} instance to serve as the metatable, or null to reset it.
- * @return {@code this} to allow chaining of Java function calls
- * @see LuaBoolean#s_metatable
- * @see LuaNumber#s_metatable
- * @see LuaNil#s_metatable
- * @see LuaFunction#s_metatable
- * @see LuaThread#s_metatable
- */
- public LuaValue setmetatable(LuaValue metatable) { return argerror("table"); }
-
- /**
- * Get the environemnt for an instance.
- * @return {@link LuaValue} currently set as the instances environent.
- */
- public LuaValue getfenv() { typerror("function or thread"); return null; }
-
- /**
- * Set the environment on an object.
- *
- * Typically the environment is created once per application via a platform
- * helper method such as {@link org.luaj.vm2.lib.jse.JsePlatform#standardGlobals()}
- * However, any object can serve as an environment if it contains suitable metatag
- * values to implement {@link #get(LuaValue)} to provide the environment values.
- * @param env {@link LuaValue} (typically a {@link LuaTable}) containing the environment.
- * @see org.luaj.vm2.lib.jme.JmePlatform
- * @see org.luaj.vm2.lib.jse.JsePlatform
- */
- public void setfenv(LuaValue env) { typerror("function or thread"); }
-
- /** Call {@link this} with 0 arguments, including metatag processing,
- * and return only the first return value.
- *
- * If {@code this} is a {@link LuaFunction}, call it,
- * and return only its first return value, dropping any others.
- * Otherwise, look for the {@link CALL} metatag and call that.
- *
- * If the return value is a {@link Varargs}, only the 1st value will be returned.
- * To get multiple values, use {@link #invoke()} instead.
- *
- * To call {@link this} as a method call, use {@link #method(LuaValue)} instead.
- *
- * @return First return value {@code (this())}, or {@link NIL} if there were none.
- * @throws LuaError if not a function and {@link CALL} is not defined,
- * or the invoked function throws a {@link LuaError}
- * or the invoked closure throw a lua {@code error}
- * @see #call(LuaValue)
- * @see #call(LuaValue,LuaValue)
- * @see #call(LuaValue, LuaValue, LuaValue)
- * @see #invoke()
- * @see #method(String)
- * @see #method(LuaValue)
- */
- public LuaValue call() { return callmt().call(this); }
-
- /** Call {@link this} with 1 argument, including metatag processing,
- * and return only the first return value.
- *
- * If {@code this} is a {@link LuaFunction}, call it,
- * and return only its first return value, dropping any others.
- * Otherwise, look for the {@link CALL} metatag and call that.
- *
- * If the return value is a {@link Varargs}, only the 1st value will be returned.
- * To get multiple values, use {@link #invoke()} instead.
- *
- * To call {@link this} as a method call, use {@link #method(LuaValue)} instead.
- *
- * @param arg First argument to supply to the called function
- * @return First return value {@code (this(arg))}, or {@link NIL} if there were none.
- * @throws LuaError if not a function and {@link CALL} is not defined,
- * or the invoked function throws a {@link LuaError}
- * or the invoked closure throw a lua {@code error}
- * @see #call()
- * @see #call(LuaValue,LuaValue)
- * @see #call(LuaValue, LuaValue, LuaValue)
- * @see #invoke(LuaValue)
- * @see #method(String,LuaValue)
- * @see #method(LuaValue,LuaValue)
- */
- public LuaValue call(LuaValue arg) { return callmt().call(this,arg); }
-
- /** Call {@link this} with 2 arguments, including metatag processing,
- * and return only the first return value.
- *
- * If {@code this} is a {@link LuaFunction}, call it,
- * and return only its first return value, dropping any others.
- * Otherwise, look for the {@link CALL} metatag and call that.
- *
- * If the return value is a {@link Varargs}, only the 1st value will be returned.
- * To get multiple values, use {@link #invoke()} instead.
- *
- * To call {@link this} as a method call, use {@link #method(LuaValue)} instead.
- *
- * @param arg1 First argument to supply to the called function
- * @param arg2 Second argument to supply to the called function
- * @return First return value {@code (this(arg1,arg2))}, or {@link NIL} if there were none.
- * @throws LuaError if not a function and {@link CALL} is not defined,
- * or the invoked function throws a {@link LuaError}
- * or the invoked closure throw a lua {@code error}
- * @see #call()
- * @see #call(LuaValue)
- * @see #call(LuaValue, LuaValue, LuaValue)
- * @see #invoke(LuaValue,LuaValue)
- * @see #method(String,LuaValue,LuaValue)
- * @see #method(LuaValue,LuaValue,LuaValue)
- */
- public LuaValue call(LuaValue arg1, LuaValue arg2) { return callmt().call(this,arg1,arg2); }
-
- /** Call {@link this} with 3 arguments, including metatag processing,
- * and return only the first return value.
- *
- * If {@code this} is a {@link LuaFunction}, call it,
- * and return only its first return value, dropping any others.
- * Otherwise, look for the {@link CALL} metatag and call that.
- *
- * If the return value is a {@link Varargs}, only the 1st value will be returned.
- * To get multiple values, use {@link #invoke()} instead.
- *
- * To call {@link this} as a method call, use {@link #method(LuaValue)} instead.
- *
- * @param arg1 First argument to supply to the called function
- * @param arg2 Second argument to supply to the called function
- * @param arg3 Second argument to supply to the called function
- * @return First return value {@code (this(arg1,arg2,arg3))}, or {@link NIL} if there were none.
- * @throws LuaError if not a function and {@link CALL} is not defined,
- * or the invoked function throws a {@link LuaError}
- * or the invoked closure throw a lua {@code error}
- * @see #call()
- * @see #call(LuaValue)
- * @see #call(LuaValue, LuaValue)
- * @see #invoke(LuaValue,LuaValue, LuaValue)
- * @see #invokemethod(String,Varargs)
- * @see #invokemethod(LuaValue,Varargs)
- */
- public LuaValue call(LuaValue arg1, LuaValue arg2, LuaValue arg3) { return callmt().invoke(new LuaValue[]{this,arg1,arg2,arg3}).arg1(); }
-
- /** Call named method on {@link this} with 0 arguments, including metatag processing,
- * and return only the first return value.
- *
- * Look up {@code this[name]} and if it is a {@link LuaFunction},
- * call it inserting {@link this} as an additional first argument.
- * and return only its first return value, dropping any others.
- * Otherwise, look for the {@link CALL} metatag and call that.
- *
- * If the return value is a {@link Varargs}, only the 1st value will be returned.
- * To get multiple values, use {@link #invoke()} instead.
- *
- * To call {@link this} as a plain call, use {@link #call()} instead.
- *
- * @param name Name of the method to look up for invocation
- * @return All values returned from {@code this:name()} as a {@link Varargs} instance
- * @throws LuaError if not a function and {@link CALL} is not defined,
- * or the invoked function throws a {@link LuaError}
- * or the invoked closure throw a lua {@code error}
- * @see #call()
- * @see #invoke()
- * @see #method(LuaValue)
- * @see #method(String,LuaValue)
- * @see #method(String,LuaValue,LuaValue)
- */
- public LuaValue method(String name) { return this.get(name).call(this); }
-
- /** Call named method on {@link this} with 0 arguments, including metatag processing,
- * and return only the first return value.
- *
- * Look up {@code this[name]} and if it is a {@link LuaFunction},
- * call it inserting {@link this} as an additional first argument,
- * and return only its first return value, dropping any others.
- * Otherwise, look for the {@link CALL} metatag and call that.
- *
- * If the return value is a {@link Varargs}, only the 1st value will be returned.
- * To get multiple values, use {@link #invoke()} instead.
- *
- * To call {@link this} as a plain call, use {@link #call()} instead.
- *
- * @param name Name of the method to look up for invocation
- * @return All values returned from {@code this:name()} as a {@link Varargs} instance
- * @throws LuaError if not a function and {@link CALL} is not defined,
- * or the invoked function throws a {@link LuaError}
- * or the invoked closure throw a lua {@code error}
- * @see #call()
- * @see #invoke()
- * @see #method(String)
- * @see #method(LuaValue,LuaValue)
- * @see #method(LuaValue,LuaValue,LuaValue)
- */
- public LuaValue method(LuaValue name) { return this.get(name).call(this); }
-
- /** Call named method on {@link this} with 1 argument, including metatag processing,
- * and return only the first return value.
- *
- * Look up {@code this[name]} and if it is a {@link LuaFunction},
- * call it inserting {@link this} as an additional first argument,
- * and return only its first return value, dropping any others.
- * Otherwise, look for the {@link CALL} metatag and call that.
- *
- * If the return value is a {@link Varargs}, only the 1st value will be returned.
- * To get multiple values, use {@link #invoke()} instead.
- *
- * To call {@link this} as a plain call, use {@link #call(LuaValue)} instead.
- *
- * @param name Name of the method to look up for invocation
- * @param arg Argument to supply to the method
- * @return All values returned from {@code this:name(arg)} as a {@link Varargs} instance
- * @throws LuaError if not a function and {@link CALL} is not defined,
- * or the invoked function throws a {@link LuaError}
- * or the invoked closure throw a lua {@code error}
- * @see #call(LuaValue)
- * @see #invoke(LuaValue)
- * @see #method(LuaValue,LuaValue)
- * @see #method(String)
- * @see #method(String,LuaValue,LuaValue)
- */
- public LuaValue method(String name, LuaValue arg) { return this.get(name).call(this,arg); }
-
- /** Call named method on {@link this} with 1 argument, including metatag processing,
- * and return only the first return value.
- *
- * Look up {@code this[name]} and if it is a {@link LuaFunction},
- * call it inserting {@link this} as an additional first argument,
- * and return only its first return value, dropping any others.
- * Otherwise, look for the {@link CALL} metatag and call that.
- *
- * If the return value is a {@link Varargs}, only the 1st value will be returned.
- * To get multiple values, use {@link #invoke()} instead.
- *
- * To call {@link this} as a plain call, use {@link #call(LuaValue)} instead.
- *
- * @param name Name of the method to look up for invocation
- * @param arg Argument to supply to the method
- * @return All values returned from {@code this:name(arg)} as a {@link Varargs} instance
- * @throws LuaError if not a function and {@link CALL} is not defined,
- * or the invoked function throws a {@link LuaError}
- * or the invoked closure throw a lua {@code error}
- * @see #call(LuaValue)
- * @see #invoke(LuaValue)
- * @see #method(String,LuaValue)
- * @see #method(LuaValue)
- * @see #method(LuaValue,LuaValue,LuaValue)
- */
- public LuaValue method(LuaValue name, LuaValue arg) { return this.get(name).call(this,arg); }
-
- /** Call named method on {@link this} with 2 arguments, including metatag processing,
- * and return only the first return value.
- *
- * Look up {@code this[name]} and if it is a {@link LuaFunction},
- * call it inserting {@link this} as an additional first argument,
- * and return only its first return value, dropping any others.
- * Otherwise, look for the {@link CALL} metatag and call that.
- *
- * If the return value is a {@link Varargs}, only the 1st value will be returned.
- * To get multiple values, use {@link #invoke()} instead.
- *
- * To call {@link this} as a plain call, use {@link #call(LuaValue,LuaValue)} instead.
- *
- * @param name Name of the method to look up for invocation
- * @param arg1 First argument to supply to the method
- * @param arg2 Second argument to supply to the method
- * @return All values returned from {@code this:name(arg1,arg2)} as a {@link Varargs} instance
- * @throws LuaError if not a function and {@link CALL} is not defined,
- * or the invoked function throws a {@link LuaError}
- * or the invoked closure throw a lua {@code error}
- * @see #call(LuaValue,LuaValue)
- * @see #invoke(LuaValue,Varargs)
- * @see #method(String,LuaValue)
- * @see #method(LuaValue,LuaValue,LuaValue)
- */
- public LuaValue method(String name, LuaValue arg1, LuaValue arg2) { return this.get(name).call(this,arg1,arg2); }
-
- /** Call named method on {@link this} with 2 arguments, including metatag processing,
- * and return only the first return value.
- *
- * Look up {@code this[name]} and if it is a {@link LuaFunction},
- * call it inserting {@link this} as an additional first argument,
- * and return only its first return value, dropping any others.
- * Otherwise, look for the {@link CALL} metatag and call that.
- *
- * If the return value is a {@link Varargs}, only the 1st value will be returned.
- * To get multiple values, use {@link #invoke()} instead.
- *
- * To call {@link this} as a plain call, use {@link #call(LuaValue,LuaValue)} instead.
- *
- * @param name Name of the method to look up for invocation
- * @param arg1 First argument to supply to the method
- * @param arg2 Second argument to supply to the method
- * @return All values returned from {@code this:name(arg1,arg2)} as a {@link Varargs} instance
- * @throws LuaError if not a function and {@link CALL} is not defined,
- * or the invoked function throws a {@link LuaError}
- * or the invoked closure throw a lua {@code error}
- * @see #call(LuaValue,LuaValue)
- * @see #invoke(LuaValue,Varargs)
- * @see #method(LuaValue,LuaValue)
- * @see #method(String,LuaValue,LuaValue)
- */
- public LuaValue method(LuaValue name, LuaValue arg1, LuaValue arg2) { return this.get(name).call(this,arg1,arg2); }
-
- /** Call {@link this} with 0 arguments, including metatag processing,
- * and retain all return values in a {@link Varargs}.
- *
- * If {@code this} is a {@link LuaFunction}, call it, and return all values.
- * Otherwise, look for the {@link CALL} metatag and call that.
- *
- * To get a particular return value, us {@link Varargs#arg(int)}
- *
- * To call {@link this} as a method call, use {@link #invokemethod(LuaValue)} instead.
- *
- * @return All return values as a {@link Varargs} instance.
- * @throws LuaError if not a function and {@link CALL} is not defined,
- * or the invoked function throws a {@link LuaError}
- * or the invoked closure throw a lua {@code error}
- * @see #call()
- * @see #invoke(Varargs)
- * @see #invokemethod(String)
- * @see #invokemethod(LuaValue)
- */
- public Varargs invoke() { return invoke(NONE); }
-
- /** Call {@link this} with variable arguments, including metatag processing,
- * and retain all return values in a {@link Varargs}.
- *
- * If {@code this} is a {@link LuaFunction}, call it, and return all values.
- * Otherwise, look for the {@link CALL} metatag and call that.
- *
- * To get a particular return value, us {@link Varargs#arg(int)}
- *
- * To call {@link this} as a method call, use {@link #invokemethod(LuaValue)} instead.
- *
- * @param args Varargs containing the arguments to supply to the called function
- * @return All return values as a {@link Varargs} instance.
- * @throws LuaError if not a function and {@link CALL} is not defined,
- * or the invoked function throws a {@link LuaError}
- * or the invoked closure throw a lua {@code error}
- * @see #varargsOf(LuaValue[])
- * @see #call(LuaValue)
- * @see #invoke()
- * @see #invoke(LuaValue,Varargs)
- * @see #invokemethod(String,Varargs)
- * @see #invokemethod(LuaValue,Varargs)
- */
- public Varargs invoke(Varargs args) { return callmt().invoke(this,args); }
-
- /** Call {@link this} with variable arguments, including metatag processing,
- * and retain all return values in a {@link Varargs}.
- *
- * If {@code this} is a {@link LuaFunction}, call it, and return all values.
- * Otherwise, look for the {@link CALL} metatag and call that.
- *
- * To get a particular return value, us {@link Varargs#arg(int)}
- *
- * To call {@link this} as a method call, use {@link #invokemethod(LuaValue,Varargs)} instead.
- *
- * @param arg The first argument to supply to the called function
- * @param varargs Varargs containing the remaining arguments to supply to the called function
- * @return All return values as a {@link Varargs} instance.
- * @throws LuaError if not a function and {@link CALL} is not defined,
- * or the invoked function throws a {@link LuaError}
- * or the invoked closure throw a lua {@code error}
- * @see #varargsOf(LuaValue[])
- * @see #call(LuaValue,LuaValue)
- * @see #invoke(LuaValue,Varargs)
- * @see #invokemethod(String,Varargs)
- * @see #invokemethod(LuaValue,Varargs)
- */
- public Varargs invoke(LuaValue arg,Varargs varargs) { return invoke(varargsOf(arg,varargs)); }
-
- /** Call {@link this} with variable arguments, including metatag processing,
- * and retain all return values in a {@link Varargs}.
- *
- * If {@code this} is a {@link LuaFunction}, call it, and return all values.
- * Otherwise, look for the {@link CALL} metatag and call that.
- *
- * To get a particular return value, us {@link Varargs#arg(int)}
- *
- * To call {@link this} as a method call, use {@link #invokemethod(LuaValue,Varargs)} instead.
- *
- * @param arg1 The first argument to supply to the called function
- * @param arg2 The second argument to supply to the called function
- * @param varargs Varargs containing the remaining arguments to supply to the called function
- * @return All return values as a {@link Varargs} instance.
- * @throws LuaError if not a function and {@link CALL} is not defined,
- * or the invoked function throws a {@link LuaError}
- * or the invoked closure throw a lua {@code error}
- * @see #varargsOf(LuaValue[])
- * @see #call(LuaValue,LuaValue,LuaValue)
- * @see #invoke(LuaValue,LuaValue,Varargs)
- * @see #invokemethod(String,Varargs)
- * @see #invokemethod(LuaValue,Varargs)
- */
- public Varargs invoke(LuaValue arg1,LuaValue arg2,Varargs varargs) { return invoke(varargsOf(arg1,arg2,varargs)); }
-
- /** Call {@link this} with variable arguments, including metatag processing,
- * and retain all return values in a {@link Varargs}.
- *
- * If {@code this} is a {@link LuaFunction}, call it, and return all values.
- * Otherwise, look for the {@link CALL} metatag and call that.
- *
- * To get a particular return value, us {@link Varargs#arg(int)}
- *
- * To call {@link this} as a method call, use {@link #invokemethod(LuaValue,Varargs)} instead.
- *
- * @param args Array of arguments to supply to the called function
- * @return All return values as a {@link Varargs} instance.
- * @throws LuaError if not a function and {@link CALL} is not defined,
- * or the invoked function throws a {@link LuaError}
- * or the invoked closure throw a lua {@code error}
- * @see #varargsOf(LuaValue[])
- * @see #call(LuaValue,LuaValue,LuaValue)
- * @see #invoke(LuaValue,LuaValue,Varargs)
- * @see #invokemethod(String,LuaValue[])
- * @see #invokemethod(LuaValue,LuaValue[])
- */
- public Varargs invoke(LuaValue[] args) { return invoke(varargsOf(args)); }
-
- /** Call {@link this} with variable arguments, including metatag processing,
- * and retain all return values in a {@link Varargs}.
- *
- * If {@code this} is a {@link LuaFunction}, call it, and return all values.
- * Otherwise, look for the {@link CALL} metatag and call that.
- *
- * To get a particular return value, us {@link Varargs#arg(int)}
- *
- * To call {@link this} as a method call, use {@link #invokemethod(LuaValue,Varargs)} instead.
- *
- * @param args Array of arguments to supply to the called function
- * @param varargs Varargs containing additional arguments to supply to the called function
- * @return All return values as a {@link Varargs} instance.
- * @throws LuaError if not a function and {@link CALL} is not defined,
- * or the invoked function throws a {@link LuaError}
- * or the invoked closure throw a lua {@code error}
- * @see #varargsOf(LuaValue[])
- * @see #call(LuaValue,LuaValue,LuaValue)
- * @see #invoke(LuaValue,LuaValue,Varargs)
- * @see #invokemethod(String,LuaValue[])
- * @see #invokemethod(LuaValue,LuaValue[])
- * @see #invokemethod(String,Varargs)
- * @see #invokemethod(LuaValue,Varargs)
- */
- public Varargs invoke(LuaValue[] args,Varargs varargs) { return invoke(varargsOf(args,varargs)); }
-
- /** Call named method on {@link this} with 0 arguments, including metatag processing,
- * and retain all return values in a {@link Varargs}.
- *
- * Look up {@code this[name]} and if it is a {@link LuaFunction},
- * call it inserting {@link this} as an additional first argument,
- * and return all return values as a {@link Varargs} instance.
- * Otherwise, look for the {@link CALL} metatag and call that.
- *
- * To get a particular return value, us {@link Varargs#arg(int)}
- *
- * To call {@link this} as a plain call, use {@link #invoke()} instead.
- *
- * @param name Name of the method to look up for invocation
- * @return All values returned from {@code this:name()} as a {@link Varargs} instance
- * @throws LuaError if not a function and {@link CALL} is not defined,
- * or the invoked function throws a {@link LuaError}
- * or the invoked closure throw a lua {@code error}
- * @see #call()
- * @see #invoke()
- * @see #method(String)
- * @see #invokemethod(LuaValue)
- * @see #invokemethod(String,LuaValue)
- */
- public Varargs invokemethod(String name) { return get(name).invoke(this); }
-
- /** Call named method on {@link this} with 0 arguments, including metatag processing,
- * and retain all return values in a {@link Varargs}.
- *
- * Look up {@code this[name]} and if it is a {@link LuaFunction},
- * call it inserting {@link this} as an additional first argument,
- * and return all return values as a {@link Varargs} instance.
- * Otherwise, look for the {@link CALL} metatag and call that.
- *
- * To get a particular return value, us {@link Varargs#arg(int)}
- *
- * To call {@link this} as a plain call, use {@link #invoke()} instead.
- *
- * @param name Name of the method to look up for invocation
- * @return All values returned from {@code this:name()} as a {@link Varargs} instance
- * @throws LuaError if not a function and {@link CALL} is not defined,
- * or the invoked function throws a {@link LuaError}
- * or the invoked closure throw a lua {@code error}
- * @see #call()
- * @see #invoke()
- * @see #method(LuaValue)
- * @see #invokemethod(String)
- * @see #invokemethod(LuaValue,LuaValue)
- */
- public Varargs invokemethod(LuaValue name) { return get(name).invoke(this); }
-
- /** Call named method on {@link this} with 1 argument, including metatag processing,
- * and retain all return values in a {@link Varargs}.
- *
- * Look up {@code this[name]} and if it is a {@link LuaFunction},
- * call it inserting {@link this} as an additional first argument,
- * and return all return values as a {@link Varargs} instance.
- * Otherwise, look for the {@link CALL} metatag and call that.
- *
- * To get a particular return value, us {@link Varargs#arg(int)}
- *
- * To call {@link this} as a plain call, use {@link #invoke(Varargs)} instead.
- *
- * @param name Name of the method to look up for invocation
- * @param args {@link Varargs} containing arguments to supply to the called function after {@code this}
- * @return All values returned from {@code this:name(args)} as a {@link Varargs} instance
- * @throws LuaError if not a function and {@link CALL} is not defined,
- * or the invoked function throws a {@link LuaError}
- * or the invoked closure throw a lua {@code error}
- * @see #call()
- * @see #invoke(Varargs)
- * @see #method(String)
- * @see #invokemethod(LuaValue,Varargs)
- * @see #invokemethod(String,LuaValue[])
- */
- public Varargs invokemethod(String name, Varargs args) { return get(name).invoke(varargsOf(this,args)); }
-
- /** Call named method on {@link this} with variable arguments, including metatag processing,
- * and retain all return values in a {@link Varargs}.
- *
- * Look up {@code this[name]} and if it is a {@link LuaFunction},
- * call it inserting {@link this} as an additional first argument,
- * and return all return values as a {@link Varargs} instance.
- * Otherwise, look for the {@link CALL} metatag and call that.
- *
- * To get a particular return value, us {@link Varargs#arg(int)}
- *
- * To call {@link this} as a plain call, use {@link #invoke(Varargs)} instead.
- *
- * @param name Name of the method to look up for invocation
- * @param args {@link Varargs} containing arguments to supply to the called function after {@code this}
- * @return All values returned from {@code this:name(args)} as a {@link Varargs} instance
- * @throws LuaError if not a function and {@link CALL} is not defined,
- * or the invoked function throws a {@link LuaError}
- * or the invoked closure throw a lua {@code error}
- * @see #call()
- * @see #invoke(Varargs)
- * @see #method(String)
- * @see #invokemethod(String,Varargs)
- * @see #invokemethod(LuaValue,LuaValue[])
- */
- public Varargs invokemethod(LuaValue name, Varargs args) { return get(name).invoke(varargsOf(this,args)); }
-
- /** Call named method on {@link this} with 1 argument, including metatag processing,
- * and retain all return values in a {@link Varargs}.
- *
- * Look up {@code this[name]} and if it is a {@link LuaFunction},
- * call it inserting {@link this} as an additional first argument,
- * and return all return values as a {@link Varargs} instance.
- * Otherwise, look for the {@link CALL} metatag and call that.
- *
- * To get a particular return value, us {@link Varargs#arg(int)}
- *
- * To call {@link this} as a plain call, use {@link #invoke(Varargs)} instead.
- *
- * @param name Name of the method to look up for invocation
- * @param args Array of {@link LuaValue} containing arguments to supply to the called function after {@code this}
- * @return All values returned from {@code this:name(args)} as a {@link Varargs} instance
- * @throws LuaError if not a function and {@link CALL} is not defined,
- * or the invoked function throws a {@link LuaError}
- * or the invoked closure throw a lua {@code error}
- * @see #call()
- * @see #invoke(Varargs)
- * @see #method(String)
- * @see #invokemethod(LuaValue,LuaValue[])
- * @see #invokemethod(String,Varargs)
- * @see LuaValue#varargsOf(LuaValue[])
- */
- public Varargs invokemethod(String name, LuaValue[] args) { return get(name).invoke(varargsOf(this,varargsOf(args))); }
-
- /** Call named method on {@link this} with variable arguments, including metatag processing,
- * and retain all return values in a {@link Varargs}.
- *
- * Look up {@code this[name]} and if it is a {@link LuaFunction},
- * call it inserting {@link this} as an additional first argument,
- * and return all return values as a {@link Varargs} instance.
- * Otherwise, look for the {@link CALL} metatag and call that.
- *
- * To get a particular return value, us {@link Varargs#arg(int)}
- *
- * To call {@link this} as a plain call, use {@link #invoke(Varargs)} instead.
- *
- * @param name Name of the method to look up for invocation
- * @param args Array of {@link LuaValue} containing arguments to supply to the called function after {@code this}
- * @return All values returned from {@code this:name(args)} as a {@link Varargs} instance
- * @throws LuaError if not a function and {@link CALL} is not defined,
- * or the invoked function throws a {@link LuaError}
- * or the invoked closure throw a lua {@code error}
- * @see #call()
- * @see #invoke(Varargs)
- * @see #method(String)
- * @see #invokemethod(String,LuaValue[])
- * @see #invokemethod(LuaValue,Varargs)
- * @see LuaValue#varargsOf(LuaValue[])
- */
- public Varargs invokemethod(LuaValue name, LuaValue[] args) { return get(name).invoke(varargsOf(this,varargsOf(args))); }
-
- /**
- * Get the metatag value for the {@link CALL} metatag, if it exists.
- * @return {@link LuaValue} value if metatag is defined
- * @throws LuaError if {@link CALL} metatag is not defined.
- */
- protected LuaValue callmt() {
- return checkmetatag(CALL, "attempt to call ");
- }
-
- /** Unary not: return inverse boolean value {@code (~this)} as defined by lua not operator
- * @return {@link TRUE} if {@link NIL} or {@link FALSE}, otherwise {@link FALSE}
- */
- public LuaValue not() { return FALSE; }
-
- /** Unary minus: return negative value {@code (-this)} as defined by lua unary minus operator
- * @return boolean inverse as {@link LuaBoolean} if boolean or nil,
- * numeric inverse as {@LuaNumber} if numeric,
- * or metatag processing result if {@link UNM} metatag is defined
- * @throws LuaError if {@code this} is not a table or string, and has no {@link UNM} metatag
- */
- public LuaValue neg() { return checkmetatag(UNM, "attempt to perform arithmetic on ").call(this); }
-
- /** Length operator: return lua length of object {@code (#this)} including metatag processing as java int
- * @return length as defined by the lua # operator
- * or metatag processing result
- * @throws LuaError if {@code this} is not a table or string, and has no {@link LEN} metatag
- */
- public LuaValue len() { return checkmetatag(LEN, "attempt to get length of ").call(this); }
-
- /** Length operator: return lua length of object {@code (#this)} including metatag processing as java int
- * @return length as defined by the lua # operator
- * or metatag processing result converted to java int using {@link #toint()}
- * @throws LuaError if {@code this} is not a table or string, and has no {@link LEN} metatag
- */
- public int length() { return len().toint(); }
-
- /** Implementation of lua 5.0 getn() function.
- * @return value of getn() as defined in lua 5.0 spec if {@code this} is a {@link LuaTable}
- * @throws LuaError if {@code this} is not a {@link LuaTable}
- */
- public LuaValue getn() { return typerror("getn"); }
-
- // object equality, used for key comparison
- public boolean equals(Object obj) { return this == obj; }
-
- /** Equals: Perform equality comparison with another value
- * including metatag processing using {@link EQ}.
- * @param val The value to compare with.
- * @return {@link TRUE} if values are comparable and {@code (this == rhs)},
- * {@link FALSE} if comparable but not equal,
- * {@link LuaValue} if metatag processing occurs.
- * @see #eq_b(LuaValue)
- * @see #raweq(LuaValue)
- * @see #neq(LuaValue)
- * @see #eqmtcall(LuaValue, LuaValue, LuaValue, LuaValue)
- * @see #EQ
- */
- public LuaValue eq( LuaValue val ) { return this == val? TRUE: FALSE; }
-
- /** Equals: Perform equality comparison with another value
- * including metatag processing using {@link EQ},
- * and return java boolean
- * @param val The value to compare with.
- * @return true if values are comparable and {@code (this == rhs)},
- * false if comparable but not equal,
- * result converted to java boolean if metatag processing occurs.
- * @see #eq(LuaValue)
- * @see #raweq(LuaValue)
- * @see #neq_b(LuaValue)
- * @see #eqmtcall(LuaValue, LuaValue, LuaValue, LuaValue)
- * @see #EQ
- */
- public boolean eq_b( LuaValue val ) { return this == val; }
-
- /** Notquals: Perform inequality comparison with another value
- * including metatag processing using {@link EQ}.
- * @param val The value to compare with.
- * @return {@link TRUE} if values are comparable and {@code (this != rhs)},
- * {@link FALSE} if comparable but equal,
- * inverse of {@link LuaValue} converted to {@link LuaBoolean} if metatag processing occurs.
- * @see #eq(LuaValue)
- * @see #raweq(LuaValue)
- * @see #eqmtcall(LuaValue, LuaValue, LuaValue, LuaValue)
- * @see #EQ
- */
- public LuaValue neq( LuaValue val ) { return eq_b(val)? FALSE: TRUE; }
-
- /** Notquals: Perform inequality comparison with another value
- * including metatag processing using {@link EQ}.
- * @param val The value to compare with.
- * @return true if values are comparable and {@code (this != rhs)},
- * false if comparable but equal,
- * inverse of result converted to boolean if metatag processing occurs.
- * @see #eq_b(LuaValue)
- * @see #raweq(LuaValue)
- * @see #eqmtcall(LuaValue, LuaValue, LuaValue, LuaValue)
- * @see #EQ
- */
- public boolean neq_b( LuaValue val ) { return !eq_b(val); }
-
- /** Equals: Perform direct equality comparison with another value
- * without metatag processing.
- * @param val The value to compare with.
- * @return true if {@code (this == rhs)}, false otherwise
- * @see #eq(LuaValue)
- * @see #raweq(LuaUserdata)
- * @see #raweq(LuaString)
- * @see #raweq(double)
- * @see #raweq(int)
- * @see #EQ
- */
- public boolean raweq( LuaValue val ) { return this == val; }
-
- /** Equals: Perform direct equality comparison with a {@link LuaUserdata} value
- * without metatag processing.
- * @param val The {@link LuaUserdata} to compare with.
- * @return true if {@code this} is userdata
- * and their metatables are the same using ==
- * and their instances are equal using {@link #equals(Object)},
- * otherwise false
- * @see #eq(LuaValue)
- * @see #raweq(LuaValue)
- */
- public boolean raweq( LuaUserdata val ) { return false; }
-
- /** Equals: Perform direct equality comparison with a {@link LuaString} value
- * without metatag processing.
- * @param val The {@link LuaString} to compare with.
- * @return true if {@code this} is a {@link LuaString}
- * and their byte sequences match,
- * otherwise false
- */
- public boolean raweq( LuaString val ) { return false; }
-
- /** Equals: Perform direct equality comparison with a double value
- * without metatag processing.
- * @param val The double value to compare with.
- * @return true if {@code this} is a {@link LuaNumber}
- * whose value equals val,
- * otherwise false
- */
- public boolean raweq( double val ) { return false; }
-
- /** Equals: Perform direct equality comparison with a int value
- * without metatag processing.
- * @param val The double value to compare with.
- * @return true if {@code this} is a {@link LuaNumber}
- * whose value equals val,
- * otherwise false
- */
- public boolean raweq( int val ) { return false; }
-
- /** Perform equality testing metatag processing
- * @param lhs left-hand-side of equality expression
- * @param lhsmt metatag value for left-hand-side
- * @param rhs right-hand-side of equality expression
- * @param rhsmt metatag value for right-hand-side
- * @return true if metatag processing result is not {@link NIL} or {@link FALSE}
- * @throws LuaError if metatag was not defined for either operand
- * @see #equals(Object)
- * @see #eq(LuaValue)
- * @see #raweq(LuaValue)
- * @see #EQ
- */
- public static final boolean eqmtcall(LuaValue lhs, LuaValue lhsmt, LuaValue rhs, LuaValue rhsmt) {
- LuaValue h = lhsmt.rawget(EQ);
- return h.isnil() || h!=rhsmt.rawget(EQ)? false: h.call(lhs,rhs).toboolean();
- }
-
- /** Add: Perform numeric add operation with another value
- * including metatag processing.
- *
- * Each operand must derive from {@link LuaNumber}
- * or derive from {@link LuaString} and be convertible to a number
- *
- * @param rhs The right-hand-side value to perform the add with
- * @return value of {@code (this + rhs)} if both are numeric,
- * or {@link LuaValue} if metatag processing occurs
- * @throws LuaError if either operand is not a number or string convertible to number,
- * and neither has the {@link ADD} metatag defined
- * @see #arithmt(LuaValue, LuaValue)
- */
- public LuaValue add( LuaValue rhs ) { return arithmt(ADD,rhs); }
-
- /** Add: Perform numeric add operation with another value
- * of double type with metatag processing
- *
- * {@code this} must derive from {@link LuaNumber}
- * or derive from {@link LuaString} and be convertible to a number
- *
- * @param rhs The right-hand-side value to perform the add with
- * @return value of {@code (this + rhs)} if this is numeric
- * @throws LuaError if {@code this} is not a number or string convertible to number
- * @see #add(LuaValue)
- */
- public LuaValue add(double rhs) { return arithmtwith(ADD,rhs); }
-
- /** Add: Perform numeric add operation with another value
- * of int type with metatag processing
- *
- * {@code this} must derive from {@link LuaNumber}
- * or derive from {@link LuaString} and be convertible to a number
- *
- * @param rhs The right-hand-side value to perform the add with
- * @return value of {@code (this + rhs)} if this is numeric
- * @throws LuaError if {@code this} is not a number or string convertible to number
- * @see #add(LuaValue)
- */
- public LuaValue add(int rhs) { return add((double)rhs); }
-
- /** Subtract: Perform numeric subtract operation with another value
- * of unknown type,
- * including metatag processing.
- *
- * Each operand must derive from {@link LuaNumber}
- * or derive from {@link LuaString} and be convertible to a number
- *
- * @param rhs The right-hand-side value to perform the subtract with
- * @return value of {@code (this - rhs)} if both are numeric,
- * or {@link LuaValue} if metatag processing occurs
- * @throws LuaError if either operand is not a number or string convertible to number,
- * and neither has the {@link SUB} metatag defined
- * @see #arithmt(LuaValue, LuaValue)
- */
- public LuaValue sub( LuaValue rhs ) { return arithmt(SUB,rhs); }
-
- /** Subtract: Perform numeric subtract operation with another value
- * of double type with metatag processing
- *
- * {@code this} must derive from {@link LuaNumber}
- * or derive from {@link LuaString} and be convertible to a number
- *
- * @param rhs The right-hand-side value to perform the subtract with
- * @return value of {@code (this - rhs)} if this is numeric
- * @throws LuaError if {@code this} is not a number or string convertible to number
- * @see #sub(LuaValue)
- */
- public LuaValue sub( double rhs ) { return aritherror("sub"); }
-
- /** Subtract: Perform numeric subtract operation with another value
- * of int type with metatag processing
- *
- * {@code this} must derive from {@link LuaNumber}
- * or derive from {@link LuaString} and be convertible to a number
- *
- * @param rhs The right-hand-side value to perform the subtract with
- * @return value of {@code (this - rhs)} if this is numeric
- * @throws LuaError if {@code this} is not a number or string convertible to number
- * @see #sub(LuaValue)
- */
- public LuaValue sub( int rhs ) { return aritherror("sub"); }
-
- /** Reverse-subtract: Perform numeric subtract operation from an int value
- * with metatag processing
- *
- * {@code this} must derive from {@link LuaNumber}
- * or derive from {@link LuaString} and be convertible to a number
- *
- * @param lhs The left-hand-side value from which to perform the subtraction
- * @return value of {@code (lhs - this)} if this is numeric
- * @throws LuaError if {@code this} is not a number or string convertible to number
- * @see #sub(LuaValue)
- * @see #sub(double)
- * @see #sub(int)
- */
- public LuaValue subFrom(double lhs) { return arithmtwith(SUB,lhs); }
-
- /** Reverse-subtract: Perform numeric subtract operation from a double value
- * without metatag processing
- *
- * {@code this} must derive from {@link LuaNumber}
- * or derive from {@link LuaString} and be convertible to a number
- *
- * For metatag processing {@link #sub(LuaValue)} must be used
- *
- * @param lhs The left-hand-side value from which to perform the subtraction
- * @return value of {@code (lhs - this)} if this is numeric
- * @throws LuaError if {@code this} is not a number or string convertible to number
- * @see #sub(LuaValue)
- * @see #sub(double)
- * @see #sub(int)
- */
- public LuaValue subFrom(int lhs) { return subFrom((double)lhs); }
-
- /** Multiply: Perform numeric multiply operation with another value
- * of unknown type,
- * including metatag processing.
- *
- * Each operand must derive from {@link LuaNumber}
- * or derive from {@link LuaString} and be convertible to a number
- *
- * @param rhs The right-hand-side value to perform the multiply with
- * @return value of {@code (this * rhs)} if both are numeric,
- * or {@link LuaValue} if metatag processing occurs
- * @throws LuaError if either operand is not a number or string convertible to number,
- * and neither has the {@link MUL} metatag defined
- * @see #arithmt(LuaValue, LuaValue)
- */
- public LuaValue mul( LuaValue rhs ) { return arithmt(MUL,rhs); }
-
- /** Multiply: Perform numeric multiply operation with another value
- * of double type with metatag processing
- *
- * {@code this} must derive from {@link LuaNumber}
- * or derive from {@link LuaString} and be convertible to a number
- *
- * @param rhs The right-hand-side value to perform the multiply with
- * @return value of {@code (this * rhs)} if this is numeric
- * @throws LuaError if {@code this} is not a number or string convertible to number
- * @see #mul(LuaValue)
- */
- public LuaValue mul(double rhs) { return arithmtwith(MUL,rhs); }
-
- /** Multiply: Perform numeric multiply operation with another value
- * of int type with metatag processing
- *
- * {@code this} must derive from {@link LuaNumber}
- * or derive from {@link LuaString} and be convertible to a number
- *
- * @param rhs The right-hand-side value to perform the multiply with
- * @return value of {@code (this * rhs)} if this is numeric
- * @throws LuaError if {@code this} is not a number or string convertible to number
- * @see #mul(LuaValue)
- */
- public LuaValue mul(int rhs) { return mul((double)rhs); }
-
- /** Raise to power: Raise this value to a power
- * including metatag processing.
- *
- * Each operand must derive from {@link LuaNumber}
- * or derive from {@link LuaString} and be convertible to a number
- *
- * @param rhs The power to raise this value to
- * @return value of {@code (this ^ rhs)} if both are numeric,
- * or {@link LuaValue} if metatag processing occurs
- * @throws LuaError if either operand is not a number or string convertible to number,
- * and neither has the {@link POW} metatag defined
- * @see #arithmt(LuaValue, LuaValue)
- */
- public LuaValue pow( LuaValue rhs ) { return arithmt(POW,rhs); }
-
- /** Raise to power: Raise this value to a power
- * of double type with metatag processing
- *
- * {@code this} must derive from {@link LuaNumber}
- * or derive from {@link LuaString} and be convertible to a number
- *
- * @param rhs The power to raise this value to
- * @return value of {@code (this ^ rhs)} if this is numeric
- * @throws LuaError if {@code this} is not a number or string convertible to number
- * @see #pow(LuaValue)
- */
- public LuaValue pow( double rhs ) { return aritherror("pow"); }
-
- /** Raise to power: Raise this value to a power
- * of int type with metatag processing
- *
- * {@code this} must derive from {@link LuaNumber}
- * or derive from {@link LuaString} and be convertible to a number
- *
- * @param rhs The power to raise this value to
- * @return value of {@code (this ^ rhs)} if this is numeric
- * @throws LuaError if {@code this} is not a number or string convertible to number
- * @see #pow(LuaValue)
- */
- public LuaValue pow( int rhs ) { return aritherror("pow"); }
-
- /** Reverse-raise to power: Raise another value of double type to this power
- * with metatag processing
- *
- * {@code this} must derive from {@link LuaNumber}
- * or derive from {@link LuaString} and be convertible to a number
- *
- * @param lhs The left-hand-side value which will be raised to this power
- * @return value of {@code (lhs ^ this)} if this is numeric
- * @throws LuaError if {@code this} is not a number or string convertible to number
- * @see #pow(LuaValue)
- * @see #pow(double)
- * @see #pow(int)
- */
- public LuaValue powWith(double lhs) { return arithmtwith(POW,lhs); }
-
- /** Reverse-raise to power: Raise another value of double type to this power
- * with metatag processing
- *
- * {@code this} must derive from {@link LuaNumber}
- * or derive from {@link LuaString} and be convertible to a number
- *
- * @param lhs The left-hand-side value which will be raised to this power
- * @return value of {@code (lhs ^ this)} if this is numeric
- * @throws LuaError if {@code this} is not a number or string convertible to number
- * @see #pow(LuaValue)
- * @see #pow(double)
- * @see #pow(int)
- */
- public LuaValue powWith(int lhs) { return powWith((double)lhs); }
-
- /** Divide: Perform numeric divide operation by another value
- * of unknown type,
- * including metatag processing.
- *
- * Each operand must derive from {@link LuaNumber}
- * or derive from {@link LuaString} and be convertible to a number
- *
- * @param rhs The right-hand-side value to perform the divulo with
- * @return value of {@code (this / rhs)} if both are numeric,
- * or {@link LuaValue} if metatag processing occurs
- * @throws LuaError if either operand is not a number or string convertible to number,
- * and neither has the {@link DIV} metatag defined
- * @see #arithmt(LuaValue, LuaValue)
- */
- public LuaValue div( LuaValue rhs ) { return arithmt(DIV,rhs); }
-
- /** Divide: Perform numeric divide operation by another value
- * of double type without metatag processing
- *
- * {@code this} must derive from {@link LuaNumber}
- * or derive from {@link LuaString} and be convertible to a number
- *
- * For metatag processing {@link #div(LuaValue)} must be used
- *
- * @param rhs The right-hand-side value to perform the divulo with
- * @return value of {@code (this / rhs)} if this is numeric
- * @throws LuaError if {@code this} is not a number or string convertible to number
- * @see #div(LuaValue)
- */
- public LuaValue div( double rhs ) { return aritherror("div"); }
-
- /** Divide: Perform numeric divide operation by another value
- * of int type without metatag processing
- *
- * {@code this} must derive from {@link LuaNumber}
- * or derive from {@link LuaString} and be convertible to a number
- *
- * For metatag processing {@link #div(LuaValue)} must be used
- *
- * @param rhs The right-hand-side value to perform the divulo with
- * @return value of {@code (this / rhs)} if this is numeric
- * @throws LuaError if {@code this} is not a number or string convertible to number
- * @see #div(LuaValue)
- */
- public LuaValue div( int rhs ) { return aritherror("div"); }
-
- /** Reverse-divide: Perform numeric divide operation into another value
- * with metatag processing
- *
- * {@code this} must derive from {@link LuaNumber}
- * or derive from {@link LuaString} and be convertible to a number
- *
- * @param lhs The left-hand-side value which will be divided by this
- * @return value of {@code (lhs / this)} if this is numeric
- * @throws LuaError if {@code this} is not a number or string convertible to number
- * @see #div(LuaValue)
- * @see #div(double)
- * @see #div(int)
- */
- public LuaValue divInto(double lhs) { return arithmtwith(DIV,lhs); }
-
- /** Modulo: Perform numeric modulo operation with another value
- * of unknown type,
- * including metatag processing.
- *
- * Each operand must derive from {@link LuaNumber}
- * or derive from {@link LuaString} and be convertible to a number
- *
- * @param rhs The right-hand-side value to perform the modulo with
- * @return value of {@code (this % rhs)} if both are numeric,
- * or {@link LuaValue} if metatag processing occurs
- * @throws LuaError if either operand is not a number or string convertible to number,
- * and neither has the {@link MOD} metatag defined
- * @see #arithmt(LuaValue, LuaValue)
- */
- public LuaValue mod( LuaValue rhs ) { return arithmt(MOD,rhs); }
-
- /** Modulo: Perform numeric modulo operation with another value
- * of double type without metatag processing
- *
- * {@code this} must derive from {@link LuaNumber}
- * or derive from {@link LuaString} and be convertible to a number
- *
- * For metatag processing {@link #mod(LuaValue)} must be used
- *
- * @param rhs The right-hand-side value to perform the modulo with
- * @return value of {@code (this % rhs)} if this is numeric
- * @throws LuaError if {@code this} is not a number or string convertible to number
- * @see #mod(LuaValue)
- */
- public LuaValue mod( double rhs ) { return aritherror("mod"); }
-
- /** Modulo: Perform numeric modulo operation with another value
- * of int type without metatag processing
- *
- * {@code this} must derive from {@link LuaNumber}
- * or derive from {@link LuaString} and be convertible to a number
- *
- * For metatag processing {@link #mod(LuaValue)} must be used
- *
- * @param rhs The right-hand-side value to perform the modulo with
- * @return value of {@code (this % rhs)} if this is numeric
- * @throws LuaError if {@code this} is not a number or string convertible to number
- * @see #mod(LuaValue)
- */
- public LuaValue mod( int rhs ) { return aritherror("mod"); }
-
- /** Reverse-modulo: Perform numeric modulo operation from another value
- * with metatag processing
- *
- * {@code this} must derive from {@link LuaNumber}
- * or derive from {@link LuaString} and be convertible to a number
- *
- * @param lhs The left-hand-side value which will be modulo'ed by this
- * @return value of {@code (lhs % this)} if this is numeric
- * @throws LuaError if {@code this} is not a number or string convertible to number
- * @see #mod(LuaValue)
- * @see #mod(double)
- * @see #mod(int)
- */
- public LuaValue modFrom(double lhs) { return arithmtwith(MOD,lhs); }
-
- /** Perform metatag processing for arithmetic operations.
- *
- * Finds the supplied metatag value for {@code this} or {@code op2} and invokes it,
- * or throws {@link LuaError} if neither is defined.
- * @param tag The metatag to look up
- * @param op2 The other operand value to perform the operation with
- * @return {@link LuaValue} resulting from metatag processing
- * @throws LuaError if metatag was not defined for either operand
- * @see #add(LuaValue)
- * @see #sub(LuaValue)
- * @see #mul(LuaValue)
- * @see #pow(LuaValue)
- * @see #div(LuaValue)
- * @see #mod(LuaValue)
- * @see #ADD
- * @see #SUB
- * @see #MUL
- * @see #POW
- * @see #DIV
- * @see #MOD
- */
- protected LuaValue arithmt(LuaValue tag, LuaValue op2) {
- LuaValue h = this.metatag(tag);
- if ( h.isnil() ) {
- h = op2.metatag(tag);
- if ( h.isnil() )
- error( "attempt to perform arithmetic "+tag+" on "+typename()+" and "+op2.typename() );
- }
- return h.call( this, op2 );
- }
-
- /** Perform metatag processing for arithmetic operations when the left-hand-side is a number.
- *
- * Finds the supplied metatag value for {@code this} and invokes it,
- * or throws {@link LuaError} if neither is defined.
- * @param tag The metatag to look up
- * @param op1 The value of the left-hand-side to perform the operation with
- * @return {@link LuaValue} resulting from metatag processing
- * @throws LuaError if metatag was not defined for either operand
- * @see #add(LuaValue)
- * @see #sub(LuaValue)
- * @see #mul(LuaValue)
- * @see #pow(LuaValue)
- * @see #div(LuaValue)
- * @see #mod(LuaValue)
- * @see #ADD
- * @see #SUB
- * @see #MUL
- * @see #POW
- * @see #DIV
- * @see #MOD
- */
- protected LuaValue arithmtwith(LuaValue tag, double op1) {
- LuaValue h = metatag(tag);
- if ( h.isnil() )
- error( "attempt to perform arithmetic "+tag+" on number and "+typename() );
- return h.call( LuaValue.valueOf(op1), this );
- }
-
- /** Less than: Perform numeric or string comparison with another value
- * of unknown type,
- * including metatag processing, and returning {@link LuaValue}.
- *
- * To be comparable, both operands must derive from {@link LuaString}
- * or both must derive from {@link LuaNumber}.
- *
- * @param rhs The right-hand-side value to perform the comparison with
- * @return {@link TRUE} if {@code (this < rhs)}, {@link FALSE} if not,
- * or {@link LuaValue} if metatag processing occurs
- * @throws LuaError if either both operands are not a strings or both are not numbers
- * and no {@link LT} metatag is defined.
- * @see #gteq_b(LuaValue)
- * @see #comparemt(LuaValue, LuaValue)
- */
- public LuaValue lt( LuaValue rhs ) { return comparemt(LT,rhs); }
-
- /** Less than: Perform numeric comparison with another value
- * of double type,
- * including metatag processing, and returning {@link LuaValue}.
- *
- * To be comparable, this must derive from {@link LuaNumber}.
- *
- * @param rhs The right-hand-side value to perform the comparison with
- * @return {@link TRUE} if {@code (this < rhs)}, {@link FALSE} if not,
- * or {@link LuaValue} if metatag processing occurs
- * @throws LuaError if this is not a number
- * and no {@link LT} metatag is defined.
- * @see #gteq_b(double)
- * @see #comparemt(LuaValue, LuaValue)
- */
- public LuaValue lt( double rhs ) { return compareerror("number"); }
-
- /** Less than: Perform numeric comparison with another value
- * of int type,
- * including metatag processing, and returning {@link LuaValue}.
- *
- * To be comparable, this must derive from {@link LuaNumber}.
- *
- * @param rhs The right-hand-side value to perform the comparison with
- * @return {@link TRUE} if {@code (this < rhs)}, {@link FALSE} if not,
- * or {@link LuaValue} if metatag processing occurs
- * @throws LuaError if this is not a number
- * and no {@link LT} metatag is defined.
- * @see #gteq_b(int)
- * @see #comparemt(LuaValue, LuaValue)
- */
- public LuaValue lt( int rhs ) { return compareerror("number"); }
-
- /** Less than: Perform numeric or string comparison with another value
- * of unknown type, including metatag processing,
- * and returning java boolean.
- *
- * To be comparable, both operands must derive from {@link LuaString}
- * or both must derive from {@link LuaNumber}.
- *
- * @param rhs The right-hand-side value to perform the comparison with
- * @return true if {@code (this < rhs)}, false if not,
- * and boolean interpreation of result if metatag processing occurs.
- * @throws LuaError if either both operands are not a strings or both are not numbers
- * and no {@link LT} metatag is defined.
- * @see #gteq(LuaValue)
- * @see #comparemt(LuaValue, LuaValue)
- */
- public boolean lt_b( LuaValue rhs ) { return comparemt(LT,rhs).toboolean(); }
-
- /** Less than: Perform numeric comparison with another value
- * of int type,
- * including metatag processing,
- * and returning java boolean.
- *
- * To be comparable, this must derive from {@link LuaNumber}.
- *
- * @param rhs The right-hand-side value to perform the comparison with
- * @return true if {@code (this < rhs)}, false if not,
- * and boolean interpreation of result if metatag processing occurs.
- * @throws LuaError if this is not a number
- * and no {@link LT} metatag is defined.
- * @see #gteq(int)
- * @see #comparemt(LuaValue, LuaValue)
- */
- public boolean lt_b( int rhs ) { compareerror("number"); return false; }
-
- /** Less than: Perform numeric or string comparison with another value
- * of unknown type, including metatag processing,
- * and returning java boolean.
- *
- * To be comparable, both operands must derive from {@link LuaString}
- * or both must derive from {@link LuaNumber}.
- *
- * @param rhs The right-hand-side value to perform the comparison with
- * @return true if {@code (this < rhs)}, false if not,
- * and boolean interpreation of result if metatag processing occurs.
- * @throws LuaError if either both operands are not a strings or both are not numbers
- * and no {@link LT} metatag is defined.
- * @see #gteq(LuaValue)
- * @see #comparemt(LuaValue, LuaValue)
- */
- public boolean lt_b( double rhs ) { compareerror("number"); return false; }
-
- /** Less than or equals: Perform numeric or string comparison with another value
- * of unknown type,
- * including metatag processing, and returning {@link LuaValue}.
- *
- * To be comparable, both operands must derive from {@link LuaString}
- * or both must derive from {@link LuaNumber}.
- *
- * @param rhs The right-hand-side value to perform the comparison with
- * @return {@link TRUE} if {@code (this <= rhs)}, {@link FALSE} if not,
- * or {@link LuaValue} if metatag processing occurs
- * @throws LuaError if either both operands are not a strings or both are not numbers
- * and no {@link LE} metatag is defined.
- * @see #gteq_b(LuaValue)
- * @see #comparemt(LuaValue, LuaValue)
- */
- public LuaValue lteq( LuaValue rhs ) { return comparemt(LE,rhs); }
-
- /** Less than or equals: Perform numeric comparison with another value
- * of double type,
- * including metatag processing, and returning {@link LuaValue}.
- *
- * To be comparable, this must derive from {@link LuaNumber}.
- *
- * @param rhs The right-hand-side value to perform the comparison with
- * @return {@link TRUE} if {@code (this <= rhs)}, {@link FALSE} if not,
- * or {@link LuaValue} if metatag processing occurs
- * @throws LuaError if this is not a number
- * and no {@link LE} metatag is defined.
- * @see #gteq_b(double)
- * @see #comparemt(LuaValue, LuaValue)
- */
- public LuaValue lteq( double rhs ) { return compareerror("number"); }
-
- /** Less than or equals: Perform numeric comparison with another value
- * of int type,
- * including metatag processing, and returning {@link LuaValue}.
- *
- * To be comparable, this must derive from {@link LuaNumber}.
- *
- * @param rhs The right-hand-side value to perform the comparison with
- * @return {@link TRUE} if {@code (this <= rhs)}, {@link FALSE} if not,
- * or {@link LuaValue} if metatag processing occurs
- * @throws LuaError if this is not a number
- * and no {@link LE} metatag is defined.
- * @see #gteq_b(int)
- * @see #comparemt(LuaValue, LuaValue)
- */
- public LuaValue lteq( int rhs ) { return compareerror("number"); }
-
- /** Less than or equals: Perform numeric or string comparison with another value
- * of unknown type, including metatag processing,
- * and returning java boolean.
- *
- * To be comparable, both operands must derive from {@link LuaString}
- * or both must derive from {@link LuaNumber}.
- *
- * @param rhs The right-hand-side value to perform the comparison with
- * @return true if {@code (this <= rhs)}, false if not,
- * and boolean interpreation of result if metatag processing occurs.
- * @throws LuaError if either both operands are not a strings or both are not numbers
- * and no {@link LE} metatag is defined.
- * @see #gteq(LuaValue)
- * @see #comparemt(LuaValue, LuaValue)
- */
- public boolean lteq_b( LuaValue rhs ) { return comparemt(LE,rhs).toboolean(); }
-
- /** Less than or equals: Perform numeric comparison with another value
- * of int type,
- * including metatag processing,
- * and returning java boolean.
- *
- * To be comparable, this must derive from {@link LuaNumber}.
- *
- * @param rhs The right-hand-side value to perform the comparison with
- * @return true if {@code (this <= rhs)}, false if not,
- * and boolean interpreation of result if metatag processing occurs.
- * @throws LuaError if this is not a number
- * and no {@link LE} metatag is defined.
- * @see #gteq(int)
- * @see #comparemt(LuaValue, LuaValue)
- */
- public boolean lteq_b( int rhs ) { compareerror("number"); return false; }
-
- /** Less than or equals: Perform numeric comparison with another value
- * of double type,
- * including metatag processing,
- * and returning java boolean.
- *
- * To be comparable, this must derive from {@link LuaNumber}.
- *
- * @param rhs The right-hand-side value to perform the comparison with
- * @return true if {@code (this <= rhs)}, false if not,
- * and boolean interpreation of result if metatag processing occurs.
- * @throws LuaError if this is not a number
- * and no {@link LE} metatag is defined.
- * @see #gteq(double)
- * @see #comparemt(LuaValue, LuaValue)
- */
- public boolean lteq_b( double rhs ) { compareerror("number"); return false; }
-
- /** Greater than: Perform numeric or string comparison with another value
- * of unknown type,
- * including metatag processing, and returning {@link LuaValue}.
- *
- * To be comparable, both operands must derive from {@link LuaString}
- * or both must derive from {@link LuaNumber}.
- *
- * @param rhs The right-hand-side value to perform the comparison with
- * @return {@link TRUE} if {@code (this > rhs)}, {@link FALSE} if not,
- * or {@link LuaValue} if metatag processing occurs
- * @throws LuaError if either both operands are not a strings or both are not numbers
- * and no {@link LE} metatag is defined.
- * @see #gteq_b(LuaValue)
- * @see #comparemt(LuaValue, LuaValue)
- */
- public LuaValue gt( LuaValue rhs ) { return rhs.comparemt(LE,this); }
-
- /** Greater than: Perform numeric comparison with another value
- * of double type,
- * including metatag processing, and returning {@link LuaValue}.
- *
- * To be comparable, this must derive from {@link LuaNumber}.
- *
- * @param rhs The right-hand-side value to perform the comparison with
- * @return {@link TRUE} if {@code (this > rhs)}, {@link FALSE} if not,
- * or {@link LuaValue} if metatag processing occurs
- * @throws LuaError if this is not a number
- * and no {@link LE} metatag is defined.
- * @see #gteq_b(double)
- * @see #comparemt(LuaValue, LuaValue)
- */
- public LuaValue gt( double rhs ) { return compareerror("number"); }
-
- /** Greater than: Perform numeric comparison with another value
- * of int type,
- * including metatag processing, and returning {@link LuaValue}.
- *
- * To be comparable, this must derive from {@link LuaNumber}.
- *
- * @param rhs The right-hand-side value to perform the comparison with
- * @return {@link TRUE} if {@code (this > rhs)}, {@link FALSE} if not,
- * or {@link LuaValue} if metatag processing occurs
- * @throws LuaError if this is not a number
- * and no {@link LE} metatag is defined.
- * @see #gteq_b(int)
- * @see #comparemt(LuaValue, LuaValue)
- */
- public LuaValue gt( int rhs ) { return compareerror("number"); }
-
- /** Greater than: Perform numeric or string comparison with another value
- * of unknown type, including metatag processing,
- * and returning java boolean.
- *
- * To be comparable, both operands must derive from {@link LuaString}
- * or both must derive from {@link LuaNumber}.
- *
- * @param rhs The right-hand-side value to perform the comparison with
- * @return true if {@code (this > rhs)}, false if not,
- * and boolean interpreation of result if metatag processing occurs.
- * @throws LuaError if either both operands are not a strings or both are not numbers
- * and no {@link LE} metatag is defined.
- * @see #gteq(LuaValue)
- * @see #comparemt(LuaValue, LuaValue)
- */
- public boolean gt_b( LuaValue rhs ) { return rhs.comparemt(LE,this).toboolean(); }
-
- /** Greater than: Perform numeric comparison with another value
- * of int type,
- * including metatag processing,
- * and returning java boolean.
- *
- * To be comparable, this must derive from {@link LuaNumber}.
- *
- * @param rhs The right-hand-side value to perform the comparison with
- * @return true if {@code (this > rhs)}, false if not,
- * and boolean interpreation of result if metatag processing occurs.
- * @throws LuaError if this is not a number
- * and no {@link LE} metatag is defined.
- * @see #gteq(int)
- * @see #comparemt(LuaValue, LuaValue)
- */
- public boolean gt_b( int rhs ) { compareerror("number"); return false; }
-
- /** Greater than: Perform numeric or string comparison with another value
- * of unknown type, including metatag processing,
- * and returning java boolean.
- *
- * To be comparable, both operands must derive from {@link LuaString}
- * or both must derive from {@link LuaNumber}.
- *
- * @param rhs The right-hand-side value to perform the comparison with
- * @return true if {@code (this > rhs)}, false if not,
- * and boolean interpreation of result if metatag processing occurs.
- * @throws LuaError if either both operands are not a strings or both are not numbers
- * and no {@link LE} metatag is defined.
- * @see #gteq(LuaValue)
- * @see #comparemt(LuaValue, LuaValue)
- */
- public boolean gt_b( double rhs ) { compareerror("number"); return false; }
-
- /** Greater than or equals: Perform numeric or string comparison with another value
- * of unknown type,
- * including metatag processing, and returning {@link LuaValue}.
- *
- * To be comparable, both operands must derive from {@link LuaString}
- * or both must derive from {@link LuaNumber}.
- *
- * @param rhs The right-hand-side value to perform the comparison with
- * @return {@link TRUE} if {@code (this >= rhs)}, {@link FALSE} if not,
- * or {@link LuaValue} if metatag processing occurs
- * @throws LuaError if either both operands are not a strings or both are not numbers
- * and no {@link LT} metatag is defined.
- * @see #gteq_b(LuaValue)
- * @see #comparemt(LuaValue, LuaValue)
- */
- public LuaValue gteq( LuaValue rhs ) { return rhs.comparemt(LT,this); }
-
- /** Greater than or equals: Perform numeric comparison with another value
- * of double type,
- * including metatag processing, and returning {@link LuaValue}.
- *
- * To be comparable, this must derive from {@link LuaNumber}.
- *
- * @param rhs The right-hand-side value to perform the comparison with
- * @return {@link TRUE} if {@code (this >= rhs)}, {@link FALSE} if not,
- * or {@link LuaValue} if metatag processing occurs
- * @throws LuaError if this is not a number
- * and no {@link LT} metatag is defined.
- * @see #gteq_b(double)
- * @see #comparemt(LuaValue, LuaValue)
- */
- public LuaValue gteq( double rhs ) { return compareerror("number"); }
-
- /** Greater than or equals: Perform numeric comparison with another value
- * of int type,
- * including metatag processing, and returning {@link LuaValue}.
- *
- * To be comparable, this must derive from {@link LuaNumber}.
- *
- * @param rhs The right-hand-side value to perform the comparison with
- * @return {@link TRUE} if {@code (this >= rhs)}, {@link FALSE} if not,
- * or {@link LuaValue} if metatag processing occurs
- * @throws LuaError if this is not a number
- * and no {@link LT} metatag is defined.
- * @see #gteq_b(int)
- * @see #comparemt(LuaValue, LuaValue)
- */
- public LuaValue gteq( int rhs ) { return valueOf(todouble() >= rhs); }
-
- /** Greater than or equals: Perform numeric or string comparison with another value
- * of unknown type, including metatag processing,
- * and returning java boolean.
- *
- * To be comparable, both operands must derive from {@link LuaString}
- * or both must derive from {@link LuaNumber}.
- *
- * @param rhs The right-hand-side value to perform the comparison with
- * @return true if {@code (this >= rhs)}, false if not,
- * and boolean interpreation of result if metatag processing occurs.
- * @throws LuaError if either both operands are not a strings or both are not numbers
- * and no {@link LT} metatag is defined.
- * @see #gteq(LuaValue)
- * @see #comparemt(LuaValue, LuaValue)
- */
- public boolean gteq_b( LuaValue rhs ) { return rhs.comparemt(LT,this).toboolean(); }
-
- /** Greater than or equals: Perform numeric comparison with another value
- * of int type,
- * including metatag processing,
- * and returning java boolean.
- *
- * To be comparable, this must derive from {@link LuaNumber}.
- *
- * @param rhs The right-hand-side value to perform the comparison with
- * @return true if {@code (this >= rhs)}, false if not,
- * and boolean interpreation of result if metatag processing occurs.
- * @throws LuaError if this is not a number
- * and no {@link LT} metatag is defined.
- * @see #gteq(int)
- * @see #comparemt(LuaValue, LuaValue)
- */
- public boolean gteq_b( int rhs ) { compareerror("number"); return false; }
-
- /** Greater than or equals: Perform numeric comparison with another value
- * of double type,
- * including metatag processing,
- * and returning java boolean.
- *
- * To be comparable, this must derive from {@link LuaNumber}.
- *
- * @param rhs The right-hand-side value to perform the comparison with
- * @return true if {@code (this >= rhs)}, false if not,
- * and boolean interpreation of result if metatag processing occurs.
- * @throws LuaError if this is not a number
- * and no {@link LT} metatag is defined.
- * @see #gteq(double)
- * @see #comparemt(LuaValue, LuaValue)
- */
- public boolean gteq_b( double rhs ) { compareerror("number"); return false; }
-
- /** Perform metatag processing for comparison operations.
- *
- * Finds the supplied metatag value and invokes it,
- * or throws {@link LuaError} if none applies.
- * @param tag The metatag to look up
- * @param rhs The right-hand-side value to perform the operation with
- * @return {@link LuaValue} resulting from metatag processing
- * @throws LuaError if metatag was not defined for either operand,
- * or if the operands are not the same type,
- * or the metatag values for the two operands are different.
- * @see #gt(LuaValue)
- * @see #gteq(LuaValue)
- * @see #lt(LuaValue)
- * @see #lteq(LuaValue)
- */
- public LuaValue comparemt( LuaValue tag, LuaValue op1 ) {
- if ( type() == op1.type() ) {
- LuaValue h = metatag(tag);
- if ( !h.isnil() && h == op1.metatag(tag) )
- return h.call(this, op1);
- }
- return error("attempt to compare "+tag+" on "+typename()+" and "+op1.typename());
- }
-
- /** Perform string comparison with another value
- * of any type
- * using string comparison based on byte values.
- *
- * Only strings can be compared, meaning
- * each operand must derive from {@link LuaString}.
- *
- * @param rhs The right-hand-side value to perform the comparison with
- * @returns int < 0 for {@code (this < rhs)}, int > 0 for {@code (this > rhs)}, or 0 when same string.
- * @throws LuaError if either operand is not a string
- */
- public int strcmp( LuaValue rhs ) { error("attempt to compare "+typename()); return 0; }
-
- /** Perform string comparison with another value
- * known to be a {@link LuaString}
- * using string comparison based on byte values.
- *
- * Only strings can be compared, meaning
- * each operand must derive from {@link LuaString}.
- *
- * @param rhs The right-hand-side value to perform the comparison with
- * @returns int < 0 for {@code (this < rhs)}, int > 0 for {@code (this > rhs)}, or 0 when same string.
- * @throws LuaError if this is not a string
- */
- public int strcmp( LuaString rhs ) { error("attempt to compare "+typename()); return 0; }
-
- /** Concatenate another value onto this value and return the result
- * using rules of lua string concatenation including metatag processing.
- *
- * Only strings and numbers as represented can be concatenated, meaning
- * each operand must derive from {@link LuaString} or {@link LuaNumber}.
- *
- * @param rhs The right-hand-side value to perform the operation with
- * @returns {@link LuaValue} resulting from concatenation of {@code (this .. rhs)}
- * @throws LuaError if either operand is not of an appropriate type,
- * such as nil or a table
- */
- public LuaValue concat(LuaValue rhs) { return this.concatmt(rhs); }
-
- /** Reverse-concatenation: concatenate this value onto another value
- * whose type is unknwon
- * and return the result using rules of lua string concatenation including
- * metatag processing.
- *
- * Only strings and numbers as represented can be concatenated, meaning
- * each operand must derive from {@link LuaString} or {@link LuaNumber}.
- *
- * @param lhs The left-hand-side value onto which this will be concatenated
- * @returns {@link LuaValue} resulting from concatenation of {@code (lhs .. this)}
- * @throws LuaError if either operand is not of an appropriate type,
- * such as nil or a table
- * @see #concat(LuaValue)
- */
- public LuaValue concatTo(LuaValue lhs) { return lhs.concatmt(this); }
-
- /** Reverse-concatenation: concatenate this value onto another value
- * known to be a {@link LuaNumber}
- * and return the result using rules of lua string concatenation including
- * metatag processing.
- *
- * Only strings and numbers as represented can be concatenated, meaning
- * each operand must derive from {@link LuaString} or {@link LuaNumber}.
- *
- * @param lhs The left-hand-side value onto which this will be concatenated
- * @returns {@link LuaValue} resulting from concatenation of {@code (lhs .. this)}
- * @throws LuaError if either operand is not of an appropriate type,
- * such as nil or a table
- * @see #concat(LuaValue)
- */
- public LuaValue concatTo(LuaNumber lhs) { return lhs.concatmt(this); }
-
- /** Reverse-concatenation: concatenate this value onto another value
- * known to be a {@link LuaString}
- * and return the result using rules of lua string concatenation including
- * metatag processing.
- *
- * Only strings and numbers as represented can be concatenated, meaning
- * each operand must derive from {@link LuaString} or {@link LuaNumber}.
- *
- * @param lhs The left-hand-side value onto which this will be concatenated
- * @returns {@link LuaValue} resulting from concatenation of {@code (lhs .. this)}
- * @throws LuaError if either operand is not of an appropriate type,
- * such as nil or a table
- * @see #concat(LuaValue)
- */
- public LuaValue concatTo(LuaString lhs) { return lhs.concatmt(this); }
-
- /** Convert the value to a {@link Buffer} for more efficient concatenation of
- * multiple strings.
- * @return Buffer instance containing the string or number
- */
- public Buffer buffer() { return new Buffer(this); }
-
- /** Concatenate a {@link Buffer} onto this value and return the result
- * using rules of lua string concatenation including metatag processing.
- *
- * Only strings and numbers as represented can be concatenated, meaning
- * each operand must derive from {@link LuaString} or {@link LuaNumber}.
- *
- * @param rhs The right-hand-side {@link Buffer} to perform the operation with
- * @return LuaString resulting from concatenation of {@code (this .. rhs)}
- * @throws LuaError if either operand is not of an appropriate type,
- * such as nil or a table
- */
- public Buffer concat(Buffer rhs) { return rhs.concatTo(this); }
-
- /** Perform metatag processing for concatenation operations.
- *
- * Finds the {@link CONCAT} metatag value and invokes it,
- * or throws {@link LuaError} if it doesn't exist.
- * @param rhs The right-hand-side value to perform the operation with
- * @return {@link LuaValue} resulting from metatag processing for {@link CONCAT} metatag.
- * @throws LuaError if metatag was not defined for either operand
- */
- public LuaValue concatmt(LuaValue rhs) {
- LuaValue h=metatag(CONCAT);
- if ( h.isnil() && (h=rhs.metatag(CONCAT)).isnil())
- error("attempt to concatenate "+typename()+" and "+rhs.typename());
- return h.call(this,rhs);
- }
-
- /** Perform boolean {@code and} with another operand, based on lua rules for boolean evaluation.
- * This returns either {@code this} or {@code rhs} depending on the boolean value for {@code this}.
- *
- * @param rhs The right-hand-side value to perform the operation with
- * @return {@code this} if {@code this.toboolean()} is false, {@code rhs} otherwise.
- */
- public LuaValue and( LuaValue rhs ) { return this.toboolean()? rhs: this; }
-
- /** Perform boolean {@code or} with another operand, based on lua rules for boolean evaluation.
- * This returns either {@code this} or {@code rhs} depending on the boolean value for {@code this}.
- *
- * @param rhs The right-hand-side value to perform the operation with
- * @return {@code this} if {@code this.toboolean()} is true, {@code rhs} otherwise.
- */
- public LuaValue or( LuaValue rhs ) { return this.toboolean()? this: rhs; }
-
- /** Perform end-condition test in for-loop processing.
- *
- * Used in lua-bytecode to Java-bytecode conversion.
- *
- * @param limit the numerical limit to complete the for loop
- * @param step the numberical step size to use.
- * @return true if limit has not been reached, false otherwise.
- */
- public boolean testfor_b(LuaValue limit, LuaValue step) { return step.gt_b(0)? lteq_b(limit): gteq_b(limit); }
-
- /**
- * Convert this value to a string if it is a {@link LuaString} or {@link LuaNumber},
- * or throw a {@link LuaError} if it is not
- * @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; }
-
- /** Return the key part of this value if it is a weak table entry, or {@link NIL} if it was weak and is no longer referenced.
- * @return {@link LuaValue} key, or {@link NIL} if it was weak and is no longer referenced.
- * @see WeakTable
- */
- public LuaValue strongkey() { return strongvalue(); }
-
- /** Return this value as a strong reference, or {@link NIL} if it was weak and is no longer referenced.
- * @return {@link LuaValue} referred to, or {@link NIL} if it was weak and is no longer referenced.
- * @see WeakTable
- */
- public LuaValue strongvalue() { return this; }
-
- /** Test if this is a weak reference and its value no longer is referenced.
- * @return true if this is a weak reference whose value no longer is referenced
- * @see WeakTable
- */
- public boolean isweaknil() { return false; }
-
- /** Convert java boolean to a {@link LuaValue}.
- *
- * @param b boolean value to convert
- * @return {@link TRUE} if not or {@link FALSE} if false
- */
- public static LuaBoolean valueOf(boolean b) { return b? LuaValue.TRUE: FALSE; };
-
- /** Convert java int to a {@link LuaValue}.
- *
- * @param i int value to convert
- * @return {@link LuaInteger} instance, possibly pooled, whose value is i
- */
- public static LuaInteger valueOf(int i) { return LuaInteger.valueOf(i); }
-
- /** Convert java double to a {@link LuaValue}.
- * This may return a {@link LuaInteger} or {@link LuaDouble} depending
- * on the value supplied.
- *
- * @param d double value to convert
- * @return {@link LuaNumber} instance, possibly pooled, whose value is d
- */
- public static LuaNumber valueOf(double d) { return LuaDouble.valueOf(d); };
-
- /** Convert java string to a {@link LuaValue}.
- *
- * @param s String value to convert
- * @return {@link LuaString} instance, possibly pooled, whose value is s
- */
- public static LuaString valueOf(String s) { return LuaString.valueOf(s); }
-
- /** Convert bytes in an array to a {@link LuaValue}.
- *
- * @param bytes byte array to convert
- * @return {@link LuaString} instance, possibly pooled, whose bytes are those in the supplied array
- */
- public static LuaString valueOf(byte[] bytes) { return LuaString.valueOf(bytes); }
-
- /** Convert bytes in an array to a {@link LuaValue}.
- *
- * @param bytes byte array to convert
- * @param off offset into the byte array, starting at 0
- * @param len number of bytes to include in the {@link LuaString}
- * @return {@link LuaString} instance, possibly pooled, whose bytes are those in the supplied array
- */
- public static LuaString valueOf(byte[] bytes, int off, int len) {
- return LuaString.valueOf(bytes,off,len);
- }
-
- /** Construct an empty {@link LuaTable}.
- * @return new {@link LuaTable} instance with no values and no metatable.
- */
- public static LuaTable tableOf() { return new LuaTable(); }
-
- /** Construct a {@link LuaTable} initialized with supplied array values.
- * @param varargs {@link Varargs} containing the values to use in initialization
- * @param firstarg the index of the first argument to use from the varargs, 1 being the first.
- * @return new {@link LuaTable} instance with sequential elements coming from the varargs.
- */
- public static LuaTable tableOf(Varargs varargs, int firstarg) { return new LuaTable(varargs,firstarg); }
-
- /** Construct an empty {@link LuaTable} preallocated to hold array and hashed elements
- * @param narray Number of array elements to preallocate
- * @param nhash Number of hash elements to preallocate
- * @return new {@link LuaTable} instance with no values and no metatable, but preallocated for array and hashed elements.
- */
- public static LuaTable tableOf(int narray, int nhash) { return new LuaTable(narray, nhash); }
-
- /** Construct a {@link LuaTable} initialized with supplied array values.
- * @param unnamedValues array of {@link LuaValue} containing the values to use in initialization
- * @return new {@link LuaTable} instance with sequential elements coming from the array.
- */
- public static LuaTable listOf(LuaValue[] unnamedValues) { return new LuaTable(null,unnamedValues,null); }
-
- /** Construct a {@link LuaTable} initialized with supplied array values.
- * @param unnamedValues array of {@link LuaValue} containing the first values to use in initialization
- * @param lastarg {@link Varargs} containing additional values to use in initialization
- * to be put after the last unnamedValues element
- * @return new {@link LuaTable} instance with sequential elements coming from the array and varargs.
- */
- public static LuaTable listOf(LuaValue[] unnamedValues,Varargs lastarg) { return new LuaTable(null,unnamedValues,lastarg); }
-
- /** Construct a {@link LuaTable} initialized with supplied named values.
- * @param namedValues array of {@link LuaValue} containing the keys and values to use in initialization
- * in order {@code {key-a, value-a, key-b, value-b, ...} }
- * @return new {@link LuaTable} instance with non-sequential keys coming from the supplied array.
- */
- public static LuaTable tableOf(LuaValue[] namedValues) { return new LuaTable(namedValues,null,null); }
-
- /** Construct a {@link LuaTable} initialized with supplied named values and sequential elements.
- * The named values will be assigned first, and the sequential elements will be assigned later,
- * possibly overwriting named values at the same slot if there are conflicts.
- * @param namedValues array of {@link LuaValue} containing the keys and values to use in initialization
- * in order {@code {key-a, value-a, key-b, value-b, ...} }
- * @param unnamedValues array of {@link LuaValue} containing the sequenctial elements to use in initialization
- * in order {@code {value-1, value-2, ...} }, or null if there are none
- * @return new {@link LuaTable} instance with named and sequential values supplied.
- */
- public static LuaTable tableOf(LuaValue[] namedValues, LuaValue[] unnamedValues) {return new LuaTable(namedValues,unnamedValues,null); }
-
- /** Construct a {@link LuaTable} initialized with supplied named values and sequential elements in an array part and as varargs.
- * The named values will be assigned first, and the sequential elements will be assigned later,
- * possibly overwriting named values at the same slot if there are conflicts.
- * @param namedValues array of {@link LuaValue} containing the keys and values to use in initialization
- * in order {@code {key-a, value-a, key-b, value-b, ...} }
- * @param unnamedValues array of {@link LuaValue} containing the first sequenctial elements to use in initialization
- * in order {@code {value-1, value-2, ...} }, or null if there are none
- * @param lastarg {@link Varargs} containing additional values to use in the sequential part of the initialization,
- * to be put after the last unnamedValues element
- * @return new {@link LuaTable} instance with named and sequential values supplied.
- */
- public static LuaTable tableOf(LuaValue[] namedValues, LuaValue[] unnamedValues, Varargs lastarg) {return new LuaTable(namedValues,unnamedValues,lastarg); }
-
- /** Construct a LuaUserdata for an object.
- *
- * @param o The java instance to be wrapped as userdata
- * @return {@link LuaUserdata} value wrapping the java instance.
- */
- public static LuaUserdata userdataOf(Object o) { return new LuaUserdata(o); }
-
- /** Construct a LuaUserdata for an object with a user supplied metatable.
- *
- * @param o The java instance to be wrapped as userdata
- * @param metatable The metatble to associate with the userdata instance.
- * @return {@link LuaUserdata} value wrapping the java instance.
- */
- public static LuaUserdata userdataOf(Object o,LuaValue metatable) { return new LuaUserdata(o,metatable); }
-
- /** Constant limiting metatag loop processing */
- private static final int MAXTAGLOOP = 100;
-
- /**
- * Return value for field reference including metatag processing, or {@link LuaValue#NIL} if it doesn't exist.
- * @param t {@link LuaValue} on which field is being referenced, typically a table or something with the metatag {@link LuaValue#INDEX} defined
- * @param key {@link LuaValue} naming the field to reference
- * @return {@link LuaValue} for the {@code key} if it exists, or {@link LuaValue#NIL}
- * @throws LuaError if there is a loop in metatag processing
- */
- /** get value from metatable operations, or NIL if not defined by metatables */
- protected static LuaValue gettable(LuaValue t, LuaValue key) {
- LuaValue tm;
- int loop = 0;
- do {
- if (t.istable()) {
- LuaValue res = t.rawget(key);
- if ((!res.isnil()) || (tm = t.metatag(INDEX)).isnil())
- return res;
- } else if ((tm = t.metatag(INDEX)).isnil())
- t.indexerror();
- if (tm.isfunction())
- return tm.call(t, key);
- t = tm;
- }
- while ( ++loop < MAXTAGLOOP );
- error("loop in gettable");
- return NIL;
- }
-
- /**
- * Perform field assignment including metatag processing.
- * @param t {@link LuaValue} on which value is being set, typically a table or something with the metatag {@link LuaValue#NEWINDEX} defined
- * @param key {@link LuaValue} naming the field to assign
- * @param value {@link LuaValue} the new value to assign to {@code key}
- * @throws LuaError if there is a loop in metatag processing
- * @return true if assignment or metatag processing succeeded, false otherwise
- */
- protected static boolean settable(LuaValue t, LuaValue key, LuaValue value) {
- LuaValue tm;
- int loop = 0;
- do {
- if (t.istable()) {
- if ((!t.rawget(key).isnil()) || (tm = t.metatag(NEWINDEX)).isnil()) {
- t.rawset(key, value);
- return true;
- }
- } else if ((tm = t.metatag(NEWINDEX)).isnil())
- t.typerror("index");
- if (tm.isfunction()) {
- tm.call(t, key, value);
- return true;
- }
- t = tm;
- }
- while ( ++loop < MAXTAGLOOP );
- error("loop in settable");
- return false;
- }
-
- /**
- * Get particular metatag, or return {@link LuaValue#NIL} if it doesn't exist
- * @param tag Metatag name to look up, typically a string such as
- * {@link LuaValue#INDEX} or {@link LuaValue#NEWINDEX}
- * @param reason Description of error when tag lookup fails.
- * @return {@link LuaValue} for tag {@code reason}, or {@link LuaValue#NIL}
- */
- public LuaValue metatag(LuaValue tag) {
- LuaValue mt = getmetatable();
- if ( mt == null )
- return NIL;
- return mt.rawget(tag);
- }
-
- /**
- * Get particular metatag, or throw {@link LuaError} if it doesn't exist
- * @param tag Metatag name to look up, typically a string such as
- * {@link LuaValue#INDEX} or {@link LuaValue#NEWINDEX}
- * @param reason Description of error when tag lookup fails.
- * @return {@link LuaValue} that can be called
- * @throws LuaError when the lookup fails.
- */
- protected LuaValue checkmetatag(LuaValue tag, String reason) {
- LuaValue h = this.metatag(tag);
- if ( h.isnil() )
- throw new LuaError(reason+typename());
- return h;
- }
-
- /** Throw {@link LuaError} indicating index was attempted on illegal type
- * @throws LuaError when called.
- */
- private void indexerror() {
- error( "attempt to index ? (a "+typename()+" value)" );
- }
-
- /** Construct a {@link Varargs} around an array of {@link LuaValue}s.
- *
- * @param v The array of {@link LuaValue}s
- * @param more {@link Varargs} contain values to include at the end
- * @return {@link Varargs} wrapping the supplied values.
- * @see LuaValue#varargsOf(LuaValue, Varargs)
- * @see LuaValue#varargsOf(LuaValue[], int, int)
- */
- public static Varargs varargsOf(final LuaValue[] v) {
- switch ( v.length ) {
- case 0: return NONE;
- case 1: return v[0];
- case 2: return new PairVarargs(v[0],v[1]);
- default: return new ArrayVarargs(v,NONE);
- }
- }
-
- /** Construct a {@link Varargs} around an array of {@link LuaValue}s.
- *
- * @param v The array of {@link LuaValue}s
- * @param more {@link Varargs} contain values to include at the end
- * @return {@link Varargs} wrapping the supplied values.
- * @see LuaValue#varargsOf(LuaValue[])
- * @see LuaValue#varargsOf(LuaValue[], int, int, Varargs)
- */
- public static Varargs varargsOf(final LuaValue[] v,Varargs r) {
- switch ( v.length ) {
- case 0: return r;
- case 1: return new PairVarargs(v[0],r);
- default: return new ArrayVarargs(v,r);
- }
- }
-
- /** Construct a {@link Varargs} around an array of {@link LuaValue}s.
- *
- * @param v The array of {@link LuaValue}s
- * @param offset number of initial values to skip in the array
- * @param length number of values to include from the array
- * @return {@link Varargs} wrapping the supplied values.
- * @see LuaValue#varargsOf(LuaValue[])
- * @see LuaValue#varargsOf(LuaValue[], int, int, Varargs)
- */
- public static Varargs varargsOf(final LuaValue[] v, final int offset, final int length) {
- switch ( length ) {
- case 0: return NONE;
- case 1: return v[offset];
- case 2: return new PairVarargs(v[offset+0],v[offset+1]);
- default: return new ArrayPartVarargs(v,offset,length);
- }
- }
-
- /** Construct a {@link Varargs} around an array of {@link LuaValue}s.
- *
- * @param v The array of {@link LuaValue}s
- * @param offset number of initial values to skip in the array
- * @param length number of values to include from the array
- * @param more {@link Varargs} contain values to include at the end
- * @return {@link Varargs} wrapping the supplied values.
- * @see LuaValue#varargsOf(LuaValue[], Varargs)
- * @see LuaValue#varargsOf(LuaValue[], int, int)
- */
- public static Varargs varargsOf(final LuaValue[] v, final int offset, final int length,Varargs more) {
- switch ( length ) {
- case 0: return more;
- case 1: return new PairVarargs(v[offset],more);
- default: return new ArrayPartVarargs(v,offset,length,more);
- }
- }
-
- /** Construct a {@link Varargs} around a set of 2 or more {@link LuaValue}s.
- *
- * This can be used to wrap exactly 2 values, or a list consisting of 1 initial value
- * followed by another variable list of remaining values.
- *
- * @param v1 First {@link LuaValue} in the {@link Varargs}
- * @param v2 {@link LuaValue} supplying the 2rd value,
- * or {@link Varargs}s supplying all values beyond the first
- * @return {@link Varargs} wrapping the supplied values.
- */
- public static Varargs varargsOf(LuaValue v, Varargs r) {
- switch ( r.narg() ) {
- case 0: return v;
- default: return new PairVarargs(v,r);
- }
- }
-
- /** Construct a {@link Varargs} around a set of 3 or more {@link LuaValue}s.
- *
- * This can be used to wrap exactly 3 values, or a list consisting of 2 initial values
- * followed by another variable list of remaining values.
- *
- * @param v1 First {@link LuaValue} in the {@link Varargs}
- * @param v2 Second {@link LuaValue} in the {@link Varargs}
- * @param v3 {@link LuaValue} supplying the 3rd value,
- * or {@link Varargs}s supplying all values beyond the second
- * @return {@link Varargs} wrapping the supplied values.
- */
- public static Varargs varargsOf(LuaValue v1,LuaValue v2,Varargs v3) {
- switch ( v3.narg() ) {
- case 0: return new PairVarargs(v1,v2);
- default: return new ArrayVarargs(new LuaValue[] {v1,v2},v3);
- }
- }
-
- /** Construct a {@link TailcallVarargs} around a function and arguments.
- *
- * The tail call is not yet called or processing until the client invokes
- * {@link TailcallVarargs#eval()} which performs the tail call processing.
- *
- * This method is typically not used directly by client code.
- * Instead use one of the function invocation methods.
- *
- * @param func {@link LuaValue} to be called as a tail call
- * @param args {@link Varargs} containing the arguments to the call
- * @return {@link TailcallVarargs} to be used in tailcall oprocessing.
- * @see LuaValue#call()
- * @see LuaValue#invoke()
- * @see LuaValue#method(LuaValue)
- * @see LuaValue#invokemethod(LuaValue)
- */
- public static Varargs tailcallOf(LuaValue func, Varargs args) {
- return new TailcallVarargs(func, args);
- }
-
- /**
- * Callback used during tail call processing to invoke the function once.
- *
- * This may return a {@link TailcallVarargs} to be evaluated by the client.
- *
- * This should not be called directly, instead use on of the call invocation functions.
- *
- * @param args the arguments to the call invocation.
- * @return Varargs the return values, possible a TailcallVarargs.
- * @see LuaValue#call()
- * @see LuaValue#invoke()
- * @see LuaValue#method(LuaValue)
- * @see LuaValue#invokemethod(LuaValue)
- */
- public Varargs onInvoke(Varargs args) {
- return invoke(args);
- }
-
- /** Varargs implemenation with no values.
- *
- * This is an internal class not intended to be used directly.
- * Instead use the predefined constant {@link LuaValue#NONE}
- *
- * @see LuaValue#NONE
- */
- private static final class None extends LuaNil {
- static None _NONE = new None();
- public LuaValue arg(int i) { return NIL; }
- public int narg() { return 0; }
- public LuaValue arg1() { return NIL; }
- public String tojstring() { return "none"; }
- }
-
- /** Varargs implemenation backed by an array of LuaValues
- *
- * This is an internal class not intended to be used directly.
- * Instead use the corresponding static methods on LuaValue.
- *
- * @see LuaValue#varargsOf(LuaValue[])
- * @see LuaValue#varargsOf(LuaValue[], Varargs)
- */
- static final class ArrayVarargs extends Varargs {
- private final LuaValue[] v;
- private final Varargs r;
- /** Construct a Varargs from an array of LuaValue.
- *
- * This is an internal class not intended to be used directly.
- * Instead use the corresponding static methods on LuaValue.
- *
- * @see LuaValue#varargsOf(LuaValue[])
- * @see LuaValue#varargsOf(LuaValue[], Varargs)
- */
- ArrayVarargs(LuaValue[] v, Varargs r) {
- this.v = v;
- this.r = r ;
- }
- public LuaValue arg(int i) {
- return i >=1 && i<=v.length? v[i - 1]: r.arg(i-v.length);
- }
- public int narg() {
- return v.length+r.narg();
- }
- public LuaValue arg1() { return v.length>0? v[0]: r.arg1(); }
- }
-
- /** Varargs implemenation backed by an array of LuaValues
- *
- * This is an internal class not intended to be used directly.
- * Instead use the corresponding static methods on LuaValue.
- *
- * @see LuaValue#varargsOf(LuaValue[], int, int)
- * @see LuaValue#varargsOf(LuaValue[], int, int, Varargs)
- */
- static final class ArrayPartVarargs extends Varargs {
- private final int offset;
- private final LuaValue[] v;
- private final int length;
- private final Varargs more;
- /** Construct a Varargs from an array of LuaValue.
- *
- * This is an internal class not intended to be used directly.
- * Instead use the corresponding static methods on LuaValue.
- *
- * @see LuaValue#varargsOf(LuaValue[], int, int)
- */
- ArrayPartVarargs(LuaValue[] v, int offset, int length) {
- this.v = v;
- this.offset = offset;
- this.length = length;
- this.more = NONE;
- }
- /** Construct a Varargs from an array of LuaValue and additional arguments.
- *
- * This is an internal class not intended to be used directly.
- * Instead use the corresponding static method on LuaValue.
- *
- * @see LuaValue#varargsOf(LuaValue[], int, int, Varargs)
- */
- public ArrayPartVarargs(LuaValue[] v, int offset, int length, Varargs more) {
- this.v = v;
- this.offset = offset;
- this.length = length;
- this.more = more;
- }
- public LuaValue arg(int i) {
- return i>=1&&i<=length? v[i+offset-1]: more.arg(i-length);
- }
- public int narg() {
- return length + more.narg();
- }
- public LuaValue arg1() {
- return length>0? v[offset]: more.arg1();
- }
- }
-
- /** Varargs implemenation backed by two values.
- *
- * This is an internal class not intended to be used directly.
- * Instead use the corresponding static method on LuaValue.
- *
- * @see LuaValue#varargsOf(LuaValue, Varargs)
- */
- static final class PairVarargs extends Varargs {
- private final LuaValue v1;
- private final Varargs v2;
- /** Construct a Varargs from an two LuaValue.
- *
- * This is an internal class not intended to be used directly.
- * Instead use the corresponding static method on LuaValue.
- *
- * @see LuaValue#varargsOf(LuaValue, Varargs)
- */
- PairVarargs(LuaValue v1, Varargs v2) {
- this.v1 = v1;
- this.v2 = v2;
- }
- public LuaValue arg(int i) {
- return i==1? v1: v2.arg(i-1);
- }
- public int narg() {
- return 1+v2.narg();
- }
- public LuaValue arg1() {
- return v1;
- }
- }
-
-}
diff --git a/luaj-2.0.3/src/core/org/luaj/vm2/OrphanedThread.java b/luaj-2.0.3/src/core/org/luaj/vm2/OrphanedThread.java
deleted file mode 100644
index 668217be3..000000000
--- a/luaj-2.0.3/src/core/org/luaj/vm2/OrphanedThread.java
+++ /dev/null
@@ -1,44 +0,0 @@
-/*******************************************************************************
- * Copyright (c) 2012 Luaj.org. All rights reserved.
- *
- * Permission is hereby granted, free of charge, to any person obtaining a copy
- * of this software and associated documentation files (the "Software"), to deal
- * in the Software without restriction, including without limitation the rights
- * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
- * copies of the Software, and to permit persons to whom the Software is
- * furnished to do so, subject to the following conditions:
- *
- * The above copyright notice and this permission notice shall be included in
- * all copies or substantial portions of the Software.
- *
- * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
- * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
- * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
- * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
- * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
- * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
- * THE SOFTWARE.
- ******************************************************************************/
-package org.luaj.vm2;
-
-/**
- * {@link java.lang.Error} sublcass that indicates a lua thread that is no
- * longer referenced has been detected.
- *
- * The java thread in which this is thrown should correspond to a
- * {@link LuaThread} being used as a coroutine that could not possibly be
- * resumed again because there are no more references to the LuaThread with
- * which it is associated. Rather than locking up resources forever, this error
- * is thrown, and should fall through all the way to the thread's {@link Thread.run}() method.
- *
- * Java code mixed with the luaj vm should not catch this error because it may
- * occur when the coroutine is not running, so any processing done during error
- * handling could break the thread-safety of the application because other lua
- * processing could be going on in a different thread.
- */
-public class OrphanedThread extends Error {
-
- public OrphanedThread() {
- super("orphaned thread");
- }
-}
diff --git a/luaj-2.0.3/src/core/org/luaj/vm2/Print.java b/luaj-2.0.3/src/core/org/luaj/vm2/Print.java
deleted file mode 100644
index 72c2f8f92..000000000
--- a/luaj-2.0.3/src/core/org/luaj/vm2/Print.java
+++ /dev/null
@@ -1,417 +0,0 @@
-/*******************************************************************************
-* Copyright (c) 2009 Luaj.org. All rights reserved.
-*
-* Permission is hereby granted, free of charge, to any person obtaining a copy
-* of this software and associated documentation files (the "Software"), to deal
-* in the Software without restriction, including without limitation the rights
-* to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
-* copies of the Software, and to permit persons to whom the Software is
-* furnished to do so, subject to the following conditions:
-*
-* The above copyright notice and this permission notice shall be included in
-* all copies or substantial portions of the Software.
-*
-* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
-* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
-* AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
-* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
-* OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
-* THE SOFTWARE.
-******************************************************************************/
-package org.luaj.vm2;
-
-import java.io.ByteArrayOutputStream;
-import java.io.PrintStream;
-
-/**
- * Debug helper class to pretty-print lua bytecodes.
- * @see Prototype
- * @see LuaClosure
- */
-public class Print extends Lua {
-
- /** opcode names */
- private static final String STRING_FOR_NULL = "null";
- public static PrintStream ps = System.out;
-
- public static final String[] OPNAMES = {
- "MOVE",
- "LOADK",
- "LOADBOOL",
- "LOADNIL",
- "GETUPVAL",
- "GETGLOBAL",
- "GETTABLE",
- "SETGLOBAL",
- "SETUPVAL",
- "SETTABLE",
- "NEWTABLE",
- "SELF",
- "ADD",
- "SUB",
- "MUL",
- "DIV",
- "MOD",
- "POW",
- "UNM",
- "NOT",
- "LEN",
- "CONCAT",
- "JMP",
- "EQ",
- "LT",
- "LE",
- "TEST",
- "TESTSET",
- "CALL",
- "TAILCALL",
- "RETURN",
- "FORLOOP",
- "FORPREP",
- "TFORLOOP",
- "SETLIST",
- "CLOSE",
- "CLOSURE",
- "VARARG",
- null,
- };
-
-
- static void printString(PrintStream ps, final LuaString s) {
-
- ps.print('"');
- for (int i = 0, n = s.m_length; i < n; i++) {
- int c = s.m_bytes[s.m_offset+i];
- if ( c >= ' ' && c <= '~' && c != '\"' && c != '\\' )
- ps.print((char) c);
- else {
- switch (c) {
- case '"':
- ps.print("\\\"");
- break;
- case '\\':
- ps.print("\\\\");
- break;
- case 0x0007: /* bell */
- ps.print("\\a");
- break;
- case '\b': /* backspace */
- ps.print("\\b");
- break;
- case '\f': /* form feed */
- ps.print("\\f");
- break;
- case '\t': /* tab */
- ps.print("\\t");
- break;
- case '\r': /* carriage return */
- ps.print("\\r");
- break;
- case '\n': /* newline */
- ps.print("\\n");
- break;
- case 0x000B: /* vertical tab */
- ps.print("\\v");
- break;
- default:
- ps.print('\\');
- ps.print(Integer.toString(1000 + 0xff&c).substring(1));
- break;
- }
- }
- }
- ps.print('"');
- }
-
- static void printValue( PrintStream ps, LuaValue v ) {
- switch ( v.type() ) {
- case LuaValue.TSTRING: printString( ps, (LuaString) v ); break;
- default: ps.print( v.tojstring() );
-
- }
- }
-
- static void printConstant(PrintStream ps, Prototype f, int i) {
- printValue( ps, f.k[i] );
- }
-
- /**
- * Print the code in a prototype
- * @param f the {@link Prototype}
- */
- public static void printCode(Prototype f) {
- int[] code = f.code;
- int pc, n = code.length;
- for (pc = 0; pc < n; pc++) {
- printOpCode(f, pc);
- ps.println();
- }
- }
-
- /**
- * Print an opcode in a prototype
- * @param f the {@link Prototype}
- * @param pc the program counter to look up and print
- */
- public static void printOpCode(Prototype f, int pc) {
- printOpCode(ps,f,pc);
- }
-
- /**
- * Print an opcode in a prototype
- * @param ps the {@link PrintStream} to print to
- * @param f the {@link Prototype}
- * @param pc the program counter to look up and print
- */
- public static void printOpCode(PrintStream ps, Prototype f, int pc) {
- int[] code = f.code;
- int i = code[pc];
- int o = GET_OPCODE(i);
- int a = GETARG_A(i);
- int b = GETARG_B(i);
- int c = GETARG_C(i);
- int bx = GETARG_Bx(i);
- int sbx = GETARG_sBx(i);
- int line = getline(f, pc);
- ps.print(" " + (pc + 1) + " ");
- if (line > 0)
- ps.print("[" + line + "] ");
- else
- ps.print("[-] ");
- ps.print(OPNAMES[o] + " ");
- switch (getOpMode(o)) {
- case iABC:
- ps.print( a );
- if (getBMode(o) != OpArgN)
- ps.print(" "+(ISK(b) ? (-1 - INDEXK(b)) : b));
- if (getCMode(o) != OpArgN)
- ps.print(" "+(ISK(c) ? (-1 - INDEXK(c)) : c));
- break;
- case iABx:
- 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;
- }
- switch (o) {
- case OP_LOADK:
- ps.print(" ; ");
- printConstant(ps, f, bx);
- break;
- case OP_GETUPVAL:
- case OP_SETUPVAL:
- ps.print(" ; ");
- if ( f.upvalues.length > b )
- printValue(ps, f.upvalues[b]);
- else
- ps.print( "-" );
- break;
- case OP_GETGLOBAL:
- case OP_SETGLOBAL:
- ps.print(" ; ");
- printConstant( ps, f, bx );
- 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:
- 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;
- }
- }
-
- private static int getline(Prototype f, int pc) {
- return pc>0 && f.lineinfo!=null && pc
- * See documentatation on {@link LuaClosure} for information on how to load
- * and execute a {@link Prototype}.
- * @see LuaClosure
- */
-
-public class Prototype {
- /* constants used by the function */
- public LuaValue[] k;
- public int[] code;
- /* functions defined inside the function */
- public Prototype[] p;
- /* map from opcodes to source lines */
- public int[] lineinfo;
- /* information about local variables */
- public LocVars[] locvars;
- /* upvalue names */
- public LuaString[] upvalues;
- public LuaString source;
- public int nups;
- public int linedefined;
- public int lastlinedefined;
- public int numparams;
- public int is_vararg;
- public int maxstacksize;
-
-
- public String toString() {
- return source + ":" + linedefined+"-"+lastlinedefined;
- }
-
- /** Get the name of a local variable.
- *
- * @param number the local variable number to look up
- * @param pc the program counter
- * @return the name, or null if not found
- */
- public LuaString getlocalname(int number, int pc) {
- int i;
- for (i = 0; i
- * The tail call holds the next function and arguments,
- * and the client a call to {@link #eval()} executes the function
- * repeatedly until the tail calls are completed.
- *
- * Normally, users of luaj need not concern themselves with the
- * details of this mechanism, as it is built into the core
- * execution framework.
- * @see Prototype
- * @see LuaJC
- */
-public class TailcallVarargs extends Varargs {
-
- private LuaValue func;
- private Varargs args;
- private Varargs result;
-
- public TailcallVarargs(LuaValue f, Varargs args) {
- this.func = f;
- this.args = args;
- }
-
- public TailcallVarargs(LuaValue object, LuaValue methodname, Varargs args) {
- this.func = object.get(methodname);
- this.args = LuaValue.varargsOf(object, args);
- }
-
- public boolean isTailcall() {
- return true;
- }
-
- public Varargs eval() {
- while ( result == null ) {
- Varargs r = func.onInvoke(args);
- if (r.isTailcall()) {
- TailcallVarargs t = (TailcallVarargs) r;
- func = t.func;
- args = t.args;
- }
- else {
- result = r;
- func = null;
- args = null;
- }
- }
- return result;
- }
-
- public LuaValue arg( int i ) {
- if ( result == null )
- eval();
- return result.arg(i);
- }
-
- public LuaValue arg1() {
- if (result == null)
- eval();
- return result.arg1();
- }
-
- public int narg() {
- if (result == null)
- eval();
- return result.narg();
- }
-}
\ No newline at end of file
diff --git a/luaj-2.0.3/src/core/org/luaj/vm2/UpValue.java b/luaj-2.0.3/src/core/org/luaj/vm2/UpValue.java
deleted file mode 100644
index 072dd3484..000000000
--- a/luaj-2.0.3/src/core/org/luaj/vm2/UpValue.java
+++ /dev/null
@@ -1,77 +0,0 @@
-/*******************************************************************************
-* Copyright (c) 2009-2011 Luaj.org. All rights reserved.
-*
-* Permission is hereby granted, free of charge, to any person obtaining a copy
-* of this software and associated documentation files (the "Software"), to deal
-* in the Software without restriction, including without limitation the rights
-* to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
-* copies of the Software, and to permit persons to whom the Software is
-* furnished to do so, subject to the following conditions:
-*
-* The above copyright notice and this permission notice shall be included in
-* all copies or substantial portions of the Software.
-*
-* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
-* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
-* AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
-* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
-* OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
-* THE SOFTWARE.
-******************************************************************************/
-package org.luaj.vm2;
-
-
-/** Upvalue used with Closure formulation
- *
- * @see LuaClosure
- * @see Prototype
- */
-public final class UpValue {
-
- LuaValue[] array; // initially the stack, becomes a holder
- int index;
-
- /**
- * Create an upvalue relative to a stack
- * @param stack the stack
- * @param index the index on the stack for the upvalue
- */
- public UpValue( LuaValue[] stack, int index) {
- this.array = stack;
- this.index = index;
- }
-
- /**
- * Convert this upvalue to a Java String
- * @return the Java String for this upvalue.
- * @see LuaValue#tojstring()
- */
- public String tojstring() {
- return array[index].tojstring();
- }
-
- /**
- * Get the value of the upvalue
- * @return the {@link LuaValue} for this upvalue
- */
- public final LuaValue getValue() {
- return array[index];
- }
-
- /**
- * Set the value of the upvalue
- * @param the {@link LuaValue} to set it to
- */
- public final void setValue( LuaValue value ) {
- array[index] = value;
- }
-
- /**
- * Close this upvalue so it is no longer on the stack
- */
- public final void close() {
- array = new LuaValue[] { array[index] };
- index = 0;
- }
-}
diff --git a/luaj-2.0.3/src/core/org/luaj/vm2/Varargs.java b/luaj-2.0.3/src/core/org/luaj/vm2/Varargs.java
deleted file mode 100644
index 340bdd20c..000000000
--- a/luaj-2.0.3/src/core/org/luaj/vm2/Varargs.java
+++ /dev/null
@@ -1,537 +0,0 @@
-/*******************************************************************************
-* Copyright (c) 2009 Luaj.org. All rights reserved.
-*
-* Permission is hereby granted, free of charge, to any person obtaining a copy
-* of this software and associated documentation files (the "Software"), to deal
-* in the Software without restriction, including without limitation the rights
-* to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
-* copies of the Software, and to permit persons to whom the Software is
-* furnished to do so, subject to the following conditions:
-*
-* The above copyright notice and this permission notice shall be included in
-* all copies or substantial portions of the Software.
-*
-* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
-* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
-* AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
-* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
-* OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
-* THE SOFTWARE.
-******************************************************************************/
-package org.luaj.vm2;
-
-/**
- * Class to encapsulate varargs values, either as part of a variable argument list, or multiple return values.
- *
- * To construct varargs, use one of the static methods such as
- * {@code LuaValue.varargsOf(LuaValue,LuaValue)}
- *
- *
- * Any LuaValue can be used as a stand-in for Varargs, for both calls and return values.
- * When doing so, nargs() will return 1 and arg1() or arg(1) will return this.
- * This simplifies the case when calling or implementing varargs functions with only
- * 1 argument or 1 return value.
- *
- * Varargs can also be derived from other varargs by appending to the front with a call
- * such as {@code LuaValue.varargsOf(LuaValue,Varargs)}
- * or by taking a portion of the args using {@code Varargs.subargs(int start)}
- *
- * @see LuaValue#varargsOf(LuaValue[])
- * @see LuaValue#varargsOf(LuaValue, Varargs)
- * @see LuaValue#varargsOf(LuaValue[], Varargs)
- * @see LuaValue#varargsOf(LuaValue, LuaValue, Varargs)
- * @see LuaValue#varargsOf(LuaValue[], int, int)
- * @see LuaValue#varargsOf(LuaValue[], int, int, Varargs)
- * @see LuaValue#subargs(int)
- */
-public abstract class Varargs {
-
- /**
- * Get the n-th argument value (1-based).
- * @param i the index of the argument to get, 1 is the first argument
- * @return Value at position i, or LuaValue.NIL if there is none.
- * @see Varargs#arg1()
- * @see LuaValue#NIL
- */
- abstract public LuaValue arg( int i );
-
- /**
- * Get the number of arguments, or 0 if there are none.
- * @return number of arguments.
- */
- abstract public int narg();
-
- /**
- * Get the first argument in the list.
- * @return LuaValue which is first in the list, or LuaValue.NIL if there are no values.
- * @see Varargs#arg(int)
- * @see LuaValue#NIL
- */
- abstract public LuaValue arg1();
-
- /**
- * Evaluate any pending tail call and return result.
- * @return the evaluated tail call result
- */
- public Varargs eval() { return this; }
-
- /**
- * Return true if this is a TailcallVarargs
- * @return true if a tail call, false otherwise
- */
- public boolean isTailcall() {
- return false;
- }
-
- // -----------------------------------------------------------------------
- // utilities to get specific arguments and type-check them.
- // -----------------------------------------------------------------------
-
- /** Gets the type of argument {@code i}
- * @param i the index of the argument to convert, 1 is the first argument
- * @return int value corresponding to one of the LuaValue integer type values
- * @see LuaValue.TNIL
- * @see LuaValue.TBOOLEAN
- * @see LuaValue.TNUMBER
- * @see LuaValue.TSTRING
- * @see LuaValue.TTABLE
- * @see LuaValue.TFUNCTION
- * @see LuaValue.TUSERDATA
- * @see LuaValue.TTHREAD
- * */
- public int type(int i) { return arg(i).type(); }
-
- /** Tests if argument i is nil.
- * @param i the index of the argument to test, 1 is the first argument
- * @return true if the argument is nil or does not exist, false otherwise
- * @see LuaValue.TNIL
- * */
- public boolean isnil(int i) { return arg(i).isnil(); }
-
- /** Tests if argument i is a function.
- * @param i the index of the argument to test, 1 is the first argument
- * @return true if the argument exists and is a function or closure, false otherwise
- * @see LuaValue.TFUNCTION
- * */
- public boolean isfunction(int i) { return arg(i).isfunction(); }
-
- /** Tests if argument i is a number.
- * Since anywhere a number is required, a string can be used that
- * is a number, this will return true for both numbers and
- * strings that can be interpreted as numbers.
- * @param i the index of the argument to test, 1 is the first argument
- * @return true if the argument exists and is a number or
- * string that can be interpreted as a number, false otherwise
- * @see LuaValue.TNUMBER
- * @see LuaValue.TSTRING
- * */
- public boolean isnumber(int i) { return arg(i).isnumber(); }
-
- /** Tests if argument i is a string.
- * Since all lua numbers can be used where strings are used,
- * this will return true for both strings and numbers.
- * @param i the index of the argument to test, 1 is the first argument
- * @return true if the argument exists and is a string or number, false otherwise
- * @see LuaValue.TNUMBER
- * @see LuaValue.TSTRING
- * */
- public boolean isstring(int i) { return arg(i).isstring(); }
-
- /** Tests if argument i is a table.
- * @param i the index of the argument to test, 1 is the first argument
- * @return true if the argument exists and is a lua table, false otherwise
- * @see LuaValue.TTABLE
- * */
- public boolean istable(int i) { return arg(i).istable(); }
-
- /** Tests if argument i is a thread.
- * @param i the index of the argument to test, 1 is the first argument
- * @return true if the argument exists and is a lua thread, false otherwise
- * @see LuaValue.TTHREAD
- * */
- public boolean isthread(int i) { return arg(i).isthread(); }
-
- /** Tests if argument i is a userdata.
- * @param i the index of the argument to test, 1 is the first argument
- * @return true if the argument exists and is a userdata, false otherwise
- * @see LuaValue.TUSERDATA
- * */
- public boolean isuserdata(int i) { return arg(i).isuserdata(); }
-
- /** Tests if a value exists at argument i.
- * @param i the index of the argument to test, 1 is the first argument
- * @return true if the argument exists, false otherwise
- * */
- public boolean isvalue(int i) { return i>0 && i<=narg(); }
-
- /** Return argument i as a boolean value, {@code defval} if nil, or throw a LuaError if any other type.
- * @param i the index of the argument to test, 1 is the first argument
- * @return true if argument i is boolean true, false if it is false, or defval if not supplied or nil
- * @exception LuaError if the argument is not a lua boolean
- * */
- public boolean optboolean(int i, boolean defval) { return arg(i).optboolean(defval); }
-
- /** Return argument i as a closure, {@code defval} if nil, or throw a LuaError if any other type.
- * @param i the index of the argument to test, 1 is the first argument
- * @return LuaClosure if argument i is a closure, or defval if not supplied or nil
- * @exception LuaError if the argument is not a lua closure
- * */
- public LuaClosure optclosure(int i, LuaClosure defval) { return arg(i).optclosure(defval); }
-
- /** Return argument i as a double, {@code defval} if nil, or throw a LuaError if it cannot be converted to one.
- * @param i the index of the argument to test, 1 is the first argument
- * @return java double value if argument i is a number or string that converts to a number, or defval if not supplied or nil
- * @exception LuaError if the argument is not a number
- * */
- public double optdouble(int i, double defval) { return arg(i).optdouble(defval); }
-
- /** Return argument i as a function, {@code defval} if nil, or throw a LuaError if an incompatible type.
- * @param i the index of the argument to test, 1 is the first argument
- * @return LuaValue that can be called if argument i is lua function or closure, or defval if not supplied or nil
- * @exception LuaError if the argument is not a lua function or closure
- * */
- public LuaFunction optfunction(int i, LuaFunction defval) { return arg(i).optfunction(defval); }
-
- /** Return argument i as a java int value, discarding any fractional part, {@code defval} if nil, or throw a LuaError if not a number.
- * @param i the index of the argument to test, 1 is the first argument
- * @return int value with fraction discarded and truncated if necessary if argument i is number, or defval if not supplied or nil
- * @exception LuaError if the argument is not a number
- * */
- public int optint(int i, int defval) { return arg(i).optint(defval); }
-
- /** Return argument i as a java int value, {@code defval} if nil, or throw a LuaError if not a number or is not representable by a java int.
- * @param i the index of the argument to test, 1 is the first argument
- * @return LuaInteger value that fits in a java int without rounding, or defval if not supplied or nil
- * @exception LuaError if the argument cannot be represented by a java int value
- * */
- public LuaInteger optinteger(int i, LuaInteger defval) { return arg(i).optinteger(defval); }
-
- /** Return argument i as a java long value, discarding any fractional part, {@code defval} if nil, or throw a LuaError if not a number.
- * @param i the index of the argument to test, 1 is the first argument
- * @return long value with fraction discarded and truncated if necessary if argument i is number, or defval if not supplied or nil
- * @exception LuaError if the argument is not a number
- * */
- public long optlong(int i, long defval) { return arg(i).optlong(defval); }
-
- /** Return argument i as a LuaNumber, {@code defval} if nil, or throw a LuaError if not a number or string that can be converted to a number.
- * @param i the index of the argument to test, 1 is the first argument, or defval if not supplied or nil
- * @return LuaNumber if argument i is number or can be converted to a number
- * @exception LuaError if the argument is not a number
- * */
- public LuaNumber optnumber(int i, LuaNumber defval) { return arg(i).optnumber(defval); }
-
- /** Return argument i as a java String if a string or number, {@code defval} if nil, or throw a LuaError if any other type
- * @param i the index of the argument to test, 1 is the first argument
- * @return String value if argument i is a string or number, or defval if not supplied or nil
- * @exception LuaError if the argument is not a string or number
- * */
- public String optjstring(int i, String defval) { return arg(i).optjstring(defval); }
-
- /** Return argument i as a LuaString if a string or number, {@code defval} if nil, or throw a LuaError if any other type
- * @param i the index of the argument to test, 1 is the first argument
- * @return LuaString value if argument i is a string or number, or defval if not supplied or nil
- * @exception LuaError if the argument is not a string or number
- * */
- public LuaString optstring(int i, LuaString defval) { return arg(i).optstring(defval); }
-
- /** Return argument i as a LuaTable if a lua table, {@code defval} if nil, or throw a LuaError if any other type.
- * @param i the index of the argument to test, 1 is the first argument
- * @return LuaTable value if a table, or defval if not supplied or nil
- * @exception LuaError if the argument is not a lua table
- * */
- public LuaTable opttable(int i, LuaTable defval) { return arg(i).opttable(defval); }
-
- /** Return argument i as a LuaThread if a lua thread, {@code defval} if nil, or throw a LuaError if any other type.
- * @param i the index of the argument to test, 1 is the first argument
- * @return LuaThread value if a thread, or defval if not supplied or nil
- * @exception LuaError if the argument is not a lua thread
- * */
- public LuaThread optthread(int i, LuaThread defval) { return arg(i).optthread(defval); }
-
- /** Return argument i as a java Object if a userdata, {@code defval} if nil, or throw a LuaError if any other type.
- * @param i the index of the argument to test, 1 is the first argument
- * @return java Object value if argument i is a userdata, or defval if not supplied or nil
- * @exception LuaError if the argument is not a userdata
- * */
- public Object optuserdata(int i, Object defval) { return arg(i).optuserdata(defval); }
-
- /** Return argument i as a java Object if it is a userdata whose instance Class c or a subclass,
- * {@code defval} if nil, or throw a LuaError if any other type.
- * @param i the index of the argument to test, 1 is the first argument
- * @param c the class to which the userdata instance must be assignable
- * @return java Object value if argument i is a userdata whose instance Class c or a subclass, or defval if not supplied or nil
- * @exception LuaError if the argument is not a userdata or from whose instance c is not assignable
- * */
- public Object optuserdata(int i, Class c, Object defval) { return arg(i).optuserdata(c,defval); }
-
- /** Return argument i as a LuaValue if it exists, or {@code defval}.
- * @param i the index of the argument to test, 1 is the first argument
- * @return LuaValue value if the argument exists, defval if not
- * @exception LuaError if the argument does not exist.
- * */
- public LuaValue optvalue(int i, LuaValue defval) { return i>0 && i<=narg()? arg(i): defval; }
-
- /** Return argument i as a boolean value, or throw an error if any other type.
- * @param i the index of the argument to test, 1 is the first argument
- * @return true if argument i is boolean true, false if it is false
- * @exception LuaError if the argument is not a lua boolean
- * */
- public boolean checkboolean(int i) { return arg(i).checkboolean(); }
-
- /** Return argument i as a closure, or throw an error if any other type.
- * @param i the index of the argument to test, 1 is the first argument
- * @return LuaClosure if argument i is a closure.
- * @exception LuaError if the argument is not a lua closure
- * */
- public LuaClosure checkclosure(int i) { return arg(i).checkclosure(); }
-
- /** Return argument i as a double, or throw an error if it cannot be converted to one.
- * @param i the index of the argument to test, 1 is the first argument
- * @return java double value if argument i is a number or string that converts to a number
- * @exception LuaError if the argument is not a number
- * */
- public double checkdouble(int i) { return arg(i).checknumber().todouble(); }
-
- /** Return argument i as a function, or throw an error if an incompatible type.
- * @param i the index of the argument to test, 1 is the first argument
- * @return LuaValue that can be called if argument i is lua function or closure
- * @exception LuaError if the argument is not a lua function or closure
- * */
- public LuaValue checkfunction(int i) { return arg(i).checkfunction(); }
-
- /** Return argument i as a java int value, discarding any fractional part, or throw an error if not a number.
- * @param i the index of the argument to test, 1 is the first argument
- * @return int value with fraction discarded and truncated if necessary if argument i is number
- * @exception LuaError if the argument is not a number
- * */
- public int checkint(int i) { return arg(i).checknumber().toint(); }
-
- /** Return argument i as a java int value, or throw an error if not a number or is not representable by a java int.
- * @param i the index of the argument to test, 1 is the first argument
- * @return LuaInteger value that fits in a java int without rounding
- * @exception LuaError if the argument cannot be represented by a java int value
- * */
- public LuaInteger checkinteger(int i) { return arg(i).checkinteger(); }
-
- /** Return argument i as a java long value, discarding any fractional part, or throw an error if not a number.
- * @param i the index of the argument to test, 1 is the first argument
- * @return long value with fraction discarded and truncated if necessary if argument i is number
- * @exception LuaError if the argument is not a number
- * */
- public long checklong(int i) { return arg(i).checknumber().tolong(); }
-
- /** Return argument i as a LuaNumber, or throw an error if not a number or string that can be converted to a number.
- * @param i the index of the argument to test, 1 is the first argument
- * @return LuaNumber if argument i is number or can be converted to a number
- * @exception LuaError if the argument is not a number
- * */
- public LuaNumber checknumber(int i) { return arg(i).checknumber(); }
-
- /** Return argument i as a java String if a string or number, or throw an error if any other type
- * @param i the index of the argument to test, 1 is the first argument
- * @return String value if argument i is a string or number
- * @exception LuaError if the argument is not a string or number
- * */
- public String checkjstring(int i) { return arg(i).checkjstring(); }
-
- /** Return argument i as a LuaString if a string or number, or throw an error if any other type
- * @param i the index of the argument to test, 1 is the first argument
- * @return LuaString value if argument i is a string or number
- * @exception LuaError if the argument is not a string or number
- * */
- public LuaString checkstring(int i) { return arg(i).checkstring(); }
-
- /** Return argument i as a LuaTable if a lua table, or throw an error if any other type.
- * @param i the index of the argument to test, 1 is the first argument
- * @return LuaTable value if a table
- * @exception LuaError if the argument is not a lua table
- * */
- public LuaTable checktable(int i) { return arg(i).checktable(); }
-
- /** Return argument i as a LuaThread if a lua thread, or throw an error if any other type.
- * @param i the index of the argument to test, 1 is the first argument
- * @return LuaThread value if a thread
- * @exception LuaError if the argument is not a lua thread
- * */
- public LuaThread checkthread(int i) { return arg(i).checkthread(); }
-
- /** Return argument i as a java Object if a userdata, or throw an error if any other type.
- * @param i the index of the argument to test, 1 is the first argument
- * @return java Object value if argument i is a userdata
- * @exception LuaError if the argument is not a userdata
- * */
- public Object checkuserdata(int i) { return arg(i).checkuserdata(); }
-
- /** Return argument i as a java Object if it is a userdata whose instance Class c or a subclass,
- * or throw an error if any other type.
- * @param i the index of the argument to test, 1 is the first argument
- * @param c the class to which the userdata instance must be assignable
- * @return java Object value if argument i is a userdata whose instance Class c or a subclass
- * @exception LuaError if the argument is not a userdata or from whose instance c is not assignable
- * */
- public Object checkuserdata(int i,Class c) { return arg(i).checkuserdata(c); }
-
- /** Return argument i as a LuaValue if it exists, or throw an error.
- * @param i the index of the argument to test, 1 is the first argument
- * @return LuaValue value if the argument exists
- * @exception LuaError if the argument does not exist.
- * */
- public LuaValue checkvalue(int i) { return i<=narg()? arg(i): LuaValue.argerror(i,"value expected"); }
-
- /** Return argument i as a LuaValue if it is not nil, or throw an error if it is nil.
- * @param i the index of the argument to test, 1 is the first argument
- * @return LuaValue value if the argument is not nil
- * @exception LuaError if the argument doesn't exist or evaluates to nil.
- * */
- public LuaValue checknotnil(int i) { return arg(i).checknotnil(); }
-
- /** Return argument i as a LuaValue when a user-supplied assertion passes, or throw an error.
- * @param test user supplied assertion to test against
- * @param i the index to report in any error message
- * @param msg the error message to use when the test fails
- * @return LuaValue value if the value of {@code test} is {@code true}
- * @exception LuaError if the the value of {@code test} is {@code false}
- * */
- public void argcheck(boolean test, int i, String msg) { if (!test) LuaValue.argerror(i,msg); }
-
- /** Return true if there is no argument or nil at argument i.
- * @param i the index of the argument to test, 1 is the first argument
- * @return true if argument i contains either no argument or nil
- * */
- public boolean isnoneornil(int i) {
- return i>narg() || arg(i).isnil();
- }
-
- /** Convert argument {@code i} to java boolean based on lua rules for boolean evaluation.
- * @param i the index of the argument to convert, 1 is the first argument
- * @return {@code false} if argument i is nil or false, otherwise {@code true}
- * */
- public boolean toboolean(int i) { return arg(i).toboolean(); }
-
- /** Return argument i as a java byte value, discarding any fractional part and truncating,
- * or 0 if not a number.
- * @param i the index of the argument to convert, 1 is the first argument
- * @return byte value with fraction discarded and truncated if necessary if argument i is number, otherwise 0
- * */
- public byte tobyte(int i) { return arg(i).tobyte(); }
-
- /** Return argument i as a java char value, discarding any fractional part and truncating,
- * or 0 if not a number.
- * @param i the index of the argument to convert, 1 is the first argument
- * @return char value with fraction discarded and truncated if necessary if argument i is number, otherwise 0
- * */
- public char tochar(int i) { return arg(i).tochar(); }
-
- /** Return argument i as a java double value or 0 if not a number.
- * @param i the index of the argument to convert, 1 is the first argument
- * @return double value if argument i is number, otherwise 0
- * */
- public double todouble(int i) { return arg(i).todouble(); }
-
- /** Return argument i as a java float value, discarding excess fractional part and truncating,
- * or 0 if not a number.
- * @param i the index of the argument to convert, 1 is the first argument
- * @return float value with excess fraction discarded and truncated if necessary if argument i is number, otherwise 0
- * */
- public float tofloat(int i) { return arg(i).tofloat(); }
-
- /** Return argument i as a java int value, discarding any fractional part and truncating,
- * or 0 if not a number.
- * @param i the index of the argument to convert, 1 is the first argument
- * @return int value with fraction discarded and truncated if necessary if argument i is number, otherwise 0
- * */
- public int toint(int i) { return arg(i).toint(); }
-
- /** Return argument i as a java long value, discarding any fractional part and truncating,
- * or 0 if not a number.
- * @param i the index of the argument to convert, 1 is the first argument
- * @return long value with fraction discarded and truncated if necessary if argument i is number, otherwise 0
- * */
- public long tolong(int i) { return arg(i).tolong(); }
-
- /** Return argument i as a java String based on the type of the argument.
- * @param i the index of the argument to convert, 1 is the first argument
- * @return String value representing the type
- * */
- public String tojstring(int i) { return arg(i).tojstring(); }
-
- /** Return argument i as a java short value, discarding any fractional part and truncating,
- * or 0 if not a number.
- * @param i the index of the argument to convert, 1 is the first argument
- * @return short value with fraction discarded and truncated if necessary if argument i is number, otherwise 0
- * */
- public short toshort(int i) { return arg(i).toshort(); }
-
- /** Return argument i as a java Object if a userdata, or null.
- * @param i the index of the argument to convert, 1 is the first argument
- * @return java Object value if argument i is a userdata, otherwise null
- * */
- public Object touserdata(int i) { return arg(i).touserdata(); }
-
- /** Return argument i as a java Object if it is a userdata whose instance Class c or a subclass, or null.
- * @param i the index of the argument to convert, 1 is the first argument
- * @param c the class to which the userdata instance must be assignable
- * @return java Object value if argument i is a userdata whose instance Class c or a subclass, otherwise null
- * */
- public Object touserdata(int i,Class c) { return arg(i).touserdata(c); }
-
- /** Convert the list of varargs values to a human readable java String.
- * @return String value in human readable form such as {1,2}.
- */
- public String tojstring() {
- Buffer sb = new Buffer();
- sb.append( "(" );
- for ( int i=1,n=narg(); i<=n; i++ ) {
- if (i>1) sb.append( "," );
- sb.append( arg(i).tojstring() );
- }
- sb.append( ")" );
- return sb.tojstring();
- }
-
- /** Convert the value or values to a java String using Varargs.tojstring()
- * @return String value in human readable form.
- * @see Varargs#tojstring()
- */
- public String toString() { return tojstring(); }
-
- /**
- * Create a {@code Varargs} instance containing arguments starting at index {@code start}
- * @param start the index from which to include arguments, where 1 is the first argument.
- * @return Varargs containing argument { start, start+1, ... , narg-start-1 }
- */
- public Varargs subargs(final int start) {
- int end = narg();
- switch ( end-start ) {
- case 0: return arg(start);
- case 1: return new LuaValue.PairVarargs(arg(start),arg(end));
- }
- return end
- * Normally these are not created directly, but indirectly when changing the mode
- * of a {@link LuaTable} as lua script executes.
- *
- * However, calling the constructors directly when weak tables are required from
- * Java will reduce overhead.
- */
-public class WeakTable extends LuaTable {
- private boolean weakkeys,weakvalues;
-
- /**
- * Construct a table with weak keys, weak values, or both
- * @param weakkeys true to let the table have weak keys
- * @param weakvalues true to let the table have weak values
- */
- public WeakTable(boolean weakkeys, boolean weakvalues) {
- this(weakkeys, weakvalues, 0, 0);
- }
-
- /**
- * Construct a table with weak keys, weak values, or both, and an initial capacity
- * @param weakkeys true to let the table have weak keys
- * @param weakvalues true to let the table have weak values
- * @param narray capacity of array part
- * @param nhash capacity of hash part
- */
- protected WeakTable(boolean weakkeys, boolean weakvalues, int narray, int nhash) {
- super(narray, nhash);
- this.weakkeys = weakkeys;
- this.weakvalues = weakvalues;
- }
-
- /**
- * Construct a table with weak keys, weak values, or both, and a source of initial data
- * @param weakkeys true to let the table have weak keys
- * @param weakvalues true to let the table have weak values
- * @param source {@link LuaTable} containing the initial elements
- */
- protected WeakTable(boolean weakkeys, boolean weakvalues, LuaTable source) {
- this(weakkeys, weakvalues, source.getArrayLength(), source.getHashLength());
- Varargs n;
- LuaValue k = NIL;
- while ( !(k = ((n = source.next(k)).arg1())).isnil() )
- rawset(k, n.arg(2));
- m_metatable = source.m_metatable;
- }
-
- public void presize( int narray ) {
- super.presize(narray);
- }
-
- /**
- * Presize capacity of both array and hash parts.
- * @param narray capacity of array part
- * @param nhash capacity of hash part
- */
- public void presize(int narray, int nhash) {
- super.presize(narray, nhash);
- }
-
- protected int getArrayLength() {
- return super.getArrayLength();
- }
-
- protected int getHashLength() {
- return super.getHashLength();
- }
-
- protected LuaTable changemode(boolean weakkeys, boolean weakvalues) {
- this.weakkeys = weakkeys;
- this.weakvalues = weakvalues;
- return this;
- }
-
- /**
- * Self-sent message to convert a value to its weak counterpart
- * @param value value to convert
- * @return {@link LuaValue} that is a strong or weak reference, depending on type of {@code value}
- */
- LuaValue weaken( LuaValue value ) {
- switch ( value.type() ) {
- case LuaValue.TFUNCTION:
- case LuaValue.TTHREAD:
- case LuaValue.TTABLE:
- return new WeakValue(value);
- case LuaValue.TUSERDATA:
- return new WeakUserdata(value);
- default:
- return value;
- }
- }
-
- public void rawset( int key, LuaValue value ) {
- if ( weakvalues )
- value = weaken( value );
- super.rawset(key, value);
- }
-
- public void rawset( LuaValue key, LuaValue value ) {
- if ( weakvalues )
- value = weaken( value );
- if ( weakkeys ) {
- switch ( key.type() ) {
- case LuaValue.TFUNCTION:
- case LuaValue.TTHREAD:
- case LuaValue.TTABLE:
- case LuaValue.TUSERDATA:
- key = value = new WeakEntry(this, key, value);
- break;
- default:
- break;
- }
- }
- super.rawset(key, value);
- }
-
-
- public LuaValue rawget( int key ) {
- return super.rawget(key).strongvalue();
- }
-
- public LuaValue rawget( LuaValue key ) {
- return super.rawget(key).strongvalue();
- }
-
- /** Get the hash value for a key
- * key the key to look up
- * */
- protected LuaValue hashget(LuaValue key) {
- if ( hashEntries > 0 ) {
- int i = hashFindSlot(key);
- if ( hashEntries == 0 )
- return NIL;
- LuaValue v = hashValues[i];
- return v!=null? v: NIL;
- }
- return NIL;
- }
-
-
- // override to remove values for weak keys as we search
- public int hashFindSlot(LuaValue key) {
- int i = ( key.hashCode() & 0x7FFFFFFF ) % hashKeys.length;
- LuaValue k;
- while ( ( k = hashKeys[i] ) != null ) {
- if ( k.isweaknil() ) {
- hashClearSlot(i);
- if ( hashEntries == 0 )
- return 0;
- }
- else {
- if ( k.raweq(key.strongkey()) )
- return i;
- i = ( i + 1 ) % hashKeys.length;
- }
- }
- return i;
- }
-
- public int maxn() {
- return super.maxn();
- }
-
-
- /**
- * Get the next element after a particular key in the table
- * @return key,value or nil
- */
- public Varargs next( LuaValue key ) {
- while ( true ) {
- Varargs n = super.next(key);
- LuaValue k = n.arg1();
- if ( k.isnil() )
- return NIL;
- LuaValue ks = k.strongkey();
- LuaValue vs = n.arg(2).strongvalue();
- if ( ks.isnil() || vs.isnil() ) {
- super.rawset(k, NIL);
- } else {
- return varargsOf(ks,vs);
- }
- }
- }
-
- // ----------------- sort support -----------------------------
- public void sort(final LuaValue comparator) {
- super.sort( new TwoArgFunction() {
- public LuaValue call(LuaValue arg1, LuaValue arg2) {
- return comparator.call( arg1.strongvalue(), arg2.strongvalue() );
- }
- } );
- }
-
- /** Internal class to implement weak values.
- * @see WeakTable
- */
- static class WeakValue extends LuaValue {
- final WeakReference ref;
-
- protected WeakValue(LuaValue value) {
- ref = new WeakReference(value);
- }
-
- public int type() {
- illegal("type","weak value");
- return 0;
- }
-
- public String typename() {
- illegal("typename","weak value");
- return null;
- }
-
- public String toString() {
- return "weak<"+ref.get()+">";
- }
-
- public LuaValue strongvalue() {
- Object o = ref.get();
- return o!=null? (LuaValue)o: NIL;
- }
-
- public boolean raweq(LuaValue rhs) {
- Object o = ref.get();
- return o!=null && rhs.raweq((LuaValue)o);
- }
-
- public boolean isweaknil() {
- return ref.get() == null;
- }
- }
-
- /** Internal class to implement weak userdata values.
- * @see WeakTable
- */
- static final class WeakUserdata extends WeakValue {
- private final WeakReference ob;
- private final LuaValue mt;
-
- private WeakUserdata(LuaValue value) {
- super(value);
- ob = new WeakReference(value.touserdata());
- mt = value.getmetatable();
- }
-
- public LuaValue strongvalue() {
- Object u = ref.get();
- if ( u != null )
- return (LuaValue) u;
- Object o = ob.get();
- return o!=null? userdataOf(o,mt): NIL;
- }
-
- public boolean raweq(LuaValue rhs) {
- if ( ! rhs.isuserdata() )
- return false;
- LuaValue v = (LuaValue) ref.get();
- if ( v != null && v.raweq(rhs) )
- return true;
- return rhs.touserdata() == ob.get();
- }
-
- public boolean isweaknil() {
- return ob.get() == null || ref.get() == null;
- }
- }
-
- /** Internal class to implement weak table entries.
- * @see WeakTable
- */
- static final class WeakEntry extends LuaValue {
- final LuaValue weakkey;
- LuaValue weakvalue;
- final int keyhash;
-
- private WeakEntry(WeakTable table, LuaValue key, LuaValue weakvalue) {
- this.weakkey = table.weaken(key);
- this.keyhash = key.hashCode();
- this.weakvalue = weakvalue;
- }
-
- public LuaValue strongkey() {
- return weakkey.strongvalue();
- }
-
- // when looking up the value, look in the keys metatable
- public LuaValue strongvalue() {
- LuaValue key = weakkey.strongvalue();
- if ( key.isnil() )
- return weakvalue = NIL;
- return weakvalue.strongvalue();
- }
-
- public int type() {
- return TNONE;
- }
-
- public String typename() {
- illegal("typename","weak entry");
- return null;
- }
-
- public String toString() {
- return "weak<"+weakkey.strongvalue()+","+strongvalue()+">";
- }
-
- public int hashCode() {
- return keyhash;
- }
-
- public boolean raweq(LuaValue rhs) {
- //return rhs.raweq(weakkey.strongvalue());
- return weakkey.raweq(rhs);
- }
-
- public boolean isweaknil() {
- return weakkey.isweaknil() || weakvalue.isweaknil();
- }
- }
-}
diff --git a/luaj-2.0.3/src/core/org/luaj/vm2/compiler/DumpState.java b/luaj-2.0.3/src/core/org/luaj/vm2/compiler/DumpState.java
deleted file mode 100644
index f02a944c3..000000000
--- a/luaj-2.0.3/src/core/org/luaj/vm2/compiler/DumpState.java
+++ /dev/null
@@ -1,267 +0,0 @@
-/*******************************************************************************
-* Copyright (c) 2009 Luaj.org. All rights reserved.
-*
-* Permission is hereby granted, free of charge, to any person obtaining a copy
-* of this software and associated documentation files (the "Software"), to deal
-* in the Software without restriction, including without limitation the rights
-* to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
-* copies of the Software, and to permit persons to whom the Software is
-* furnished to do so, subject to the following conditions:
-*
-* The above copyright notice and this permission notice shall be included in
-* all copies or substantial portions of the Software.
-*
-* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
-* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
-* AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
-* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
-* OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
-* THE SOFTWARE.
-******************************************************************************/
-package org.luaj.vm2.compiler;
-
-import java.io.DataOutputStream;
-import java.io.IOException;
-import java.io.OutputStream;
-
-import org.luaj.vm2.LocVars;
-import org.luaj.vm2.Prototype;
-import org.luaj.vm2.LuaString;
-import org.luaj.vm2.LuaValue;
-
-
-public class DumpState {
-
- /** mark for precompiled code (`
- * Compiles lua source files into lua bytecode within a {@link Prototype},
- * loads lua binary files directly into a{@link Prototype},
- * and optionaly instantiates a {@link LuaClosure} around the result
- * using a user-supplied environment.
- *
- * Implements the {@link LuaCompiler} interface for loading
- * initialized chunks, which is an interface common to
- * lua bytecode compiling and java bytecode compiling.
- *
- * Teh {@link LuaC} compiler is installed by default by both the
- * {@link JsePlatform} and {@link JmePlatform} classes,
- * so in the following example, the default {@link LuaC} compiler
- * will be used:
- *
- * This contains all library functions listed as "basic functions" in the lua documentation for JME.
- * The functions dofile and loadfile use the
- * {@link #FINDER} instance to find resource files.
- * Since JME has no file system by default, {@link BaseLib} implements
- * {@link ResourceFinder} using {@link Class#getResource(String)},
- * which is the closest equivalent on JME.
- * The default loader chain in {@link PackageLib} will use these as well.
- *
- * To use basic library functions that include a {@link ResourceFinder} based on
- * directory lookup, use {@link JseBaseLib} instead.
- *
- * Typically, this library is included as part of a call to either
- * {@link JmePlatform#standardGlobals()}
- *
- * To instantiate and use it directly,
- * link it into your globals table via {@link LuaValue#load(LuaValue)} using code such as:
- *
- * This is a direct port of the corresponding library in C.
- * @see JseBaseLib
- * @see ResourceFinder
- * @see #FINDER
- * @see LibFunction
- * @see JsePlatform
- * @see JmePlatform
- * @see http://www.lua.org/manual/5.1/manual.html#5.1
- */
-public class BaseLib extends OneArgFunction implements ResourceFinder {
-
- public static BaseLib instance;
-
- public InputStream STDIN = null;
- public PrintStream STDOUT = System.out;
- public PrintStream STDERR = System.err;
-
- /**
- * Singleton file opener for this Java ClassLoader realm.
- *
- * Unless set or changed elsewhere, will be set by the BaseLib that is created.
- */
- public static ResourceFinder FINDER;
-
- private LuaValue next;
- private LuaValue inext;
-
- private static final String[] LIB2_KEYS = {
- "collectgarbage", // ( opt [,arg] ) -> value
- "error", // ( message [,level] ) -> ERR
- "setfenv", // (f, table) -> void
- };
- private static final String[] LIBV_KEYS = {
- "assert", // ( v [,message] ) -> v, message | ERR
- "dofile", // ( filename ) -> result1, ...
- "getfenv", // ( [f] ) -> env
- "getmetatable", // ( object ) -> table
- "load", // ( func [,chunkname] ) -> chunk | nil, msg
- "loadfile", // ( [filename] ) -> chunk | nil, msg
- "loadstring", // ( string [,chunkname] ) -> chunk | nil, msg
- "pcall", // (f, arg1, ...) -> status, result1, ...
- "xpcall", // (f, err) -> result1, ...
- "print", // (...) -> void
- "select", // (f, ...) -> value1, ...
- "unpack", // (list [,i [,j]]) -> result1, ...
- "type", // (v) -> value
- "rawequal", // (v1, v2) -> boolean
- "rawget", // (table, index) -> value
- "rawset", // (table, index, value) -> table
- "setmetatable", // (table, metatable) -> table
- "tostring", // (e) -> value
- "tonumber", // (e [,base]) -> value
- "pairs", // "pairs" (t) -> iter-func, t, nil
- "ipairs", // "ipairs", // (t) -> iter-func, t, 0
- "next", // "next" ( table, [index] ) -> next-index, next-value
- "__inext", // "inext" ( table, [int-index] ) -> next-index, next-value
- };
-
- /**
- * Construct a base libarary instance.
- */
- public BaseLib() {
- instance = this;
- }
-
- public LuaValue call(LuaValue arg) {
- env.set( "_G", env );
- env.set( "_VERSION", Lua._VERSION );
- bind( env, BaseLib2.class, LIB2_KEYS );
- bind( env, BaseLibV.class, LIBV_KEYS );
-
- // remember next, and inext for use in pairs and ipairs
- next = env.get("next");
- inext = env.get("__inext");
-
- // inject base lib int vararg instances
- for ( int i=0; i
- * The coroutine library in luaj has the same behavior as the
- * coroutine library in C, but is implemented using Java Threads to maintain
- * the call state between invocations. Therefore it can be yielded from anywhere,
- * similar to the "Coco" yield-from-anywhere patch available for C-based lua.
- * However, coroutines that are yielded but never resumed to complete their execution
- * may not be collected by the garbage collector.
- *
- * Typically, this library is included as part of a call to either
- * {@link JsePlatform#standardGlobals()} or {@link JmePlatform#standardGlobals()}
- *
- * To instantiate and use it directly,
- * link it into your globals table via {@link LuaValue#load(LuaValue)} using code such as:
- *
- * @see LibFunction
- * @see JsePlatform
- * @see JmePlatform
- * @see http://www.lua.org/manual/5.1/manual.html#5.2
- */
-public class CoroutineLib extends VarArgFunction {
-
- private static final int INIT = 0;
- private static final int CREATE = 1;
- private static final int RESUME = 2;
- private static final int RUNNING = 3;
- private static final int STATUS = 4;
- private static final int YIELD = 5;
- private static final int WRAP = 6;
- private static final int WRAPPED = 7;
-
- public CoroutineLib() {
- }
-
- private LuaTable init() {
- LuaTable t = new LuaTable();
- bind(t, CoroutineLib.class, new String[] {
- "create", "resume", "running", "status", "yield", "wrap" },
- CREATE);
- env.set("coroutine", t);
- PackageLib.instance.LOADED.set("coroutine", t);
- return t;
- }
-
- public Varargs invoke(Varargs args) {
- switch ( opcode ) {
- case INIT: {
- return init();
- }
- case CREATE: {
- final LuaValue func = args.checkfunction(1);
- /* DAN200 START */
- //return new LuaThread(func, LuaThread.getGlobals() );
- final LuaThread thread = new LuaThread( func, LuaThread.getGlobals() );
- LuaThread.getRunning().addChild( thread );
- return thread;
- /* DAN200 END */
- }
- case RESUME: {
- final LuaThread t = args.checkthread(1);
- return t.resume( args.subargs(2) );
- }
- case RUNNING: {
- final LuaThread r = LuaThread.getRunning();
- return LuaThread.isMainThread(r)? NIL: r;
- }
- case STATUS: {
- return valueOf( args.checkthread(1).getStatus() );
- }
- case YIELD: {
- return LuaThread.yield( args );
- }
- case WRAP: {
- final LuaValue func = args.checkfunction(1);
- final LuaThread thread = new LuaThread(func, func.getfenv());
- /* DAN200 START */
- LuaThread.getRunning().addChild( thread );
- /* DAN200 END */
- CoroutineLib cl = new CoroutineLib();
- cl.setfenv(thread);
- cl.name = "wrapped";
- cl.opcode = WRAPPED;
- return cl;
- }
- case WRAPPED: {
- final LuaThread t = (LuaThread) env;
- final Varargs result = t.resume( args );
- if ( result.arg1().toboolean() ) {
- return result.subargs(2);
- } else {
- error( result.arg(2).tojstring() );
- }
- }
- default:
- return NONE;
- }
- }
-}
diff --git a/luaj-2.0.3/src/core/org/luaj/vm2/lib/DebugLib.java b/luaj-2.0.3/src/core/org/luaj/vm2/lib/DebugLib.java
deleted file mode 100644
index da3e103a6..000000000
--- a/luaj-2.0.3/src/core/org/luaj/vm2/lib/DebugLib.java
+++ /dev/null
@@ -1,977 +0,0 @@
-/*******************************************************************************
-* Copyright (c) 2009-2011 Luaj.org. All rights reserved.
-*
-* Permission is hereby granted, free of charge, to any person obtaining a copy
-* of this software and associated documentation files (the "Software"), to deal
-* in the Software without restriction, including without limitation the rights
-* to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
-* copies of the Software, and to permit persons to whom the Software is
-* furnished to do so, subject to the following conditions:
-*
-* The above copyright notice and this permission notice shall be included in
-* all copies or substantial portions of the Software.
-*
-* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
-* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
-* AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
-* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
-* OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
-* THE SOFTWARE.
-******************************************************************************/
-package org.luaj.vm2.lib;
-
-import java.lang.ref.WeakReference;
-
-import org.luaj.vm2.Lua;
-import org.luaj.vm2.LuaBoolean;
-import org.luaj.vm2.LuaClosure;
-import org.luaj.vm2.LuaError;
-import org.luaj.vm2.LuaFunction;
-import org.luaj.vm2.LuaNil;
-import org.luaj.vm2.LuaNumber;
-import org.luaj.vm2.LuaString;
-import org.luaj.vm2.LuaTable;
-import org.luaj.vm2.LuaThread;
-import org.luaj.vm2.LuaValue;
-import org.luaj.vm2.Print;
-import org.luaj.vm2.Prototype;
-import org.luaj.vm2.Varargs;
-
-/**
- * Subclass of {@link LibFunction} which implements the lua standard {@code debug}
- * library.
- *
- * The debug library in luaj tries to emulate the behavior of the corresponding C-based lua library.
- * To do this, it must maintain a separate stack of calls to {@link LuaClosure} and {@link LibFunction}
- * instances.
- * Especially when lua-to-java bytecode compiling is being used
- * via a {@link LuaCompiler} such as {@link LuaJC},
- * this cannot be done in all cases.
- *
- * Typically, this library is included as part of a call to either
- * {@link JsePlatform#debugGlobals()} or {@link JmePlatform#debugGlobals()}
- *
- * To instantiate and use it directly,
- * link it into your globals table via {@link LuaValue#load(LuaValue)} using code such as:
- *
- * @see LibFunction
- * @see JsePlatform
- * @see JmePlatform
- * @see http://www.lua.org/manual/5.1/manual.html#5.9
- */
-public class DebugLib extends VarArgFunction {
- public static final boolean CALLS = (null != System.getProperty("CALLS"));
- public static final boolean TRACE = (null != System.getProperty("TRACE"));
-
- // leave this unset to allow obfuscators to
- // remove it in production builds
- public static boolean DEBUG_ENABLED;
-
- static final String[] NAMES = {
- "debug",
- "getfenv",
- "gethook",
- "getinfo",
- "getlocal",
- "getmetatable",
- "getregistry",
- "getupvalue",
- "setfenv",
- "sethook",
- "setlocal",
- "setmetatable",
- "setupvalue",
- "traceback",
- };
-
- private static final int INIT = 0;
- private static final int DEBUG = 1;
- private static final int GETFENV = 2;
- private static final int GETHOOK = 3;
- private static final int GETINFO = 4;
- private static final int GETLOCAL = 5;
- private static final int GETMETATABLE = 6;
- private static final int GETREGISTRY = 7;
- private static final int GETUPVALUE = 8;
- private static final int SETFENV = 9;
- private static final int SETHOOK = 10;
- private static final int SETLOCAL = 11;
- private static final int SETMETATABLE = 12;
- private static final int SETUPVALUE = 13;
- private static final int TRACEBACK = 14;
-
- /* maximum stack for a Lua function */
- private static final int MAXSTACK = 250;
-
- private static final LuaString LUA = valueOf("Lua");
- private static final LuaString JAVA = valueOf("Java");
- private static final LuaString QMARK = valueOf("?");
- private static final LuaString GLOBAL = valueOf("global");
- private static final LuaString LOCAL = valueOf("local");
- private static final LuaString METHOD = valueOf("method");
- private static final LuaString UPVALUE = valueOf("upvalue");
- private static final LuaString FIELD = valueOf("field");
- 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 TAILRETURN = valueOf("tail return");
-
- private static final LuaString FUNC = valueOf("func");
- private static final LuaString NUPS = valueOf("nups");
- private static final LuaString NAME = valueOf("name");
- private static final LuaString NAMEWHAT = valueOf("namewhat");
- private static final LuaString WHAT = valueOf("what");
- private static final LuaString SOURCE = valueOf("source");
- private static final LuaString SHORT_SRC = valueOf("short_src");
- private static final LuaString LINEDEFINED = valueOf("linedefined");
- private static final LuaString LASTLINEDEFINED = valueOf("lastlinedefined");
- private static final LuaString CURRENTLINE = valueOf("currentline");
- private static final LuaString ACTIVELINES = valueOf("activelines");
-
- public DebugLib() {
- }
-
- private LuaTable init() {
- DEBUG_ENABLED = true;
- LuaTable t = new LuaTable();
- bind(t, DebugLib.class, NAMES, DEBUG);
- env.set("debug", t);
- PackageLib.instance.LOADED.set("debug", t);
- return t;
- }
-
- public Varargs invoke(Varargs args) {
- switch ( opcode ) {
- case INIT: return init();
- case DEBUG: return _debug(args);
- case GETFENV: return _getfenv(args);
- case GETHOOK: return _gethook(args);
- case GETINFO: return _getinfo(args,this);
- case GETLOCAL: return _getlocal(args);
- case GETMETATABLE: return _getmetatable(args);
- case GETREGISTRY: return _getregistry(args);
- case GETUPVALUE: return _getupvalue(args);
- case SETFENV: return _setfenv(args);
- case SETHOOK: return _sethook(args);
- case SETLOCAL: return _setlocal(args);
- case SETMETATABLE: return _setmetatable(args);
- case SETUPVALUE: return _setupvalue(args);
- case TRACEBACK: return _traceback(args);
- default: return NONE;
- }
- }
-
- // ------------------------ Debug Info management --------------------------
- //
- // when DEBUG_ENABLED is set to true, these functions will be called
- // by Closure instances as they process bytecodes.
- //
- // Each thread will get a DebugState attached to it by the debug library
- // which will track function calls, hook functions, etc.
- //
- static class DebugInfo {
- LuaValue func;
- LuaClosure closure;
- LuaValue[] stack;
- Varargs varargs, extras;
- int pc, top;
-
- private DebugInfo() {
- func = NIL;
- }
- private DebugInfo(LuaValue func) {
- pc = -1;
- setfunction( func );
- }
- void setargs(Varargs varargs, LuaValue[] stack) {
- this.varargs = varargs;
- this.stack = stack;
- }
- void setfunction( LuaValue func ) {
- this.func = func;
- this.closure = (func instanceof LuaClosure? (LuaClosure) func: null);
- }
- void clear() {
- func = NIL;
- closure = null;
- stack = null;
- varargs = extras = null;
- pc = top = 0;
- }
- public void bytecode(int pc, Varargs extras, int top) {
- this.pc = pc;
- this.top = top;
- this.extras = extras;
- }
- public int currentline() {
- if ( closure == null ) return -1;
- int[] li = closure.p.lineinfo;
- return li==null || pc<0 || pc>=li.length? -1: li[pc];
- }
- public LuaString[] getfunckind() {
- if ( closure == null || pc<0 ) return null;
- int stackpos = (closure.p.code[pc] >> 6) & 0xff;
- return getobjname(this, stackpos);
- }
- public String sourceline() {
- if ( closure == null ) return func.tojstring();
- String s = closure.p.source.tojstring();
- int line = currentline();
- return (s.startsWith("@")||s.startsWith("=")? s.substring(1): s) + ":" + line;
- }
- public String tracename() {
- // if ( func != null )
- // return func.tojstring();
- LuaString[] kind = getfunckind();
- if ( kind == null )
- return "function ?";
- return "function "+kind[0].tojstring();
- }
- public LuaString getlocalname(int index) {
- if ( closure == null ) return null;
- return closure.p.getlocalname(index, pc);
- }
- public String tojstring() {
- return tracename()+" "+sourceline();
- }
- }
-
- /** DebugState is associated with a Thread */
- static class DebugState {
- private final WeakReference thread_ref;
- private int debugCalls = 0;
- private DebugInfo[] debugInfo = new DebugInfo[LuaThread.MAX_CALLSTACK+1];
- private LuaValue hookfunc;
- private boolean hookcall,hookline,hookrtrn,inhook;
- private int hookcount,hookcodes;
- private int line;
- DebugState(LuaThread thread) {
- this.thread_ref = new WeakReference(thread);
- }
- public DebugInfo nextInfo() {
- DebugInfo di = debugInfo[debugCalls];
- if ( di == null )
- debugInfo[debugCalls] = di = new DebugInfo();
- return di;
- }
- public DebugInfo pushInfo( int calls ) {
- while ( debugCalls < calls ) {
- nextInfo();
- ++debugCalls;
- }
- return debugInfo[debugCalls-1];
- }
- public void popInfo(int calls) {
- while ( debugCalls > calls )
- debugInfo[--debugCalls].clear();
- }
- void callHookFunc(DebugState ds, LuaString type, LuaValue arg) {
- if ( inhook || hookfunc == null )
- return;
- inhook = true;
- try {
- int n = debugCalls;
- ds.nextInfo().setargs( arg, null );
- ds.pushInfo(n+1).setfunction(hookfunc);
- try {
- hookfunc.call(type,arg);
- } finally {
- ds.popInfo(n);
- }
- } catch ( Exception e ) {
- e.printStackTrace();
- } finally {
- inhook = false;
- }
- }
- public void sethook(LuaValue func, boolean call, boolean line, boolean rtrn, int count) {
- this.hookcount = count;
- this.hookcall = call;
- this.hookline = line;
- this.hookrtrn = rtrn;
- this.hookfunc = func;
- }
- DebugInfo getDebugInfo() {
- try {
- return debugInfo[debugCalls-1];
- } catch ( Exception e ) {
- if ( debugCalls <= 0 )
- return debugInfo[debugCalls++] = new DebugInfo();
- return null;
- }
- }
- DebugInfo getDebugInfo(int level) {
- return level < 0 || level >= debugCalls? null: debugInfo[debugCalls-level-1];
- }
- public DebugInfo findDebugInfo(LuaValue func) {
- for ( int i=debugCalls; --i>=0; ) {
- if ( debugInfo[i].func == func ) {
- return debugInfo[i];
- }
- }
- return new DebugInfo(func);
- }
- public String tojstring() {
- LuaThread thread = (LuaThread) thread_ref.get();
- return thread != null? DebugLib.traceback(thread, 0): "orphaned thread";
- }
- }
-
- static DebugState getDebugState( LuaThread thread ) {
- if ( thread.debugState == null )
- thread.debugState = new DebugState(thread);
- return (DebugState) thread.debugState;
- }
-
- static DebugState getDebugState() {
- return getDebugState( LuaThread.getRunning() );
- }
-
- /** Called by Closures to set up stack and arguments to next call */
- public static void debugSetupCall(Varargs args, LuaValue[] stack) {
- DebugState ds = getDebugState();
- if ( ds.inhook )
- return;
- ds.nextInfo().setargs( args, stack );
- }
-
- /** Called by Closures and recursing java functions on entry
- * @param thread the thread for the call
- * @param calls the number of calls in the call stack
- * @param func the function called
- */
- public static void debugOnCall(LuaThread thread, int calls, LuaFunction func) {
- DebugState ds = getDebugState();
- if ( ds.inhook )
- return;
- DebugInfo di = ds.pushInfo(calls);
- di.setfunction( func );
- if(CALLS)System.out.println("calling "+func);
- if ( ds.hookcall )
- ds.callHookFunc( ds, CALL, LuaValue.NIL );
- }
-
- /** Called by Closures and recursing java functions on return
- * @param thread the thread for the call
- * @param calls the number of calls in the call stack
- */
- public static void debugOnReturn(LuaThread thread, int calls) {
- DebugState ds = getDebugState(thread);
- if ( ds.inhook )
- return;
- if(CALLS)System.out.println("returning");
- try {
- if ( ds.hookrtrn )
- ds.callHookFunc( ds, RETURN, LuaValue.NIL );
- } finally {
- getDebugState().popInfo(calls);
- }
- }
-
- /** Called by Closures on bytecode execution */
- public static void debugBytecode( int pc, Varargs extras, int top ) {
- DebugState ds = getDebugState();
- if ( ds.inhook )
- return;
- DebugInfo di = ds.getDebugInfo();
- if(TRACE)Print.printState(di.closure, pc, di.stack, top, di.varargs);
- di.bytecode( pc, extras, top );
- if ( ds.hookcount > 0 ) {
- if ( ++ds.hookcodes >= ds.hookcount ) {
- ds.hookcodes = 0;
- ds.callHookFunc( ds, COUNT, LuaValue.NIL );
- }
- }
- if ( ds.hookline ) {
- int newline = di.currentline();
- if ( newline != ds.line ) {
- int c = di.closure.p.code[pc];
- if ( (c&0x3f) != Lua.OP_JMP || ((c>>>14)-0x1ffff) >= 0 ) {
- ds.line = newline;
- ds.callHookFunc( ds, LINE, LuaValue.valueOf(newline) );
- }
- }
- }
- }
-
- // ------------------- library function implementations -----------------
-
- // j2se subclass may wish to override and provide actual console here.
- // j2me platform has not System.in to provide console.
- static Varargs _debug(Varargs args) {
- return NONE;
- }
-
- static Varargs _gethook(Varargs args) {
- int a=1;
- LuaThread thread = args.isthread(a)? args.checkthread(a++): LuaThread.getRunning();
- DebugState ds = getDebugState(thread);
- return varargsOf(
- ds.hookfunc,
- valueOf((ds.hookcall?"c":"")+(ds.hookline?"l":"")+(ds.hookrtrn?"r":"")),
- valueOf(ds.hookcount));
- }
-
- static Varargs _sethook(Varargs args) {
- int a=1;
- LuaThread thread = args.isthread(a)? args.checkthread(a++): LuaThread.getRunning();
- LuaValue func = args.optfunction(a++, null);
- String str = args.optjstring(a++,"");
- int count = args.optint(a++,0);
- boolean call=false,line=false,rtrn=false;
- for ( int i=0; i
- * It contains the implementation of the io library support that is common to
- * the JSE and JME platforms.
- * In practice on of the concrete IOLib subclasses is chosen:
- * {@link org.luaj.vm2.lib.jse.JseIoLib} for the JSE platform, and
- * {@link org.luaj.vm2.lib.jme.JmeIoLib} for the JME platform.
- *
- * The JSE implementation conforms almost completely to the C-based lua library,
- * while the JME implementation follows closely except in the area of random-access files,
- * which are difficult to support properly on JME.
- *
- * Typically, this library is included as part of a call to either
- * {@link JsePlatform#standardGlobals()} or {@link JmePlatform#standardGlobals()}
- *
- * To instantiate and use it directly,
- * link it into your globals table via {@link LuaValue#load(LuaValue)} using code such as:
- *
- * This has been implemented to match as closely as possible the behavior in the corresponding library in C.
- * @see LibFunction
- * @see JsePlatform
- * @see JmePlatform
- * @see JseIoLib
- * @see JmeIoLib
- * @see http://www.lua.org/manual/5.1/manual.html#5.7
- */
-abstract
-public class IoLib extends OneArgFunction {
-
- abstract
- protected class File extends LuaValue{
- abstract public void write( LuaString string ) throws IOException;
- abstract public void flush() throws IOException;
- abstract public boolean isstdfile();
- abstract public void close() throws IOException;
- abstract public boolean isclosed();
- // returns new position
- abstract public int seek(String option, int bytecount) throws IOException;
- abstract public void setvbuf(String mode, int size);
- // get length remaining to read
- abstract public int remaining() throws IOException;
- // peek ahead one character
- abstract public int peek() throws IOException, EOFException;
- // return char if read, -1 if eof, throw IOException on other exception
- abstract public int read() throws IOException, EOFException;
- // return number of bytes read if positive, false if eof, throw IOException on other exception
- abstract public int read(byte[] bytes, int offset, int length) throws IOException;
-
- // delegate method access to file methods table
- public LuaValue get( LuaValue key ) {
- return filemethods.get(key);
- }
-
- // essentially a userdata instance
- public int type() {
- return LuaValue.TUSERDATA;
- }
- public String typename() {
- return "userdata";
- }
-
- // displays as "file" type
- public String tojstring() {
- return "file: " + Integer.toHexString(hashCode());
- }
- }
-
-
- /**
- * Wrap the standard input.
- * @return File
- * @throws IOException
- */
- abstract protected File wrapStdin() throws IOException;
-
- /**
- * Wrap the standard output.
- * @return File
- * @throws IOException
- */
- abstract protected File wrapStdout() throws IOException;
-
- /**
- * Open a file in a particular mode.
- * @param filename
- * @param readMode true if opening in read mode
- * @param appendMode true if opening in append mode
- * @param updateMode true if opening in update mode
- * @param binaryMode true if opening in binary mode
- * @return File object if successful
- * @throws IOException if could not be opened
- */
- abstract protected File openFile( String filename, boolean readMode, boolean appendMode, boolean updateMode, boolean binaryMode ) throws IOException;
-
- /**
- * Open a temporary file.
- * @return File object if successful
- * @throws IOException if could not be opened
- */
- abstract protected File tmpFile() throws IOException;
-
- /**
- * Start a new process and return a file for input or output
- * @param prog the program to execute
- * @param mode "r" to read, "w" to write
- * @return File to read to or write from
- * @throws IOException if an i/o exception occurs
- */
- abstract protected File openProgram(String prog, String mode) throws IOException;
-
- private File infile = null;
- private File outfile = null;
- private File errfile = null;
-
- private static final LuaValue STDIN = valueOf("stdin");
- private static final LuaValue STDOUT = valueOf("stdout");
- private static final LuaValue STDERR = valueOf("stderr");
- private static final LuaValue FILE = valueOf("file");
- private static final LuaValue CLOSED_FILE = valueOf("closed file");
-
- private static final int IO_CLOSE = 0;
- private static final int IO_FLUSH = 1;
- private static final int IO_INPUT = 2;
- private static final int IO_LINES = 3;
- private static final int IO_OPEN = 4;
- private static final int IO_OUTPUT = 5;
- private static final int IO_POPEN = 6;
- private static final int IO_READ = 7;
- private static final int IO_TMPFILE = 8;
- private static final int IO_TYPE = 9;
- private static final int IO_WRITE = 10;
-
- private static final int FILE_CLOSE = 11;
- private static final int FILE_FLUSH = 12;
- private static final int FILE_LINES = 13;
- private static final int FILE_READ = 14;
- private static final int FILE_SEEK = 15;
- private static final int FILE_SETVBUF = 16;
- private static final int FILE_WRITE = 17;
-
- private static final int IO_INDEX = 18;
- private static final int LINES_ITER = 19;
-
- public static final String[] IO_NAMES = {
- "close",
- "flush",
- "input",
- "lines",
- "open",
- "output",
- "popen",
- "read",
- "tmpfile",
- "type",
- "write",
- };
-
- public static final String[] FILE_NAMES = {
- "close",
- "flush",
- "lines",
- "read",
- "seek",
- "setvbuf",
- "write",
- };
-
- LuaTable filemethods;
-
- public IoLib() {
- }
-
- public LuaValue call(LuaValue arg) {
-
- // io lib functions
- LuaTable t = new LuaTable();
- bind(t, IoLibV.class, IO_NAMES );
-
- // create file methods table
- filemethods = new LuaTable();
- bind(filemethods, IoLibV.class, FILE_NAMES, FILE_CLOSE );
-
- // set up file metatable
- LuaTable mt = new LuaTable();
- bind(mt, IoLibV.class, new String[] { "__index" }, IO_INDEX );
- t.setmetatable( mt );
-
- // all functions link to library instance
- setLibInstance( t );
- setLibInstance( filemethods );
- setLibInstance( mt );
-
- // return the table
- env.set("io", t);
- PackageLib.instance.LOADED.set("io", t);
- return t;
- }
-
- private void setLibInstance(LuaTable t) {
- LuaValue[] k = t.keys();
- for ( int i=0, n=k.length; i
- * To provide for common implementations in JME and JSE,
- * library functions are typically grouped on one or more library classes
- * and an opcode per library function is defined and used to key the switch
- * to the correct function within the library.
- *
- * Since lua functions can be called with too few or too many arguments,
- * and there are overloaded {@link LuaValue#call()} functions with varying
- * number of arguments, a Java function exposed in lua needs to handle the
- * argument fixup when a function is called with a number of arguments
- * differs from that expected.
- *
- * To simplify the creation of library functions,
- * there are 5 direct subclasses to handle common cases based on number of
- * argument values and number of return return values.
- *
- * To be a Java library that can be loaded via {@code require}, it should have
- * a public constructor that returns a {@link LuaValue} that, when executed,
- * initializes the library.
- *
- * For example, the following code will implement a library called "hyperbolic"
- * with two functions, "sinh", and "cosh":
-
- * To test it, a script such as this can be used:
- *
- * It should produce something like:
- *
- * See the source code in any of the library functions
- * such as {@link BaseLib} or {@link TableLib} for other examples.
- */
-abstract public class LibFunction extends LuaFunction {
-
- /** User-defined opcode to differentiate between instances of the library function class.
- *
- * Subclass will typicall switch on this value to provide the specific behavior for each function.
- */
- protected int opcode;
-
- /** The common name for this function, useful for debugging.
- *
- * Binding functions initialize this to the name to which it is bound.
- */
- protected String name;
-
- /** Default constructor for use by subclasses */
- protected LibFunction() {
- }
-
- public String tojstring() {
- return name != null? name: super.tojstring();
- }
-
- /**
- * Bind a set of library functions.
- *
- * An array of names is provided, and the first name is bound
- * with opcode = 0, second with 1, etc.
- * @param env The environment to apply to each bound function
- * @param factory the Class to instantiate for each bound function
- * @param names array of String names, one for each function.
- * @see #bind(LuaValue, Class, String[], int)
- */
- protected void bind(LuaValue env, Class factory, String[] names ) {
- bind( env, factory, names, 0 );
- }
-
- /**
- * Bind a set of library functions, with an offset
- *
- * An array of names is provided, and the first name is bound
- * with opcode = {@code firstopcode}, second with {@code firstopcode+1}, etc.
- * @param env The environment to apply to each bound function
- * @param factory the Class to instantiate for each bound function
- * @param names array of String names, one for each function.
- * @param firstopcode the first opcode to use
- * @see #bind(LuaValue, Class, String[])
- */
- protected void bind(LuaValue env, Class factory, String[] names, int firstopcode ) {
- try {
- for ( int i=0, n=names.length; i
- * The implementations of {@code exp()} and {@code pow()} are constructed by
- * hand for JME, so will be slower and less accurate than when executed on the JSE platform.
- *
- * Typically, this library is included as part of a call to either
- * {@link JmePlatform#standardGlobals()}
- *
- * To instantiate and use it directly,
- * link it into your globals table via {@link LuaValue#load(LuaValue)} using code such as:
- *
- * This has been implemented to match as closely as possible the behavior in the corresponding library in C.
- * @see LibFunction
- * @see JsePlatform
- * @see JmePlatform
- * @see JseMathLib
- * @see http://www.lua.org/manual/5.1/manual.html#5.6
- */
-public class MathLib extends OneArgFunction {
-
- public static MathLib MATHLIB = null;
-
- private Random random;
-
- public MathLib() {
- MATHLIB = this;
- }
-
- public LuaValue call(LuaValue arg) {
- LuaTable t = new LuaTable(0,30);
- t.set( "pi", Math.PI );
- t.set( "huge", LuaDouble.POSINF );
- bind( t, MathLib1.class, new String[] {
- "abs", "ceil", "cos", "deg",
- "exp", "floor", "rad", "sin",
- "sqrt", "tan" } );
- bind( t, MathLib2.class, new String[] {
- "fmod", "ldexp", "pow", } );
- bind( t, MathLibV.class, new String[] {
- "frexp", "max", "min", "modf",
- "randomseed", "random", } );
- ((MathLibV) t.get("randomseed")).mathlib = this;
- ((MathLibV) t.get("random" )).mathlib = this;
- env.set("math", t);
- PackageLib.instance.LOADED.set("math", t);
- return t;
- }
-
- static final class MathLib1 extends OneArgFunction {
- public LuaValue call(LuaValue arg) {
- switch ( opcode ) {
- case 0: return valueOf(Math.abs(arg.checkdouble()));
- case 1: return valueOf(Math.ceil(arg.checkdouble()));
- case 2: return valueOf(Math.cos(arg.checkdouble()));
- case 3: return valueOf(Math.toDegrees(arg.checkdouble()));
- case 4: return dpow(Math.E,arg.checkdouble());
- case 5: return valueOf(Math.floor(arg.checkdouble()));
- case 6: return valueOf(Math.toRadians(arg.checkdouble()));
- case 7: return valueOf(Math.sin(arg.checkdouble()));
- case 8: return valueOf(Math.sqrt(arg.checkdouble()));
- case 9: return valueOf(Math.tan(arg.checkdouble()));
- }
- return NIL;
- }
- }
-
- static final class MathLib2 extends TwoArgFunction {
- protected MathLib mathlib;
- public LuaValue call(LuaValue arg1, LuaValue arg2) {
- switch ( opcode ) {
- case 0: { // fmod
- double x = arg1.checkdouble();
- double y = arg2.checkdouble();
- double q = x/y;
- double f = x - y * (q>=0? Math.floor(q): Math.ceil(q));
- return valueOf( f );
- }
- case 1: { // ldexp
- double x = arg1.checkdouble();
- double y = arg2.checkdouble()+1023.5;
- long e = (long) ((0!=(1&((int)y)))? Math.floor(y): Math.ceil(y-1));
- return valueOf(x * Double.longBitsToDouble(e << 52));
- }
- case 2: { // pow
- return dpow(arg1.checkdouble(), arg2.checkdouble());
- }
- }
- return NIL;
- }
- }
-
- /** compute power using installed math library, or default if there is no math library installed */
- public static LuaValue dpow(double a, double b) {
- return LuaDouble.valueOf(
- MATHLIB!=null?
- MATHLIB.dpow_lib(a,b):
- dpow_default(a,b) );
- }
- public static double dpow_d(double a, double b) {
- return MATHLIB!=null?
- MATHLIB.dpow_lib(a,b):
- dpow_default(a,b);
- }
-
- /**
- * Hook to override default dpow behavior with faster implementation.
- */
- public double dpow_lib(double a, double b) {
- return dpow_default(a,b);
- }
-
- /**
- * Default JME version computes using longhand heuristics.
- */
- protected static double dpow_default(double a, double b) {
- if ( b < 0 )
- return 1 / dpow_default( a, -b );
- double p = 1;
- int whole = (int) b;
- for ( double v=a; whole > 0; whole>>=1, v*=v )
- if ( (whole & 1) != 0 )
- p *= v;
- if ( (b -= whole) > 0 ) {
- int frac = (int) (0x10000 * b);
- for ( ; (frac&0xffff)!=0; frac<<=1 ) {
- a = Math.sqrt(a);
- if ( (frac & 0x8000) != 0 )
- p *= a;
- }
- }
- return p;
- }
-
- static final class MathLibV extends VarArgFunction {
- protected MathLib mathlib;
- public Varargs invoke(Varargs args) {
- switch ( opcode ) {
- case 0: { // frexp
- double x = args.checkdouble(1);
- if ( x == 0 ) return varargsOf(ZERO,ZERO);
- long bits = Double.doubleToLongBits( x );
- double m = ((bits & (~(-1L<<52))) + (1L<<52)) * ((bits >= 0)? (.5 / (1L<<52)): (-.5 / (1L<<52)));
- double e = (((int) (bits >> 52)) & 0x7ff) - 1022;
- return varargsOf( valueOf(m), valueOf(e) );
- }
- case 1: { // max
- double m = args.checkdouble(1);
- for ( int i=2,n=args.narg(); i<=n; ++i )
- m = Math.max(m,args.checkdouble(i));
- return valueOf(m);
- }
- case 2: { // min
- double m = args.checkdouble(1);
- for ( int i=2,n=args.narg(); i<=n; ++i )
- m = Math.min(m,args.checkdouble(i));
- return valueOf(m);
- }
- case 3: { // modf
- double x = args.checkdouble(1);
- double intPart = ( x > 0 ) ? Math.floor( x ) : Math.ceil( x );
- double fracPart = x - intPart;
- return varargsOf( valueOf(intPart), valueOf(fracPart) );
- }
- case 4: { // randomseed
- long seed = args.checklong(1);
- mathlib.random = new Random(seed);
- return NONE;
- }
- case 5: { // random
- if ( mathlib.random == null )
- mathlib.random = new Random();
-
- switch ( args.narg() ) {
- case 0:
- return valueOf( mathlib.random.nextDouble() );
- case 1: {
- int m = args.checkint(1);
- if (m<1) argerror(1, "interval is empty");
- return valueOf( 1 + mathlib.random.nextInt(m) );
- }
- default: {
- int m = args.checkint(1);
- int n = args.checkint(2);
- if (n
- * If more than one argument are required, or no arguments are required,
- * or variable argument or variable return values,
- * then use one of the related function
- * {@link ZeroArgFunction}, {@link TwoArgFunction}, {@link ThreeArgFunction}, or {@link VarArgFunction}.
- *
- * See {@link LibFunction} for more information on implementation libraries and library functions.
- * @see #call(LuaValue)
- * @see LibFunction
- * @see ZeroArgFunction
- * @see TwoArgFunction
- * @see ThreeArgFunction
- * @see VarArgFunction
- */
-abstract public class OneArgFunction extends LibFunction {
-
- abstract public LuaValue call(LuaValue arg);
-
- /** Default constructor */
- public OneArgFunction() {
- }
-
- /** Constructor with specific environment
- * @param env The environment to apply during constructon.
- */
- public OneArgFunction( LuaValue env ) {
- this.env = env;
- }
-
- public final LuaValue call() {
- return call(NIL);
- }
-
- public final LuaValue call(LuaValue arg1, LuaValue arg2) {
- return call(arg1);
- }
-
- public LuaValue call(LuaValue arg1, LuaValue arg2, LuaValue arg3) {
- return call(arg1);
- }
-
- public Varargs invoke(Varargs varargs) {
- return call(varargs.arg1());
- }
-}
diff --git a/luaj-2.0.3/src/core/org/luaj/vm2/lib/OsLib.java b/luaj-2.0.3/src/core/org/luaj/vm2/lib/OsLib.java
deleted file mode 100644
index 77c931542..000000000
--- a/luaj-2.0.3/src/core/org/luaj/vm2/lib/OsLib.java
+++ /dev/null
@@ -1,323 +0,0 @@
-/*******************************************************************************
-* Copyright (c) 2009 Luaj.org. All rights reserved.
-*
-* Permission is hereby granted, free of charge, to any person obtaining a copy
-* of this software and associated documentation files (the "Software"), to deal
-* in the Software without restriction, including without limitation the rights
-* to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
-* copies of the Software, and to permit persons to whom the Software is
-* furnished to do so, subject to the following conditions:
-*
-* The above copyright notice and this permission notice shall be included in
-* all copies or substantial portions of the Software.
-*
-* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
-* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
-* AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
-* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
-* OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
-* THE SOFTWARE.
-******************************************************************************/
-package org.luaj.vm2.lib;
-
-import java.io.IOException;
-
-import org.luaj.vm2.LuaTable;
-import org.luaj.vm2.LuaValue;
-import org.luaj.vm2.Varargs;
-
-/**
- * Subclass of {@link LibFunction} which implements the standard lua {@code os} library.
- *
- * It is a usable base with simplified stub functions
- * for library functions that cannot be implemented uniformly
- * on Jse and Jme.
- *
- * This can be installed as-is on either platform, or extended
- * and refined to be used in a complete Jse implementation.
- *
- * Because the nature of the {@code os} library is to encapsulate
- * os-specific features, the behavior of these functions varies considerably
- * from their counterparts in the C platform.
- *
- * The following functions have limited implementations of features
- * that are not supported well on Jme:
- *
- * Typically, this library is included as part of a call to either
- * {@link JmePlatform#standardGlobals()}
- *
- * To instantiate and use it directly,
- * link it into your globals table via {@link LuaValue#load(LuaValue)} using code such as:
- *
- * @see LibFunction
- * @see JseOsLib
- * @see JsePlatform
- * @see JmePlatform
- * @see http://www.lua.org/manual/5.1/manual.html#5.8
- */
-public class OsLib extends VarArgFunction {
- public static String TMP_PREFIX = ".luaj";
- public static String TMP_SUFFIX = "tmp";
-
- private static final int INIT = 0;
- private static final int CLOCK = 1;
- private static final int DATE = 2;
- private static final int DIFFTIME = 3;
- private static final int EXECUTE = 4;
- private static final int EXIT = 5;
- private static final int GETENV = 6;
- private static final int REMOVE = 7;
- private static final int RENAME = 8;
- private static final int SETLOCALE = 9;
- private static final int TIME = 10;
- private static final int TMPNAME = 11;
-
- private static final String[] NAMES = {
- "clock",
- "date",
- "difftime",
- "execute",
- "exit",
- "getenv",
- "remove",
- "rename",
- "setlocale",
- "time",
- "tmpname",
- };
-
- private static final long t0 = System.currentTimeMillis();
- private static long tmpnames = t0;
-
- /**
- * Create and OsLib instance.
- */
- public OsLib() {
- }
-
- public LuaValue init() {
- LuaTable t = new LuaTable();
- bind(t, this.getClass(), NAMES, CLOCK);
- env.set("os", t);
- PackageLib.instance.LOADED.set("os", t);
- return t;
- }
-
- public Varargs invoke(Varargs args) {
- try {
- switch ( opcode ) {
- case INIT:
- return init();
- case CLOCK:
- return valueOf(clock());
- case DATE: {
- String s = args.optjstring(1, null);
- double t = args.optdouble(2,-1);
- return valueOf( date(s, t==-1? System.currentTimeMillis()/1000.: t) );
- }
- case DIFFTIME:
- return valueOf(difftime(args.checkdouble(1),args.checkdouble(2)));
- case EXECUTE:
- return valueOf(execute(args.optjstring(1, null)));
- case EXIT:
- exit(args.optint(1, 0));
- return NONE;
- case GETENV: {
- final String val = getenv(args.checkjstring(1));
- return val!=null? valueOf(val): NIL;
- }
- case REMOVE:
- remove(args.checkjstring(1));
- return LuaValue.TRUE;
- case RENAME:
- rename(args.checkjstring(1), args.checkjstring(2));
- return LuaValue.TRUE;
- case SETLOCALE: {
- String s = setlocale(args.optjstring(1,null), args.optjstring(2, "all"));
- return s!=null? valueOf(s): NIL;
- }
- case TIME:
- return valueOf(time(args.arg1().isnil()? null: args.checktable(1)));
- case TMPNAME:
- return valueOf(tmpname());
- }
- return NONE;
- } catch ( IOException e ) {
- return varargsOf(NIL, valueOf(e.getMessage()));
- }
- }
-
- /**
- * @return an approximation of the amount in seconds of CPU time used by
- * the program.
- */
- protected double clock() {
- return (System.currentTimeMillis()-t0) / 1000.;
- }
-
- /**
- * Returns the number of seconds from time t1 to time t2.
- * In POSIX, Windows, and some other systems, this value is exactly t2-t1.
- * @param t2
- * @param t1
- * @return diffeence in time values, in seconds
- */
- protected double difftime(double t2, double t1) {
- return t2 - t1;
- }
-
- /**
- * If the time argument is present, this is the time to be formatted
- * (see the os.time function for a description of this value).
- * Otherwise, date formats the current time.
- *
- * If format starts with '!', then the date is formatted in Coordinated
- * Universal Time. After this optional character, if format is the string
- * "*t", then date returns a table with the following fields: year
- * (four digits), month (1--12), day (1--31), hour (0--23), min (0--59),
- * sec (0--61), wday (weekday, Sunday is 1), yday (day of the year),
- * and isdst (daylight saving flag, a boolean).
- *
- * If format is not "*t", then date returns the date as a string,
- * formatted according to the same rules as the C function strftime.
- *
- * When called without arguments, date returns a reasonable date and
- * time representation that depends on the host system and on the
- * current locale (that is, os.date() is equivalent to os.date("%c")).
- *
- * @param format
- * @param time time since epoch, or -1 if not supplied
- * @return a LString or a LTable containing date and time,
- * formatted according to the given string format.
- */
- protected String date(String format, double time) {
- return new java.util.Date((long)(time*1000)).toString();
- }
-
- /**
- * This function is equivalent to the C function system.
- * It passes command to be executed by an operating system shell.
- * It returns a status code, which is system-dependent.
- * If command is absent, then it returns nonzero if a shell
- * is available and zero otherwise.
- * @param command command to pass to the system
- */
- protected int execute(String command) {
- return 0;
- }
-
- /**
- * Calls the C function exit, with an optional code, to terminate the host program.
- * @param code
- */
- protected void exit(int code) {
- /* DAN200 START */
- //System.exit(code);
- /* DAN200 END */
- }
-
- /**
- * Returns the value of the process environment variable varname,
- * or null if the variable is not defined.
- * @param varname
- * @return String value, or null if not defined
- */
- protected String getenv(String varname) {
- return System.getProperty(varname);
- }
-
- /**
- * Deletes the file or directory with the given name.
- * Directories must be empty to be removed.
- * If this function fails, it throws and IOException
- *
- * @param filename
- * @throws IOException if it fails
- */
- protected void remove(String filename) throws IOException {
- throw new IOException( "not implemented" );
- }
-
- /**
- * Renames file or directory named oldname to newname.
- * If this function fails,it throws and IOException
- *
- * @param oldname old file name
- * @param newname new file name
- * @throws IOException if it fails
- */
- protected void rename(String oldname, String newname) throws IOException {
- throw new IOException( "not implemented" );
- }
-
- /**
- * Sets the current locale of the program. locale is a string specifying
- * a locale; category is an optional string describing which category to change:
- * "all", "collate", "ctype", "monetary", "numeric", or "time"; the default category
- * is "all".
- *
- * If locale is the empty string, the current locale is set to an implementation-
- * defined native locale. If locale is the string "C", the current locale is set
- * to the standard C locale.
- *
- * When called with null as the first argument, this function only returns the
- * name of the current locale for the given category.
- *
- * @param locale
- * @param category
- * @return the name of the new locale, or null if the request
- * cannot be honored.
- */
- protected String setlocale(String locale, String category) {
- return "C";
- }
-
- /**
- * Returns the current time when called without arguments,
- * or a time representing the date and time specified by the given table.
- * This table must have fields year, month, and day,
- * and may have fields hour, min, sec, and isdst
- * (for a description of these fields, see the os.date function).
- * @param table
- * @return long value for the time
- */
- protected long time(LuaTable table) {
- return System.currentTimeMillis();
- }
-
- /**
- * Returns a string with a file name that can be used for a temporary file.
- * The file must be explicitly opened before its use and explicitly removed
- * when no longer needed.
- *
- * On some systems (POSIX), this function also creates a file with that name,
- * to avoid security risks. (Someone else might create the file with wrong
- * permissions in the time between getting the name and creating the file.)
- * You still have to open the file to use it and to remove it (even if you
- * do not use it).
- *
- * @return String filename to use
- */
- protected String tmpname() {
- synchronized ( OsLib.class ) {
- return TMP_PREFIX+(tmpnames++)+TMP_SUFFIX;
- }
- }
-}
diff --git a/luaj-2.0.3/src/core/org/luaj/vm2/lib/PackageLib.java b/luaj-2.0.3/src/core/org/luaj/vm2/lib/PackageLib.java
deleted file mode 100644
index 256c25195..000000000
--- a/luaj-2.0.3/src/core/org/luaj/vm2/lib/PackageLib.java
+++ /dev/null
@@ -1,466 +0,0 @@
-/*******************************************************************************
-* Copyright (c) 2010-2011 Luaj.org. All rights reserved.
-*
-* Permission is hereby granted, free of charge, to any person obtaining a copy
-* of this software and associated documentation files (the "Software"), to deal
-* in the Software without restriction, including without limitation the rights
-* to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
-* copies of the Software, and to permit persons to whom the Software is
-* furnished to do so, subject to the following conditions:
-*
-* The above copyright notice and this permission notice shall be included in
-* all copies or substantial portions of the Software.
-*
-* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
-* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
-* AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
-* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
-* OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
-* THE SOFTWARE.
-******************************************************************************/
-package org.luaj.vm2.lib;
-
-import java.io.InputStream;
-import java.io.PrintStream;
-
-import org.luaj.vm2.LuaFunction;
-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;
-
-/**
- * Subclass of {@link LibFunction} which implements the lua standard package and module
- * library functions.
- *
- *
- * Typically, this library is included as part of a call to either
- * {@link JsePlatform#standardGlobals()} or {@link JmePlatform#standardGlobals()}
- *
- * To instantiate and use it directly,
- * link it into your globals table via {@link LuaValue#load(LuaValue)} using code such as:
- *
- * This has been implemented to match as closely as possible the behavior in the corresponding library in C.
- * However, the default filesystem search semantics are different and delegated to the bas library
- * as outlined in the {@link BaseLib} and {@link JseBaseLib} documetnation.
- * @see LibFunction
- * @see BaseLib
- * @see JseBaseLib
- * @see JsePlatform
- * @see JmePlatform
- * @see http://www.lua.org/manual/5.1/manual.html#5.3
- */
-public class PackageLib extends OneArgFunction {
-
- public static String DEFAULT_LUA_PATH = "?.lua";
-
- public InputStream STDIN = null;
- public PrintStream STDOUT = System.out;
- public LuaTable LOADED;
- public LuaTable PACKAGE;
-
- /** Most recent instance of PackageLib */
- public static PackageLib instance;
-
- /** Loader that loads from preload table if found there */
- public LuaValue preload_loader;
-
- /** Loader that loads as a lua script using the LUA_PATH */
- public LuaValue lua_loader;
-
- /** Loader that loads as a Java class. Class must have public constructor and be a LuaValue */
- public LuaValue java_loader;
-
- private static final LuaString _M = valueOf("_M");
- private static final LuaString _NAME = valueOf("_NAME");
- private static final LuaString _PACKAGE = valueOf("_PACKAGE");
- private static final LuaString _DOT = valueOf(".");
- private static final LuaString _LOADERS = valueOf("loaders");
- private static final LuaString _LOADED = valueOf("loaded");
- private static final LuaString _LOADLIB = valueOf("loadlib");
- private static final LuaString _PRELOAD = valueOf("preload");
- private static final LuaString _PATH = valueOf("path");
- private static final LuaString _SEEALL = valueOf("seeall");
- private static final LuaString _SENTINEL = valueOf("\u0001");
-
- private static final int OP_MODULE = 0;
- private static final int OP_REQUIRE = 1;
- private static final int OP_LOADLIB = 2;
- private static final int OP_SEEALL = 3;
- private static final int OP_PRELOAD_LOADER = 4;
- private static final int OP_LUA_LOADER = 5;
- private static final int OP_JAVA_LOADER = 6;
-
- public PackageLib() {
- instance = this;
- }
-
- public LuaValue call(LuaValue arg) {
- env.set("require", new PkgLib1(env,"require",OP_REQUIRE,this));
- env.set("module", new PkgLibV(env,"module",OP_MODULE,this));
- env.set( "package", PACKAGE=tableOf( new LuaValue[] {
- _LOADED, LOADED=tableOf(),
- _PRELOAD, tableOf(),
- _PATH, valueOf(DEFAULT_LUA_PATH),
- _LOADLIB, new PkgLibV(env,"loadlib",OP_LOADLIB,this),
- _SEEALL, new PkgLib1(env,"seeall",OP_SEEALL,this),
- _LOADERS, listOf(new LuaValue[] {
- preload_loader = new PkgLibV(env,"preload_loader", OP_PRELOAD_LOADER,this),
- lua_loader = new PkgLibV(env,"lua_loader", OP_LUA_LOADER,this),
- java_loader = new PkgLibV(env,"java_loader", OP_JAVA_LOADER,this),
- }) }) );
- LOADED.set("package", PACKAGE);
- return env;
- }
-
- static final class PkgLib1 extends OneArgFunction {
- PackageLib lib;
- public PkgLib1(LuaValue env,String name, int opcode, PackageLib lib) {
- this.env = env;
- this.name = name;
- this.opcode = opcode;
- this.lib = lib;
- }
- public LuaValue call(LuaValue arg) {
- switch ( opcode ) {
- case OP_REQUIRE:
- return lib.require(arg);
- case OP_SEEALL: {
- LuaTable t = arg.checktable();
- LuaValue m = t.getmetatable();
- if ( m == null )
- t.setmetatable(m=tableOf());
- m.set( INDEX, LuaThread.getGlobals() );
- return NONE;
- }
- }
- return NIL;
- }
- }
-
- static final class PkgLibV extends VarArgFunction {
- PackageLib lib;
- public PkgLibV(LuaValue env,String name, int opcode, PackageLib lib) {
- this.env = env;
- this.name = name;
- this.opcode = opcode;
- this.lib = lib;
- }
- public Varargs invoke(Varargs args) {
- switch ( opcode ) {
- case OP_MODULE:
- return lib.module(args);
- case OP_LOADLIB:
- return loadlib(args);
- case OP_PRELOAD_LOADER: {
- return lib.loader_preload(args);
- }
- case OP_LUA_LOADER: {
- return lib.loader_Lua(args);
- }
- case OP_JAVA_LOADER: {
- return lib.loader_Java(args);
- }
- }
- return NONE;
- }
- }
-
- /** Allow packages to mark themselves as loaded */
- public void setIsLoaded(String name, LuaTable value) {
- LOADED.set(name, value);
- }
-
- public void setLuaPath( String newLuaPath ) {
- PACKAGE.set( _PATH, valueOf(newLuaPath) );
- }
-
- public String tojstring() {
- return "package";
- }
-
-
- // ======================== Module, Package loading =============================
- /**
- * module (name [, ...])
- *
- * Creates a module. If there is a table in package.loaded[name], this table
- * is the module. Otherwise, if there is a global table t with the given
- * name, this table is the module. Otherwise creates a new table t and sets
- * it as the value of the global name and the value of package.loaded[name].
- * This function also initializes t._NAME with the given name, t._M with the
- * module (t itself), and t._PACKAGE with the package name (the full module
- * name minus last component; see below). Finally, module sets t as the new
- * environment of the current function and the new value of
- * package.loaded[name], so that require returns t.
- *
- * If name is a compound name (that is, one with components separated by
- * dots), module creates (or reuses, if they already exist) tables for each
- * component. For instance, if name is a.b.c, then module stores the module
- * table in field c of field b of global a.
- *
- * This function may receive optional options after the module name, where
- * each option is a function to be applied over the module.
- */
- public Varargs module(Varargs args) {
- LuaString modname = args.checkstring(1);
- int n = args.narg();
- LuaValue value = LOADED.get(modname);
- LuaValue module;
- if ( ! value.istable() ) { /* not found? */
-
- /* try global variable (and create one if it does not exist) */
- LuaValue globals = LuaThread.getGlobals();
- module = findtable( globals, modname );
- if ( module == null )
- error( "name conflict for module '"+modname+"'" );
- LOADED.set(modname, module);
- } else {
- module = (LuaTable) value;
- }
-
-
- /* check whether table already has a _NAME field */
- LuaValue name = module.get(_NAME);
- if ( name.isnil() ) {
- modinit( module, modname );
- }
-
- // set the environment of the current function
- LuaFunction f = LuaThread.getCallstackFunction(1);
- if ( f == null )
- error("no calling function");
- if ( ! f.isclosure() )
- error("'module' not called from a Lua function");
- f.setfenv(module);
-
- // apply the functions
- for ( int i=2; i<=n; i++ )
- args.arg(i).call( module );
-
- // returns no results
- return NONE;
- }
-
- /**
- *
- * @param table the table at which to start the search
- * @param fname the name to look up or create, such as "abc.def.ghi"
- * @return the table for that name, possible a new one, or null if a non-table has that name already.
- */
- private static final LuaValue findtable(LuaValue table, LuaString fname) {
- int b, e=(-1);
- do {
- e = fname.indexOf(_DOT, b=e+1 );
- if ( e < 0 )
- e = fname.m_length;
- LuaString key = fname.substring(b, e);
- LuaValue val = table.rawget(key);
- if ( val.isnil() ) { /* no such field? */
- LuaTable field = new LuaTable(); /* new table for field */
- table.set(key, field);
- table = field;
- } else if ( ! val.istable() ) { /* field has a non-table value? */
- return null;
- } else {
- table = val;
- }
- } while ( e < fname.m_length );
- return table;
- }
-
- private static final void modinit(LuaValue module, LuaString modname) {
- /* module._M = module */
- module.set(_M, module);
- int e = modname.lastIndexOf(_DOT);
- module.set(_NAME, modname );
- module.set(_PACKAGE, (e<0? EMPTYSTRING: modname.substring(0,e+1)) );
- }
-
- /**
- * require (modname)
- *
- * Loads the given module. The function starts by looking into the package.loaded table to
- * determine whether modname is already loaded. If it is, then require returns the value
- * stored at package.loaded[modname]. Otherwise, it tries to find a loader for the module.
- *
- * To find a loader, require is guided by the package.loaders array. By changing this array,
- * we can change how require looks for a module. The following explanation is based on the
- * default configuration for package.loaders.
- *
- * First require queries package.preload[modname]. If it has a value, this value
- * (which should be a function) is the loader. Otherwise require searches for a Lua loader
- * using the path stored in package.path. If that also fails, it searches for a C loader
- * using the path stored in package.cpath. If that also fails, it tries an all-in-one loader
- * (see package.loaders).
- *
- * Once a loader is found, require calls the loader with a single argument, modname.
- * If the loader returns any value, require assigns the returned value to package.loaded[modname].
- * If the loader returns no value and has not assigned any value to package.loaded[modname],
- * then require assigns true to this entry. In any case, require returns the final value of
- * package.loaded[modname].
- *
- * If there is any error loading or running the module, or if it cannot find any loader for
- * the module, then require signals an error.
- */
- public LuaValue require( LuaValue arg ) {
- LuaString name = arg.checkstring();
- LuaValue loaded = LOADED.get(name);
- if ( loaded.toboolean() ) {
- if ( loaded == _SENTINEL )
- error("loop or previous error loading module '"+name+"'");
- return loaded;
- }
-
- /* else must load it; iterate over available loaders */
- LuaTable tbl = PACKAGE.get(_LOADERS).checktable();
- StringBuffer sb = new StringBuffer();
- LuaValue chunk = null;
- for ( int i=1; true; i++ ) {
- LuaValue loader = tbl.get(i);
- if ( loader.isnil() ) {
- error( "module '"+name+"' not found: "+name+sb );
- }
-
- /* call loader with module name as argument */
- chunk = loader.call(name);
- if ( chunk.isfunction() )
- break;
- if ( chunk.isstring() )
- sb.append( chunk.tojstring() );
- }
-
- // load the module using the loader
- LOADED.set(name, _SENTINEL);
- LuaValue result = chunk.call(name);
- if ( ! result.isnil() )
- LOADED.set( name, result );
- else if ( (result = LOADED.get(name)) == _SENTINEL )
- LOADED.set( name, result = LuaValue.TRUE );
- return result;
- }
-
- public static Varargs loadlib( Varargs args ) {
- args.checkstring(1);
- return varargsOf(NIL, valueOf("dynamic libraries not enabled"), valueOf("absent"));
- }
-
- LuaValue loader_preload( Varargs args ) {
- LuaString name = args.checkstring(1);
- LuaValue preload = PACKAGE.get(_PRELOAD).checktable();
- LuaValue val = preload.get(name);
- return val.isnil()?
- valueOf("\n\tno field package.preload['"+name+"']"):
- val;
- }
-
- LuaValue loader_Lua( Varargs args ) {
- String name = args.checkjstring(1);
- InputStream is = null;
-
-
- // get package path
- LuaValue pp = PACKAGE.get(_PATH);
- if ( ! pp.isstring() )
- return valueOf("package.path is not a string");
- String path = pp.tojstring();
-
- // check the path elements
- int e = -1;
- int n = path.length();
- StringBuffer sb = null;
- name = name.replace('.','/');
- while ( e < n ) {
-
- // find next template
- int b = e+1;
- e = path.indexOf(';',b);
- if ( e < 0 )
- e = path.length();
- String template = path.substring(b,e);
-
- // create filename
- int q = template.indexOf('?');
- String filename = template;
- if ( q >= 0 ) {
- filename = template.substring(0,q) + name + template.substring(q+1);
- }
-
- // try loading the file
- Varargs v = BaseLib.loadFile(filename);
- if ( v.arg1().isfunction() )
- return v.arg1();
-
- // report error
- if ( sb == null )
- sb = new StringBuffer();
- sb.append( "\n\t'"+filename+"': "+v.arg(2) );
- }
- return valueOf(sb.toString());
- }
-
- LuaValue loader_Java( Varargs args ) {
- String name = args.checkjstring(1);
- String classname = toClassname( name );
- Class c = null;
- LuaValue v = null;
- try {
- c = Class.forName(classname);
- v = (LuaValue) c.newInstance();
- v.setfenv(env);
- return v;
- } catch ( ClassNotFoundException cnfe ) {
- return valueOf("\n\tno class '"+classname+"'" );
- } catch ( Exception e ) {
- return valueOf("\n\tjava load failed on '"+classname+"', "+e );
- }
- }
-
- /** Convert lua filename to valid class name */
- public static final String toClassname( String filename ) {
- int n=filename.length();
- int j=n;
- if ( filename.endsWith(".lua") )
- j -= 4;
- for ( int k=0; k
- * This is used by required to load files that are part of
- * the application, and implemented by BaseLib
- * for both the Jme and Jse platforms.
- *
- * The Jme version of base lib {@link BaseLib}
- * implements {@link BaseLib#FINDER} via {@link Class#getResourceAsStream(String)},
- * while the Jse version {@link JseBaseLib} implements it using {@link java.io.File#File(String)}.
- *
- * The io library does not use this API for file manipulation.
- *
- * @see BaseLib
- * @see BaseLib#FINDER
- * @see JseBaseLib
- * @see JmePlatform
- * @see JsePlatform
- */
-public interface ResourceFinder {
-
- /**
- * Try to open a file, or return null if not found.
- *
- * @see org.luaj.vm2.lib.BaseLib
- * @see org.luaj.vm2.lib.jse.JseBaseLib
- *
- * @param filename
- * @return InputStream, or null if not found.
- */
- public InputStream findResource( String filename );
-}
\ No newline at end of file
diff --git a/luaj-2.0.3/src/core/org/luaj/vm2/lib/StringLib.java b/luaj-2.0.3/src/core/org/luaj/vm2/lib/StringLib.java
deleted file mode 100644
index d7bc7cd90..000000000
--- a/luaj-2.0.3/src/core/org/luaj/vm2/lib/StringLib.java
+++ /dev/null
@@ -1,1190 +0,0 @@
-/*******************************************************************************
-* Copyright (c) 2009-2011 Luaj.org. All rights reserved.
-*
-* Permission is hereby granted, free of charge, to any person obtaining a copy
-* of this software and associated documentation files (the "Software"), to deal
-* in the Software without restriction, including without limitation the rights
-* to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
-* copies of the Software, and to permit persons to whom the Software is
-* furnished to do so, subject to the following conditions:
-*
-* The above copyright notice and this permission notice shall be included in
-* all copies or substantial portions of the Software.
-*
-* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
-* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
-* AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
-* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
-* OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
-* THE SOFTWARE.
-******************************************************************************/
-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.LuaString;
-import org.luaj.vm2.LuaTable;
-import org.luaj.vm2.LuaValue;
-import org.luaj.vm2.Varargs;
-import org.luaj.vm2.compiler.DumpState;
-
-/**
- * Subclass of {@link LibFunction} which implements the lua standard {@code string}
- * library.
- *
- *
- * Typically, this library is included as part of a call to either
- * {@link JsePlatform#standardGlobals()} or {@link JmePlatform#standardGlobals()}
- *
- * To instantiate and use it directly,
- * link it into your globals table via {@link LuaValue#load(LuaValue)} using code such as:
- *
- * This is a direct port of the corresponding library in C.
- * @see LibFunction
- * @see JsePlatform
- * @see JmePlatform
- * @see http://www.lua.org/manual/5.1/manual.html#5.4
- */
-public class StringLib extends OneArgFunction {
-
- public static LuaTable instance;
-
- public StringLib() {
- }
-
- public LuaValue call(LuaValue arg) {
- LuaTable t = new LuaTable();
- bind(t, StringLib1.class, new String[] {
- "dump", "len", "lower", "reverse", "upper", } );
- bind(t, StringLibV.class, new String[] {
- "byte", "char", "find", "format",
- "gmatch", "gsub", "match", "rep",
- "sub"} );
- env.set("string", t);
- instance = t;
- if ( LuaString.s_metatable == null )
- LuaString.s_metatable = tableOf( new LuaValue[] { INDEX, t } );
- PackageLib.instance.LOADED.set("string", t);
- return t;
- }
-
- static final class StringLib1 extends OneArgFunction {
- public LuaValue call(LuaValue arg) {
- switch ( opcode ) {
- case 0: return dump(arg); // dump (function)
- case 1: return StringLib.len(arg); // len (function)
- case 2: return lower(arg); // lower (function)
- case 3: return reverse(arg); // reverse (function)
- case 4: return upper(arg); // upper (function)
- }
- return NIL;
- }
- }
-
- static final class StringLibV extends VarArgFunction {
- public Varargs invoke(Varargs args) {
- switch ( opcode ) {
- case 0: return StringLib.byte_( args );
- case 1: return StringLib.char_( args );
- case 2: return StringLib.find( args );
- case 3: return StringLib.format( args );
- case 4: return StringLib.gmatch( args );
- case 5: return StringLib.gsub( args );
- case 6: return StringLib.match( args );
- case 7: return StringLib.rep( args );
- case 8: return StringLib.sub( args );
- }
- return NONE;
- }
- }
-
- /**
- * string.byte (s [, i [, j]])
- *
- * Returns the internal numerical codes of the
- * characters s[i], s[i+1], ..., s[j]. The default value for i is 1; the
- * default value for j is i.
- *
- * Note that numerical codes are not necessarily portable across platforms.
- *
- * @param args the calling args
- */
- static Varargs byte_( Varargs args ) {
- LuaString s = args.checkstring(1);
- int l = s.m_length;
- int posi = posrelat( args.optint(2,1), l );
- int pose = posrelat( args.optint(3,posi), l );
- int n,i;
- if (posi <= 0) posi = 1;
- if (pose > l) pose = l;
- if (posi > pose) return NONE; /* empty interval; return no values */
- n = (int)(pose - posi + 1);
- if (posi + n <= pose) /* overflow? */
- error("string slice too long");
- LuaValue[] v = new LuaValue[n];
- for (i=0; i
- * Typically, this library is included as part of a call to either
- * {@link JsePlatform#standardGlobals()} or {@link JmePlatform#standardGlobals()}
- *
- * To instantiate and use it directly,
- * link it into your globals table via {@link LuaValue#load(LuaValue)} using code such as:
- *
- * This has been implemented to match as closely as possible the behavior in the corresponding library in C.
- * @see LibFunction
- * @see JsePlatform
- * @see JmePlatform
- * @see http://www.lua.org/manual/5.1/manual.html#5.5
- */
-public class TableLib extends OneArgFunction {
-
- public TableLib() {
- }
-
- private LuaTable init() {
- LuaTable t = new LuaTable();
- bind(t, TableLib.class, new String[] { "getn", "maxn", }, 1 );
- bind(t, TableLibV.class, new String[] {
- "remove", "concat", "insert", "sort", "foreach", "foreachi", } );
- env.set("table", t);
- PackageLib.instance.LOADED.set("table", t);
- return t;
- }
-
- public LuaValue call(LuaValue arg) {
- switch ( opcode ) {
- case 0: // init library
- return init();
- case 1: // "getn" (table) -> number
- return arg.checktable().getn();
- case 2: // "maxn" (table) -> number
- return valueOf( arg.checktable().maxn());
- }
- return NIL;
- }
-
- static final class TableLibV extends VarArgFunction {
- public Varargs invoke(Varargs args) {
- switch ( opcode ) {
- case 0: { // "remove" (table [, pos]) -> removed-ele
- LuaTable table = args.checktable(1);
- int pos = args.narg()>1? args.checkint(2): 0;
- return table.remove(pos);
- }
- case 1: { // "concat" (table [, sep [, i [, j]]]) -> string
- LuaTable table = args.checktable(1);
- return table.concat(
- args.optstring(2,LuaValue.EMPTYSTRING),
- args.optint(3,1),
- args.isvalue(4)? args.checkint(4): table.length() );
- }
- case 2: { // "insert" (table, [pos,] value) -> prev-ele
- final LuaTable table = args.checktable(1);
- final int pos = args.narg()>2? args.checkint(2): 0;
- final LuaValue value = args.arg( args.narg()>2? 3: 2 );
- table.insert( pos, value );
- return NONE;
- }
- case 3: { // "sort" (table [, comp]) -> void
- LuaTable table = args.checktable(1);
- LuaValue compare = (args.isnoneornil(2)? NIL: args.checkfunction(2));
- table.sort( compare );
- return NONE;
- }
- case 4: { // (table, func) -> void
- return args.checktable(1).foreach( args.checkfunction(2) );
- }
- case 5: { // "foreachi" (table, func) -> void
- return args.checktable(1).foreachi( args.checkfunction(2) );
- }
- }
- return NONE;
- }
- }
-}
diff --git a/luaj-2.0.3/src/core/org/luaj/vm2/lib/ThreeArgFunction.java b/luaj-2.0.3/src/core/org/luaj/vm2/lib/ThreeArgFunction.java
deleted file mode 100644
index d958d7261..000000000
--- a/luaj-2.0.3/src/core/org/luaj/vm2/lib/ThreeArgFunction.java
+++ /dev/null
@@ -1,80 +0,0 @@
-/*******************************************************************************
-* Copyright (c) 2009 Luaj.org. All rights reserved.
-*
-* Permission is hereby granted, free of charge, to any person obtaining a copy
-* of this software and associated documentation files (the "Software"), to deal
-* in the Software without restriction, including without limitation the rights
-* to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
-* copies of the Software, and to permit persons to whom the Software is
-* furnished to do so, subject to the following conditions:
-*
-* The above copyright notice and this permission notice shall be included in
-* all copies or substantial portions of the Software.
-*
-* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
-* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
-* AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
-* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
-* OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
-* THE SOFTWARE.
-******************************************************************************/
-package org.luaj.vm2.lib;
-
-import org.luaj.vm2.LuaValue;
-import org.luaj.vm2.Varargs;
-
-/** Abstract base class for Java function implementations that take two arguments and
- * return one value.
- *
- * Subclasses need only implement {@link LuaValue#call(LuaValue,LuaValue,LuaValue)} to complete this class,
- * simplifying development.
- * All other uses of {@link #call()}, {@link #invoke(Varargs)},etc,
- * are routed through this method by this class,
- * dropping or extending arguments with {@code nil} values as required.
- *
- * If more or less than three arguments are required,
- * or variable argument or variable return values,
- * then use one of the related function
- * {@link ZeroArgFunction}, {@link OneArgFunction}, {@link TwoArgFunction}, or {@link VarArgFunction}.
- *
- * See {@link LibFunction} for more information on implementation libraries and library functions.
- * @see #call(LuaValue,LuaValue,LuaValue)
- * @see LibFunction
- * @see ZeroArgFunction
- * @see OneArgFunction
- * @see TwoArgFunction
- * @see VarArgFunction
- */
-abstract public class ThreeArgFunction extends LibFunction {
-
- abstract public LuaValue call(LuaValue arg1, LuaValue arg2, LuaValue arg3);
-
- /** Default constructor */
- public ThreeArgFunction() {
- }
-
- /** Constructor with specific environment
- * @param env The environment to apply during constructon.
- */
- public ThreeArgFunction( LuaValue env ) {
- this.env = env;
- }
-
- public final LuaValue call() {
- return call(NIL, NIL, NIL);
- }
-
- public final LuaValue call(LuaValue arg) {
- return call(arg, NIL, NIL);
- }
-
- public LuaValue call(LuaValue arg1, LuaValue arg2) {
- return call(arg1, arg2, NIL);
- }
-
- public Varargs invoke(Varargs varargs) {
- return call(varargs.arg1(),varargs.arg(2),varargs.arg(3));
- }
-
-}
diff --git a/luaj-2.0.3/src/core/org/luaj/vm2/lib/TwoArgFunction.java b/luaj-2.0.3/src/core/org/luaj/vm2/lib/TwoArgFunction.java
deleted file mode 100644
index b2c1b0c75..000000000
--- a/luaj-2.0.3/src/core/org/luaj/vm2/lib/TwoArgFunction.java
+++ /dev/null
@@ -1,80 +0,0 @@
-/*******************************************************************************
-* Copyright (c) 2009 Luaj.org. All rights reserved.
-*
-* Permission is hereby granted, free of charge, to any person obtaining a copy
-* of this software and associated documentation files (the "Software"), to deal
-* in the Software without restriction, including without limitation the rights
-* to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
-* copies of the Software, and to permit persons to whom the Software is
-* furnished to do so, subject to the following conditions:
-*
-* The above copyright notice and this permission notice shall be included in
-* all copies or substantial portions of the Software.
-*
-* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
-* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
-* AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
-* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
-* OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
-* THE SOFTWARE.
-******************************************************************************/
-package org.luaj.vm2.lib;
-
-import org.luaj.vm2.LuaValue;
-import org.luaj.vm2.Varargs;
-
-/** Abstract base class for Java function implementations that take two arguments and
- * return one value.
- *
- * Subclasses need only implement {@link LuaValue#call(LuaValue,LuaValue)} to complete this class,
- * simplifying development.
- * All other uses of {@link #call()}, {@link #invoke(Varargs)},etc,
- * are routed through this method by this class,
- * dropping or extending arguments with {@code nil} values as required.
- *
- * If more or less than two arguments are required,
- * or variable argument or variable return values,
- * then use one of the related function
- * {@link ZeroArgFunction}, {@link OneArgFunction}, {@link ThreeArgFunction}, or {@link VarArgFunction}.
- *
- * See {@link LibFunction} for more information on implementation libraries and library functions.
- * @see #call(LuaValue,LuaValue)
- * @see LibFunction
- * @see ZeroArgFunction
- * @see OneArgFunction
- * @see ThreeArgFunction
- * @see VarArgFunction
- */
-abstract public class TwoArgFunction extends LibFunction {
-
- abstract public LuaValue call(LuaValue arg1, LuaValue arg2);
-
- /** Default constructor */
- public TwoArgFunction() {
- }
-
- /** Constructor with specific environment
- * @param env The environment to apply during constructon.
- */
- public TwoArgFunction( LuaValue env ) {
- this.env = env;
- }
-
- public final LuaValue call() {
- return call(NIL, NIL);
- }
-
- public final LuaValue call(LuaValue arg) {
- return call(arg, NIL);
- }
-
- public LuaValue call(LuaValue arg1, LuaValue arg2, LuaValue arg3) {
- return call(arg1, arg2);
- }
-
- public Varargs invoke(Varargs varargs) {
- return call(varargs.arg1(),varargs.arg(2));
- }
-
-}
diff --git a/luaj-2.0.3/src/core/org/luaj/vm2/lib/VarArgFunction.java b/luaj-2.0.3/src/core/org/luaj/vm2/lib/VarArgFunction.java
deleted file mode 100644
index 9fb07af1a..000000000
--- a/luaj-2.0.3/src/core/org/luaj/vm2/lib/VarArgFunction.java
+++ /dev/null
@@ -1,100 +0,0 @@
-/*******************************************************************************
-* Copyright (c) 2009 Luaj.org. All rights reserved.
-*
-* Permission is hereby granted, free of charge, to any person obtaining a copy
-* of this software and associated documentation files (the "Software"), to deal
-* in the Software without restriction, including without limitation the rights
-* to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
-* copies of the Software, and to permit persons to whom the Software is
-* furnished to do so, subject to the following conditions:
-*
-* The above copyright notice and this permission notice shall be included in
-* all copies or substantial portions of the Software.
-*
-* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
-* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
-* AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
-* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
-* OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
-* THE SOFTWARE.
-******************************************************************************/
-package org.luaj.vm2.lib;
-
-import org.luaj.vm2.LuaThread;
-import org.luaj.vm2.LuaValue;
-import org.luaj.vm2.Varargs;
-
-/** Abstract base class for Java function implementations that takes varaiable arguments and
- * returns multiple return values.
- *
- * Subclasses need only implement {@link LuaValue#invoke(Varargs)} to complete this class,
- * simplifying development.
- * All other uses of {@link #call(LuaValue)}, {@link #invoke()},etc,
- * are routed through this method by this class,
- * converting arguments to {@linnk Varargs} and
- * dropping or extending return values with {@code nil} values as required.
- *
- * If between one and three arguments are required, and only one return value is returned,
- * {@link ZeroArgFunction}, {@link OneArgFunction}, {@link TwoArgFunction}, or {@link ThreeArgFunction}.
- *
- * See {@link LibFunction} for more information on implementation libraries and library functions.
- * @see #invoke(Varargs)
- * @see LibFunction
- * @see ZeroArgFunction
- * @see OneArgFunction
- * @see TwoArgFunction
- * @see ThreeArgFunction
- */
-abstract public class VarArgFunction extends LibFunction {
- public VarArgFunction() {
- }
-
- public VarArgFunction( LuaValue env ) {
- this.env = env;
- }
-
- public LuaValue call() {
- return invoke(NONE).arg1();
- }
-
- public LuaValue call(LuaValue arg) {
- return invoke(arg).arg1();
- }
-
- public LuaValue call(LuaValue arg1, LuaValue arg2) {
- return invoke(varargsOf(arg1,arg2)).arg1();
- }
-
- public LuaValue call(LuaValue arg1, LuaValue arg2, LuaValue arg3) {
- return invoke(varargsOf(arg1,arg2,arg3)).arg1();
- }
-
- /**
- * Override and implement for the best performance.
- * May not have expected behavior for tail calls.
- * Should not be used if either:
- * - function needs to be used as a module
- * - function has a possibility of returning a TailcallVarargs
- * @param args the arguments to the function call.
- */
- public Varargs invoke(Varargs args) {
- LuaThread.CallStack cs = LuaThread.onCall(this);
- try {
- return this.onInvoke(args).eval();
- } finally {
- cs.onReturn();
- }
- }
-
- /**
- * Override to provide a call implementation that runs in an environment
- * that can participate in setfenv, and behaves as expected
- * when returning TailcallVarargs.
- * @param args the arguments to the function call.
- */
- public Varargs onInvoke(Varargs args) {
- return invoke(args);
- }
-
-}
diff --git a/luaj-2.0.3/src/core/org/luaj/vm2/lib/ZeroArgFunction.java b/luaj-2.0.3/src/core/org/luaj/vm2/lib/ZeroArgFunction.java
deleted file mode 100644
index 526d2fede..000000000
--- a/luaj-2.0.3/src/core/org/luaj/vm2/lib/ZeroArgFunction.java
+++ /dev/null
@@ -1,77 +0,0 @@
-/*******************************************************************************
-* Copyright (c) 2009-2011 Luaj.org. All rights reserved.
-*
-* Permission is hereby granted, free of charge, to any person obtaining a copy
-* of this software and associated documentation files (the "Software"), to deal
-* in the Software without restriction, including without limitation the rights
-* to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
-* copies of the Software, and to permit persons to whom the Software is
-* furnished to do so, subject to the following conditions:
-*
-* The above copyright notice and this permission notice shall be included in
-* all copies or substantial portions of the Software.
-*
-* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
-* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
-* AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
-* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
-* OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
-* THE SOFTWARE.
-******************************************************************************/
-package org.luaj.vm2.lib;
-
-import org.luaj.vm2.LuaValue;
-import org.luaj.vm2.Varargs;
-
-/** Abstract base class for Java function implementations that take no arguments and
- * return one value.
- *
- * Subclasses need only implement {@link LuaValue#call()} to complete this class,
- * simplifying development.
- * All other uses of {@link #call(LuaValue)}, {@link #invoke(Varargs)},etc,
- * are routed through this method by this class.
- *
- * If one or more arguments are required, or variable argument or variable return values,
- * then use one of the related function
- * {@link OneArgFunction}, {@link TwoArgFunction}, {@link ThreeArgFunction}, or {@link VarArgFunction}.
- *
- * See {@link LibFunction} for more information on implementation libraries and library functions.
- * @see #call()
- * @see LibFunction
- * @see OneArgFunction
- * @see TwoArgFunction
- * @see ThreeArgFunction
- * @see VarArgFunction
- */
-abstract public class ZeroArgFunction extends LibFunction {
-
- abstract public LuaValue call();
-
- /** Default constructor */
- public ZeroArgFunction() {
- }
-
- /** Constructor with specific environment
- * @param env The environment to apply during constructon.
- */
- public ZeroArgFunction( LuaValue env ) {
- this.env = env;
- }
-
- public LuaValue call(LuaValue arg) {
- return call();
- }
-
- public LuaValue call(LuaValue arg1, LuaValue arg2) {
- return call();
- }
-
- public LuaValue call(LuaValue arg1, LuaValue arg2, LuaValue arg3) {
- return call();
- }
-
- public Varargs invoke(Varargs varargs) {
- return call();
- }
-}
diff --git a/luaj-2.0.3/src/jme/org/luaj/vm2/lib/jme/JmeIoLib.java b/luaj-2.0.3/src/jme/org/luaj/vm2/lib/jme/JmeIoLib.java
deleted file mode 100644
index 1a66df9e2..000000000
--- a/luaj-2.0.3/src/jme/org/luaj/vm2/lib/jme/JmeIoLib.java
+++ /dev/null
@@ -1,227 +0,0 @@
-/*******************************************************************************
-* Copyright (c) 2009-2011 Luaj.org. All rights reserved.
-*
-* Permission is hereby granted, free of charge, to any person obtaining a copy
-* of this software and associated documentation files (the "Software"), to deal
-* in the Software without restriction, including without limitation the rights
-* to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
-* copies of the Software, and to permit persons to whom the Software is
-* furnished to do so, subject to the following conditions:
-*
-* The above copyright notice and this permission notice shall be included in
-* all copies or substantial portions of the Software.
-*
-* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
-* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
-* AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
-* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
-* OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
-* THE SOFTWARE.
-******************************************************************************/
-package org.luaj.vm2.lib.jme;
-
-import java.io.IOException;
-import java.io.InputStream;
-import java.io.OutputStream;
-
-import javax.microedition.io.Connector;
-import javax.microedition.io.StreamConnection;
-
-import org.luaj.vm2.LuaString;
-import org.luaj.vm2.LuaValue;
-import org.luaj.vm2.lib.BaseLib;
-import org.luaj.vm2.lib.IoLib;
-import org.luaj.vm2.lib.LibFunction;
-
-/**
- * Subclass of {@link IoLib} and therefore {@link LibFunction} which implements the lua standard {@code io}
- * library for the JSE platform.
- *
- * The implementation of the is based on CLDC 1.0 and StreamConnection.
- * However, seek is not supported.
- *
- * Typically, this library is included as part of a call to
- * {@link JmePlatform#standardGlobals()}
- *
- * To instantiate and use it directly,
- * link it into your globals table via {@link LuaValue#load(LuaValue)} using code such as:
- *
- * This has been implemented to match as closely as possible the behavior in the corresponding library in C.
- * @see LibFunction
- * @see JsePlatform
- * @see JmePlatform
- * @see IoLib
- * @see JseIoLib
- * @see http://www.lua.org/manual/5.1/manual.html#5.6
- */
-public class JmeIoLib extends IoLib {
-
- public JmeIoLib() {
- super();
- }
-
- protected File wrapStdin() throws IOException {
- return new FileImpl(BaseLib.instance.STDIN);
- }
-
- protected File wrapStdout() throws IOException {
- return new FileImpl(BaseLib.instance.STDOUT);
- }
-
- protected File openFile( String filename, boolean readMode, boolean appendMode, boolean updateMode, boolean binaryMode ) throws IOException {
- String url = "file:///" + filename;
- int mode = readMode? Connector.READ: Connector.READ_WRITE;
- StreamConnection conn = (StreamConnection) Connector.open( url, mode );
- File f = readMode?
- new FileImpl(conn, conn.openInputStream(), null):
- new FileImpl(conn, conn.openInputStream(), conn.openOutputStream());
- /*
- if ( appendMode ) {
- f.seek("end",0);
- } else {
- if ( ! readMode )
- conn.truncate(0);
- }
- */
- return f;
- }
-
- private static void notimplemented() throws IOException {
- throw new IOException("not implemented");
- }
-
- protected File openProgram(String prog, String mode) throws IOException {
- notimplemented();
- return null;
- }
-
- protected File tmpFile() throws IOException {
- notimplemented();
- return null;
- }
-
- private final class FileImpl extends File {
- private final StreamConnection conn;
- private final InputStream is;
- private final OutputStream os;
- private boolean closed = false;
- private boolean nobuffer = false;
- private int lookahead = -1;
- private FileImpl( StreamConnection conn, InputStream is, OutputStream os ) {
- this.conn = conn;
- this.is = is;
- this.os = os;
- }
- private FileImpl( InputStream i ) {
- this( null, i, null );
- }
- private FileImpl( OutputStream o ) {
- this( null, null, o );
- }
- public String tojstring() {
- return "file ("+this.hashCode()+")";
- }
- public boolean isstdfile() {
- return conn == null;
- }
- public void close() throws IOException {
- closed = true;
- if ( conn != null ) {
- conn.close();
- }
- }
- public void flush() throws IOException {
- if ( os != null )
- os.flush();
- }
- public void write(LuaString s) throws IOException {
- if ( os != null )
- os.write( s.m_bytes, s.m_offset, s.m_length );
- else
- notimplemented();
- if ( nobuffer )
- flush();
- }
- public boolean isclosed() {
- return closed;
- }
- public int seek(String option, int pos) throws IOException {
- /*
- if ( conn != null ) {
- if ( "set".equals(option) ) {
- conn.seek(pos);
- return (int) conn.getFilePointer();
- } else if ( "end".equals(option) ) {
- conn.seek(conn.length()+1+pos);
- return (int) conn.length()+1;
- } else {
- conn.seek(conn.getFilePointer()+pos);
- return (int) conn.getFilePointer();
- }
- }
- */
- notimplemented();
- return 0;
- }
- public void setvbuf(String mode, int size) {
- nobuffer = "no".equals(mode);
- }
-
- // get length remaining to read
- public int remaining() throws IOException {
- return -1;
- }
-
- // peek ahead one character
- public int peek() throws IOException {
- if ( lookahead < 0 )
- lookahead = is.read();
- return lookahead;
- }
-
- // return char if read, -1 if eof, throw IOException on other exception
- public int read() throws IOException {
- if ( lookahead >= 0 ) {
- int c = lookahead;
- lookahead = -1;
- return c;
- }
- if ( is != null )
- return is.read();
- notimplemented();
- return 0;
- }
-
- // return number of bytes read if positive, -1 if eof, throws IOException
- public int read(byte[] bytes, int offset, int length) throws IOException {
- int n,i=0;
- if (is!=null) {
- if ( length > 0 && lookahead >= 0 ) {
- bytes[offset] = (byte) lookahead;
- lookahead = -1;
- i += 1;
- }
- for ( ; i
- * The JME platform, being limited, cannot implement all libraries in all aspects. The main limitations are
- *
- * It is used to allocate either a set of standard globals using
- * {@link #standardGlobals()} or debug globals using {@link #debugGlobals()}
- *
- * A simple example of initializing globals and using them from Java is:
- *
- * Once globals are created, a simple way to load and run a script is:
- *
- * although {@code require} could also be used:
- *
- * The standard globals will contain all standard libraries in their JME flavors:
- *
- * The debug globals are simply the standard globals plus the {@code debug} library {@link DebugLib}.
- *
- *
- * The class ensures that initialization is done in the correct order,
- * and that linkage is made to {@link LuaThread#setGlobals(LuaValue)}.
- * @see JsePlatform
- * @see LoadState
- */
-public class JmePlatform {
-
- /**
- * Create a standard set of globals for JME including all the libraries.
- *
- * @return Table of globals initialized with the standard JME libraries
- * @see #debugGlobals()
- * @see JsePlatform
- * @see JmePlatform
- */
- public static LuaTable standardGlobals() {
- LuaTable _G = new LuaTable();
- _G.load(new BaseLib());
- _G.load(new PackageLib());
- _G.load(new OsLib());
- _G.load(new MathLib());
- _G.load(new TableLib());
- _G.load(new StringLib());
- _G.load(new CoroutineLib());
- _G.load(new JmeIoLib());
- LuaThread.setGlobals(_G);
- LuaC.install();
- return _G;
- }
-
- /** Create standard globals including the {@link debug} library.
- *
- * @return Table of globals initialized with the standard JSE and debug libraries
- * @see #standarsGlobals()
- * @see JsePlatform
- * @see JmePlatform
- * @see DebugLib
- */
- public static LuaTable debugGlobals() {
- LuaTable _G = standardGlobals();
- _G.load(new DebugLib());
- return _G;
- }
-}
diff --git a/luaj-2.0.3/src/jse/META-INF/services/javax.script.ScriptEngineFactory b/luaj-2.0.3/src/jse/META-INF/services/javax.script.ScriptEngineFactory
deleted file mode 100644
index e3e6dde46..000000000
--- a/luaj-2.0.3/src/jse/META-INF/services/javax.script.ScriptEngineFactory
+++ /dev/null
@@ -1 +0,0 @@
-org.luaj.vm2.script.LuaScriptEngineFactory
\ No newline at end of file
diff --git a/luaj-2.0.3/src/jse/lua.java b/luaj-2.0.3/src/jse/lua.java
deleted file mode 100644
index ecc1230ac..000000000
--- a/luaj-2.0.3/src/jse/lua.java
+++ /dev/null
@@ -1,223 +0,0 @@
-/*******************************************************************************
-* Copyright (c) 2009 Luaj.org. All rights reserved.
-*
-* Permission is hereby granted, free of charge, to any person obtaining a copy
-* of this software and associated documentation files (the "Software"), to deal
-* in the Software without restriction, including without limitation the rights
-* to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
-* copies of the Software, and to permit persons to whom the Software is
-* furnished to do so, subject to the following conditions:
-*
-* The above copyright notice and this permission notice shall be included in
-* all copies or substantial portions of the Software.
-*
-* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
-* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
-* AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
-* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
-* OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
-* THE SOFTWARE.
-******************************************************************************/
-
-import java.io.BufferedReader;
-import java.io.ByteArrayInputStream;
-import java.io.FileInputStream;
-import java.io.IOException;
-import java.io.InputStream;
-import java.io.InputStreamReader;
-import java.util.Vector;
-
-import org.luaj.vm2.LoadState;
-import org.luaj.vm2.Lua;
-import org.luaj.vm2.LuaFunction;
-import org.luaj.vm2.LuaTable;
-import org.luaj.vm2.LuaValue;
-import org.luaj.vm2.Varargs;
-import org.luaj.vm2.lib.jse.JsePlatform;
-import org.luaj.vm2.lua2java.Lua2Java;
-import org.luaj.vm2.luajc.LuaJC;
-
-
-/**
- * lua command for use in java se environments.
- */
-public class lua {
- private static final String version = Lua._VERSION + "Copyright (c) 2009 Luaj.org.org";
-
- private static final String usage =
- "usage: java -cp luaj-jse.jar lua [options] [script [args]].\n" +
- "Available options are:\n" +
- " -e stat execute string 'stat'\n" +
- " -l name require library 'name'\n" +
- " -i enter interactive mode after executing 'script'\n" +
- " -v show version information\n" +
- " -j use lua2java source-to-source compiler\n" +
- " -b use luajc bytecode-to-bytecode compiler (requires bcel on class path)\n" +
- " -n nodebug - do not load debug library by default\n" +
- " -- stop handling options\n" +
- " - execute stdin and stop handling options";
-
- private static void usageExit() {
- System.out.println(usage);
- System.exit(-1);
- }
-
- private static LuaValue _G;
-
- public static void main( String[] args ) throws IOException {
-
- // process args
- boolean interactive = (args.length == 0);
- boolean versioninfo = false;
- boolean processing = true;
- boolean nodebug = false;
- boolean luajc = false;
- boolean lua2java = false;
- Vector libs = null;
- try {
- // stateful argument processing
- for ( int i=0; i
- * To coerce scalar types, the various, generally the {@code valueOf(type)} methods
- * on {@link LuaValue} may be used:
- *
- * To coerce arrays of objects and lists, the {@code listOf(..)} and {@code tableOf(...)} methods
- * on {@link LuaValue} may be used:
- *
- * Integral types {@code boolean}, {@code byte}, {@code char}, and {@code int}
- * will become {@link LuaInteger};
- * {@code long}, {@code float}, and {@code double} will become {@link LuaDouble};
- * {@code String} and {@code byte[]} will become {@link LuaString};
- * other types will become {@link LuaUserdata}.
- * @param o Java object needing conversion
- * @return {@link LuaValue} corresponding to the supplied Java value.
- * @see LuaValue
- * @see LuaInteger
- * @see LuaDouble
- * @see LuaString
- * @see LuaUserdata
- */
- public static LuaValue coerce(Object o) {
- if ( o == null )
- return LuaValue.NIL;
- Class clazz = o.getClass();
- Coercion c = (Coercion) COERCIONS.get( clazz );
- if ( c == null ) {
- c = o instanceof Class? JavaClass.forClass((Class)o):
- clazz.isArray()? arrayCoercion:
- instanceCoercion;
- COERCIONS.put( clazz, c );
- }
- return c.coerce(o);
- }
-
- static final Coercion instanceCoercion = new Coercion() {
- public LuaValue coerce(Object javaValue) {
- return new JavaInstance(javaValue);
- }
- };
-
- // should be userdata?
- static final Coercion arrayCoercion = new Coercion() {
- public LuaValue coerce(Object javaValue) {
- return new JavaArray(javaValue);
- }
- };
-}
diff --git a/luaj-2.0.3/src/jse/org/luaj/vm2/lib/jse/CoerceLuaToJava.java b/luaj-2.0.3/src/jse/org/luaj/vm2/lib/jse/CoerceLuaToJava.java
deleted file mode 100644
index 7191162ec..000000000
--- a/luaj-2.0.3/src/jse/org/luaj/vm2/lib/jse/CoerceLuaToJava.java
+++ /dev/null
@@ -1,367 +0,0 @@
-/*******************************************************************************
-* Copyright (c) 2009-2011 Luaj.org. All rights reserved.
-*
-* Permission is hereby granted, free of charge, to any person obtaining a copy
-* of this software and associated documentation files (the "Software"), to deal
-* in the Software without restriction, including without limitation the rights
-* to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
-* copies of the Software, and to permit persons to whom the Software is
-* furnished to do so, subject to the following conditions:
-*
-* The above copyright notice and this permission notice shall be included in
-* all copies or substantial portions of the Software.
-*
-* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
-* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
-* AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
-* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
-* OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
-* THE SOFTWARE.
-******************************************************************************/
-package org.luaj.vm2.lib.jse;
-
-import java.lang.reflect.Array;
-import java.lang.reflect.Constructor;
-import java.lang.reflect.InvocationTargetException;
-import java.lang.reflect.Method;
-import java.util.Collections;
-import java.util.HashMap;
-import java.util.Map;
-
-import org.luaj.vm2.LuaError;
-import org.luaj.vm2.LuaString;
-import org.luaj.vm2.LuaTable;
-import org.luaj.vm2.LuaValue;
-import org.luaj.vm2.Varargs;
-
-/**
- * Helper class to coerce values from lua to Java within the luajava library.
- *
- * This class is primarily used by the {@link LuajavaLib},
- * but can also be used directly when working with Java/lua bindings.
- *
- * To coerce to specific Java values, generally the {@code toType()} methods
- * on {@link LuaValue} may be used:
- *
- * For data in lua tables, the various methods on {@link LuaTable} can be used directly
- * to convert data to something more useful.
- *
- * @see LuajavaLib
- * @see CoerceJavaToLua
- */
-public class CoerceLuaToJava {
-
- static int SCORE_NULL_VALUE = 0x10;
- static int SCORE_WRONG_TYPE = 0x100;
- static int SCORE_UNCOERCIBLE = 0x10000;
-
- static interface Coercion {
- public int score( LuaValue value );
- public Object coerce( LuaValue value );
- };
-
- /**
- * Coerce a LuaValue value to a specified java class
- * @param value LuaValue to coerce
- * @param clazz Class to coerce into
- * @return Object of type clazz (or a subclass) with the corresponding value.
- */
- public static Object coerce(LuaValue value, Class clazz) {
- return getCoercion(clazz).coerce(value);
- }
-
- static final Map COERCIONS = Collections.synchronizedMap(new HashMap());
-
- static final class BoolCoercion implements Coercion {
- public String toString() {
- return "BoolCoercion()";
- }
- public int score( LuaValue value ) {
- switch ( value.type() ) {
- case LuaValue.TBOOLEAN:
- return 0;
- }
- return 1;
- }
-
- public Object coerce(LuaValue value) {
- return value.toboolean()? Boolean.TRUE: Boolean.FALSE;
- }
- }
-
- static final class NumericCoercion implements Coercion {
- static final int TARGET_TYPE_BYTE = 0;
- static final int TARGET_TYPE_CHAR = 1;
- static final int TARGET_TYPE_SHORT = 2;
- static final int TARGET_TYPE_INT = 3;
- static final int TARGET_TYPE_LONG = 4;
- static final int TARGET_TYPE_FLOAT = 5;
- static final int TARGET_TYPE_DOUBLE = 6;
- static final String[] TYPE_NAMES = { "byte", "char", "short", "int", "long", "float", "double" };
- final int targetType;
- public String toString() {
- return "NumericCoercion("+TYPE_NAMES[targetType]+")";
- }
- NumericCoercion(int targetType) {
- this.targetType = targetType;
- }
- public int score( LuaValue value ) {
- if ( value.isint() ) {
- switch ( targetType ) {
- case TARGET_TYPE_BYTE: {
- int i = value.toint();
- return (i==(byte)i)? 0: SCORE_WRONG_TYPE;
- }
- case TARGET_TYPE_CHAR: {
- int i = value.toint();
- return (i==(byte)i)? 1: (i==(char)i)? 0: SCORE_WRONG_TYPE;
- }
- case TARGET_TYPE_SHORT: {
- int i = value.toint();
- return (i==(byte)i)? 1: (i==(short)i)? 0: SCORE_WRONG_TYPE;
- }
- case TARGET_TYPE_INT: {
- int i = value.toint();
- return (i==(byte)i)? 2: ((i==(char)i) || (i==(short)i))? 1: 0;
- }
- case TARGET_TYPE_FLOAT: return 1;
- case TARGET_TYPE_LONG: return 1;
- case TARGET_TYPE_DOUBLE: return 2;
- default: return SCORE_WRONG_TYPE;
- }
- } else if ( value.isnumber() ) {
- switch ( targetType ) {
- case TARGET_TYPE_BYTE: return SCORE_WRONG_TYPE;
- case TARGET_TYPE_CHAR: return SCORE_WRONG_TYPE;
- case TARGET_TYPE_SHORT: return SCORE_WRONG_TYPE;
- case TARGET_TYPE_INT: return SCORE_WRONG_TYPE;
- case TARGET_TYPE_LONG: {
- double d = value.todouble();
- return (d==(long)d)? 0: SCORE_WRONG_TYPE;
- }
- case TARGET_TYPE_FLOAT: {
- double d = value.todouble();
- return (d==(float)d)? 0: SCORE_WRONG_TYPE;
- }
- case TARGET_TYPE_DOUBLE: {
- double d = value.todouble();
- return ((d==(long)d) || (d==(float)d))? 1: 0;
- }
- default: return SCORE_WRONG_TYPE;
- }
- } else {
- return SCORE_UNCOERCIBLE;
- }
- }
-
- public Object coerce(LuaValue value) {
- switch ( targetType ) {
- case TARGET_TYPE_BYTE: return new Byte( (byte) value.toint() );
- case TARGET_TYPE_CHAR: return new Character( (char) value.toint() );
- case TARGET_TYPE_SHORT: return new Short( (short) value.toint() );
- case TARGET_TYPE_INT: return new Integer( (int) value.toint() );
- case TARGET_TYPE_LONG: return new Long( (long) value.todouble() );
- case TARGET_TYPE_FLOAT: return new Float( (float) value.todouble() );
- case TARGET_TYPE_DOUBLE: return new Double( (double) value.todouble() );
- default: return null;
- }
- }
- }
-
- static final class StringCoercion implements Coercion {
- public static final int TARGET_TYPE_STRING = 0;
- public static final int TARGET_TYPE_BYTES = 1;
- final int targetType;
- public StringCoercion(int targetType) {
- this.targetType = targetType;
- }
- public String toString() {
- return "StringCoercion("+(targetType==TARGET_TYPE_STRING? "String": "byte[]")+")";
- }
- public int score(LuaValue value) {
- switch ( value.type() ) {
- case LuaValue.TSTRING:
- return value.checkstring().isValidUtf8()?
- (targetType==TARGET_TYPE_STRING? 0: 1):
- (targetType==TARGET_TYPE_BYTES? 0: SCORE_WRONG_TYPE);
- case LuaValue.TNIL:
- return SCORE_NULL_VALUE;
- default:
- return targetType == TARGET_TYPE_STRING? SCORE_WRONG_TYPE: SCORE_UNCOERCIBLE;
- }
- }
- public Object coerce(LuaValue value) {
- if ( value.isnil() )
- return null;
- if ( targetType == TARGET_TYPE_STRING )
- return value.tojstring();
- LuaString s = value.checkstring();
- byte[] b = new byte[s.m_length];
- s.copyInto(0, b, 0, b.length);
- return b;
- }
- }
-
- static final class ArrayCoercion implements Coercion {
- final Class componentType;
- final Coercion componentCoercion;
- public ArrayCoercion(Class componentType) {
- this.componentType = componentType;
- this.componentCoercion = getCoercion(componentType);
- }
- public String toString() {
- return "ArrayCoercion("+componentType.getName()+")";
- }
- public int score(LuaValue value) {
- switch ( value.type() ) {
- case LuaValue.TTABLE:
- return value.length()==0? 0: componentCoercion.score( value.get(1) );
- case LuaValue.TUSERDATA:
- return inheritanceLevels( componentType, value.touserdata().getClass().getComponentType() );
- case LuaValue.TNIL:
- return SCORE_NULL_VALUE;
- default:
- return SCORE_UNCOERCIBLE;
- }
- }
- public Object coerce(LuaValue value) {
- switch ( value.type() ) {
- case LuaValue.TTABLE: {
- int n = value.length();
- Object a = Array.newInstance(componentType, n);
- for ( int i=0; i
- * This class is not used directly.
- * It is returned by calls to {@link CoerceJavaToLua#coerce(Object)}
- * when an array is supplied.
- * @see CoerceJavaToLua
- * @see CoerceLuaToJava
- */
-class JavaArray extends LuaUserdata {
-
- static final LuaValue LENGTH = valueOf("length");
-
- JavaArray(Object instance) {
- super(instance);
- }
-
- public LuaValue get(LuaValue key) {
- if ( key.equals(LENGTH) )
- return valueOf(Array.getLength(m_instance));
- if ( key.isint() ) {
- int i = key.toint() - 1;
- return i>=0 && i
- * This class is not used directly.
- * It is returned by calls to {@link CoerceJavaToLua#coerce(Object)}
- * when a Class is supplied.
- * @see CoerceJavaToLua
- * @see CoerceLuaToJava
- */
-class JavaClass extends JavaInstance implements CoerceJavaToLua.Coercion {
-
- static final Map classes = Collections.synchronizedMap(new HashMap());
-
- static final LuaValue NEW = valueOf("new");
-
- Map fields;
- Map methods;
-
- static JavaClass forClass(Class c) {
- JavaClass j = (JavaClass) classes.get(c);
- if ( j == null )
- classes.put( c, j = new JavaClass(c) );
- return j;
- }
-
- JavaClass(Class c) {
- super(c);
- this.jclass = this;
- }
-
- public LuaValue coerce(Object javaValue) {
- return this;
- }
-
- Field getField(LuaValue key) {
- if ( fields == null ) {
- Map m = new HashMap();
- Field[] f = ((Class)m_instance).getFields();
- for ( int i=0; i
- * This class is not used directly.
- * It is returned by calls to {@link JavaClass#new(LuaValue key)}
- * when the value of key is "new".
- * @see CoerceJavaToLua
- * @see CoerceLuaToJava
- */
-class JavaConstructor extends JavaMember {
-
- static final Map constructors = Collections.synchronizedMap(new HashMap());
-
- static JavaConstructor forConstructor(Constructor c) {
- JavaConstructor j = (JavaConstructor) constructors.get(c);
- if ( j == null )
- constructors.put( c, j = new JavaConstructor(c) );
- return j;
- }
-
- public static LuaValue forConstructors(JavaConstructor[] array) {
- return new Overload(array);
- }
-
- final Constructor constructor;
-
- private JavaConstructor(Constructor c) {
- super( c.getParameterTypes(), c.getModifiers() );
- this.constructor = c;
- }
-
- public Varargs invoke(Varargs args) {
- Object[] a = convertArgs(args);
- try {
- return CoerceJavaToLua.coerce( constructor.newInstance(a) );
- } catch (InvocationTargetException e) {
- throw new LuaError(e.getTargetException());
- } catch (Exception e) {
- return LuaValue.error("coercion error "+e);
- }
- }
-
- /**
- * LuaValue that represents an overloaded Java constructor.
- *
- * On invocation, will pick the best method from the list, and invoke it.
- *
- * This class is not used directly.
- * It is returned by calls to calls to {@link JavaClass#get(LuaValue key)}
- * when key is "new" and there is more than one public constructor.
- */
- static class Overload extends VarArgFunction {
- final JavaConstructor[] constructors;
- public Overload(JavaConstructor[] c) {
- this.constructors = c;
- }
-
- public Varargs invoke(Varargs args) {
- JavaConstructor best = null;
- int score = CoerceLuaToJava.SCORE_UNCOERCIBLE;
- for ( int i=0; i
- * This class is not used directly.
- * It is returned by calls to {@link CoerceJavaToLua#coerce(Object)}
- * when a subclass of Object is supplied.
- * @see CoerceJavaToLua
- * @see CoerceLuaToJava
- */
-class JavaInstance extends LuaUserdata {
-
- JavaClass jclass;
-
- JavaInstance(Object instance) {
- super(instance);
- }
-
- public LuaValue get(LuaValue key) {
- if ( jclass == null )
- jclass = JavaClass.forClass(m_instance.getClass());
- Field f = jclass.getField(key);
- if ( f != null )
- try {
- return CoerceJavaToLua.coerce(f.get(m_instance));
- } catch (Exception e) {
- throw new LuaError(e);
- }
- LuaValue m = jclass.getMethod(key);
- if ( m != null )
- return m;
- return super.get(key);
- }
-
- public void set(LuaValue key, LuaValue value) {
- if ( jclass == null )
- jclass = JavaClass.forClass(m_instance.getClass());
- Field f = jclass.getField(key);
- if ( f != null )
- try {
- f.set(m_instance, CoerceLuaToJava.coerce(value, f.getType()));
- return;
- } catch (Exception e) {
- throw new LuaError(e);
- }
- super.set(key, value);
- }
-
-}
diff --git a/luaj-2.0.3/src/jse/org/luaj/vm2/lib/jse/JavaMember.java b/luaj-2.0.3/src/jse/org/luaj/vm2/lib/jse/JavaMember.java
deleted file mode 100644
index e4e9b7ed7..000000000
--- a/luaj-2.0.3/src/jse/org/luaj/vm2/lib/jse/JavaMember.java
+++ /dev/null
@@ -1,84 +0,0 @@
-/*******************************************************************************
-* Copyright (c) 2011 Luaj.org. All rights reserved.
-*
-* Permission is hereby granted, free of charge, to any person obtaining a copy
-* of this software and associated documentation files (the "Software"), to deal
-* in the Software without restriction, including without limitation the rights
-* to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
-* copies of the Software, and to permit persons to whom the Software is
-* furnished to do so, subject to the following conditions:
-*
-* The above copyright notice and this permission notice shall be included in
-* all copies or substantial portions of the Software.
-*
-* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
-* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
-* AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
-* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
-* OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
-* THE SOFTWARE.
-******************************************************************************/
-package org.luaj.vm2.lib.jse;
-
-import org.luaj.vm2.Varargs;
-import org.luaj.vm2.lib.VarArgFunction;
-import org.luaj.vm2.lib.jse.CoerceLuaToJava.Coercion;
-
-/**
- * Java method or constructor.
- *
- * Primarily handles argument coercion for parameter lists including scoring of compatibility and
- * java varargs handling.
- *
- * This class is not used directly.
- * It is an abstract base class for {@link JavaConstructor} and {@link JavaMethod}.
- * @see JavaConstructor
- * @see JavaMethod
- * @see CoerceJavaToLua
- * @see CoerceLuaToJava
- */
-abstract
-class JavaMember extends VarArgFunction {
-
- static final int METHOD_MODIFIERS_VARARGS = 0x80;
-
- final Coercion[] fixedargs;
- final Coercion varargs;
-
- protected JavaMember(Class[] params, int modifiers) {
- boolean isvarargs = ((modifiers & METHOD_MODIFIERS_VARARGS) != 0);
- fixedargs = new CoerceLuaToJava.Coercion[isvarargs? params.length-1: params.length];
- for ( int i=0; i
- * This class is not used directly.
- * It is returned by calls to calls to {@link JavaInstance#get(LuaValue key)}
- * when a method is named.
- * @see CoerceJavaToLua
- * @see CoerceLuaToJava
- */
-class JavaMethod extends JavaMember {
-
- static final Map methods = Collections.synchronizedMap(new HashMap());
-
- static JavaMethod forMethod(Method m) {
- JavaMethod j = (JavaMethod) methods.get(m);
- if ( j == null )
- methods.put( m, j = new JavaMethod(m) );
- return j;
- }
-
- static LuaFunction forMethods(JavaMethod[] m) {
- return new Overload(m);
- }
-
- final Method method;
-
- private JavaMethod(Method m) {
- super( m.getParameterTypes(), m.getModifiers() );
- this.method = m;
- try {
- if (!m.isAccessible())
- m.setAccessible(true);
- } catch (SecurityException s) {
- }
- }
-
- public LuaValue call() {
- return error("method cannot be called without instance");
- }
-
- public LuaValue call(LuaValue arg) {
- return invokeMethod(arg.checkuserdata(), LuaValue.NONE);
- }
-
- public LuaValue call(LuaValue arg1, LuaValue arg2) {
- return invokeMethod(arg1.checkuserdata(), arg2);
- }
-
- public LuaValue call(LuaValue arg1, LuaValue arg2, LuaValue arg3) {
- return invokeMethod(arg1.checkuserdata(), LuaValue.varargsOf(arg2, arg3));
- }
-
- public Varargs invoke(Varargs args) {
- return invokeMethod(args.checkuserdata(1), args.subargs(2));
- }
-
- LuaValue invokeMethod(Object instance, Varargs args) {
- Object[] a = convertArgs(args);
- try {
- return CoerceJavaToLua.coerce( method.invoke(instance, a) );
- } catch (InvocationTargetException e) {
- throw new LuaError(e.getTargetException());
- } catch (Exception e) {
- return LuaValue.error("coercion error "+e);
- }
- }
-
- /**
- * LuaValue that represents an overloaded Java method.
- *
- * On invocation, will pick the best method from the list, and invoke it.
- *
- * This class is not used directly.
- * It is returned by calls to calls to {@link JavaInstance#get(LuaValue key)}
- * when an overloaded method is named.
- */
- static class Overload extends LuaFunction {
-
- final JavaMethod[] methods;
-
- Overload(JavaMethod[] methods) {
- this.methods = methods;
- }
-
- public LuaValue call() {
- return error("method cannot be called without instance");
- }
-
- public LuaValue call(LuaValue arg) {
- return invokeBestMethod(arg.checkuserdata(), LuaValue.NONE);
- }
-
- public LuaValue call(LuaValue arg1, LuaValue arg2) {
- return invokeBestMethod(arg1.checkuserdata(), arg2);
- }
-
- public LuaValue call(LuaValue arg1, LuaValue arg2, LuaValue arg3) {
- return invokeBestMethod(arg1.checkuserdata(), LuaValue.varargsOf(arg2, arg3));
- }
-
- public Varargs invoke(Varargs args) {
- return invokeBestMethod(args.checkuserdata(1), args.subargs(2));
- }
-
- private LuaValue invokeBestMethod(Object instance, Varargs args) {
- JavaMethod best = null;
- int score = CoerceLuaToJava.SCORE_UNCOERCIBLE;
- for ( int i=0; i
- * Typically, this library is included as part of a call to
- * {@link JsePlatform#standardGlobals()}
- *
- * To instantiate and use it directly,
- * link it into your globals table via {@link LuaValue#load(LuaValue)} using code such as:
- *
- * This is a direct port of the corresponding library in C.
- * @see BaseLib
- * @see ResourceFinder
- * @see #FINDER
- * @see LibFunction
- * @see JsePlatform
- * @see JmePlatform
- * @see http://www.lua.org/manual/5.1/manual.html#5.1
- */
-
-public class JseBaseLib extends org.luaj.vm2.lib.BaseLib {
-
- /** Construct a JSE base library instance */
- public JseBaseLib() {
- STDIN = System.in;
- }
-
- /**
- * Try to open a file in the current working directory,
- * or fall back to base opener if not found.
- *
- * This implementation attempts to open the file using new File(filename).
- * It falls back to the base implementation that looks it up as a resource
- * in the class path if not found as a plain file.
- *
- * @see org.luaj.vm2.lib.BaseLib
- * @see org.luaj.vm2.lib.ResourceFinder
- *
- * @param filename
- * @return InputStream, or null if not found.
- */
- public InputStream findResource(String filename) {
- File f = new File(filename);
- if ( ! f.exists() )
- return super.findResource(filename);
- try {
- return new FileInputStream(f);
- } catch ( IOException ioe ) {
- return null;
- }
- }
-}
diff --git a/luaj-2.0.3/src/jse/org/luaj/vm2/lib/jse/JseIoLib.java b/luaj-2.0.3/src/jse/org/luaj/vm2/lib/jse/JseIoLib.java
deleted file mode 100644
index 8a86ca8fa..000000000
--- a/luaj-2.0.3/src/jse/org/luaj/vm2/lib/jse/JseIoLib.java
+++ /dev/null
@@ -1,222 +0,0 @@
-/*******************************************************************************
-* Copyright (c) 2009 Luaj.org. All rights reserved.
-*
-* Permission is hereby granted, free of charge, to any person obtaining a copy
-* of this software and associated documentation files (the "Software"), to deal
-* in the Software without restriction, including without limitation the rights
-* to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
-* copies of the Software, and to permit persons to whom the Software is
-* furnished to do so, subject to the following conditions:
-*
-* The above copyright notice and this permission notice shall be included in
-* all copies or substantial portions of the Software.
-*
-* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
-* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
-* AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
-* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
-* OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
-* THE SOFTWARE.
-******************************************************************************/
-package org.luaj.vm2.lib.jse;
-
-
-import java.io.BufferedInputStream;
-import java.io.IOException;
-import java.io.InputStream;
-import java.io.OutputStream;
-import java.io.RandomAccessFile;
-
-import org.luaj.vm2.LuaError;
-import org.luaj.vm2.LuaString;
-import org.luaj.vm2.LuaValue;
-import org.luaj.vm2.lib.BaseLib;
-import org.luaj.vm2.lib.IoLib;
-import org.luaj.vm2.lib.LibFunction;
-
-/**
- * Subclass of {@link IoLib} and therefore {@link LibFunction} which implements the lua standard {@code io}
- * library for the JSE platform.
- *
- * It uses RandomAccessFile to implement seek on files.
- *
- * Typically, this library is included as part of a call to
- * {@link JsePlatform#standardGlobals()}
- *
- * To instantiate and use it directly,
- * link it into your globals table via {@link LuaValue#load(LuaValue)} using code such as:
- *
- * This has been implemented to match as closely as possible the behavior in the corresponding library in C.
- * @see LibFunction
- * @see JsePlatform
- * @see JmePlatform
- * @see IoLib
- * @see JmeIoLib
- * @see http://www.lua.org/manual/5.1/manual.html#5.7
- */
-public class JseIoLib extends IoLib {
-
- public JseIoLib() {
- super();
- }
-
- protected File wrapStdin() throws IOException {
- return new FileImpl(BaseLib.instance.STDIN);
- }
-
- protected File wrapStdout() throws IOException {
- return new FileImpl(BaseLib.instance.STDOUT);
- }
-
- protected File openFile( String filename, boolean readMode, boolean appendMode, boolean updateMode, boolean binaryMode ) throws IOException {
- RandomAccessFile f = new RandomAccessFile(filename,readMode? "r": "rw");
- if ( appendMode ) {
- f.seek(f.length());
- } else {
- if ( ! readMode )
- f.setLength(0);
- }
- return new FileImpl( f );
- }
-
- protected File openProgram(String prog, String mode) throws IOException {
- final Process p = Runtime.getRuntime().exec(prog);
- return "w".equals(mode)?
- new FileImpl( p.getOutputStream() ):
- new FileImpl( p.getInputStream() );
- }
-
- protected File tmpFile() throws IOException {
- java.io.File f = java.io.File.createTempFile(".luaj","bin");
- f.deleteOnExit();
- return new FileImpl( new RandomAccessFile(f,"rw") );
- }
-
- private static void notimplemented() {
- throw new LuaError("not implemented");
- }
-
- private final class FileImpl extends File {
- private final RandomAccessFile file;
- private final InputStream is;
- private final OutputStream os;
- private boolean closed = false;
- private boolean nobuffer = false;
- private FileImpl( RandomAccessFile file, InputStream is, OutputStream os ) {
- this.file = file;
- this.is = is!=null? is.markSupported()? is: new BufferedInputStream(is): null;
- this.os = os;
- }
- private FileImpl( RandomAccessFile f ) {
- this( f, null, null );
- }
- private FileImpl( InputStream i ) {
- this( null, i, null );
- }
- private FileImpl( OutputStream o ) {
- this( null, null, o );
- }
- public String tojstring() {
- return "file ("+this.hashCode()+")";
- }
- public boolean isstdfile() {
- return file == null;
- }
- public void close() throws IOException {
- closed = true;
- if ( file != null ) {
- file.close();
- }
- }
- public void flush() throws IOException {
- if ( os != null )
- os.flush();
- }
- public void write(LuaString s) throws IOException {
- if ( os != null )
- os.write( s.m_bytes, s.m_offset, s.m_length );
- else if ( file != null )
- file.write( s.m_bytes, s.m_offset, s.m_length );
- else
- notimplemented();
- if ( nobuffer )
- flush();
- }
- public boolean isclosed() {
- return closed;
- }
- public int seek(String option, int pos) throws IOException {
- if ( file != null ) {
- if ( "set".equals(option) ) {
- file.seek(pos);
- } else if ( "end".equals(option) ) {
- file.seek(file.length()+pos);
- } else {
- file.seek(file.getFilePointer()+pos);
- }
- return (int) file.getFilePointer();
- }
- notimplemented();
- return 0;
- }
- public void setvbuf(String mode, int size) {
- nobuffer = "no".equals(mode);
- }
-
- // get length remaining to read
- public int remaining() throws IOException {
- return file!=null? (int) (file.length()-file.getFilePointer()): -1;
- }
-
- // peek ahead one character
- public int peek() throws IOException {
- if ( is != null ) {
- is.mark(1);
- int c = is.read();
- is.reset();
- return c;
- } else if ( file != null ) {
- long fp = file.getFilePointer();
- int c = file.read();
- file.seek(fp);
- return c;
- }
- notimplemented();
- return 0;
- }
-
- // return char if read, -1 if eof, throw IOException on other exception
- public int read() throws IOException {
- if ( is != null )
- return is.read();
- else if ( file != null ) {
- return file.read();
- }
- notimplemented();
- return 0;
- }
-
- // return number of bytes read if positive, -1 if eof, throws IOException
- public int read(byte[] bytes, int offset, int length) throws IOException {
- if (file!=null) {
- return file.read(bytes, offset, length);
- } else if (is!=null) {
- return is.read(bytes, offset, length);
- } else {
- notimplemented();
- }
- return length;
- }
- }
-}
diff --git a/luaj-2.0.3/src/jse/org/luaj/vm2/lib/jse/JseMathLib.java b/luaj-2.0.3/src/jse/org/luaj/vm2/lib/jse/JseMathLib.java
deleted file mode 100644
index 1f8d2e695..000000000
--- a/luaj-2.0.3/src/jse/org/luaj/vm2/lib/jse/JseMathLib.java
+++ /dev/null
@@ -1,107 +0,0 @@
-/*******************************************************************************
-* Copyright (c) 2009-2011 Luaj.org. All rights reserved.
-*
-* Permission is hereby granted, free of charge, to any person obtaining a copy
-* of this software and associated documentation files (the "Software"), to deal
-* in the Software without restriction, including without limitation the rights
-* to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
-* copies of the Software, and to permit persons to whom the Software is
-* furnished to do so, subject to the following conditions:
-*
-* The above copyright notice and this permission notice shall be included in
-* all copies or substantial portions of the Software.
-*
-* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
-* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
-* AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
-* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
-* OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
-* THE SOFTWARE.
-******************************************************************************/
-package org.luaj.vm2.lib.jse;
-
-import org.luaj.vm2.LuaValue;
-import org.luaj.vm2.lib.LibFunction;
-import org.luaj.vm2.lib.OneArgFunction;
-import org.luaj.vm2.lib.TwoArgFunction;
-
-/**
- * Subclass of {@link LibFunction} which implements the lua standard {@code math}
- * library.
- *
- * It contains all lua math functions, including those not available on the JME platform.
- * See {@link org.luaj.lib.MathLib} for the exception list.
- *
- * Typically, this library is included as part of a call to
- * {@link JsePlatform#standardGlobals()}
- *
- * To instantiate and use it directly,
- * link it into your globals table via {@link LuaValue#load(LuaValue)} using code such as:
- *
- * This has been implemented to match as closely as possible the behavior in the corresponding library in C.
- * @see LibFunction
- * @see JsePlatform
- * @see JmePlatform
- * @see JseMathLib
- * @see http://www.lua.org/manual/5.1/manual.html#5.6
- */
-public class JseMathLib extends org.luaj.vm2.lib.MathLib {
-
- public JseMathLib() {}
-
- public LuaValue call(LuaValue arg) {
- LuaValue t = super.call(arg);
- bind( t, JseMathLib1.class, new String[] {
- "acos", "asin", "atan", "cosh",
- "exp", "log", "log10", "sinh",
- "tanh" } );
- bind( t, JseMathLib2.class, new String[] {
- "atan2", "pow", } );
- return t;
- }
-
- public static final class JseMathLib1 extends OneArgFunction {
- public LuaValue call(LuaValue arg) {
- switch ( opcode ) {
- case 0: return valueOf(Math.acos(arg.checkdouble()));
- case 1: return valueOf(Math.asin(arg.checkdouble()));
- case 2: return valueOf(Math.atan(arg.checkdouble()));
- case 3: return valueOf(Math.cosh(arg.checkdouble()));
- case 4: return valueOf(Math.exp(arg.checkdouble()));
- case 5: return valueOf(Math.log(arg.checkdouble()));
- case 6: return valueOf(Math.log10(arg.checkdouble()));
- case 7: return valueOf(Math.sinh(arg.checkdouble()));
- case 8: return valueOf(Math.tanh(arg.checkdouble()));
- }
- return NIL;
- }
- }
-
- public static final class JseMathLib2 extends TwoArgFunction {
- public LuaValue call(LuaValue arg1, LuaValue arg2) {
- switch ( opcode ) {
- case 0: return valueOf(Math.atan2(arg1.checkdouble(), arg2.checkdouble()));
- case 1: return valueOf(Math.pow(arg1.checkdouble(), arg2.checkdouble()));
- }
- return NIL;
- }
- }
-
- /** Faster, better version of pow() used by arithmetic operator ^ */
- public double dpow_lib(double a, double b) {
- return Math.pow(a, b);
- }
-
-
-}
diff --git a/luaj-2.0.3/src/jse/org/luaj/vm2/lib/jse/JseOsLib.java b/luaj-2.0.3/src/jse/org/luaj/vm2/lib/jse/JseOsLib.java
deleted file mode 100644
index 9952cd1c7..000000000
--- a/luaj-2.0.3/src/jse/org/luaj/vm2/lib/jse/JseOsLib.java
+++ /dev/null
@@ -1,126 +0,0 @@
-/*******************************************************************************
-* Copyright (c) 2009 Luaj.org. All rights reserved.
-*
-* Permission is hereby granted, free of charge, to any person obtaining a copy
-* of this software and associated documentation files (the "Software"), to deal
-* in the Software without restriction, including without limitation the rights
-* to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
-* copies of the Software, and to permit persons to whom the Software is
-* furnished to do so, subject to the following conditions:
-*
-* The above copyright notice and this permission notice shall be included in
-* all copies or substantial portions of the Software.
-*
-* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
-* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
-* AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
-* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
-* OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
-* THE SOFTWARE.
-******************************************************************************/
-package org.luaj.vm2.lib.jse;
-import java.io.File;
-import java.io.IOException;
-
-import org.luaj.vm2.LuaValue;
-import org.luaj.vm2.lib.LibFunction;
-
-/**
- * Subclass of {@link LibFunction} which implements the standard lua {@code os} library.
- *
- * This contains more complete implementations of the following functions
- * using features that are specific to JSE:
- *
- * Because the nature of the {@code os} library is to encapsulate
- * os-specific features, the behavior of these functions varies considerably
- * from their counterparts in the C platform.
- *
- * Typically, this library is included as part of a call to either
- * {@link JsePlatform#standardGlobals()}
- *
- * To instantiate and use it directly,
- * link it into your globals table via {@link LuaValue#load(LuaValue)} using code such as:
- *
- * @see LibFunction
- * @see OsLib
- * @see JsePlatform
- * @see JmePlatform
- * @see http://www.lua.org/manual/5.1/manual.html#5.8
- */
-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;
-
- /** return code indicating the execute() was interrupted */
- public static int EXEC_INTERRUPTED = -2;
-
- /** return code indicating the execute() threw an unknown exception */
- public static int EXEC_ERROR = -3;
-
- /** public constructor */
- public JseOsLib() {
- }
-
- protected int execute(String command) {
- Runtime r = Runtime.getRuntime();
- try {
- final Process p = r.exec(command);
- try {
- p.waitFor();
- return p.exitValue();
- } finally {
- p.destroy();
- }
- } catch (IOException ioe) {
- return EXEC_IOEXCEPTION;
- } catch (InterruptedException e) {
- return EXEC_INTERRUPTED;
- } catch (Throwable t) {
- return EXEC_ERROR;
- }
- }
-
- protected void remove(String filename) throws IOException {
- File f = new File(filename);
- if ( ! f.exists() )
- throw new IOException("No such file or directory");
- if ( ! f.delete() )
- throw new IOException("Failed to delete");
- }
-
- protected void rename(String oldname, String newname) throws IOException {
- File f = new File(oldname);
- if ( ! f.exists() )
- throw new IOException("No such file or directory");
- if ( ! f.renameTo(new File(newname)) )
- throw new IOException("Failed to delete");
- }
-
- protected String tmpname() {
- try {
- java.io.File f = java.io.File.createTempFile(TMP_PREFIX ,TMP_SUFFIX);
- return f.getName();
- } catch ( IOException ioe ) {
- return super.tmpname();
- }
- }
-
-}
diff --git a/luaj-2.0.3/src/jse/org/luaj/vm2/lib/jse/JsePlatform.java b/luaj-2.0.3/src/jse/org/luaj/vm2/lib/jse/JsePlatform.java
deleted file mode 100644
index 7008280e5..000000000
--- a/luaj-2.0.3/src/jse/org/luaj/vm2/lib/jse/JsePlatform.java
+++ /dev/null
@@ -1,117 +0,0 @@
-/*******************************************************************************
- * Copyright (c) 2009-2011 Luaj.org. All rights reserved.
- *
- * Permission is hereby granted, free of charge, to any person obtaining a copy
- * of this software and associated documentation files (the "Software"), to deal
- * in the Software without restriction, including without limitation the rights
- * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
- * copies of the Software, and to permit persons to whom the Software is
- * furnished to do so, subject to the following conditions:
- *
- * The above copyright notice and this permission notice shall be included in
- * all copies or substantial portions of the Software.
- *
- * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
- * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
- * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
- * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
- * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
- * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
- * THE SOFTWARE.
- ******************************************************************************/
-package org.luaj.vm2.lib.jse;
-
-import org.luaj.vm2.compiler.LuaC;
-import org.luaj.vm2.LuaTable;
-import org.luaj.vm2.LuaThread;
-import org.luaj.vm2.LuaValue;
-import org.luaj.vm2.lib.CoroutineLib;
-import org.luaj.vm2.lib.DebugLib;
-import org.luaj.vm2.lib.PackageLib;
-import org.luaj.vm2.lib.StringLib;
-import org.luaj.vm2.lib.TableLib;
-
-/** The {@link JsePlatform} class is a convenience class to standardize
- * how globals tables are initialized for the JSE platform.
- *
- * It is used to allocate either a set of standard globals using
- * {@link #standardGlobals()} or debug globals using {@link #debugGlobals()}
- *
- * A simple example of initializing globals and using them from Java is:
- *
- * Once globals are created, a simple way to load and run a script is:
- *
- * although {@code require} could also be used:
- *
- * The standard globals will contain all standard libraries plus {@code luajava}:
- *
- * The debug globals are simply the standard globals plus the {@code debug} library {@link DebugLib}.
- *
- * The class ensures that initialization is done in the correct order,
- * and that linkage is made to {@link LuaThread#setGlobals(LuaValue)}.
- * @see JmePlatform
- */
-public class JsePlatform {
-
- /**
- * Create a standard set of globals for JSE including all the libraries.
- *
- * @return Table of globals initialized with the standard JSE libraries
- * @see #debugGlobals()
- * @see JsePlatform
- * @see JmePlatform
- */
- public static LuaTable standardGlobals() {
- LuaTable _G = new LuaTable();
- _G.load(new JseBaseLib());
- _G.load(new PackageLib());
- _G.load(new TableLib());
- _G.load(new StringLib());
- _G.load(new CoroutineLib());
- _G.load(new JseMathLib());
- _G.load(new JseIoLib());
- _G.load(new JseOsLib());
- _G.load(new LuajavaLib());
- LuaThread.setGlobals(_G);
- LuaC.install();
- return _G;
- }
-
- /** Create standard globals including the {@link debug} library.
- *
- * @return Table of globals initialized with the standard JSE and debug libraries
- * @see #standardGlobals()
- * @see JsePlatform
- * @see JmePlatform
- * @see DebugLib
- */
- public static LuaTable debugGlobals() {
- LuaTable _G = standardGlobals();
- _G.load(new DebugLib());
- return _G;
- }
-}
diff --git a/luaj-2.0.3/src/jse/org/luaj/vm2/lib/jse/JseProcess.java b/luaj-2.0.3/src/jse/org/luaj/vm2/lib/jse/JseProcess.java
deleted file mode 100644
index c24b6d587..000000000
--- a/luaj-2.0.3/src/jse/org/luaj/vm2/lib/jse/JseProcess.java
+++ /dev/null
@@ -1,116 +0,0 @@
-/*******************************************************************************
-* Copyright (c) 2013 Luaj.org. All rights reserved.
-*
-* Permission is hereby granted, free of charge, to any person obtaining a copy
-* of this software and associated documentation files (the "Software"), to deal
-* in the Software without restriction, including without limitation the rights
-* to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
-* copies of the Software, and to permit persons to whom the Software is
-* furnished to do so, subject to the following conditions:
-*
-* The above copyright notice and this permission notice shall be included in
-* all copies or substantial portions of the Software.
-*
-* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
-* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
-* AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
-* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
-* OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
-* THE SOFTWARE.
-******************************************************************************/
-package org.luaj.vm2.lib.jse;
-
-import java.io.IOException;
-import java.io.InputStream;
-import java.io.OutputStream;
-
-/** Analog of Process that pipes input and output to client-specified streams.
- */
-public class JseProcess {
-
- final Process process;
- final Thread input,output,error;
-
- /** Construct a process around a command, with specified streams to redirect input and output to.
- *
- * @param cmd The command to execute, including arguments, if any
- * @param stdin Optional InputStream to read from as process input, or null if input is not needed.
- * @param stdout Optional OutputStream to copy process output to, or null if output is ignored.
- * @param stderr Optinoal OutputStream to copy process stderr output to, or null if output is ignored.
- * @throws IOException If the system process could not be created.
- * @see Process
- */
- public JseProcess(String[] cmd, InputStream stdin, OutputStream stdout, OutputStream stderr) throws IOException {
- this(Runtime.getRuntime().exec(cmd), stdin, stdout, stderr);
- }
-
- /** Construct a process around a command, with specified streams to redirect input and output to.
- *
- * @param cmd The command to execute, including arguments, if any
- * @param stdin Optional InputStream to read from as process input, or null if input is not needed.
- * @param stdout Optional OutputStream to copy process output to, or null if output is ignored.
- * @param stderr Optinoal OutputStream to copy process stderr output to, or null if output is ignored.
- * @throws IOException If the system process could not be created.
- * @see Process
- */
- public JseProcess(String cmd, InputStream stdin, OutputStream stdout, OutputStream stderr) throws IOException {
- this(Runtime.getRuntime().exec(cmd), stdin, stdout, stderr);
- }
-
- private JseProcess(Process process, InputStream stdin, OutputStream stdout, OutputStream stderr) {
- this.process = process;
- input = stdin == null? null: copyBytes(stdin, process.getOutputStream(), null, process.getOutputStream());
- output = stdout == null? null: copyBytes(process.getInputStream(), stdout, process.getInputStream(), null);
- error = stderr == null? null: copyBytes(process.getErrorStream(), stderr, process.getErrorStream(), null);
- }
-
- /** Get the exit value of the process. */
- public int exitValue() {
- return process.exitValue();
- }
-
- /** Wait for the process to complete, and all pending output to finish.
- * @return The exit status.
- * @throws InterruptedException
- */
- public int waitFor() throws InterruptedException {
- int r = process.waitFor();
- if (input != null)
- input.join();
- if (output != null)
- output.join();
- if (error != null)
- error.join();
- process.destroy();
- return r;
- }
-
- /** Create a thread to copy bytes from input to output. */
- private Thread copyBytes(final InputStream input,
- final OutputStream output, final InputStream ownedInput,
- final OutputStream ownedOutput) {
- Thread t = (new Thread() {
- public void run() {
- try {
- byte[] buf = new byte[1024];
- int r;
- try {
- while ((r = input.read(buf)) >= 0) {
- output.write(buf, 0, r);
- }
- } finally {
- if (ownedInput != null)
- ownedInput.close();
- if (ownedOutput != null)
- ownedOutput.close();
- }
- } catch (IOException e) {
- e.printStackTrace();
- }
- }
- });
- t.start();
- return t;
- }
-}
diff --git a/luaj-2.0.3/src/jse/org/luaj/vm2/lib/jse/LuajavaLib.java b/luaj-2.0.3/src/jse/org/luaj/vm2/lib/jse/LuajavaLib.java
deleted file mode 100644
index 47de37926..000000000
--- a/luaj-2.0.3/src/jse/org/luaj/vm2/lib/jse/LuajavaLib.java
+++ /dev/null
@@ -1,195 +0,0 @@
-/*******************************************************************************
-* Copyright (c) 2009 Luaj.org. All rights reserved.
-*
-* Permission is hereby granted, free of charge, to any person obtaining a copy
-* of this software and associated documentation files (the "Software"), to deal
-* in the Software without restriction, including without limitation the rights
-* to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
-* copies of the Software, and to permit persons to whom the Software is
-* furnished to do so, subject to the following conditions:
-*
-* The above copyright notice and this permission notice shall be included in
-* all copies or substantial portions of the Software.
-*
-* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
-* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
-* AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
-* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
-* OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
-* THE SOFTWARE.
-******************************************************************************/
-package org.luaj.vm2.lib.jse;
-
-
-import java.lang.reflect.Array;
-import java.lang.reflect.InvocationHandler;
-import java.lang.reflect.InvocationTargetException;
-import java.lang.reflect.Method;
-import java.lang.reflect.Proxy;
-
-import org.luaj.vm2.LuaError;
-import org.luaj.vm2.LuaTable;
-import org.luaj.vm2.LuaValue;
-import org.luaj.vm2.Varargs;
-import org.luaj.vm2.compiler.LuaC;
-import org.luaj.vm2.lib.LibFunction;
-import org.luaj.vm2.lib.PackageLib;
-import org.luaj.vm2.lib.VarArgFunction;
-
-/**
- * Subclass of {@link LibFunction} which implements the features of the luajava package.
- *
- * Luajava is an approach to mixing lua and java using simple functions that bind
- * java classes and methods to lua dynamically. The API is documented on the
- * luajava documentation pages.
- *
- * Typically, this library is included as part of a call to either
- * {@link JsePlatform#standardGlobals()}
- *
- * To instantiate and use it directly,
- * link it into your globals table via {@link LuaValue#load(LuaValue)} using code such as:
- *
- * This has been implemented to match as closely as possible the behavior in the corresponding library in C.
- * @see LibFunction
- * @see org.luaj.vm2.lib.jse.JsePlatform
- * @see org.luaj.vm2.lib.jme.JmePlatform
- * @see LuaC
- * @see http://www.keplerproject.org/luajava/manual.html#luareference
- */
-public class LuajavaLib extends VarArgFunction {
-
- static final int INIT = 0;
- static final int BINDCLASS = 1;
- static final int NEWINSTANCE = 2;
- static final int NEW = 3;
- static final int CREATEPROXY = 4;
- static final int LOADLIB = 5;
-
- static final String[] NAMES = {
- "bindClass",
- "newInstance",
- "new",
- "createProxy",
- "loadLib",
- };
-
- static final int METHOD_MODIFIERS_VARARGS = 0x80;
-
- public LuajavaLib() {
- }
-
- public Varargs invoke(Varargs args) {
- try {
- switch ( opcode ) {
- case INIT: {
- LuaTable t = new LuaTable();
- bind( t, LuajavaLib.class, NAMES, BINDCLASS );
- env.set("luajava", t);
- PackageLib.instance.LOADED.set("luajava", t);
- return t;
- }
- case BINDCLASS: {
- final Class clazz = classForName(args.checkjstring(1));
- return JavaClass.forClass(clazz);
- }
- case NEWINSTANCE:
- case NEW: {
- // get constructor
- final LuaValue c = args.checkvalue(1);
- final Class clazz = (opcode==NEWINSTANCE? classForName(c.tojstring()): (Class) c.checkuserdata(Class.class));
- final Varargs consargs = args.subargs(2);
- return JavaClass.forClass(clazz).getConstructor().invoke(consargs);
- }
-
- case CREATEPROXY: {
- final int niface = args.narg()-1;
- if ( niface <= 0 )
- throw new LuaError("no interfaces");
- final LuaValue lobj = args.checktable(niface+1);
-
- // get the interfaces
- final Class[] ifaces = new Class[niface];
- for ( int i=0; i
- * The compiler should be installed as part of globals initialization,
- * and before any scripts or lua code is executed.
- * A typical example is to install it following the globals creation,
- * as in the following:
- * {@code
-* LuaValue _G = JsePlatform.standardGlobals();
-* LoadState.load( new FileInputStream("main.lua"), "main.lua", _G ).call();
-* }
-* This should work regardless of which {@link LuaCompiler}
-* has been installed.
-* {@code
-* LuaValue _G = JsePlatform.standardGlobals();
-* LuaJC.install();
-* LoadState.load( new FileInputStream("main.lua"), "main.lua", _G ).call();
-* }
-*
-* @see LuaCompiler
-* @see LuaClosure
-* @see LuaFunction
-* @see LoadState#compiler
-* @see LoadState#load(InputStream, String, LuaValue)
-* @see LuaC
-* @see LuaJC
-*/
-public class LoadState {
-
- /** format corresponding to non-number-patched lua, all numbers are floats or doubles */
- public static final int NUMBER_FORMAT_FLOATS_OR_DOUBLES = 0;
-
- /** format corresponding to non-number-patched lua, all numbers are ints */
- public static final int NUMBER_FORMAT_INTS_ONLY = 1;
-
- /** format corresponding to number-patched lua, all numbers are 32-bit (4 byte) ints */
- public static final int NUMBER_FORMAT_NUM_PATCH_INT32 = 4;
-
- // type constants
- public static final int LUA_TINT = (-2);
- public static final int LUA_TNONE = (-1);
- public static final int LUA_TNIL = 0;
- public static final int LUA_TBOOLEAN = 1;
- public static final int LUA_TLIGHTUSERDATA = 2;
- public static final int LUA_TNUMBER = 3;
- public static final int LUA_TSTRING = 4;
- public static final int LUA_TTABLE = 5;
- public static final int LUA_TFUNCTION = 6;
- public static final int LUA_TUSERDATA = 7;
- public static final int LUA_TTHREAD = 8;
- public static final int LUA_TVALUE = 9;
-
- /** Interface for the compiler, if it is installed.
- *
- *
- * {@code
- * InputStream is = new ByteArrayInputStream("print('hello,world').getBytes());
- * Prototype p = LuaC.instance.compile(is, "script");
- * LuaValue _G = JsePlatform.standardGlobals()
- * LuaClosure f = new LuaClosure(p, _G);
- * }
- * {@code
- * LuaFunction f = LuaC.instance.load(is, "script", _G);
- * }
- * {@code
- * LuaValue r = f.call();
- * _G.set( "mypkg", r )
- * }
- *
- *
- * @see LuaValue
- * @see LuaFunction
- * @see LuaValue#isclosure()
- * @see LuaValue#checkclosure()
- * @see LuaValue#optclosure(LuaClosure)
- * @see LoadState
- * @see LoadState#compiler
- */
-public class LuaClosure extends LuaFunction {
- private static final UpValue[] NOUPVALUES = new UpValue[0];
-
- public final Prototype p;
- public final UpValue[] upValues;
-
- LuaClosure() {
- p = null;
- upValues = null;
- }
- /** Supply the initial environment */
- public LuaClosure(Prototype p, LuaValue env) {
- super( env );
- this.p = p;
- this.upValues = p.nups>0? new UpValue[p.nups]: NOUPVALUES;
- }
-
- protected LuaClosure(int nupvalues, LuaValue env) {
- super( env );
- this.p = null;
- this.upValues = nupvalues>0? new UpValue[nupvalues]: NOUPVALUES;
- }
-
- public boolean isclosure() {
- return true;
- }
-
- public LuaClosure optclosure(LuaClosure defval) {
- return this;
- }
-
- public LuaClosure checkclosure() {
- return this;
- }
-
- public LuaValue getmetatable() {
- return s_metatable;
- }
-
- public final LuaValue call() {
- LuaValue[] stack = new LuaValue[p.maxstacksize];
- System.arraycopy(NILS, 0, stack, 0, p.maxstacksize);
- return execute(stack,NONE).arg1();
- }
-
- public final LuaValue call(LuaValue arg) {
- LuaValue[] stack = new LuaValue[p.maxstacksize];
- System.arraycopy(NILS, 0, stack, 0, p.maxstacksize);
- switch ( p.numparams ) {
- default: stack[0]=arg; return execute(stack,NONE).arg1();
- case 0: return execute(stack,arg).arg1();
- }
- }
-
- public final LuaValue call(LuaValue arg1, LuaValue arg2) {
- LuaValue[] stack = new LuaValue[p.maxstacksize];
- System.arraycopy(NILS, 0, stack, 0, p.maxstacksize);
- 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();
- case 0: return execute(stack,p.is_vararg!=0? varargsOf(arg1,arg2): NONE).arg1();
- }
- }
-
- public final LuaValue call(LuaValue arg1, LuaValue arg2, LuaValue arg3) {
- LuaValue[] stack = new LuaValue[p.maxstacksize];
- System.arraycopy(NILS, 0, stack, 0, p.maxstacksize);
- 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();
- case 1: stack[0]=arg1; return execute(stack,p.is_vararg!=0? varargsOf(arg2,arg3): NONE).arg1();
- case 0: return execute(stack,p.is_vararg!=0? varargsOf(arg1,arg2,arg3): NONE).arg1();
- }
- }
-
- public final Varargs invoke(Varargs varargs) {
- return onInvoke( varargs ).eval();
- }
-
- public Varargs onInvoke(Varargs varargs) {
- LuaValue[] stack = new LuaValue[p.maxstacksize];
- System.arraycopy(NILS, 0, stack, 0, p.maxstacksize);
- for ( int i=0; i
- *
- *
- *
- * {@code
- * LuaValue k = LuaValue.NIL;
- * while ( true ) {
- * Varargs n = table.next(k);
- * if ( (k = n.arg1()).isnil() )
- * break;
- * LuaValue v = n.arg(2)
- * process( k, v )
- * }}
- *
- *
- *
- * @see LuaValue
- */
-public class LuaTable extends LuaValue {
- private static final int MIN_HASH_CAPACITY = 2;
- private static final LuaString N = valueOf("n");
-
- /** the array values */
- protected LuaValue[] array;
-
- /** the hash keys */
- protected LuaValue[] hashKeys;
-
- /** the hash values */
- protected LuaValue[] hashValues;
-
- /** the number of hash entries */
- protected int hashEntries;
-
- /** metatable for this table, or null */
- protected LuaValue m_metatable;
-
- /** Construct empty table */
- public LuaTable() {
- array = NOVALS;
- hashKeys = NOVALS;
- hashValues = NOVALS;
- }
-
- /**
- * Construct table with preset capacity.
- * @param narray capacity of array part
- * @param nhash capacity of hash part
- */
- public LuaTable(int narray, int nhash) {
- presize(narray, nhash);
- }
-
- /**
- * Construct table with named and unnamed parts.
- * @param named Named elements in order {@code key-a, value-a, key-b, value-b, ... }
- * @param unnamed Unnamed elements in order {@code value-1, value-2, ... }
- * @param lastarg Additional unnamed values beyond {@code unnamed.length}
- */
- public LuaTable(LuaValue[] named, LuaValue[] unnamed, Varargs lastarg) {
- int nn = (named!=null? named.length: 0);
- int nu = (unnamed!=null? unnamed.length: 0);
- int nl = (lastarg!=null? lastarg.narg(): 0);
- presize(nu+nl, nn-(nn>>1));
- for ( int i=0; i {@code
- * LuaValue a = LuaValue.valueOf( 5 );
- * LuaValue b = LuaValue.valueOf( 4 );
- * LuaValue c = a.div(b);
- * }
- * Note that in this example, c will be a {@link LuaDouble}, but would be a {@link LuaInteger}
- * if the value of a were changed to 8, say.
- * In general the value of c in practice will vary depending on both the types and values of a and b
- * as well as any metatable/metatag processing that occurs.
- * {@code
- * LuaValue globals = JsePlatform.standardGlobals();
- * LuaValue sqrt = globals.get("math").get("sqrt");
- * LuaValue print = globals.get("print");
- * LuaValue d = sqrt.call( a );
- * print.call( LuaValue.valueOf("sqrt(5):"), a );
- * }
- * {@code
- * LuaValue modf = globals.get("math").get("modf");
- * Varargs r = modf.invoke( d );
- * print.call( r.arg(1), r.arg(2) );
- * }
- * {@code
- * LoadState.load( new FileInputStream("main.lua"), "main.lua", globals ).call();
- * }
- * {@code
- * globals.get("require").call(LuaValue.valueOf("main"));
- * }
- * For this to work the file must be in the current directory, or in the class path,
- * dependening on the platform.
- * See {@link JsePlatform} and {@link JmePlatform} for details.
- *
- *
- * {@code
- * LuaValue k = LuaValue.NIL;
- * while ( true ) {
- * Varargs n = table.next(k);
- * if ( (k = n.arg1()).isnil() )
- * break;
- * LuaValue v = n.arg(2)
- * process( k, v )
- * }}
- * @param index {@link LuaInteger} value identifying a key to start from,
- * or {@link NIL} to start at the beginning
- * @return {@link Varargs} containing {key,value} for the next entry,
- * or {@link NIL} if there are no more.
- * @throws LuaError if {@code this} is not a table, or the supplied key is invalid.
- * @see LuaTable
- * @see #inext()
- * @see #valueOf(int)
- * @see Varargs#arg1()
- * @see Varargs#arg(int)
- * @see #isnil()
- */
- public Varargs next(LuaValue index) { return typerror("table"); }
-
- /** Find the next integer-key,value pair if {@code this} is a table,
- * return {@link NIL} if there are no more, or throw a {@link LuaError} if not a table.
- * {@code
- * LuaValue k = LuaValue.NIL;
- * while ( true ) {
- * Varargs n = table.inext(k);
- * if ( (k = n.arg1()).isnil() )
- * break;
- * LuaValue v = n.arg(2)
- * process( k, v )
- * }
- * }
- * @param index {@link LuaInteger} value identifying a key to start from,
- * or {@link NIL} to start at the beginning
- * @return {@link Varargs} containing {@code (key,value)} for the next entry,
- * or {@link NONE} if there are no more.
- * @throws LuaError if {@code this} is not a table, or the supplied key is invalid.
- * @see LuaTable
- * @see #next()
- * @see #valueOf(int)
- * @see Varargs#arg1()
- * @see Varargs#arg(int)
- * @see #isnil()
- */
- public Varargs inext(LuaValue index) { return typerror("table"); }
-
- /**
- * Load a library instance by setting its environment to {@code this}
- * and calling it, which should iniitalize the library instance and
- * install itself into this instance.
- * @param library The callable {@link LuaValue} to load into {@code this}
- * @return {@link LuaValue} containing the result of the initialization call.
- */
- public LuaValue load(LuaValue library) { library.setfenv(this); return library.call(); }
-
- // varargs references
- public LuaValue arg(int index) { return index==1? this: NIL; }
- public int narg() { return 1; };
- public LuaValue arg1() { return this; }
-
- /**
- * Get the metatable for this {@link LuaValue}
- * {@code
- * LuaValue _G = JsePlatform.standardGlobals();
- * LoadState.load( new ByteArrayInputStream("print 'hello'".getBytes()), "main.lua", _G ).call();
- * }
- * @see LuaCompiler
- * @see LuaJC
- * @see JsePlatform
- * @see JmePlatform
- * @see BaseLib
- * @see LuaValue
- * @see LuaCompiler
- * @see Prototype
- */
-public class LuaC extends Lua implements LuaCompiler {
-
- public static final LuaC instance = new LuaC();
-
- /** Install the compiler so that LoadState will first
- * try to use it when handed bytes that are
- * not already a compiled lua chunk.
- */
- public static void install() {
- org.luaj.vm2.LoadState.compiler = instance;
- }
-
- protected static void _assert(boolean b) {
- if (!b)
- throw new LuaError("compiler assert failed");
- }
-
- public static final int MAXSTACK = 250;
- static final int LUAI_MAXUPVALUES = 60;
- static final int LUAI_MAXVARS = 200;
- static final int NO_REG = MAXARG_A;
-
-
- /* OpMode - basic instruction format */
- static final int
- iABC = 0,
- iABx = 1,
- iAsBx = 2;
-
- /* OpArgMask */
- static final int
- OpArgN = 0, /* argument is not used */
- OpArgU = 1, /* argument is used */
- OpArgR = 2, /* argument is a register or a jump offset */
- OpArgK = 3; /* argument is a constant or register/constant */
-
-
- static void SET_OPCODE(InstructionPtr i,int o) {
- i.set( ( i.get() & (MASK_NOT_OP)) | ((o << POS_OP) & MASK_OP) );
- }
-
- static void SETARG_A(InstructionPtr i,int u) {
- i.set( ( i.get() & (MASK_NOT_A)) | ((u << POS_A) & MASK_A) );
- }
-
- static void SETARG_B(InstructionPtr i,int u) {
- i.set( ( i.get() & (MASK_NOT_B)) | ((u << POS_B) & MASK_B) );
- }
-
- static void SETARG_C(InstructionPtr i,int u) {
- i.set( ( i.get() & (MASK_NOT_C)) | ((u << POS_C) & MASK_C) );
- }
-
- static void SETARG_Bx(InstructionPtr i,int u) {
- i.set( ( i.get() & (MASK_NOT_Bx)) | ((u << POS_Bx) & MASK_Bx) );
- }
-
- static void SETARG_sBx(InstructionPtr i,int u) {
- SETARG_Bx( i, u + MAXARG_sBx );
- }
-
- static int CREATE_ABC(int o, int a, int b, int c) {
- return ((o << POS_OP) & MASK_OP) |
- ((a << POS_A) & MASK_A) |
- ((b << POS_B) & MASK_B) |
- ((c << POS_C) & MASK_C) ;
- }
-
- static int CREATE_ABx(int o, int a, int bc) {
- return ((o << POS_OP) & MASK_OP) |
- ((a << POS_A) & MASK_A) |
- ((bc << POS_Bx) & MASK_Bx) ;
- }
-
- // vector reallocation
-
- static LuaValue[] realloc(LuaValue[] v, int n) {
- LuaValue[] a = new LuaValue[n];
- if ( v != null )
- System.arraycopy(v, 0, a, 0, Math.min(v.length,n));
- return a;
- }
-
- static Prototype[] realloc(Prototype[] v, int n) {
- Prototype[] a = new Prototype[n];
- if ( v != null )
- System.arraycopy(v, 0, a, 0, Math.min(v.length,n));
- return a;
- }
-
- static LuaString[] realloc(LuaString[] v, int n) {
- LuaString[] a = new LuaString[n];
- if ( v != null )
- System.arraycopy(v, 0, a, 0, Math.min(v.length,n));
- return a;
- }
-
- static LocVars[] realloc(LocVars[] v, int n) {
- LocVars[] a = new LocVars[n];
- if ( v != null )
- System.arraycopy(v, 0, a, 0, Math.min(v.length,n));
- return a;
- }
-
- static int[] realloc(int[] v, int n) {
- int[] a = new int[n];
- if ( v != null )
- System.arraycopy(v, 0, a, 0, Math.min(v.length,n));
- return a;
- }
-
- static byte[] realloc(byte[] v, int n) {
- byte[] a = new byte[n];
- if ( v != null )
- System.arraycopy(v, 0, a, 0, Math.min(v.length,n));
- return a;
- }
-
- public int nCcalls;
- Hashtable strings;
-
- protected LuaC() {}
-
- private LuaC(Hashtable strings) {
- this.strings = strings;
- }
-
- /** Load into a Closure or LuaFunction, with the supplied initial environment */
- public LuaFunction load(InputStream stream, String name, LuaValue env) throws IOException {
- Prototype p = compile( stream, name );
- return new LuaClosure( p, env );
- }
-
- /** Compile a prototype or load as a binary chunk */
- public static Prototype compile(InputStream stream, String name) throws IOException {
- int firstByte = stream.read();
- return ( firstByte == '\033' )?
- LoadState.loadBinaryChunk(firstByte, stream, name):
- (new LuaC(new Hashtable())).luaY_parser(firstByte, stream, name);
- }
-
- /** Parse the input */
- private Prototype luaY_parser(int firstByte, InputStream z, String name) {
- LexState lexstate = new LexState(this, z);
- FuncState funcstate = new FuncState();
- // lexstate.buff = buff;
- lexstate.setinput( this, firstByte, z, (LuaString) LuaValue.valueOf(name) );
- lexstate.open_func(funcstate);
- /* main func. is always vararg */
- funcstate.f.is_vararg = LuaC.VARARG_ISVARARG;
- funcstate.f.source = (LuaString) LuaValue.valueOf(name);
- lexstate.next(); /* read first token */
- lexstate.chunk();
- lexstate.check(LexState.TK_EOS);
- lexstate.close_func();
- LuaC._assert (funcstate.prev == null);
- LuaC._assert (funcstate.f.nups == 0);
- LuaC._assert (lexstate.fs == null);
- return funcstate.f;
- }
-
- // look up and keep at most one copy of each string
- public LuaString newTString(byte[] bytes, int offset, int len) {
- LuaString tmp = LuaString.valueOf(bytes, offset, len);
- LuaString v = (LuaString) strings.get(tmp);
- if ( v == null ) {
- // must copy bytes, since bytes could be from reusable buffer
- byte[] copy = new byte[len];
- System.arraycopy(bytes, offset, copy, 0, len);
- v = LuaString.valueOf(copy);
- strings.put(v, v);
- }
- return v;
- }
-
- public String pushfstring(String string) {
- return string;
- }
-
- public LuaFunction load(Prototype p, String filename, LuaValue env) {
- return new LuaClosure( p, env );
- }
-
-}
diff --git a/luaj-2.0.3/src/core/org/luaj/vm2/lib/BaseLib.java b/luaj-2.0.3/src/core/org/luaj/vm2/lib/BaseLib.java
deleted file mode 100644
index 717d0a50e..000000000
--- a/luaj-2.0.3/src/core/org/luaj/vm2/lib/BaseLib.java
+++ /dev/null
@@ -1,430 +0,0 @@
-/*******************************************************************************
-* Copyright (c) 2009 Luaj.org. All rights reserved.
-*
-* Permission is hereby granted, free of charge, to any person obtaining a copy
-* of this software and associated documentation files (the "Software"), to deal
-* in the Software without restriction, including without limitation the rights
-* to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
-* copies of the Software, and to permit persons to whom the Software is
-* furnished to do so, subject to the following conditions:
-*
-* The above copyright notice and this permission notice shall be included in
-* all copies or substantial portions of the Software.
-*
-* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
-* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
-* AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
-* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
-* OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
-* THE SOFTWARE.
-******************************************************************************/
-package org.luaj.vm2.lib;
-
-import java.io.IOException;
-import java.io.InputStream;
-import java.io.PrintStream;
-
-import org.luaj.vm2.LoadState;
-import org.luaj.vm2.Lua;
-import org.luaj.vm2.LuaError;
-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;
-
-/**
- * Subclass of {@link LibFunction} which implements the lua basic library functions.
- * {@code
- * LuaTable _G = new LuaTable();
- * LuaThread.setGlobals(_G);
- * _G.load(new BaseLib());
- * _G.get("print").call(LuaValue.valueOf("hello, world"));
- * }
- * Doing so will ensure the library is properly initialized
- * and loaded into the globals table.
- * {@code
- * LuaTable _G = new LuaTable();
- * _G.load(new CoroutineLib());
- * }
- * Doing so will ensure the library is properly initialized
- * and loaded into the globals table.
- * {@code
- * LuaTable _G = new LuaTable();
- * _G.load(new DebugLib());
- * }
- * Doing so will ensure the library is properly initialized
- * and loaded into the globals table.
- * {@code
- * LuaTable _G = new LuaTable();
- * _G.load(new JseIoLib());
- * LuaThread.setGlobals(_G);
- * _G.load(new JseBaseLib());
- * _G.load(new PackageLib());
- * _G.load(new JseIoLib());
- * _G.get("io").get("write").call(LuaValue.valueOf("hello, world\n"));
- * }
- * Doing so will ensure the library is properly initialized
- * and loaded into the globals table.
- *
- *
- * {@code
- * import org.luaj.vm2.LuaValue;
- * import org.luaj.vm2.lib.OneArgFunction;
- *
- * public class hyperbolic extends OneArgFunction {
- *
- * public hyperbolic() {}
- *
- * public LuaValue call(LuaValue libname) {
- * LuaValue library = tableOf();
- * library.set( "sinh", new sinh() );
- * library.set( "cosh", new cosh() );
- * env.set( "hyperbolic", library );
- * return library;
- * }
- *
- * static class sinh extends OneArgFunction {
- * public LuaValue call(LuaValue x) {
- * return LuaValue.valueOf(Math.sinh(x.checkdouble()));
- * }
- * }
- *
- * static class cosh extends OneArgFunction {
- * public LuaValue call(LuaValue x) {
- * return LuaValue.valueOf(Math.cosh(x.checkdouble()));
- * }
- * }
- *}
- *}
- * The default constructor is used to instantiate the library
- * in response to {@code require 'hyperbolic'} statement,
- * provided it is on Javas class path.
- * This instance is then invoked with the name supplied to require()
- * as the only argument, and library should initialized whatever global
- * data it needs to and place it into the environment if needed.
- * In this case, it creates two function, 'sinh', and 'cosh', and puts
- * them into a global table called 'hyperbolic.'
- * It placed the library table into the globals via the {@link #env}
- * local variable which corresponds to the globals that apply when the
- * library is loaded.
- * {@code
- * local t = require('hyperbolic')
- * print( 't', t )
- * print( 'hyperbolic', hyperbolic )
- * for k,v in pairs(t) do
- * print( 'k,v', k,v )
- * end
- * print( 'sinh(.5)', hyperbolic.sinh(.5) )
- * print( 'cosh(.5)', hyperbolic.cosh(.5) )
- * }
- * {@code
- * t table: 3dbbd23f
- * hyperbolic table: 3dbbd23f
- * k,v cosh function: 3dbbd128
- * k,v sinh function: 3dbbd242
- * sinh(.5) 0.5210953
- * cosh(.5) 1.127626
- * }
- *
- *
- * {@code
- * LuaTable _G = new LuaTable();
- * LuaThread.setGlobals(_G);
- * _G.load(new BaseLib());
- * _G.load(new PackageLib());
- * _G.load(new MathLib());
- * System.out.println( _G.get("math").get("sqrt").call( LuaValue.valueOf(2) ) );
- * }
- * Doing so will ensure the library is properly initialized
- * and loaded into the globals table.
- *
- *
- * {@code
- * LuaTable _G = new LuaTable();
- * LuaThread.setGlobals(_G);
- * _G.load(new BaseLib());
- * _G.load(new PackageLib());
- * _G.load(new OsLib());
- * System.out.println( _G.get("os").get("time").call() );
- * }
- * Doing so will ensure the library is properly initialized
- * and loaded into the globals table.
- * {@code
- * LuaTable _G = new LuaTable();
- * LuaThread.setGlobals(_G);
- * _G.load(new BaseLib());
- * _G.load(new PackageLib());
- * System.out.println( _G.get("require").call(LuaValue.valueOf("hyperbolic")) );
- * }
- * In practice, the first 4 lines of the above are minimal requirements to get
- * and initialize a globals table capable of basic reqire, print, and other functions,
- * so it is much more convenient to use the {@link JsePlatform} and {@link JmePlatform}
- * utility classes instead.
- * {@code
- * LuaTable _G = new LuaTable();
- * LuaThread.setGlobals(_G);
- * _G.load(new BaseLib());
- * _G.load(new PackageLib());
- * _G.load(new StringLib());
- * System.out.println( _G.get("string").get("upper").call( LuaValue.valueOf("abcde") ) );
- * }
- * Doing so will ensure the library is properly initialized
- * and loaded into the globals table.
- * {@code
- * LuaTable _G = new LuaTable();
- * LuaThread.setGlobals(_G);
- * _G.load(new BaseLib());
- * _G.load(new PackageLib());
- * _G.load(new TableLib());
- * LuaValue tbl = LuaValue.listOf( new LuaValue[] {
- * LuaValue.valueOf( "abc" ),
- * LuaValue.valueOf( "def" ) } );
- * LuaValue sep = LuaValue.valueOf( "-" );
- * System.out.println( _G.get("table").get("concat").call( tbl, sep ) );
- * }
- * Doing so will ensure the library is properly initialized
- * and loaded into the globals table.
- * {@code
- * LuaTable _G = new LuaTable();
- * LuaThread.setGlobals(_G);
- * _G.load(new BaseLib());
- * _G.load(new PackageLib());
- * _G.load(new JmeIoLib());
- * _G.get("io").get("write").call(LuaValue.valueOf("hello, world\n"));
- * }
- * Doing so will ensure the library is properly initialized
- * and loaded into the globals table.
- *
- *
- * {@code
- * LuaValue _G = JmePlatform.standardGlobals();
- * _G.get("print").call(LuaValue.valueOf("hello, world"));
- * }
- * {@code
- * LoadState.load( getClass().getResourceAsStream("main.lua"), "main.lua", _G ).call();
- * }
- * {@code
- * _G.get("require").call(LuaValue.valueOf("main"));
- * }
- * For this to succeed, the file "main.lua" must be a resource in the class path.
- * See {@link BaseLib} for details on finding scripts using {@link ResourceFinder}.
- *
- *
- * In addition, the {@link LuaC} compiler is installed so lua files may be loaded in their source form.
- *
- *
- *
- *
- * The method {@link CoerceJavaToLua#coerce(Object)} looks as the type and dimesioning
- * of the argument and tries to guess the best fit for corrsponding lua scalar,
- * table, or table of tables.
- *
- * @see CoerceJavaToLua#coerce(Object)
- * @see LuajavaLib
- */
-public class CoerceJavaToLua {
-
- static interface Coercion {
- public LuaValue coerce( Object javaValue );
- };
-
- static final Map COERCIONS = new HashMap();
-
- static {
- Coercion boolCoercion = new Coercion() {
- public LuaValue coerce( Object javaValue ) {
- Boolean b = (Boolean) javaValue;
- return b.booleanValue()? LuaValue.TRUE: LuaValue.FALSE;
- }
- } ;
- Coercion intCoercion = new Coercion() {
- public LuaValue coerce( Object javaValue ) {
- Number n = (Number) javaValue;
- return LuaInteger.valueOf( n.intValue() );
- }
- } ;
- Coercion charCoercion = new Coercion() {
- public LuaValue coerce( Object javaValue ) {
- Character c = (Character) javaValue;
- return LuaInteger.valueOf( c.charValue() );
- }
- } ;
- Coercion doubleCoercion = new Coercion() {
- public LuaValue coerce( Object javaValue ) {
- Number n = (Number) javaValue;
- return LuaDouble.valueOf( n.doubleValue() );
- }
- } ;
- Coercion stringCoercion = new Coercion() {
- public LuaValue coerce( Object javaValue ) {
- return LuaString.valueOf( javaValue.toString() );
- }
- } ;
- COERCIONS.put( Boolean.class, boolCoercion );
- COERCIONS.put( Byte.class, intCoercion );
- COERCIONS.put( Character.class, charCoercion );
- COERCIONS.put( Short.class, intCoercion );
- COERCIONS.put( Integer.class, intCoercion );
- COERCIONS.put( Long.class, doubleCoercion );
- COERCIONS.put( Float.class, doubleCoercion );
- COERCIONS.put( Double.class, doubleCoercion );
- COERCIONS.put( String.class, stringCoercion );
- }
-
- /**
- * Coerse a Java object to a corresponding lua value.
- *
- *
- * {@code
- * LuaTable _G = new LuaTable();
- * LuaThread.setGlobals(_G);
- * _G.load(new JseBaseLib());
- * _G.get("print").call(LuaValue.valueOf("hello, world"));
- * }
- * Doing so will ensure the library is properly initialized
- * and loaded into the globals table.
- * {@code
- * LuaTable _G = new LuaTable();
- * LuaThread.setGlobals(_G);
- * _G.load(new JseBaseLib());
- * _G.load(new PackageLib());
- * _G.load(new JseIoLib());
- * _G.get("io").get("write").call(LuaValue.valueOf("hello, world\n"));
- * }
- * Doing so will ensure the library is properly initialized
- * and loaded into the globals table.
- * {@code
- * LuaTable _G = new LuaTable();
- * LuaThread.setGlobals(_G);
- * _G.load(new JseBaseLib());
- * _G.load(new PackageLib());
- * _G.load(new JseMathLib());
- * System.out.println( _G.get("math").get("sqrt").call( LuaValue.valueOf(2) ) );
- * }
- * Doing so will ensure the library is properly initialized
- * and loaded into the globals table.
- *
- *
- * {@code
- * LuaTable _G = new LuaTable();
- * LuaThread.setGlobals(_G);
- * _G.load(new JseBaseLib());
- * _G.load(new PackageLib());
- * _G.load(new JseOsLib());
- * System.out.println( _G.get("os").get("time").call() );
- * }
- * Doing so will ensure the library is properly initialized
- * and loaded into the globals table.
- * {@code
- * LuaValue _G = JsePlatform.standardGlobals();
- * _G.get("print").call(LuaValue.valueOf("hello, world"));
- * }
- * {@code
- * LoadState.load( new FileInputStream("main.lua"), "main.lua", _G ).call();
- * }
- * {@code
- * _G.get("require").call(LuaValue.valueOf("main"));
- * }
- * For this to succeed, the file "main.lua" must be in the current directory or a resource.
- * See {@link JseBaseLib} for details on finding scripts using {@link ResourceFinder}.
- *
- *
- * In addition, the {@link LuaC} compiler is installed so lua files may be loaded in their source form.
- * {@code
- * LuaTable _G = new LuaTable();
- * LuaThread.setGlobals(_G);
- * LuaC.install();
- * _G.load(new BaseLib());
- * _G.load(new PackageLib());
- * _G.load(new LuajavaLib());
- * _G.get("loadstring").call( LuaValue.valueOf(
- * "sys = luajava.bindClass('java.lang.System')\n"+
- * "print ( sys:currentTimeMillis() )\n" ) ).call();
- * }
- * This example is not intended to be realistic - only to show how the {@link LuajavaLib}
- * may be initialized by hand. In practice, the {@code luajava} library is available
- * on all JSE platforms via the call to {@link JsePlatform#standardGlobals()}
- * and the luajava api's are simply invoked from lua.
- * {@code
- * LuaValue _G = JsePlatform.standardGlobals();
- * LuaJC.install();
- * LoadState.load( new ByteArrayInputStream("print 'hello'".getBytes()), "main.lua", _G ).call();
- * }
- * @see LuaCompiler
- * @see LuaC
- * @see JsePlatform
- * @see JmePlatform
- * @see BaseLib
- * @see LuaValue
- */
-public class LuaJC implements LuaCompiler {
-
- private static final String NON_IDENTIFIER = "[^a-zA-Z0-9_$/.\\-]";
-
- private static LuaJC instance;
-
- public static LuaJC getInstance() {
- if ( instance == null )
- instance = new LuaJC();
- return instance;
- }
-
- /**
- * Install the compiler as the main compiler to use.
- * Will fall back to the LuaC prototype compiler.
- */
- public static final void install() {
- LoadState.compiler = getInstance();
- }
-
- public LuaJC() {
- }
-
- public Hashtable compileAll(InputStream script, String chunkname, String filename) throws IOException {
- String classname = toStandardJavaClassName( chunkname );
- String luaname = toStandardLuaFileName( filename );
- Hashtable h = new Hashtable();
- Prototype p = LuaC.instance.compile(script, classname);
- JavaGen gen = new JavaGen(p, classname, luaname);
- insert( h, gen );
- return h;
- }
-
- private void insert(Hashtable h, JavaGen gen) {
- h.put(gen.classname, gen.bytecode);
- for ( int i=0, n=gen.inners!=null? gen.inners.length: 0; i