--- /dev/null
+package org.simantics.structural2.scl.procedural;\r
+\r
+import java.util.Map;\r
+\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.common.request.UnaryRead;\r
+import org.simantics.db.exception.DatabaseException;\r
+import org.simantics.db.layer0.util.RuntimeEnvironmentRequest;\r
+import org.simantics.scl.compiler.environment.specification.EnvironmentSpecification;\r
+import org.simantics.scl.compiler.runtime.RuntimeEnvironment;\r
+import org.simantics.structural2.scl.ComponentTypeProperty;\r
+import org.simantics.structural2.scl.ReadComponentTypeConnectionsRequest;\r
+import org.simantics.structural2.scl.ReadComponentTypeInterfaceRequest;\r
+\r
+public class ProceduralComponentTypeCompilationContextRequest extends UnaryRead<Resource,ProceduralComponentTypeCompilationContext> {\r
+\r
+ public ProceduralComponentTypeCompilationContextRequest(Resource parameter) {\r
+ super(parameter);\r
+ }\r
+\r
+ @Override\r
+ public ProceduralComponentTypeCompilationContext perform(ReadGraph graph)\r
+ throws DatabaseException {\r
+ Resource indexRoot = graph.syncRequest(new IndexRoot(parameter));\r
+ RuntimeEnvironment runtimeEnvironment = graph.syncRequest(new RuntimeEnvironmentRequest(indexRoot) {\r
+ @Override\r
+ protected void fillEnvironmentSpecification(\r
+ EnvironmentSpecification environmentSpecification) {\r
+ environmentSpecification.importModule("Structural/Procedural", "");\r
+ }\r
+ });\r
+ Map<String, ComponentTypeProperty> propertyMap =\r
+ graph.syncRequest(new ReadComponentTypeInterfaceRequest(parameter, runtimeEnvironment.getEnvironment()),\r
+ TransientCacheListener.<Map<String, ComponentTypeProperty>>instance());\r
+ Map<String, Resource> connectionPointMap =\r
+ graph.syncRequest(new ReadComponentTypeConnectionsRequest(parameter),\r
+ TransientCacheListener.<Map<String, Resource>>instance());\r
+ return new ProceduralComponentTypeCompilationContext(runtimeEnvironment, propertyMap, connectionPointMap);\r
+ }\r
+ \r
+}\r