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

package/moddable/modules/data/hex/modHex.c

@@ -0,0 +1,139 @@
+/*
+ * Copyright (c) 2016-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 "xsPlatform.h"
+#include "xsmc.h"
+
+static const char *gHexUpper ICACHE_FLASH_ATTR = "0123456789ABCDEF";
+
+void xs_hex_toString(xsMachine *the)
+{
+	int argc = xsmcArgc;
+	const uint8_t *bytes;
+	char *string;
+	xsUnsignedValue length, i;
+	char separator = 0;
+	char *gHex = (char *)gHexUpper;
+
+	xsmcGetBufferReadable(xsArg(0), (void **)&bytes, &length);
+	if (0 == length)
+		xsUnknownError("0 length buffer");
+
+	if (argc > 1) {
+		char *str = xsmcToString(xsArg(1));
+		int len = c_strlen(str); 
+		if (len) {
+			if (len > 1)
+				xsUnknownError("invalid separator");
+			separator = c_read8(str);
+			if (!separator || (0x80 & separator))
+				xsUnknownError("invalid separator");
+		}
+		if (argc > 2) {
+			gHex = xsmcToString(xsArg(2));
+			if (16 != c_strlen(gHex))
+				xsUnknownError("bad string");
+			for (i = 0; i < 16; i++) {			// 7-bit ASCII, not UTF-8
+				if (!gHex[i] || (0x80 & gHex[i]))
+					xsUnknownError("bad string");
+			}
+		}
+	}
+
+	xsResult = xsStringBuffer(NULL, (length * 2) + (separator ? (length - 1) : 0));
+	string = xsmcToString(xsResult);
+	xsmcGetBufferReadable(xsArg(0), (void **)&bytes, &length);
+	if (argc > 2)
+		gHex = xsmcToString(xsArg(2));
+
+	for (i = 0; i < length; i++) {
+		uint8_t byte = c_read8(bytes++);
+		if (separator && (0 != i))
+			*string++ = separator;
+		*string++ = c_read8(&gHex[byte >> 4]);
+		*string++ = c_read8(&gHex[byte & 0x0F]);
+	}
+}
+
+void xs_hex_toBuffer(xsMachine *the)
+{
+	int argc = xsmcArgc;
+	char separator = 0;
+	const char *string;
+	uint8_t *bytes;
+	int length, i;
+
+	if (argc > 1) {
+		char *str = xsmcToString(xsArg(1));
+		length = c_strlen(str);
+		if (length) {
+			if (length > 1)
+				xsUnknownError("invalid separator");
+			separator = c_read8(str);
+			if (!separator || (0x80 & separator))
+				xsUnknownError("invalid separator");
+		}
+	}
+
+	string = xsmcToString(xsArg(0));
+	length = c_strlen(string);
+	if (length < 2)
+		xsUnknownError("string too small");
+
+	if ((separator && ((length + 1) % 3)) || (!separator && (length % 2)))
+		xsUnknownError("bad string length");
+
+	length = separator ? ((length + 1) / 3) : (length / 2);
+	xsmcSetArrayBuffer(xsResult, NULL, length);
+	bytes = xsmcToArrayBuffer(xsResult);
+	string = xsmcToString(xsArg(0));		// refresh
+	for (i = 0; i < length; i++) {
+		uint8_t c;
+		uint8_t byte;
+
+		if (separator && (0 != i)) {
+			if (c_read8(string++) != separator)
+				xsUnknownError("expected separator");
+		}
+
+		c = c_read8(string++);
+		if (('0' <= c) && (c <= '9'))
+			byte = c - '0';
+		else if (('A' <= c) && (c <= 'F'))
+			byte = c - 'A' + 10;
+		else if (('a' <= c) && (c <= 'f'))
+			byte = c - 'a' + 10;
+		else
+			xsUnknownError("bad data");
+		byte <<= 4;
+
+		c = c_read8(string++);
+		if (('0' <= c) && (c <= '9'))
+			byte |= c - '0';
+		else if (('A' <= c) && (c <= 'F'))
+			byte |= c - 'A' + 10;
+		else if (('a' <= c) && (c <= 'f'))
+			byte |= c - 'a' + 10;
+		else
+			xsUnknownError("bad data");
+
+		*bytes++ = byte;
+	}
+}

package/moddable/modules/data/logical/logical.js

@@ -0,0 +1,32 @@
+/*
+ * Copyright (c) 2016-2017  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/>.
+ *
+ */
+
+/*
+	logical operations on buffers
+*/
+
+export default class {
+	static not(dst) {
+		this.xor(dst, 0xff);
+	}
+	static xor(dst, src) @ "xs_logical_xor";
+	static and(dst, src) @ "xs_logical_and";
+	static or(dst, src) @ "xs_logical_or";
+}

package/moddable/modules/data/logical/modLogical.c

