Mercurial Hosting > luan
view src/luan/interp/GenericForStmt.java @ 31:5cf15507d77e
separate interpreter from interface
git-svn-id: https://luan-java.googlecode.com/svn/trunk@32 21e917c8-12df-6dd8-5cb6-c86387c605b9
author | fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9> |
---|---|
date | Thu, 13 Dec 2012 02:50:04 +0000 |
parents | d85510d92eee |
children | c3eab5a3ce3c |
line wrap: on
line source
package luan.interp; import luan.Lua; import luan.LuaException; import luan.LuaFunction; final class GenericForStmt implements Stmt { private final int iVars; private final int nVars; private final Expr iterExpr; private final Stmt block; GenericForStmt(int iVars,int nVars,Expr iterExpr,Stmt block) { this.iVars = iVars; this.nVars = nVars; this.iterExpr = iterExpr; this.block = block; } @Override public void eval(LuaStateImpl lua) throws LuaException { LuaFunction iter = Lua.checkFunction( iterExpr.eval(lua) ); Object[] stack = lua.stack(); try { while(true) { Object[] vals = iter.call(lua); if( vals.length==0 || vals[0]==null ) break; for( int i=0; i<nVars; i++ ) { stack[iVars+i] = i < vals.length ? vals[i] : null; } block.eval(lua); } } catch(BreakException e) { } finally { for( int i=iVars; i<iVars+nVars; i++ ) { stack[i] = null; } } } }