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-streams

bower.json

@@ -0,0 +1,25 @@
+{
+  "name": "purescript-web-streams",
+  "homepage": "https://github.com/purescript-web/purescript-web-streams",
+  "license": "MIT",
+  "repository": {
+    "type": "git",
+    "url": "git://github.com/purescript-web/purescript-web-streams.git"
+  },
+  "ignore": [
+    "**/.*",
+    "bower_components",
+    "node_modules",
+    "output",
+    "bower.json",
+    "package.json"
+  ],
+  "dependencies": {
+    "purescript-prelude": "^4.0.0",
+    "purescript-effect": "^2.0.0",
+    "purescript-nullable": "^4.0.0",
+    "purescript-arraybuffer-types": "^2.0.0",
+    "purescript-tuples": "^5.0.0",
+    "purescript-web-promise": "https://github.com/purescript-web/purescript-web-promise.git#^1.0.0"
+  }
+}

src/Web/Streams/QueuingStrategy.js

@@ -0,0 +1,17 @@
+exports.new = function(options) {
+  return function() {
+    return new QueuingStrategy(options);
+  };
+};
+
+exports.byteLengthQueuingStrategy = function(options) {
+  return function() {
+    return new ByteLengthQueuingStrategy(options);
+  };
+};
+
+exports.countQueuingStrategy = function(options) {
+  return function() {
+    return new CountQueuingStrategy(options);
+  };
+};

src/Web/Streams/QueuingStrategy.purs

@@ -0,0 +1,12 @@
+module Web.Streams.QueuingStrategy where
+
+import Data.ArrayBuffer.Types (Uint8Array)
+import Effect (Effect)
+
+foreign import data QueuingStrategy :: Type -> Type
+
+foreign import new :: forall chunk. { size :: chunk -> Int, highWaterMark :: Int } -> Effect (QueuingStrategy chunk)
+
+foreign import byteLengthQueuingStrategy :: { highWaterMark :: Int } -> Effect (QueuingStrategy Uint8Array)
+
+foreign import countQueuingStrategy :: forall a. { highWaterMark :: Int } -> Effect (QueuingStrategy a)

src/Web/Streams/ReadableStream.js

@@ -0,0 +1,26 @@
+exports._new = function(source, strategy) {
+  return new ReadableStream(source, strategy);
+};
+
+exports.cancel = function(stream) {
+  return function() {
+    return stream.cancel();
+  };
+};
+
+exports.locked = function(stream) {
+  return function() {
+    return stream.locked;
+  };
+};
+
+exports.getReader = function(stream) {
+  return function() {
+    return stream.getReader();
+  };
+};
+
+exports._tee = function(tuple, stream) {
+  var r = stream.tee();
+  return tuple(r[0])(r[1]);
+};

src/Web/Streams/ReadableStream.purs

@@ -0,0 +1,37 @@
+module Web.Streams.ReadableStream
+  ( ReadableStream
+  , new
+  , cancel
+  , locked
+  , getReader
+  , tee
+  ) where
+
+import Data.Maybe (Maybe)
+import Data.Nullable (Nullable, toNullable)
+import Data.Tuple (Tuple(..))
+import Effect (Effect)
+import Effect.Uncurried (EffectFn2, runEffectFn2)
+import Prelude (Unit)
+import Web.Promise (Promise)
+import Web.Streams.QueuingStrategy (QueuingStrategy)
+import Web.Streams.Reader (Reader)
+import Web.Streams.Source (Source)
+
+foreign import data ReadableStream :: Type -> Type
+
+foreign import _new :: forall chunk. EffectFn2 (Source chunk) (Nullable (QueuingStrategy chunk)) (ReadableStream chunk)
+
+foreign import cancel :: forall chunk. ReadableStream chunk -> Effect (Promise Unit)
+
+foreign import locked :: forall chunk. ReadableStream chunk -> Effect Boolean
+
+foreign import getReader :: forall chunk. ReadableStream chunk -> Effect (Reader chunk)
+
+foreign import _tee :: forall chunk. EffectFn2 (forall a b. a -> b -> Tuple a b) (ReadableStream chunk) (Tuple (ReadableStream chunk) (ReadableStream chunk))
+
+new :: forall chunk. Source chunk -> Maybe (QueuingStrategy chunk) -> Effect (ReadableStream chunk)
+new source strategy = runEffectFn2 _new source (toNullable strategy)
+
+tee :: forall chunk. ReadableStream chunk -> Effect (Tuple (ReadableStream chunk) (ReadableStream chunk))
+tee = runEffectFn2 _tee Tuple

src/Web/Streams/ReadableStreamController.js

@@ -0,0 +1,27 @@
+exports.enqueue = function(chunk) {
+  return function(controller) {
+    return function() {
+      return controller.enqueue(chunk);
+    };
+  };
+};
+
+exports.close = function(controller) {
+  return function() {
+    return controller.close();
+  };
+};
+
+exports.error = function(error) {
+  return function(controller) {
+    return function() {
+      return controller.error(error);
+    };
+  };
+};
+
+exports.desiredSize = function(controller) {
+  return function() {
+    return controller.desiredSize;
+  };
+};

src/Web/Streams/ReadableStreamController.purs

@@ -0,0 +1,15 @@
+module Web.Streams.ReadableStreamController where
+
+import Effect (Effect)
+import Error (Error)
+import Prelude (Unit)
+
+foreign import data ReadableStreamController :: Type -> Type
+
+foreign import enqueue :: forall chunk. chunk -> ReadableStreamController chunk -> Effect Unit
+
+foreign import close :: forall chunk. ReadableStreamController chunk -> Effect Unit
+
+foreign import error :: forall chunk. Error -> ReadableStreamController chunk -> Effect Unit
+
+foreign import desiredSize :: forall chunk. ReadableStreamController chunk -> Effect Int