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 propertyValueCached :: Serializable a => Typeable a => Variable -> String -> <ReadGraph> a\r
 119 propertyValueCached var prop = propertyValueCached_ var prop binding\r
 120     \r
 121 displayValue :: Variable -> String -> <ReadGraph> String\r
 122 displayValue var str = propertyValue (property var str) "HasDisplayValue"\r
 123 \r
 124 displayValue0 :: Variable -> <ReadGraph> String\r
 125 displayValue0 var = propertyValue var "HasDisplayValue"\r
 126 \r
 127 consoleLog :: Variable -> String -> <ReadGraph> ()\r
 128 consoleLog state message = do\r
 129     console = state#console\r
 130     runProc $ addMessage console message\r
 131 \r
 132 contextDocument :: CommandContext -> <Proc> IDocument\r
 133 contextDocument ctx = justValue ctx "__document__"\r