--- /dev/null
+package org.simantics.scl.db;\r
+\r
+import java.io.IOException;\r
+\r
+import org.simantics.Simantics;\r
+import org.simantics.db.ReadGraph;\r
+import org.simantics.db.Resource;\r
+import org.simantics.db.VirtualGraph;\r
+import org.simantics.db.WriteGraph;\r
+import org.simantics.db.common.procedure.adapter.TransientCacheAsyncListener;\r
+import org.simantics.db.common.request.BinaryRead;\r
+import org.simantics.db.common.request.DelayedWriteRequest;\r
+import org.simantics.db.common.request.ReadRequest;\r
+import org.simantics.db.common.request.WriteRequest;\r
+import org.simantics.db.common.request.WriteResultRequest;\r
+import org.simantics.db.exception.DatabaseException;\r
+import org.simantics.db.layer0.util.Layer0Utils;\r
+import org.simantics.db.layer0.variable.Variables;\r
+import org.simantics.db.request.Read;\r
+import org.simantics.db.service.ClusterControl;\r
+import org.simantics.db.service.SerialisationSupport;\r
+import org.simantics.db.service.VirtualGraphSupport;\r
+import org.simantics.layer0.utils.triggers.IActivationManager;\r
+import org.simantics.scl.runtime.SCLContext;\r
+import org.simantics.scl.runtime.function.Function;\r
+import org.simantics.scl.runtime.function.Function1;\r
+import org.simantics.scl.runtime.tuple.Tuple0;\r
+import org.simantics.utils.DataContainer;\r
+\r
+@SuppressWarnings({"rawtypes", "unchecked"})\r
+public class SCLFunctions {\r
+\r
+ public static final String GRAPH = "graph";\r
+\r
+ public static <T> T safeExec(final Function f) {\r
+ try {\r
+ return (T)f.apply(Tuple0.INSTANCE);\r
+ } catch (Throwable t) {\r
+ t.printStackTrace();\r
+ return null;\r
+ }\r
+ }\r
+ \r
+ public static void asyncRead(final Function f) throws DatabaseException {\r
+ final SCLContext context = SCLContext.getCurrent();\r
+ Object graph = context.get(GRAPH);\r
+ if (graph != null) {\r
+ f.apply(Tuple0.INSTANCE);\r
+ } else {\r
+ Simantics.getSession().asyncRequest(new ReadRequest() {\r
+ @Override\r
+ public void run(ReadGraph graph) throws DatabaseException {\r
+ SCLContext.push(context);\r
+ ReadGraph oldGraph = (ReadGraph)context.put(GRAPH, graph);\r
+ try {\r
+ f.apply(Tuple0.INSTANCE);\r
+ } finally {\r
+ context.put(GRAPH, oldGraph);\r
+ SCLContext.pop();\r
+ }\r
+ }\r
+ });\r
+ }\r
+ }\r
+ \r
+ public static <T> T syncRead(final Function f) throws DatabaseException {\r
+ final SCLContext context = SCLContext.getCurrent();\r
+ Object graph = context.get(GRAPH);\r
+ if (graph != null) {\r
+ return (T)f.apply(Tuple0.INSTANCE);\r
+ } else {\r
+ return Simantics.getSession().syncRequest(new Read<T>() {\r
+ @Override\r
+ public T perform(ReadGraph graph) throws DatabaseException {\r
+ SCLContext.push(context);\r
+ ReadGraph oldGraph = (ReadGraph)context.put(GRAPH, graph);\r
+ try {\r
+ return (T)f.apply(Tuple0.INSTANCE);\r
+ } finally {\r
+ context.put(GRAPH, oldGraph);\r
+ SCLContext.pop();\r
+ }\r
+ }\r
+ });\r
+ }\r
+ }\r
+ \r
+ public static void asyncWrite(final Function f) throws DatabaseException {\r
+ final SCLContext context = SCLContext.getCurrent();\r
+ Object graph = context.get(GRAPH);\r
+ if (graph != null) {\r
+ f.apply(Tuple0.INSTANCE);\r
+ } else {\r
+ Simantics.getSession().asyncRequest(new WriteRequest() {\r
+ @Override\r
+ public void perform(WriteGraph graph) throws DatabaseException {\r
+ SCLContext.push(context);\r
+ ReadGraph oldGraph = (ReadGraph)context.put(GRAPH, graph);\r
+ try {\r
+ f.apply(Tuple0.INSTANCE);\r
+ } finally {\r
+ context.put(GRAPH, oldGraph);\r
+ SCLContext.pop();\r
+ }\r
+ }\r
+ });\r
+ }\r
+ }\r
+ \r
+ public static <T> T syncWrite(final Function f) throws DatabaseException {\r
+ final SCLContext context = SCLContext.getCurrent();\r
+ Object graph = context.get(GRAPH);\r
+ if (graph != null) {\r
+ return (T)f.apply(Tuple0.INSTANCE);\r
+ } else {\r
+ return Simantics.getSession().syncRequest(new WriteResultRequest<T>() {\r
+ @Override\r
+ public T perform(WriteGraph graph) throws DatabaseException {\r
+ SCLContext.push(context);\r
+ ReadGraph oldGraph = (ReadGraph)context.put(GRAPH, graph);\r
+ try {\r
+ return (T)f.apply(Tuple0.INSTANCE);\r
+ } finally {\r
+ context.put(GRAPH, oldGraph);\r
+ SCLContext.pop();\r
+ }\r
+ }\r
+ });\r
+ }\r
+ }\r
+ \r
+ public static <T> T delayedSyncWrite(final Function f) throws DatabaseException {\r
+ final SCLContext context = SCLContext.getCurrent();\r
+ final DataContainer<T> dc = new DataContainer<T>(null);\r
+\r
+ DelayedWriteRequest request = new DelayedWriteRequest() {\r
+ @Override\r
+ public void perform(WriteGraph graph) throws DatabaseException {\r
+ final SCLContext context = SCLContext.getCurrent();\r
+ SCLContext.push(context);\r
+ ReadGraph oldGraph = (ReadGraph)context.put(GRAPH, graph);\r
+ try {\r
+ dc.set((T)f.apply(Tuple0.INSTANCE));\r
+ } finally {\r
+ context.put(GRAPH, oldGraph);\r
+ SCLContext.pop();\r
+ }\r
+ }\r
+ };\r
+ \r
+ Object graph = context.get(GRAPH);\r
+ if (graph != null) {\r
+ if (graph instanceof WriteGraph) {\r
+ ((WriteGraph)graph).syncRequest(request);\r
+ } else {\r
+ throw new DatabaseException("Caller is inside a read transaction.");\r
+ }\r
+ } else {\r
+ Simantics.getSession().syncRequest(request);\r
+ }\r
+ return dc.get();\r
+ }\r
+\r
+ public static <T> T virtualSyncWriteMem(WriteGraph graph, String virtualGraphId, final Function f) throws DatabaseException {\r
+ final SCLContext context = SCLContext.getCurrent();\r
+ VirtualGraphSupport vgs = graph.getService(VirtualGraphSupport.class);\r
+ VirtualGraph vg = vgs.getMemoryPersistent(virtualGraphId);\r
+ return graph.syncRequest(new WriteResultRequest<T>(vg) {\r
+ @Override\r
+ public T perform(WriteGraph graph) throws DatabaseException {\r
+ SCLContext.push(context);\r
+ ReadGraph oldGraph = (ReadGraph)context.put(GRAPH, graph);\r
+ try {\r
+ return (T)f.apply(Tuple0.INSTANCE);\r
+ } finally {\r
+ context.put(GRAPH, oldGraph);\r
+ SCLContext.pop();\r
+ }\r
+ }\r
+ });\r
+ }\r
+ \r
+ public static <T> T virtualSyncWriteWS(WriteGraph graph, String virtualGraphId, final Function f) throws DatabaseException {\r
+ final SCLContext context = SCLContext.getCurrent();\r
+ VirtualGraphSupport vgs = graph.getService(VirtualGraphSupport.class);\r
+ VirtualGraph vg = vgs.getWorkspacePersistent(virtualGraphId);\r
+ return graph.syncRequest(new WriteResultRequest<T>(vg) {\r
+ @Override\r
+ public T perform(WriteGraph graph) throws DatabaseException {\r
+ SCLContext.push(context);\r
+ ReadGraph oldGraph = (ReadGraph)context.put(GRAPH, graph);\r
+ try {\r
+ return (T)f.apply(Tuple0.INSTANCE);\r
+ } finally {\r
+ context.put(GRAPH, oldGraph);\r
+ SCLContext.pop();\r
+ }\r
+ }\r
+ });\r
+ }\r
+ \r
+ public static <T> T readValue(final String uri) throws DatabaseException {\r
+ return Simantics.getSession().syncRequest(new Read<T>() {\r
+ @Override\r
+ public T perform(ReadGraph graph) throws DatabaseException {\r
+ return Variables.getVariable(graph, uri).getValue(graph);\r
+ } \r
+ });\r
+ }\r
+ \r
+ public static <T> void writeValue(final String uri, final T value) throws DatabaseException {\r
+ Simantics.getSession().syncRequest(new WriteRequest() {\r
+ @Override\r
+ public void perform(WriteGraph graph) throws DatabaseException {\r
+ Variables.getVariable(graph, uri).setValue(graph, value);\r
+ } \r
+ });\r
+ }\r
+ \r
+ public static void activateOnce(Resource r) {\r
+ Simantics.getSession().getService(IActivationManager.class).activateOnce(r);\r
+ }\r
+ \r
+ public static void syncActivateOnce(WriteGraph graph, Resource r) throws DatabaseException {\r
+ graph.getService(IActivationManager.class).activateOnce(graph, r);\r
+ }\r
+\r
+ public static Resource resourceFromId(ReadGraph graph, long id) throws DatabaseException, IOException {\r
+ SerialisationSupport ss = graph.getService(SerialisationSupport.class);\r
+ return ss.getResource(id);\r
+ }\r
+ \r
+ public static void disableDependencies(WriteGraph graph) {\r
+ Layer0Utils.setDependenciesIndexingDisabled(graph, true); \r
+ }\r
+ \r
+ public static void enableDependencies(WriteGraph graph) {\r
+ Layer0Utils.setDependenciesIndexingDisabled(graph, false); \r
+ }\r
+ \r
+ public static void collectClusters() {\r
+ Simantics.getSession().getService(ClusterControl.class).collectClusters(Integer.MAX_VALUE);\r
+ }\r
+ \r
+ public static class SCLUnaryRead extends BinaryRead<Function1<Object,Object>, Object, Object> {\r
+\r
+ public SCLUnaryRead(Function1<Object, Object> parameter1, Object parameter2) {\r
+ super(parameter1, parameter2);\r
+ }\r
+\r
+ @Override\r
+ public Object perform(ReadGraph graph) throws DatabaseException {\r
+ return Simantics.applySCLRead(graph, parameter, parameter2);\r
+ }\r
+ \r
+ }\r
+ \r
+ public static Object unaryQuery(ReadGraph graph, Function1<Object,Object> fn, Object value) throws DatabaseException {\r
+ return graph.syncRequest(new SCLUnaryRead(fn, value));\r
+ }\r
+\r
+ public static Object unaryQueryCached(ReadGraph graph, Function1<Object,Object> fn, Object value) throws DatabaseException {\r
+ return graph.syncRequest(new SCLUnaryRead(fn, value), TransientCacheAsyncListener.<Object>instance());\r
+ }\r
+ \r
+}\r