@agoric/xsnap 0.14.3-u14.0 → 0.14.3-u16.1

package/moddable/modules/data/text/encoder/textencoder.c

@@ -0,0 +1,232 @@
+/*
+* Copyright (c) 2021-2022 Moddable Tech, Inc.
+*
+*   This file is part of the Moddable SDK Runtime.
+*
+*   The Moddable SDK Runtime is free software: you can redistribute it and/or modify
+*   it under the terms of the GNU Lesser General Public License as published by
+*   the Free Software Foundation, either version 3 of the License, or
+*   (at your option) any later version.
+*
+*   The Moddable SDK Runtime is distributed in the hope that it will be useful,
+*   but WITHOUT ANY WARRANTY; without even the implied warranty of
+*   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+*   GNU Lesser General Public License for more details.
+*
+*   You should have received a copy of the GNU Lesser General Public License
+*   along with the Moddable SDK Runtime.  If not, see <http://www.gnu.org/licenses/>.
+*
+*/
+
+#include "xsmc.h"
+#include "xsHost.h"
+#ifdef kPocoRotation
+	// Moddable SDK
+	#include "mc.xs.h"			// for xsID_ values
+
+	#define VALIDATE 1
+#else
+	// xst, xsnap, etc
+	#include <stdbool.h>
+
+	#define xsID_read (xsID("read"))
+	#define xsID_String (xsID("String"))
+	#define xsID_Uint8Array (xsID("Uint8Array"))
+	#define xsID_written (xsID("written"))
+#endif
+
+#if !VALIDATE
+void xs_textencoder(xsMachine *the)
+{
+	xsmcGet(xsResult, xsTarget, xsID("prototype"));
+	xsResult = xsNewHostInstance(xsResult);
+}
+#endif
+
+/*
+	null character maps to 0xC0, 0x80
+	surrogate pair pattern: ED Ax xx ED Bx xx
+*/
+
+void xs_textencoder_encode(xsMachine *the)
+{
+	uint8_t *src, *dst;
+	int length = 0;
+	uint8_t remap = false;
+
+	xsArg(0) = xsCall1(xsGlobal, xsID_String, xsArg(0));
+	src = (uint8_t *)xsmcToString(xsArg(0));
+
+	while (true) {
+		uint8_t c = c_read8(src++);
+		if (!c) break;
+
+		if ((0xED == c) &&
+			(0xA0 == (0xF0 & c_read8(src))) &&
+			(0xED == c_read8(src + 2)) &&
+			(0xB0 == (0xF0 & c_read8(src + 3)))) {
+			src += 5;
+			length += 4;
+			remap = true;
+			continue;
+		}
+
+		length += 1;
+		if ((0xC0 == c) && (0x80 == c_read8(src))) {
+			src += 1;
+			remap = true;
+		}
+	}
+
+	xsmcSetArrayBuffer(xsResult, NULL, length);
+	src = (uint8_t *)xsmcToString(xsArg(0));
+	dst = xsmcToArrayBuffer(xsResult);
+	if (remap) {
+		while (true) {
+			uint8_t c = c_read8(src++);
+			if (!c) break;
+
+			if ((0xED == c) &&
+				(0xA0 == (0xF0 & c_read8(src))) &&
+				(0xED == c_read8(src + 2)) &&
+				(0xB0 == (0xF0 & c_read8(src + 3)))) {
+				xsIntegerValue high, low;
+
+				fxUTF8Decode((xsStringValue)(src - 1), &high);
+				fxUTF8Decode((xsStringValue)(src + 2), &low);
+				fxUTF8Encode((xsStringValue)dst, 0x10000 + ((high & 0x3FF) << 10) + (low & 0x3FF));
+				src += 5;
+				dst += 4;
+				continue;
+			}
+
+			if ((0xC0 == c) && (0x80 == c_read8(src))) {
+				*dst++ = 0;
+				src += 1;
+			}
+			else
+				*dst++ = c;
+		}
+	}
+	else
+		c_memcpy(dst, src, length);
+
+	xsResult = xsNew1(xsGlobal, xsID_Uint8Array, xsResult);
+}
+
+void xs_textencoder_encodeInto(xsMachine *the)
+{
+	uint8_t *src, *dst;
+	xsUnsignedValue dstTotal, dstRemaining;
+	int read = 0;
+
+	if (!xsmcIsInstanceOf(xsArg(1), xsTypedArrayPrototype))		//@@ limit to Uint8Array
+		xsUnknownError("Uint8Array only");
+
+	xsArg(0) = xsCall1(xsGlobal, xsID_String, xsArg(0));
+	xsmcGetBufferWritable(xsArg(1), (void **)&dst, &dstTotal);
+	dstRemaining = dstTotal; 
+	src = (uint8_t *)xsmcToString(xsArg(0));
+
+	while (dstRemaining) {
+		uint8_t first = c_read8(src++);
+		if (!first) break;
+
+		if (first < 0x80) {
+			*dst++ = first;
+			dstRemaining -= 1;
+		}
+		else if (0xC0 == (first & 0xE0)) {
+			if ((0xC0 == first) && (0x80 == c_read8(src))) {
+				*dst++ = 0;
+				dstRemaining -= 1;
+				src += 1;
+				read += 1;
+				continue;
+			}
+
+			if (dstRemaining < 2)
+				break;
+
+			*dst++ = first;
+			*dst++ = c_read8(src++);
+			
+			dstRemaining -= 2;
+		}
+		else if (0xE0 == (first & 0xF0)) {
+			if ((0xED == first) &&
+				(0xA0 == (0xF0 & c_read8(src))) &&
+				(0xED == c_read8(src + 2)) &&
+				(0xB0 == (0xF0 & c_read8(src + 3)))) {
+				xsIntegerValue high, low;
+
+				if (dstRemaining < 4)
+					break;
+
+				fxUTF8Decode((xsStringValue)(src - 1), &high);
+				fxUTF8Decode((xsStringValue)(src + 2), &low);
+				fxUTF8Encode((xsStringValue)dst, 0x10000 + ((high & 0x3FF) << 10) + (low & 0x3FF));
+				src += 5;
+				dst += 4;
+				dstRemaining -= 4;
+				read += 2;
+				continue;
+			}
+
+			if (dstRemaining < 3)
+				break;
+
+			*dst++ = first;
+			*dst++ = c_read8(src++);
+			*dst++ = c_read8(src++);
+			
+			dstRemaining -= 3;
+		}
+		else if (0xF0 == (first & 0xF0)) {
+			if (dstRemaining < 4)
+				break;
+
+			*dst++ = first;
+			*dst++ = c_read8(src++);
+			*dst++ = c_read8(src++);
+			*dst++ = c_read8(src++);
+			
+			dstRemaining -= 4;
+		}
+		else
+			fxAbort(the, xsFatalCheckExit);
+		
+		read += 1;
+	}
+
+	xsmcSetNewObject(xsResult);
+
+	xsmcVars(1);
+	xsmcSetInteger(xsVar(0), read);
+	xsmcSet(xsResult, xsID_read, xsVar(0));
+
+	xsmcSetInteger(xsVar(0), dstTotal - dstRemaining);
+	xsmcSet(xsResult, xsID_written, xsVar(0));
+}
+
+#if !VALIDATE
+void modInstallTextEncoder(xsMachine *the)
+{
+	#define kPrototype (0)
+	#define kConstructor (1)
+	#define kScratch (2)
+
+	xsBeginHost(the);
+	xsmcVars(3);
+
+	xsmcSetNewObject(xsVar(kPrototype));
+	xsVar(kConstructor) = xsNewHostConstructor(xs_textencoder, 1, xsVar(kPrototype));
+	xsmcSet(xsGlobal, xsID("TextEncoder"), xsVar(kConstructor));
+	xsVar(kScratch) = xsNewHostFunction(xs_textencoder_encode, 1);
+	xsmcSet(xsVar(kPrototype), xsID("encode"), xsVar(kScratch));
+	xsVar(kScratch) = xsNewHostFunction(xs_textencoder_encodeInto, 2);
+	xsmcSet(xsVar(kPrototype), xsID("encodeInto"), xsVar(kScratch));
+
+	xsEndHost(the);
+}
+#endif

