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