Utilities for listing of statements in DB

[simantics/platform.git] / bundles / org.simantics.scl.db / scl / Simantics / DBSupport.scl

diff --git a/bundles/org.simantics.scl.db/scl/Simantics/DBSupport.scl b/bundles/org.simantics.scl.db/scl/Simantics/DBSupport.scl
index 30729032f6e74b4ff8204648c54548ee10ed9685..f6d1453f08f484c6fbde645cd56177e4cd5ace25 100644 (file)
--- a/bundles/org.simantics.scl.db/scl/Simantics/DBSupport.scl
+++ b/bundles/org.simantics.scl.db/scl/Simantics/DBSupport.scl
@@ -1,11 +1,32 @@
-import "UI/Progress"\r
-\r
-importJava "org.simantics.scl.db.SCLFunctions" where\r
-    collectClusters :: <Proc> ()\r
-\r
-importJava "org.simantics.db.layer0.util.Layer0Utils" where\r
-    @JavaName emptyTrashBin\r
-    emptyTrashBinWithMonitor :: ProgressMonitor -> <Proc> ()\r
-\r
-//emptyTrashBin :: <Proc> ()\r
-emptyTrashBin = emptyTrashBinWithMonitor $ createNullProgressMonitor ()\r
+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
+    """
+    restrictQueries amount step maxTimeInMs
+    
+    Collects some DB queries. Tries to reach at maximum 'amount' queries.
+    Uses at maximum 'maxTimeInMs' milliseconds in 'step' millisecond stints.
+    """
+    restrictQueries :: Integer -> Integer -> Integer -> <ReadGraph> ()
+
+importJava "org.simantics.db.layer0.util.Layer0Utils" where
+    @JavaName emptyTrashBin
+    emptyTrashBinWithMonitor :: ProgressMonitor -> <Proc> ()
+
+//emptyTrashBin :: <Proc> ()
+emptyTrashBin = emptyTrashBinWithMonitor $ createNullProgressMonitor ()
+
+importJava "org.simantics.db.service.ClusterUID" where
+    data ClusterUID