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> UpdateTree
  25
  26   @JavaName getUpdateList2
  27   getUpdateList2 :: ModelUpdate -> <Proc> UpdateList
  28
  29   @JavaName getChanges2
  30   getGraphChanges2 :: ModelUpdate -> <Proc> GraphChanges
  31
  32   @JavaName getUpdateTree3
  33   getUpdateTree3 :: ModelUpdate -> <Proc> Maybe UpdateTree
  34
  35   @JavaName getUpdateList
  36   getUpdateList3 :: ModelUpdate -> <Proc> Maybe UpdateList
  37
  38   @JavaName getChanges
  39   getGraphChanges3 :: ModelUpdate -> <Proc> Maybe GraphChanges
  40
  41   @JavaName defaultSelections
  42   setDefaultSelections :: ModelUpdate -> <Proc>()
  43
  44 importJava "org.simantics.interop.update.model.UpdateTree" where
  45   data UpdateTree
  46
  47   @JavaName getRootNode
  48   getRootNode :: UpdateTree -> <Proc> UpdateNode
  49
  50   @JavaName getNode
  51   getNode :: UpdateTree -> Resource -> <Proc> Maybe UpdateNode
  52
  53 importJava "org.simantics.interop.update.model.UpdateList" where
  54   data UpdateList
  55
  56   @JavaName getChanges
  57   getListChanges :: UpdateList -> <Proc> [Pair]
  58
  59   @JavaName getSelected
  60   getListSelected :: UpdateList -> <Proc> MSet.T Pair
  61
  62   @JavaName addSelected
  63   addListSelected :: UpdateList -> Pair -> <Proc>()
  64
  65   @JavaName removeSelected
  66   removeListSelected :: UpdateList -> Pair -> <Proc>()
  67
  68   @JavaName isSelected
  69   isListSelected :: UpdateList -> Pair -> <Proc> Boolean
  70
  71 importJava "org.simantics.interop.test.GraphChanges" where
  72   data GraphChanges
  73
  74   @JavaName getComparable
  75   getComparable :: GraphChanges -> <Proc> BijectionMap
  76
  77   @JavaName getAdditions
  78   getAdditions :: GraphChanges -> <Proc> [Statement]
  79
  80   @JavaName getDeletions
  81   getDeletions :: GraphChanges -> <Proc> [Statement]
  82
  83   @JavaName getModifications
  84   getModifications :: GraphChanges -> <Proc> [Pair]
  85
  86 importJava "org.simantics.interop.update.model.UpdateNode" where
  87   data UpdateNode
  88
  89   @JavaName getResource
  90   getNodeResource :: UpdateNode -> <Proc> Resource
  91
  92   @JavaName getStatus
  93   getNodeStatus :: UpdateNode -> <Proc> UpdateStatus
  94
  95   @JavaName getLabel
  96   getNodeLabel :: UpdateNode -> <Proc> String
  97
  98   @JavaName getOp
  99   getNodeOp :: UpdateNode -> <Proc> Maybe UpdateOp
 100
 101   @JavaName getChildren
 102   getNodeChildren :: UpdateNode -> <Proc> [UpdateNode]
 103
 104
 105
 106 importJava "org.simantics.interop.update.model.UpdateStatus" where
 107   data UpdateStatus
 108   @JavaName EXIST
 109   S_EXIST::UpdateStatus
 110   @JavaName DELETED
 111   S_DELETED::UpdateStatus
 112   @JavaName NEW
 113   S_NEW::UpdateStatus
 114   @JavaName CONTAINS
 115   S_CONTAINS::UpdateStatus
 116
 117 importJava "org.simantics.interop.update.model.UpdateOp" where
 118   data UpdateOp
 119
 120   @JavaName applied
 121   opApplied :: UpdateOp -> <Proc> Boolean
 122
 123   @JavaName selected
 124   opSelected :: UpdateOp -> <Proc> Boolean
 125
 126   @JavaName "select"
 127   opSelect :: UpdateOp -> Boolean -> <Proc> Boolean
 128
 129   @JavaName isAdd
 130   opIsAdd :: UpdateOp -> <Proc> Boolean
 131
 132   @JavaName isDelete
 133   opIsDelete :: UpdateOp -> <Proc> Boolean
 134
 135   @JavaName isChange
 136   opIsChange :: UpdateOp -> <Proc> Boolean
 137
 138 importJava "org.simantics.interop.update.model.UpdateNode3" where
 139   data UpdateNode3
 140
 141   @JavaName getUn1
 142   getNode1 :: UpdateNode3 -> <Proc> Maybe UpdateNode
 143
 144   @JavaName getUn2
 145   getNode2 :: UpdateNode3 -> <Proc> Maybe UpdateNode
 146
 147   @JavaName getUn3
 148   getNode3 :: UpdateNode3 -> <Proc> Maybe UpdateNode
 149
 150   @JavaName getChildren
 151   getNode3Children :: UpdateNode3 -> <Proc> [UpdateNode3]
 152
 153   @JavaName getCombinedTree
 154   getCombinedTree :: ModelUpdate -> <Proc> UpdateNode3
 155
 156 importJava "org.simantics.utils.datastructures.Pair" where
 157   data Pair
 158
 159   @JavaName "<init>"
 160   createPair :: Maybe a -> Maybe b -> <Proc> Pair
 161
 162   @JavaName first
 163   getFirst :: Pair -> <Proc> Maybe a
 164
 165   @JavaName second
 166   getSecond :: Pair -> <Proc> Maybe b
 167
 168 importJava "org.simantics.utils.datastructures.BijectionMap" where
 169   data BijectionMap
 170
 171   @JavaName containsLeft
 172   containsLeft :: BijectionMap -> l -> <Proc> Boolean
 173
 174   @JavaName containsRight
 175   containsRight :: BijectionMap -> r -> <Proc> Boolean
 176
 177   @JavaName contains
 178   contains :: BijectionMap -> l -> r -> <Proc> Boolean
 179
 180   @JavaName getLeft
 181   getLeft :: BijectionMap -> r -> <Proc> Maybe l
 182
 183   @JavaName getRight
 184   getRight :: BijectionMap -> l -> <Proc> Maybe r
 185
 186 importJava "java.lang.Object" where
 187     data Object
 188
 189     @JavaName getClass
 190     getClass :: Object -> <Proc> Class
 191
 192 importJava "java.lang.Class" where
 193     data Class
 194
 195     @JavaName getName
 196     getClassName :: Class -> <Proc> String
 197
 198     @JavaName getSimpleName
 199     getSimpleClassName :: Class -> <Proc> String