zig-pug 0.3.0 → 0.3.2

package/vendor/mujs/jserror.c

@@ -1,139 +0,0 @@
-#include "jsi.h"
-
-#define QQ(X) #X
-#define Q(X) QQ(X)
-
-static int jsB_stacktrace(js_State *J, int skip)
-{
-	char buf[256];
-	int n = J->tracetop - skip;
-	if (n <= 0)
-		return 0;
-	for (; n > 0; --n) {
-		const char *name = J->trace[n].name;
-		const char *file = J->trace[n].file;
-		int line = J->trace[n].line;
-		if (line > 0) {
-			if (name[0])
-				snprintf(buf, sizeof buf, "\n\tat %s (%s:%d)", name, file, line);
-			else
-				snprintf(buf, sizeof buf, "\n\tat %s:%d", file, line);
-		} else
-			snprintf(buf, sizeof buf, "\n\tat %s (%s)", name, file);
-		js_pushstring(J, buf);
-		if (n < J->tracetop - skip)
-			js_concat(J);
-	}
-	return 1;
-}
-
-static void Ep_toString(js_State *J)
-{
-	const char *name = "Error";
-	const char *message = "";
-
-	if (!js_isobject(J, -1))
-		js_typeerror(J, "not an object");
-
-	if (js_hasproperty(J, 0, "name"))
-		name = js_tostring(J, -1);
-	if (js_hasproperty(J, 0, "message"))
-		message = js_tostring(J, -1);
-
-	if (name[0] == 0)
-		js_pushstring(J, message);
-	else if (message[0] == 0)
-		js_pushstring(J, name);
-	else {
-		js_pushstring(J, name);
-		js_pushstring(J, ": ");
-		js_concat(J);
-		js_pushstring(J, message);
-		js_concat(J);
-	}
-}
-
-static void Ep_get_stack(js_State *J)
-{
-	Ep_toString(J);
-	js_getproperty(J, 0, "stackTrace");
-	js_concat(J);
-}
-
-static int jsB_ErrorX(js_State *J, js_Object *prototype)
-{
-	js_pushobject(J, jsV_newobject(J, JS_CERROR, prototype));
-	if (js_isdefined(J, 1)) {
-		js_pushstring(J, js_tostring(J, 1));
-		js_defproperty(J, -2, "message", JS_DONTENUM);
-	}
-	if (jsB_stacktrace(J, 1))
-		js_defproperty(J, -2, "stackTrace", JS_DONTENUM);
-	return 1;
-}
-
-static void js_newerrorx(js_State *J, const char *message, js_Object *prototype)
-{
-	js_pushobject(J, jsV_newobject(J, JS_CERROR, prototype));
-	js_pushstring(J, message);
-	js_setproperty(J, -2, "message");
-	if (jsB_stacktrace(J, 0))
-		js_setproperty(J, -2, "stackTrace");
-}
-
-#define DERROR(name, Name) \
-	static void jsB_##Name(js_State *J) { \
-		jsB_ErrorX(J, J->Name##_prototype); \
-	} \
-	void js_new##name(js_State *J, const char *s) { \
-		js_newerrorx(J, s, J->Name##_prototype); \
-	} \
-	void js_##name(js_State *J, const char *fmt, ...) { \
-		va_list ap; \
-		char buf[256]; \
-		va_start(ap, fmt); \
-		vsnprintf(buf, sizeof buf, fmt, ap); \
-		va_end(ap); \
-		js_newerrorx(J, buf, J->Name##_prototype); \
-		js_throw(J); \
-	}
-
-DERROR(error, Error)
-DERROR(evalerror, EvalError)
-DERROR(rangeerror, RangeError)
-DERROR(referenceerror, ReferenceError)
-DERROR(syntaxerror, SyntaxError)
-DERROR(typeerror, TypeError)
-DERROR(urierror, URIError)
-
-#undef DERROR
-
-void jsB_initerror(js_State *J)
-{
-	js_pushobject(J, J->Error_prototype);
-	{
-		jsB_props(J, "name", "Error");
-		jsB_propf(J, "Error.prototype.toString", Ep_toString, 0);
-
-		js_newcfunction(J, Ep_get_stack, "stack", 0);
-		js_pushnull(J);
-		js_defaccessor(J, -3, "stack", JS_READONLY | JS_DONTENUM | JS_DONTCONF);
-	}
-	js_newcconstructor(J, jsB_Error, jsB_Error, "Error", 1);
-	js_defglobal(J, "Error", JS_DONTENUM);
-
-	#define IERROR(NAME) \
-		js_pushobject(J, J->NAME##_prototype); \
-		jsB_props(J, "name", Q(NAME)); \
-		js_newcconstructor(J, jsB_##NAME, jsB_##NAME, Q(NAME), 1); \
-		js_defglobal(J, Q(NAME), JS_DONTENUM);
-
-	IERROR(EvalError);
-	IERROR(RangeError);
-	IERROR(ReferenceError);
-	IERROR(SyntaxError);
-	IERROR(TypeError);
-	IERROR(URIError);
-
-	#undef IERROR
-}

package/vendor/mujs/jsfunction.c

@@ -1,231 +0,0 @@
-#include "jsi.h"
-
-static void jsB_Function(js_State *J)
-{
-	int i, top = js_gettop(J);
-	js_Buffer *sb = NULL;
-	const char *body;
-	js_Ast *parse;
-	js_Function *fun;
-
-	if (js_try(J)) {
-		js_free(J, sb);
-		jsP_freeparse(J);
-		js_throw(J);
-	}
-
-	/* p1, p2, ..., pn */
-	if (top > 2) {
-		for (i = 1; i < top - 1; ++i) {
-			if (i > 1)
-				js_putc(J, &sb, ',');
-			js_puts(J, &sb, js_tostring(J, i));
-		}
-		js_putc(J, &sb, ')');
-		js_putc(J, &sb, 0);
-	}
-
-	/* body */
-	body = js_isdefined(J, top - 1) ? js_tostring(J, top - 1) : "";
-
-	parse = jsP_parsefunction(J, "[string]", sb ? sb->s : NULL, body);
-	fun = jsC_compilefunction(J, parse);
-
-	js_endtry(J);
-	js_free(J, sb);
-	jsP_freeparse(J);
-
-	js_newfunction(J, fun, J->GE);
-}
-
-static void jsB_Function_prototype(js_State *J)
-{
-	js_pushundefined(J);
-}
-
-static void Fp_toString(js_State *J)
-{
-	js_Object *self = js_toobject(J, 0);
-	js_Buffer *sb = NULL;
-	int i;
-
-	if (!js_iscallable(J, 0))
-		js_typeerror(J, "not a function");
-
-	if (self->type == JS_CFUNCTION || self->type == JS_CSCRIPT) {
-		js_Function *F = self->u.f.function;
-
-		if (js_try(J)) {
-			js_free(J, sb);
-			js_throw(J);
-		}
-
-		js_puts(J, &sb, "function ");
-		js_puts(J, &sb, F->name);
-		js_putc(J, &sb, '(');
-		for (i = 0; i < F->numparams; ++i) {
-			if (i > 0) js_putc(J, &sb, ',');
-			js_puts(J, &sb, F->vartab[i]);
-		}
-		js_puts(J, &sb, ") { [byte code] }");
-		js_putc(J, &sb, 0);
-
-		js_pushstring(J, sb->s);
-		js_endtry(J);
-		js_free(J, sb);
-	} else if (self->type == JS_CCFUNCTION) {
-		if (js_try(J)) {
-			js_free(J, sb);
-			js_throw(J);
-		}
-
-		js_puts(J, &sb, "function ");
-		js_puts(J, &sb, self->u.c.name);
-		js_puts(J, &sb, "() { [native code] }");
-		js_putc(J, &sb, 0);
-
-		js_pushstring(J, sb->s);
-		js_endtry(J);
-		js_free(J, sb);
-	} else {
-		js_pushliteral(J, "function () { }");
-	}
-}
-
-static void Fp_apply(js_State *J)
-{
-	int i, n;
-
-	if (!js_iscallable(J, 0))
-		js_typeerror(J, "not a function");
-
-	js_copy(J, 0);
-	js_copy(J, 1);
-
-	if (js_isnull(J, 2) || js_isundefined(J, 2)) {
-		n = 0;
-	} else {
-		n = js_getlength(J, 2);
-		if (n < 0)
-			n = 0;
-		for (i = 0; i < n; ++i)
-			js_getindex(J, 2, i);
-	}
-
-	js_call(J, n);
-}
-
-static void Fp_call(js_State *J)
-{
-	int i, top = js_gettop(J);
-
-	if (!js_iscallable(J, 0))
-		js_typeerror(J, "not a function");
-
-	for (i = 0; i < top; ++i)
-		js_copy(J, i);
-
-	js_call(J, top - 2);
-}
-
-static void callbound(js_State *J)
-{
-	int top = js_gettop(J);
-	int i, fun, args, n;
-
-	fun = js_gettop(J);
-	js_currentfunction(J);
-	js_getproperty(J, fun, "__TargetFunction__");
-	js_getproperty(J, fun, "__BoundThis__");
-
-	args = js_gettop(J);
-	js_getproperty(J, fun, "__BoundArguments__");
-	n = js_getlength(J, args);
-	if (n < 0)
-		n = 0;
-	for (i = 0; i < n; ++i)
-		js_getindex(J, args, i);
-	js_remove(J, args);
-
-	for (i = 1; i < top; ++i)
-		js_copy(J, i);
-
-	js_call(J, n + top - 1);
-}
-
-static void constructbound(js_State *J)
-{
-	int top = js_gettop(J);
-	int i, fun, args, n;
-
-	fun = js_gettop(J);
-	js_currentfunction(J);
-	js_getproperty(J, fun, "__TargetFunction__");
-
-	args = js_gettop(J);
-	js_getproperty(J, fun, "__BoundArguments__");
-	n = js_getlength(J, args);
-	if (n < 0)
-		n = 0;
-	for (i = 0; i < n; ++i)
-		js_getindex(J, args, i);
-	js_remove(J, args);
-
-	for (i = 1; i < top; ++i)
-		js_copy(J, i);
-
-	js_construct(J, n + top - 1);
-}
-
-static void Fp_bind(js_State *J)
-{
-	int i, top = js_gettop(J);
-	int n;
-
-	if (!js_iscallable(J, 0))
-		js_typeerror(J, "not a function");
-
-	n = js_getlength(J, 0);
-	if (n > top - 2)
-		n -= top - 2;
-	else
-		n = 0;
-
-	/* Reuse target function's prototype for HasInstance check. */
-	js_getproperty(J, 0, "prototype");
-	js_newcconstructor(J, callbound, constructbound, "[bind]", n);
-
-	/* target function */
-	js_copy(J, 0);
-	js_defproperty(J, -2, "__TargetFunction__", JS_READONLY | JS_DONTENUM | JS_DONTCONF);
-
-	/* bound this */
-	js_copy(J, 1);
-	js_defproperty(J, -2, "__BoundThis__", JS_READONLY | JS_DONTENUM | JS_DONTCONF);
-
-	/* bound arguments */
-	js_newarray(J);
-	for (i = 2; i < top; ++i) {
-		js_copy(J, i);
-		js_setindex(J, -2, i - 2);
-	}
-	js_defproperty(J, -2, "__BoundArguments__", JS_READONLY | JS_DONTENUM | JS_DONTCONF);
-}
-
-void jsB_initfunction(js_State *J)
-{
-	J->Function_prototype->u.c.name = "Function.prototype";
-	J->Function_prototype->u.c.function = jsB_Function_prototype;
-	J->Function_prototype->u.c.constructor = NULL;
-	J->Function_prototype->u.c.length = 0;
-
-	js_pushobject(J, J->Function_prototype);
-	{
-		jsB_propf(J, "Function.prototype.toString", Fp_toString, 2);
-		jsB_propf(J, "Function.prototype.apply", Fp_apply, 2);
-		jsB_propf(J, "Function.prototype.call", Fp_call, 1);
-		jsB_propf(J, "Function.prototype.bind", Fp_bind, 1);
-	}
-	js_newcconstructor(J, jsB_Function, jsB_Function, "Function", 1);
-	js_defglobal(J, "Function", JS_DONTENUM);
-}

package/vendor/mujs/jsgc.c

@@ -1,284 +0,0 @@
-#include "jsi.h"
-#include "regexp.h"
-
-static void jsG_freeenvironment(js_State *J, js_Environment *env)
-{
-	js_free(J, env);
-}
-
-static void jsG_freefunction(js_State *J, js_Function *fun)
-{
-	js_free(J, fun->funtab);
-	js_free(J, fun->vartab);
-	js_free(J, fun->code);
-	js_free(J, fun);
-}
-
-static void jsG_freeproperty(js_State *J, js_Property *node)
-{
-	if (node->left->level) jsG_freeproperty(J, node->left);
-	if (node->right->level) jsG_freeproperty(J, node->right);
-	js_free(J, node);
-}
-
-static void jsG_freeiterator(js_State *J, js_Iterator *node)
-{
-	while (node) {
-		js_Iterator *next = node->next;
-		js_free(J, node);
-		node = next;
-	}
-}
-
-static void jsG_freeobject(js_State *J, js_Object *obj)
-{
-	if (obj->properties->level)
-		jsG_freeproperty(J, obj->properties);
-	if (obj->type == JS_CREGEXP) {
-		js_free(J, obj->u.r.source);
-		js_regfreex(J->alloc, J->actx, obj->u.r.prog);
-	}
-	if (obj->type == JS_CSTRING) {
-		if (obj->u.s.string != obj->u.s.shrstr)
-			js_free(J, obj->u.s.string);
-	}
-	if (obj->type == JS_CARRAY && obj->u.a.simple)
-		js_free(J, obj->u.a.array);
-	if (obj->type == JS_CITERATOR)
-		jsG_freeiterator(J, obj->u.iter.head);
-	if (obj->type == JS_CUSERDATA && obj->u.user.finalize)
-		obj->u.user.finalize(J, obj->u.user.data);
-	if (obj->type == JS_CCFUNCTION && obj->u.c.finalize)
-		obj->u.c.finalize(J, obj->u.c.data);
-	js_free(J, obj);
-}
-
-/* Mark and add object to scan queue */
-static void jsG_markobject(js_State *J, int mark, js_Object *obj)
-{
-	obj->gcmark = mark;
-	obj->gcroot = J->gcroot;
-	J->gcroot = obj;
-}
-
-static void jsG_markfunction(js_State *J, int mark, js_Function *fun)
-{
-	int i;
-	fun->gcmark = mark;
-	for (i = 0; i < fun->funlen; ++i)
-		if (fun->funtab[i]->gcmark != mark)
-			jsG_markfunction(J, mark, fun->funtab[i]);
-}
-
-static void jsG_markenvironment(js_State *J, int mark, js_Environment *env)
-{
-	do {
-		env->gcmark = mark;
-		if (env->variables->gcmark != mark)
-			jsG_markobject(J, mark, env->variables);
-		env = env->outer;
-	} while (env && env->gcmark != mark);
-}
-
-static void jsG_markproperty(js_State *J, int mark, js_Property *node)
-{
-	if (node->left->level) jsG_markproperty(J, mark, node->left);
-	if (node->right->level) jsG_markproperty(J, mark, node->right);
-
-	if (node->value.t.type == JS_TMEMSTR && node->value.u.memstr->gcmark != mark)
-		node->value.u.memstr->gcmark = mark;
-	if (node->value.t.type == JS_TOBJECT && node->value.u.object->gcmark != mark)
-		jsG_markobject(J, mark, node->value.u.object);
-	if (node->getter && node->getter->gcmark != mark)
-		jsG_markobject(J, mark, node->getter);
-	if (node->setter && node->setter->gcmark != mark)
-		jsG_markobject(J, mark, node->setter);
-}
-
-/* Mark everything the object can reach. */
-static void jsG_scanobject(js_State *J, int mark, js_Object *obj)
-{
-	if (obj->properties->level)
-		jsG_markproperty(J, mark, obj->properties);
-	if (obj->prototype && obj->prototype->gcmark != mark)
-		jsG_markobject(J, mark, obj->prototype);
-	if (obj->type == JS_CARRAY && obj->u.a.simple) {
-		int i;
-		for (i = 0; i < obj->u.a.flat_length; ++i) {
-			js_Value *v = &obj->u.a.array[i];
-			if (v->t.type == JS_TMEMSTR && v->u.memstr->gcmark != mark)
-				v->u.memstr->gcmark = mark;
-			if (v->t.type == JS_TOBJECT && v->u.object->gcmark != mark)
-				jsG_markobject(J, mark, v->u.object);
-		}
-	}
-	if (obj->type == JS_CITERATOR && obj->u.iter.target->gcmark != mark) {
-		jsG_markobject(J, mark, obj->u.iter.target);
-	}
-	if (obj->type == JS_CFUNCTION || obj->type == JS_CSCRIPT) {
-		if (obj->u.f.scope && obj->u.f.scope->gcmark != mark)
-			jsG_markenvironment(J, mark, obj->u.f.scope);
-		if (obj->u.f.function && obj->u.f.function->gcmark != mark)
-			jsG_markfunction(J, mark, obj->u.f.function);
-	}
-}
-
-static void jsG_markstack(js_State *J, int mark)
-{
-	js_Value *v = J->stack;
-	int n = J->top;
-	while (n--) {
-		if (v->t.type == JS_TMEMSTR && v->u.memstr->gcmark != mark)
-			v->u.memstr->gcmark = mark;
-		if (v->t.type == JS_TOBJECT && v->u.object->gcmark != mark)
-			jsG_markobject(J, mark, v->u.object);
-		++v;
-	}
-}
-
-void js_gc(js_State *J, int report)
-{
-	js_Function *fun, *nextfun, **prevnextfun;
-	js_Object *obj, *nextobj, **prevnextobj;
-	js_String *str, *nextstr, **prevnextstr;
-	js_Environment *env, *nextenv, **prevnextenv;
-	unsigned int nenv = 0, nfun = 0, nobj = 0, nstr = 0, nprop = 0;
-	unsigned int genv = 0, gfun = 0, gobj = 0, gstr = 0, gprop = 0;
-	int mark;
-	int i;
-
-	mark = J->gcmark = J->gcmark == 1 ? 2 : 1;
-
-	/* Add initial roots. */
-
-	jsG_markobject(J, mark, J->Object_prototype);
-	jsG_markobject(J, mark, J->Array_prototype);
-	jsG_markobject(J, mark, J->Function_prototype);
-	jsG_markobject(J, mark, J->Boolean_prototype);
-	jsG_markobject(J, mark, J->Number_prototype);
-	jsG_markobject(J, mark, J->String_prototype);
-	jsG_markobject(J, mark, J->RegExp_prototype);
-	jsG_markobject(J, mark, J->Date_prototype);
-
-	jsG_markobject(J, mark, J->Error_prototype);
-	jsG_markobject(J, mark, J->EvalError_prototype);
-	jsG_markobject(J, mark, J->RangeError_prototype);
-	jsG_markobject(J, mark, J->ReferenceError_prototype);
-	jsG_markobject(J, mark, J->SyntaxError_prototype);
-	jsG_markobject(J, mark, J->TypeError_prototype);
-	jsG_markobject(J, mark, J->URIError_prototype);
-
-	jsG_markobject(J, mark, J->R);
-	jsG_markobject(J, mark, J->G);
-
-	jsG_markstack(J, mark);
-
-	jsG_markenvironment(J, mark, J->E);
-	jsG_markenvironment(J, mark, J->GE);
-	for (i = 0; i < J->envtop; ++i)
-		jsG_markenvironment(J, mark, J->envstack[i]);
-
-	/* Scan objects until none remain. */
-
-	while ((obj = J->gcroot) != NULL) {
-		J->gcroot = obj->gcroot;
-		obj->gcroot = NULL;
-		jsG_scanobject(J, mark, obj);
-	}
-
-	/* Free everything not marked. */
-
-	prevnextenv = &J->gcenv;
-	for (env = J->gcenv; env; env = nextenv) {
-		nextenv = env->gcnext;
-		if (env->gcmark != mark) {
-			*prevnextenv = nextenv;
-			jsG_freeenvironment(J, env);
-			++genv;
-		} else {
-			prevnextenv = &env->gcnext;
-		}
-		++nenv;
-	}
-
-	prevnextfun = &J->gcfun;
-	for (fun = J->gcfun; fun; fun = nextfun) {
-		nextfun = fun->gcnext;
-		if (fun->gcmark != mark) {
-			*prevnextfun = nextfun;
-			jsG_freefunction(J, fun);
-			++gfun;
-		} else {
-			prevnextfun = &fun->gcnext;
-		}
-		++nfun;
-	}
-
-	prevnextobj = &J->gcobj;
-	for (obj = J->gcobj; obj; obj = nextobj) {
-		nprop += obj->count;
-		nextobj = obj->gcnext;
-		if (obj->gcmark != mark) {
-			gprop += obj->count;
-			*prevnextobj = nextobj;
-			jsG_freeobject(J, obj);
-			++gobj;
-		} else {
-			prevnextobj = &obj->gcnext;
-		}
-		++nobj;
-	}
-
-	prevnextstr = &J->gcstr;
-	for (str = J->gcstr; str; str = nextstr) {
-		nextstr = str->gcnext;
-		if (str->gcmark != mark) {
-			*prevnextstr = nextstr;
-			js_free(J, str);
-			++gstr;
-		} else {
-			prevnextstr = &str->gcnext;
-		}
-		++nstr;
-	}
-
-	unsigned int ntot = nenv + nfun + nobj + nstr + nprop;
-	unsigned int gtot = genv + gfun + gobj + gstr + gprop;
-	unsigned int remaining = ntot - gtot;
-
-	J->gccounter = remaining;
-	J->gcthresh = remaining * JS_GCFACTOR;
-
-	if (report) {
-		char buf[256];
-		snprintf(buf, sizeof buf, "garbage collected (%d%%): %d/%d envs, %d/%d funs, %d/%d objs, %d/%d props, %d/%d strs",
-			100*gtot/ntot, genv, nenv, gfun, nfun, gobj, nobj, gprop, nprop, gstr, nstr);
-		js_report(J, buf);
-	}
-}
-
-void js_freestate(js_State *J)
-{
-	js_Function *fun, *nextfun;
-	js_Object *obj, *nextobj;
-	js_Environment *env, *nextenv;
-	js_String *str, *nextstr;
-
-	if (!J)
-		return;
-
-	for (env = J->gcenv; env; env = nextenv)
-		nextenv = env->gcnext, jsG_freeenvironment(J, env);
-	for (fun = J->gcfun; fun; fun = nextfun)
-		nextfun = fun->gcnext, jsG_freefunction(J, fun);
-	for (obj = J->gcobj; obj; obj = nextobj)
-		nextobj = obj->gcnext, jsG_freeobject(J, obj);
-	for (str = J->gcstr; str; str = nextstr)
-		nextstr = str->gcnext, js_free(J, str);
-
-	jsS_freestrings(J);
-
-	js_free(J, J->lexbuf.text);
-	J->alloc(J->actx, J->stack, 0);
-	J->alloc(J->actx, J, 0);
-}