j2me 手机游戏入门开发--俄罗斯方块_5_使用LUA脚本写游戏

/******************************************************************************* * Copyright (c) 2007 LuaJ. 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.kahluafork.compiler; import java.io.IOException; import java.io.InputStream; import java.io.UnsupportedEncodingException; import java.util.Hashtable; import org.luaj.kahluafork.compiler.FuncState.BlockCnt; import se.krka.kahlua.vm.LuaException; import se.krka.kahlua.vm.LuaPrototype; public class LexState { public int nCcalls; Hashtable strings = new Hashtable(); protected static final String RESERVED_LOCAL_VAR_FOR_CONTROL = "(for control)"; protected static final String RESERVED_LOCAL_VAR_FOR_STATE = "(for state)"; protected static final String RESERVED_LOCAL_VAR_FOR_GENERATOR = "(for generator)"; protected static final String RESERVED_LOCAL_VAR_FOR_STEP = "(for step)"; protected static final String RESERVED_LOCAL_VAR_FOR_LIMIT = "(for limit)"; protected static final String RESERVED_LOCAL_VAR_FOR_INDEX = "(for index)"; // keywords array protected static final String[] RESERVED_LOCAL_VAR_KEYWORDS = new String[] { RESERVED_LOCAL_VAR_FOR_CONTROL, RESERVED_LOCAL_VAR_FOR_GENERATOR, RESERVED_LOCAL_VAR_FOR_INDEX, RESERVED_LOCAL_VAR_FOR_LIMIT, RESERVED_LOCAL_VAR_FOR_STATE, RESERVED_LOCAL_VAR_FOR_STEP }; private static final Hashtable RESERVED_LOCAL_VAR_KEYWORDS_TABLE = new Hashtable(); static { for ( int i=0; i<RESERVED_LOCAL_VAR_KEYWORDS.length; i++ ) RESERVED_LOCAL_VAR_KEYWORDS_TABLE.put( RESERVED_LOCAL_VAR_KEYWORDS[i], Boolean.TRUE ); } private static final int EOZ = (-1); private static final int MAXSRC = 80; private static final int MAX_INT = Integer.MAX_VALUE-2; private static final int UCHAR_MAX = 255; // TODO, convert to unicode CHAR_MAX? private static final int LUAI_MAXCCALLS = 200; private static final String LUA_QS(String s) { return "'"+s+"'"; } private static final String LUA_QL(Object o) { return LUA_QS(String.valueOf(o)); } public static boolean isReservedKeyword(String varName) { return RESERVED_LOCAL_VAR_KEYWORDS_TABLE.containsKey(varName); } /* ** Marks the end of a patch list. It is an invalid value both as an absolute ** address, and as a list link (would link an element to itself). */ static final int NO_JUMP = (-1); /* ** grep "ORDER OPR" if you change these enums */ static final int OPR_ADD=0, OPR_SUB=1, OPR_MUL=2, OPR_DIV=3, OPR_MOD=4, OPR_POW=5, OPR_CONCAT=6, OPR_NE=7, OPR_EQ=8, OPR_LT=9, OPR_LE=10, OPR_GT=11, OPR_GE=12, OPR_AND=13, OPR_OR=14, OPR_NOBINOPR=15; static final int OPR_MINUS=0, OPR_NOT=1, OPR_LEN=2, OPR_NOUNOPR=3; /* exp kind */ static final int VVOID = 0, /* no value */ VNIL = 1, VTRUE = 2, VFALSE = 3, VK = 4, /* info = index of constant in `k' */ VKNUM = 5, /* nval = numerical value */ VLOCAL = 6, /* info = local register */ VUPVAL = 7, /* info = index of upvalue in `upvalues' */ VGLOBAL = 8, /* info = index of table, aux = index of global name in `k' */ VINDEXED = 9, /* info = table register, aux = index register (or `k') */ VJMP = 10, /* info = instruction pc */ VRELOCABLE = 11, /* info = instruction pc */ VNONRELOC = 12, /* info = result register */ VCALL = 13, /* info = instruction pc */ VVARARG = 14; /* info = instruction pc */ private static class Token { int token; /* semantics information */ double r; String ts; public void set(Token other) { this.token = other.token; this.r = other.r; this.ts = other.ts; } }; int current; /* current character (charint) */ int linenumber; /* input line counter */ int lastline; /* line of last token `consumed' */ final Token t = new Token(); /* current token */ final Token lookahead = new Token(); /* look ahead token */ FuncState fs; /* `FuncState' is private to the parser */ InputStream z; /* input stream */ byte[] buff; /* buffer for tokens */ int nbuff; /* length of buffer */ String source; /* current source name */ byte decpoint; /* locale decimal point */ /* ORDER RESERVED */ final static String luaX_tokens [] = { "and", "break", "do", "else", "elseif", "end", "false", "for", "function", "if", "in", "local", "nil", "not", "or", "repeat", "return", "then", "true", "until", "while", "..", "...", "==", ">=", "<=", "~=", "<number>", "<name>", "<string>", "<eof>", }; final static int /* terminal symbols denoted by reserved words */ TK_AND=257, TK_BREAK=258, TK_DO=259, TK_ELSE=260, TK_ELSEIF=261, TK_END=262, TK_FALSE=263, TK_FOR=264, TK_FUNCTION=265, TK_IF=266, TK_IN=267, TK_LOCAL=268, TK_NIL=269, TK_NOT=270, TK_OR=271, TK_REPEAT=272, TK_RETURN=273, TK_THEN=274, TK_TRUE=275, TK_UNTIL=276, TK_WHILE=277, /* other terminal symbols */ TK_CONCAT=278, TK_DOTS=279, TK_EQ=280, TK_GE=281, TK_LE=282, TK_NE=283, TK_NUMBER=284, TK_NAME=285, TK_STRING=286, TK_EOS=287; final static int FIRST_RESERVED = TK_AND; final static int NUM_RESERVED = TK_WHILE+1-FIRST_RESERVED; final static Hashtable RESERVED = new Hashtable(); 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 LuaPrototype compile(int firstByte, InputStream z, String name) { LexState lexstate = new LexState(z); FuncState funcstate = new FuncState(); // lexstate.buff = buff; lexstate.setinput(firstByte, z, name); lexstate.open_func(funcstate); /* main func. is always vararg */ funcstate.isVararg = FuncState.VARARG_ISVARARG; funcstate.f.name = "@"+name; lexstate.next(); /* read first token */ lexstate.chunk(); lexstate.check(LexState.TK_EOS); lexstate.close_func(); FuncState._assert (funcstate.prev == null); FuncState._assert (funcstate.f.numUpvalues == 0); FuncState._assert (lexstate.fs == null); return funcstate.f; } public LexState(InputStream stream) { this.z = stream; this.buff = new byte[32]; } void nextChar() { try { current = z.read(); } catch ( IOException e ) { e.printStackTrace(); c