From 66cdd1aef47bb1209a0e727dab409b98f6d100b4 Mon Sep 17 00:00:00 2001
From: Marko Luukkainen <marko.luukkainen@semantum.fi>
Date: Thu, 19 Sep 2019 17:29:37 +0300
Subject: [PATCH] Clear for single functions + include interop.scl in the build

gilab #13


Change-Id: I2b1e0e1b3c4c41b902e5e95cc667651275d9e200
---
 .../scl/Interop/FunctionRegistry.scl                | 13 ++++++++++++-
 .../org/simantics/interop/scl/FunctionRegistry.java |  7 +++++++
 pom.xml                                             |  1 +
 3 files changed, 20 insertions(+), 1 deletion(-)

diff --git a/org.simantics.interop.scl/scl/Interop/FunctionRegistry.scl b/org.simantics.interop.scl/scl/Interop/FunctionRegistry.scl
index 9d707cf..bdba0e3 100644
--- a/org.simantics.interop.scl/scl/Interop/FunctionRegistry.scl
+++ b/org.simantics.interop.scl/scl/Interop/FunctionRegistry.scl
@@ -19,4 +19,15 @@ importJava "org.simantics.interop.scl.FunctionRegistry" where
   clear :: a -> <Proc> ()
   
   @JavaName clear
-  clearName :: a -> String -> <Proc> ()
\ No newline at end of file
+  clearName :: a -> String -> <Proc> ()
+  
+  @JavaName clear
+  clearFunction :: a -> String -> (f -> <Proc>()) -> <Proc> ()
+  @JavaName clear
+  clearFunction1 :: a -> String -> (f -> b -> <Proc>()) -> <Proc> ()
+  @JavaName clear
+  clearFunction2 :: a -> String -> (f -> b -> c -> <Proc>()) -> <Proc> ()
+  @JavaName clear
+  clearFunction3 :: a -> String -> (f -> b -> c -> d -> <Proc>()) -> <Proc> ()
+  @JavaName clear
+  clearFunction4 :: a -> String -> (f -> b -> c -> d -> e -> <Proc>()) -> <Proc> ()
\ No newline at end of file
diff --git a/org.simantics.interop.scl/src/org/simantics/interop/scl/FunctionRegistry.java b/org.simantics.interop.scl/src/org/simantics/interop/scl/FunctionRegistry.java
index 003a50a..efabdaa 100644
--- a/org.simantics.interop.scl/src/org/simantics/interop/scl/FunctionRegistry.java
+++ b/org.simantics.interop.scl/src/org/simantics/interop/scl/FunctionRegistry.java
@@ -78,5 +78,12 @@ public class FunctionRegistry {
         fmap.remove(name);
     }
     
+    public static void clear(Object key, String name,Function f) {
+        MapList<String, Function> fmap = map.get(key);
+        if (fmap == null)
+            return;
+        fmap.remove(name,f);
+    }
+    
 
 }
diff --git a/pom.xml b/pom.xml
index 8ca9be5..be0c16e 100644
--- a/pom.xml
+++ b/pom.xml
@@ -66,6 +66,7 @@
 		<module>org.simantics.xml.sax.base</module>
 		<module>org.simantics.xml.sax.ontology</module>
 		<module>org.simantics.xml.sax.ui</module>
+		<module>org.simantics.interop.scl</module>
 
 		<module>org.simantics.excel.poi.feature</module>
 		<module>org.simantics.interop.feature</module>
-- 
2.45.1