// Path: engine/hu/mentlerd/hybrid/LuaException.java
// public class LuaException extends RuntimeException{
// 	private static final long serialVersionUID = -8214311557059032574L;
// 
// 	private Object luaCause;
// 	
// 	public LuaException( String message ) {
// 		super( message );
// 	}
// 
// 	public LuaException( String message, Object cause ){
// 		super( message );
// 		this.luaCause = cause;
// 	}
// 
// 	public LuaException( Throwable cause ){
// 		super(cause);
// 	}
// 	
// 	public Object getLuaCause(){
// 		if ( luaCause == null )
// 			return getMessage();
// 		
// 		return luaCause;
// 	}
// }
// 
// Path: engine/hu/mentlerd/hybrid/Prototype.java
// public final class Prototype {
// 	
// 	public static class LocalVar {
// 		public String name;
// 		
// 		public int start;
// 		public int end;
// 		
// 		public LocalVar(String name) {
// 			this.name = name;
// 		}
// 		public LocalVar(String name, int start, int end){
// 			this.name = name;
// 					
// 			this.start = start;
// 			this.end   = end;
// 		}
// 	}
// 	
// 	public int[] code;
// 
// 	public Object[] constants;
// 	public Prototype[] prototypes;
// 	
// 	public int numParams;
// 	public boolean isVararg;
// 
// 	public int numUpvalues;
// 	public int maxStacksize;
// 		
// 	public String source;
// 	
// 	//Debug info
// 	public int[] lines;
// 	public LocalVar[] locals;
// 	public String[] upvalues;
// 	
// 	//Debug helper
// 	public String findLocalName( int slot, int pc ){
// 		for ( int index = 0; index < locals.length; index++ ){
// 			LocalVar local = locals[index];
// 			
// 			if ( local.start > pc )
// 				break;
// 			
// 			if ( local.end >= pc && slot-- == 0 )
// 				return local.name;
// 		}
// 			
// 		return null;
// 	}
// 	
// }
// 
// Path: engine/hu/mentlerd/hybrid/Prototype.java
// public static class LocalVar {
// 	public String name;
// 		
// 	public int start;
// 	public int end;
// 		
// 	public LocalVar(String name) {
// 		this.name = name;
// 	}
// 	public LocalVar(String name, int start, int end){
// 		this.name = name;
// 					
// 		this.start = start;
// 		this.end   = end;
// 	}
// }
// 
// Path: engine/hu/mentlerd/hybrid/compiler/BlockCnt.java
// public class BlockCnt {
// 	BlockCnt previous;  /* chain */
// 	int breaklist;  /* list of jumps out of this loop */
// 	int nactvar;  /* # active locals outside the breakable structure */
// 	boolean upval;  /* true if some variable in the block is an upvalue */
// 	boolean isbreakable;  /* true if `block' is a loop */
// }


import hu.mentlerd.hybrid.LuaException;
import hu.mentlerd.hybrid.Prototype;
import hu.mentlerd.hybrid.Prototype.LocalVar;
import hu.mentlerd.hybrid.compiler.BlockCnt;
import java.io.IOException;
import java.io.Reader;
import java.util.Hashtable;
	
	final static Hashtable<String, Integer> RESERVED = new Hashtable<String, Integer>();
	static {
		for ( int i=0; i<NUM_RESERVED; i++ ) {
			String ts = luaX_tokens[i];
			RESERVED.put(ts, new Integer(FIRST_RESERVED+i));
		}
	}

	private boolean isalnum(int c) {
		return (c >= '0' && c <= '9') 
			|| (c >= 'a' && c <= 'z')
			|| (c >= 'A' && c <= 'Z')
			|| (c == '_');
		// return Character.isLetterOrDigit(c);
	}
	
	private boolean isalpha(int c) {
		return (c >= 'a' && c <= 'z')
			|| (c >= 'A' && c <= 'Z');
	}
	
	private boolean isdigit(int c) {
		return (c >= '0' && c <= '9'); 
	}
	
	private boolean isspace(int c) {
		return (c <= ' ');
	}
	
