visaljs 0.0.2 → 0.0.4

package/runtime/third_party/bearssl/src/int/i31_add.c

@@ -1,46 +0,0 @@
-/*
- * Copyright (c) 2016 Thomas Pornin <pornin@bolet.org>
- *
- * 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.
- */
-
-#include "inner.h"
-
-/* see inner.h */
-uint32_t
-br_i31_add(uint32_t *a, const uint32_t *b, uint32_t ctl)
-{
-	uint32_t cc;
-	size_t u, m;
-
-	cc = 0;
-	m = (a[0] + 63) >> 5;
-	for (u = 1; u < m; u ++) {
-		uint32_t aw, bw, naw;
-
-		aw = a[u];
-		bw = b[u];
-		naw = aw + bw + cc;
-		cc = naw >> 31;
-		a[u] = MUX(ctl, naw & (uint32_t)0x7FFFFFFF, aw);
-	}
-	return cc;
-}

package/runtime/third_party/bearssl/src/int/i31_bitlen.c

@@ -1,44 +0,0 @@
-/*
- * Copyright (c) 2016 Thomas Pornin <pornin@bolet.org>
- *
- * 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.
- */
-
-#include "inner.h"
-
-/* see inner.h */
-uint32_t
-br_i31_bit_length(uint32_t *x, size_t xlen)
-{
-	uint32_t tw, twk;
-
-	tw = 0;
-	twk = 0;
-	while (xlen -- > 0) {
-		uint32_t w, c;
-
-		c = EQ(tw, 0);
-		w = x[xlen];
-		tw = MUX(c, w, tw);
-		twk = MUX(c, (uint32_t)xlen, twk);
-	}
-	return (twk << 5) + BIT_LENGTH(tw);
-}

package/runtime/third_party/bearssl/src/int/i31_decmod.c

@@ -1,124 +0,0 @@
-/*
- * Copyright (c) 2016 Thomas Pornin <pornin@bolet.org>
- *
- * 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.
- */
-
-#include "inner.h"
-
-/* see inner.h */
-uint32_t
-br_i31_decode_mod(uint32_t *x, const void *src, size_t len, const uint32_t *m)
-{
-	/*
-	 * Two-pass algorithm: in the first pass, we determine whether the
-	 * value fits; in the second pass, we do the actual write.
-	 *
-	 * During the first pass, 'r' contains the comparison result so
-	 * far:
-	 *  0x00000000   value is equal to the modulus
-	 *  0x00000001   value is greater than the modulus
-	 *  0xFFFFFFFF   value is lower than the modulus
-	 *
-	 * Since we iterate starting with the least significant bytes (at
-	 * the end of src[]), each new comparison overrides the previous
-	 * except when the comparison yields 0 (equal).
-	 *
-	 * During the second pass, 'r' is either 0xFFFFFFFF (value fits)
-	 * or 0x00000000 (value does not fit).
-	 *
-	 * We must iterate over all bytes of the source, _and_ possibly
-	 * some extra virtual bytes (with value 0) so as to cover the
-	 * complete modulus as well. We also add 4 such extra bytes beyond
-	 * the modulus length because it then guarantees that no accumulated
-	 * partial word remains to be processed.
-	 */
-	const unsigned char *buf;
-	size_t mlen, tlen;
-	int pass;
-	uint32_t r;
-
-	buf = src;
-	mlen = (m[0] + 31) >> 5;
-	tlen = (mlen << 2);
-	if (tlen < len) {
-		tlen = len;
-	}
-	tlen += 4;
-	r = 0;
-	for (pass = 0; pass < 2; pass ++) {
-		size_t u, v;
-		uint32_t acc;
-		int acc_len;
-
-		v = 1;
-		acc = 0;
-		acc_len = 0;
-		for (u = 0; u < tlen; u ++) {
-			uint32_t b;
-
-			if (u < len) {
-				b = buf[len - 1 - u];
-			} else {
-				b = 0;
-			}
-			acc |= (b << acc_len);
-			acc_len += 8;
-			if (acc_len >= 31) {
-				uint32_t xw;
-
-				xw = acc & (uint32_t)0x7FFFFFFF;
-				acc_len -= 31;
-				acc = b >> (8 - acc_len);
-				if (v <= mlen) {
-					if (pass) {
-						x[v] = r & xw;
-					} else {
-						uint32_t cc;
-
-						cc = (uint32_t)CMP(xw, m[v]);
-						r = MUX(EQ(cc, 0), r, cc);
-					}
-				} else {
-					if (!pass) {
-						r = MUX(EQ(xw, 0), r, 1);
-					}
-				}
-				v ++;
-			}
-		}
-
-		/*
-		 * When we reach this point at the end of the first pass:
-		 * r is either 0, 1 or -1; we want to set r to 0 if it
-		 * is equal to 0 or 1, and leave it to -1 otherwise.
-		 *
-		 * When we reach this point at the end of the second pass:
-		 * r is either 0 or -1; we want to leave that value
-		 * untouched. This is a subcase of the previous.
-		 */
-		r >>= 1;
-		r |= (r << 1);
-	}
-
-	x[0] = m[0];
-	return r & (uint32_t)1;
-}

