X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=blobdiff_plain;f=bundles%2Forg.simantics.scl.runtime%2Fscl%2FMTreeMap.scl;h=e6ba9c29abd403b37620a3e33551dfb82f35ff10;hb=d9856d2391ee17f815a43dad74d9dc6318a1878c;hp=e576b8df9b0190a092f1f04d7eae45486dcca4ba;hpb=969bd23cab98a79ca9101af33334000879fb60c5;p=simantics%2Fplatform.git diff --git a/bundles/org.simantics.scl.runtime/scl/MTreeMap.scl b/bundles/org.simantics.scl.runtime/scl/MTreeMap.scl index e576b8df9..e6ba9c29a 100644 --- a/bundles/org.simantics.scl.runtime/scl/MTreeMap.scl +++ b/bundles/org.simantics.scl.runtime/scl/MTreeMap.scl @@ -1,22 +1,22 @@ -import "MMap" as MMap - -importJava "java.util.TreeMap" where - data T a b - - @JavaName "" - create :: () -> MMap.T a b - - subMap :: T a b -> a -> a -> MMap.T a b - - floorKey :: T a b -> a -> Maybe a - ceilingKey :: T a b -> a -> Maybe a - lowerKey :: T a b -> a -> Maybe a - higherKey :: T a b -> a -> Maybe a - - floorEntry :: T a b -> a -> Maybe (MMap.Entry a b) - ceilingEntry :: T a b -> a -> Maybe (MMap.Entry a b) - lowerEntry :: T a b -> a -> Maybe (MMap.Entry a b) - higherEntry :: T a b -> a -> Maybe (MMap.Entry a b) - -importJava "org.simantics.scl.runtime.collection.TreeMapUtils" where +import "MMap" as MMap + +importJava "java.util.TreeMap" where + data T a b + + @JavaName "" + create :: () -> MMap.T a b + + subMap :: T a b -> a -> a -> MMap.T a b + + floorKey :: T a b -> a -> Maybe a + ceilingKey :: T a b -> a -> Maybe a + lowerKey :: T a b -> a -> Maybe a + higherKey :: T a b -> a -> Maybe a + + floorEntry :: T a b -> a -> Maybe (MMap.Entry a b) + ceilingEntry :: T a b -> a -> Maybe (MMap.Entry a b) + lowerEntry :: T a b -> a -> Maybe (MMap.Entry a b) + higherEntry :: T a b -> a -> Maybe (MMap.Entry a b) + +importJava "org.simantics.scl.runtime.collection.TreeMapUtils" where asTreeMap :: MMap.T a b -> T a b \ No newline at end of file