-/*\r
- see copyright notice in squirrel.h\r
-*/\r
-#include "sqpcheader.h"\r
-#include "sqvm.h"\r
-#include "sqstring.h"\r
-#include "sqtable.h"\r
-#include "sqarray.h"\r
-#include "sqfuncproto.h"\r
-#include "sqclosure.h"\r
-#include "sqclass.h"\r
-#include <stdlib.h>\r
-#include <stdarg.h>\r
-#include <ctype.h>\r
-\r
-bool str2num(const SQChar *s,SQObjectPtr &res)\r
-{\r
- SQChar *end;\r
- if(scstrstr(s,_SC("."))){\r
- SQFloat r = SQFloat(scstrtod(s,&end));\r
- if(s == end) return false;\r
- while (scisspace((*end)) ) end++;\r
- if (*end != _SC('\0')) return false;\r
- res = r;\r
- return true;\r
- }\r
- else{\r
- const SQChar *t = s;\r
- while(*t != _SC('\0')) if(!scisdigit(*t++)) return false;\r
- res = SQInteger(scatoi(s));\r
- return true;\r
- }\r
-}\r
-\r
-#ifndef NO_GARBAGE_COLLECTOR\r
-static int base_collectgarbage(HSQUIRRELVM v)\r
-{\r
- sq_pushinteger(v, sq_collectgarbage(v));\r
- return 1;\r
-}\r
-#endif\r
-\r
-static int base_getroottable(HSQUIRRELVM v)\r
-{\r
- v->Push(v->_roottable);\r
- return 1;\r
-}\r
-\r
-static int base_setroottable(HSQUIRRELVM v)\r
-{\r
- SQObjectPtr &o=stack_get(v,2);\r
- if(SQ_FAILED(sq_setroottable(v))) return SQ_ERROR;\r
- v->Push(o);\r
- return 1;\r
-}\r
-\r
-static int base_seterrorhandler(HSQUIRRELVM v)\r
-{\r
- sq_seterrorhandler(v);\r
- return 0;\r
-}\r
-\r
-static int base_setdebughook(HSQUIRRELVM v)\r
-{\r
- sq_setdebughook(v);\r
- return 0;\r
-}\r
-\r
-static int base_enabledebuginfo(HSQUIRRELVM v)\r
-{\r
- SQObjectPtr &o=stack_get(v,2);\r
- sq_enabledebuginfo(v,(type(o) != OT_NULL)?1:0);\r
- return 0;\r
-}\r
-\r
-static int base_getstackinfos(HSQUIRRELVM v)\r
-{\r
- SQInteger level;\r
- SQStackInfos si;\r
- int seq = 0;\r
- const SQChar *name = NULL;\r
- sq_getinteger(v, -1, &level);\r
- if (SQ_SUCCEEDED(sq_stackinfos(v, level, &si)))\r
- {\r
- const SQChar *fn = _SC("unknown");\r
- const SQChar *src = _SC("unknown");\r
- if(si.funcname)fn = si.funcname;\r
- if(si.source)src = si.source;\r
- sq_newtable(v);\r
- sq_pushstring(v, _SC("func"), -1);\r
- sq_pushstring(v, fn, -1);\r
- sq_createslot(v, -3);\r
- sq_pushstring(v, _SC("src"), -1);\r
- sq_pushstring(v, src, -1);\r
- sq_createslot(v, -3);\r
- sq_pushstring(v, _SC("line"), -1);\r
- sq_pushinteger(v, si.line);\r
- sq_createslot(v, -3);\r
- sq_pushstring(v, _SC("locals"), -1);\r
- sq_newtable(v);\r
- seq=0;\r
- while (name = sq_getlocal(v, level, seq)) {\r
- sq_pushstring(v, name, -1);\r
- sq_push(v, -2);\r
- sq_createslot(v, -4);\r
- sq_pop(v, 1);\r
- seq++;\r
- }\r
- sq_createslot(v, -3);\r
- return 1;\r
- }\r
-\r
- return 0;\r
-}\r
-\r
-static int base_assert(HSQUIRRELVM v)\r
-{\r
- if(v->IsFalse(stack_get(v,2))){\r
- return sq_throwerror(v,_SC("assertion failed"));\r
- }\r
- return 0;\r
-}\r
-\r
-static int get_slice_params(HSQUIRRELVM v,int &sidx,int &eidx,SQObjectPtr &o)\r
-{\r
- int top = sq_gettop(v);\r
- sidx=0;\r
- eidx=0;\r
- o=stack_get(v,1);\r
- SQObjectPtr &start=stack_get(v,2);\r
- if(type(start)!=OT_NULL && sq_isnumeric(start)){\r
- sidx=tointeger(start);\r
- }\r
- if(top>2){\r
- SQObjectPtr &end=stack_get(v,3);\r
- if(sq_isnumeric(end)){\r
- eidx=tointeger(end);\r
- }\r
- }\r
- else {\r
- eidx = sq_getsize(v,1);\r
- }\r
- return 1;\r
-}\r
-\r
-static int base_print(HSQUIRRELVM v)\r
-{\r
- SQObjectPtr &o=stack_get(v,2);\r
- switch(type(o)){\r
- case OT_STRING:\r
- if(_ss(v)->_printfunc) _ss(v)->_printfunc(v,_SC("%s"),_stringval(o));\r
- break;\r
- case OT_INTEGER:\r
- if(_ss(v)->_printfunc) _ss(v)->_printfunc(v,_SC("%d"),_integer(o));\r
- break;\r
- case OT_FLOAT:\r
- if(_ss(v)->_printfunc) _ss(v)->_printfunc(v,_SC("%.14g"),_float(o));\r
- break;\r
- default:{\r
- SQObjectPtr tname;\r
- v->TypeOf(o,tname);\r
- if(_ss(v)->_printfunc) _ss(v)->_printfunc(v,_SC("(%s)"),_stringval(tname));\r
- }\r
- break;\r
- }\r
- return 0;\r
-}\r
-\r
-static int base_compilestring(HSQUIRRELVM v)\r
-{\r
- int nargs=sq_gettop(v);\r
- const SQChar *src=NULL,*name=_SC("unnamedbuffer");\r
- SQInteger size;\r
- sq_getstring(v,2,&src);\r
- size=sq_getsize(v,2);\r
- if(nargs>2){\r
- sq_getstring(v,3,&name);\r
- }\r
- if(SQ_SUCCEEDED(sq_compilebuffer(v,src,size,name,SQFalse)))\r
- return 1;\r
- else\r
- return SQ_ERROR;\r
-}\r
-\r
-static int base_newthread(HSQUIRRELVM v)\r
-{\r
- SQObjectPtr &func = stack_get(v,2);\r
- int stksize = (_funcproto(_closure(func)->_function)->_stacksize << 1) +2;\r
- HSQUIRRELVM newv = sq_newthread(v, (stksize < MIN_STACK_OVERHEAD + 2)? MIN_STACK_OVERHEAD + 2 : stksize);\r
- sq_move(newv,v,-2);\r
- return 1;\r
-}\r
-\r
-static int base_suspend(HSQUIRRELVM v)\r
-{\r
- return sq_suspendvm(v);\r
-}\r
-\r
-static int base_array(HSQUIRRELVM v)\r
-{\r
- SQArray *a;\r
- SQObject &size = stack_get(v,2);\r
- if(sq_gettop(v) > 2) {\r
- a = SQArray::Create(_ss(v),0);\r
- a->Resize(tointeger(size),stack_get(v,3));\r
- }\r
- else {\r
- a = SQArray::Create(_ss(v),tointeger(size));\r
- }\r
- v->Push(a);\r
- return 1;\r
-}\r
-\r
-static int base_type(HSQUIRRELVM v)\r
-{\r
- SQObjectPtr &o = stack_get(v,2);\r
- v->Push(SQString::Create(_ss(v),GetTypeName(o),-1));\r
- return 1;\r
-}\r
-\r
-static SQRegFunction base_funcs[]={\r
- //generic\r
- {_SC("seterrorhandler"),base_seterrorhandler,2, NULL},\r
- {_SC("setdebughook"),base_setdebughook,2, NULL},\r
- {_SC("enabledebuginfo"),base_enabledebuginfo,2, NULL},\r
- {_SC("getstackinfos"),base_getstackinfos,2, _SC(".n")},\r
- {_SC("getroottable"),base_getroottable,1, NULL},\r
- {_SC("setroottable"),base_setroottable,2, NULL},\r
- {_SC("assert"),base_assert,2, NULL},\r
- {_SC("print"),base_print,2, NULL},\r
- {_SC("compilestring"),base_compilestring,-2, _SC(".ss")},\r
- {_SC("newthread"),base_newthread,2, _SC(".c")},\r
- {_SC("suspend"),base_suspend,-1, NULL},\r
- {_SC("array"),base_array,-2, _SC(".n")},\r
- {_SC("type"),base_type,2, NULL},\r
-#ifndef NO_GARBAGE_COLLECTOR\r
- {_SC("collectgarbage"),base_collectgarbage,1, _SC("t")},\r
-#endif\r
- {0,0}\r
-};\r
-\r
-void sq_base_register(HSQUIRRELVM v)\r
-{\r
- int i=0;\r
- sq_pushroottable(v);\r
- while(base_funcs[i].name!=0) {\r
- sq_pushstring(v,base_funcs[i].name,-1);\r
- sq_newclosure(v,base_funcs[i].f,0);\r
- sq_setnativeclosurename(v,-1,base_funcs[i].name);\r
- sq_setparamscheck(v,base_funcs[i].nparamscheck,base_funcs[i].typemask);\r
- sq_createslot(v,-3);\r
- i++;\r
- }\r
- sq_pushstring(v,_SC("_charsize_"),-1);\r
- sq_pushinteger(v,sizeof(SQChar));\r
- sq_createslot(v,-3);\r
- sq_pop(v,1);\r
-}\r
-\r
-static int default_delegate_len(HSQUIRRELVM v)\r
-{\r
- v->Push(SQInteger(sq_getsize(v,1)));\r
- return 1;\r
-}\r
-\r
-static int default_delegate_tofloat(HSQUIRRELVM v)\r
-{\r
- SQObjectPtr &o=stack_get(v,1);\r
- switch(type(o)){\r
- case OT_STRING:{\r
- SQObjectPtr res;\r
- if(str2num(_stringval(o),res)){\r
- v->Push(SQObjectPtr(tofloat(res)));\r
- break;\r
- }}\r
- case OT_INTEGER:case OT_FLOAT:\r
- v->Push(SQObjectPtr(tofloat(o)));\r
- break;\r
- case OT_BOOL:\r
- v->Push(SQObjectPtr((SQFloat)(_integer(o)?1:0)));\r
- break;\r
- default:\r
- v->Push(_null_);\r
- break;\r
- }\r
- return 1;\r
-}\r
-\r
-static int default_delegate_tointeger(HSQUIRRELVM v)\r
-{\r
- SQObjectPtr &o=stack_get(v,1);\r
- switch(type(o)){\r
- case OT_STRING:{\r
- SQObjectPtr res;\r
- if(str2num(_stringval(o),res)){\r
- v->Push(SQObjectPtr(tointeger(res)));\r
- break;\r
- }}\r
- case OT_INTEGER:case OT_FLOAT:\r
- v->Push(SQObjectPtr(tointeger(o)));\r
- break;\r
- case OT_BOOL:\r
- v->Push(SQObjectPtr(_integer(o)?1:0));\r
- break;\r
- default:\r
- v->Push(_null_);\r
- break;\r
- }\r
- return 1;\r
-}\r
-\r
-static int default_delegate_tostring(HSQUIRRELVM v)\r
-{\r
- SQObjectPtr &o=stack_get(v,1);\r
- switch(type(o)){\r
- case OT_STRING:\r
- v->Push(o);\r
- break;\r
- case OT_INTEGER:\r
- scsprintf(_ss(v)->GetScratchPad(rsl(NUMBER_MAX_CHAR+1)),_SC("%d"),_integer(o));\r
- v->Push(SQString::Create(_ss(v),_ss(v)->GetScratchPad(-1)));\r
- break;\r
- case OT_FLOAT:\r
- scsprintf(_ss(v)->GetScratchPad(rsl(NUMBER_MAX_CHAR+1)),_SC("%.14g"),_float(o));\r
- v->Push(SQString::Create(_ss(v),_ss(v)->GetScratchPad(-1)));\r
- break;\r
- case OT_BOOL:\r
- v->Push(SQObjectPtr(SQString::Create(_ss(v),_integer(o)?_SC("true"):_SC("false"))));\r
- break;\r
- default:\r
- v->Push(_null_);\r
- break;\r
- }\r
- return 1;\r
-}\r
-\r
-static int number_delegate_tochar(HSQUIRRELVM v)\r
-{\r
- SQObject &o=stack_get(v,1);\r
- SQChar c=tointeger(o);\r
- v->Push(SQString::Create(_ss(v),(const SQChar *)&c,1));\r
- return 1;\r
-}\r
-\r
-\r
-/////////////////////////////////////////////////////////////////\r
-//TABLE DEFAULT DELEGATE\r
-\r
-static int table_rawdelete(HSQUIRRELVM v)\r
-{\r
- if(SQ_FAILED(sq_rawdeleteslot(v,1,SQTrue)))\r
- return SQ_ERROR;\r
- return 1;\r
-}\r
-\r
-\r
-static int container_rawexists(HSQUIRRELVM v)\r
-{\r
- if(SQ_SUCCEEDED(sq_rawget(v,-2))) {\r
- sq_pushbool(v,SQTrue);\r
- return 1;\r
- }\r
- sq_pushbool(v,SQFalse);\r
- return 1;\r
-}\r
-\r
-static int table_rawset(HSQUIRRELVM v)\r
-{\r
- return sq_rawset(v,-3);\r
-}\r
-\r
-\r
-static int table_rawget(HSQUIRRELVM v)\r
-{\r
- return SQ_SUCCEEDED(sq_rawget(v,-2))?1:SQ_ERROR;\r
-}\r
-\r
-SQRegFunction SQSharedState::_table_default_delegate_funcz[]={\r
- {_SC("len"),default_delegate_len,1, _SC("t")},\r
- {_SC("rawget"),table_rawget,2, _SC("t")},\r
- {_SC("rawset"),table_rawset,3, _SC("t")},\r
- {_SC("rawdelete"),table_rawdelete,2, _SC("t")},\r
- {_SC("rawin"),container_rawexists,2, _SC("t")},\r
- {0,0}\r
-};\r
-\r
-//ARRAY DEFAULT DELEGATE///////////////////////////////////////\r
-\r
-static int array_append(HSQUIRRELVM v)\r
-{\r
- return sq_arrayappend(v,-2);\r
-}\r
-\r
-static int array_extend(HSQUIRRELVM v)\r
-{\r
- _array(stack_get(v,1))->Extend(_array(stack_get(v,2)));\r
- return 0;\r
-}\r
-\r
-static int array_reverse(HSQUIRRELVM v)\r
-{\r
- return sq_arrayreverse(v,-1);\r
-}\r
-\r
-static int array_pop(HSQUIRRELVM v)\r
-{\r
- return SQ_SUCCEEDED(sq_arraypop(v,1,SQTrue))?1:SQ_ERROR;\r
-}\r
-\r
-static int array_top(HSQUIRRELVM v)\r
-{\r
- SQObject &o=stack_get(v,1);\r
- if(_array(o)->Size()>0){\r
- v->Push(_array(o)->Top());\r
- return 1;\r
- }\r
- else return sq_throwerror(v,_SC("top() on a empty array"));\r
-}\r
-\r
-static int array_insert(HSQUIRRELVM v)\r
-{\r
- SQObject &o=stack_get(v,1);\r
- SQObject &idx=stack_get(v,2);\r
- SQObject &val=stack_get(v,3);\r
- _array(o)->Insert(idx,val);\r
- return 0;\r
-}\r
-\r
-static int array_remove(HSQUIRRELVM v)\r
-{\r
- SQObject &o = stack_get(v, 1);\r
- SQObject &idx = stack_get(v, 2);\r
- if(!sq_isnumeric(idx)) return sq_throwerror(v, _SC("wrong type"));\r
- SQObjectPtr val;\r
- if(_array(o)->Get(tointeger(idx), val)) {\r
- _array(o)->Remove(tointeger(idx));\r
- v->Push(val);\r
- return 1;\r
- }\r
- return sq_throwerror(v, _SC("idx out of range"));\r
-}\r
-\r
-static int array_resize(HSQUIRRELVM v)\r
-{\r
- SQObject &o = stack_get(v, 1);\r
- SQObject &nsize = stack_get(v, 2);\r
- SQObjectPtr fill;\r
- if(sq_isnumeric(nsize)) {\r
- if(sq_gettop(v) > 2)\r
- fill = stack_get(v, 3);\r
- _array(o)->Resize(tointeger(nsize),fill);\r
- return 0;\r
- }\r
- return sq_throwerror(v, _SC("size must be a number"));\r
-}\r
-\r
-\r
-//QSORT ala Sedgewick\r
-bool _qsort_compare(HSQUIRRELVM v,SQObjectPtr &arr,SQObjectPtr &a,SQObjectPtr &b,int func,int &ret)\r
-{\r
- if(func < 0) {\r
- if(!v->ObjCmp(a,b,ret)) return false;\r
- }\r
- else {\r
- int top = sq_gettop(v);\r
- sq_push(v, func);\r
- sq_pushroottable(v);\r
- v->Push(a);\r
- v->Push(b);\r
- if(SQ_FAILED(sq_call(v, 3, SQTrue))) {\r
- v->Raise_Error(_SC("compare func failed"));\r
- return false;\r
- }\r
- sq_getinteger(v, -1, &ret);\r
- sq_settop(v, top);\r
- return true;\r
- }\r
- return true;\r
-}\r
-//QSORT ala Sedgewick\r
-bool _qsort(HSQUIRRELVM v,SQObjectPtr &arr, int l, int r,int func)\r
-{\r
- int i, j;\r
- SQArray *a=_array(arr);\r
- SQObjectPtr pivot,t;\r
- if( l < r ){\r
- pivot = a->_values[l];\r
- i = l; j = r+1;\r
- while(1){\r
- int ret;\r
- do { \r
- ++i; \r
- if(i > r) break;\r
- if(!_qsort_compare(v,arr,a->_values[i],pivot,func,ret))\r
- return false;\r
- } while( ret <= 0);\r
- do {\r
- --j; \r
- if(!_qsort_compare(v,arr,a->_values[j],pivot,func,ret))\r
- return false;\r
- }\r
- while( ret > 0 );\r
- if( i >= j ) break;\r
- t = a->_values[i]; a->_values[i] = a->_values[j]; a->_values[j] = t;\r
- }\r
- t = a->_values[l]; a->_values[l] = a->_values[j]; a->_values[j] = t;\r
- if(!_qsort( v, arr, l, j-1,func)) return false;\r
- if(!_qsort( v, arr, j+1, r,func)) return false;\r
- }\r
- return true;\r
-}\r
-\r
-static int array_sort(HSQUIRRELVM v)\r
-{\r
- //SQ_TRY {\r
- int func = -1;\r
- SQObjectPtr &o = stack_get(v,1);\r
- SQObject &funcobj = stack_get(v,2);\r
- if(_array(o)->Size() > 1) {\r
- if(type(funcobj) == OT_CLOSURE || type(funcobj) == OT_NATIVECLOSURE) func = 2;\r
- if(!_qsort(v, o, 0, _array(o)->Size()-1, func))\r
- return SQ_ERROR;\r
-\r
- }\r
- return 0;\r
-}\r
-static int array_slice(HSQUIRRELVM v)\r
-{\r
- int sidx,eidx;\r
- SQObjectPtr o;\r
- if(get_slice_params(v,sidx,eidx,o)==-1)return -1;\r
- if(sidx<0)sidx=_array(o)->Size()+sidx;\r
- if(eidx<0)eidx=_array(o)->Size()+eidx;\r
- if(eidx <= sidx)return sq_throwerror(v,_SC("wrong indexes"));\r
- SQArray *arr=SQArray::Create(_ss(v),eidx-sidx);\r
- SQObjectPtr t;\r
- int count=0;\r
- for(int i=sidx;i<eidx;i++){\r
- _array(o)->Get(i,t);\r
- arr->Set(count++,t);\r
- }\r
- v->Push(arr);\r
- return 1;\r
- \r
-}\r
-\r
-SQRegFunction SQSharedState::_array_default_delegate_funcz[]={\r
- {_SC("len"),default_delegate_len,1, _SC("a")},\r
- {_SC("append"),array_append,2, _SC("a")},\r
- {_SC("extend"),array_extend,2, _SC("aa")},\r
- {_SC("push"),array_append,2, _SC("a")},\r
- {_SC("pop"),array_pop,1, _SC("a")},\r
- {_SC("top"),array_top,1, _SC("a")},\r
- {_SC("insert"),array_insert,3, _SC("an")},\r
- {_SC("remove"),array_remove,2, _SC("an")},\r
- {_SC("resize"),array_resize,-2, _SC("an")},\r
- {_SC("reverse"),array_reverse,1, _SC("a")},\r
- {_SC("sort"),array_sort,-1, _SC("ac")},\r
- {_SC("slice"),array_slice,-1, _SC("ann")},\r
- {0,0}\r
-};\r
-\r
-//STRING DEFAULT DELEGATE//////////////////////////\r
-static int string_slice(HSQUIRRELVM v)\r
-{\r
- int sidx,eidx;\r
- SQObjectPtr o;\r
- if(SQ_FAILED(get_slice_params(v,sidx,eidx,o)))return -1;\r
- if(sidx<0)sidx=_string(o)->_len+sidx;\r
- if(eidx<0)eidx=_string(o)->_len+eidx;\r
- if(eidx<sidx)\r
- return sq_throwerror(v,_SC("wrong indexes"));\r
- v->Push(SQString::Create(_ss(v),&_stringval(o)[sidx],eidx-sidx));\r
- return 1;\r
-}\r
-\r
-static int string_find(HSQUIRRELVM v)\r
-{\r
- int top,start_idx=0;\r
- const SQChar *str,*substr,*ret;\r
- if(((top=sq_gettop(v))>1) && SQ_SUCCEEDED(sq_getstring(v,1,&str)) && SQ_SUCCEEDED(sq_getstring(v,2,&substr))){\r
- if(top>2)sq_getinteger(v,3,&start_idx);\r
- if((sq_getsize(v,1)>start_idx) && (start_idx>=0)){\r
- ret=scstrstr(&str[start_idx],substr);\r
- if(ret){\r
- sq_pushinteger(v,(int)(ret-str));\r
- return 1;\r
- }\r
- }\r
- return 0;\r
- }\r
- return sq_throwerror(v,_SC("invalid param"));\r
-}\r
-\r
-#define STRING_TOFUNCZ(func) static int string_##func(HSQUIRRELVM v) \\r
-{ \\r
- SQObject str=stack_get(v,1); \\r
- int len=_string(str)->_len; \\r
- const SQChar *sThis=_stringval(str); \\r
- SQChar *sNew=(_ss(v)->GetScratchPad(rsl(len))); \\r
- for(int i=0;i<len;i++) sNew[i]=func(sThis[i]); \\r
- v->Push(SQString::Create(_ss(v),sNew,len)); \\r
- return 1; \\r
-}\r
-\r
-\r
-STRING_TOFUNCZ(tolower)\r
-STRING_TOFUNCZ(toupper)\r
-\r
-SQRegFunction SQSharedState::_string_default_delegate_funcz[]={\r
- {_SC("len"),default_delegate_len,1, _SC("s")},\r
- {_SC("tointeger"),default_delegate_tointeger,1, _SC("s")},\r
- {_SC("tofloat"),default_delegate_tofloat,1, _SC("s")},\r
- {_SC("tostring"),default_delegate_tostring,1, _SC("s")},\r
- {_SC("slice"),string_slice,-1, _SC(" s n n")},\r
- {_SC("find"),string_find,-2, _SC("s s n ")},\r
- {_SC("tolower"),string_tolower,1, _SC("s")},\r
- {_SC("toupper"),string_toupper,1, _SC("s")},\r
- {0,0}\r
-};\r
-\r
-//INTEGER DEFAULT DELEGATE//////////////////////////\r
-SQRegFunction SQSharedState::_number_default_delegate_funcz[]={\r
- {_SC("tointeger"),default_delegate_tointeger,1, _SC("n|b")},\r
- {_SC("tofloat"),default_delegate_tofloat,1, _SC("n|b")},\r
- {_SC("tostring"),default_delegate_tostring,1, _SC("n|b")},\r
- {_SC("tochar"),number_delegate_tochar,1, _SC("n|b")},\r
- {0,0}\r
-};\r
-\r
-//CLOSURE DEFAULT DELEGATE//////////////////////////\r
-static int closure_call(HSQUIRRELVM v)\r
-{\r
- return SQ_SUCCEEDED(sq_call(v,sq_gettop(v)-1,SQTrue))?1:SQ_ERROR;\r
-}\r
-\r
-static int closure_acall(HSQUIRRELVM v)\r
-{\r
- SQArray *aparams=_array(stack_get(v,2));\r
- int nparams=aparams->Size();\r
- v->Push(stack_get(v,1));\r
- for(int i=0;i<nparams;i++)v->Push(aparams->_values[i]);\r
- return SQ_SUCCEEDED(sq_call(v,nparams,SQTrue))?1:SQ_ERROR;\r
-}\r
-\r
-SQRegFunction SQSharedState::_closure_default_delegate_funcz[]={\r
- {_SC("call"),closure_call,-1, _SC("c")},\r
- {_SC("acall"),closure_acall,2, _SC("ca")},\r
- {0,0}\r
-};\r
-\r
-//GENERATOR DEFAULT DELEGATE\r
-static int generator_getstatus(HSQUIRRELVM v)\r
-{\r
- SQObject &o=stack_get(v,1);\r
- switch(_generator(o)->_state){\r
- case SQGenerator::eSuspended:v->Push(SQString::Create(_ss(v),_SC("suspended")));break;\r
- case SQGenerator::eRunning:v->Push(SQString::Create(_ss(v),_SC("running")));break;\r
- case SQGenerator::eDead:v->Push(SQString::Create(_ss(v),_SC("dead")));break;\r
- }\r
- return 1;\r
-}\r
-\r
-SQRegFunction SQSharedState::_generator_default_delegate_funcz[]={\r
- {_SC("getstatus"),generator_getstatus,1, _SC("g")},\r
- {0,0}\r
-};\r
-\r
-//THREAD DEFAULT DELEGATE\r
-\r
-static int thread_call(HSQUIRRELVM v)\r
-{\r
- SQObjectPtr o = stack_get(v,1);\r
- if(type(o) == OT_THREAD) {\r
- int nparams = sq_gettop(v);\r
- _thread(o)->Push(_thread(o)->_roottable);\r
- for(int i = 2; i<(nparams+1); i++)\r
- sq_move(_thread(o),v,i);\r
- if(SQ_SUCCEEDED(sq_call(_thread(o),nparams,SQTrue))) {\r
- sq_move(v,_thread(o),-1);\r
- return 1;\r
- }\r
- return SQ_ERROR;\r
- }\r
- return sq_throwerror(v,_SC("wrong parameter"));\r
-}\r
-\r
-static int thread_wakeup(HSQUIRRELVM v)\r
-{\r
- SQObjectPtr o = stack_get(v,1);\r
- if(type(o) == OT_THREAD) {\r
- SQVM *thread = _thread(o);\r
- int state = sq_getvmstate(thread);\r
- if(state != SQ_VMSTATE_SUSPENDED) {\r
- switch(state) {\r
- case SQ_VMSTATE_IDLE:\r
- return sq_throwerror(v,_SC("cannot wakeup a idle thread"));\r
- break;\r
- case SQ_VMSTATE_RUNNING:\r
- return sq_throwerror(v,_SC("cannot wakeup a running thread"));\r
- break;\r
- }\r
- }\r
- \r
- int wakeupret = sq_gettop(v)>1?1:0;\r
- if(wakeupret) {\r
- sq_move(thread,v,2);\r
- }\r
- if(SQ_SUCCEEDED(sq_wakeupvm(thread,wakeupret,1))) {\r
- sq_move(v,thread,-1);\r
- sq_pop(thread,1);\r
- if(sq_getvmstate(thread) == SQ_VMSTATE_IDLE) {\r
- sq_pop(thread,1);\r
- }\r
- return 1;\r
- }\r
- return SQ_ERROR;\r
- }\r
- return sq_throwerror(v,_SC("wrong parameter"));\r
-}\r
-\r
-static int thread_getstatus(HSQUIRRELVM v)\r
-{\r
- SQObjectPtr &o = stack_get(v,1);\r
- switch(sq_getvmstate(_thread(o))) {\r
- case SQ_VMSTATE_IDLE:\r
- sq_pushstring(v,_SC("idle"),-1);\r
- break;\r
- case SQ_VMSTATE_RUNNING:\r
- sq_pushstring(v,_SC("running"),-1);\r
- break;\r
- case SQ_VMSTATE_SUSPENDED:\r
- sq_pushstring(v,_SC("suspended"),-1);\r
- break;\r
- default:\r
- return sq_throwerror(v,_SC("internal VM error"));\r
- }\r
- return 1;\r
-}\r
-\r
-SQRegFunction SQSharedState::_thread_default_delegate_funcz[] = {\r
- {_SC("call"), thread_call, -1, _SC("v")},\r
- {_SC("wakeup"), thread_wakeup, -1, _SC("v")},\r
- {_SC("getstatus"), thread_getstatus, 1, _SC("v")},\r
- {0,0},\r
-};\r
-\r
-static int class_getattributes(HSQUIRRELVM v)\r
-{\r
- if(SQ_SUCCEEDED(sq_getattributes(v,-2)))\r
- return 1;\r
- return SQ_ERROR;\r
-}\r
-\r
-static int class_setattributes(HSQUIRRELVM v)\r
-{\r
- if(SQ_SUCCEEDED(sq_setattributes(v,-3)))\r
- return 1;\r
- return SQ_ERROR;\r
-}\r
-\r
-SQRegFunction SQSharedState::_class_default_delegate_funcz[] = {\r
- {_SC("getattributes"), class_getattributes, 2, _SC("y.")},\r
- {_SC("setattributes"), class_setattributes, 3, _SC("y..")},\r
- {_SC("rawin"),container_rawexists,2, _SC("y")},\r
- {0,0}\r
-};\r
-\r
-static int instance_getclass(HSQUIRRELVM v)\r
-{\r
- if(SQ_SUCCEEDED(sq_getclass(v,1)))\r
- return 1;\r
- return SQ_ERROR;\r
-}\r
-\r
-SQRegFunction SQSharedState::_instance_default_delegate_funcz[] = {\r
- {_SC("getclass"), instance_getclass, 1, _SC("x")},\r
- {_SC("rawin"),container_rawexists,2, _SC("x")},\r
- {0,0}\r
-};\r
-\r
+/*
+ see copyright notice in squirrel.h
+*/
+#include "sqpcheader.h"
+#include "sqvm.h"
+#include "sqstring.h"
+#include "sqtable.h"
+#include "sqarray.h"
+#include "sqfuncproto.h"
+#include "sqclosure.h"
+#include "sqclass.h"
+#include <stdlib.h>
+#include <stdarg.h>
+#include <ctype.h>
+
+bool str2num(const SQChar *s,SQObjectPtr &res)
+{
+ SQChar *end;
+ if(scstrstr(s,_SC("."))){
+ SQFloat r = SQFloat(scstrtod(s,&end));
+ if(s == end) return false;
+ while (scisspace((*end)) ) end++;
+ if (*end != _SC('\0')) return false;
+ res = r;
+ return true;
+ }
+ else{
+ const SQChar *t = s;
+ while(*t != _SC('\0')) if(!scisdigit(*t++)) return false;
+ res = SQInteger(scatoi(s));
+ return true;
+ }
+}
+
+#ifndef NO_GARBAGE_COLLECTOR
+static int base_collectgarbage(HSQUIRRELVM v)
+{
+ sq_pushinteger(v, sq_collectgarbage(v));
+ return 1;
+}
+#endif
+
+static int base_getroottable(HSQUIRRELVM v)
+{
+ v->Push(v->_roottable);
+ return 1;
+}
+
+static int base_setroottable(HSQUIRRELVM v)
+{
+ SQObjectPtr &o=stack_get(v,2);
+ if(SQ_FAILED(sq_setroottable(v))) return SQ_ERROR;
+ v->Push(o);
+ return 1;
+}
+
+static int base_seterrorhandler(HSQUIRRELVM v)
+{
+ sq_seterrorhandler(v);
+ return 0;
+}
+
+static int base_setdebughook(HSQUIRRELVM v)
+{
+ sq_setdebughook(v);
+ return 0;
+}
+
+static int base_enabledebuginfo(HSQUIRRELVM v)
+{
+ SQObjectPtr &o=stack_get(v,2);
+ sq_enabledebuginfo(v,(type(o) != OT_NULL)?1:0);
+ return 0;
+}
+
+static int base_getstackinfos(HSQUIRRELVM v)
+{
+ SQInteger level;
+ SQStackInfos si;
+ int seq = 0;
+ const SQChar *name = NULL;
+ sq_getinteger(v, -1, &level);
+ if (SQ_SUCCEEDED(sq_stackinfos(v, level, &si)))
+ {
+ const SQChar *fn = _SC("unknown");
+ const SQChar *src = _SC("unknown");
+ if(si.funcname)fn = si.funcname;
+ if(si.source)src = si.source;
+ sq_newtable(v);
+ sq_pushstring(v, _SC("func"), -1);
+ sq_pushstring(v, fn, -1);
+ sq_createslot(v, -3);
+ sq_pushstring(v, _SC("src"), -1);
+ sq_pushstring(v, src, -1);
+ sq_createslot(v, -3);
+ sq_pushstring(v, _SC("line"), -1);
+ sq_pushinteger(v, si.line);
+ sq_createslot(v, -3);
+ sq_pushstring(v, _SC("locals"), -1);
+ sq_newtable(v);
+ seq=0;
+ while ( (name = sq_getlocal(v, level, seq)) ) {
+ sq_pushstring(v, name, -1);
+ sq_push(v, -2);
+ sq_createslot(v, -4);
+ sq_pop(v, 1);
+ seq++;
+ }
+ sq_createslot(v, -3);
+ return 1;
+ }
+
+ return 0;
+}
+
+static int base_assert(HSQUIRRELVM v)
+{
+ if(v->IsFalse(stack_get(v,2))){
+ return sq_throwerror(v,_SC("assertion failed"));
+ }
+ return 0;
+}
+
+static int get_slice_params(HSQUIRRELVM v,int &sidx,int &eidx,SQObjectPtr &o)
+{
+ int top = sq_gettop(v);
+ sidx=0;
+ eidx=0;
+ o=stack_get(v,1);
+ SQObjectPtr &start=stack_get(v,2);
+ if(type(start)!=OT_NULL && sq_isnumeric(start)){
+ sidx=tointeger(start);
+ }
+ if(top>2){
+ SQObjectPtr &end=stack_get(v,3);
+ if(sq_isnumeric(end)){
+ eidx=tointeger(end);
+ }
+ }
+ else {
+ eidx = sq_getsize(v,1);
+ }
+ return 1;
+}
+
+static int base_print(HSQUIRRELVM v)
+{
+ SQObjectPtr &o=stack_get(v,2);
+ switch(type(o)){
+ case OT_STRING:
+ if(_ss(v)->_printfunc) _ss(v)->_printfunc(v,_SC("%s"),_stringval(o));
+ break;
+ case OT_INTEGER:
+ if(_ss(v)->_printfunc) _ss(v)->_printfunc(v,_SC("%d"),_integer(o));
+ break;
+ case OT_FLOAT:
+ if(_ss(v)->_printfunc) _ss(v)->_printfunc(v,_SC("%.14g"),_float(o));
+ break;
+ default:{
+ SQObjectPtr tname;
+ v->TypeOf(o,tname);
+ if(_ss(v)->_printfunc) _ss(v)->_printfunc(v,_SC("(%s)"),_stringval(tname));
+ }
+ break;
+ }
+ return 0;
+}
+
+static int base_compilestring(HSQUIRRELVM v)
+{
+ int nargs=sq_gettop(v);
+ const SQChar *src=NULL,*name=_SC("unnamedbuffer");
+ SQInteger size;
+ sq_getstring(v,2,&src);
+ size=sq_getsize(v,2);
+ if(nargs>2){
+ sq_getstring(v,3,&name);
+ }
+ if(SQ_SUCCEEDED(sq_compilebuffer(v,src,size,name,SQFalse)))
+ return 1;
+ else
+ return SQ_ERROR;
+}
+
+static int base_newthread(HSQUIRRELVM v)
+{
+ SQObjectPtr &func = stack_get(v,2);
+ int stksize = (_funcproto(_closure(func)->_function)->_stacksize << 1) +2;
+ HSQUIRRELVM newv = sq_newthread(v, (stksize < MIN_STACK_OVERHEAD + 2)? MIN_STACK_OVERHEAD + 2 : stksize);
+ sq_move(newv,v,-2);
+ return 1;
+}
+
+static int base_suspend(HSQUIRRELVM v)
+{
+ return sq_suspendvm(v);
+}
+
+static int base_array(HSQUIRRELVM v)
+{
+ SQArray *a;
+ SQObject &size = stack_get(v,2);
+ if(sq_gettop(v) > 2) {
+ a = SQArray::Create(_ss(v),0);
+ a->Resize(tointeger(size),stack_get(v,3));
+ }
+ else {
+ a = SQArray::Create(_ss(v),tointeger(size));
+ }
+ v->Push(a);
+ return 1;
+}
+
+static int base_type(HSQUIRRELVM v)
+{
+ SQObjectPtr &o = stack_get(v,2);
+ v->Push(SQString::Create(_ss(v),GetTypeName(o),-1));
+ return 1;
+}
+
+static SQRegFunction base_funcs[]={
+ //generic
+ {_SC("seterrorhandler"),base_seterrorhandler,2, NULL},
+ {_SC("setdebughook"),base_setdebughook,2, NULL},
+ {_SC("enabledebuginfo"),base_enabledebuginfo,2, NULL},
+ {_SC("getstackinfos"),base_getstackinfos,2, _SC(".n")},
+ {_SC("getroottable"),base_getroottable,1, NULL},
+ {_SC("setroottable"),base_setroottable,2, NULL},
+ {_SC("assert"),base_assert,2, NULL},
+ {_SC("print"),base_print,2, NULL},
+ {_SC("compilestring"),base_compilestring,-2, _SC(".ss")},
+ {_SC("newthread"),base_newthread,2, _SC(".c")},
+ {_SC("suspend"),base_suspend,-1, NULL},
+ {_SC("array"),base_array,-2, _SC(".n")},
+ {_SC("type"),base_type,2, NULL},
+#ifndef NO_GARBAGE_COLLECTOR
+ {_SC("collectgarbage"),base_collectgarbage,1, _SC("t")},
+#endif
+ {0,0,0,0}
+};
+
+void sq_base_register(HSQUIRRELVM v)
+{
+ int i=0;
+ sq_pushroottable(v);
+ while(base_funcs[i].name!=0) {
+ sq_pushstring(v,base_funcs[i].name,-1);
+ sq_newclosure(v,base_funcs[i].f,0);
+ sq_setnativeclosurename(v,-1,base_funcs[i].name);
+ sq_setparamscheck(v,base_funcs[i].nparamscheck,base_funcs[i].typemask);
+ sq_createslot(v,-3);
+ i++;
+ }
+ sq_pushstring(v,_SC("_charsize_"),-1);
+ sq_pushinteger(v,sizeof(SQChar));
+ sq_createslot(v,-3);
+ sq_pop(v,1);
+}
+
+static int default_delegate_len(HSQUIRRELVM v)
+{
+ v->Push(SQInteger(sq_getsize(v,1)));
+ return 1;
+}
+
+static int default_delegate_tofloat(HSQUIRRELVM v)
+{
+ SQObjectPtr &o=stack_get(v,1);
+ switch(type(o)){
+ case OT_STRING:{
+ SQObjectPtr res;
+ if(str2num(_stringval(o),res)){
+ v->Push(SQObjectPtr(tofloat(res)));
+ break;
+ }}
+ case OT_INTEGER:case OT_FLOAT:
+ v->Push(SQObjectPtr(tofloat(o)));
+ break;
+ case OT_BOOL:
+ v->Push(SQObjectPtr((SQFloat)(_integer(o)?1:0)));
+ break;
+ default:
+ v->Push(_null_);
+ break;
+ }
+ return 1;
+}
+
+static int default_delegate_tointeger(HSQUIRRELVM v)
+{
+ SQObjectPtr &o=stack_get(v,1);
+ switch(type(o)){
+ case OT_STRING:{
+ SQObjectPtr res;
+ if(str2num(_stringval(o),res)){
+ v->Push(SQObjectPtr(tointeger(res)));
+ break;
+ }}
+ case OT_INTEGER:case OT_FLOAT:
+ v->Push(SQObjectPtr(tointeger(o)));
+ break;
+ case OT_BOOL:
+ v->Push(SQObjectPtr(_integer(o)?1:0));
+ break;
+ default:
+ v->Push(_null_);
+ break;
+ }
+ return 1;
+}
+
+static int default_delegate_tostring(HSQUIRRELVM v)
+{
+ SQObjectPtr &o=stack_get(v,1);
+ switch(type(o)){
+ case OT_STRING:
+ v->Push(o);
+ break;
+ case OT_INTEGER:
+ scsprintf(_ss(v)->GetScratchPad(rsl(NUMBER_MAX_CHAR+1)),_SC("%d"),_integer(o));
+ v->Push(SQString::Create(_ss(v),_ss(v)->GetScratchPad(-1)));
+ break;
+ case OT_FLOAT:
+ scsprintf(_ss(v)->GetScratchPad(rsl(NUMBER_MAX_CHAR+1)),_SC("%.14g"),_float(o));
+ v->Push(SQString::Create(_ss(v),_ss(v)->GetScratchPad(-1)));
+ break;
+ case OT_BOOL:
+ v->Push(SQObjectPtr(SQString::Create(_ss(v),_integer(o)?_SC("true"):_SC("false"))));
+ break;
+ default:
+ v->Push(_null_);
+ break;
+ }
+ return 1;
+}
+
+static int number_delegate_tochar(HSQUIRRELVM v)
+{
+ SQObject &o=stack_get(v,1);
+ SQChar c=tointeger(o);
+ v->Push(SQString::Create(_ss(v),(const SQChar *)&c,1));
+ return 1;
+}
+
+
+/////////////////////////////////////////////////////////////////
+//TABLE DEFAULT DELEGATE
+
+static int table_rawdelete(HSQUIRRELVM v)
+{
+ if(SQ_FAILED(sq_rawdeleteslot(v,1,SQTrue)))
+ return SQ_ERROR;
+ return 1;
+}
+
+
+static int container_rawexists(HSQUIRRELVM v)
+{
+ if(SQ_SUCCEEDED(sq_rawget(v,-2))) {
+ sq_pushbool(v,SQTrue);
+ return 1;
+ }
+ sq_pushbool(v,SQFalse);
+ return 1;
+}
+
+static int table_rawset(HSQUIRRELVM v)
+{
+ return sq_rawset(v,-3);
+}
+
+
+static int table_rawget(HSQUIRRELVM v)
+{
+ return SQ_SUCCEEDED(sq_rawget(v,-2))?1:SQ_ERROR;
+}
+
+SQRegFunction SQSharedState::_table_default_delegate_funcz[]={
+ {_SC("len"),default_delegate_len,1, _SC("t")},
+ {_SC("rawget"),table_rawget,2, _SC("t")},
+ {_SC("rawset"),table_rawset,3, _SC("t")},
+ {_SC("rawdelete"),table_rawdelete,2, _SC("t")},
+ {_SC("rawin"),container_rawexists,2, _SC("t")},
+ {0,0,0,0}
+};
+
+//ARRAY DEFAULT DELEGATE///////////////////////////////////////
+
+static int array_append(HSQUIRRELVM v)
+{
+ return sq_arrayappend(v,-2);
+}
+
+static int array_extend(HSQUIRRELVM v)
+{
+ _array(stack_get(v,1))->Extend(_array(stack_get(v,2)));
+ return 0;
+}
+
+static int array_reverse(HSQUIRRELVM v)
+{
+ return sq_arrayreverse(v,-1);
+}
+
+static int array_pop(HSQUIRRELVM v)
+{
+ return SQ_SUCCEEDED(sq_arraypop(v,1,SQTrue))?1:SQ_ERROR;
+}
+
+static int array_top(HSQUIRRELVM v)
+{
+ SQObject &o=stack_get(v,1);
+ if(_array(o)->Size()>0){
+ v->Push(_array(o)->Top());
+ return 1;
+ }
+ else return sq_throwerror(v,_SC("top() on a empty array"));
+}
+
+static int array_insert(HSQUIRRELVM v)
+{
+ SQObject &o=stack_get(v,1);
+ SQObject &idx=stack_get(v,2);
+ SQObject &val=stack_get(v,3);
+ _array(o)->Insert(idx,val);
+ return 0;
+}
+
+static int array_remove(HSQUIRRELVM v)
+{
+ SQObject &o = stack_get(v, 1);
+ SQObject &idx = stack_get(v, 2);
+ if(!sq_isnumeric(idx)) return sq_throwerror(v, _SC("wrong type"));
+ SQObjectPtr val;
+ if(_array(o)->Get(tointeger(idx), val)) {
+ _array(o)->Remove(tointeger(idx));
+ v->Push(val);
+ return 1;
+ }
+ return sq_throwerror(v, _SC("idx out of range"));
+}
+
+static int array_resize(HSQUIRRELVM v)
+{
+ SQObject &o = stack_get(v, 1);
+ SQObject &nsize = stack_get(v, 2);
+ SQObjectPtr fill;
+ if(sq_isnumeric(nsize)) {
+ if(sq_gettop(v) > 2)
+ fill = stack_get(v, 3);
+ _array(o)->Resize(tointeger(nsize),fill);
+ return 0;
+ }
+ return sq_throwerror(v, _SC("size must be a number"));
+}
+
+
+//QSORT ala Sedgewick
+bool _qsort_compare(HSQUIRRELVM v,SQObjectPtr &arr,SQObjectPtr &a,SQObjectPtr &b,int func,int &ret)
+{
+ (void) arr;
+
+ if(func < 0) {
+ if(!v->ObjCmp(a,b,ret)) return false;
+ }
+ else {
+ int top = sq_gettop(v);
+ sq_push(v, func);
+ sq_pushroottable(v);
+ v->Push(a);
+ v->Push(b);
+ if(SQ_FAILED(sq_call(v, 3, SQTrue))) {
+ v->Raise_Error(_SC("compare func failed"));
+ return false;
+ }
+ sq_getinteger(v, -1, &ret);
+ sq_settop(v, top);
+ return true;
+ }
+ return true;
+}
+//QSORT ala Sedgewick
+bool _qsort(HSQUIRRELVM v,SQObjectPtr &arr, int l, int r,int func)
+{
+ int i, j;
+ SQArray *a=_array(arr);
+ SQObjectPtr pivot,t;
+ if( l < r ){
+ pivot = a->_values[l];
+ i = l; j = r+1;
+ while(1){
+ int ret;
+ do {
+ ++i;
+ if(i > r) break;
+ if(!_qsort_compare(v,arr,a->_values[i],pivot,func,ret))
+ return false;
+ } while( ret <= 0);
+ do {
+ --j;
+ if(!_qsort_compare(v,arr,a->_values[j],pivot,func,ret))
+ return false;
+ }
+ while( ret > 0 );
+ if( i >= j ) break;
+ t = a->_values[i]; a->_values[i] = a->_values[j]; a->_values[j] = t;
+ }
+ t = a->_values[l]; a->_values[l] = a->_values[j]; a->_values[j] = t;
+ if(!_qsort( v, arr, l, j-1,func)) return false;
+ if(!_qsort( v, arr, j+1, r,func)) return false;
+ }
+ return true;
+}
+
+static int array_sort(HSQUIRRELVM v)
+{
+ //SQ_TRY {
+ int func = -1;
+ SQObjectPtr &o = stack_get(v,1);
+ SQObject &funcobj = stack_get(v,2);
+ if(_array(o)->Size() > 1) {
+ if(type(funcobj) == OT_CLOSURE || type(funcobj) == OT_NATIVECLOSURE) func = 2;
+ if(!_qsort(v, o, 0, _array(o)->Size()-1, func))
+ return SQ_ERROR;
+
+ }
+ return 0;
+}
+static int array_slice(HSQUIRRELVM v)
+{
+ int sidx,eidx;
+ SQObjectPtr o;
+ if(get_slice_params(v,sidx,eidx,o)==-1)return -1;
+ if(sidx<0)sidx=_array(o)->Size()+sidx;
+ if(eidx<0)eidx=_array(o)->Size()+eidx;
+ if(eidx <= sidx)return sq_throwerror(v,_SC("wrong indexes"));
+ SQArray *arr=SQArray::Create(_ss(v),eidx-sidx);
+ SQObjectPtr t;
+ int count=0;
+ for(int i=sidx;i<eidx;i++){
+ _array(o)->Get(i,t);
+ arr->Set(count++,t);
+ }
+ v->Push(arr);
+ return 1;
+
+}
+
+SQRegFunction SQSharedState::_array_default_delegate_funcz[]={
+ {_SC("len"),default_delegate_len,1, _SC("a")},
+ {_SC("append"),array_append,2, _SC("a")},
+ {_SC("extend"),array_extend,2, _SC("aa")},
+ {_SC("push"),array_append,2, _SC("a")},
+ {_SC("pop"),array_pop,1, _SC("a")},
+ {_SC("top"),array_top,1, _SC("a")},
+ {_SC("insert"),array_insert,3, _SC("an")},
+ {_SC("remove"),array_remove,2, _SC("an")},
+ {_SC("resize"),array_resize,-2, _SC("an")},
+ {_SC("reverse"),array_reverse,1, _SC("a")},
+ {_SC("sort"),array_sort,-1, _SC("ac")},
+ {_SC("slice"),array_slice,-1, _SC("ann")},
+ {0,0,0,0}
+};
+
+//STRING DEFAULT DELEGATE//////////////////////////
+static int string_slice(HSQUIRRELVM v)
+{
+ int sidx,eidx;
+ SQObjectPtr o;
+ if(SQ_FAILED(get_slice_params(v,sidx,eidx,o)))return -1;
+ if(sidx<0)sidx=_string(o)->_len+sidx;
+ if(eidx<0)eidx=_string(o)->_len+eidx;
+ if(eidx<sidx)
+ return sq_throwerror(v,_SC("wrong indexes"));
+ v->Push(SQString::Create(_ss(v),&_stringval(o)[sidx],eidx-sidx));
+ return 1;
+}
+
+static int string_find(HSQUIRRELVM v)
+{
+ int top,start_idx=0;
+ const SQChar *str,*substr,*ret;
+ if(((top=sq_gettop(v))>1) && SQ_SUCCEEDED(sq_getstring(v,1,&str)) && SQ_SUCCEEDED(sq_getstring(v,2,&substr))){
+ if(top>2)sq_getinteger(v,3,&start_idx);
+ if((sq_getsize(v,1)>start_idx) && (start_idx>=0)){
+ ret=scstrstr(&str[start_idx],substr);
+ if(ret){
+ sq_pushinteger(v,(int)(ret-str));
+ return 1;
+ }
+ }
+ return 0;
+ }
+ return sq_throwerror(v,_SC("invalid param"));
+}
+
+#define STRING_TOFUNCZ(func) static int string_##func(HSQUIRRELVM v) \
+{ \
+ SQObject str=stack_get(v,1); \
+ int len=_string(str)->_len; \
+ const SQChar *sThis=_stringval(str); \
+ SQChar *sNew=(_ss(v)->GetScratchPad(rsl(len))); \
+ for(int i=0;i<len;i++) sNew[i]=func(sThis[i]); \
+ v->Push(SQString::Create(_ss(v),sNew,len)); \
+ return 1; \
+}
+
+
+STRING_TOFUNCZ(tolower)
+STRING_TOFUNCZ(toupper)
+
+SQRegFunction SQSharedState::_string_default_delegate_funcz[]={
+ {_SC("len"),default_delegate_len,1, _SC("s")},
+ {_SC("tointeger"),default_delegate_tointeger,1, _SC("s")},
+ {_SC("tofloat"),default_delegate_tofloat,1, _SC("s")},
+ {_SC("tostring"),default_delegate_tostring,1, _SC("s")},
+ {_SC("slice"),string_slice,-1, _SC(" s n n")},
+ {_SC("find"),string_find,-2, _SC("s s n ")},
+ {_SC("tolower"),string_tolower,1, _SC("s")},
+ {_SC("toupper"),string_toupper,1, _SC("s")},
+ {0,0,0,0}
+};
+
+//INTEGER DEFAULT DELEGATE//////////////////////////
+SQRegFunction SQSharedState::_number_default_delegate_funcz[]={
+ {_SC("tointeger"),default_delegate_tointeger,1, _SC("n|b")},
+ {_SC("tofloat"),default_delegate_tofloat,1, _SC("n|b")},
+ {_SC("tostring"),default_delegate_tostring,1, _SC("n|b")},
+ {_SC("tochar"),number_delegate_tochar,1, _SC("n|b")},
+ {0,0,0,0}
+};
+
+//CLOSURE DEFAULT DELEGATE//////////////////////////
+static int closure_call(HSQUIRRELVM v)
+{
+ return SQ_SUCCEEDED(sq_call(v,sq_gettop(v)-1,SQTrue))?1:SQ_ERROR;
+}
+
+static int closure_acall(HSQUIRRELVM v)
+{
+ SQArray *aparams=_array(stack_get(v,2));
+ int nparams=aparams->Size();
+ v->Push(stack_get(v,1));
+ for(int i=0;i<nparams;i++)v->Push(aparams->_values[i]);
+ return SQ_SUCCEEDED(sq_call(v,nparams,SQTrue))?1:SQ_ERROR;
+}
+
+SQRegFunction SQSharedState::_closure_default_delegate_funcz[]={
+ {_SC("call"),closure_call,-1, _SC("c")},
+ {_SC("acall"),closure_acall,2, _SC("ca")},
+ {0,0,0,0}
+};
+
+//GENERATOR DEFAULT DELEGATE
+static int generator_getstatus(HSQUIRRELVM v)
+{
+ SQObject &o=stack_get(v,1);
+ switch(_generator(o)->_state){
+ case SQGenerator::eSuspended:v->Push(SQString::Create(_ss(v),_SC("suspended")));break;
+ case SQGenerator::eRunning:v->Push(SQString::Create(_ss(v),_SC("running")));break;
+ case SQGenerator::eDead:v->Push(SQString::Create(_ss(v),_SC("dead")));break;
+ }
+ return 1;
+}
+
+SQRegFunction SQSharedState::_generator_default_delegate_funcz[]={
+ {_SC("getstatus"),generator_getstatus,1, _SC("g")},
+ {0,0,0,0}
+};
+
+//THREAD DEFAULT DELEGATE
+
+static int thread_call(HSQUIRRELVM v)
+{
+ SQObjectPtr o = stack_get(v,1);
+ if(type(o) == OT_THREAD) {
+ int nparams = sq_gettop(v);
+ _thread(o)->Push(_thread(o)->_roottable);
+ for(int i = 2; i<(nparams+1); i++)
+ sq_move(_thread(o),v,i);
+ if(SQ_SUCCEEDED(sq_call(_thread(o),nparams,SQTrue))) {
+ sq_move(v,_thread(o),-1);
+ return 1;
+ }
+ return SQ_ERROR;
+ }
+ return sq_throwerror(v,_SC("wrong parameter"));
+}
+
+static int thread_wakeup(HSQUIRRELVM v)
+{
+ SQObjectPtr o = stack_get(v,1);
+ if(type(o) == OT_THREAD) {
+ SQVM *thread = _thread(o);
+ int state = sq_getvmstate(thread);
+ if(state != SQ_VMSTATE_SUSPENDED) {
+ switch(state) {
+ case SQ_VMSTATE_IDLE:
+ return sq_throwerror(v,_SC("cannot wakeup a idle thread"));
+ break;
+ case SQ_VMSTATE_RUNNING:
+ return sq_throwerror(v,_SC("cannot wakeup a running thread"));
+ break;
+ }
+ }
+
+ int wakeupret = sq_gettop(v)>1?1:0;
+ if(wakeupret) {
+ sq_move(thread,v,2);
+ }
+ if(SQ_SUCCEEDED(sq_wakeupvm(thread,wakeupret,1))) {
+ sq_move(v,thread,-1);
+ sq_pop(thread,1);
+ if(sq_getvmstate(thread) == SQ_VMSTATE_IDLE) {
+ sq_pop(thread,1);
+ }
+ return 1;
+ }
+ return SQ_ERROR;
+ }
+ return sq_throwerror(v,_SC("wrong parameter"));
+}
+
+static int thread_getstatus(HSQUIRRELVM v)
+{
+ SQObjectPtr &o = stack_get(v,1);
+ switch(sq_getvmstate(_thread(o))) {
+ case SQ_VMSTATE_IDLE:
+ sq_pushstring(v,_SC("idle"),-1);
+ break;
+ case SQ_VMSTATE_RUNNING:
+ sq_pushstring(v,_SC("running"),-1);
+ break;
+ case SQ_VMSTATE_SUSPENDED:
+ sq_pushstring(v,_SC("suspended"),-1);
+ break;
+ default:
+ return sq_throwerror(v,_SC("internal VM error"));
+ }
+ return 1;
+}
+
+SQRegFunction SQSharedState::_thread_default_delegate_funcz[] = {
+ {_SC("call"), thread_call, -1, _SC("v")},
+ {_SC("wakeup"), thread_wakeup, -1, _SC("v")},
+ {_SC("getstatus"), thread_getstatus, 1, _SC("v")},
+ {0,0,0,0},
+};
+
+static int class_getattributes(HSQUIRRELVM v)
+{
+ if(SQ_SUCCEEDED(sq_getattributes(v,-2)))
+ return 1;
+ return SQ_ERROR;
+}
+
+static int class_setattributes(HSQUIRRELVM v)
+{
+ if(SQ_SUCCEEDED(sq_setattributes(v,-3)))
+ return 1;
+ return SQ_ERROR;
+}
+
+SQRegFunction SQSharedState::_class_default_delegate_funcz[] = {
+ {_SC("getattributes"), class_getattributes, 2, _SC("y.")},
+ {_SC("setattributes"), class_setattributes, 3, _SC("y..")},
+ {_SC("rawin"),container_rawexists,2, _SC("y")},
+ {0,0,0,0}
+};
+
+static int instance_getclass(HSQUIRRELVM v)
+{
+ if(SQ_SUCCEEDED(sq_getclass(v,1)))
+ return 1;
+ return SQ_ERROR;
+}
+
+SQRegFunction SQSharedState::_instance_default_delegate_funcz[] = {
+ {_SC("getclass"), instance_getclass, 1, _SC("x")},
+ {_SC("rawin"),container_rawexists,2, _SC("x")},
+ {0,0,0,0}
+};
+