X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=blobdiff_plain;f=bundles%2Forg.simantics.scl.compiler%2Fsrc%2Forg%2Fsimantics%2Fscl%2Fcompiler%2Felaboration%2Fchr%2Fplan%2FIterateListOp.java;fp=bundles%2Forg.simantics.scl.compiler%2Fsrc%2Forg%2Fsimantics%2Fscl%2Fcompiler%2Felaboration%2Fchr%2Fplan%2FIterateListOp.java;h=57abca10a95fb042ddd0b845a16dd4c052f5f34c;hb=a8758de5bc19e5adb3f618d3038743a164f09912;hp=0000000000000000000000000000000000000000;hpb=12d9af17384d960b75d58c3935d2b7b46d93e87b;p=simantics%2Fplatform.git

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
index 000000000..57abca10a
--- /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;
+
+
+import org.simantics.scl.compiler.compilation.CompilationContext;
+import org.simantics.scl.compiler.elaboration.expressions.Expression;
+import org.simantics.scl.compiler.elaboration.expressions.Variable;
+import org.simantics.scl.compiler.internal.codegen.references.IVal;
+import org.simantics.scl.compiler.internal.codegen.writer.CodeWriter;
+
+public class IterateListOp extends PlanOp {
+    public Variable variable;
+    public Expression list;
+    
+    public IterateListOp(long location, Variable variable, Expression list) {
+        super(location);
+        this.variable = variable;
+        this.list = list;
+    }  
+    
+    @Override
+    public void toString(StringBuilder b) {
+        b.append("ITERATE ").append(variable).append(" <- ").append(list);
+    }
+
+    @Override
+    public void generateCode(CompilationContext context, PlanContext planContext, CodeWriter w) {
+        IVal listValue = list.toVal(context.environment, w);
+        planContext.iterateList(location, w, variable, listValue);
+    }
+}