X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=blobdiff_plain;f=org.simantics.interop.scl%2Fscl%2FInterop%2FFunctionRegistry.scl;fp=org.simantics.interop.scl%2Fscl%2FInterop%2FFunctionRegistry.scl;h=9d707cfdb5fe768b8510587d62d031f53d50a9c9;hb=a788fd18ebfc517f48aa0730e4e72e86875a2159;hp=0000000000000000000000000000000000000000;hpb=910cc5b113065eea0b3785e3140bb89d0fc86dd8;p=simantics%2Finterop.git

diff --git a/org.simantics.interop.scl/scl/Interop/FunctionRegistry.scl b/org.simantics.interop.scl/scl/Interop/FunctionRegistry.scl
new file mode 100644
index 0000000..9d707cf
--- /dev/null
+++ b/org.simantics.interop.scl/scl/Interop/FunctionRegistry.scl
@@ -0,0 +1,22 @@
+importJava "org.simantics.interop.scl.FunctionRegistry" where
+  
+  register :: a -> String -> (f -> <Proc>()) -> <Proc> ()
+  @JavaName register
+  register1 :: a -> String -> (f -> b -> <Proc>()) -> <Proc> ()
+  @JavaName register
+  register2 :: a -> String -> (f -> b -> c -> <Proc>()) -> <Proc> ()
+  @JavaName register
+  register3 :: a -> String -> (f -> b -> c -> d -> <Proc>()) -> <Proc> ()
+  @JavaName register
+  register4 :: a -> String -> (f -> b -> c -> d -> e -> <Proc>()) -> <Proc> ()
+  call0 :: a -> String -> <Proc> ()
+  call1 :: a -> String -> b -> <Proc> ()
+  call2 :: a -> String -> b -> c -> <Proc> ()
+  call3 :: a -> String -> b -> c -> d -> <Proc> ()
+  call4 :: a -> String -> b -> c -> d -> e -> <Proc> ()
+  
+  @JavaName clear
+  clear :: a -> <Proc> ()
+  
+  @JavaName clear
+  clearName :: a -> String -> <Proc> ()
\ No newline at end of file