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

   1 import "UI/Progress"
   2 import "Simantics/DB"
   3
   4 importJava "org.simantics.db.common.utils.CommonDBUtils" where
   5
   6     listClusters :: <ReadGraph> [ClusterUID]
   7     resourcesByCluster :: ClusterUID -> <ReadGraph> [Resource]
   8     directStatements :: Resource -> Boolean -> <ReadGraph> [Statement]
   9     garbageResources :: <ReadGraph> [Resource]
  10     clusterUIDOfResource :: Resource -> <ReadGraph> ClusterUID
  11     isClusterLoaded :: ClusterUID -> <ReadGraph> Boolean
  12     setImmutable :: Resource -> Boolean -> <ReadGraph> ()
  13
  14 importJava "org.simantics.scl.db.SCLFunctions" where
  15     collectClusters :: <Proc> ()
  16     countQueries :: <ReadGraph> Integer
  17     """
  18     restrictQueries amount step maxTimeInMs
  19
  20     Collects some DB queries. Tries to reach at maximum 'amount' queries.
  21     Uses at maximum 'maxTimeInMs' milliseconds in 'step' millisecond stints.
  22     """
  23     restrictQueries :: Integer -> Integer -> Integer -> <ReadGraph> ()
  24
  25 importJava "org.simantics.db.layer0.util.Layer0Utils" where
  26     @JavaName emptyTrashBin
  27     emptyTrashBinWithMonitor :: ProgressMonitor -> <Proc> ()
  28
  29 //emptyTrashBin :: <Proc> ()
  30 emptyTrashBin = emptyTrashBinWithMonitor $ createNullProgressMonitor ()
  31
  32 importJava "org.simantics.db.service.ClusterUID" where
  33     data ClusterUID