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