Initial commit

Author: natefaubion

.gitignore

@@ -0,0 +1,9 @@
+/bower_components/
+/node_modules/
+/.pulp-cache/
+/output/
+/generated-docs/
+/.psc-package/
+/.psc*
+/.purs*
+/.psa*

LICENSE

@@ -0,0 +1,21 @@
+MIT License
+
+Copyright (c) 2020 Awake Security
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Software"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in all
+copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+SOFTWARE.

README.md

@@ -0,0 +1 @@
+# purescript-web-encoding

bower.json

@@ -0,0 +1,23 @@
+{
+  "name": "purescript-web-encoding",
+  "homepage": "https://github.com/purescript-web/purescript-web-encoding",
+  "license": "MIT",
+  "repository": {
+    "type": "git",
+    "url": "git://github.com/purescript-web/purescript-web-encoding.git"
+  },
+  "ignore": [
+    "**/.*",
+    "bower_components",
+    "node_modules",
+    "output",
+    "bower.json",
+    "package.json"
+  ],
+  "dependencies": {
+    "purescript-prelude": "^4.0.0",
+    "purescript-effect": "^2.0.0",
+    "purescript-arraybuffer-types": "^2.0.0",
+    "purescript-newtype": "^3.0.0"
+  }
+}

src/Web/Encoding/TextDecoder.js

@@ -0,0 +1,9 @@
+exports.new = function(label) {
+  return function() {
+    return new TextDecoder(label);
+  };
+};
+
+exports._decode = function(view, options, decoder) {
+  return decoder.decode(view, options);
+};

src/Web/Encoding/TextDecoder.purs

@@ -0,0 +1,24 @@
+module Web.Encoding.TextDecoder where
+
+import Data.ArrayBuffer.Types (ArrayView)
+import Effect (Effect)
+import Effect.Uncurried (EffectFn3, runEffectFn3)
+import Prim.Row as Row
+import Web.Encoding.UtfLabel (UtfLabel)
+
+foreign import data TextDecoder :: Type
+
+type DecodeOptions =
+  ( stream :: Boolean
+  )
+
+foreign import new :: UtfLabel -> Effect TextDecoder
+
+foreign import _decode :: forall r t. EffectFn3 (ArrayView t) { | r } TextDecoder String
+
+decode :: forall t. ArrayView t -> TextDecoder -> Effect String
+decode arr decoder = runEffectFn3 _decode arr {} decoder
+
+decodeWithOptions :: forall r rx t. Row.Union r rx DecodeOptions => ArrayView t -> { | r } -> TextDecoder -> Effect String
+decodeWithOptions arr options decoder = runEffectFn3 _decode arr options decoder
+

src/Web/Encoding/TextEncoder.js

@@ -0,0 +1,19 @@
+exports.new = function() {
+  return new TextEncoder();
+};
+
+exports.encode = function(text) {
+  return function(encoder) {
+    return encoder.encode(text);
+  };
+};
+
+exports.encodeInto = function(text) {
+  return function(view) {
+    return function(encoder) {
+      return function() {
+        return encoder.encodeInto(text, view);
+      };
+    };
+  };
+};

src/Web/Encoding/TextEncoder.purs

@@ -0,0 +1,12 @@
+module Web.Encoding.TextEncoder where
+
+import Data.ArrayBuffer.Types (Uint8Array)
+import Effect (Effect)
+
+foreign import data TextEncoder :: Type
+
+foreign import new :: Effect TextEncoder
+
+foreign import encode :: String -> TextEncoder -> Uint8Array
+
+foreign import encodeInto :: String -> Uint8Array -> TextEncoder -> Effect { read :: Int, written :: Int }

src/Web/Encoding/UtfLabel.purs

@@ -0,0 +1,13 @@
+module Web.Encoding.UtfLabel where
+
+import Data.Newtype (class Newtype)
+import Prelude (class Eq, class Ord)
+
+newtype UtfLabel = UtfLabel String
+
+derive instance newtypeUtfLabel :: Newtype UtfLabel _
+derive newtype instance eqUtfLabel :: Eq UtfLabel
+derive newtype instance ordUtfLabel :: Ord UtfLabel
+
+utf8 :: UtfLabel
+utf8 = UtfLabel "utf8"