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
\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