Add FormData under melange.dom

jscomp/others/dom.ml

@@ -293,3 +293,4 @@ type svgPoint
 type eventPointerId
 
 module Storage = Dom_storage
+module FormData = Dom_formData

jscomp/others/dom_formData.ml

@@ -0,0 +1,44 @@
+(* Provides a way to easily construct a set of key/value pairs representing form fields and their values, which can then be easily sent using the XMLHttpRequest.send() method. It uses the same format a form would use if the encoding type were set to "multipart/form-data". *)
+
+type file
+type blob
+type entryValue
+
+let classify : entryValue -> [> `String of string | `File of file ] =
+  fun t ->
+  if Js.typeof t = "string" then `String (Obj.magic t)
+  else `File (Obj.magic t)
+
+type t
+
+external make : unit -> t = "FormData" [@@mel.new]
+external append : string -> string -> unit = "append" [@@mel.send.pipe: t]
+external delete : string -> unit = "delete" [@@mel.send.pipe: t]
+external get : string -> entryValue option = "get" [@@mel.send.pipe: t]
+external getAll : string -> entryValue array = "getAll" [@@mel.send.pipe: t]
+external set : string -> string -> unit = "set" [@@mel.send.pipe: t]
+external has : string -> bool = "has" [@@mel.send.pipe: t]
+external keys : t -> string Js.Iterator.t = "keys" [@@mel.send]
+external values : t -> entryValue Js.Iterator.t = "values" [@@mel.send]
+
+external appendObject : string -> < .. > Js.t -> ?filename:string -> unit
+  = "append"
+[@@mel.send.pipe: t]
+
+external appendBlob : string -> blob -> ?filename:string -> unit = "append"
+[@@mel.send.pipe: t]
+
+external appendFile : string -> file -> ?filename:string -> unit = "append"
+[@@mel.send.pipe: t]
+
+external setObject : string -> < .. > Js.t -> ?filename:string -> unit = "set"
+[@@mel.send.pipe: t]
+
+external setBlob : string -> blob -> ?filename:string -> unit = "set"
+[@@mel.send.pipe: t]
+
+external setFile : string -> file -> ?filename:string -> unit = "set"
+[@@mel.send.pipe: t]
+
+external entries : t -> (string * entryValue) Js.Iterator.t = "entries"
+[@@mel.send]

jscomp/runtime/js.pre.ml

@@ -35,10 +35,9 @@
     It contains all bindings into [Js] namespace.
 
     {[
-      [| 1;2;3;4|]
-      |. Js.Array2.map (fun x -> x + 1 )
-      |. Js.Array2.reduce (+) 0
-      |. Js.log
+      [| 1; 2; 3; 4 |]
+      |> Js.Array.map ~f:(fun x -> x + 1)
+      |> Js.Array.reduce ~f:( + ) ~init:0
     ]}
 *)