Merged changes from feature/scl to master.

[simantics/platform.git] / bundles / org.simantics.scl.compiler / src / org / simantics / scl / compiler / elaboration / chr / plan / IterateListOp.java

diff --git a/bundles/org.simantics.scl.compiler/src/org/simantics/scl/compiler/elaboration/chr/plan/IterateListOp.java b/bundles/org.simantics.scl.compiler/src/org/simantics/scl/compiler/elaboration/chr/plan/IterateListOp.java
new file mode 100644 (file)
index 0000000..57abca1
--- /dev/null
+++ b/bundles/org.simantics.scl.compiler/src/org/simantics/scl/compiler/elaboration/chr/plan/IterateListOp.java
@@ -0,0 +1,30 @@
+package org.simantics.scl.compiler.elaboration.chr.plan;\r
+\r
+\r
+import org.simantics.scl.compiler.compilation.CompilationContext;\r
+import org.simantics.scl.compiler.elaboration.expressions.Expression;\r
+import org.simantics.scl.compiler.elaboration.expressions.Variable;\r
+import org.simantics.scl.compiler.internal.codegen.references.IVal;\r
+import org.simantics.scl.compiler.internal.codegen.writer.CodeWriter;\r
+\r
+public class IterateListOp extends PlanOp {\r
+    public Variable variable;\r
+    public Expression list;\r
+    \r
+    public IterateListOp(long location, Variable variable, Expression list) {\r
+        super(location);\r
+        this.variable = variable;\r
+        this.list = list;\r
+    }  \r
+    \r
+    @Override\r
+    public void toString(StringBuilder b) {\r
+        b.append("ITERATE ").append(variable).append(" <- ").append(list);\r
+    }\r
+\r
+    @Override\r
+    public void generateCode(CompilationContext context, PlanContext planContext, CodeWriter w) {\r
+        IVal listValue = list.toVal(context.environment, w);\r
+        planContext.iterateList(location, w, variable, listValue);\r
+    }\r
+}\r