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.TIntHashSet;
  18
  19 public class EError extends Expression {
  20
  21     public EError(long loc, Type type) {
  22         super(loc);
  23         setType(type);
  24     }
  25
  26     public EError() {
  27     }
  28
  29     public EError(long loc) {
  30         this(loc, Types.metaVar(Kinds.STAR));
  31     }
  32
  33     @Override
  34     public void collectVars(TObjectIntHashMap<Variable> allVars,
  35             TIntHashSet vars) {
  36     }
  37
  38     @Override
  39     protected void updateType() throws MatchException {
  40         setType(Types.metaVar(Kinds.STAR));
  41     }
  42
  43     @Override
  44     public IVal toVal(CompilationContext context, CodeWriter w) {
  45         throw new UnsupportedOperationException();
  46     }
  47
  48     @Override
  49     public Expression simplify(SimplificationContext context) {
  50         return this;
  51     }
  52
  53     @Override
  54     public Expression resolve(TranslationContext context) {
  55         return this;
  56     }
  57
  58     @Override
  59     public Expression inferType(TypingContext context) {
  60         return this;
  61     }
  62
  63     @Override
  64     public void setLocationDeep(long loc) {
  65         if(location == Locations.NO_LOCATION)
  66             location = loc;
  67     }
  68
  69     @Override
  70     public void accept(ExpressionVisitor visitor) {
  71         visitor.visit(this);
  72     }
  73
  74     @Override
  75     public Expression replace(ReplaceContext context) {
  76         return this;
  77     }
  78
  79     @Override
  80     public Expression accept(ExpressionTransformer transformer) {
  81         return transformer.transform(this);
  82     }
  83
  84 }