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

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