]> gerrit.simantics Code Review - simantics/platform.git/blob - bundles/org.simantics.datatypes/scl/Simantics/BTree.scl
Fixed all line endings of the repository
[simantics/platform.git] / bundles / org.simantics.datatypes / scl / Simantics / BTree.scl
1 import "Simantics/DB"
2
3 importJava "org.simantics.datatypes.utils.BTree" where
4
5     data BTree
6     
7     @JavaName "<init>"
8     createBTree :: Integer -> Resource -> <WriteGraph> BTree
9     @JavaName "<init>"
10     bTreeOf :: Resource -> <ReadGraph> BTree
11     
12     rootOfBTree :: BTree -> Resource
13     insertBTree :: BTree -> Variant -> Resource -> <WriteGraph> ()
14     searchBTree :: BTree -> Variant -> <ReadGraph> Maybe Resource
15     removeBTree :: BTree -> Variant -> <WriteGraph> ()
16     entriesOfBTree :: BTree -> <ReadGraph> [(Variant, Resource)]
17     searchRangeBTree :: BTree -> Maybe Variant -> Maybe Variant -> <ReadGraph> [(Variant, Resource)]
18
19     flushCachedBTree :: BTree -> <WriteGraph> ()
20
21     @private
22     @JavaName "<init>"
23     createBTree_ :: Integer -> Resource -> Boolean -> <WriteGraph> BTree
24
25     @private
26     @JavaName "<init>"
27     cachedBTreeOf_ :: Resource -> Boolean -> <ReadGraph> BTree
28
29 createCachedBTree :: Integer -> Resource -> <WriteGraph> BTree
30 createCachedBTree t tree = createBTree_ t tree True 
31     
32 cachedBTreeOf :: Resource -> <ReadGraph> BTree
33 cachedBTreeOf tree = cachedBTreeOf_ tree True