import "Simantics/DB"

importJava "org.simantics.datatypes.utils.BTree" where

    data BTree
    
    @JavaName "<init>"
    createBTree :: Integer -> Resource -> <WriteGraph> BTree
    @JavaName "<init>"
    bTreeOf :: Resource -> <ReadGraph> BTree
    
    rootOfBTree :: BTree -> Resource
    insertBTree :: BTree -> Variant -> Resource -> <WriteGraph> ()
    searchBTree :: BTree -> Variant -> <ReadGraph> Maybe Resource
    removeBTree :: BTree -> Variant -> <WriteGraph> ()
    entriesOfBTree :: BTree -> <ReadGraph> [(Variant, Resource)]
    searchRangeBTree :: BTree -> Maybe Variant -> Maybe Variant -> <ReadGraph> [(Variant, Resource)]

    flushCachedBTree :: BTree -> <WriteGraph> ()

    @private
    @JavaName "<init>"
    createBTree_ :: Integer -> Resource -> Boolean -> <WriteGraph> BTree

    @private
    @JavaName "<init>"
    cachedBTreeOf_ :: Resource -> Boolean -> <ReadGraph> BTree

createCachedBTree :: Integer -> Resource -> <WriteGraph> BTree
createCachedBTree t tree = createBTree_ t tree True 
    
cachedBTreeOf :: Resource -> <ReadGraph> BTree
cachedBTreeOf tree = cachedBTreeOf_ tree True