add bidnings to TextEncoder/TextDecoder

CHANGELOG.md

@@ -25,6 +25,7 @@
 * `DataTransfer` bindings (#51)
 * `WorkerGlobalScope`, `WindowOrWorkerGlobalScope`, `WorkerNavigator`, and `WorkerLocation` bindings (#57)
 * `Response` constructors to `Fetch` bindings (#64)
+* `TextEncoder` and `TextDecoder` bindings (#78)
 
 ### Fixed
 * `ofElement` was incorrectly returning `Dom.htmlElement` type instead of the enclosing element type (#60)

lib/js/tests/Webapi/Webapi__TextDecoder__test.js

@@ -0,0 +1,24 @@
+'use strict';
+
+var Webapi__TextDecoder = require("../../src/Webapi/Webapi__TextDecoder.js");
+
+var decoder1 = new TextDecoder();
+
+var decoder2 = Webapi__TextDecoder.makeWithOptions(undefined, true, true, undefined);
+
+var message = new Uint8Array([
+      72,
+      101,
+      108,
+      108,
+      111
+    ]);
+
+console.log(decoder1.decode(message));
+
+console.log(Webapi__TextDecoder.decodeStream(decoder1, message));
+
+exports.decoder1 = decoder1;
+exports.decoder2 = decoder2;
+exports.message = message;
+/* decoder1 Not a pure module */

lib/js/tests/Webapi/Webapi__TextEncoder__test.js

@@ -0,0 +1,19 @@
+'use strict';
+
+
+var encoder = new TextEncoder();
+
+console.log(encoder.encoding);
+
+console.log(encoder.encode("Hello"));
+
+var buffer = new Uint8Array([]);
+
+var result = encoder.encodeInto("Hello", buffer);
+
+console.log(result.read, result.written);
+
+exports.encoder = encoder;
+exports.buffer = buffer;
+exports.result = result;
+/* encoder Not a pure module */

src/Webapi.res

@@ -6,6 +6,8 @@ module File = Webapi__File
 module FileList = Webapi__FileList
 module Fetch = Webapi__Fetch
 module FormData = Webapi__FormData
+module TextEncoder = Webapi__TextEncoder
+module TextDecoder = Webapi__TextDecoder
 
 module Navigator = Webapi__Navigator
 

src/Webapi/Webapi__TextDecoder.res

@@ -0,0 +1,35 @@
+type t = {
+  encoding: string,
+  fatal: bool,
+  ignoreBOM: bool,
+}
+
+type decoderOptions
+
+type decodeOptions
+
+%%private(
+  @new external _makeWithOptions: (string, decoderOptions) => t = "TextDecoder"
+
+  @obj
+  external makeDecoderOptions: (
+    ~fatal: option<bool>=?,
+    ~ignoreBOM: option<bool>=?,
+    unit,
+  ) => decoderOptions = ""
+)
+
+@new external make: unit => t = "TextDecoder"
+
+let makeWithOptions = (~encoding="utf-8", ~fatal=?, ~ignoreBOM=?, ()) =>
+  _makeWithOptions(encoding, makeDecoderOptions(~fatal, ~ignoreBOM, ()))
+
+%%private(
+  @obj external makeDecodeOptions: (~stream: bool) => decodeOptions = ""
+
+  @send external _decodeWithOptions: (t, Js.TypedArray2.Uint8Array.t, decodeOptions) => t = "decode"
+)
+
+@send external decode: (t, Js.TypedArray2.Uint8Array.t) => string = "decode"
+
+let decodeStream = (t, array) => _decodeWithOptions(t, array, makeDecodeOptions(~stream=true))

src/Webapi/Webapi__TextEncoder.res

@@ -0,0 +1,16 @@
+type t = {
+  // This always returns "utf-8"
+  encoding: string,
+}
+
+@new external make: unit => t = "TextEncoder"
+
+@send external encode: (t, string) => Js.TypedArray2.Uint8Array.t = "encode"
+
+type encodeIntoResult = {
+  read: int,
+  written: int,
+}
+
+@send
+external encodeInto: (t, string, Js.TypedArray2.Uint8Array.t) => encodeIntoResult = "encodeInto"

tests/Webapi/Webapi__TextDecoder__test.res

@@ -0,0 +1,9 @@
+open Js.TypedArray2
+open Webapi.TextDecoder
+
+let decoder1 = make()
+let decoder2 = makeWithOptions(~fatal=true, ~ignoreBOM=true, ())
+
+let message = Uint8Array.make([72, 101, 108, 108, 111])
+decoder1->decode(message)->Js.log
+decoder1->decodeStream(message)->Js.log

tests/Webapi/Webapi__TextEncoder__test.res

@@ -0,0 +1,12 @@
+open Js.TypedArray2
+open Webapi.TextEncoder
+
+let encoder = make()
+
+Js.log(encoder.encoding)
+
+encoder->encode("Hello")->Js.log
+
+let buffer = Uint8Array.make([])
+let result = encoder->encodeInto("Hello", buffer)
+Js.log2(result.read, result.written)