diff core/src/luan/impl/Block.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/Block.java@4eaee12f6c65
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/core/src/luan/impl/Block.java	Sun Jun 22 05:41:22 2014 +0000
@@ -0,0 +1,29 @@
+package luan.impl;
+
+import luan.LuanException;
+
+
+final class Block implements Stmt {
+	final Stmt[] stmts;
+	private final int stackStart;
+	private final int stackEnd;
+
+	Block(Stmt[] stmts,int stackStart,int stackEnd) {
+		if( stmts.length==0 )
+			throw new RuntimeException("empty block");
+		this.stmts = stmts;
+		this.stackStart = stackStart;
+		this.stackEnd = stackEnd;
+	}
+
+	@Override public void eval(LuanStateImpl luan) throws LuanException {
+		try {
+			for( Stmt stmt : stmts ) {
+				stmt.eval(luan);
+			}
+		} finally {
+			luan.stackClear(stackStart,stackEnd);
+		}
+	}
+
+}