gerrit.simantics Code Review - simantics/platform.git/blob

   1 package org.simantics.scl.compiler.elaboration.expressions;\r
   2 \r
   3 import org.simantics.scl.compiler.elaboration.contexts.ReplaceContext;\r
   4 import org.simantics.scl.compiler.elaboration.contexts.SimplificationContext;\r
   5 import org.simantics.scl.compiler.elaboration.contexts.TranslationContext;\r
   6 import org.simantics.scl.compiler.elaboration.contexts.TypingContext;\r
   7 import org.simantics.scl.compiler.elaboration.equation.Equation;\r
   8 import org.simantics.scl.compiler.errors.Locations;\r
   9 import org.simantics.scl.compiler.internal.elaboration.utils.ExpressionDecorator;\r
  10 import org.simantics.scl.compiler.types.Type;\r
  11 import org.simantics.scl.compiler.types.Types;\r
  12 import org.simantics.scl.compiler.types.exceptions.MatchException;\r
  13 \r
  14 import gnu.trove.map.hash.TObjectIntHashMap;\r
  15 import gnu.trove.set.hash.THashSet;\r
  16 import gnu.trove.set.hash.TIntHashSet;\r
  17 \r
  18 public class EEquations extends SimplifiableExpression {\r
  19 \r
  20     public Equation[] equations;\r
  21     public Type effect = Types.NO_EFFECTS;\r
  22     \r
  23     public EEquations(Equation[] equations) {\r
  24         this.equations = equations;\r
  25     }\r
  26     \r
  27     public EEquations(long location, Equation[] equations) {\r
  28         this(equations);\r
  29         this.location = location;\r
  30     }\r
  31 \r
  32     @Override\r
  33     public Expression resolve(TranslationContext context) {\r
  34         for(Equation equation : equations)\r
  35             equation.resolve(context);       \r
  36         return this;\r
  37     }\r
  38 \r
  39     @Override\r
  40     public void setLocationDeep(long loc) {\r
  41         if(location == Locations.NO_LOCATION) {\r
  42             location = loc;\r
  43             for(Equation equation : equations)\r
  44                 equation.setLocationDeep(loc);\r
  45         }\r
  46     }\r
  47 \r
  48     @Override\r
  49     public Expression accept(ExpressionTransformer transformer) {\r
  50         return transformer.transform(this);\r
  51     }\r
  52 \r
  53     @Override\r
  54     public void collectRefs(TObjectIntHashMap<Object> allRefs, TIntHashSet refs) {\r
  55         for(Equation equation : equations)\r
  56             equation.collectRefs(allRefs, refs);        \r
  57     }\r
  58 \r
  59     @Override\r
  60     public void collectVars(TObjectIntHashMap<Variable> allVars, TIntHashSet vars) {\r
  61         for(Equation equation : equations)\r
  62             equation.collectVars(allVars, vars);\r
  63     }\r
  64 \r
  65     @Override\r
  66     public void forVariables(VariableProcedure procedure) {\r
  67         for(Equation equation : equations)\r
  68             equation.forVariables(procedure);\r
  69     }\r
  70 \r
  71     @Override\r
  72     protected void updateType() throws MatchException {\r
  73         setType(Types.UNIT);\r
  74     }\r
  75 \r
  76     @Override\r
  77     public void collectFreeVariables(THashSet<Variable> vars) {\r
  78         for(Equation equation : equations)\r
  79             equation.collectFreeVariables(vars);\r
  80     }\r
  81 \r
  82     @Override\r
  83     public Expression decorate(ExpressionDecorator decorator) {\r
  84         if(decorator.decorateSubstructure(this)) {\r
  85             for(Equation equation : equations)\r
  86                  equation.decorate(decorator);\r
  87         }\r
  88         return this;\r
  89     }\r
  90 \r
  91     @Override\r
  92     public void collectEffects(THashSet<Type> effects) {\r
  93         for(Equation equation : equations)\r
  94             equation.collectEffects(effects);\r
  95     }\r
  96 \r
  97     @Override\r
  98     public void accept(ExpressionVisitor visitor) {\r
  99         visitor.visit(this);\r
 100     }\r
 101     \r
 102     @Override\r
 103     public Expression inferType(TypingContext context) {\r
 104         context.declareEffect(this.location, effect);\r
 105         for(Equation equation : equations)\r
 106             equation.checkType(context);\r
 107         return this;\r
 108     }\r
 109     \r
 110     @Override\r
 111     public Expression simplify(SimplificationContext context) {\r
 112         context.getErrorLog().log(location, "Equations should be transformed into other expressions before simplification phase.");\r
 113         return Expressions.tuple();\r
 114     }\r
 115     \r
 116     @Override\r
 117     public Expression replace(ReplaceContext context) {\r
 118         Equation[] newEquations = new Equation[equations.length];\r
 119         for(int i=0;i<equations.length;++i)\r
 120             newEquations[i] = equations[i].replace(context);\r
 121         return new EEquations(location, newEquations);\r
 122     }\r
 123 \r
 124 }\r