Mercurial Hosting > luan
view core/src/luan/impl/ForStmt.java @ 609:24b05963ba62
shell "clear" button now clears the session
author | Franklin Schmidt <fschmidt@gmail.com> |
---|---|
date | Wed, 09 Dec 2015 18:12:16 -0700 |
parents | d7a85fbe15f1 |
children | 859c0dedc8b6 |
line wrap: on
line source
package luan.impl; import luan.Luan; import luan.LuanException; import luan.LuanFunction; import luan.LuanElement; final class ForStmt extends CodeImpl implements Stmt { private final int iVars; private final int nVars; private final Expr iterExpr; private final Stmt block; ForStmt(LuanElement el,int iVars,int nVars,Expr iterExpr,Stmt block) { super(el); this.iVars = iVars; this.nVars = nVars; this.iterExpr = iterExpr; this.block = block; } @Override public void eval(LuanStateImpl luan) throws LuanException { Object fnObj = iterExpr.eval(luan); luan.push( iterExpr.el(), iterExpr.el().text() ); try { LuanFunction iter = luan.checkFunction(fnObj); String name = iterExpr.el().text(); while(true) { Object vals = iter.call(luan); if( vals==null ) break; if( vals instanceof Object[] ) { Object[] a = (Object[])vals; if( a.length==0 || a[0]==null ) 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); luan.pop(); } } }