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