X-Git-Url: https://gerrit.simantics.org/r/gitweb?p=simantics%2Fplatform.git;a=blobdiff_plain;f=bundles%2Forg.simantics.document.server%2Fscl%2FDocument%2FAll.scl;h=641f4fdc158f1e6e5546f1d6f6dbd601da3b6538;hp=1f567a6fce500ce549597c6cf4d5b7913bc05a52;hb=8959bb33806d2252cdf09e42386afd242919630a;hpb=fdbe87627e92805701d0672fbe8f1dc60b7f7b00

diff --git a/bundles/org.simantics.document.server/scl/Document/All.scl b/bundles/org.simantics.document.server/scl/Document/All.scl
index 1f567a6fc..641f4fdc1 100644
--- a/bundles/org.simantics.document.server/scl/Document/All.scl
+++ b/bundles/org.simantics.document.server/scl/Document/All.scl
@@ -1,145 +1,157 @@
-import "Simantics/DB"
-import "Simantics/Variables"
-import "JavaBuiltin" as Java
-
-importJava "org.simantics.document.server.io.IConsole" where
-    data IConsole
-    addMessage :: IConsole -> String -> <Proc> ()
-    sendEvent :: IConsole -> String -> String -> Vector Dynamic -> <Proc> ()
-
-importJava "org.simantics.document.server.io.IDocument" where
-    data IDocument
-    elementIdToObjectId :: IDocument -> String -> <Proc> String
-    getDocumentURI :: IDocument -> <Proc> String
-    getSessionGUID :: IDocument -> <Proc> String
-
-importJava "org.simantics.document.server.io.ITableCell" where
-    data ITableCell
-
-importJava "org.simantics.document.server.io.ITreeTableCell" where
-    data ITreeTableCell
-
-importJava "org.simantics.document.server.io.IFont" where
-    data IFont
-
-importJava "org.simantics.document.server.io.IColor" where
-    data IColor
-
-importJava "org.simantics.modeling.services.ComponentNamingStrategy" where
-    data ComponentNamingStrategy
-
-importJava "org.simantics.document.server.handler.EventHandler" where
-    data EventHandler
-
-importJava "org.simantics.document.server.handler.AbstractEventHandler" where
-    data AbstractEventHandler
-
-importJava "org.simantics.document.server.bean.Command" where
-    data Command
-
-importJava "org.simantics.document.server.bean.DataDefinition" where
-    data DataDefinition
-
-importJava "org.simantics.document.server.io.CommandContext" where
-    data CommandContext
-
-    @JavaName getString
-    possibleString :: CommandContext -> String -> Maybe String
-
-    @JavaName getValue
-    possibleValue :: CommandContext -> String -> Maybe a
-
-    @JavaName getValue
-    justValue :: CommandContext -> String -> a
-
-    @JavaName containsKey
-    containsKey :: CommandContext -> String -> Boolean
-    
-    getKeys :: CommandContext -> [String]
-
-importJava "org.simantics.document.server.io.CommandContextMutable" where
-    data CommandContextMutable
-
-    @JavaName putString
-    putString :: CommandContextMutable -> String -> String -> <Proc> CommandContextMutable
-    
-    putValue :: CommandContextMutable -> String -> a -> <Proc> CommandContextMutable
-
-    merge :: CommandContextMutable -> CommandContext -> <Proc> CommandContextMutable    
-
-importJava "org.simantics.document.server.io.CommandContextImpl" where
-
-    @JavaName create
-    commandContext :: () -> CommandContextMutable
-
-instance Coercible CommandContextMutable CommandContext where
-    coerce = Java.unsafeCoerce
-
-cloneCommandContext :: CommandContext -> <Proc> CommandContextMutable
-cloneCommandContext context = merge (commandContext ()) context
-
-importJava "org.simantics.document.server.io.CommandResult" where
-    data CommandResult
-
-importJava "org.simantics.document.server.serverResponse.ServerResponse" where
-
-    @JavaName create
-    commandResult :: Integer -> String -> CommandContextMutable -> CommandResult
-
-importJava "org.simantics.document.server.Functions" where
-
-    @JavaName putTuple
-    putTuple :: CommandContextMutable -> String -> a -> CommandContextMutable
-
-    @JavaName getTuples
-    getTuples :: CommandContext -> String -> [a]
-
-    printContext :: CommandContext -> String
-
-    commandList :: Variable -> <ReadGraph> [Command]
-
-    dataDefinitions :: Variable -> <ReadGraph> [DataDefinition]
-
-    emptyOnClick :: () -> <ReadGraph> AbstractEventHandler
-    
-    writeEventHandler :: Variable -> (Variable -> (String -> Maybe String) -> <WriteGraph> String) -> <ReadGraph> AbstractEventHandler
-    readEventHandler :: Variable -> (Variable -> (String -> Maybe String) -> <ReadGraph> String) -> <ReadGraph> AbstractEventHandler
-    eventHandler :: ((String -> Maybe String) -> String) -> <ReadGraph> AbstractEventHandler
-
-    readEventHandler2 :: (CommandContext -> <ReadGraph> Maybe CommandResult) -> <ReadGraph> AbstractEventHandler
-    writeEventHandler2 :: (CommandContext -> <WriteGraph> Maybe CommandResult) -> <ReadGraph> AbstractEventHandler
-    eventHandler2 :: (CommandContext -> Maybe CommandResult) -> <ReadGraph> AbstractEventHandler
-    
-    responseHandler :: Variable -> String -> <ReadGraph> AbstractEventHandler
-
-    sclStateVariable :: Variable -> Variable -> String -> <ReadGraph> Variable
-    sclStateValueOrDefault :: Variable -> Variable -> String -> a -> <ReadGraph> a
-    setSclStateValue :: Variable -> Variable -> String -> a -> <WriteGraph> ()
-    
-    projectComponentState :: Variable -> String -> a -> <ReadGraph> a
-    setProjectComponentState :: Variable -> String -> a -> <WriteGraph> ()
-
-    documentModelContribution :: Resource -> <ReadGraph> [Variable]
-    documentModelContributionLabel :: Variable -> <ReadGraph> String
-    
-    @JavaName getPropertyValueCached
-    propertyValueCached_ :: Variable -> String -> Binding a -> <ReadGraph> a
-    
-    stateVariable :: Variable -> <ReadGraph> Variable
-    
-propertyValueCached :: Serializable a => Typeable a => Variable -> String -> <ReadGraph> a
-propertyValueCached var prop = propertyValueCached_ var prop binding
-    
-displayValue :: Variable -> String -> <ReadGraph> String
-displayValue var str = propertyValue (property var str) "HasDisplayValue"
-
-displayValue0 :: Variable -> <ReadGraph> String
-displayValue0 var = propertyValue var "HasDisplayValue"
-
-consoleLog :: Variable -> String -> <ReadGraph> ()
-consoleLog state message = do
-    console = state#console
-    runProc $ addMessage console message
-
-contextDocument :: CommandContext -> <Proc> IDocument
-contextDocument ctx = justValue ctx "__document__"
+import "Simantics/DB"
+import "Simantics/Variables"
+import "JavaBuiltin" as Java
+
+importJava "org.simantics.document.server.io.IConsole" where
+    data IConsole
+    addMessage :: IConsole -> String -> <Proc> ()
+    sendEvent :: IConsole -> String -> String -> Vector Dynamic -> <Proc> ()
+
+importJava "org.simantics.document.server.io.IDocument" where
+    data IDocument
+    elementIdToObjectId :: IDocument -> String -> <Proc> String
+    getDocumentURI :: IDocument -> <Proc> String
+    getSessionGUID :: IDocument -> <Proc> String
+
+importJava "org.simantics.document.server.io.ITableCell" where
+    data ITableCell
+
+importJava "org.simantics.document.server.io.ITreeTableCell" where
+    data ITreeTableCell
+
+importJava "org.simantics.document.server.io.IFont" where
+    data IFont
+    
+    @JavaName getFamily
+    fontFamily :: IFont -> <Proc> Maybe String
+    @JavaName getStyle
+    fontStyle :: IFont -> <Proc> Maybe String
+    @JavaName getHeight
+    fontHeight :: IFont -> <Proc> Integer
+
+importJava "org.simantics.document.server.io.IColor" where
+    data IColor
+
+importJava "org.simantics.modeling.services.ComponentNamingStrategy" where
+    data ComponentNamingStrategy
+
+importJava "org.simantics.document.server.handler.EventHandler" where
+    data EventHandler
+
+importJava "org.simantics.document.server.handler.AbstractEventHandler" where
+    data AbstractEventHandler
+
+importJava "org.simantics.document.server.bean.Command" where
+    data Command
+
+importJava "org.simantics.document.server.bean.DataDefinition" where
+    data DataDefinition
+
+importJava "org.simantics.document.server.io.CommandContext" where
+    data CommandContext
+
+    @JavaName getString
+    possibleString :: CommandContext -> String -> Maybe String
+
+    @JavaName getValue
+    possibleValue :: CommandContext -> String -> Maybe a
+
+    @JavaName getValue
+    justValue :: CommandContext -> String -> a
+
+    @JavaName containsKey
+    containsKey :: CommandContext -> String -> Boolean
+    
+    getKeys :: CommandContext -> [String]
+
+importJava "org.simantics.document.server.io.CommandContextMutable" where
+    data CommandContextMutable
+
+    @JavaName putString
+    putString :: CommandContextMutable -> String -> String -> <Proc> CommandContextMutable
+    
+    putValue :: CommandContextMutable -> String -> a -> <Proc> CommandContextMutable
+
+    merge :: CommandContextMutable -> CommandContext -> <Proc> CommandContextMutable    
+
+importJava "org.simantics.document.server.io.CommandContextImpl" where
+
+    @JavaName create
+    commandContext :: () -> CommandContextMutable
+
+instance Coercible CommandContextMutable CommandContext where
+    coerce = Java.unsafeCoerce
+
+cloneCommandContext :: CommandContext -> <Proc> CommandContextMutable
+cloneCommandContext context = merge (commandContext ()) context
+
+instance Show CommandContext where
+    show ctx = printContext ctx
+
+importJava "org.simantics.document.server.io.CommandResult" where
+    data CommandResult
+
+importJava "org.simantics.document.server.serverResponse.ServerResponse" where
+
+    @JavaName create
+    commandResult :: Integer -> String -> CommandContextMutable -> CommandResult
+
+importJava "org.simantics.document.server.Functions" where
+
+    @JavaName putTuple
+    putTuple :: CommandContextMutable -> String -> a -> CommandContextMutable
+
+    @JavaName getTuples
+    getTuples :: CommandContext -> String -> [a]
+
+    printContext :: CommandContext -> String
+
+    commandList :: Variable -> <ReadGraph> [Command]
+
+    dataDefinitions :: Variable -> <ReadGraph> [DataDefinition]
+
+    emptyOnClick :: () -> <ReadGraph> AbstractEventHandler
+    
+    writeEventHandler :: Variable -> (Variable -> (String -> Maybe String) -> <WriteGraph> String) -> <ReadGraph> AbstractEventHandler
+    readEventHandler :: Variable -> (Variable -> (String -> Maybe String) -> <ReadGraph> String) -> <ReadGraph> AbstractEventHandler
+    eventHandler :: ((String -> Maybe String) -> String) -> <ReadGraph> AbstractEventHandler
+
+    readEventHandler2 :: (CommandContext -> <ReadGraph> Maybe CommandResult) -> <ReadGraph> AbstractEventHandler
+    writeEventHandler2 :: (CommandContext -> <WriteGraph> Maybe CommandResult) -> <ReadGraph> AbstractEventHandler
+    eventHandler2 :: (CommandContext -> Maybe CommandResult) -> <ReadGraph> AbstractEventHandler
+    
+    responseHandler :: Variable -> String -> <ReadGraph> AbstractEventHandler
+
+    sclStateVariable :: Variable -> Variable -> String -> <ReadGraph> Variable
+    sclStateValueOrDefault :: Variable -> Variable -> String -> a -> <ReadGraph> a
+    setSclStateValue :: Variable -> Variable -> String -> a -> <WriteGraph> ()
+    
+    projectComponentState :: Variable -> String -> a -> <ReadGraph> a
+    setProjectComponentState :: Variable -> String -> a -> <WriteGraph> ()
+
+    documentModelContribution :: Resource -> <ReadGraph> [Variable]
+    documentModelContributionLabel :: Variable -> <ReadGraph> String
+    
+    @JavaName getPropertyValueCached
+    propertyValueCached_ :: Variable -> String -> Binding a -> <ReadGraph> a
+    
+    stateVariable :: Variable -> <ReadGraph> Variable
+    
+    compileDocumentSCLValueExpression :: Variable -> <ReadGraph> String
+    
+propertyValueCached :: Serializable a => Typeable a => Variable -> String -> <ReadGraph> a
+propertyValueCached var prop = propertyValueCached_ var prop binding
+    
+displayValue :: Variable -> String -> <ReadGraph> String
+displayValue var str = propertyValue (property var str) "HasDisplayValue"
+
+displayValue0 :: Variable -> <ReadGraph> String
+displayValue0 var = propertyValue var "HasDisplayValue"
+
+consoleLog :: CommandContext -> String -> ()
+consoleLog context message = match possibleValue context "console" with
+  Nothing -> ()
+  Just console -> runProc $ addMessage console message
+
+contextDocument :: CommandContext -> <Proc> IDocument
+contextDocument ctx = justValue ctx "__document__"