toArray

Author: jacereda

src/Data/ArrayBuffer/Typed.purs

@@ -10,7 +10,7 @@ import Data.ArrayBuffer.Types
 foreign import data ArrayView :: * -> *
 
 type Int8Array = ArrayView Int8
---type Uint8Array = ArrayView Uint8
+type Uint8Array = ArrayView Uint8
 --type Uint8ClampedArray = ArrayView Uint8Clamped
 --type Int16Array = ArrayView Int16
 --type Uint16Array = ArrayView Uint16
@@ -26,6 +26,13 @@ function asInt8Array(v) {
 }
 """:: DataView -> Int8Array
 
+foreign import asUint8Array
+"""
+function asUint8Array(v) {
+  return new Uint8Array(v.buffer, v.byteOffset, v.byteLength);
+}
+""":: DataView -> Uint8Array
+
 foreign import dataView
 """
 function dataView(a) {
@@ -54,3 +61,14 @@ at a n = if a `hasIndex` n then
              Just $ unsafeAt a n
            else
              Nothing
+
+
+foreign import toArray
+"""
+function toArray(a) {
+  var ret = [];
+  for (var i = 0, l = a.length; i < l; i++)
+    ret[i] = a[i];
+  return ret;
+}
+""" :: forall a. ArrayView a -> [Number]

src/Data/ArrayBuffer/Types.purs

@@ -5,7 +5,7 @@ type ByteLength = Number
 
 
 newtype Int8 = Int8 Number
---newtype Uint8
+newtype Uint8 = Uint8 Number
 --newtype Uint8Clamped
 newtype Int16 = Int16 Number
 --newtype Uint16

test/Main.purs

@@ -122,6 +122,10 @@ main = do
      let i8 = TA.asInt8Array dv
      ((Just 2) == i8 `TA.at` 1) && (Nothing == i8 `TA.at` 4) && (Nothing == i8 `TA.at` (-1))
 
+  assert $ [1,2,3] == (TA.toArray $ TA.asInt8Array $ DV.whole $ AB.fromArray [1,2,3])
+
+     
+
   quickCheck' 5000 serdes
 
 serdes :: M4I8 -> M4I8 -> M4I8 -> M4I8 -> Boolean