bundles/org.simantics.scl.db/scl/Simantics/DBSupport.scl

   1 import "UI/Progress"
   2 import "Simantics/DB"
   3
   4 importJava "org.simantics.scl.db.SCLFunctions" where
   5     collectClusters :: <Proc> ()
   6     countQueries :: <ReadGraph> Integer
   7     """
   8     restrictQueries amount step maxTimeInMs
   9
  10     Collects some DB queries. Tries to reach at maximum 'amount' queries.
  11     Uses at maximum 'maxTimeInMs' milliseconds in 'step' millisecond stints.
  12     """
  13     restrictQueries :: Integer -> Integer -> Integer -> <ReadGraph> ()
  14
  15 importJava "org.simantics.db.layer0.util.Layer0Utils" where
  16     @JavaName emptyTrashBin
  17     emptyTrashBinWithMonitor :: ProgressMonitor -> <Proc> ()
  18
  19 //emptyTrashBin :: <Proc> ()
  20 emptyTrashBin = emptyTrashBinWithMonitor $ createNullProgressMonitor ()