Added addFirst/After/Before + remove SCL functions for Ordered Sets 92/2592/1
authorMarko Luukkainen <marko.luukkainen@semantum.fi>
Fri, 4 Jan 2019 15:06:34 +0000 (17:06 +0200)
committerMarko Luukkainen <marko.luukkainen@semantum.fi>
Fri, 4 Jan 2019 15:06:34 +0000 (17:06 +0200)
gitlab #244

Change-Id: I40f921dc2f8cacf34692a0733ef6080e2d048eb7

bundles/org.simantics.scl.db/scl/Simantics/DB.md
bundles/org.simantics.scl.db/scl/Simantics/DB.scl

index e9aadef96cba37f4b3d96e61e3b52102634b564f..81ee3b6d862d5138ef983adb5505210ee7254bc4 100644 (file)
@@ -64,7 +64,8 @@
 
 ## Ordered sets
 
-::value[addToOrderedSet]
+::value[addToOrderedSet,addFirstToOrderedSet,addAfterToOrderedSet,addBeforeToOrderedSet]
+::value[removeFromOrderedSet]
 ::value[setOrderedSet]
 ::value[elementsOfOrderedSet]
 ::value[parentOrderedSet]
index 2ff2f51acb11f455459bc64a8663e06961547129..adc72bb943e1cd0a788eaa4369be8deb10b36861 100644 (file)
@@ -275,9 +275,26 @@ resourceChildrenOf :: Resource -> <ReadGraph> [Resource]
 resourceChildrenOf r = r # L0.ConsistsOf
 
 importJava "org.simantics.db.common.utils.OrderedSetUtils" where
+    "`addToOrderedSet s e` adds element `e` to ordered set `s`"
     @JavaName add
     addToOrderedSet :: Resource -> Resource -> <WriteGraph> Boolean
     
+    "`addFirstToOrderedSet s e` adds element `e` to ordered set `s` as the first element"
+    @JavaName addFirst
+    addFirstToOrderedSet :: Resource -> Resource -> <WriteGraph> Boolean
+    
+    "`addAfterToOrderedSet s p e` adds element `e` to ordered set `s` after element `p`"
+    @JavaName addAfter
+    addAfterToOrderedSet :: Resource -> Resource -> Resource -> <WriteGraph> Boolean
+    
+    "`addBeforeToOrderedSet s p e` adds element `e` to ordered set `s` before element `p`"
+    @JavaName addBefore
+    addBeforeToOrderedSet :: Resource -> Resource -> Resource -> <WriteGraph> Boolean
+    
+    "`removeFromOrderedSet s e` removes element `e` from ordered set `s`"
+    @JavaName remove
+    removeFromOrderedSet :: Resource -> Resource -> <WriteGraph> Boolean
+    
     @JavaName set
     setOrderedSet :: Resource -> [Resource] -> <WriteGraph> Boolean