X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=blobdiff_plain;f=bundles%2Forg.simantics.scl.db%2Fscl%2FSimantics%2FDBSupport.scl;h=ee61b88b1e39a9be685b19731a12141161b9f47a;hb=694c553a3c402b9397ff99e904b4f99b77b51df1;hp=30729032f6e74b4ff8204648c54548ee10ed9685;hpb=969bd23cab98a79ca9101af33334000879fb60c5;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 30729032f..ee61b88b1 100644
--- a/bundles/org.simantics.scl.db/scl/Simantics/DBSupport.scl
+++ b/bundles/org.simantics.scl.db/scl/Simantics/DBSupport.scl
@@ -1,11 +1,20 @@
-import "UI/Progress"
-
-importJava "org.simantics.scl.db.SCLFunctions" where
-    collectClusters :: <Proc> ()
-
-importJava "org.simantics.db.layer0.util.Layer0Utils" where
-    @JavaName emptyTrashBin
-    emptyTrashBinWithMonitor :: ProgressMonitor -> <Proc> ()
-
-//emptyTrashBin :: <Proc> ()
-emptyTrashBin = emptyTrashBinWithMonitor $ createNullProgressMonitor ()
+import "UI/Progress"
+import "Simantics/DB"
+
+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 ()