X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=blobdiff_plain;f=org.simantics.interop.scl%2Fscl%2FInterop%2FThreads.scl;fp=org.simantics.interop.scl%2Fscl%2FInterop%2FThreads.scl;h=84cb6062de245e5c3cd83ca5829676133203388e;hb=3d1162569c565312963decd723f8b0dec8b64bfa;hp=0000000000000000000000000000000000000000;hpb=0403f09aa2c8b17a99acdd6f82d893bc1cdf88fb;p=simantics%2Finterop.git

diff --git a/org.simantics.interop.scl/scl/Interop/Threads.scl b/org.simantics.interop.scl/scl/Interop/Threads.scl
new file mode 100644
index 0000000..84cb606
--- /dev/null
+++ b/org.simantics.interop.scl/scl/Interop/Threads.scl
@@ -0,0 +1,15 @@
+importJava "org.simantics.interop.scl.Threads" where
+  
+  runAsync :: (<Proc>()) -> <Proc> SCLThread
+  
+  setMaximumPoolSize :: Integer -> <Proc> ()
+
+importJava "org.simantics.interop.scl.Threads$SCLThread" where
+  data SCLThread
+  
+  isRunning :: SCLThread -> <Proc> Boolean
+  isCompleted :: SCLThread -> <Proc> Boolean
+  hasErrors :: SCLThread -> <Proc> Boolean
+  getReturnValue :: SCLThread -> <Proc> Maybe a
+  
+  
\ No newline at end of file