1 import "Simantics/DB"
\r
2 import "Simantics/Variables"
\r
3 import "JavaBuiltin" as Java
\r
5 importJava "org.simantics.document.server.io.IConsole" where
\r
7 addMessage :: IConsole -> String -> <Proc> ()
\r
8 sendEvent :: IConsole -> String -> String -> Vector Dynamic -> <Proc> ()
\r
10 importJava "org.simantics.document.server.io.IDocument" where
\r
12 elementIdToObjectId :: IDocument -> String -> <Proc> String
\r
13 getDocumentURI :: IDocument -> <Proc> String
\r
14 getSessionGUID :: IDocument -> <Proc> String
\r
16 importJava "org.simantics.document.server.io.ITableCell" where
\r
19 importJava "org.simantics.document.server.io.ITreeTableCell" where
\r
22 importJava "org.simantics.document.server.io.IFont" where
\r
25 importJava "org.simantics.document.server.io.IColor" where
\r
28 importJava "org.simantics.modeling.services.ComponentNamingStrategy" where
\r
29 data ComponentNamingStrategy
\r
31 importJava "org.simantics.document.server.handler.EventHandler" where
\r
34 importJava "org.simantics.document.server.handler.AbstractEventHandler" where
\r
35 data AbstractEventHandler
\r
37 importJava "org.simantics.document.server.bean.Command" where
\r
40 importJava "org.simantics.document.server.bean.DataDefinition" where
\r
43 importJava "org.simantics.document.server.io.CommandContext" where
\r
47 possibleString :: CommandContext -> String -> Maybe String
\r
50 possibleValue :: CommandContext -> String -> Maybe a
\r
53 justValue :: CommandContext -> String -> a
\r
55 @JavaName containsKey
\r
56 containsKey :: CommandContext -> String -> Boolean
\r
58 getKeys :: CommandContext -> [String]
\r
60 importJava "org.simantics.document.server.io.CommandContextMutable" where
\r
61 data CommandContextMutable
\r
64 putString :: CommandContextMutable -> String -> String -> <Proc> CommandContextMutable
\r
66 putValue :: CommandContextMutable -> String -> a -> <Proc> CommandContextMutable
\r
68 merge :: CommandContextMutable -> CommandContext -> <Proc> CommandContextMutable
\r
70 importJava "org.simantics.document.server.io.CommandContextImpl" where
\r
73 commandContext :: () -> CommandContextMutable
\r
75 instance Coercible CommandContextMutable CommandContext where
\r
76 coerce = Java.unsafeCoerce
\r
78 cloneCommandContext :: CommandContext -> <Proc> CommandContextMutable
\r
79 cloneCommandContext context = merge (commandContext ()) context
\r
81 importJava "org.simantics.document.server.io.CommandResult" where
\r
84 importJava "org.simantics.document.server.serverResponse.ServerResponse" where
\r
87 commandResult :: Integer -> String -> CommandContextMutable -> CommandResult
\r
89 importJava "org.simantics.document.server.Functions" where
\r
92 putTuple :: CommandContextMutable -> String -> a -> CommandContextMutable
\r
95 getTuples :: CommandContext -> String -> [a]
\r
97 printContext :: CommandContext -> String
\r
99 commandList :: Variable -> <ReadGraph> [Command]
\r
101 dataDefinitions :: Variable -> <ReadGraph> [DataDefinition]
\r
103 emptyOnClick :: () -> <ReadGraph> AbstractEventHandler
\r
105 writeEventHandler :: Variable -> (Variable -> (String -> Maybe String) -> <WriteGraph> String) -> <ReadGraph> AbstractEventHandler
\r
106 readEventHandler :: Variable -> (Variable -> (String -> Maybe String) -> <ReadGraph> String) -> <ReadGraph> AbstractEventHandler
\r
107 eventHandler :: ((String -> Maybe String) -> String) -> <ReadGraph> AbstractEventHandler
\r
109 readEventHandler2 :: (CommandContext -> <ReadGraph> Maybe CommandResult) -> <ReadGraph> AbstractEventHandler
\r
110 writeEventHandler2 :: (CommandContext -> <WriteGraph> Maybe CommandResult) -> <ReadGraph> AbstractEventHandler
\r
111 eventHandler2 :: (CommandContext -> Maybe CommandResult) -> <ReadGraph> AbstractEventHandler
\r
113 responseHandler :: Variable -> String -> <ReadGraph> AbstractEventHandler
\r
115 sclStateVariable :: Variable -> Variable -> String -> <ReadGraph> Variable
\r
116 sclStateValueOrDefault :: Variable -> Variable -> String -> a -> <ReadGraph> a
\r
117 setSclStateValue :: Variable -> Variable -> String -> a -> <WriteGraph> ()
\r
119 projectComponentState :: Variable -> String -> a -> <ReadGraph> a
\r
120 setProjectComponentState :: Variable -> String -> a -> <WriteGraph> ()
\r
122 documentModelContribution :: Resource -> <ReadGraph> [Variable]
\r
123 documentModelContributionLabel :: Variable -> <ReadGraph> String
\r
125 @JavaName getPropertyValueCached
\r
126 propertyValueCached_ :: Variable -> String -> Binding a -> <ReadGraph> a
\r
128 stateVariable :: Variable -> <ReadGraph> Variable
\r
130 propertyValueCached :: Serializable a => Typeable a => Variable -> String -> <ReadGraph> a
\r
131 propertyValueCached var prop = propertyValueCached_ var prop binding
\r
133 displayValue :: Variable -> String -> <ReadGraph> String
\r
134 displayValue var str = propertyValue (property var str) "HasDisplayValue"
\r
136 displayValue0 :: Variable -> <ReadGraph> String
\r
137 displayValue0 var = propertyValue var "HasDisplayValue"
\r
139 consoleLog :: Variable -> String -> <ReadGraph> ()
\r
140 consoleLog state message = do
\r
141 console = state#console
\r
142 runProc $ addMessage console message
\r
144 contextDocument :: CommandContext -> <Proc> IDocument
\r
145 contextDocument ctx = justValue ctx "__document__"
\r