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

   1 package org.simantics.scl.compiler.elaboration.expressions;
   2
   3 import org.simantics.scl.compiler.compilation.CompilationContext;
   4 import org.simantics.scl.compiler.elaboration.contexts.ReplaceContext;
   5 import org.simantics.scl.compiler.elaboration.contexts.SimplificationContext;
   6 import org.simantics.scl.compiler.elaboration.contexts.TranslationContext;
   7 import org.simantics.scl.compiler.elaboration.contexts.TypingContext;
   8 import org.simantics.scl.compiler.errors.Locations;
   9 import org.simantics.scl.compiler.internal.codegen.references.IVal;
  10 import org.simantics.scl.compiler.internal.codegen.writer.CodeWriter;
  11 import org.simantics.scl.compiler.types.Type;
  12 import org.simantics.scl.compiler.types.Types;
  13 import org.simantics.scl.compiler.types.exceptions.MatchException;
  14 import org.simantics.scl.compiler.types.kinds.Kinds;
  15
  16 import gnu.trove.map.hash.TObjectIntHashMap;
  17 import gnu.trove.set.hash.THashSet;
  18 import gnu.trove.set.hash.TIntHashSet;
  19
  20 public class EError extends Expression {
  21
  22     public EError(long loc, Type type) {
  23         super(loc);
  24         setType(type);
  25     }
  26
  27     public EError() {
  28     }
  29
  30     public EError(long loc) {
  31         this(loc, Types.metaVar(Kinds.STAR));
  32     }
  33
  34         public void collectRefs(TObjectIntHashMap<Object> allRefs, TIntHashSet refs) {
  35     }
  36
  37         @Override
  38         public void collectVars(TObjectIntHashMap<Variable> allVars,
  39                 TIntHashSet vars) {
  40         }
  41
  42         @Override
  43         protected void updateType() throws MatchException {
  44             setType(Types.metaVar(Kinds.STAR));
  45         }
  46
  47         @Override
  48         public IVal toVal(CompilationContext context, CodeWriter w) {
  49         throw new UnsupportedOperationException();
  50     }
  51
  52     @Override
  53     public void collectFreeVariables(THashSet<Variable> vars) {
  54     }
  55
  56     @Override
  57     public Expression simplify(SimplificationContext context) {
  58         return this;
  59     }
  60
  61     @Override
  62     public Expression resolve(TranslationContext context) {
  63         return this;
  64     }
  65
  66     @Override
  67     public Expression inferType(TypingContext context) {
  68         return this;
  69     }
  70
  71     @Override
  72     public void collectEffects(THashSet<Type> effects) {
  73     }
  74
  75     @Override
  76     public void setLocationDeep(long loc) {
  77         if(location == Locations.NO_LOCATION)
  78             location = loc;
  79     }
  80
  81     @Override
  82     public void accept(ExpressionVisitor visitor) {
  83         visitor.visit(this);
  84     }
  85
  86     @Override
  87     public Expression replace(ReplaceContext context) {
  88         return this;
  89     }
  90
  91     @Override
  92     public void forVariables(VariableProcedure procedure) {
  93     }
  94
  95     @Override
  96     public Expression accept(ExpressionTransformer transformer) {
  97         return transformer.transform(this);
  98     }
  99
 100 }