Updates for 0.7

Author: jacereda

src/Data/ArrayBuffer/ArrayBuffer.js

@@ -0,0 +1,28 @@
+"use strict";
+
+// module Data.ArrayBuffer.ArrayBuffer
+
+exports.create = function(s) {
+  return new ArrayBuffer(s);
+}
+
+exports.byteLength = function(a) {
+  return a.byteLength;
+}
+
+exports.sliceImpl = function(s, e, a) {
+  return a.slice(s,e);
+}
+
+exports.fromArray = function(s) {
+  return (new Uint8Array(s)).buffer;
+}
+
+exports.fromString = function(s) {
+  var l = s.length;
+  var ab = new ArrayBuffer(l * 2);
+  var a = new Uint16Array(ab);
+  for (var i = 0; i < l; i++)
+    a[i] = s.charCodeAt(i);
+  return ab;
+}

src/Data/ArrayBuffer/DataView.js

@@ -0,0 +1,43 @@
+"use strict";
+
+// module Data.ArrayBuffer.DataView
+
+
+exports.whole = function(b) {
+  return new DataView(b);
+}
+
+exports.sliceImpl = function(just, nothing, s, l, b) {
+  return s + l <= b.byteLength? just(new DataView(b, s, l)) : nothing;
+}
+
+exports.buffer = function(v) {
+  return v.buffer;
+}
+
+exports.byteOffset = function(v) {
+  return v.byteOffset;
+}
+
+exports.byteLength = function(v) {
+  return v.byteLength;
+}
+
+exports.getterImpl = function(just, nothing, s, l, v, o) {
+  return function() {
+    return (o + l) <= v.byteLength? just(v[s].call(v,o)) : nothing;
+  };
+}
+
+exports.setter = function(s) {
+  return function(v) {
+    var f = v[s];
+    return function(n) {
+      return function(o) {
+        return function() {
+          f.call(v,o,n);
+        };
+      };
+    };
+  };
+}

src/Data/ArrayBuffer/Show.js

@@ -0,0 +1,7 @@
+"use strict";
+
+// module Show
+
+exports.showImpl = function(a) {
+  return require('util').inspect(a);
+}

src/Data/ArrayBuffer/Typed.js

@@ -0,0 +1,65 @@
+"use strict";
+
+// module Data.ArrayBuffer.Typed
+
+exports.asInt8Array = function(v) {
+  return new Int8Array(v.buffer, v.byteOffset, v.byteLength);
+}
+
+exports.asInt16Array = function(v) {
+  return new Int16Array(v.buffer, v.byteOffset, v.byteLength >>> 1);
+}
+
+exports.asInt32Array = function(v) {
+  return new Int32Array(v.buffer, v.byteOffset, v.byteLength >>> 2);
+}
+
+exports.asUint8Array = function(v) {
+  return new Uint8Array(v.buffer, v.byteOffset, v.byteLength);
+}
+
+exports.asUint16Array = function(v) {
+  return new Uint16Array(v.buffer, v.byteOffset, v.byteLength >>> 1);
+}
+
+exports.asUint32Array = function(v) {
+  return new Uint32Array(v.buffer, v.byteOffset, v.byteLength >>> 2);
+}
+
+exports.asUint8ClampedArray = function(v) {
+  return new Uint8ClampedArray(v.buffer, v.byteOffset, v.byteLength);
+}
+
+exports.asFloat32Array = function(v) {
+  return new Float32Array(v.buffer, v.byteOffset, v.byteLength >>> 2);
+}
+
+exports.asFloat64Array = function(v) {
+  return new Float64Array(v.buffer, v.byteOffset, v.byteLength >>> 3);
+}
+
+exports.dataView = function(a) {
+  return a;
+}
+
+exports.setImpl = function(ra, off, a) {
+  return function() {
+    a.set(ra, off);
+  };
+}
+
+exports.unsafeAtImpl = function(a, i) {
+   return a[i];
+}
+
+exports.hasIndexImpl = function(a, i) {
+  return i in a;
+}
+
+exports.toArray = function(a) {
+  var l = a.length;
+  var ret = new Array(l);
+  for (var i = 0; i < l; i++)
+    ret[i] = a[i];
+  return ret;
+}