import "Future"

importJava "java.util.concurrent.TimeUnit" where
    data TimeUnit
    NANOSECONDS :: TimeUnit
    MICROSECONDS :: TimeUnit
    MILLISECONDS :: TimeUnit
    SECONDS :: TimeUnit
    HOURS :: TimeUnit
    DAYS :: TimeUnit

importJava "org.simantics.scl.runtime.utils.AsyncUtils" where
    runAsync :: (<Proc> a) -> <Proc> ()
    pmap :: (a -> <Proc> b) -> [a] -> <Proc> [b]

    scheduleAtFixedRate :: (<Proc> a) -> Long -> Long -> TimeUnit -> <Proc> Future a
    scheduleWithFixedDelay :: (<Proc> a) -> Long -> Long -> TimeUnit -> <Proc> Future a
    schedule :: (<Proc> a) -> Long -> TimeUnit -> <Proc> Future a