bundles/org.simantics.scl.compiler/src/org/simantics/scl/compiler/elaboration/chr/plan/IterateListOp.java

   1 package org.simantics.scl.compiler.elaboration.chr.plan;\r
   2 \r
   3 \r
   4 import org.simantics.scl.compiler.compilation.CompilationContext;\r
   5 import org.simantics.scl.compiler.elaboration.expressions.Expression;\r
   6 import org.simantics.scl.compiler.elaboration.expressions.Variable;\r
   7 import org.simantics.scl.compiler.internal.codegen.references.IVal;\r
   8 import org.simantics.scl.compiler.internal.codegen.writer.CodeWriter;\r
   9 \r
  10 public class IterateListOp extends PlanOp {\r
  11     public Variable variable;\r
  12     public Expression list;\r
  13     \r
  14     public IterateListOp(long location, Variable variable, Expression list) {\r
  15         super(location);\r
  16         this.variable = variable;\r
  17         this.list = list;\r
  18     }  \r
  19     \r
  20     @Override\r
  21     public void toString(StringBuilder b) {\r
  22         b.append("ITERATE ").append(variable).append(" <- ").append(list);\r
  23     }\r
  24 \r
  25     @Override\r
  26     public void generateCode(CompilationContext context, PlanContext planContext, CodeWriter w) {\r
  27         IVal listValue = list.toVal(context.environment, w);\r
  28         planContext.iterateList(location, w, variable, listValue);\r
  29     }\r
  30 }\r