#include "jsi.h"#include "jslex.h"#include "jscompile.h"#include "jsvalue.h"#include "utf.h" #define JSV_ISSTRING(v) (v->type==JS_TSHRSTR || v->type==JS_TMEMSTR || v->type==JS_TLITSTR)#define JSV_TOSTRING(v) (v->type==JS_TSHRSTR ? v->u.shrstr : v->type==JS_TLITSTR ? v->u.litstr : v->type==JS_TMEMSTR ? v->u.memstr->p : "") double js_strtol(const char *s, char **p, int base){	/* ascii -> digit value. max base is 36. */	static const unsigned char table[256] = {		80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80,		80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80,		80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80,		0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 80, 80, 80, 80, 80, 80,		80, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24,		25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 80, 80, 80, 80, 80,		80, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24,		25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 80, 80, 80, 80, 80,		80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80,		80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80,		80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80,		80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80,		80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80,		80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80,		80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80,		80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80	};	double x;	unsigned char c;	if (base == 10)		for (x = 0, c = *s++; (0 <= c - '0') && (c - '0' < 10); c = *s++)			x = x * 10 + (c - '0');	else		for (x = 0, c = *s++; table[c] < base; c = *s++)			x = x * base + table[c];	if (p)		*p = (char*)s-1;	return x;} int jsV_numbertointeger(double n){	if (n == 0) return 0;	if (isnan(n)) return 0;	n = (n < 0) ? -floor(-n) : floor(n);	if (n < INT_MIN) return INT_MIN;	if (n > INT_MAX) return INT_MAX;	return (int)n;} int jsV_numbertoint32(double n){	double two32 = 4294967296.0;	double two31 = 2147483648.0; 	if (!isfinite(n) || n == 0)		return 0; 	n = fmod(n, two32);	n = n >= 0 ? floor(n) : ceil(n) + two32;	if (n >= two31)		return n - two32;	else		return n;} unsigned int jsV_numbertouint32(double n){	return (unsigned int)jsV_numbertoint32(n);} short jsV_numbertoint16(double n){	return jsV_numbertoint32(n);} unsigned short jsV_numbertouint16(double n){	return jsV_numbertoint32(n);} /* obj.toString() */static int jsV_toString(js_State *J, js_Object *obj){	js_pushobject(J, obj);	js_getproperty(J, -1, "toString");	if (js_iscallable(J, -1)) {		js_rot2(J);		js_call(J, 0);		if (js_isprimitive(J, -1))			return 1;		js_pop(J, 1);		return 0;	}	js_pop(J, 2);	return 0;} /* obj.valueOf() */static int jsV_valueOf(js_State *J, js_Object *obj){	js_pushobject(J, obj);	js_getproperty(J, -1, "valueOf");	if (js_iscallable(J, -1)) {		js_rot2(J);		js_call(J, 0);		if (js_isprimitive(J, -1))			return 1;		js_pop(J, 1);		return 0;	}	js_pop(J, 2);	return 0;} /* ToPrimitive() on a value */void jsV_toprimitive(js_State *J, js_Value *v, int preferred){	js_Object *obj; 	if (v->type != JS_TOBJECT)		return; 	obj = v->u.object; 	if (preferred == JS_HNONE)		preferred = obj->type == JS_CDATE ? JS_HSTRING : JS_HNUMBER; 	if (preferred == JS_HSTRING) {		if (jsV_toString(J, obj) || jsV_valueOf(J, obj)) {			*v = *js_tovalue(J, -1);			js_pop(J, 1);			return;		}	} else {		if (jsV_valueOf(J, obj) || jsV_toString(J, obj)) {			*v = *js_tovalue(J, -1);			js_pop(J, 1);			return;		}	} 	if (J->strict)		js_typeerror(J, "cannot convert object to primitive"); 	v->type = JS_TLITSTR;	v->u.litstr = "[object]";	return;} /* ToBoolean() on a value */int jsV_toboolean(js_State *J, js_Value *v){	switch (v->type) {	default:	case JS_TSHRSTR: return v->u.shrstr[0] != 0;	case JS_TUNDEFINED: return 0;	case JS_TNULL: return 0;	case JS_TBOOLEAN: return v->u.boolean;	case JS_TNUMBER: return v->u.number != 0 && !isnan(v->u.number);	case JS_TLITSTR: return v->u.litstr[0] != 0;	case JS_TMEMSTR: return v->u.memstr->p[0] != 0;	case JS_TOBJECT: return 1;	}} const char *js_itoa(char *out, int v){	char buf[32], *s = out;	unsigned int a;	int i = 0;	if (v < 0) {		a = -v;		*s++ = '-';	} else {		a = v;	}	while (a) {		buf[i++] = (a % 10) + '0';		a /= 10;	}	if (i == 0)		buf[i++] = '0';	while (i > 0)		*s++ = buf[--i];	*s = 0;	return out;} double js_stringtofloat(const char *s, char **ep){	char *end;	double n;	const char *e = s;	int isflt = 0;	if (*e == '+' || *e == '-') ++e;	while (*e >= '0' && *e <= '9') ++e;	if (*e == '.') { ++e; isflt = 1; }	while (*e >= '0' && *e <= '9') ++e;	if (*e == 'e' || *e == 'E') {		++e;		if (*e == '+' || *e == '-') ++e;		while (*e >= '0' && *e <= '9') ++e;		isflt = 1;	}	if (isflt)		n = js_strtod(s, &end);	else		n = js_strtol(s, &end, 10);	if (end == e) {		*ep = (char*)e;		return n;	}	*ep = (char*)s;	return 0;} /* ToNumber() on a string */double jsV_stringtonumber(js_State *J, const char *s){	char *e;	double n;	while (jsY_iswhite(*s) || jsY_isnewline(*s)) ++s;	if (s[0] == '0' && (s[1] == 'x' || s[1] == 'X') && s[2] != 0)		n = js_strtol(s + 2, &e, 16);	else if (!strncmp(s, "Infinity", 8))		n = INFINITY, e = (char*)s + 8;	else if (!strncmp(s, "+Infinity", 9))		n = INFINITY, e = (char*)s + 9;	else if (!strncmp(s, "-Infinity", 9))		n = -INFINITY, e = (char*)s + 9;	else		n = js_stringtofloat(s, &e);	while (jsY_iswhite(*e) || jsY_isnewline(*e)) ++e;	if (*e) return NAN;	return n;} /* ToNumber() on a value */double jsV_tonumber(js_State *J, js_Value *v){	switch (v->type) {	default:	case JS_TSHRSTR: return jsV_stringtonumber(J, v->u.shrstr);	case JS_TUNDEFINED: return NAN;	case JS_TNULL: return 0;	case JS_TBOOLEAN: return v->u.boolean;	case JS_TNUMBER: return v->u.number;	case JS_TLITSTR: return jsV_stringtonumber(J, v->u.litstr);	case JS_TMEMSTR: return jsV_stringtonumber(J, v->u.memstr->p);	case JS_TOBJECT:		jsV_toprimitive(J, v, JS_HNUMBER);		return jsV_tonumber(J, v);	}} double jsV_tointeger(js_State *J, js_Value *v){	return jsV_numbertointeger(jsV_tonumber(J, v));} /* ToString() on a number */const char *jsV_numbertostring(js_State *J, char buf[32], double f){	char digits[32], *p = buf, *s = digits;	int exp, ndigits, point; 	if (f == 0) return "0";	if (isnan(f)) return "NaN";	if (isinf(f)) return f < 0 ? "-Infinity" : "Infinity"; 	/* Fast case for integers. This only works assuming all integers can be	 * exactly represented by a float. This is true for 32-bit integers and	 * 64-bit floats. */	if (f >= INT_MIN && f <= INT_MAX) {		int i = (int)f;		if ((double)i == f)			return js_itoa(buf, i);	} 	ndigits = js_grisu2(f, digits, &exp);	point = ndigits + exp; 	if (signbit(f))		*p++ = '-'; 	if (point < -5 || point > 21) {		*p++ = *s++;		if (ndigits > 1) {			int n = ndigits - 1;			*p++ = '.';			while (n--)				*p++ = *s++;		}		js_fmtexp(p, point - 1);	} 	else if (point <= 0) {		*p++ = '0';		*p++ = '.';		while (point++ < 0)			*p++ = '0';		while (ndigits-- > 0)			*p++ = *s++;		*p = 0;	} 	else {		while (ndigits-- > 0) {			*p++ = *s++;			if (--point == 0 && ndigits > 0)				*p++ = '.';		}		while (point-- > 0)			*p++ = '0';		*p = 0;	} 	return buf;} /* ToString() on a value */const char *jsV_tostring(js_State *J, js_Value *v){	char buf[32];	const char *p;	switch (v->type) {	default:	case JS_TSHRSTR: return v->u.shrstr;	case JS_TUNDEFINED: return "undefined";	case JS_TNULL: return "null";	case JS_TBOOLEAN: return v->u.boolean ? "true" : "false";	case JS_TLITSTR: return v->u.litstr;	case JS_TMEMSTR: return v->u.memstr->p;	case JS_TNUMBER:		p = jsV_numbertostring(J, buf, v->u.number);		if (p == buf) {			int n = strlen(p);			if (n <= soffsetof(js_Value, type)) {				char *s = v->u.shrstr;				while (n--) *s++ = *p++;				*s = 0;				v->type = JS_TSHRSTR;				return v->u.shrstr;			} else {				v->u.memstr = jsV_newmemstring(J, p, n);				v->type = JS_TMEMSTR;				return v->u.memstr->p;			}		}		return p;	case JS_TOBJECT:		jsV_toprimitive(J, v, JS_HSTRING);		return jsV_tostring(J, v);	}} /* Objects */ static js_Object *jsV_newboolean(js_State *J, int v){	js_Object *obj = jsV_newobject(J, JS_CBOOLEAN, J->Boolean_prototype);	obj->u.boolean = v;	return obj;} static js_Object *jsV_newnumber(js_State *J, double v){	js_Object *obj = jsV_newobject(J, JS_CNUMBER, J->Number_prototype);	obj->u.number = v;	return obj;} static js_Object *jsV_newstring(js_State *J, const char *v){	js_Object *obj = jsV_newobject(J, JS_CSTRING, J->String_prototype);	obj->u.s.string = js_intern(J, v); /* TODO: js_String */	obj->u.s.length = utflen(v);	return obj;} /* ToObject() on a value */js_Object *jsV_toobject(js_State *J, js_Value *v){	switch (v->type) {	default:	case JS_TSHRSTR: return jsV_newstring(J, v->u.shrstr);	case JS_TUNDEFINED: js_typeerror(J, "cannot convert undefined to object");	case JS_TNULL: js_typeerror(J, "cannot convert null to object");	case JS_TBOOLEAN: return jsV_newboolean(J, v->u.boolean);	case JS_TNUMBER: return jsV_newnumber(J, v->u.number);	case JS_TLITSTR: return jsV_newstring(J, v->u.litstr);	case JS_TMEMSTR: return jsV_newstring(J, v->u.memstr->p);	case JS_TOBJECT: return v->u.object;	}} void js_newobjectx(js_State *J){	js_Object *prototype = NULL;	if (js_isobject(J, -1))		prototype = js_toobject(J, -1);	js_pop(J, 1);	js_pushobject(J, jsV_newobject(J, JS_COBJECT, prototype));} void js_newobject(js_State *J){	js_pushobject(J, jsV_newobject(J, JS_COBJECT, J->Object_prototype));} void js_newarguments(js_State *J){	js_pushobject(J, jsV_newobject(J, JS_CARGUMENTS, J->Object_prototype));} void js_newarray(js_State *J){	js_pushobject(J, jsV_newobject(J, JS_CARRAY, J->Array_prototype));} void js_newboolean(js_State *J, int v){	js_pushobject(J, jsV_newboolean(J, v));} void js_newnumber(js_State *J, double v){	js_pushobject(J, jsV_newnumber(J, v));} void js_newstring(js_State *J, const char *v){	js_pushobject(J, jsV_newstring(J, v));} void js_newfunction(js_State *J, js_Function *fun, js_Environment *scope){	js_Object *obj = jsV_newobject(J, JS_CFUNCTION, J->Function_prototype);	obj->u.f.function = fun;	obj->u.f.scope = scope;	js_pushobject(J, obj);	{		js_pushnumber(J, fun->numparams);		js_defproperty(J, -2, "length", JS_READONLY | JS_DONTENUM | JS_DONTCONF);		js_newobject(J);		{			js_copy(J, -2);			js_defproperty(J, -2, "constructor", JS_DONTENUM);		}		js_defproperty(J, -2, "prototype", JS_DONTENUM | JS_DONTCONF);	}} void js_newscript(js_State *J, js_Function *fun, js_Environment *scope){	js_Object *obj = jsV_newobject(J, JS_CSCRIPT, NULL);	obj->u.f.function = fun;	obj->u.f.scope = scope;	js_pushobject(J, obj);} void js_newcfunction(js_State *J, js_CFunction cfun, const char *name, int length){	js_Object *obj = jsV_newobject(J, JS_CCFUNCTION, J->Function_prototype);	obj->u.c.name = name;	obj->u.c.function = cfun;	obj->u.c.constructor = NULL;	obj->u.c.length = length;	js_pushobject(J, obj);	{		js_pushnumber(J, length);		js_defproperty(J, -2, "length", JS_READONLY | JS_DONTENUM | JS_DONTCONF);		js_newobject(J);		{			js_copy(J, -2);			js_defproperty(J, -2, "constructor", JS_DONTENUM);		}		js_defproperty(J, -2, "prototype", JS_DONTENUM | JS_DONTCONF);	}} /* prototype -- constructor */void js_newcconstructor(js_State *J, js_CFunction cfun, js_CFunction ccon, const char *name, int length){	js_Object *obj = jsV_newobject(J, JS_CCFUNCTION, J->Function_prototype);	obj->u.c.name = name;	obj->u.c.function = cfun;	obj->u.c.constructor = ccon;	obj->u.c.length = length;	js_pushobject(J, obj); /* proto obj */	{		js_pushnumber(J, length);		js_defproperty(J, -2, "length", JS_READONLY | JS_DONTENUM | JS_DONTCONF);		js_rot2(J); /* obj proto */		js_copy(J, -2); /* obj proto obj */		js_defproperty(J, -2, "constructor", JS_DONTENUM);

Lines 1–500 of 664. Load more