Migrated source code from Simantics SVN

[simantics/platform.git] / bundles / org.simantics.scl.runtime / scl / MTreeMap.scl

diff --git a/bundles/org.simantics.scl.runtime/scl/MTreeMap.scl b/bundles/org.simantics.scl.runtime/scl/MTreeMap.scl
new file mode 100644 (file)
index 0000000..e576b8d
--- /dev/null
+++ b/bundles/org.simantics.scl.runtime/scl/MTreeMap.scl
@@ -0,0 +1,22 @@
+import "MMap" as MMap\r
+\r
+importJava "java.util.TreeMap" where\r
+    data T a b\r
+\r
+    @JavaName "<init>"\r
+    create :: () -> <Proc> MMap.T a b\r
+    \r
+    subMap :: T a b -> a -> a -> MMap.T a b\r
+\r
+    floorKey :: T a b -> a -> Maybe a\r
+    ceilingKey :: T a b -> a -> Maybe a\r
+    lowerKey :: T a b -> a -> Maybe a\r
+    higherKey :: T a b -> a -> Maybe a\r
+\r
+    floorEntry :: T a b -> a -> Maybe (MMap.Entry a b)\r
+    ceilingEntry :: T a b -> a -> Maybe (MMap.Entry a b)\r
+    lowerEntry :: T a b -> a -> Maybe (MMap.Entry a b)\r
+    higherEntry :: T a b -> a -> Maybe (MMap.Entry a b)\r
+    \r
+importJava "org.simantics.scl.runtime.collection.TreeMapUtils" where\r
+    asTreeMap :: MMap.T a b -> T a b
\ No newline at end of file