1 package org.simantics.scl.compiler.elaboration.equation;
3 import org.simantics.scl.compiler.elaboration.contexts.ReplaceContext;
4 import org.simantics.scl.compiler.elaboration.contexts.TranslationContext;
5 import org.simantics.scl.compiler.elaboration.contexts.TypingContext;
6 import org.simantics.scl.compiler.elaboration.expressions.Expression;
7 import org.simantics.scl.compiler.elaboration.expressions.Variable;
8 import org.simantics.scl.compiler.errors.Locations;
10 import gnu.trove.map.hash.TObjectIntHashMap;
11 import gnu.trove.set.hash.TIntHashSet;
13 public class EqGuard extends Equation {
14 public Expression guard;
16 public EqGuard(Expression guard) {
20 public EqGuard(long location, Expression guard) {
22 this.location = location;
26 public void setLocationDeep(long loc) {
27 if(location == Locations.NO_LOCATION) {
29 guard.setLocationDeep(loc);
34 public void checkType(TypingContext context) {
35 guard = guard.checkIgnoredType(context);
39 public void collectVars(TObjectIntHashMap<Variable> allVars, TIntHashSet vars) {
40 guard.collectVars(allVars, vars);
44 public void resolve(TranslationContext context) {
45 guard = guard.resolve(context);
49 public void accept(EquationVisitor visitor) {
54 public Equation replace(ReplaceContext context) {
55 return new EqGuard(location, guard.replace(context));