X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=blobdiff_plain;f=bundles%2Forg.simantics.scl.compiler%2Fsrc%2Forg%2Fsimantics%2Fscl%2Fcompiler%2Fcompilation%2FCompilationContext.java;fp=bundles%2Forg.simantics.scl.compiler%2Fsrc%2Forg%2Fsimantics%2Fscl%2Fcompiler%2Fcompilation%2FCompilationContext.java;h=d5cbe614a8bb64b12088cb4ac0a9b8daa85e548e;hb=a8758de5bc19e5adb3f618d3038743a164f09912;hp=0000000000000000000000000000000000000000;hpb=12d9af17384d960b75d58c3935d2b7b46d93e87b;p=simantics%2Fplatform.git

diff --git a/bundles/org.simantics.scl.compiler/src/org/simantics/scl/compiler/compilation/CompilationContext.java b/bundles/org.simantics.scl.compiler/src/org/simantics/scl/compiler/compilation/CompilationContext.java
new file mode 100644
index 000000000..d5cbe614a
--- /dev/null
+++ b/bundles/org.simantics.scl.compiler/src/org/simantics/scl/compiler/compilation/CompilationContext.java
@@ -0,0 +1,44 @@
+package org.simantics.scl.compiler.compilation;
+
+import org.simantics.scl.compiler.common.names.Name;
+import org.simantics.scl.compiler.elaboration.contexts.EnvironmentalContext;
+import org.simantics.scl.compiler.elaboration.expressions.EConstant;
+import org.simantics.scl.compiler.elaboration.expressions.EError;
+import org.simantics.scl.compiler.elaboration.expressions.Expression;
+import org.simantics.scl.compiler.elaboration.modules.SCLValue;
+import org.simantics.scl.compiler.environment.Environment;
+import org.simantics.scl.compiler.errors.ErrorLog;
+import org.simantics.scl.compiler.errors.Locations;
+import org.simantics.scl.compiler.internal.codegen.types.JavaTypeTranslator;
+import org.simantics.scl.compiler.internal.codegen.utils.JavaNamingPolicy;
+import org.simantics.scl.compiler.module.ConcreteModule;
+import org.simantics.scl.compiler.types.Type;
+
+import gnu.trove.map.hash.THashMap;
+
+public class CompilationContext implements EnvironmentalContext {
+    public final ErrorLog errorLog = new ErrorLog();
+    public Environment environment;
+    public JavaTypeTranslator javaTypeTranslator;
+    public JavaNamingPolicy namingPolicy;
+    public ConcreteModule module;
+    
+    private THashMap<Name, SCLValue> valueCache = new THashMap<Name, SCLValue>();
+
+    public SCLValue getValue(Name name) {
+        if(valueCache.containsKey(name))
+            return valueCache.get(name);
+        SCLValue value = environment.getValue(name);
+        if(value == null)
+            errorLog.log(Locations.NO_LOCATION, "Couldn't find " + name + ".");
+        valueCache.put(name, value);
+        return value;
+    }
+    
+    public Expression getConstant(Name name, Type ... typeParameters) {
+        SCLValue value = getValue(name);
+        if(value == null)
+            return new EError(Locations.NO_LOCATION);
+        return new EConstant(value, typeParameters);
+    }
+}