--- /dev/null
+package org.simantics.modeling.scl;\r
+\r
+import gnu.trove.map.hash.THashMap;\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.IndexRoot;\r
+import org.simantics.db.exception.DatabaseException;\r
+import org.simantics.db.layer0.request.VariableRead;\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.modeling.ProceduralSubstructureMapRequest;\r
+import org.simantics.modeling.scl.CompileProceduralSCLMonitorRequest.CompilationContext;\r
+import org.simantics.scl.compiler.common.names.Name;\r
+import org.simantics.scl.compiler.constants.StringConstant;\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.ELiteral;\r
+import org.simantics.scl.compiler.elaboration.expressions.EVariable;\r
+import org.simantics.scl.compiler.elaboration.expressions.Expression;\r
+import org.simantics.scl.compiler.environment.Environment;\r
+import org.simantics.scl.compiler.runtime.RuntimeEnvironment;\r
+import org.simantics.scl.compiler.types.Type;\r
+import org.simantics.scl.runtime.SCLContext;\r
+import org.simantics.scl.runtime.function.Function1;\r
+import org.simantics.utils.datastructures.Pair;\r
+\r
+public class CompileProceduralSCLMonitorRequest extends AbstractExpressionCompilationRequest<CompilationContext, Variable> {\r
+ \r
+ protected static Name BROWSE = Name.create("Simantics/Variables", "browse");\r
+ protected static Name VALUE = Name.create("Simantics/Variables", "value");\r
+ \r
+ private final Resource componentType;\r
+ private final Resource literal;\r
+ private final Variable componentVariable;\r
+ \r
+ public static class CompilationContext extends AbstractExpressionCompilationContext {\r
+ public final THashMap<String, Pair<String,Type>> propertyMap;\r
+ \r
+ public CompilationContext(RuntimeEnvironment runtimeEnvironment,\r
+ THashMap<String, Pair<String,Type>> propertyMap) {\r
+ super(runtimeEnvironment);\r
+ this.propertyMap = propertyMap;\r
+ }\r
+ }\r
+ \r
+ public CompileProceduralSCLMonitorRequest(ReadGraph graph, Variable context)\r
+ throws DatabaseException {\r
+ this.componentType = context.getParent(graph).getType(graph);\r
+ this.literal = context.getRepresents(graph);\r
+ this.componentVariable = context.getParent(graph);\r
+ }\r
+\r
+ public static Object compileAndEvaluate(ReadGraph graph, Variable context) throws DatabaseException {\r
+ SCLContext sclContext = SCLContext.getCurrent();\r
+ Object oldGraph = sclContext.get("graph");\r
+ try {\r
+ Function1<Variable,Object> exp = graph.syncRequest(new CompileProceduralSCLMonitorRequest(graph, context),\r
+ TransientCacheListener.<Function1<Variable,Object>>instance());\r
+ sclContext.put("graph", graph);\r
+ return exp.apply(context.getParent(graph));\r
+ } catch (DatabaseException e) {\r
+ throw (DatabaseException)e;\r
+ } catch (Throwable t) {\r
+ throw new DatabaseException(t);\r
+ } finally {\r
+ sclContext.put("graph", oldGraph);\r
+ }\r
+ }\r
+\r
+ @Override\r
+ protected String getExpressionText(ReadGraph graph)\r
+ throws DatabaseException {\r
+ Layer0 L0 = Layer0.getInstance(graph);\r
+ return graph.getRelatedValue(literal, L0.SCLValue_expression, Bindings.STRING);\r
+ }\r
+\r
+ @Override\r
+ protected CompilationContext getCompilationContext(ReadGraph graph)\r
+ throws DatabaseException {\r
+ return graph.syncRequest(new VariableRead<CompilationContext>(componentVariable) {\r
+ @Override\r
+ public CompilationContext perform(ReadGraph graph)\r
+ throws DatabaseException {\r
+ Resource indexRoot = graph.syncRequest(new IndexRoot(componentType));\r
+ RuntimeEnvironment runtimeEnvironment = graph.syncRequest(new RuntimeEnvironmentRequest(indexRoot));\r
+ THashMap<String, Pair<String,Type>> propertyMap =\r
+ graph.sync(new ProceduralSubstructureMapRequest(componentVariable));\r
+ return new CompilationContext(runtimeEnvironment, propertyMap);\r
+ }\r
+ });\r
+ }\r
+\r
+ @Override\r
+ protected Type getContextVariableType() {\r
+ return VARIABLE;\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
+ Pair<String,Type> entry = context.propertyMap.get(name);\r
+ if(entry == null)\r
+ return null;\r
+ Environment environment = context.runtimeEnvironment.getEnvironment();\r
+ Expression propertyVariable = new EApply(\r
+ new EConstant(environment.getValue(BROWSE)),\r
+ new EVariable(contextVariable),\r
+ new ELiteral(new StringConstant(entry.first))\r
+ );\r
+ return new EApply(\r
+ new EConstant(environment.getValue(VALUE), entry.second),\r
+ propertyVariable\r
+ );\r
+ }\r
+ \r
+ @Override\r
+ public int hashCode() {\r
+ return 31*componentVariable.hashCode() + literal.hashCode();\r
+ }\r
+ \r
+ @Override\r
+ public boolean equals(Object obj) {\r
+ if(this == obj)\r
+ return true;\r
+ if(obj == null || obj.getClass() != getClass())\r
+ return false;\r
+ CompileProceduralSCLMonitorRequest other = (CompileProceduralSCLMonitorRequest)obj;\r
+ return literal.equals(other.literal) && componentVariable.equals(other.componentVariable);\r
+ }\r
+}\r
+\r