zig-pug 0.3.1 → 0.3.3

package/vendor/mujs/jsmath.c

@@ -1,194 +0,0 @@
-#include "jsi.h"
-
-#if defined(_MSC_VER) && (_MSC_VER < 1700) /* VS2012 has stdint.h */
-typedef unsigned int uint32_t;
-typedef unsigned __int64 uint64_t;
-#else
-#include <stdint.h>
-#endif
-
-#include <time.h>
-
-static double jsM_round(double x)
-{
-	if (isnan(x)) return x;
-	if (isinf(x)) return x;
-	if (x == 0) return x;
-	if (x > 0 && x < 0.5) return 0;
-	if (x < 0 && x >= -0.5) return -0;
-	return floor(x + 0.5);
-}
-
-static void Math_abs(js_State *J)
-{
-	js_pushnumber(J, fabs(js_tonumber(J, 1)));
-}
-
-static void Math_acos(js_State *J)
-{
-	js_pushnumber(J, acos(js_tonumber(J, 1)));
-}
-
-static void Math_asin(js_State *J)
-{
-	js_pushnumber(J, asin(js_tonumber(J, 1)));
-}
-
-static void Math_atan(js_State *J)
-{
-	js_pushnumber(J, atan(js_tonumber(J, 1)));
-}
-
-static void Math_atan2(js_State *J)
-{
-	double y = js_tonumber(J, 1);
-	double x = js_tonumber(J, 2);
-	js_pushnumber(J, atan2(y, x));
-}
-
-static void Math_ceil(js_State *J)
-{
-	js_pushnumber(J, ceil(js_tonumber(J, 1)));
-}
-
-static void Math_cos(js_State *J)
-{
-	js_pushnumber(J, cos(js_tonumber(J, 1)));
-}
-
-static void Math_exp(js_State *J)
-{
-	js_pushnumber(J, exp(js_tonumber(J, 1)));
-}
-
-static void Math_floor(js_State *J)
-{
-	js_pushnumber(J, floor(js_tonumber(J, 1)));
-}
-
-static void Math_log(js_State *J)
-{
-	js_pushnumber(J, log(js_tonumber(J, 1)));
-}
-
-static void Math_pow(js_State *J)
-{
-	double x = js_tonumber(J, 1);
-	double y = js_tonumber(J, 2);
-	if (!isfinite(y) && fabs(x) == 1)
-		js_pushnumber(J, NAN);
-	else
-		js_pushnumber(J, pow(x,y));
-}
-
-static void Math_random(js_State *J)
-{
-	/* Lehmer generator with a=48271 and m=2^31-1 */
-	/* Park & Miller (1988). Random Number Generators: Good ones are hard to find. */
-	J->seed = (uint64_t) J->seed * 48271 % 0x7fffffff;
-	js_pushnumber(J, (double) J->seed / 0x7fffffff);
-}
-
-static void Math_init_random(js_State *J)
-{
-	/* Pick initial seed by scrambling current time with Xorshift. */
-	/* Marsaglia (2003). Xorshift RNGs. */
-	J->seed = time(0) + 123;
-	J->seed ^= J->seed << 13;
-	J->seed ^= J->seed >> 17;
-	J->seed ^= J->seed << 5;
-	J->seed %= 0x7fffffff;
-}
-
-static void Math_round(js_State *J)
-{
-	double x = js_tonumber(J, 1);
-	js_pushnumber(J, jsM_round(x));
-}
-
-static void Math_sin(js_State *J)
-{
-	js_pushnumber(J, sin(js_tonumber(J, 1)));
-}
-
-static void Math_sqrt(js_State *J)
-{
-	js_pushnumber(J, sqrt(js_tonumber(J, 1)));
-}
-
-static void Math_tan(js_State *J)
-{
-	js_pushnumber(J, tan(js_tonumber(J, 1)));
-}
-
-static void Math_max(js_State *J)
-{
-	int i, n = js_gettop(J);
-	double x = -INFINITY;
-	for (i = 1; i < n; ++i) {
-		double y = js_tonumber(J, i);
-		if (isnan(y)) {
-			x = y;
-			break;
-		}
-		if (signbit(x) == signbit(y))
-			x = x > y ? x : y;
-		else if (signbit(x))
-			x = y;
-	}
-	js_pushnumber(J, x);
-}
-
-static void Math_min(js_State *J)
-{
-	int i, n = js_gettop(J);
-	double x = INFINITY;
-	for (i = 1; i < n; ++i) {
-		double y = js_tonumber(J, i);
-		if (isnan(y)) {
-			x = y;
-			break;
-		}
-		if (signbit(x) == signbit(y))
-			x = x < y ? x : y;
-		else if (signbit(y))
-			x = y;
-	}
-	js_pushnumber(J, x);
-}
-
-void jsB_initmath(js_State *J)
-{
-	Math_init_random(J);
-	js_pushobject(J, jsV_newobject(J, JS_CMATH, J->Object_prototype));
-	{
-		jsB_propn(J, "E", 2.7182818284590452354);
-		jsB_propn(J, "LN10", 2.302585092994046);
-		jsB_propn(J, "LN2", 0.6931471805599453);
-		jsB_propn(J, "LOG2E", 1.4426950408889634);
-		jsB_propn(J, "LOG10E", 0.4342944819032518);
-		jsB_propn(J, "PI", 3.1415926535897932);
-		jsB_propn(J, "SQRT1_2", 0.7071067811865476);
-		jsB_propn(J, "SQRT2", 1.4142135623730951);
-
-		jsB_propf(J, "Math.abs", Math_abs, 1);
-		jsB_propf(J, "Math.acos", Math_acos, 1);
-		jsB_propf(J, "Math.asin", Math_asin, 1);
-		jsB_propf(J, "Math.atan", Math_atan, 1);
-		jsB_propf(J, "Math.atan2", Math_atan2, 2);
-		jsB_propf(J, "Math.ceil", Math_ceil, 1);
-		jsB_propf(J, "Math.cos", Math_cos, 1);
-		jsB_propf(J, "Math.exp", Math_exp, 1);
-		jsB_propf(J, "Math.floor", Math_floor, 1);
-		jsB_propf(J, "Math.log", Math_log, 1);
-		jsB_propf(J, "Math.max", Math_max, 0); /* 2 */
-		jsB_propf(J, "Math.min", Math_min, 0); /* 2 */
-		jsB_propf(J, "Math.pow", Math_pow, 2);
-		jsB_propf(J, "Math.random", Math_random, 0);
-		jsB_propf(J, "Math.round", Math_round, 1);
-		jsB_propf(J, "Math.sin", Math_sin, 1);
-		jsB_propf(J, "Math.sqrt", Math_sqrt, 1);
-		jsB_propf(J, "Math.tan", Math_tan, 1);
-	}
-	js_defglobal(J, "Math", JS_DONTENUM);
-}