package/moddable/modules/data/text/encoder/textencoder.js

@@ -0,0 +1,24 @@
+/*
+* Copyright (c) 2021  Moddable Tech, Inc.
+*
+*   This file is part of the Moddable SDK Runtime.
+*
+*   The Moddable SDK Runtime is free software: you can redistribute it and/or modify
+*   it under the terms of the GNU Lesser General Public License as published by
+*   the Free Software Foundation, either version 3 of the License, or
+*   (at your option) any later version.
+*
+*   The Moddable SDK Runtime is distributed in the hope that it will be useful,
+*   but WITHOUT ANY WARRANTY; without even the implied warranty of
+*   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+*   GNU Lesser General Public License for more details.
+*
+*   You should have received a copy of the GNU Lesser General Public License
+*   along with the Moddable SDK Runtime.  If not, see <http://www.gnu.org/licenses/>.
+*
+*/
+
+export default class {
+	encode(value) @ "xs_textencoder_encode";
+	encodeInto(value, buffer) @ "xs_textencoder_encodeInto";
+}

package/moddable/modules/data/tinyint/tinyint.c

@@ -0,0 +1,150 @@
+/*
+ * Copyright (c) 2018  Moddable Tech, Inc.
+ *
+ *   This file is part of the Moddable SDK Runtime.
+ *
+ *   The Moddable SDK Runtime is free software: you can redistribute it and/or modify
+ *   it under the terms of the GNU Lesser General Public License as published by
+ *   the Free Software Foundation, either version 3 of the License, or
+ *   (at your option) any later version.
+ *
+ *   The Moddable SDK Runtime is distributed in the hope that it will be useful,
+ *   but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ *   GNU Lesser General Public License for more details.
+ *
+ *   You should have received a copy of the GNU Lesser General Public License
+ *   along with the Moddable SDK Runtime.  If not, see <http://www.gnu.org/licenses/>.
+ *
+ */
+
+#include "xsmc.h"
+#include "mc.xs.h"			// for xsID_ values
+
+void BitsView_prototype_getIntBits(xsMachine *the)
+{
+	xsUnknownError("unimplemented");
+}
+
+void BitsView_prototype_getUintBits(xsMachine *the)
+{
+	int bitsOffset = xsmcToInteger(xsArg(0));
+	int bitsSize = xsmcToInteger(xsArg(1));
+	uint32_t bitsValue = 0;
+	int byteLength;
+	uint8_t *bytes;
+	uint8_t littleEndian = true;
+	uint8_t shift = 0;
+	static const uint8_t masks[] = {0, 0x01, 0x03, 0x07, 0x0F, 0x1F, 0x3F, 0x7F, 0xFF};
+
+	if ((bitsSize < 1) || (bitsSize > 32))
+		xsRangeError("invalid number of bits");
+
+	if (xsmcArgc > 3) {
+		if (xsmcTest(xsArg(3)))
+			littleEndian = false;
+	}
+
+	xsmcVars(1);
+
+	xsmcGet(xsVar(0), xsThis, xsID_byteLength);
+	byteLength = xsmcToInteger(xsVar(0));
+
+	if ((bitsOffset < 0) || ((bitsOffset + bitsSize) > (byteLength << 3)))
+		xsRangeError("invalid offset");
+
+	xsmcGet(xsVar(0), xsThis, xsID_buffer);
+	bytes = xsmcToArrayBuffer(xsVar(0));
+
+	xsmcGet(xsVar(0), xsThis, xsID_byteOffset);
+	bytes += xsmcToInteger(xsVar(0));
+	bytes += bitsOffset >> 3;
+	while (bitsSize) {
+		uint8_t mask;
+		uint8_t part = (uint8_t)bitsSize;
+		uint8_t available = 8 - (bitsOffset & 7);
+		if (part > available)
+			part = available;
+
+		mask = masks[part] << (available - part);
+		if (littleEndian) {
+			bitsValue |= ((*bytes & mask) >> (available - part)) << shift;
+			shift += part;
+		}
+		else {
+			bitsValue <<= part;
+			bitsValue |= (*bytes & mask) >> (available - part);
+		}
+		bytes++;
+
+		bitsSize -= part;
+		bitsOffset += part;
+	}
+
+	if (bitsValue & 0x80000000)
+		xsmcSetNumber(xsResult, bitsValue);
+	else
+		xsmcSetInteger(xsResult, bitsValue);
+}
+
+void BitsView_prototype_setIntBits(xsMachine *the)
+{
+	xsUnknownError("unimplemented");
+}
+
+void BitsView_prototype_setUintBits(xsMachine *the)
+{
+	int bitsOffset = xsmcToInteger(xsArg(0));
+	int bitsSize = xsmcToInteger(xsArg(1));
+	uint32_t bitsValue = (uint32_t)xsmcToInteger(xsArg(2));
+	int byteLength;
+	uint8_t *bytes;
+	uint8_t littleEndian = true;
+	static const uint8_t masks[] = {0, 0x01, 0x03, 0x07, 0x0F, 0x1F, 0x3F, 0x7F, 0xFF};
+
+	if ((bitsSize < 1) || (bitsSize > 32))
+		xsRangeError("invalid number of bits");
+
+	if (xsmcArgc > 3) {
+		if (xsmcTest(xsArg(3))) {
+			littleEndian = false;
+			bitsValue <<= (32 - bitsSize);
+		}
+	}
+
+	xsmcVars(1);
+
+	xsmcGet(xsVar(0), xsThis, xsID_byteLength);
+	byteLength = xsmcToInteger(xsVar(0));
+
+	if ((bitsOffset < 0) || ((bitsOffset + bitsSize) > (byteLength << 3)))
+		xsRangeError("invalid offset");
+
+	xsmcGet(xsVar(0), xsThis, xsID_buffer);
+	bytes = xsmcToArrayBuffer(xsVar(0));
+
+	xsmcGet(xsVar(0), xsThis, xsID_byteOffset);
+	bytes += xsmcToInteger(xsVar(0));
+	bytes += bitsOffset >> 3;
+	while (bitsSize) {
+		uint8_t mask;
+		uint8_t part = (uint8_t)bitsSize;
+		uint8_t available = 8 - (bitsOffset & 7);
+		if (part > available)
+			part = available;
+
+		mask = masks[part] << (available - part);
+		if (littleEndian) {
+			*bytes = (*bytes & ~mask) | ((bitsValue << (available - part)) & mask);
+			bitsValue >>= part;
+		}
+		else {
+			*bytes = (*bytes & ~mask) | ((bitsValue >> (24 + (bitsOffset & 7))) & mask);
+			bitsValue <<= part;
+		}
+		bytes++;
+
+		bitsSize -= part;
+		bitsOffset += part;
+	}
+}

