X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=blobdiff_plain;f=bundles%2Forg.simantics.scl.db%2Fscl%2FSimantics%2FDBSupport.scl;h=f6d1453f08f484c6fbde645cd56177e4cd5ace25;hb=c00d1429bda8dc27461e1576f4be028b43149758;hp=ee61b88b1e39a9be685b19731a12141161b9f47a;hpb=e02b565cb604469a1dad9c5143e5f1664fec5ebf;p=simantics%2Fplatform.git

diff --git a/bundles/org.simantics.scl.db/scl/Simantics/DBSupport.scl b/bundles/org.simantics.scl.db/scl/Simantics/DBSupport.scl
index ee61b88b1..f6d1453f0 100644
--- a/bundles/org.simantics.scl.db/scl/Simantics/DBSupport.scl
+++ b/bundles/org.simantics.scl.db/scl/Simantics/DBSupport.scl
@@ -1,6 +1,15 @@
 import "UI/Progress"
 import "Simantics/DB"
 
+importJava "org.simantics.db.common.utils.CommonDBUtils" where
+
+    listClusters :: <ReadGraph> [ClusterUID]
+    resourcesByCluster :: ClusterUID -> <ReadGraph> [Resource]
+    directStatements :: Resource -> Boolean -> <ReadGraph> [Statement]
+    garbageResources :: <ReadGraph> [Resource]
+    clusterUIDOfResource :: Resource -> <ReadGraph> ClusterUID
+    isClusterLoaded :: ClusterUID -> <ReadGraph> Boolean
+
 importJava "org.simantics.scl.db.SCLFunctions" where
     collectClusters :: <Proc> ()
     countQueries :: <ReadGraph> Integer
@@ -18,3 +27,6 @@ importJava "org.simantics.db.layer0.util.Layer0Utils" where
 
 //emptyTrashBin :: <Proc> ()
 emptyTrashBin = emptyTrashBinWithMonitor $ createNullProgressMonitor ()
+
+importJava "org.simantics.db.service.ClusterUID" where
+    data ClusterUID