Mercurial Hosting > luan
view core/src/luan/impl/ForStmt.java @ 171:3dcb0f9bee82
add core component
git-svn-id: https://luan-java.googlecode.com/svn/trunk@172 21e917c8-12df-6dd8-5cb6-c86387c605b9
author | fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9> |
---|---|
date | Sun, 22 Jun 2014 05:41:22 +0000 |
parents | src/luan/impl/ForStmt.java@4eaee12f6c65 |
children | 97d175772fed |
line wrap: on
line source
package luan.impl; import luan.Luan; import luan.LuanException; import luan.LuanFunction; import luan.LuanSource; import luan.LuanBit; final class ForStmt extends CodeImpl implements Stmt { private final int iVars; private final int nVars; private final Expr iterExpr; private final Stmt block; ForStmt(LuanSource.Element se,int iVars,int nVars,Expr iterExpr,Stmt block) { super(se); this.iVars = iVars; this.nVars = nVars; this.iterExpr = iterExpr; this.block = block; } @Override public void eval(LuanStateImpl luan) throws LuanException { LuanFunction iter = luan.bit(se).checkFunction( iterExpr.eval(luan) ); LuanBit bit = luan.bit(iterExpr.se()); String name = iterExpr.se().text(); try { while(true) { Object vals = bit.call(iter,name,LuanFunction.NOTHING); if( vals==null ) break; if( vals instanceof Object[] ) { Object[] a = (Object[])vals; if( a.length==0 ) break; for( int i=0; i<nVars; i++ ) { luan.stackSet( iVars+i, i < a.length ? a[i] : null ); } } else { luan.stackSet( iVars, vals ); for( int i=1; i<nVars; i++ ) { luan.stackSet( iVars+i, null ); } } block.eval(luan); } } catch(BreakException e) { } finally { luan.stackClear(iVars,iVars+nVars); } } }