package/moddable/modules/data/tinyint/tinyint.js

@@ -0,0 +1,53 @@
+/*
+ * Copyright (c) 2018  Moddable Tech, Inc.
+ *
+ *   This file is part of the Moddable SDK Runtime.
+ *
+ *   The Moddable SDK Runtime is free software: you can redistribute it and/or modify
+ *   it under the terms of the GNU Lesser General Public License as published by
+ *   the Free Software Foundation, either version 3 of the License, or
+ *   (at your option) any later version.
+ *
+ *   The Moddable SDK Runtime is distributed in the hope that it will be useful,
+ *   but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ *   GNU Lesser General Public License for more details.
+ *
+ *   You should have received a copy of the GNU Lesser General Public License
+ *   along with the Moddable SDK Runtime.  If not, see <http://www.gnu.org/licenses/>.
+ *
+ */
+
+export class BitsView extends DataView {
+//	getIntBits(bitsOffset, bitsSize, endian) @ "BitsView_prototype_getIntBits"
+	getUintBits(bitsOffset, bitsSize, endian) @ "BitsView_prototype_getUintBits"
+//	setIntBits(bitsOffset, bitsSize, value, endian) @ "BitsView_prototype_setIntBits"
+	setUintBits(bitsOffset, bitsSize, value, endian) @ "BitsView_prototype_setUintBits"
+}
+
+export class UintBitsArray {
+	constructor(buffer, bitsSize) {
+		if ("number" === typeof buffer) {
+			this.length = buffer;
+			buffer = new ArrayBuffer(((bitsSize * buffer) + 7) >> 3);
+		}
+		else if (buffer instanceof ArrayBuffer)
+			this.length = (buffer.byteLength / bitsSize) | 0;
+		else
+			throw new Error("invalid buffer");
+		this.bitsSize = bitsSize;
+		return new Proxy(new BitsView(buffer), this);
+	}
+	get(target, key) {
+		if ("length" === key)
+			return this.length;
+		if ("buffer" === key)
+			return target.buffer;
+		const bitsSize = this.bitsSize;
+		return target.getUintBits(key * bitsSize, bitsSize);
+	}
+	set(target, key, value) {
+		const bitsSize = this.bitsSize;
+		return target.setUintBits(key * bitsSize, bitsSize, value);
+	}
+}

package/moddable/modules/data/url/manifest.json

@@ -0,0 +1,17 @@
+{
+	"modules": {
+		"url": "./url"
+	},
+	"preload": [
+		"url"
+	],
+	"platforms": {
+		"esp": {
+			"recipes": {
+				"strings-in-flash-force-l32": [
+					"url*"
+				]
+			}
+		}
+	}
+}