// Path: engine/hu/mentlerd/hybrid/LuaException.java
// public class LuaException extends RuntimeException{
// 	private static final long serialVersionUID = -8214311557059032574L;
// 
// 	private Object luaCause;
// 	
// 	public LuaException( String message ) {
// 		super( message );
// 	}
// 
// 	public LuaException( String message, Object cause ){
// 		super( message );
// 		this.luaCause = cause;
// 	}
// 
// 	public LuaException( Throwable cause ){
// 		super(cause);
// 	}
// 	
// 	public Object getLuaCause(){
// 		if ( luaCause == null )
// 			return getMessage();
// 		
// 		return luaCause;
// 	}
// }
// 
// Path: engine/hu/mentlerd/hybrid/Prototype.java
// public final class Prototype {
// 	
// 	public static class LocalVar {
// 		public String name;
// 		
// 		public int start;
// 		public int end;
// 		
// 		public LocalVar(String name) {
// 			this.name = name;
// 		}
// 		public LocalVar(String name, int start, int end){
// 			this.name = name;
// 					
// 			this.start = start;
// 			this.end   = end;
// 		}
// 	}
// 	
// 	public int[] code;
// 
// 	public Object[] constants;
// 	public Prototype[] prototypes;
// 	
// 	public int numParams;
// 	public boolean isVararg;
// 
// 	public int numUpvalues;
// 	public int maxStacksize;
// 		
// 	public String source;
// 	
// 	//Debug info
// 	public int[] lines;
// 	public LocalVar[] locals;
// 	public String[] upvalues;
// 	
// 	//Debug helper
// 	public String findLocalName( int slot, int pc ){
// 		for ( int index = 0; index < locals.length; index++ ){
// 			LocalVar local = locals[index];
// 			
// 			if ( local.start > pc )
// 				break;
// 			
// 			if ( local.end >= pc && slot-- == 0 )
// 				return local.name;
// 		}
// 			
// 		return null;
// 	}
// 	
// }
// 
// Path: engine/hu/mentlerd/hybrid/Prototype.java
// public static class LocalVar {
// 	public String name;
// 		
// 	public int start;
// 	public int end;
// 		
// 	public LocalVar(String name) {
// 		this.name = name;
// 	}
// 	public LocalVar(String name, int start, int end){
// 		this.name = name;
// 					
// 		this.start = start;
// 		this.end   = end;
// 	}
// }
// 
// Path: engine/hu/mentlerd/hybrid/compiler/BlockCnt.java
// public class BlockCnt {
// 	BlockCnt previous;  /* chain */
// 	int breaklist;  /* list of jumps out of this loop */
// 	int nactvar;  /* # active locals outside the breakable structure */
// 	boolean upval;  /* true if some variable in the block is an upvalue */
// 	boolean isbreakable;  /* true if `block' is a loop */
// }


// Path: engine/hu/mentlerd/hybrid/compiler/LexState.java
import hu.mentlerd.hybrid.LuaException;
import hu.mentlerd.hybrid.Prototype;
import hu.mentlerd.hybrid.Prototype.LocalVar;
import hu.mentlerd.hybrid.compiler.BlockCnt;
import java.io.IOException;
import java.io.Reader;
import java.util.Hashtable;

	
	final static Hashtable<String, Integer> RESERVED = new Hashtable<String, Integer>();
	static {
		for ( int i=0; i<NUM_RESERVED; i++ ) {
			String ts = luaX_tokens[i];
			RESERVED.put(ts, new Integer(FIRST_RESERVED+i));
		}
	}

	private boolean isalnum(int c) {
		return (c >= '0' && c <= '9') 
			|| (c >= 'a' && c <= 'z')
			|| (c >= 'A' && c <= 'Z')
			|| (c == '_');
		// return Character.isLetterOrDigit(c);
	}
	
	private boolean isalpha(int c) {
		return (c >= 'a' && c <= 'z')
			|| (c >= 'A' && c <= 'Z');
	}
	
	private boolean isdigit(int c) {
		return (c >= '0' && c <= '9'); 
	}
	
	private boolean isspace(int c) {
		return (c <= ' ');
	}
	
	public static Prototype compile(int firstByte, Reader z, String source) {