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 ()