Introduce Dart.Core.Map and Dart.Core.Set

To house the FFI for the respective types.

Author: bamboo

packages/dart-ffi/dart-ffi.ipkg

@@ -4,6 +4,8 @@ version = 0.1.0
 
 modules
   = Dart.Core
+  , Dart.Core.Map
+  , Dart.Core.Set
   , Dart.FFI
   , Dart.FFI.Constructors
   , Dart.FFI.Elab

packages/dart-ffi/src/Dart/Core.idr

@@ -35,8 +35,13 @@ List element = GenericType "List,dart:core" [element]
 
 %inline
 public export
-DartMap : Type -> Type -> Type
-DartMap key val = GenericType "Map,dart:core" [key, val]
+Map : Type -> Type -> Type
+Map k v = GenericType "Map,dart:core" [k, v]
+
+%inline
+public export
+Set : Type -> Type
+Set e = GenericType "Set,dart:core" [e]
 
 namespace Object
 
@@ -137,18 +142,6 @@ namespace List
     traverse_ (`add` result) (toList es)
     pure result
 
-namespace Map
-
-  %inline
-  export
-  new : HasIO io => {key : Type} -> {val : Type} -> io (DartMap key val)
-  new = primIO $ prim__dart_new (DartMap key val) "" [] none
-
-  %inline
-  export
-  put : HasIO io => {key : Type} -> key -> {val : Type} -> val -> DartMap key val -> io ()
-  put k v m = primIO $ prim__dart_invoke "[]" [] [m, k, v] none
-
 %inline
 public export
 Duration : Type

packages/dart-ffi/src/Dart/Core/Map.idr

@@ -0,0 +1,72 @@
+module Dart.Core.Map
+
+import Dart.FFI.Elab
+import Dart.Core
+
+%language ElabReflection
+
+%runElab importDart [
+  package "dart:core" [
+    generic ["k", "v"] $
+      class' "MapEntry" [
+        final "k" "key",
+        final "v" "value"
+      ]
+  ]
+]
+
+namespace Map
+
+  namespace FromIterable
+
+    public export
+    data Tag : Type where
+
+    %inline
+    public export
+    key : {a : Type} -> {k : Type} -> Parameter Tag
+    key = mkParameter "key" (a -> k)
+
+    %inline
+    public export
+    value : {a : Type} -> {v : Type} -> Parameter Tag
+    value = mkParameter "value" (a -> v)
+
+    %inline
+    public export
+    NamedParameters : {a : Type} -> {k : Type} -> {v : Type} -> Type
+    NamedParameters = Parameters [FromIterable.key {a = a} {k = k}, FromIterable.value {a = a} {v = v}]
+
+  %inline
+  export
+  fromIterable : HasIO io
+    => {k : Type}
+    -> {v : Type}
+    -> {iterable : Type}
+    -> {a : Type}
+    -> iterable
+    -> IsAssignableFrom (Iterable a) iterable
+    => (a -> k)
+    -> (a -> v)
+    -> io (Map k v)
+  fromIterable iter fk fv = primIO $
+    prim__dart_new
+      (Map k v)
+      "fromIterable"
+      [iter]
+      (the (FromIterable.NamedParameters {a = a} {k = k} {v = v}) [key @= fk, value @= fv])
+
+  %inline
+  public export
+  fromPairs : {k : Type} -> {v : Type} -> Prelude.List (k, v) -> IO (Dart.Core.Map k v)
+  fromPairs entries = Map.fromIterable (Dart.Core.List.fromList entries) fst snd
+
+  %inline
+  export
+  new : HasIO io => {k : Type} -> {v : Type} -> io (Map k v)
+  new = primIO $ prim__dart_new (Map k v) "" [] none
+
+  %inline
+  export
+  put : HasIO io => {k : Type} -> k -> {v : Type} -> v -> Map k v -> io ()
+  put k v m = primIO $ prim__dart_invoke "[]" [] [m, k, v] none

packages/dart-ffi/src/Dart/Core/Set.idr

@@ -0,0 +1,16 @@
+module Dart.Core.Set
+
+import Dart.FFI.Elab
+import Dart.Core
+
+%language ElabReflection
+
+%runElab importDart [
+  package "dart:core" [
+    partial' $
+      generic ["e"] $
+        class' "Set" [
+          io "bool" "contains" ["element" :: "e"]
+        ]
+  ]
+]