Migrated source code from Simantics SVN

[simantics/platform.git] / bundles / org.simantics.structural2 / src / org / simantics / structural2 / scl / AbstractCompileStructuralValueRequest.java

diff --git a/bundles/org.simantics.structural2/src/org/simantics/structural2/scl/AbstractCompileStructuralValueRequest.java b/bundles/org.simantics.structural2/src/org/simantics/structural2/scl/AbstractCompileStructuralValueRequest.java
new file mode 100644 (file)
index 0000000..e369050
--- /dev/null
+++ b/bundles/org.simantics.structural2/src/org/simantics/structural2/scl/AbstractCompileStructuralValueRequest.java
@@ -0,0 +1,135 @@
+package org.simantics.structural2.scl;\r
+\r
+import java.util.Collections;\r
+import java.util.Map;\r
+\r
+import org.simantics.databoard.Bindings;\r
+import org.simantics.db.ReadGraph;\r
+import org.simantics.db.Resource;\r
+import org.simantics.db.common.procedure.adapter.TransientCacheListener;\r
+import org.simantics.db.common.request.ResourceRead2;\r
+import org.simantics.db.exception.DatabaseException;\r
+import org.simantics.db.layer0.scl.AbstractExpressionCompilationContext;\r
+import org.simantics.db.layer0.scl.AbstractExpressionCompilationRequest;\r
+import org.simantics.db.layer0.util.RuntimeEnvironmentRequest;\r
+import org.simantics.db.layer0.variable.Variable;\r
+import org.simantics.layer0.Layer0;\r
+import org.simantics.scl.compiler.elaboration.expressions.EApply;\r
+import org.simantics.scl.compiler.elaboration.expressions.EConstant;\r
+import org.simantics.scl.compiler.elaboration.expressions.EVariable;\r
+import org.simantics.scl.compiler.elaboration.expressions.Expression;\r
+import org.simantics.scl.compiler.elaboration.modules.SCLValue;\r
+import org.simantics.scl.compiler.environment.Environment;\r
+import org.simantics.scl.compiler.environment.Environments;\r
+import org.simantics.scl.compiler.runtime.RuntimeEnvironment;\r
+import org.simantics.scl.compiler.top.SCLExpressionCompilationException;\r
+import org.simantics.scl.compiler.types.Type;\r
+import org.simantics.structural2.scl.AbstractCompileStructuralValueRequest.CompilationContext;\r
+\r
+/**\r
+ * Compiles an SCL expression that is attached to a literal\r
+ * whose parent is a component that is a part of a component type.\r
+ * \r
+ * @author Antti Villberg\r
+ */\r
+abstract public class AbstractCompileStructuralValueRequest extends AbstractExpressionCompilationRequest<CompilationContext, Variable> {\r
+    \r
+    protected final Resource relation;\r
+    \r
+    public static class CompilationContext extends AbstractExpressionCompilationContext {\r
+        public final Map<String, ComponentTypeProperty> propertyMap;\r
+        \r
+        public CompilationContext(RuntimeEnvironment runtimeEnvironment,\r
+                Map<String, ComponentTypeProperty> propertyMap) {\r
+            super(runtimeEnvironment);\r
+            this.propertyMap = propertyMap;\r
+        }\r
+    }\r
+    \r
+    public AbstractCompileStructuralValueRequest(Resource relation) {\r
+        this.relation = relation;\r
+    }\r
+\r
+    @Override\r
+    abstract protected String getExpressionText(ReadGraph graph) throws DatabaseException;\r
+    abstract protected Resource getIndexRoot(ReadGraph graph) throws DatabaseException;\r
+    abstract protected Resource getComponentType(ReadGraph graph) throws DatabaseException;\r
+    \r
+    @Override\r
+    protected Type getExpectedType(ReadGraph graph, CompilationContext context)\r
+            throws DatabaseException {\r
+        Layer0 L0 = Layer0.getInstance(graph);\r
+        String valueType = graph.getPossibleRelatedValue(relation, L0.RequiresValueType, Bindings.STRING);\r
+        if(valueType != null) {\r
+            try {\r
+                return Environments.getType(context.runtimeEnvironment.getEnvironment(), valueType);\r
+            } catch (SCLExpressionCompilationException e) {\r
+                e.printStackTrace();\r
+            }\r
+        }\r
+        return super.getExpectedType(graph, context);\r
+    }\r
+    \r
+    \r
+\r
+    @Override\r
+    protected CompilationContext getCompilationContext(ReadGraph graph)\r
+            throws DatabaseException {\r
+        Resource indexRoot = getIndexRoot(graph);\r
+        Resource componentType = getComponentType(graph);\r
+        if(componentType == null) {\r
+            RuntimeEnvironment runtimeEnvironment = graph.syncRequest(new RuntimeEnvironmentRequest(indexRoot));\r
+            return new CompilationContext(runtimeEnvironment, Collections.<String,ComponentTypeProperty>emptyMap());\r
+        } else {\r
+               return graph.syncRequest(new ResourceRead2<CompilationContext>(componentType, indexRoot) {\r
+                   @Override\r
+                   public CompilationContext perform(ReadGraph graph)\r
+                           throws DatabaseException {\r
+                       RuntimeEnvironment runtimeEnvironment = graph.syncRequest(new RuntimeEnvironmentRequest(resource2));\r
+                       Map<String, ComponentTypeProperty> propertyMap =\r
+                               graph.syncRequest(new ReadComponentTypeInterfaceRequest(resource, runtimeEnvironment.getEnvironment()),\r
+                                       TransientCacheListener.<Map<String, ComponentTypeProperty>>instance());\r
+                       return new CompilationContext(runtimeEnvironment, propertyMap);\r
+                   }\r
+               });\r
+        }\r
+    }\r
+\r
+    @Override\r
+    protected Type getContextVariableType() {\r
+        return VARIABLE; \r
+    }\r
+\r
+    protected static Expression accessInputVariable(Environment environment,\r
+            org.simantics.scl.compiler.elaboration.expressions.Variable contextVariable) {\r
+        SCLValue variableParentFunction = environment.getValue(VARIABLE_PARENT);\r
+        return new EApply(new EConstant(variableParentFunction),\r
+                new EApply(new EConstant(variableParentFunction),\r
+                        new EVariable(contextVariable)));\r
+    }\r
+    \r
+    @Override\r
+    protected Expression getVariableAccessExpression(\r
+            ReadGraph graph,\r
+            CompilationContext context,\r
+            org.simantics.scl.compiler.elaboration.expressions.Variable contextVariable,\r
+            String name) throws DatabaseException {\r
+        ComponentTypeProperty property = context.propertyMap.get(name);\r
+        if(property != null) {\r
+            Environment environment = context.runtimeEnvironment.getEnvironment();\r
+            return getPropertyFlexible(environment,\r
+                    accessInputVariable(environment, contextVariable),\r
+                    name,\r
+                    property.type);\r
+        }\r
+        else if(name.equals("input")) {\r
+            Environment environment = context.runtimeEnvironment.getEnvironment();\r
+            return accessInputVariable(environment, contextVariable);\r
+        }\r
+        else if(name.equals("self"))\r
+            return new EVariable(contextVariable);\r
+        else\r
+            return null;\r
+    }\r
+    \r
+}\r