1 package org.simantics.structural2.scl.procedural;
\r
3 import java.util.List;
\r
5 import org.simantics.databoard.Bindings;
\r
6 import org.simantics.db.ReadGraph;
\r
7 import org.simantics.db.Resource;
\r
8 import org.simantics.db.common.procedure.adapter.TransientCacheListener;
\r
9 import org.simantics.db.exception.DatabaseException;
\r
10 import org.simantics.db.layer0.scl.AbstractExpressionCompilationRequest;
\r
11 import org.simantics.db.layer0.variable.Variable;
\r
12 import org.simantics.scl.compiler.common.names.Name;
\r
13 import org.simantics.scl.compiler.constants.StringConstant;
\r
14 import org.simantics.scl.compiler.elaboration.expressions.EApply;
\r
15 import org.simantics.scl.compiler.elaboration.expressions.EConstant;
\r
16 import org.simantics.scl.compiler.elaboration.expressions.EExternalConstant;
\r
17 import org.simantics.scl.compiler.elaboration.expressions.ELiteral;
\r
18 import org.simantics.scl.compiler.elaboration.expressions.EVariable;
\r
19 import org.simantics.scl.compiler.elaboration.expressions.Expression;
\r
20 import org.simantics.scl.compiler.environment.Environment;
\r
21 import org.simantics.scl.compiler.types.Type;
\r
22 import org.simantics.scl.compiler.types.Types;
\r
23 import org.simantics.scl.runtime.SCLContext;
\r
24 import org.simantics.scl.runtime.function.Function1;
\r
25 import org.simantics.structural.stubs.StructuralResource2;
\r
26 import org.simantics.structural2.procedural.Interface;
\r
27 import org.simantics.structural2.procedural.SubstructureElement;
\r
28 import org.simantics.structural2.scl.ComponentTypeProperty;
\r
30 public class CompileProceduralComponentTypeRequest extends AbstractExpressionCompilationRequest<ProceduralComponentTypeCompilationContext, Variable> {
\r
32 private static final Type EXPECTED_TYPE = Types.list(Types.con("Structural/Procedural", "SubstructureElement"));
\r
33 private static Name PROPERTY_VALUE = Name.create("Simantics/Variables", "propertyValue");
\r
34 private static final Type CONNECTION_POINT = Types.con("Structural/Procedural", "ConnectionPoint");
\r
36 private final Resource componentType;
\r
38 public CompileProceduralComponentTypeRequest(Resource componentType) {
\r
39 this.componentType = componentType;
\r
42 @SuppressWarnings("unchecked")
\r
43 public static List<SubstructureElement> compileAndEvaluate(ReadGraph graph, Resource componentType, Variable context) throws DatabaseException {
\r
44 SCLContext sclContext = SCLContext.getCurrent();
\r
45 Object oldGraph = sclContext.get("graph");
\r
47 Function1<Variable,Object> exp = graph.syncRequest(
\r
48 new CompileProceduralComponentTypeRequest(componentType),
\r
49 TransientCacheListener.<Function1<Variable,Object>>instance());
\r
50 sclContext.put("graph", graph);
\r
51 return (List<SubstructureElement>)exp.apply(context);
\r
52 } catch (DatabaseException e) {
\r
53 throw (DatabaseException)e;
\r
54 } catch (Throwable t) {
\r
55 throw new DatabaseException(t);
\r
57 sclContext.put("graph", oldGraph);
\r
62 protected String getExpressionText(ReadGraph graph)
\r
63 throws DatabaseException {
\r
64 StructuralResource2 STR = StructuralResource2.getInstance(graph);
\r
65 return graph.getRelatedValue(componentType, STR.ProceduralComponentType_code, Bindings.STRING);
\r
69 protected ProceduralComponentTypeCompilationContext getCompilationContext(
\r
70 ReadGraph graph) throws DatabaseException {
\r
71 return graph.syncRequest(new ProceduralComponentTypeCompilationContextRequest(componentType));
\r
75 protected Type getContextVariableType() {
\r
80 protected Expression getVariableAccessExpression(
\r
82 ProceduralComponentTypeCompilationContext context,
\r
83 org.simantics.scl.compiler.elaboration.expressions.Variable contextVariable,
\r
84 String name) throws DatabaseException {
\r
85 ComponentTypeProperty property = context.propertyMap.get(name);
\r
86 if(property != null) {
\r
87 Environment environment = context.runtimeEnvironment.getEnvironment();
\r
89 new EConstant(environment.getValue(FROM_DYNAMIC), property.type),
\r
91 new EConstant(environment.getValue(PROPERTY_VALUE), Types.DYNAMIC),
\r
92 new EVariable(contextVariable),
\r
93 new ELiteral(new StringConstant(name))));
\r
96 Resource connectionPoint = context.connectionPointMap.get(name);
\r
97 if(connectionPoint != null)
\r
98 return new EExternalConstant(new Interface(connectionPoint), CONNECTION_POINT);
\r
100 else if(name.equals("input"))
\r
101 return new EVariable(contextVariable);
\r
102 else if(name.equals("self"))
\r
103 return new EVariable(contextVariable);
\r
108 public static Type getExpectedType() {
\r
109 return EXPECTED_TYPE;
\r
113 protected boolean parseAsBlock() {
\r
118 public boolean equals(Object obj) {
\r
121 if(obj == null || obj.getClass() != getClass())
\r
123 CompileProceduralComponentTypeRequest other = (CompileProceduralComponentTypeRequest)obj;
\r
124 return componentType.equals(other.componentType);
\r
128 public int hashCode() {
\r
129 return componentType.hashCode();
\r