org.simantics.interop.update/scl/Interop/Update.scl

   1 import "Simantics/All"
   2 import "JavaBuiltin"
   3
   4
   5 importJava "org.simantics.interop.update.model.ModelUpdate" where
   6   data ModelUpdate
   7
   8   @JavaName getUpdateTree
   9   getUpdateTree :: ModelUpdate -> <Proc> UpdateTree
  10
  11   @JavaName getUpdateList
  12   getUpdateList :: ModelUpdate -> <Proc> UpdateList
  13
  14   @JavaName getChanges
  15   getGraphChanges :: ModelUpdate -> <Proc> GraphChanges
  16
  17   @JavaName applyAll
  18   applyAllUpdates :: ModelUpdate -> <WriteGraph> ()
  19
  20   @JavaName applySelected
  21   applySelectedUpdates :: ModelUpdate -> <WriteGraph> ()
  22
  23   @JavaName getUpdateTree2
  24   getUpdateTree2 :: ModelUpdate -> <Proc> Maybe UpdateTree
  25
  26   @JavaName getUpdateList2
  27   getUpdateList2 :: ModelUpdate -> <Proc> Maybe UpdateList
  28
  29   @JavaName getChanges2
  30   getGraphChanges2 :: ModelUpdate -> <Proc> Maybe GraphChanges
  31
  32   @JavaName getUpdateTree3
  33   getUpdateTree3 :: ModelUpdate -> <Proc> Maybe UpdateTree
  34
  35   @JavaName getUpdateList
  36   getUpdateList3 :: ModelUpdate -> <Proc> Maybe UpdateList
  37
  38   @JavaName getUpdateNode3
  39   getUpdateNode3 :: ModelUpdate -> <Proc> Maybe UpdateNode3
  40
  41   @JavaName getChanges
  42   getGraphChanges3 :: ModelUpdate -> <Proc> Maybe GraphChanges
  43
  44   @JavaName defaultSelections
  45   setDefaultSelections :: ModelUpdate -> <Proc>()
  46
  47 importJava "org.simantics.interop.update.model.UpdateTree" where
  48   data UpdateTree
  49
  50   @JavaName getRootNode
  51   getRootNode :: UpdateTree -> <Proc> UpdateNode
  52
  53   @JavaName getNode
  54   getNode :: UpdateTree -> Resource -> <Proc> Maybe UpdateNode
  55
  56 importJava "org.simantics.interop.update.model.UpdateList" where
  57   data UpdateList
  58
  59   @JavaName getChanges
  60   getListChanges :: UpdateList -> <Proc> [PropertyChange]
  61
  62   @JavaName getSelected
  63   getListSelected :: UpdateList -> <Proc> [PropertyChange]
  64
  65   @JavaName getChanges
  66   getResChanges :: UpdateList -> Resource -> <ReadGraph> [PropertyChange]
  67
  68   @JavaName getChange
  69   getStmChange :: UpdateList -> Statement -> <ReadGraph> Maybe PropertyChange
  70
  71   //@JavaName addSelected
  72   //addListSelected :: UpdateList -> Pair -> <Proc>()
  73
  74   //@JavaName removeSelected
  75   //removeListSelected :: UpdateList -> Pair -> <Proc>()
  76
  77   //@JavaName isSelected
  78   //isListSelected :: UpdateList -> Pair -> <Proc> Boolean
  79
  80 importJava "org.simantics.interop.test.GraphChanges" where
  81   data GraphChanges
  82
  83   @JavaName getComparable
  84   getComparable :: GraphChanges -> <Proc> BijectionMap
  85
  86   @JavaName getAdditions
  87   getAdditions :: GraphChanges -> <Proc> [Statement]
  88
  89   @JavaName getDeletions
  90   getDeletions :: GraphChanges -> <Proc> [Statement]
  91
  92   @JavaName getModifications
  93   getModifications :: GraphChanges -> <Proc> [Pair]
  94
  95 importJava "org.simantics.interop.update.model.PropertyChange" where
  96   data PropertyChange
  97
  98   @JavaName "<init>"
  99   createPropertyChange :: GraphChanges -> Resource -> Maybe Statement -> Resource -> Maybe Statement -> <Proc> PropertyChange
 100
 101   @JavaName applied
 102   pcApplied :: PropertyChange -> <Proc> Boolean
 103
 104   @JavaName selected
 105   pcSelected :: PropertyChange -> <Proc> Boolean
 106
 107   @JavaName "select"
 108   pcSelect :: PropertyChange -> Boolean -> <Proc> Boolean
 109
 110   @JavaName getFirst
 111   getFirst :: PropertyChange -> <Proc> Maybe Statement
 112
 113   @JavaName getSecond
 114   getSecond :: PropertyChange -> <Proc> Maybe Statement
 115
 116   @JavaName getFirstSubject
 117   getFirstSubject :: PropertyChange -> <Proc> Resource
 118
 119   @JavaName getSecondSubject
 120   getSecondSubject :: PropertyChange -> <Proc> Resource
 121
 122   @JavaName isVisible
 123   pcVisible :: PropertyChange -> <Proc> Boolean
 124
 125   @JavaName enabled
 126   pcEnabled :: PropertyChange -> <Proc> Boolean
 127
 128   @JavaName setEnabled
 129   pcEnable :: PropertyChange -> Boolean -> <Proc> ()
 130
 131
 132 importJava "org.simantics.interop.update.model.UpdateNode" where
 133   data UpdateNode
 134
 135   @JavaName getResource
 136   getNodeResource :: UpdateNode -> <Proc> Maybe Resource
 137
 138   @JavaName getStatus
 139   getNodeStatus :: UpdateNode -> <Proc> UpdateStatus
 140
 141   @JavaName getLabel
 142   getNodeLabel :: UpdateNode -> <Proc> String
 143
 144   @JavaName getOp
 145   getNodeOp :: UpdateNode -> <Proc> Maybe UpdateOp
 146
 147   @JavaName getChildren
 148   getNodeChildren :: UpdateNode -> <Proc> [UpdateNode]
 149
 150   @JavaName isVisible
 151   isNodeVisible :: UpdateNode -> <Proc> Boolean
 152
 153
 154
 155 importJava "org.simantics.interop.update.model.UpdateStatus" where
 156   data UpdateStatus
 157   @JavaName EXIST
 158   S_EXIST::UpdateStatus
 159   @JavaName DELETED
 160   S_DELETED::UpdateStatus
 161   @JavaName NEW
 162   S_NEW::UpdateStatus
 163   @JavaName CONTAINS
 164   S_CONTAINS::UpdateStatus
 165
 166 importJava "org.simantics.interop.update.model.UpdateOp" where
 167   data UpdateOp
 168
 169   @JavaName applied
 170   opApplied :: UpdateOp -> <Proc> Boolean
 171
 172   @JavaName selected
 173   opSelected :: UpdateOp -> <Proc> Boolean
 174
 175   @JavaName "select"
 176   opSelect :: UpdateOp -> Boolean -> <Proc> Boolean
 177
 178   @JavaName isAdd
 179   opIsAdd :: UpdateOp -> <Proc> Boolean
 180
 181   @JavaName isDelete
 182   opIsDelete :: UpdateOp -> <Proc> Boolean
 183
 184   @JavaName isChange
 185   opIsChange :: UpdateOp -> <Proc> Boolean
 186
 187   @JavaName enabled
 188   opEnabled :: UpdateOp -> <Proc> Boolean
 189
 190   @JavaName getResource
 191   getOpResource :: UpdateOp -> <Proc> Maybe Resource
 192
 193
 194 importJava "org.simantics.interop.update.model.UpdateNode3" where
 195   data UpdateNode3
 196
 197   @JavaName getUn1
 198   getNode1 :: UpdateNode3 -> <Proc> Maybe UpdateNode
 199
 200   @JavaName getUn2
 201   getNode2 :: UpdateNode3 -> <Proc> Maybe UpdateNode
 202
 203   @JavaName getUn3
 204   getNode3 :: UpdateNode3 -> <Proc> Maybe UpdateNode
 205
 206   @JavaName getChildren
 207   getNode3Children :: UpdateNode3 -> <Proc> [UpdateNode3]
 208
 209   @JavaName isVisible
 210   isNode3Visible :: UpdateNode3 -> <Proc> Boolean
 211
 212   //@JavaName getCombinedTree
 213   //getCombinedTree :: ModelUpdate -> <Proc> UpdateNode3
 214
 215 importJava "org.simantics.utils.datastructures.Pair" where
 216   data Pair
 217
 218   @JavaName "<init>"
 219   createPair :: Maybe a -> Maybe b -> <Proc> Pair
 220
 221   @JavaName first
 222   getPairFirst :: Pair -> <Proc> Maybe a
 223
 224   @JavaName second
 225   getPairSecond :: Pair -> <Proc> Maybe b
 226
 227 importJava "org.simantics.utils.datastructures.BijectionMap" where
 228   data BijectionMap
 229
 230   @JavaName containsLeft
 231   containsLeft :: BijectionMap -> l -> <Proc> Boolean
 232
 233   @JavaName containsRight
 234   containsRight :: BijectionMap -> r -> <Proc> Boolean
 235
 236   @JavaName contains
 237   contains :: BijectionMap -> l -> r -> <Proc> Boolean
 238
 239   @JavaName getLeft
 240   getLeft :: BijectionMap -> r -> <Proc> Maybe l
 241
 242   @JavaName getRight
 243   getRight :: BijectionMap -> l -> <Proc> Maybe r
 244
 245 importJava "java.lang.Object" where
 246     data Object
 247
 248     @JavaName getClass
 249     getClass :: Object -> <Proc> Class a
 250
 251 importJava "java.lang.Class" where
 252
 253     @JavaName getName
 254     getClassName :: Class a -> <Proc> String
 255
 256     @JavaName getSimpleName
 257     getSimpleClassName :: Class a -> <Proc> String