bundles/org.simantics.document.server/scl/Document/All.scl

   1 import "Simantics/DB"\r
   2 import "Simantics/Variables"\r
   3 import "JavaBuiltin" as Java\r
   4 \r
   5 importJava "org.simantics.document.server.io.IConsole" where\r
   6     data IConsole\r
   7     addMessage :: IConsole -> String -> <Proc> ()\r
   8     sendEvent :: IConsole -> String -> String -> Vector Dynamic -> <Proc> ()\r
   9 \r
  10 importJava "org.simantics.document.server.io.IDocument" where\r
  11     data IDocument\r
  12     elementIdToObjectId :: IDocument -> String -> <Proc> String\r
  13     getDocumentURI :: IDocument -> <Proc> String\r
  14     getSessionGUID :: IDocument -> <Proc> String\r
  15 \r
  16 importJava "org.simantics.document.server.io.ITableCell" where\r
  17     data ITableCell\r
  18 \r
  19 importJava "org.simantics.document.server.io.ITreeTableCell" where\r
  20     data ITreeTableCell\r
  21 \r
  22 importJava "org.simantics.document.server.io.IFont" where\r
  23     data IFont\r
  24 \r
  25 importJava "org.simantics.document.server.io.IColor" where\r
  26     data IColor\r
  27 \r
  28 importJava "org.simantics.modeling.services.ComponentNamingStrategy" where\r
  29     data ComponentNamingStrategy\r
  30 \r
  31 importJava "org.simantics.document.server.handler.EventHandler" where\r
  32     data EventHandler\r
  33 \r
  34 importJava "org.simantics.document.server.handler.AbstractEventHandler" where\r
  35     data AbstractEventHandler\r
  36 \r
  37 importJava "org.simantics.document.server.bean.Command" where\r
  38     data Command\r
  39 \r
  40 importJava "org.simantics.document.server.bean.DataDefinition" where\r
  41     data DataDefinition\r
  42 \r
  43 importJava "org.simantics.document.server.io.CommandContext" where\r
  44     data CommandContext\r
  45 \r
  46     @JavaName getString\r
  47     possibleString :: CommandContext -> String -> Maybe String\r
  48 \r
  49     @JavaName getValue\r
  50     possibleValue :: CommandContext -> String -> Maybe a\r
  51 \r
  52     @JavaName getValue\r
  53     justValue :: CommandContext -> String -> a\r
  54 \r
  55     @JavaName containsKey\r
  56     containsKey :: CommandContext -> String -> Boolean\r
  57     \r
  58     getKeys :: CommandContext -> [String]\r
  59 \r
  60 importJava "org.simantics.document.server.io.CommandContextMutable" where\r
  61     data CommandContextMutable\r
  62 \r
  63     @JavaName putString\r
  64     putString :: CommandContextMutable -> String -> String -> <Proc> CommandContextMutable\r
  65     \r
  66     putValue :: CommandContextMutable -> String -> a -> <Proc> CommandContextMutable\r
  67 \r
  68     merge :: CommandContextMutable -> CommandContext -> <Proc> CommandContextMutable    \r
  69 \r
  70 importJava "org.simantics.document.server.io.CommandContextImpl" where\r
  71 \r
  72     @JavaName create\r
  73     commandContext :: () -> CommandContextMutable\r
  74 \r
  75 instance Coercible CommandContextMutable CommandContext where\r
  76     coerce = Java.unsafeCoerce\r
  77 \r
  78 cloneCommandContext :: CommandContext -> <Proc> CommandContextMutable\r
  79 cloneCommandContext context = merge (commandContext ()) context\r
  80 \r
  81 importJava "org.simantics.document.server.io.CommandResult" where\r
  82     data CommandResult\r
  83 \r
  84 importJava "org.simantics.document.server.serverResponse.ServerResponse" where\r
  85 \r
  86     @JavaName create\r
  87     commandResult :: Integer -> String -> CommandContextMutable -> CommandResult\r
  88 \r
  89 importJava "org.simantics.document.server.Functions" where\r
  90 \r
  91     @JavaName putTuple\r
  92     putTuple :: CommandContextMutable -> String -> a -> CommandContextMutable\r
  93 \r
  94     @JavaName getTuples\r
  95     getTuples :: CommandContext -> String -> [a]\r
  96 \r
  97     printContext :: CommandContext -> String\r
  98 \r
  99     commandList :: Variable -> <ReadGraph> [Command]\r
 100 \r
 101     dataDefinitions :: Variable -> <ReadGraph> [DataDefinition]\r
 102 \r
 103     emptyOnClick :: () -> <ReadGraph> AbstractEventHandler\r
 104     \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
 108 \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
 112     \r
 113     responseHandler :: Variable -> String -> <ReadGraph> AbstractEventHandler\r
 114 \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
 118     \r
 119     projectComponentState :: Variable -> String -> a -> <ReadGraph> a\r
 120     setProjectComponentState :: Variable -> String -> a -> <WriteGraph> ()\r
 121 \r
 122     documentModelContribution :: Resource -> <ReadGraph> [Variable]\r
 123     documentModelContributionLabel :: Variable -> <ReadGraph> String\r
 124     \r
 125     @JavaName getPropertyValueCached\r
 126     propertyValueCached_ :: Variable -> String -> Binding a -> <ReadGraph> a\r
 127     \r
 128     stateVariable :: Variable -> <ReadGraph> Variable\r
 129     \r
 130 propertyValueCached :: Serializable a => Typeable a => Variable -> String -> <ReadGraph> a\r
 131 propertyValueCached var prop = propertyValueCached_ var prop binding\r
 132     \r
 133 displayValue :: Variable -> String -> <ReadGraph> String\r
 134 displayValue var str = propertyValue (property var str) "HasDisplayValue"\r
 135 \r
 136 displayValue0 :: Variable -> <ReadGraph> String\r
 137 displayValue0 var = propertyValue var "HasDisplayValue"\r
 138 \r
 139 consoleLog :: Variable -> String -> <ReadGraph> ()\r
 140 consoleLog state message = do\r
 141     console = state#console\r
 142     runProc $ addMessage console message\r
 143 \r
 144 contextDocument :: CommandContext -> <Proc> IDocument\r
 145 contextDocument ctx = justValue ctx "__document__"\r