1 package org.simantics.modeling.scl;
\r
3 import gnu.trove.map.hash.THashMap;
\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.common.request.IndexRoot;
\r
10 import org.simantics.db.exception.DatabaseException;
\r
11 import org.simantics.db.layer0.request.VariableRead;
\r
12 import org.simantics.db.layer0.scl.AbstractExpressionCompilationContext;
\r
13 import org.simantics.db.layer0.scl.AbstractExpressionCompilationRequest;
\r
14 import org.simantics.db.layer0.util.RuntimeEnvironmentRequest;
\r
15 import org.simantics.db.layer0.variable.Variable;
\r
16 import org.simantics.layer0.Layer0;
\r
17 import org.simantics.modeling.ProceduralSubstructureMapRequest;
\r
18 import org.simantics.modeling.scl.CompileProceduralSCLMonitorRequest.CompilationContext;
\r
19 import org.simantics.scl.compiler.common.names.Name;
\r
20 import org.simantics.scl.compiler.constants.StringConstant;
\r
21 import org.simantics.scl.compiler.elaboration.expressions.EApply;
\r
22 import org.simantics.scl.compiler.elaboration.expressions.EConstant;
\r
23 import org.simantics.scl.compiler.elaboration.expressions.ELiteral;
\r
24 import org.simantics.scl.compiler.elaboration.expressions.EVariable;
\r
25 import org.simantics.scl.compiler.elaboration.expressions.Expression;
\r
26 import org.simantics.scl.compiler.environment.Environment;
\r
27 import org.simantics.scl.compiler.runtime.RuntimeEnvironment;
\r
28 import org.simantics.scl.compiler.types.Type;
\r
29 import org.simantics.scl.runtime.SCLContext;
\r
30 import org.simantics.scl.runtime.function.Function1;
\r
31 import org.simantics.utils.datastructures.Pair;
\r
33 public class CompileProceduralSCLMonitorRequest extends AbstractExpressionCompilationRequest<CompilationContext, Variable> {
\r
35 protected static Name BROWSE = Name.create("Simantics/Variables", "browse");
\r
36 protected static Name VALUE = Name.create("Simantics/Variables", "value");
\r
38 private final Resource componentType;
\r
39 private final Resource literal;
\r
40 private final Variable componentVariable;
\r
42 public static class CompilationContext extends AbstractExpressionCompilationContext {
\r
43 public final THashMap<String, Pair<String,Type>> propertyMap;
\r
45 public CompilationContext(RuntimeEnvironment runtimeEnvironment,
\r
46 THashMap<String, Pair<String,Type>> propertyMap) {
\r
47 super(runtimeEnvironment);
\r
48 this.propertyMap = propertyMap;
\r
52 public CompileProceduralSCLMonitorRequest(ReadGraph graph, Variable context)
\r
53 throws DatabaseException {
\r
54 this.componentType = context.getParent(graph).getType(graph);
\r
55 this.literal = context.getRepresents(graph);
\r
56 this.componentVariable = context.getParent(graph);
\r
59 public static Object compileAndEvaluate(ReadGraph graph, Variable context) throws DatabaseException {
\r
60 SCLContext sclContext = SCLContext.getCurrent();
\r
61 Object oldGraph = sclContext.get("graph");
\r
63 Function1<Variable,Object> exp = graph.syncRequest(new CompileProceduralSCLMonitorRequest(graph, context),
\r
64 TransientCacheListener.<Function1<Variable,Object>>instance());
\r
65 sclContext.put("graph", graph);
\r
66 return exp.apply(context.getParent(graph));
\r
67 } catch (DatabaseException e) {
\r
68 throw (DatabaseException)e;
\r
69 } catch (Throwable t) {
\r
70 throw new DatabaseException(t);
\r
72 sclContext.put("graph", oldGraph);
\r
77 protected String getExpressionText(ReadGraph graph)
\r
78 throws DatabaseException {
\r
79 Layer0 L0 = Layer0.getInstance(graph);
\r
80 return graph.getRelatedValue(literal, L0.SCLValue_expression, Bindings.STRING);
\r
84 protected CompilationContext getCompilationContext(ReadGraph graph)
\r
85 throws DatabaseException {
\r
86 return graph.syncRequest(new VariableRead<CompilationContext>(componentVariable) {
\r
88 public CompilationContext perform(ReadGraph graph)
\r
89 throws DatabaseException {
\r
90 Resource indexRoot = graph.syncRequest(new IndexRoot(componentType));
\r
91 RuntimeEnvironment runtimeEnvironment = graph.syncRequest(new RuntimeEnvironmentRequest(indexRoot));
\r
92 THashMap<String, Pair<String,Type>> propertyMap =
\r
93 graph.sync(new ProceduralSubstructureMapRequest(componentVariable));
\r
94 return new CompilationContext(runtimeEnvironment, propertyMap);
\r
100 protected Type getContextVariableType() {
\r
105 protected Expression getVariableAccessExpression(
\r
107 CompilationContext context,
\r
108 org.simantics.scl.compiler.elaboration.expressions.Variable contextVariable,
\r
109 String name) throws DatabaseException {
\r
110 Pair<String,Type> entry = context.propertyMap.get(name);
\r
113 Environment environment = context.runtimeEnvironment.getEnvironment();
\r
114 Expression propertyVariable = new EApply(
\r
115 new EConstant(environment.getValue(BROWSE)),
\r
116 new EVariable(contextVariable),
\r
117 new ELiteral(new StringConstant(entry.first))
\r
120 new EConstant(environment.getValue(VALUE), entry.second),
\r
126 public int hashCode() {
\r
127 return 31*componentVariable.hashCode() + literal.hashCode();
\r
131 public boolean equals(Object obj) {
\r
134 if(obj == null || obj.getClass() != getClass())
\r
136 CompileProceduralSCLMonitorRequest other = (CompileProceduralSCLMonitorRequest)obj;
\r
137 return literal.equals(other.literal) && componentVariable.equals(other.componentVariable);
\r