X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=blobdiff_plain;f=bundles%2Forg.simantics.datatypes%2Fscl%2FSimantics%2FBTree.scl;fp=bundles%2Forg.simantics.datatypes%2Fscl%2FSimantics%2FBTree.scl;h=13999f7a0dd6a4246e0da1a6d8ff32f15b7e0b4d;hb=0ae2b770234dfc3cbb18bd38f324125cf0faca07;hp=bb5da7a53a6fa3b094bb94dfb5ef9d99a8f347f1;hpb=24e2b34260f219f0d1644ca7a138894980e25b14;p=simantics%2Fplatform.git diff --git a/bundles/org.simantics.datatypes/scl/Simantics/BTree.scl b/bundles/org.simantics.datatypes/scl/Simantics/BTree.scl index bb5da7a53..13999f7a0 100644 --- a/bundles/org.simantics.datatypes/scl/Simantics/BTree.scl +++ b/bundles/org.simantics.datatypes/scl/Simantics/BTree.scl @@ -1,33 +1,33 @@ -import "Simantics/DB" - -importJava "org.simantics.datatypes.utils.BTree" where - - data BTree - - @JavaName "" - createBTree :: Integer -> Resource -> BTree - @JavaName "" - bTreeOf :: Resource -> BTree - - rootOfBTree :: BTree -> Resource - insertBTree :: BTree -> Variant -> Resource -> () - searchBTree :: BTree -> Variant -> Maybe Resource - removeBTree :: BTree -> Variant -> () - entriesOfBTree :: BTree -> [(Variant, Resource)] - searchRangeBTree :: BTree -> Maybe Variant -> Maybe Variant -> [(Variant, Resource)] - - flushCachedBTree :: BTree -> () - - @private - @JavaName "" - createBTree_ :: Integer -> Resource -> Boolean -> BTree - - @private - @JavaName "" - cachedBTreeOf_ :: Resource -> Boolean -> BTree - -createCachedBTree :: Integer -> Resource -> BTree -createCachedBTree t tree = createBTree_ t tree True - -cachedBTreeOf :: Resource -> BTree +import "Simantics/DB" + +importJava "org.simantics.datatypes.utils.BTree" where + + data BTree + + @JavaName "" + createBTree :: Integer -> Resource -> BTree + @JavaName "" + bTreeOf :: Resource -> BTree + + rootOfBTree :: BTree -> Resource + insertBTree :: BTree -> Variant -> Resource -> () + searchBTree :: BTree -> Variant -> Maybe Resource + removeBTree :: BTree -> Variant -> () + entriesOfBTree :: BTree -> [(Variant, Resource)] + searchRangeBTree :: BTree -> Maybe Variant -> Maybe Variant -> [(Variant, Resource)] + + flushCachedBTree :: BTree -> () + + @private + @JavaName "" + createBTree_ :: Integer -> Resource -> Boolean -> BTree + + @private + @JavaName "" + cachedBTreeOf_ :: Resource -> Boolean -> BTree + +createCachedBTree :: Integer -> Resource -> BTree +createCachedBTree t tree = createBTree_ t tree True + +cachedBTreeOf :: Resource -> BTree cachedBTreeOf tree = cachedBTreeOf_ tree True \ No newline at end of file