static SQInteger array_reduce(HSQUIRRELVM v)
{
SQObject &o = stack_get(v,1);
SQArray *a = _array(o);
SQInteger size = a->Size();
if(size == 0) {
return 0;
}
SQObjectPtr res;
a->Get(0,res);
if(size > 1) {
SQObjectPtr other;
for(SQInteger n = 1; n < size; n++) {
a->Get(n,other);
v->Push(o);
v->Push(res);
v->Push(other);
if(SQ_FAILED(sq_call(v,3,SQTrue,SQFalse))) {
return SQ_ERROR;
}
res = v->GetUp(-1);
v->Pop();
}
}
v->Push(res);
return 1;
}
void sq_seterrorhandler(HSQUIRRELVM v)
{
SQObject o = stack_get(v, -1);
if(sq_isclosure(o) || sq_isnativeclosure(o) || sq_isnull(o)) {
v->_errorhandler = o;
v->Pop();
}
}
void sq_setdebughook(HSQUIRRELVM v)
{
SQObject o = stack_get(v,-1);
if(sq_isclosure(o) || sq_isnativeclosure(o) || sq_isnull(o)) {
v->_debughook = o;
v->Pop();
}
}
SQRESULT sq_arrayappend(HSQUIRRELVM v,SQInteger idx)
{
sq_aux_paramscheck(v,2);
SQObjectPtr *arr;
_GETSAFE_OBJ(v, idx, OT_ARRAY,arr);
_array(*arr)->Append(v->GetUp(-1));
v->Pop();
return SQ_OK;
}
SQRESULT sq_newclass(HSQUIRRELVM v,SQBool hasbase)
{
SQClass *baseclass = NULL;
if(hasbase) {
SQObjectPtr &base = stack_get(v,-1);
if(type(base) != OT_CLASS)
return sq_throwerror(v,_SC("invalid base type"));
baseclass = _class(base);
}
SQClass *newclass = SQClass::Create(_ss(v), baseclass);
if(baseclass) v->Pop();
v->Push(newclass);
return SQ_OK;
}
static SQInteger __map_array(SQArray *dest,SQArray *src,HSQUIRRELVM v) {
SQObjectPtr temp;
SQInteger size = src->Size();
for(SQInteger n = 0; n < size; n++) {
src->Get(n,temp);
v->Push(src);
v->Push(temp);
if(SQ_FAILED(sq_call(v,2,SQTrue,SQFalse))) {
return SQ_ERROR;
}
dest->Set(n,v->GetUp(-1));
v->Pop();
}
return 0;
}
SQRESULT sq_newclass(HSQUIRRELVM v,SQBool hasbase, const SQChar* name)
{
SQClass *baseclass = NULL;
if(hasbase) {
SQObjectPtr &base = stack_get(v,-1);
if(sqi_type(base) != OT_CLASS)
return sq_throwerror(v,_SC("invalid base type"));
baseclass = sqi_class(base);
}
SQClass *newclass = SQClass::Create(_ss(v), baseclass);
if (name) newclass->_methods[0].val = SQString::Create(_ss(v), name, -1);
if(baseclass) v->Pop();
v->Push(newclass);
return SQ_OK;
}
static SQInteger array_filter(HSQUIRRELVM v)
{
SQObject &o = stack_get(v,1);
SQArray *a = _array(o);
SQObjectPtr ret = SQArray::Create(_ss(v),0);
SQInteger size = a->Size();
SQObjectPtr val;
for(SQInteger n = 0; n < size; n++) {
a->Get(n,val);
v->Push(o);
v->Push(n);
v->Push(val);
if(SQ_FAILED(sq_call(v,3,SQTrue,SQFalse))) {
return SQ_ERROR;
}
if(!v->IsFalse(v->GetUp(-1))) {
_array(ret)->Append(val);
}
v->Pop();
}
v->Push(ret);
return 1;
}
