ref: 55ad332621a4761674ef84fc9a78e890b8cdc8dd
dir: /jsarray.c/
#include "jsi.h"
#include "jsvalue.h"
#include "jsbuiltin.h"
unsigned int js_getlength(js_State *J, int idx)
{
unsigned int len;
js_getproperty(J, idx, "length");
len = js_touint32(J, -1);
js_pop(J, 1);
return len;
}
void js_setlength(js_State *J, int idx, unsigned int len)
{
js_pushnumber(J, len);
js_setproperty(J, idx, "length");
}
int js_hasindex(js_State *J, int idx, unsigned int i)
{
char buf[32];
sprintf(buf, "%u", i);
return js_hasproperty(J, idx, buf);
}
void js_getindex(js_State *J, int idx, unsigned int i)
{
char buf[32];
sprintf(buf, "%u", i);
js_getproperty(J, idx, buf);
}
void js_setindex(js_State *J, int idx, unsigned int i)
{
char buf[32];
sprintf(buf, "%u", i);
js_setproperty(J, idx, buf);
}
void js_delindex(js_State *J, int idx, unsigned int i)
{
char buf[32];
sprintf(buf, "%u", i);
js_delproperty(J, idx, buf);
}
static int jsB_new_Array(js_State *J, int argc)
{
int i;
js_newarray(J);
if (argc == 1) {
if (js_isnumber(J, 1)) {
js_copy(J, 1);
js_setproperty(J, -2, "length");
} else {
js_copy(J, 1);
js_setindex(J, -2, 0);
}
} else {
for (i = 1; i <= argc; ++i) {
js_copy(J, i);
js_setindex(J, -2, i - 1);
}
}
return 1;
}
static int Ap_concat(js_State *J, int argc)
{
unsigned int n, len, i;
js_newarray(J);
n = 0;
for (i = 0; i <= argc; ++i) {
js_copy(J, i);
if (js_isarray(J, -1)) {
unsigned int k = 0;
len = js_getlength(J, -1);
while (k < len) {
if (js_hasindex(J, -1, k))
js_setindex(J, -3, n);
++k;
++n;
}
js_pop(J, 1);
} else {
js_setindex(J, -2, n);
++n;
}
}
return 1;
}
static int Ap_join(js_State *J, int argc)
{
char * volatile out = NULL;
const char *sep;
const char *r;
unsigned int seplen;
unsigned int k, n, len;
len = js_getlength(J, 0);
if (js_isdefined(J, 1)) {
sep = js_tostring(J, 1);
seplen = strlen(sep);
} else {
sep = ",";
seplen = 1;
}
if (len == 0) {
js_pushliteral(J, "");
return 1;
}
if (js_try(J)) {
free(out);
js_throw(J);
}
n = 1;
for (k = 0; k < len; ++k) {
js_getindex(J, 0, k);
if (js_isundefined(J, -1) || js_isnull(J, -1))
r = "";
else
r = js_tostring(J, -1);
n += strlen(r);
if (k == 0) {
out = malloc(n);
strcpy(out, r);
} else {
n += seplen;
out = realloc(out, n);
strcat(out, sep);
strcat(out, r);
}
js_pop(J, 1);
}
js_pushstring(J, out);
js_endtry(J);
free(out);
return 1;
}
static int Ap_pop(js_State *J, int argc)
{
unsigned int n;
n = js_getlength(J, 0);
if (n > 0) {
js_getindex(J, 0, n - 1);
js_delindex(J, 0, n - 1);
js_setlength(J, 0, n - 1);
} else {
js_setlength(J, 0, 0);
js_pushundefined(J);
}
return 1;
}
static int Ap_push(js_State *J, int argc)
{
unsigned int n;
int i;
n = js_getlength(J, 0);
for (i = 1; i <= argc; ++i, ++n) {
js_copy(J, i);
js_setindex(J, 0, n);
}
js_setlength(J, 0, n);
js_pushnumber(J, n);
return 1;
}
static int Ap_reverse(js_State *J, int argc)
{
unsigned int len, middle, lower;
len = js_getlength(J, 0);
middle = len / 2;
lower = 0;
while (lower != middle) {
unsigned int upper = len - lower - 1;
int haslower = js_hasindex(J, 0, lower);
int hasupper = js_hasindex(J, 0, upper);
if (haslower && hasupper) {
js_setindex(J, 0, lower);
js_setindex(J, 0, upper);
} else if (hasupper) {
js_setindex(J, 0, lower);
js_delindex(J, 0, upper);
} else if (haslower) {
js_setindex(J, 0, upper);
js_delindex(J, 0, lower);
}
++lower;
}
js_copy(J, 0);
return 1;
}
static int Ap_shift(js_State *J, int argc)
{
unsigned int k, len;
len = js_getlength(J, 0);
if (len == 0) {
js_setlength(J, 0, 0);
js_pushundefined(J);
return 1;
}
js_getindex(J, 0, 0);
for (k = 1; k < len; ++k) {
if (js_hasindex(J, 0, k))
js_setindex(J, 0, k - 1);
else
js_delindex(J, 0, k - 1);
}
js_delindex(J, 0, len - 1);
js_setlength(J, 0, len - 1);
return 1;
}
static int Ap_slice(js_State *J, int argc)
{
unsigned int len;
int s, e, n;
js_newarray(J);
len = js_getlength(J, 0);
s = js_tointeger(J, 1);
e = js_isdefined(J, 2) ? js_tointeger(J, 2) : len;
if (s < 0) s = s + len;
if (e < 0) e = e + len;
s = s < 0 ? 0 : s > len ? len : s;
e = e < 0 ? 0 : e > len ? len : e;
for (n = 0; s < e; ++s, ++n)
if (js_hasindex(J, 0, s))
js_setindex(J, -2, n);
return 1;
}
static int compare(js_State *J, unsigned int x, unsigned int y, int *hasx, int *hasy, int hasfn)
{
const char *sx, *sy;
int c;
*hasx = js_hasindex(J, 0, x);
*hasy = js_hasindex(J, 0, y);
if (*hasx && *hasy) {
int unx = js_isundefined(J, -2);
int uny = js_isundefined(J, -1);
if (unx && uny) return 0;
if (unx) return 1;
if (uny) return -1;
if (hasfn) {
js_copy(J, 1); /* copy function */
js_pushglobal(J); /* set this object */
js_copy(J, -4); /* copy x */
js_copy(J, -4); /* copy y */
js_call(J, 2);
c = js_tonumber(J, -1);
js_pop(J, 1);
return c;
}
sx = js_tostring(J, -2);
sy = js_tostring(J, -1);
return strcmp(sx, sy);
}
if (*hasx) return -1;
if (*hasy) return 1;
return 0;
}
static int Ap_sort(js_State *J, int argc)
{
unsigned int len, i, k;
int hasx, hasy, hasfn;
len = js_getlength(J, 0);
hasfn = js_iscallable(J, 1);
for (i = 1; i < len; ++i) {
k = i;
while (k > 0 && compare(J, k - 1, k, &hasx, &hasy, hasfn) > 0) {
if (hasx && hasy) {
js_setindex(J, 0, k - 1);
js_setindex(J, 0, k);
} else if (hasx) {
js_delindex(J, 0, k - 1);
js_setindex(J, 0, k);
} else if (hasy) {
js_setindex(J, 0, k - 1);
js_delindex(J, 0, k);
}
--k;
}
}
js_copy(J, 0);
return 1;
}
static int Ap_splice(js_State *J, int argc)
{
unsigned int len;
int start, del, add, k;
js_newarray(J);
len = js_getlength(J, 0);
start = js_tointeger(J, 1);
if (start < 0) start = start + len;
start = start < 0 ? 0 : start > len ? len : start;
del = js_tointeger(J, 2);
del = del < 0 ? 0 : del > len - start ? len - start : del;
/* copy deleted items to return array */
for (k = 0; k < del; ++k)
if (js_hasindex(J, 0, start + k))
js_setindex(J, -2, k);
/* shift the tail to resize the hole left by deleted items */
add = argc - 2;
if (add < del) {
for (k = start; k < len - del; ++k) {
if (js_hasindex(J, 0, k + del))
js_setindex(J, 0, k + add);
else
js_delindex(J, 0, k + del);
}
for (k = len; k > len - del + add; --k)
js_delindex(J, 0, k - 1);
} else if (add > del) {
for (k = len - del; k > start; --k) {
if (js_hasindex(J, 0, k + del - 1))
js_setindex(J, 0, k + add - 1);
else
js_delindex(J, 0, k + add - 1);
}
}
/* copy new items into the hole */
for (k = 0; k < add; ++k) {
js_copy(J, 3 + k);
js_setindex(J, 0, start + k);
}
js_setlength(J, 0, len - del + add);
return 1;
}
static int Ap_unshift(js_State *J, int argc)
{
unsigned int k, len;
int i;
len = js_getlength(J, 0);
for (k = len; k > 0; --k) {
int from = k - 1;
int to = k + argc - 1;
if (js_hasindex(J, 0, from))
js_setindex(J, 0, to);
else
js_delindex(J, 0, to);
}
for (i = 1; i <= argc; ++i) {
js_copy(J, i);
js_setindex(J, 0, i - 1);
}
js_setlength(J, 0, len + argc);
js_pushnumber(J, len + argc);
return 1;
}
static int Ap_toString(js_State *J, int argc)
{
js_pop(J, argc);
return Ap_join(J, 0);
}
static int Ap_indexOf(js_State *J, int argc)
{
int k, len, from;
len = js_getlength(J, 0);
from = js_isdefined(J, 2) ? js_tointeger(J, 2) : 0;
if (from < 0) from = len + from;
if (from < 0) from = 0;
js_copy(J, 1);
for (k = from; k < len; ++k) {
if (js_hasindex(J, 0, k)) {
if (js_strictequal(J)) {
js_pushnumber(J, k);
return 1;
}
js_pop(J, 1);
}
}
js_pushnumber(J, -1);
return 1;
}
static int Ap_lastIndexOf(js_State *J, int argc)
{
int k, len, from;
len = js_getlength(J, 0);
from = js_isdefined(J, 2) ? js_tointeger(J, 2) : len - 1;
if (from > len - 1) from = len - 1;
if (from < 0) from = len + from;
js_copy(J, 1);
for (k = from; k >= 0; --k) {
if (js_hasindex(J, 0, k)) {
if (js_strictequal(J)) {
js_pushnumber(J, k);
return 1;
}
js_pop(J, 1);
}
}
js_pushnumber(J, -1);
return 1;
}
static int Ap_every(js_State *J, int argc)
{
int k, len;
if (!js_iscallable(J, 1))
js_typeerror(J, "callback is not a function");
len = js_getlength(J, 0);
for (k = 0; k < len; ++k) {
if (js_hasindex(J, 0, k)) {
js_copy(J, 1);
if (argc > 1)
js_copy(J, 2);
else
js_pushundefined(J);
js_copy(J, -3);
js_pushnumber(J, k);
js_copy(J, 0);
js_call(J, 3);
if (!js_toboolean(J, -1))
return 1;
js_pop(J, 2);
}
}
js_pushboolean(J, 1);
return 1;
}
static int Ap_some(js_State *J, int argc)
{
int k, len;
if (!js_iscallable(J, 1))
js_typeerror(J, "callback is not a function");
len = js_getlength(J, 0);
for (k = 0; k < len; ++k) {
if (js_hasindex(J, 0, k)) {
js_copy(J, 1);
if (argc > 1)
js_copy(J, 2);
else
js_pushundefined(J);
js_copy(J, -3);
js_pushnumber(J, k);
js_copy(J, 0);
js_call(J, 3);
if (js_toboolean(J, -1))
return 1;
js_pop(J, 2);
}
}
js_pushboolean(J, 0);
return 1;
}
static int Ap_forEach(js_State *J, int argc)
{
int k, len;
if (!js_iscallable(J, 1))
js_typeerror(J, "callback is not a function");
len = js_getlength(J, 0);
for (k = 0; k < len; ++k) {
if (js_hasindex(J, 0, k)) {
js_copy(J, 1);
if (argc > 1)
js_copy(J, 2);
else
js_pushundefined(J);
js_copy(J, -3);
js_pushnumber(J, k);
js_copy(J, 0);
js_call(J, 3);
js_pop(J, 2);
}
}
return 0;
}
static int Ap_map(js_State *J, int argc)
{
int k, len;
if (!js_iscallable(J, 1))
js_typeerror(J, "callback is not a function");
js_newarray(J);
len = js_getlength(J, 0);
for (k = 0; k < len; ++k) {
if (js_hasindex(J, 0, k)) {
js_copy(J, 1);
if (argc > 1)
js_copy(J, 2);
else
js_pushundefined(J);
js_copy(J, -3);
js_pushnumber(J, k);
js_copy(J, 0);
js_call(J, 3);
js_setindex(J, -3, k);
js_pop(J, 1);
}
}
return 1;
}
static int Ap_filter(js_State *J, int argc)
{
int k, to, len;
if (!js_iscallable(J, 1))
js_typeerror(J, "callback is not a function");
js_newarray(J);
to = 0;
len = js_getlength(J, 0);
for (k = 0; k < len; ++k) {
if (js_hasindex(J, 0, k)) {
js_copy(J, 1);
if (argc > 1)
js_copy(J, 2);
else
js_pushundefined(J);
js_copy(J, -3);
js_pushnumber(J, k);
js_copy(J, 0);
js_call(J, 3);
if (js_toboolean(J, -1)) {
js_pop(J, 1);
js_setindex(J, -2, to++);
} else {
js_pop(J, 2);
}
}
}
return 1;
}
static int Ap_reduce(js_State *J, int argc)
{
int k, len;
if (!js_iscallable(J, 1))
js_typeerror(J, "callback is not a function");
len = js_getlength(J, 0);
k = 0;
if (len == 0 && argc < 2)
js_typeerror(J, "no initial value");
/* initial value of accumulator */
if (argc >= 2)
js_copy(J, 2);
else {
while (k < len)
if (js_hasindex(J, 0, k++))
break;
if (k == len)
js_typeerror(J, "no initial value");
}
while (k < len) {
if (js_hasindex(J, 0, k)) {
js_copy(J, 1);
js_pushundefined(J);
js_rot(J, 4); /* accumulator on top */
js_rot(J, 4); /* property on top */
js_pushnumber(J, k);
js_copy(J, 0);
js_call(J, 4); /* calculate new accumulator */
}
++k;
}
return 1; /* return accumulator */
}
static int Ap_reduceRight(js_State *J, int argc)
{
int k, len;
if (!js_iscallable(J, 1))
js_typeerror(J, "callback is not a function");
len = js_getlength(J, 0);
k = len - 1;
if (len == 0 && argc < 2)
js_typeerror(J, "no initial value");
/* initial value of accumulator */
if (argc >= 2)
js_copy(J, 2);
else {
while (k >= 0)
if (js_hasindex(J, 0, k--))
break;
if (k < 0)
js_typeerror(J, "no initial value");
}
while (k >= 0) {
if (js_hasindex(J, 0, k)) {
js_copy(J, 1);
js_pushundefined(J);
js_rot(J, 4); /* accumulator on top */
js_rot(J, 4); /* property on top */
js_pushnumber(J, k);
js_copy(J, 0);
js_call(J, 4); /* calculate new accumulator */
}
--k;
}
return 1; /* return accumulator */
}
static int A_isArray(js_State *J, int argc)
{
if (js_isobject(J, 1)) {
js_Object *T = js_toobject(J, 1);
js_pushboolean(J, T->type == JS_CARRAY);
return 1;
}
js_pushboolean(J, 0);
return 1;
}
void jsB_initarray(js_State *J)
{
js_pushobject(J, J->Array_prototype);
{
jsB_propf(J, "toString", Ap_toString, 0);
jsB_propf(J, "concat", Ap_concat, 1);
jsB_propf(J, "join", Ap_join, 1);
jsB_propf(J, "pop", Ap_pop, 0);
jsB_propf(J, "push", Ap_push, 1);
jsB_propf(J, "reverse", Ap_reverse, 0);
jsB_propf(J, "shift", Ap_shift, 0);
jsB_propf(J, "slice", Ap_slice, 2);
jsB_propf(J, "sort", Ap_sort, 1);
jsB_propf(J, "splice", Ap_splice, 2);
jsB_propf(J, "unshift", Ap_unshift, 1);
/* ES5 */
jsB_propf(J, "indexOf", Ap_indexOf, 1);
jsB_propf(J, "lastIndexOf", Ap_lastIndexOf, 1);
jsB_propf(J, "every", Ap_every, 1);
jsB_propf(J, "some", Ap_some, 1);
jsB_propf(J, "forEach", Ap_forEach, 1);
jsB_propf(J, "map", Ap_map, 1);
jsB_propf(J, "filter", Ap_filter, 1);
jsB_propf(J, "reduce", Ap_reduce, 1);
jsB_propf(J, "reduceRight", Ap_reduceRight, 1);
}
js_newcconstructor(J, jsB_new_Array, jsB_new_Array, 1);
{
/* ES5 */
jsB_propf(J, "isArray", A_isArray, 1);
}
js_defglobal(J, "Array", JS_DONTENUM);
}