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