package/runtime/third_party/bearssl/src/int/i31_decode.c

@@ -1,57 +0,0 @@
-/*
- * Copyright (c) 2016 Thomas Pornin <pornin@bolet.org>
- *
- * 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.
- */
-
-#include "inner.h"
-
-/* see inner.h */
-void
-br_i31_decode(uint32_t *x, const void *src, size_t len)
-{
-	const unsigned char *buf;
-	size_t u, v;
-	uint32_t acc;
-	int acc_len;
-
-	buf = src;
-	u = len;
-	v = 1;
-	acc = 0;
-	acc_len = 0;
-	while (u -- > 0) {
-		uint32_t b;
-
-		b = buf[u];
-		acc |= (b << acc_len);
-		acc_len += 8;
-		if (acc_len >= 31) {
-			x[v ++] = acc & (uint32_t)0x7FFFFFFF;
-			acc_len -= 31;
-			acc = b >> (8 - acc_len);
-		}
-	}
-	if (acc_len != 0) {
-		x[v ++] = acc;
-	}
-	x[0] = br_i31_bit_length(x + 1, v - 1);
-}

package/runtime/third_party/bearssl/src/int/i31_decred.c

@@ -1,103 +0,0 @@
-/*
- * Copyright (c) 2016 Thomas Pornin <pornin@bolet.org>
- *
- * 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.
- */
-
-#include "inner.h"
-
-/* see inner.h */
-void
-br_i31_decode_reduce(uint32_t *x,
-	const void *src, size_t len, const uint32_t *m)
-{
-	uint32_t m_ebitlen, m_rbitlen;
-	size_t mblen, k;
-	const unsigned char *buf;
-	uint32_t acc;
-	int acc_len;
-
-	/*
-	 * Get the encoded bit length.
-	 */
-	m_ebitlen = m[0];
-
-	/*
-	 * Special case for an invalid (null) modulus.
-	 */
-	if (m_ebitlen == 0) {
-		x[0] = 0;
-		return;
-	}
-
-	/*
-	 * Clear the destination.
-	 */
-	br_i31_zero(x, m_ebitlen);
-
-	/*
-	 * First decode directly as many bytes as possible. This requires
-	 * computing the actual bit length.
-	 */
-	m_rbitlen = m_ebitlen >> 5;
-	m_rbitlen = (m_ebitlen & 31) + (m_rbitlen << 5) - m_rbitlen;
-	mblen = (m_rbitlen + 7) >> 3;
-	k = mblen - 1;
-	if (k >= len) {
-		br_i31_decode(x, src, len);
-		x[0] = m_ebitlen;
-		return;
-	}
-	buf = src;
-	br_i31_decode(x, buf, k);
-	x[0] = m_ebitlen;
-
-	/*
-	 * Input remaining bytes, using 31-bit words.
-	 */
-	acc = 0;
-	acc_len = 0;
-	while (k < len) {
-		uint32_t v;
-
-		v = buf[k ++];
-		if (acc_len >= 23) {
-			acc_len -= 23;
-			acc <<= (8 - acc_len);
-			acc |= v >> acc_len;
-			br_i31_muladd_small(x, acc, m);
-			acc = v & (0xFF >> (8 - acc_len));
-		} else {
-			acc = (acc << 8) | v;
-			acc_len += 8;
-		}
-	}
-
-	/*
-	 * We may have some bits accumulated. We then perform a shift to
-	 * be able to inject these bits as a full 31-bit word.
-	 */
-	if (acc_len != 0) {
-		acc = (acc | (x[1] << acc_len)) & 0x7FFFFFFF;
-		br_i31_rshift(x, 31 - acc_len);
-		br_i31_muladd_small(x, acc, m);
-	}
-}

