X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=blobdiff_plain;f=bundles%2Forg.simantics.document.server%2Fscl%2FDocument%2FAll.scl;fp=bundles%2Forg.simantics.document.server%2Fscl%2FDocument%2FAll.scl;h=35ab38a80ffc403db6ed5e829523c02f13040be5;hb=969bd23cab98a79ca9101af33334000879fb60c5;hp=0000000000000000000000000000000000000000;hpb=866dba5cd5a3929bbeae85991796acb212338a08;p=simantics%2Fplatform.git

diff --git a/bundles/org.simantics.document.server/scl/Document/All.scl b/bundles/org.simantics.document.server/scl/Document/All.scl
new file mode 100644
index 000000000..35ab38a80
--- /dev/null
+++ b/bundles/org.simantics.document.server/scl/Document/All.scl
@@ -0,0 +1,130 @@
+import "Simantics/DB"
+import "Simantics/Variables"
+
+importJava "org.simantics.document.server.io.IConsole" where
+    data IConsole
+    addMessage :: IConsole -> String -> <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.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 -> CommandContextMutable
+    
+    putValue :: CommandContextMutable -> String -> a -> CommandContextMutable
+
+importJava "org.simantics.document.server.io.CommandContextImpl" where
+
+    @JavaName create
+    commandContext :: () -> CommandContextMutable
+
+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
+    
+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__"