Sync git svn branch with SVN repository r33269.

[simantics/platform.git] / bundles / org.simantics.document.server / scl / Document / All.scl

diff --git a/bundles/org.simantics.document.server/scl/Document/All.scl b/bundles/org.simantics.document.server/scl/Document/All.scl
index 3d63eaf6a9463ade923a41b168ac0ba78a4d9fd5..1f567a6fce500ce549597c6cf4d5b7913bc05a52 100644 (file)
--- a/bundles/org.simantics.document.server/scl/Document/All.scl
+++ b/bundles/org.simantics.document.server/scl/Document/All.scl
@@ -1,9 +1,11 @@
 import "Simantics/DB"\r
 import "Simantics/Variables"\r
+import "JavaBuiltin" as Java\r
 \r
 importJava "org.simantics.document.server.io.IConsole" where\r
     data IConsole\r
     addMessage :: IConsole -> String -> <Proc> ()\r
+    sendEvent :: IConsole -> String -> String -> Vector Dynamic -> <Proc> ()\r
 \r
 importJava "org.simantics.document.server.io.IDocument" where\r
     data IDocument\r
@@ -63,11 +65,19 @@ importJava "org.simantics.document.server.io.CommandContextMutable" where
     \r
     putValue :: CommandContextMutable -> String -> a -> <Proc> CommandContextMutable\r
 \r
+    merge :: CommandContextMutable -> CommandContext -> <Proc> CommandContextMutable    \r
+\r
 importJava "org.simantics.document.server.io.CommandContextImpl" where\r
 \r
     @JavaName create\r
     commandContext :: () -> CommandContextMutable\r
 \r
+instance Coercible CommandContextMutable CommandContext where\r
+    coerce = Java.unsafeCoerce\r
+\r
+cloneCommandContext :: CommandContext -> <Proc> CommandContextMutable\r
+cloneCommandContext context = merge (commandContext ()) context\r
+\r
 importJava "org.simantics.document.server.io.CommandResult" where\r
     data CommandResult\r
 \r