package/runtime/third_party/bearssl/src/int/i31_encode.c

@@ -1,79 +0,0 @@
-/*
- * Copyright (c) 2016 Thomas Pornin <pornin@bolet.org>
- *
- * 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.
- */
-
-#include "inner.h"
-
-/* see inner.h */
-void
-br_i31_encode(void *dst, size_t len, const uint32_t *x)
-{
-	unsigned char *buf;
-	size_t k, xlen;
-	uint32_t acc;
-	int acc_len;
-
-	xlen = (x[0] + 31) >> 5;
-	if (xlen == 0) {
-		memset(dst, 0, len);
-		return;
-	}
-	buf = (unsigned char *)dst + len;
-	k = 1;
-	acc = 0;
-	acc_len = 0;
-	while (len != 0) {
-		uint32_t w;
-
-		w = (k <= xlen) ? x[k] : 0;
-		k ++;
-		if (acc_len == 0) {
-			acc = w;
-			acc_len = 31;
-		} else {
-			uint32_t z;
-
-			z = acc | (w << acc_len);
-			acc_len --;
-			acc = w >> (31 - acc_len);
-			if (len >= 4) {
-				buf -= 4;
-				len -= 4;
-				br_enc32be(buf, z);
-			} else {
-				switch (len) {
-				case 3:
-					buf[-3] = (unsigned char)(z >> 16);
-					/* fall through */
-				case 2:
-					buf[-2] = (unsigned char)(z >> 8);
-					/* fall through */
-				case 1:
-					buf[-1] = (unsigned char)z;
-					break;
-				}
-				return;
-			}
-		}
-	}
-}

package/runtime/third_party/bearssl/src/int/i31_fmont.c

@@ -1,60 +0,0 @@
-/*
- * Copyright (c) 2016 Thomas Pornin <pornin@bolet.org>
- *
- * 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.
- */
-
-#include "inner.h"
-
-/* see inner.h */
-void
-br_i31_from_monty(uint32_t *x, const uint32_t *m, uint32_t m0i)
-{
-	size_t len, u, v;
-
-	len = (m[0] + 31) >> 5;
-	for (u = 0; u < len; u ++) {
-		uint32_t f;
-		uint64_t cc;
-
-		f = MUL31_lo(x[1], m0i);
-		cc = 0;
-		for (v = 0; v < len; v ++) {
-			uint64_t z;
-
-			z = (uint64_t)x[v + 1] + MUL31(f, m[v + 1]) + cc;
-			cc = z >> 31;
-			if (v != 0) {
-				x[v] = (uint32_t)z & 0x7FFFFFFF;
-			}
-		}
-		x[len] = (uint32_t)cc;
-	}
-
-	/*
-	 * We may have to do an extra subtraction, but only if the
-	 * value in x[] is indeed greater than or equal to that of m[],
-	 * which is why we must do two calls (first call computes the
-	 * carry, second call performs the subtraction only if the carry
-	 * is 0).
-	 */
-	br_i31_sub(x, m, NOT(br_i31_sub(x, m, 0)));
-}

package/runtime/third_party/bearssl/src/int/i31_iszero.c

@@ -1,39 +0,0 @@
-/*
- * Copyright (c) 2016 Thomas Pornin <pornin@bolet.org>
- *
- * 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.
- */
-
-#include "inner.h"
-
-/* see inner.h */
-uint32_t
-br_i31_iszero(const uint32_t *x)
-{
-	uint32_t z;
-	size_t u;
-
-	z = 0;
-	for (u = (x[0] + 31) >> 5; u > 0; u --) {
-		z |= x[u];
-	}
-	return ~(z | -z) >> 31;
-}