package/vendor/mujs/jsnumber.c

@@ -1,198 +0,0 @@
-#include "jsi.h"
-
-#if defined(_MSC_VER) && (_MSC_VER < 1700) /* VS2012 has stdint.h */
-typedef unsigned __int64 uint64_t;
-#else
-#include <stdint.h>
-#endif
-
-static void jsB_new_Number(js_State *J)
-{
-	js_newnumber(J, js_gettop(J) > 1 ? js_tonumber(J, 1) : 0);
-}
-
-static void jsB_Number(js_State *J)
-{
-	js_pushnumber(J, js_gettop(J) > 1 ? js_tonumber(J, 1) : 0);
-}
-
-static void Np_valueOf(js_State *J)
-{
-	js_Object *self = js_toobject(J, 0);
-	if (self->type != JS_CNUMBER) js_typeerror(J, "not a number");
-	js_pushnumber(J, self->u.number);
-}
-
-static void Np_toString(js_State *J)
-{
-	char buf[100];
-	js_Object *self = js_toobject(J, 0);
-	int radix = js_isundefined(J, 1) ? 10 : js_tointeger(J, 1);
-	double x = 0;
-	if (self->type != JS_CNUMBER)
-		js_typeerror(J, "not a number");
-	x = self->u.number;
-	if (radix == 10) {
-		js_pushstring(J, jsV_numbertostring(J, buf, x));
-		return;
-	}
-	if (radix < 2 || radix > 36)
-		js_rangeerror(J, "invalid radix");
-
-	/* lame number to string conversion for any radix from 2 to 36 */
-	{
-		static const char digits[] = "0123456789abcdefghijklmnopqrstuvwxyz";
-		double number = x;
-		int sign = x < 0;
-		js_Buffer *sb = NULL;
-		uint64_t u, limit = ((uint64_t)1<<52);
-
-		int ndigits, exp, point;
-
-		if (number == 0) { js_pushstring(J, "0"); return; }
-		if (isnan(number)) { js_pushstring(J, "NaN"); return; }
-		if (isinf(number)) { js_pushstring(J, sign ? "-Infinity" : "Infinity"); return; }
-
-		if (sign)
-			number = -number;
-
-		/* fit as many digits as we want in an int */
-		exp = 0;
-		while (number * pow(radix, exp) > limit)
-			--exp;
-		while (number * pow(radix, exp+1) < limit)
-			++exp;
-		u = number * pow(radix, exp) + 0.5;
-
-		/* trim trailing zeros */
-		while (u > 0 && (u % radix) == 0) {
-			u /= radix;
-			--exp;
-		}
-
-		/* serialize digits */
-		ndigits = 0;
-		while (u > 0) {
-			buf[ndigits++] = digits[u % radix];
-			u /= radix;
-		}
-		point = ndigits - exp;
-
-		if (js_try(J)) {
-			js_free(J, sb);
-			js_throw(J);
-		}
-
-		if (sign)
-			js_putc(J, &sb, '-');
-
-		if (point <= 0) {
-			js_putc(J, &sb, '0');
-			js_putc(J, &sb, '.');
-			while (point++ < 0)
-				js_putc(J, &sb, '0');
-			while (ndigits-- > 0)
-				js_putc(J, &sb, buf[ndigits]);
-		} else {
-			while (ndigits-- > 0) {
-				js_putc(J, &sb, buf[ndigits]);
-				if (--point == 0 && ndigits > 0)
-					js_putc(J, &sb, '.');
-			}
-			while (point-- > 0)
-				js_putc(J, &sb, '0');
-		}
-
-		js_putc(J, &sb, 0);
-		js_pushstring(J, sb->s);
-
-		js_endtry(J);
-		js_free(J, sb);
-	}
-}
-
-/* Customized ToString() on a number */
-static void numtostr(js_State *J, const char *fmt, int w, double n)
-{
-	/* buf needs to fit printf("%.20f", 1e20) */
-	char buf[50], *e;
-	sprintf(buf, fmt, w, n);
-	e = strchr(buf, 'e');
-	if (e) {
-		int exp = atoi(e+1);
-		sprintf(e, "e%+d", exp);
-	}
-	js_pushstring(J, buf);
-}
-
-static void Np_toFixed(js_State *J)
-{
-	js_Object *self = js_toobject(J, 0);
-	int width = js_tointeger(J, 1);
-	char buf[32];
-	double x;
-	if (self->type != JS_CNUMBER) js_typeerror(J, "not a number");
-	if (width < 0) js_rangeerror(J, "precision %d out of range", width);
-	if (width > 20) js_rangeerror(J, "precision %d out of range", width);
-	x = self->u.number;
-	if (isnan(x) || isinf(x) || x <= -1e21 || x >= 1e21)
-		js_pushstring(J, jsV_numbertostring(J, buf, x));
-	else
-		numtostr(J, "%.*f", width, x);
-}
-
-static void Np_toExponential(js_State *J)
-{
-	js_Object *self = js_toobject(J, 0);
-	int width = js_tointeger(J, 1);
-	char buf[32];
-	double x;
-	if (self->type != JS_CNUMBER) js_typeerror(J, "not a number");
-	if (width < 0) js_rangeerror(J, "precision %d out of range", width);
-	if (width > 20) js_rangeerror(J, "precision %d out of range", width);
-	x = self->u.number;
-	if (isnan(x) || isinf(x))
-		js_pushstring(J, jsV_numbertostring(J, buf, x));
-	else
-		numtostr(J, "%.*e", width, x);
-}
-
-static void Np_toPrecision(js_State *J)
-{
-	js_Object *self = js_toobject(J, 0);
-	int width = js_tointeger(J, 1);
-	char buf[32];
-	double x;
-	if (self->type != JS_CNUMBER) js_typeerror(J, "not a number");
-	if (width < 1) js_rangeerror(J, "precision %d out of range", width);
-	if (width > 21) js_rangeerror(J, "precision %d out of range", width);
-	x = self->u.number;
-	if (isnan(x) || isinf(x))
-		js_pushstring(J, jsV_numbertostring(J, buf, x));
-	else
-		numtostr(J, "%.*g", width, x);
-}
-
-void jsB_initnumber(js_State *J)
-{
-	J->Number_prototype->u.number = 0;
-
-	js_pushobject(J, J->Number_prototype);
-	{
-		jsB_propf(J, "Number.prototype.valueOf", Np_valueOf, 0);
-		jsB_propf(J, "Number.prototype.toString", Np_toString, 1);
-		jsB_propf(J, "Number.prototype.toLocaleString", Np_toString, 0);
-		jsB_propf(J, "Number.prototype.toFixed", Np_toFixed, 1);
-		jsB_propf(J, "Number.prototype.toExponential", Np_toExponential, 1);
-		jsB_propf(J, "Number.prototype.toPrecision", Np_toPrecision, 1);
-	}
-	js_newcconstructor(J, jsB_Number, jsB_new_Number, "Number", 0); /* 1 */
-	{
-		jsB_propn(J, "MAX_VALUE", 1.7976931348623157e+308);
-		jsB_propn(J, "MIN_VALUE", 5e-324);
-		jsB_propn(J, "NaN", NAN);
-		jsB_propn(J, "NEGATIVE_INFINITY", -INFINITY);
-		jsB_propn(J, "POSITIVE_INFINITY", INFINITY);
-	}
-	js_defglobal(J, "Number", JS_DONTENUM);
-}