]> gerrit.simantics Code Review - simantics/platform.git/blob
871dc1975c7a70295ced2b5cf800e51cf0496429
[simantics/platform.git] /
1 package org.simantics.structural2.scl.procedural;
2
3 import java.util.List;
4
5 import org.simantics.databoard.Bindings;
6 import org.simantics.db.ReadGraph;
7 import org.simantics.db.Resource;
8 import org.simantics.db.common.procedure.adapter.TransientCacheListener;
9 import org.simantics.db.exception.DatabaseException;
10 import org.simantics.db.layer0.scl.AbstractExpressionCompilationRequest;
11 import org.simantics.db.layer0.variable.Variable;
12 import org.simantics.scl.compiler.common.names.Name;
13 import org.simantics.scl.compiler.constants.StringConstant;
14 import org.simantics.scl.compiler.elaboration.expressions.EApply;
15 import org.simantics.scl.compiler.elaboration.expressions.EConstant;
16 import org.simantics.scl.compiler.elaboration.expressions.EExternalConstant;
17 import org.simantics.scl.compiler.elaboration.expressions.ELiteral;
18 import org.simantics.scl.compiler.elaboration.expressions.EVariable;
19 import org.simantics.scl.compiler.elaboration.expressions.Expression;
20 import org.simantics.scl.compiler.environment.Environment;
21 import org.simantics.scl.compiler.types.Type;
22 import org.simantics.scl.compiler.types.Types;
23 import org.simantics.scl.runtime.SCLContext;
24 import org.simantics.scl.runtime.function.Function1;
25 import org.simantics.structural.stubs.StructuralResource2;
26 import org.simantics.structural2.procedural.Interface;
27 import org.simantics.structural2.procedural.SubstructureElement;
28 import org.simantics.structural2.scl.ComponentTypeProperty;
29
30 public class CompileProceduralComponentTypeRequest extends AbstractExpressionCompilationRequest<ProceduralComponentTypeCompilationContext, Variable> {
31
32     private static final Type EXPECTED_TYPE = Types.list(Types.con("Structural/Procedural", "SubstructureElement"));
33     private static Name PROPERTY_VALUE = Name.create("Simantics/Variables", "propertyValue");
34     private static final Type CONNECTION_POINT = Types.con("Structural/Procedural", "ConnectionPoint");
35     
36     private final Resource componentType;
37     
38     public CompileProceduralComponentTypeRequest(Resource componentType) {
39         this.componentType = componentType;
40     }
41     
42     @SuppressWarnings("unchecked")
43     public static List<SubstructureElement> compileAndEvaluate(ReadGraph graph, Resource componentType, Variable context) throws DatabaseException {
44         SCLContext sclContext = SCLContext.getCurrent();
45         Object oldGraph = sclContext.get("graph");
46         try {
47             Function1<Variable,Object> exp = graph.syncRequest(
48                     new CompileProceduralComponentTypeRequest(componentType),
49                     TransientCacheListener.<Function1<Variable,Object>>instance());
50             sclContext.put("graph", graph);
51             return (List<SubstructureElement>)exp.apply(context);
52         } catch (DatabaseException e) {
53             throw (DatabaseException)e;
54         } catch (Throwable t) {
55             throw new DatabaseException(t);
56         } finally {
57             sclContext.put("graph", oldGraph);
58         }
59     }
60
61     @Override
62     protected String getExpressionText(ReadGraph graph)
63             throws DatabaseException {
64         StructuralResource2 STR = StructuralResource2.getInstance(graph);
65         return graph.getRelatedValue(componentType, STR.ProceduralComponentType_code, Bindings.STRING);
66     }
67
68     @Override
69     protected ProceduralComponentTypeCompilationContext getCompilationContext(
70             ReadGraph graph) throws DatabaseException {
71         return graph.syncRequest(new ProceduralComponentTypeCompilationContextRequest(componentType));
72     }
73
74     @Override
75     protected Type getContextVariableType() {
76         return VARIABLE;
77     }
78
79     @Override
80     protected Expression getVariableAccessExpression(
81             ReadGraph graph,
82             ProceduralComponentTypeCompilationContext context,
83             org.simantics.scl.compiler.elaboration.expressions.Variable contextVariable,
84             String name) throws DatabaseException {
85         ComponentTypeProperty property = context.propertyMap.get(name);
86         if(property != null) {
87             Environment environment = context.runtimeEnvironment.getEnvironment();
88             return new EApply(
89                     new EConstant(environment.getValue(FROM_DYNAMIC), property.type),
90                     new EApply(
91                             new EConstant(environment.getValue(PROPERTY_VALUE), Types.DYNAMIC),
92                             new EVariable(contextVariable),
93                             new ELiteral(new StringConstant(name))));
94         }
95         
96         Resource connectionPoint = context.connectionPointMap.get(name);
97         if(connectionPoint != null)
98             return new EExternalConstant(new Interface(connectionPoint), CONNECTION_POINT);
99         
100         else if(name.equals("input"))
101             return new EVariable(contextVariable);
102         else if(name.equals("self"))
103             return new EVariable(contextVariable);
104         else
105             return null;
106     }
107     
108     public static Type getExpectedType() {
109         return EXPECTED_TYPE;
110     }
111     
112     @Override
113     protected boolean parseAsBlock() {
114         return true;
115     }
116     
117     @Override
118     public boolean equals(Object obj) {
119         if(obj == this)
120             return true;
121         if(obj == null || obj.getClass() != getClass())
122             return false;
123         CompileProceduralComponentTypeRequest other = (CompileProceduralComponentTypeRequest)obj;
124         return componentType.equals(other.componentType);
125     }
126     
127     @Override
128     public int hashCode() {
129         return componentType.hashCode();
130     }
131 }