From f19e535761a9b0d80558bada33f48f2cda2af51f Mon Sep 17 00:00:00 2001
From: =?utf8?q?Hannu=20Niemist=C3=B6?= <hannu.niemisto@semantum.fi>
Date: Tue, 7 Nov 2017 16:23:12 +0200
Subject: [PATCH] (refs #7607) Async module for running functions
 asynchronously

Change-Id: I4870aefa0c965bd0cf4ada19c01fa9b01efca171
---
 .../org.simantics.scl.runtime/scl/Async.scl   |  2 ++
 .../scl/runtime/utils/AsyncUtils.java         | 22 +++++++++++++++++++
 2 files changed, 24 insertions(+)
 create mode 100644 bundles/org.simantics.scl.runtime/scl/Async.scl
 create mode 100644 bundles/org.simantics.scl.runtime/src/org/simantics/scl/runtime/utils/AsyncUtils.java

diff --git a/bundles/org.simantics.scl.runtime/scl/Async.scl b/bundles/org.simantics.scl.runtime/scl/Async.scl
new file mode 100644
index 000000000..c47f457ef
--- /dev/null
+++ b/bundles/org.simantics.scl.runtime/scl/Async.scl
@@ -0,0 +1,2 @@
+importJava "org.simantics.scl.runtime.utils.AsyncUtils" where
+    runAsync :: (<Proc> a) -> <Proc> ()
\ No newline at end of file
diff --git a/bundles/org.simantics.scl.runtime/src/org/simantics/scl/runtime/utils/AsyncUtils.java b/bundles/org.simantics.scl.runtime/src/org/simantics/scl/runtime/utils/AsyncUtils.java
new file mode 100644
index 000000000..fcd8a4724
--- /dev/null
+++ b/bundles/org.simantics.scl.runtime/src/org/simantics/scl/runtime/utils/AsyncUtils.java
@@ -0,0 +1,22 @@
+package org.simantics.scl.runtime.utils;
+
+import org.simantics.scl.runtime.SCLContext;
+import org.simantics.scl.runtime.function.Function;
+import org.simantics.scl.runtime.tuple.Tuple0;
+
+public class AsyncUtils {
+    public static void runAsync(Function f) {
+        SCLContext context = SCLContext.getCurrent();
+        new Thread() {
+            @Override
+            public void run() {
+                SCLContext.push(context);
+                try {
+                    f.apply(Tuple0.INSTANCE);
+                } finally {
+                    SCLContext.pop();
+                }
+            }
+        }.start();
+    }
+}
-- 
2.43.2