1 package org.simantics.scl.db;
3 import java.io.IOException;
5 import org.cojen.classfile.TypeDesc;
6 import org.simantics.Simantics;
7 import org.simantics.db.ReadGraph;
8 import org.simantics.db.Resource;
9 import org.simantics.db.VirtualGraph;
10 import org.simantics.db.WriteGraph;
11 import org.simantics.db.common.procedure.adapter.TransientCacheAsyncListener;
12 import org.simantics.db.common.request.BinaryRead;
13 import org.simantics.db.common.request.DelayedWriteRequest;
14 import org.simantics.db.common.request.ReadRequest;
15 import org.simantics.db.common.request.WriteRequest;
16 import org.simantics.db.common.request.WriteResultRequest;
17 import org.simantics.db.exception.DatabaseException;
18 import org.simantics.db.layer0.util.Layer0Utils;
19 import org.simantics.db.layer0.variable.Variables;
20 import org.simantics.db.request.Read;
21 import org.simantics.db.service.ClusterControl;
22 import org.simantics.db.service.SerialisationSupport;
23 import org.simantics.db.service.VirtualGraphSupport;
24 import org.simantics.layer0.utils.triggers.IActivationManager;
25 import org.simantics.scl.compiler.environment.specification.EnvironmentSpecification;
26 import org.simantics.scl.compiler.errors.Failable;
27 import org.simantics.scl.compiler.internal.codegen.types.JavaTypeTranslator;
28 import org.simantics.scl.compiler.module.Module;
29 import org.simantics.scl.compiler.module.repository.ImportFailureException;
30 import org.simantics.scl.compiler.runtime.RuntimeEnvironment;
31 import org.simantics.scl.compiler.types.Type;
32 import org.simantics.scl.osgi.SCLOsgi;
33 import org.simantics.scl.runtime.SCLContext;
34 import org.simantics.scl.runtime.function.Function;
35 import org.simantics.scl.runtime.function.Function1;
36 import org.simantics.scl.runtime.tuple.Tuple0;
37 import org.simantics.utils.DataContainer;
39 @SuppressWarnings({"rawtypes", "unchecked"})
40 public class SCLFunctions {
42 public static final String GRAPH = "graph";
44 public static <T> T safeExec(final Function f) {
46 return (T)f.apply(Tuple0.INSTANCE);
47 } catch (Throwable t) {
53 public static void asyncRead(final Function f) throws DatabaseException {
54 final SCLContext context = SCLContext.getCurrent();
55 Object graph = context.get(GRAPH);
57 f.apply(Tuple0.INSTANCE);
59 Simantics.getSession().asyncRequest(new ReadRequest() {
61 public void run(ReadGraph graph) throws DatabaseException {
62 SCLContext.push(context);
63 ReadGraph oldGraph = (ReadGraph)context.put(GRAPH, graph);
65 f.apply(Tuple0.INSTANCE);
67 context.put(GRAPH, oldGraph);
75 public static <T> T syncRead(final Function f) throws DatabaseException {
76 final SCLContext context = SCLContext.getCurrent();
77 Object graph = context.get(GRAPH);
79 return (T)f.apply(Tuple0.INSTANCE);
81 return Simantics.getSession().syncRequest(new Read<T>() {
83 public T perform(ReadGraph graph) throws DatabaseException {
84 SCLContext.push(context);
85 ReadGraph oldGraph = (ReadGraph)context.put(GRAPH, graph);
87 return (T)f.apply(Tuple0.INSTANCE);
89 context.put(GRAPH, oldGraph);
97 public static void asyncWrite(final Function f) throws DatabaseException {
98 final SCLContext context = SCLContext.getCurrent();
99 Object graph = context.get(GRAPH);
101 f.apply(Tuple0.INSTANCE);
103 Simantics.getSession().asyncRequest(new WriteRequest() {
105 public void perform(WriteGraph graph) throws DatabaseException {
106 SCLContext.push(context);
107 ReadGraph oldGraph = (ReadGraph)context.put(GRAPH, graph);
109 f.apply(Tuple0.INSTANCE);
111 context.put(GRAPH, oldGraph);
119 public static <T> T syncWrite(final Function f) throws DatabaseException {
120 final SCLContext context = SCLContext.getCurrent();
121 Object graph = context.get(GRAPH);
123 return (T)f.apply(Tuple0.INSTANCE);
125 return Simantics.getSession().syncRequest(new WriteResultRequest<T>() {
127 public T perform(WriteGraph graph) throws DatabaseException {
128 SCLContext.push(context);
129 ReadGraph oldGraph = (ReadGraph)context.put(GRAPH, graph);
131 return (T)f.apply(Tuple0.INSTANCE);
133 context.put(GRAPH, oldGraph);
141 public static <T> T delayedSyncWrite(final Function f) throws DatabaseException {
142 final SCLContext context = SCLContext.getCurrent();
143 final DataContainer<T> dc = new DataContainer<T>(null);
145 DelayedWriteRequest request = new DelayedWriteRequest() {
147 public void perform(WriteGraph graph) throws DatabaseException {
148 final SCLContext context = SCLContext.getCurrent();
149 SCLContext.push(context);
150 ReadGraph oldGraph = (ReadGraph)context.put(GRAPH, graph);
152 dc.set((T)f.apply(Tuple0.INSTANCE));
154 context.put(GRAPH, oldGraph);
160 Object graph = context.get(GRAPH);
162 if (graph instanceof WriteGraph) {
163 ((WriteGraph)graph).syncRequest(request);
165 throw new DatabaseException("Caller is inside a read transaction.");
168 Simantics.getSession().syncRequest(request);
173 public static <T> T virtualSyncWriteMem(WriteGraph graph, String virtualGraphId, final Function f) throws DatabaseException {
174 final SCLContext context = SCLContext.getCurrent();
175 VirtualGraphSupport vgs = graph.getService(VirtualGraphSupport.class);
176 VirtualGraph vg = vgs.getMemoryPersistent(virtualGraphId);
177 return graph.syncRequest(new WriteResultRequest<T>(vg) {
179 public T perform(WriteGraph graph) throws DatabaseException {
180 SCLContext.push(context);
181 ReadGraph oldGraph = (ReadGraph)context.put(GRAPH, graph);
183 return (T)f.apply(Tuple0.INSTANCE);
185 context.put(GRAPH, oldGraph);
192 public static <T> T virtualSyncWriteWS(WriteGraph graph, String virtualGraphId, final Function f) throws DatabaseException {
193 final SCLContext context = SCLContext.getCurrent();
194 VirtualGraphSupport vgs = graph.getService(VirtualGraphSupport.class);
195 VirtualGraph vg = vgs.getWorkspacePersistent(virtualGraphId);
196 return graph.syncRequest(new WriteResultRequest<T>(vg) {
198 public T perform(WriteGraph graph) throws DatabaseException {
199 SCLContext.push(context);
200 ReadGraph oldGraph = (ReadGraph)context.put(GRAPH, graph);
202 return (T)f.apply(Tuple0.INSTANCE);
204 context.put(GRAPH, oldGraph);
211 public static <T> T readValue(final String uri) throws DatabaseException {
212 return Simantics.getSession().syncRequest(new Read<T>() {
214 public T perform(ReadGraph graph) throws DatabaseException {
215 return Variables.getVariable(graph, uri).getValue(graph);
220 public static <T> void writeValue(final String uri, final T value) throws DatabaseException {
221 Simantics.getSession().syncRequest(new WriteRequest() {
223 public void perform(WriteGraph graph) throws DatabaseException {
224 Variables.getVariable(graph, uri).setValue(graph, value);
229 public static void activateOnce(Resource r) {
230 Simantics.getSession().getService(IActivationManager.class).activateOnce(r);
233 public static void syncActivateOnce(WriteGraph graph, Resource r) throws DatabaseException {
234 graph.getService(IActivationManager.class).activateOnce(graph, r);
237 public static Resource resourceFromId(ReadGraph graph, long id) throws DatabaseException, IOException {
238 SerialisationSupport ss = graph.getService(SerialisationSupport.class);
239 return ss.getResource(id);
242 public static void disableDependencies(WriteGraph graph) {
243 Layer0Utils.setDependenciesIndexingDisabled(graph, true);
246 public static void enableDependencies(WriteGraph graph) {
247 Layer0Utils.setDependenciesIndexingDisabled(graph, false);
250 public static void collectClusters() {
251 Simantics.getSession().getService(ClusterControl.class).collectClusters(Integer.MAX_VALUE);
254 public static class SCLUnaryRead extends BinaryRead<Function1<Object,Object>, Object, Object> {
256 public SCLUnaryRead(Function1<Object, Object> parameter1, Object parameter2) {
257 super(parameter1, parameter2);
261 public Object perform(ReadGraph graph) throws DatabaseException {
262 return Simantics.applySCLRead(graph, parameter, parameter2);
267 public static Object unaryQuery(ReadGraph graph, Function1<Object,Object> fn, Object value) throws DatabaseException {
268 return graph.syncRequest(new SCLUnaryRead(fn, value));
271 public static Object unaryQueryCached(ReadGraph graph, Function1<Object,Object> fn, Object value) throws DatabaseException {
272 return graph.syncRequest(new SCLUnaryRead(fn, value), TransientCacheAsyncListener.<Object>instance());
276 private static class Subquery implements Read<Object> {
279 public Subquery(Function q) {
284 public Object perform(ReadGraph graph) throws DatabaseException {
285 SCLContext sclContext = SCLContext.getCurrent();
286 Object oldGraph = sclContext.put("graph", graph);
288 return q.apply(Tuple0.INSTANCE);
289 } catch (Throwable e) {
290 if(e instanceof DatabaseException)
291 throw (DatabaseException)e;
293 throw new DatabaseException(e);
295 sclContext.put("graph", oldGraph);
300 public int hashCode() {
305 public boolean equals(Object obj) {
308 if(obj == null || obj.getClass() != getClass())
310 Subquery other = (Subquery)obj;
311 return q.equals(other.q);
315 public static Object subquery(ReadGraph graph, Function q) throws DatabaseException {
316 return graph.syncRequest(new Subquery(q));
319 public static Object subqueryC(ReadGraph graph, Function q) throws DatabaseException {
320 return graph.syncRequest(new Subquery(q), TransientCacheAsyncListener.<Object>instance());
323 public static Object possibleFromDynamic(Type expectedType, String moduleName, Object value) {
328 Failable<Module> failable = SCLOsgi.MODULE_REPOSITORY.getModule(moduleName);
329 Module module = failable.getResult();
331 RuntimeEnvironment env = SCLOsgi.MODULE_REPOSITORY.createRuntimeEnvironment(
332 EnvironmentSpecification.of(moduleName, ""), module.getParentClassLoader());
334 JavaTypeTranslator tr = new JavaTypeTranslator(env.getEnvironment());
335 TypeDesc desc = tr.toTypeDesc(expectedType);
336 String className = desc.getFullName();
337 Class<?> clazz = env.getMutableClassLoader().loadClass(className);
338 if (!clazz.isAssignableFrom(value.getClass()))
341 } catch (ImportFailureException | ClassNotFoundException e) {