@@ -0,0 +1,98 @@
+/*
+ * Copyright (c) 2016-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 "xsPlatform.h"
+#include "xsmc.h"
+
+enum {
+	kOpXor,
+	kOpAnd,
+	kOpOr
+};
+
+static void xs_logical_op(xsMachine *the, int operation)
+{
+	int srcType = xsmcTypeOf(xsArg(1));
+	uint8_t scratch;
+	uint8_t *src, *dst;
+	xsUnsignedValue srcLen, dstLen, i = 0;
+
+	xsmcGetBufferWritable(xsArg(0), (void **)&dst, &dstLen);
+
+	switch (srcType) {
+		case xsIntegerType:
+		case xsNumberType:
+			scratch = (uint8_t)xsmcToInteger(xsArg(1));
+			src = &scratch;
+			srcLen = 1;
+			break;
+
+		case xsStringType:
+			src = (uint8_t *)xsmcToString(xsArg(1));
+			srcLen = c_strlen((char *)src);
+			break;
+
+		case xsReferenceType:
+			xsmcGetBufferReadable(xsArg(1), (void **)&src, &srcLen);
+			break;
+
+		default:
+			xsUnknownError("unsupported source");
+			break;
+	}
+
+	if (kOpXor == operation) {
+		while (dstLen--) {
+			*dst++ ^= src[i++];
+			if (i == srcLen)
+				i = 0;
+		}
+	}
+	else
+	if (kOpOr == operation) {
+		while (dstLen--) {
+			*dst++ |= src[i++];
+			if (i == srcLen)
+				i = 0;
+		}
+	}
+	else {
+		while (dstLen--) {
+			*dst++ &= src[i++];
+			if (i == srcLen)
+				i = 0;
+		}
+	}
+}
+
+void xs_logical_xor(xsMachine *the)
+{
+	xs_logical_op(the, kOpXor);
+}
+
+void xs_logical_and(xsMachine *the)
+{
+	xs_logical_op(the, kOpAnd);
+}
+
+void xs_logical_or(xsMachine *the)
+{
+	xs_logical_op(the, kOpOr);
+}

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

@@ -0,0 +1,9 @@
+{
+	"modules": {
+		"*": [
+			"./qrcode",
+			"./qrcodegen"
+		]
+	},
+	"preload": "qrcode"
+}

package/moddable/modules/data/qrcode/qrcode.c

@@ -0,0 +1,93 @@
+/*
+ * Copyright (c) 2018-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 "mc.xs.h"			// for xsID_ values
+
+#include "qrcodegen.h"
+#include "xsHost.h"
+
+void xs_qrcode(xsMachine *the)
+{
+	size_t bufferSize;
+	uint8_t *qr0 = NULL;
+	void *data;
+	xsType type;
+	uint8_t ok;
+	int x, y;
+	uint8_t *module;
+	int maxVersion = qrcodegen_VERSION_MAX;
+
+	xsmcVars(3);
+
+	if (xsmcHas(xsArg(0), xsID_maxVersion)) {
+		xsmcGet(xsVar(0), xsArg(0), xsID_maxVersion);
+		maxVersion = xsmcToInteger(xsVar(0));
+		if ((maxVersion > qrcodegen_VERSION_MAX) || (maxVersion < qrcodegen_VERSION_MIN))
+			xsRangeError("invalid");
+	}
+
+	bufferSize = qrcodegen_BUFFER_LEN_FOR_VERSION(maxVersion);
+	qr0 = c_malloc(bufferSize << 1);
+	if (!qr0)
+		xsUnknownError("no memory");
+
+	xsTry {
+		xsmcGet(xsVar(0), xsArg(0), xsID_input);
+		type = xsmcTypeOf(xsVar(0));
+		if (xsStringType == type) {
+			data = xsmcToString(xsVar(0));
+			ok = qrcodegen_encodeText(data, qr0 + bufferSize, qr0,
+					qrcodegen_Ecc_MEDIUM, qrcodegen_VERSION_MIN, maxVersion, qrcodegen_Mask_AUTO, true);
+		}
+		else {
+			xsUnsignedValue dataSize;
+
+			xsmcGetBufferReadable(xsVar(0), &data, &dataSize);
+			if (dataSize > bufferSize)
+				xsUnknownError("invalid");
+			c_memcpy(qr0 + bufferSize, data, dataSize);
+			ok = qrcodegen_encodeBinary(qr0 + bufferSize, dataSize, qr0,
+					qrcodegen_Ecc_MEDIUM, qrcodegen_VERSION_MIN, maxVersion, qrcodegen_Mask_AUTO, true);
+		}
+
+		if (!ok)
+			xsUnknownError("qrcode failed");
+
+		int size = qrcodegen_getSize(qr0);
+
+		xsmcSetArrayBuffer(xsResult, NULL, size * size);
+
+		xsmcSetInteger(xsVar(0), size);
+		xsmcSet(xsResult, xsID_size, xsVar(0));
+
+		module = xsmcToArrayBuffer(xsResult);
+		for (y = 0; y < size; y++) {
+			for (x = 0; x < size; x++)
+				*module++ = qrcodegen_getModule(qr0, x, y);
+		}
+
+		c_free(qr0);
+	}
+	xsCatch {
+		c_free(qr0);
+
+		xsThrow(xsException);
+	}
+}

package/moddable/modules/data/qrcode/qrcode.js

@@ -0,0 +1,23 @@
+/*
+ * 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/>.
+ *
+ */
+
+function QRCode(dictonary) @ "xs_qrcode";
+
+export default QRCode;