-/*\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 "squserdata.h"\r
-#include "sqcompiler.h"\r
-#include "sqfuncstate.h"\r
-#include "sqclass.h"\r
-\r
-bool sq_aux_gettypedarg(HSQUIRRELVM v,SQInteger idx,SQObjectType type,SQObjectPtr **o)\r
-{\r
- *o = &stack_get(v,idx);\r
- if(type(**o) != type){\r
- SQObjectPtr oval = v->PrintObjVal(**o);\r
- v->Raise_Error(_SC("wrong argument type, expected '%s' got '%.50s'"),IdType2Name(type),_stringval(oval));\r
- return false;\r
- }\r
- return true;\r
-}\r
-\r
-#define _GETSAFE_OBJ(v,idx,type,o) { if(!sq_aux_gettypedarg(v,idx,type,&o)) return SQ_ERROR; }\r
-\r
-#define sq_aux_paramscheck(v,count) \\r
-{ \\r
- if(sq_gettop(v) < count){ v->Raise_Error(_SC("not enough params in the stack")); return SQ_ERROR; }\\r
-} \r
-\r
-SQInteger sq_aux_throwobject(HSQUIRRELVM v,SQObjectPtr &e)\r
-{\r
- v->_lasterror = e;\r
- return SQ_ERROR;\r
-}\r
-\r
-SQInteger sq_aux_invalidtype(HSQUIRRELVM v,SQObjectType type)\r
-{\r
- scsprintf(_ss(v)->GetScratchPad(100), _SC("unexpected type %s"), IdType2Name(type));\r
- return sq_throwerror(v, _ss(v)->GetScratchPad(-1));\r
-}\r
-\r
-HSQUIRRELVM sq_open(SQInteger initialstacksize)\r
-{\r
- SQSharedState *ss;\r
- SQVM *v;\r
- sq_new(ss, SQSharedState);\r
- ss->Init();\r
- v = (SQVM *)SQ_MALLOC(sizeof(SQVM));\r
- new (v) SQVM(ss);\r
- ss->_root_vm = v;\r
- if(v->Init(NULL, initialstacksize)) {\r
- return v;\r
- } else {\r
- sq_delete(v, SQVM);\r
- return NULL;\r
- }\r
- return v;\r
-}\r
-\r
-HSQUIRRELVM sq_newthread(HSQUIRRELVM friendvm, SQInteger initialstacksize)\r
-{\r
- SQSharedState *ss;\r
- SQVM *v;\r
- ss=_ss(friendvm);\r
- \r
- v= (SQVM *)SQ_MALLOC(sizeof(SQVM));\r
- new (v) SQVM(ss);\r
- \r
- if(v->Init(friendvm, initialstacksize)) {\r
- friendvm->Push(v);\r
- return v;\r
- } else {\r
- sq_delete(v, SQVM);\r
- return NULL;\r
- }\r
-}\r
-\r
-SQInteger sq_getvmstate(HSQUIRRELVM v)\r
-{\r
- if(v->_suspended)\r
- return SQ_VMSTATE_SUSPENDED;\r
- else { \r
- if(v->_callsstack.size() != 0) return SQ_VMSTATE_RUNNING;\r
- else return SQ_VMSTATE_IDLE;\r
- }\r
-}\r
-\r
-void sq_seterrorhandler(HSQUIRRELVM v)\r
-{\r
- SQObject o = stack_get(v, -1);\r
- if(sq_isclosure(o) || sq_isnativeclosure(o) || sq_isnull(o)) {\r
- v->_errorhandler = o;\r
- v->Pop();\r
- }\r
-}\r
-\r
-void sq_setdebughook(HSQUIRRELVM v)\r
-{\r
- SQObject o = stack_get(v,-1);\r
- if(sq_isclosure(o) || sq_isnativeclosure(o) || sq_isnull(o)) {\r
- v->_debughook = o;\r
- v->Pop();\r
- }\r
-}\r
-\r
-void sq_close(HSQUIRRELVM v)\r
-{\r
- SQSharedState *ss = _ss(v);\r
- _thread(ss->_root_vm)->Finalize();\r
- sq_delete(ss, SQSharedState);\r
-}\r
-\r
-SQRESULT sq_compile(HSQUIRRELVM v,SQLEXREADFUNC read,SQUserPointer p,const SQChar *sourcename,SQBool raiseerror)\r
-{\r
- SQObjectPtr o;\r
- if(Compile(v, read, p, sourcename, o, raiseerror?true:false, _ss(v)->_debuginfo)) {\r
- v->Push(SQClosure::Create(_ss(v), _funcproto(o)));\r
- return SQ_OK;\r
- }\r
- return SQ_ERROR;\r
-}\r
-\r
-void sq_enabledebuginfo(HSQUIRRELVM v, SQBool enable)\r
-{\r
- _ss(v)->_debuginfo = enable?true:false;\r
-}\r
-\r
-void sq_notifyallexceptions(HSQUIRRELVM v, SQBool enable)\r
-{\r
- _ss(v)->_notifyallexceptions = enable?true:false;\r
-}\r
-\r
-void sq_addref(HSQUIRRELVM v,HSQOBJECT *po)\r
-{\r
- if(!ISREFCOUNTED(type(*po))) return;\r
- _ss(v)->_refs_table.AddRef(*po);\r
-}\r
-\r
-SQBool sq_release(HSQUIRRELVM v,HSQOBJECT *po)\r
-{\r
- if(!ISREFCOUNTED(type(*po))) return SQTrue;\r
- return _ss(v)->_refs_table.Release(*po);\r
-}\r
-\r
-const SQChar *sq_objtostring(HSQOBJECT *o) \r
-{\r
- if(sq_type(*o) == OT_STRING) {\r
- return _stringval(*o);\r
- }\r
- return NULL;\r
-}\r
-\r
-SQInteger sq_objtointeger(HSQOBJECT *o) \r
-{\r
- if(sq_isnumeric(*o)) {\r
- return tointeger(*o);\r
- }\r
- return 0;\r
-}\r
-\r
-SQFloat sq_objtofloat(HSQOBJECT *o) \r
-{\r
- if(sq_isnumeric(*o)) {\r
- return tofloat(*o);\r
- }\r
- return 0;\r
-}\r
-\r
-SQBool sq_objtobool(HSQOBJECT *o) \r
-{\r
- if(sq_isbool(*o)) {\r
- return _integer(*o);\r
- }\r
- return SQFalse;\r
-}\r
-\r
-void sq_pushnull(HSQUIRRELVM v)\r
-{\r
- v->Push(_null_);\r
-}\r
-\r
-void sq_pushstring(HSQUIRRELVM v,const SQChar *s,SQInteger len)\r
-{\r
- if(s)\r
- v->Push(SQObjectPtr(SQString::Create(_ss(v), s, len)));\r
- else v->Push(_null_);\r
-}\r
-\r
-void sq_pushinteger(HSQUIRRELVM v,SQInteger n)\r
-{\r
- v->Push(n);\r
-}\r
-\r
-void sq_pushbool(HSQUIRRELVM v,SQBool b)\r
-{\r
- v->Push(b?true:false);\r
-}\r
-\r
-void sq_pushfloat(HSQUIRRELVM v,SQFloat n)\r
-{\r
- v->Push(n);\r
-}\r
-\r
-void sq_pushuserpointer(HSQUIRRELVM v,SQUserPointer p)\r
-{\r
- v->Push(p);\r
-}\r
-\r
-SQUserPointer sq_newuserdata(HSQUIRRELVM v,SQUnsignedInteger size)\r
-{\r
- SQUserData *ud = SQUserData::Create(_ss(v), size);\r
- v->Push(ud);\r
- return ud->_val;\r
-}\r
-\r
-void sq_newtable(HSQUIRRELVM v)\r
-{\r
- v->Push(SQTable::Create(_ss(v), 0)); \r
-}\r
-\r
-void sq_newarray(HSQUIRRELVM v,SQInteger size)\r
-{\r
- v->Push(SQArray::Create(_ss(v), size)); \r
-}\r
-\r
-SQRESULT sq_newclass(HSQUIRRELVM v,SQBool hasbase)\r
-{\r
- SQClass *baseclass = NULL;\r
- if(hasbase) {\r
- SQObjectPtr &base = stack_get(v,-1);\r
- if(type(base) != OT_CLASS)\r
- return sq_throwerror(v,_SC("invalid base type"));\r
- baseclass = _class(base);\r
- }\r
- SQClass *newclass = SQClass::Create(_ss(v), baseclass);\r
- if(baseclass) v->Pop();\r
- v->Push(newclass); \r
- return SQ_OK;\r
-}\r
-\r
-SQBool sq_instanceof(HSQUIRRELVM v)\r
-{\r
- SQObjectPtr &inst = stack_get(v,-1);\r
- SQObjectPtr &cl = stack_get(v,-2);\r
- if(type(inst) != OT_INSTANCE || type(cl) != OT_CLASS)\r
- return sq_throwerror(v,_SC("invalid param type"));\r
- return _instance(inst)->InstanceOf(_class(cl))?SQTrue:SQFalse;\r
-}\r
-\r
-SQRESULT sq_arrayappend(HSQUIRRELVM v,SQInteger idx)\r
-{\r
- sq_aux_paramscheck(v,2);\r
- SQObjectPtr *arr;\r
- _GETSAFE_OBJ(v, idx, OT_ARRAY,arr);\r
- _array(*arr)->Append(v->GetUp(-1));\r
- v->Pop(1);\r
- return SQ_OK;\r
-}\r
-\r
-SQRESULT sq_arraypop(HSQUIRRELVM v,SQInteger idx,SQBool pushval)\r
-{\r
- sq_aux_paramscheck(v, 1);\r
- SQObjectPtr *arr;\r
- _GETSAFE_OBJ(v, idx, OT_ARRAY,arr);\r
- if(_array(*arr)->Size() > 0) {\r
- if(pushval != 0){ v->Push(_array(*arr)->Top()); }\r
- _array(*arr)->Pop();\r
- return SQ_OK;\r
- }\r
- return sq_throwerror(v, _SC("empty array"));\r
-}\r
-\r
-SQRESULT sq_arrayresize(HSQUIRRELVM v,SQInteger idx,SQInteger newsize)\r
-{\r
- sq_aux_paramscheck(v,1);\r
- SQObjectPtr *arr;\r
- _GETSAFE_OBJ(v, idx, OT_ARRAY,arr);\r
- if(_array(*arr)->Size() > 0) {\r
- _array(*arr)->Resize(newsize);\r
- return SQ_OK;\r
- }\r
- return SQ_OK;\r
-}\r
-\r
-SQRESULT sq_arrayreverse(HSQUIRRELVM v,SQInteger idx)\r
-{\r
- sq_aux_paramscheck(v, 1);\r
- SQObjectPtr *o;\r
- _GETSAFE_OBJ(v, idx, OT_ARRAY,o);\r
- SQArray *arr = _array(*o);\r
- if(arr->Size() > 0) {\r
- SQObjectPtr t;\r
- SQInteger size = arr->Size();\r
- SQInteger n = size >> 1; size -= 1;\r
- for(SQInteger i = 0; i < n; i++) {\r
- t = arr->_values[i];\r
- arr->_values[i] = arr->_values[size-i];\r
- arr->_values[size-i] = t;\r
- }\r
- return SQ_OK;\r
- }\r
- return SQ_OK;\r
-}\r
-\r
-void sq_newclosure(HSQUIRRELVM v,SQFUNCTION func,SQUnsignedInteger nfreevars)\r
-{\r
- SQNativeClosure *nc = SQNativeClosure::Create(_ss(v), func);\r
- nc->_nparamscheck = 0;\r
- for(SQUnsignedInteger i = 0; i < nfreevars; i++) {\r
- nc->_outervalues.push_back(v->Top());\r
- v->Pop();\r
- }\r
- v->Push(SQObjectPtr(nc)); \r
-}\r
-\r
-SQRESULT sq_getclosureinfo(HSQUIRRELVM v,SQInteger idx,SQUnsignedInteger *nparams,SQUnsignedInteger *nfreevars)\r
-{\r
- SQObject o = stack_get(v, idx);\r
- if(sq_isclosure(o)) {\r
- SQClosure *c = _closure(o);\r
- SQFunctionProto *proto = _funcproto(c->_function);\r
- *nparams = (SQUnsignedInteger)proto->_parameters.size();\r
- *nfreevars = (SQUnsignedInteger)c->_outervalues.size();\r
- return SQ_OK;\r
- }\r
- return sq_throwerror(v,_SC("the object is not a closure"));\r
-}\r
-\r
-SQRESULT sq_setnativeclosurename(HSQUIRRELVM v,SQInteger idx,const SQChar *name)\r
-{\r
- SQObject o = stack_get(v, idx);\r
- if(sq_isnativeclosure(o)) {\r
- SQNativeClosure *nc = _nativeclosure(o);\r
- nc->_name = SQString::Create(_ss(v),name);\r
- return SQ_OK;\r
- }\r
- return sq_throwerror(v,_SC("the object is not a nativeclosure"));\r
-}\r
-\r
-SQRESULT sq_setparamscheck(HSQUIRRELVM v,SQInteger nparamscheck,const SQChar *typemask)\r
-{\r
- SQObject o = stack_get(v, -1);\r
- if(!sq_isnativeclosure(o))\r
- return sq_throwerror(v, _SC("native closure expected"));\r
- SQNativeClosure *nc = _nativeclosure(o);\r
- nc->_nparamscheck = nparamscheck;\r
- if(typemask) {\r
- SQIntVec res;\r
- if(!CompileTypemask(res, typemask))\r
- return sq_throwerror(v, _SC("invalid typemask"));\r
- nc->_typecheck.copy(res);\r
- }\r
- else {\r
- nc->_typecheck.resize(0);\r
- }\r
- if(nparamscheck == SQ_MATCHTYPEMASKSTRING) {\r
- nc->_nparamscheck = nc->_typecheck.size();\r
- }\r
- return SQ_OK;\r
-}\r
-\r
-SQRESULT sq_bindenv(HSQUIRRELVM v,SQInteger idx)\r
-{\r
- SQObjectPtr &o = stack_get(v,idx);\r
- if(!sq_isnativeclosure(o) &&\r
- !sq_isclosure(o))\r
- return sq_throwerror(v,_SC("the target is not a closure"));\r
- SQObjectPtr &env = stack_get(v,-1);\r
- if(!sq_istable(env) &&\r
- !sq_isclass(env) &&\r
- !sq_isinstance(env))\r
- return sq_throwerror(v,_SC("invalid environment"));\r
- SQObjectPtr w = _refcounted(env)->GetWeakRef(type(env));\r
- SQObjectPtr ret;\r
- if(sq_isclosure(o)) {\r
- SQClosure *c = _closure(o)->Clone();\r
- c->_env = w;\r
- ret = c;\r
- }\r
- else { //then must be a native closure\r
- SQNativeClosure *c = _nativeclosure(o)->Clone();\r
- c->_env = w;\r
- ret = c;\r
- }\r
- v->Pop();\r
- v->Push(ret);\r
- return SQ_OK;\r
-}\r
-\r
-void sq_pushroottable(HSQUIRRELVM v)\r
-{\r
- v->Push(v->_roottable);\r
-}\r
-\r
-void sq_pushregistrytable(HSQUIRRELVM v)\r
-{\r
- v->Push(_ss(v)->_registry);\r
-}\r
-\r
-SQRESULT sq_setroottable(HSQUIRRELVM v)\r
-{\r
- SQObject o = stack_get(v, -1);\r
- if(sq_istable(o) || sq_isnull(o)) {\r
- v->_roottable = o;\r
- v->Pop();\r
- return SQ_OK;\r
- }\r
- return sq_throwerror(v, _SC("ivalid type"));\r
-}\r
-\r
-void sq_setforeignptr(HSQUIRRELVM v,SQUserPointer p)\r
-{\r
- v->_foreignptr = p;\r
-}\r
-\r
-SQUserPointer sq_getforeignptr(HSQUIRRELVM v)\r
-{\r
- return v->_foreignptr;\r
-}\r
-\r
-void sq_push(HSQUIRRELVM v,SQInteger idx)\r
-{\r
- v->Push(stack_get(v, idx));\r
-}\r
-\r
-SQObjectType sq_gettype(HSQUIRRELVM v,SQInteger idx)\r
-{\r
- return type(stack_get(v, idx));\r
-}\r
-\r
-void sq_tostring(HSQUIRRELVM v,SQInteger idx)\r
-{\r
- SQObjectPtr &o = stack_get(v, idx);\r
- SQObjectPtr res;\r
- v->ToString(o,res);\r
- v->Push(res);\r
-}\r
-\r
-void sq_tobool(HSQUIRRELVM v, SQInteger idx, SQBool *b)\r
-{\r
- SQObjectPtr &o = stack_get(v, idx);\r
- *b = v->IsFalse(o)?SQFalse:SQTrue;\r
-}\r
-\r
-SQRESULT sq_getinteger(HSQUIRRELVM v,SQInteger idx,SQInteger *i)\r
-{\r
- SQObjectPtr &o = stack_get(v, idx);\r
- if(sq_isnumeric(o)) {\r
- *i = tointeger(o);\r
- return SQ_OK;\r
- }\r
- return SQ_ERROR;\r
-}\r
-\r
-SQRESULT sq_getfloat(HSQUIRRELVM v,SQInteger idx,SQFloat *f)\r
-{\r
- SQObjectPtr &o = stack_get(v, idx);\r
- if(sq_isnumeric(o)) {\r
- *f = tofloat(o);\r
- return SQ_OK;\r
- }\r
- return SQ_ERROR;\r
-}\r
-\r
-SQRESULT sq_getbool(HSQUIRRELVM v,SQInteger idx,SQBool *b)\r
-{\r
- SQObjectPtr &o = stack_get(v, idx);\r
- if(sq_isbool(o)) {\r
- *b = _integer(o);\r
- return SQ_OK;\r
- }\r
- return SQ_ERROR;\r
-}\r
-\r
-SQRESULT sq_getstring(HSQUIRRELVM v,SQInteger idx,const SQChar **c)\r
-{\r
- SQObjectPtr *o = NULL;\r
- _GETSAFE_OBJ(v, idx, OT_STRING,o);\r
- *c = _stringval(*o);\r
- return SQ_OK;\r
-}\r
-\r
-SQRESULT sq_getthread(HSQUIRRELVM v,SQInteger idx,HSQUIRRELVM *thread)\r
-{\r
- SQObjectPtr *o = NULL;\r
- _GETSAFE_OBJ(v, idx, OT_THREAD,o);\r
- *thread = _thread(*o);\r
- return SQ_OK;\r
-}\r
-\r
-SQRESULT sq_clone(HSQUIRRELVM v,SQInteger idx)\r
-{\r
- SQObjectPtr &o = stack_get(v,idx);\r
- v->Push(_null_);\r
- if(!v->Clone(o, stack_get(v, -1))){\r
- v->Pop();\r
- return sq_aux_invalidtype(v, type(o));\r
- }\r
- return SQ_OK;\r
-}\r
-\r
-SQInteger sq_getsize(HSQUIRRELVM v, SQInteger idx)\r
-{\r
- SQObjectPtr &o = stack_get(v, idx);\r
- SQObjectType type = type(o);\r
- switch(type) {\r
- case OT_STRING: return _string(o)->_len;\r
- case OT_TABLE: return _table(o)->CountUsed();\r
- case OT_ARRAY: return _array(o)->Size();\r
- case OT_USERDATA: return _userdata(o)->_size;\r
- default:\r
- return sq_aux_invalidtype(v, type);\r
- }\r
-}\r
-\r
-SQRESULT sq_getuserdata(HSQUIRRELVM v,SQInteger idx,SQUserPointer *p,SQUserPointer *typetag)\r
-{\r
- SQObjectPtr *o = NULL;\r
- _GETSAFE_OBJ(v, idx, OT_USERDATA,o);\r
- (*p) = _userdataval(*o);\r
- if(typetag) *typetag = _userdata(*o)->_typetag;\r
- return SQ_OK;\r
-}\r
-\r
-SQRESULT sq_settypetag(HSQUIRRELVM v,SQInteger idx,SQUserPointer typetag)\r
-{\r
- SQObjectPtr &o = stack_get(v,idx);\r
- switch(type(o)) {\r
- case OT_USERDATA: _userdata(o)->_typetag = typetag; break;\r
- case OT_CLASS: _class(o)->_typetag = typetag; break;\r
- default: return sq_throwerror(v,_SC("invalid object type"));\r
- }\r
- return SQ_OK;\r
-}\r
-\r
-SQRESULT sq_getobjtypetag(HSQOBJECT *o,SQUserPointer * typetag)\r
-{\r
- switch(type(*o)) {\r
- case OT_INSTANCE: *typetag = _instance(*o)->_class->_typetag; break;\r
- case OT_USERDATA: *typetag = _userdata(*o)->_typetag; break;\r
- case OT_CLASS: *typetag = _class(*o)->_typetag; break;\r
- default: return SQ_ERROR;\r
- }\r
- return SQ_OK;\r
-}\r
-\r
-SQRESULT sq_gettypetag(HSQUIRRELVM v,SQInteger idx,SQUserPointer *typetag)\r
-{\r
- SQObjectPtr &o = stack_get(v,idx);\r
- if(SQ_FAILED(sq_getobjtypetag(&o,typetag)))\r
- return sq_throwerror(v,_SC("invalid object type"));\r
- return SQ_OK;\r
-}\r
-\r
-SQRESULT sq_getuserpointer(HSQUIRRELVM v, SQInteger idx, SQUserPointer *p)\r
-{\r
- SQObjectPtr *o = NULL;\r
- _GETSAFE_OBJ(v, idx, OT_USERPOINTER,o);\r
- (*p) = _userpointer(*o);\r
- return SQ_OK;\r
-}\r
-\r
-SQRESULT sq_setinstanceup(HSQUIRRELVM v, SQInteger idx, SQUserPointer p)\r
-{\r
- SQObjectPtr &o = stack_get(v,idx);\r
- if(type(o) != OT_INSTANCE) return sq_throwerror(v,_SC("the object is not a class instance"));\r
- _instance(o)->_userpointer = p;\r
- return SQ_OK;\r
-}\r
-\r
-SQRESULT sq_getinstanceup(HSQUIRRELVM v, SQInteger idx, SQUserPointer *p,SQUserPointer typetag)\r
-{\r
- SQObjectPtr &o = stack_get(v,idx);\r
- if(type(o) != OT_INSTANCE) return sq_throwerror(v,_SC("the object is not a class instance"));\r
- (*p) = _instance(o)->_userpointer;\r
- if(typetag != 0) {\r
- SQClass *cl = _instance(o)->_class;\r
- do{\r
- if(cl->_typetag == typetag)\r
- return SQ_OK;\r
- cl = cl->_base;\r
- }while(cl != NULL);\r
- return sq_throwerror(v,_SC("invalid type tag"));\r
- }\r
- return SQ_OK;\r
-}\r
-\r
-SQInteger sq_gettop(HSQUIRRELVM v)\r
-{\r
- return (v->_top) - v->_stackbase;\r
-}\r
-\r
-void sq_settop(HSQUIRRELVM v, SQInteger newtop)\r
-{\r
- SQInteger top = sq_gettop(v);\r
- if(top > newtop)\r
- sq_pop(v, top - newtop);\r
- else\r
- while(top < newtop) sq_pushnull(v);\r
-}\r
-\r
-void sq_pop(HSQUIRRELVM v, SQInteger nelemstopop)\r
-{\r
- assert(v->_top >= nelemstopop);\r
- v->Pop(nelemstopop);\r
-}\r
-\r
-void sq_poptop(HSQUIRRELVM v)\r
-{\r
- assert(v->_top >= 1);\r
- v->Pop();\r
-}\r
-\r
-\r
-void sq_remove(HSQUIRRELVM v, SQInteger idx)\r
-{\r
- v->Remove(idx);\r
-}\r
-\r
-SQInteger sq_cmp(HSQUIRRELVM v)\r
-{\r
- SQInteger res;\r
- v->ObjCmp(stack_get(v, -1), stack_get(v, -2),res);\r
- return res;\r
-}\r
-\r
-SQRESULT sq_newslot(HSQUIRRELVM v, SQInteger idx, SQBool bstatic)\r
-{\r
- sq_aux_paramscheck(v, 3);\r
- SQObjectPtr &self = stack_get(v, idx);\r
- if(type(self) == OT_TABLE || type(self) == OT_CLASS) {\r
- SQObjectPtr &key = v->GetUp(-2);\r
- if(type(key) == OT_NULL) return sq_throwerror(v, _SC("null is not a valid key"));\r
- v->NewSlot(self, key, v->GetUp(-1),bstatic?true:false);\r
- v->Pop(2);\r
- }\r
- return SQ_OK;\r
-}\r
-\r
-/*SQRESULT sq_createslot(HSQUIRRELVM v, SQInteger idx)\r
-{\r
- sq_aux_paramscheck(v, 3);\r
- SQObjectPtr &self = stack_get(v, idx);\r
- if(type(self) == OT_TABLE || type(self) == OT_CLASS) {\r
- SQObjectPtr &key = v->GetUp(-2);\r
- if(type(key) == OT_NULL) return sq_throwerror(v, _SC("null is not a valid key"));\r
- v->NewSlot(self, key, v->GetUp(-1));\r
- v->Pop(2);\r
- }\r
- return SQ_OK;\r
-}*/\r
-\r
-SQRESULT sq_deleteslot(HSQUIRRELVM v,SQInteger idx,SQBool pushval)\r
-{\r
- sq_aux_paramscheck(v, 2);\r
- SQObjectPtr *self;\r
- _GETSAFE_OBJ(v, idx, OT_TABLE,self);\r
- SQObjectPtr &key = v->GetUp(-1);\r
- if(type(key) == OT_NULL) return sq_throwerror(v, _SC("null is not a valid key"));\r
- SQObjectPtr res;\r
- if(!v->DeleteSlot(*self, key, res)){\r
- return SQ_ERROR;\r
- }\r
- if(pushval) v->GetUp(-1) = res;\r
- else v->Pop(1);\r
- return SQ_OK;\r
-}\r
-\r
-SQRESULT sq_set(HSQUIRRELVM v,SQInteger idx)\r
-{\r
- SQObjectPtr &self = stack_get(v, idx);\r
- if(v->Set(self, v->GetUp(-2), v->GetUp(-1),false)) {\r
- v->Pop(2);\r
- return SQ_OK;\r
- }\r
- v->Raise_IdxError(v->GetUp(-2));return SQ_ERROR;\r
-}\r
-\r
-SQRESULT sq_rawset(HSQUIRRELVM v,SQInteger idx)\r
-{\r
- SQObjectPtr &self = stack_get(v, idx);\r
- if(type(v->GetUp(-2)) == OT_NULL) return sq_throwerror(v, _SC("null key"));\r
- switch(type(self)) {\r
- case OT_TABLE:\r
- _table(self)->NewSlot(v->GetUp(-2), v->GetUp(-1));\r
- v->Pop(2);\r
- return SQ_OK;\r
- break;\r
- case OT_CLASS:\r
- _class(self)->NewSlot(_ss(v), v->GetUp(-2), v->GetUp(-1),false);\r
- v->Pop(2);\r
- return SQ_OK;\r
- break;\r
- case OT_INSTANCE:\r
- if(_instance(self)->Set(v->GetUp(-2), v->GetUp(-1))) {\r
- v->Pop(2);\r
- return SQ_OK;\r
- }\r
- break;\r
- case OT_ARRAY:\r
- if(v->Set(self, v->GetUp(-2), v->GetUp(-1),false)) {\r
- v->Pop(2);\r
- return SQ_OK;\r
- }\r
- break;\r
- default:\r
- v->Pop(2);\r
- return sq_throwerror(v, _SC("rawset works only on array/table/calsse and instance"));\r
- }\r
- v->Raise_IdxError(v->GetUp(-2));return SQ_ERROR;\r
-}\r
-\r
-SQRESULT sq_setdelegate(HSQUIRRELVM v,SQInteger idx)\r
-{\r
- SQObjectPtr &self = stack_get(v, idx);\r
- SQObjectPtr &mt = v->GetUp(-1);\r
- SQObjectType type = type(self);\r
- switch(type) {\r
- case OT_TABLE:\r
- if(type(mt) == OT_TABLE) {\r
- if(!_table(self)->SetDelegate(_table(mt))) return sq_throwerror(v, _SC("delagate cycle")); v->Pop();}\r
- else if(type(mt)==OT_NULL) {\r
- _table(self)->SetDelegate(NULL); v->Pop(); }\r
- else return sq_aux_invalidtype(v,type);\r
- break;\r
- case OT_USERDATA:\r
- if(type(mt)==OT_TABLE) {\r
- _userdata(self)->SetDelegate(_table(mt)); v->Pop(); }\r
- else if(type(mt)==OT_NULL) {\r
- _userdata(self)->SetDelegate(NULL); v->Pop(); }\r
- else return sq_aux_invalidtype(v, type);\r
- break;\r
- default:\r
- return sq_aux_invalidtype(v, type);\r
- break;\r
- }\r
- return SQ_OK;\r
-}\r
-\r
-SQRESULT sq_rawdeleteslot(HSQUIRRELVM v,SQInteger idx,SQBool pushval)\r
-{\r
- sq_aux_paramscheck(v, 2);\r
- SQObjectPtr *self;\r
- _GETSAFE_OBJ(v, idx, OT_TABLE,self);\r
- SQObjectPtr &key = v->GetUp(-1);\r
- SQObjectPtr t;\r
- if(_table(*self)->Get(key,t)) {\r
- _table(*self)->Remove(key);\r
- }\r
- if(pushval != 0)\r
- if(pushval) v->GetUp(-1) = t;\r
- else\r
- v->Pop(1);\r
- return SQ_OK;\r
-}\r
-\r
-SQRESULT sq_getdelegate(HSQUIRRELVM v,SQInteger idx)\r
-{\r
- SQObjectPtr &self=stack_get(v,idx);\r
- switch(type(self)){\r
- case OT_TABLE:\r
- if(!_table(self)->_delegate)break;\r
- v->Push(SQObjectPtr(_table(self)->_delegate));\r
- break;\r
- case OT_USERDATA:\r
- if(!_userdata(self)->_delegate)break;\r
- v->Push(SQObjectPtr(_userdata(self)->_delegate));\r
- break;\r
- default: return sq_throwerror(v,_SC("wrong type")); break;\r
- }\r
- return SQ_OK;\r
- \r
-}\r
-\r
-SQRESULT sq_get(HSQUIRRELVM v,SQInteger idx)\r
-{\r
- SQObjectPtr &self=stack_get(v,idx);\r
- if(v->Get(self,v->GetUp(-1),v->GetUp(-1),false,false))\r
- return SQ_OK;\r
- v->Pop(1);\r
- return sq_throwerror(v,_SC("the index doesn't exist"));\r
-}\r
-\r
-SQRESULT sq_rawget(HSQUIRRELVM v,SQInteger idx)\r
-{\r
- SQObjectPtr &self=stack_get(v,idx);\r
- switch(type(self)) {\r
- case OT_TABLE:\r
- if(_table(self)->Get(v->GetUp(-1),v->GetUp(-1)))\r
- return SQ_OK;\r
- break;\r
- case OT_CLASS:\r
- if(_class(self)->Get(v->GetUp(-1),v->GetUp(-1)))\r
- return SQ_OK;\r
- break;\r
- case OT_INSTANCE:\r
- if(_instance(self)->Get(v->GetUp(-1),v->GetUp(-1)))\r
- return SQ_OK;\r
- break;\r
- case OT_ARRAY:\r
- if(v->Get(self,v->GetUp(-1),v->GetUp(-1),false,false))\r
- return SQ_OK;\r
- break;\r
- default:\r
- v->Pop(1);\r
- return sq_throwerror(v,_SC("rawget works only on array/table/instance and class"));\r
- } \r
- v->Pop(1);\r
- return sq_throwerror(v,_SC("the index doesn't exist"));\r
-}\r
-\r
-SQRESULT sq_getstackobj(HSQUIRRELVM v,SQInteger idx,HSQOBJECT *po)\r
-{\r
- *po=stack_get(v,idx);\r
- return SQ_OK;\r
-}\r
-\r
-const SQChar *sq_getlocal(HSQUIRRELVM v,SQUnsignedInteger level,SQUnsignedInteger idx)\r
-{\r
- SQUnsignedInteger cstksize=v->_callsstack.size();\r
- SQUnsignedInteger lvl=(cstksize-level)-1;\r
- SQInteger stackbase=v->_stackbase;\r
- if(lvl<cstksize){\r
- for(SQUnsignedInteger i=0;i<level;i++){\r
- SQVM::CallInfo &ci=v->_callsstack[(cstksize-i)-1];\r
- stackbase-=ci._prevstkbase;\r
- }\r
- SQVM::CallInfo &ci=v->_callsstack[lvl];\r
- if(type(ci._closure)!=OT_CLOSURE)\r
- return NULL;\r
- SQClosure *c=_closure(ci._closure);\r
- SQFunctionProto *func=_funcproto(c->_function);\r
- return func->GetLocal(v,stackbase,idx,(SQInteger)(ci._ip-func->_instructions._vals)-1);\r
- }\r
- return NULL;\r
-}\r
-\r
-void sq_pushobject(HSQUIRRELVM v,HSQOBJECT obj)\r
-{\r
- v->Push(SQObjectPtr(obj));\r
-}\r
-\r
-void sq_resetobject(HSQOBJECT *po)\r
-{\r
- po->_unVal.pUserPointer=NULL;po->_type=OT_NULL;\r
-}\r
-\r
-SQRESULT sq_throwerror(HSQUIRRELVM v,const SQChar *err)\r
-{\r
- v->_lasterror=SQString::Create(_ss(v),err);\r
- return -1;\r
-}\r
-\r
-void sq_reseterror(HSQUIRRELVM v)\r
-{\r
- v->_lasterror = _null_;\r
-}\r
-\r
-void sq_getlasterror(HSQUIRRELVM v)\r
-{\r
- v->Push(v->_lasterror);\r
-}\r
-\r
-void sq_reservestack(HSQUIRRELVM v,SQInteger nsize)\r
-{\r
- if (((SQUnsignedInteger)v->_top + nsize) > v->_stack.size()) {\r
- v->_stack.resize(v->_stack.size() + ((v->_top + nsize) - v->_stack.size()));\r
- }\r
-}\r
-\r
-SQRESULT sq_resume(HSQUIRRELVM v,SQBool retval,SQBool raiseerror)\r
-{\r
- if(type(v->GetUp(-1))==OT_GENERATOR){\r
- v->Push(_null_); //retval\r
- if(!v->Execute(v->GetUp(-2),v->_top,0,v->_top,v->GetUp(-1),raiseerror,SQVM::ET_RESUME_GENERATOR))\r
- {v->Raise_Error(v->_lasterror); return SQ_ERROR;}\r
- if(!retval)\r
- v->Pop();\r
- return SQ_OK;\r
- }\r
- return sq_throwerror(v,_SC("only generators can be resumed"));\r
-}\r
-\r
-SQRESULT sq_call(HSQUIRRELVM v,SQInteger params,SQBool retval,SQBool raiseerror)\r
-{\r
- SQObjectPtr res;\r
- if(v->Call(v->GetUp(-(params+1)),params,v->_top-params,res,raiseerror?true:false)){\r
- v->Pop(params);//pop closure and args\r
- if(retval){\r
- v->Push(res); return SQ_OK;\r
- }\r
- return SQ_OK;\r
- }\r
- else {\r
- v->Pop(params);\r
- return SQ_ERROR;\r
- }\r
- if(!v->_suspended)\r
- v->Pop(params);\r
- return sq_throwerror(v,_SC("call failed"));\r
-}\r
-\r
-SQRESULT sq_suspendvm(HSQUIRRELVM v)\r
-{\r
- return v->Suspend();\r
-}\r
-\r
-SQRESULT sq_wakeupvm(HSQUIRRELVM v,SQBool wakeupret,SQBool retval,SQBool raiseerror)\r
-{\r
- SQObjectPtr ret;\r
- if(!v->_suspended)\r
- return sq_throwerror(v,_SC("cannot resume a vm that is not running any code"));\r
- if(wakeupret) {\r
- v->GetAt(v->_stackbase+v->_suspended_target)=v->GetUp(-1); //retval\r
- v->Pop();\r
- } else v->GetAt(v->_stackbase+v->_suspended_target)=_null_;\r
- if(!v->Execute(_null_,v->_top,-1,-1,ret,raiseerror,SQVM::ET_RESUME_VM))\r
- return SQ_ERROR;\r
- if(sq_getvmstate(v) == SQ_VMSTATE_IDLE) {\r
- while (v->_top > 1) v->_stack[--v->_top] = _null_;\r
- }\r
- if(retval)\r
- v->Push(ret);\r
- return SQ_OK;\r
-}\r
-\r
-void sq_setreleasehook(HSQUIRRELVM v,SQInteger idx,SQRELEASEHOOK hook)\r
-{\r
- if(sq_gettop(v) >= 1){\r
- SQObjectPtr &ud=stack_get(v,idx);\r
- switch( type(ud) ) {\r
- case OT_USERDATA: _userdata(ud)->_hook = hook; break;\r
- case OT_INSTANCE: _instance(ud)->_hook = hook; break;\r
- case OT_CLASS: _class(ud)->_hook = hook; break;\r
- default: break; //shutup compiler\r
- }\r
- }\r
-}\r
-\r
-void sq_setcompilererrorhandler(HSQUIRRELVM v,SQCOMPILERERROR f)\r
-{\r
- _ss(v)->_compilererrorhandler = f;\r
-}\r
-\r
-SQRESULT sq_writeclosure(HSQUIRRELVM v,SQWRITEFUNC w,SQUserPointer up)\r
-{\r
- SQObjectPtr *o = NULL;\r
- _GETSAFE_OBJ(v, -1, OT_CLOSURE,o);\r
- unsigned short tag = SQ_BYTECODE_STREAM_TAG;\r
- if(w(up,&tag,2) != 2)\r
- return sq_throwerror(v,_SC("io error"));\r
- if(!_closure(*o)->Save(v,up,w))\r
- return SQ_ERROR;\r
- return SQ_OK;\r
-}\r
-\r
-SQRESULT sq_readclosure(HSQUIRRELVM v,SQREADFUNC r,SQUserPointer up)\r
-{\r
- SQObjectPtr func=SQFunctionProto::Create();\r
- SQObjectPtr closure=SQClosure::Create(_ss(v),_funcproto(func));\r
- unsigned short tag;\r
- if(r(up,&tag,2) != 2)\r
- return sq_throwerror(v,_SC("io error"));\r
- if(tag != SQ_BYTECODE_STREAM_TAG)\r
- return sq_throwerror(v,_SC("invalid stream"));\r
- if(!_closure(closure)->Load(v,up,r))\r
- return SQ_ERROR;\r
- v->Push(closure);\r
- return SQ_OK;\r
-}\r
-\r
-SQChar *sq_getscratchpad(HSQUIRRELVM v,SQInteger minsize)\r
-{\r
- return _ss(v)->GetScratchPad(minsize);\r
-}\r
-\r
-SQInteger sq_collectgarbage(HSQUIRRELVM v)\r
-{\r
-#ifndef NO_GARBAGE_COLLECTOR\r
- return _ss(v)->CollectGarbage(v);\r
-#else\r
- return -1;\r
-#endif\r
-}\r
-\r
-const SQChar *sq_getfreevariable(HSQUIRRELVM v,SQInteger idx,SQUnsignedInteger nval)\r
-{\r
- SQObjectPtr &self = stack_get(v,idx);\r
- const SQChar *name = NULL;\r
- if(type(self) == OT_CLOSURE) {\r
- if(_closure(self)->_outervalues.size()>nval) {\r
- v->Push(_closure(self)->_outervalues[nval]);\r
- SQFunctionProto *fp = _funcproto(_closure(self)->_function);\r
- SQOuterVar &ov = fp->_outervalues[nval];\r
- name = _stringval(ov._name);\r
- }\r
- }\r
- return name;\r
-}\r
-\r
-SQRESULT sq_setfreevariable(HSQUIRRELVM v,SQInteger idx,SQUnsignedInteger nval)\r
-{\r
- SQObjectPtr &self=stack_get(v,idx);\r
- switch(type(self))\r
- {\r
- case OT_CLOSURE:\r
- if(_closure(self)->_outervalues.size()>nval){\r
- _closure(self)->_outervalues[nval]=stack_get(v,-1);\r
- }\r
- else return sq_throwerror(v,_SC("invalid free var index"));\r
- break;\r
- case OT_NATIVECLOSURE:\r
- if(_nativeclosure(self)->_outervalues.size()>nval){\r
- _nativeclosure(self)->_outervalues[nval]=stack_get(v,-1);\r
- }\r
- else return sq_throwerror(v,_SC("invalid free var index"));\r
- break;\r
- default:\r
- return sq_aux_invalidtype(v,type(self));\r
- }\r
- v->Pop(1);\r
- return SQ_OK;\r
-}\r
-\r
-SQRESULT sq_setattributes(HSQUIRRELVM v,SQInteger idx)\r
-{\r
- SQObjectPtr *o = NULL;\r
- _GETSAFE_OBJ(v, idx, OT_CLASS,o);\r
- SQObjectPtr &key = stack_get(v,-2);\r
- SQObjectPtr &val = stack_get(v,-1);\r
- SQObjectPtr attrs;\r
- if(type(key) == OT_NULL) {\r
- attrs = _class(*o)->_attributes;\r
- _class(*o)->_attributes = val;\r
- v->Pop(2);\r
- v->Push(attrs);\r
- return SQ_OK;\r
- }else if(_class(*o)->GetAttributes(key,attrs)) {\r
- _class(*o)->SetAttributes(key,val);\r
- v->Pop(2);\r
- v->Push(attrs);\r
- return SQ_OK;\r
- }\r
- return sq_throwerror(v,_SC("wrong index"));\r
-}\r
-\r
-SQRESULT sq_getattributes(HSQUIRRELVM v,SQInteger idx)\r
-{\r
- SQObjectPtr *o = NULL;\r
- _GETSAFE_OBJ(v, idx, OT_CLASS,o);\r
- SQObjectPtr &key = stack_get(v,-1);\r
- SQObjectPtr attrs;\r
- if(type(key) == OT_NULL) {\r
- attrs = _class(*o)->_attributes;\r
- v->Pop();\r
- v->Push(attrs); \r
- return SQ_OK;\r
- }\r
- else if(_class(*o)->GetAttributes(key,attrs)) {\r
- v->Pop();\r
- v->Push(attrs);\r
- return SQ_OK;\r
- }\r
- return sq_throwerror(v,_SC("wrong index"));\r
-}\r
-\r
-SQRESULT sq_getbase(HSQUIRRELVM v,SQInteger idx)\r
-{\r
- SQObjectPtr *o = NULL;\r
- _GETSAFE_OBJ(v, idx, OT_CLASS,o);\r
- if(_class(*o)->_base)\r
- v->Push(SQObjectPtr(_class(*o)->_base));\r
- else\r
- v->Push(_null_);\r
- return SQ_OK;\r
-}\r
-\r
-SQRESULT sq_getclass(HSQUIRRELVM v,SQInteger idx)\r
-{\r
- SQObjectPtr *o = NULL;\r
- _GETSAFE_OBJ(v, idx, OT_INSTANCE,o);\r
- v->Push(SQObjectPtr(_instance(*o)->_class));\r
- return SQ_OK;\r
-}\r
-\r
-SQRESULT sq_createinstance(HSQUIRRELVM v,SQInteger idx)\r
-{\r
- SQObjectPtr *o = NULL;\r
- _GETSAFE_OBJ(v, idx, OT_CLASS,o);\r
- v->Push(_class(*o)->CreateInstance());\r
- return SQ_OK;\r
-}\r
-\r
-void sq_weakref(HSQUIRRELVM v,SQInteger idx)\r
-{\r
- SQObject &o=stack_get(v,idx);\r
- if(ISREFCOUNTED(type(o))) {\r
- v->Push(_refcounted(o)->GetWeakRef(type(o)));\r
- return;\r
- }\r
- v->Push(o);\r
-}\r
-\r
-SQRESULT sq_getweakrefval(HSQUIRRELVM v,SQInteger idx)\r
-{\r
- SQObjectPtr &o = stack_get(v,idx);\r
- if(type(o) != OT_WEAKREF) {\r
- return sq_throwerror(v,_SC("the object must be a weakref"));\r
- }\r
- v->Push(_weakref(o)->_obj);\r
- return SQ_OK;\r
-}\r
-\r
-SQRESULT sq_getdefaultdelegate(HSQUIRRELVM v,SQObjectType t)\r
-{\r
- SQSharedState *ss = _ss(v);\r
- switch(t) {\r
- case OT_TABLE: v->Push(ss->_table_default_delegate); break;\r
- case OT_ARRAY: v->Push(ss->_array_default_delegate); break;\r
- case OT_STRING: v->Push(ss->_string_default_delegate); break;\r
- case OT_INTEGER: case OT_FLOAT: v->Push(ss->_number_default_delegate); break;\r
- case OT_GENERATOR: v->Push(ss->_generator_default_delegate); break;\r
- case OT_CLOSURE: case OT_NATIVECLOSURE: v->Push(ss->_closure_default_delegate); break;\r
- case OT_THREAD: v->Push(ss->_thread_default_delegate); break;\r
- case OT_CLASS: v->Push(ss->_class_default_delegate); break;\r
- case OT_INSTANCE: v->Push(ss->_instance_default_delegate); break;\r
- case OT_WEAKREF: v->Push(ss->_weakref_default_delegate); break;\r
- default: return sq_throwerror(v,_SC("the type doesn't have a default delegate"));\r
- }\r
- return SQ_OK;\r
-}\r
-\r
-SQRESULT sq_next(HSQUIRRELVM v,SQInteger idx)\r
-{\r
- SQObjectPtr o=stack_get(v,idx),&refpos = stack_get(v,-1),realkey,val;\r
- if(type(o) == OT_GENERATOR) {\r
- return sq_throwerror(v,_SC("cannot iterate a generator"));\r
- }\r
- bool finished;\r
- if(!v->FOREACH_OP(o,realkey,val,refpos,0,finished))\r
- return SQ_ERROR;\r
- if(!finished) {\r
- v->Push(realkey);\r
- v->Push(val);\r
- return SQ_OK;\r
- }\r
- return SQ_ERROR;\r
-}\r
-\r
-struct BufState{\r
- const SQChar *buf;\r
- SQInteger ptr;\r
- SQInteger size;\r
-};\r
-\r
-SQInteger buf_lexfeed(SQUserPointer file)\r
-{\r
- BufState *buf=(BufState*)file;\r
- if(buf->size<(buf->ptr+1))\r
- return 0;\r
- return buf->buf[buf->ptr++];\r
-}\r
-\r
-SQRESULT sq_compilebuffer(HSQUIRRELVM v,const SQChar *s,SQInteger size,const SQChar *sourcename,SQBool raiseerror) {\r
- BufState buf;\r
- buf.buf = s;\r
- buf.size = size;\r
- buf.ptr = 0;\r
- return sq_compile(v, buf_lexfeed, &buf, sourcename, raiseerror);\r
-}\r
-\r
-void sq_move(HSQUIRRELVM dest,HSQUIRRELVM src,SQInteger idx)\r
-{\r
- dest->Push(stack_get(src,idx));\r
-}\r
-\r
-void sq_setprintfunc(HSQUIRRELVM v, SQPRINTFUNCTION printfunc)\r
-{\r
- _ss(v)->_printfunc = printfunc;\r
-}\r
-\r
-SQPRINTFUNCTION sq_getprintfunc(HSQUIRRELVM v)\r
-{\r
- return _ss(v)->_printfunc;\r
-}\r
-\r
-void *sq_malloc(SQUnsignedInteger size)\r
-{\r
- return SQ_MALLOC(size);\r
-}\r
-\r
-void *sq_realloc(void* p,SQUnsignedInteger oldsize,SQUnsignedInteger newsize)\r
-{\r
- return SQ_REALLOC(p,oldsize,newsize);\r
-}\r
-void sq_free(void *p,SQUnsignedInteger size)\r
-{\r
- SQ_FREE(p,size);\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 "squserdata.h"
+#include "sqcompiler.h"
+#include "sqfuncstate.h"
+#include "sqclass.h"
+
+bool sq_aux_gettypedarg(HSQUIRRELVM v,SQInteger idx,SQObjectType type,SQObjectPtr **o)
+{
+ *o = &stack_get(v,idx);
+ if(type(**o) != type){
+ SQObjectPtr oval = v->PrintObjVal(**o);
+ v->Raise_Error(_SC("wrong argument type, expected '%s' got '%.50s'"),IdType2Name(type),_stringval(oval));
+ return false;
+ }
+ return true;
+}
+
+#define _GETSAFE_OBJ(v,idx,type,o) { if(!sq_aux_gettypedarg(v,idx,type,&o)) return SQ_ERROR; }
+
+#define sq_aux_paramscheck(v,count) \
+{ \
+ if(sq_gettop(v) < count){ v->Raise_Error(_SC("not enough params in the stack")); return SQ_ERROR; }\
+}
+
+SQInteger sq_aux_throwobject(HSQUIRRELVM v,SQObjectPtr &e)
+{
+ v->_lasterror = e;
+ return SQ_ERROR;
+}
+
+SQInteger sq_aux_invalidtype(HSQUIRRELVM v,SQObjectType type)
+{
+ scsprintf(_ss(v)->GetScratchPad(100), _SC("unexpected type %s"), IdType2Name(type));
+ return sq_throwerror(v, _ss(v)->GetScratchPad(-1));
+}
+
+HSQUIRRELVM sq_open(SQInteger initialstacksize)
+{
+ SQSharedState *ss;
+ SQVM *v;
+ sq_new(ss, SQSharedState);
+ ss->Init();
+ v = (SQVM *)SQ_MALLOC(sizeof(SQVM));
+ new (v) SQVM(ss);
+ ss->_root_vm = v;
+ if(v->Init(NULL, initialstacksize)) {
+ return v;
+ } else {
+ sq_delete(v, SQVM);
+ return NULL;
+ }
+ return v;
+}
+
+HSQUIRRELVM sq_newthread(HSQUIRRELVM friendvm, SQInteger initialstacksize)
+{
+ SQSharedState *ss;
+ SQVM *v;
+ ss=_ss(friendvm);
+
+ v= (SQVM *)SQ_MALLOC(sizeof(SQVM));
+ new (v) SQVM(ss);
+
+ if(v->Init(friendvm, initialstacksize)) {
+ friendvm->Push(v);
+ return v;
+ } else {
+ sq_delete(v, SQVM);
+ return NULL;
+ }
+}
+
+SQInteger sq_getvmstate(HSQUIRRELVM v)
+{
+ if(v->_suspended)
+ return SQ_VMSTATE_SUSPENDED;
+ else {
+ if(v->_callsstack.size() != 0) return SQ_VMSTATE_RUNNING;
+ else return SQ_VMSTATE_IDLE;
+ }
+}
+
+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();
+ }
+}
+
+void sq_close(HSQUIRRELVM v)
+{
+ SQSharedState *ss = _ss(v);
+ _thread(ss->_root_vm)->Finalize();
+ sq_delete(ss, SQSharedState);
+}
+
+SQRESULT sq_compile(HSQUIRRELVM v,SQLEXREADFUNC read,SQUserPointer p,const SQChar *sourcename,SQBool raiseerror)
+{
+ SQObjectPtr o;
+ if(Compile(v, read, p, sourcename, o, raiseerror?true:false, _ss(v)->_debuginfo)) {
+ v->Push(SQClosure::Create(_ss(v), _funcproto(o)));
+ return SQ_OK;
+ }
+ return SQ_ERROR;
+}
+
+void sq_enabledebuginfo(HSQUIRRELVM v, SQBool enable)
+{
+ _ss(v)->_debuginfo = enable?true:false;
+}
+
+void sq_notifyallexceptions(HSQUIRRELVM v, SQBool enable)
+{
+ _ss(v)->_notifyallexceptions = enable?true:false;
+}
+
+void sq_addref(HSQUIRRELVM v,HSQOBJECT *po)
+{
+ if(!ISREFCOUNTED(type(*po))) return;
+ _ss(v)->_refs_table.AddRef(*po);
+}
+
+SQBool sq_release(HSQUIRRELVM v,HSQOBJECT *po)
+{
+ if(!ISREFCOUNTED(type(*po))) return SQTrue;
+ return _ss(v)->_refs_table.Release(*po);
+}
+
+const SQChar *sq_objtostring(HSQOBJECT *o)
+{
+ if(sq_type(*o) == OT_STRING) {
+ return _stringval(*o);
+ }
+ return NULL;
+}
+
+SQInteger sq_objtointeger(HSQOBJECT *o)
+{
+ if(sq_isnumeric(*o)) {
+ return tointeger(*o);
+ }
+ return 0;
+}
+
+SQFloat sq_objtofloat(HSQOBJECT *o)
+{
+ if(sq_isnumeric(*o)) {
+ return tofloat(*o);
+ }
+ return 0;
+}
+
+SQBool sq_objtobool(HSQOBJECT *o)
+{
+ if(sq_isbool(*o)) {
+ return _integer(*o);
+ }
+ return SQFalse;
+}
+
+void sq_pushnull(HSQUIRRELVM v)
+{
+ v->Push(_null_);
+}
+
+void sq_pushstring(HSQUIRRELVM v,const SQChar *s,SQInteger len)
+{
+ if(s)
+ v->Push(SQObjectPtr(SQString::Create(_ss(v), s, len)));
+ else v->Push(_null_);
+}
+
+void sq_pushinteger(HSQUIRRELVM v,SQInteger n)
+{
+ v->Push(n);
+}
+
+void sq_pushbool(HSQUIRRELVM v,SQBool b)
+{
+ v->Push(b?true:false);
+}
+
+void sq_pushfloat(HSQUIRRELVM v,SQFloat n)
+{
+ v->Push(n);
+}
+
+void sq_pushuserpointer(HSQUIRRELVM v,SQUserPointer p)
+{
+ v->Push(p);
+}
+
+SQUserPointer sq_newuserdata(HSQUIRRELVM v,SQUnsignedInteger size)
+{
+ SQUserData *ud = SQUserData::Create(_ss(v), size);
+ v->Push(ud);
+ return ud->_val;
+}
+
+void sq_newtable(HSQUIRRELVM v)
+{
+ v->Push(SQTable::Create(_ss(v), 0));
+}
+
+void sq_newarray(HSQUIRRELVM v,SQInteger size)
+{
+ v->Push(SQArray::Create(_ss(v), size));
+}
+
+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;
+}
+
+SQBool sq_instanceof(HSQUIRRELVM v)
+{
+ SQObjectPtr &inst = stack_get(v,-1);
+ SQObjectPtr &cl = stack_get(v,-2);
+ if(type(inst) != OT_INSTANCE || type(cl) != OT_CLASS)
+ return sq_throwerror(v,_SC("invalid param type"));
+ return _instance(inst)->InstanceOf(_class(cl))?SQTrue:SQFalse;
+}
+
+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(1);
+ return SQ_OK;
+}
+
+SQRESULT sq_arraypop(HSQUIRRELVM v,SQInteger idx,SQBool pushval)
+{
+ sq_aux_paramscheck(v, 1);
+ SQObjectPtr *arr;
+ _GETSAFE_OBJ(v, idx, OT_ARRAY,arr);
+ if(_array(*arr)->Size() > 0) {
+ if(pushval != 0){ v->Push(_array(*arr)->Top()); }
+ _array(*arr)->Pop();
+ return SQ_OK;
+ }
+ return sq_throwerror(v, _SC("empty array"));
+}
+
+SQRESULT sq_arrayresize(HSQUIRRELVM v,SQInteger idx,SQInteger newsize)
+{
+ sq_aux_paramscheck(v,1);
+ SQObjectPtr *arr;
+ _GETSAFE_OBJ(v, idx, OT_ARRAY,arr);
+ if(_array(*arr)->Size() > 0) {
+ _array(*arr)->Resize(newsize);
+ return SQ_OK;
+ }
+ return SQ_OK;
+}
+
+SQRESULT sq_arrayreverse(HSQUIRRELVM v,SQInteger idx)
+{
+ sq_aux_paramscheck(v, 1);
+ SQObjectPtr *o;
+ _GETSAFE_OBJ(v, idx, OT_ARRAY,o);
+ SQArray *arr = _array(*o);
+ if(arr->Size() > 0) {
+ SQObjectPtr t;
+ SQInteger size = arr->Size();
+ SQInteger n = size >> 1; size -= 1;
+ for(SQInteger i = 0; i < n; i++) {
+ t = arr->_values[i];
+ arr->_values[i] = arr->_values[size-i];
+ arr->_values[size-i] = t;
+ }
+ return SQ_OK;
+ }
+ return SQ_OK;
+}
+
+void sq_newclosure(HSQUIRRELVM v,SQFUNCTION func,SQUnsignedInteger nfreevars)
+{
+ SQNativeClosure *nc = SQNativeClosure::Create(_ss(v), func);
+ nc->_nparamscheck = 0;
+ for(SQUnsignedInteger i = 0; i < nfreevars; i++) {
+ nc->_outervalues.push_back(v->Top());
+ v->Pop();
+ }
+ v->Push(SQObjectPtr(nc));
+}
+
+SQRESULT sq_getclosureinfo(HSQUIRRELVM v,SQInteger idx,SQUnsignedInteger *nparams,SQUnsignedInteger *nfreevars)
+{
+ SQObject o = stack_get(v, idx);
+ if(sq_isclosure(o)) {
+ SQClosure *c = _closure(o);
+ SQFunctionProto *proto = _funcproto(c->_function);
+ *nparams = (SQUnsignedInteger)proto->_parameters.size();
+ *nfreevars = (SQUnsignedInteger)c->_outervalues.size();
+ return SQ_OK;
+ }
+ return sq_throwerror(v,_SC("the object is not a closure"));
+}
+
+SQRESULT sq_setnativeclosurename(HSQUIRRELVM v,SQInteger idx,const SQChar *name)
+{
+ SQObject o = stack_get(v, idx);
+ if(sq_isnativeclosure(o)) {
+ SQNativeClosure *nc = _nativeclosure(o);
+ nc->_name = SQString::Create(_ss(v),name);
+ return SQ_OK;
+ }
+ return sq_throwerror(v,_SC("the object is not a nativeclosure"));
+}
+
+SQRESULT sq_setparamscheck(HSQUIRRELVM v,SQInteger nparamscheck,const SQChar *typemask)
+{
+ SQObject o = stack_get(v, -1);
+ if(!sq_isnativeclosure(o))
+ return sq_throwerror(v, _SC("native closure expected"));
+ SQNativeClosure *nc = _nativeclosure(o);
+ nc->_nparamscheck = nparamscheck;
+ if(typemask) {
+ SQIntVec res;
+ if(!CompileTypemask(res, typemask))
+ return sq_throwerror(v, _SC("invalid typemask"));
+ nc->_typecheck.copy(res);
+ }
+ else {
+ nc->_typecheck.resize(0);
+ }
+ if(nparamscheck == SQ_MATCHTYPEMASKSTRING) {
+ nc->_nparamscheck = nc->_typecheck.size();
+ }
+ return SQ_OK;
+}
+
+SQRESULT sq_bindenv(HSQUIRRELVM v,SQInteger idx)
+{
+ SQObjectPtr &o = stack_get(v,idx);
+ if(!sq_isnativeclosure(o) &&
+ !sq_isclosure(o))
+ return sq_throwerror(v,_SC("the target is not a closure"));
+ SQObjectPtr &env = stack_get(v,-1);
+ if(!sq_istable(env) &&
+ !sq_isclass(env) &&
+ !sq_isinstance(env))
+ return sq_throwerror(v,_SC("invalid environment"));
+ SQObjectPtr w = _refcounted(env)->GetWeakRef(type(env));
+ SQObjectPtr ret;
+ if(sq_isclosure(o)) {
+ SQClosure *c = _closure(o)->Clone();
+ c->_env = w;
+ ret = c;
+ }
+ else { //then must be a native closure
+ SQNativeClosure *c = _nativeclosure(o)->Clone();
+ c->_env = w;
+ ret = c;
+ }
+ v->Pop();
+ v->Push(ret);
+ return SQ_OK;
+}
+
+void sq_pushroottable(HSQUIRRELVM v)
+{
+ v->Push(v->_roottable);
+}
+
+void sq_pushregistrytable(HSQUIRRELVM v)
+{
+ v->Push(_ss(v)->_registry);
+}
+
+SQRESULT sq_setroottable(HSQUIRRELVM v)
+{
+ SQObject o = stack_get(v, -1);
+ if(sq_istable(o) || sq_isnull(o)) {
+ v->_roottable = o;
+ v->Pop();
+ return SQ_OK;
+ }
+ return sq_throwerror(v, _SC("ivalid type"));
+}
+
+void sq_setforeignptr(HSQUIRRELVM v,SQUserPointer p)
+{
+ v->_foreignptr = p;
+}
+
+SQUserPointer sq_getforeignptr(HSQUIRRELVM v)
+{
+ return v->_foreignptr;
+}
+
+void sq_push(HSQUIRRELVM v,SQInteger idx)
+{
+ v->Push(stack_get(v, idx));
+}
+
+SQObjectType sq_gettype(HSQUIRRELVM v,SQInteger idx)
+{
+ return type(stack_get(v, idx));
+}
+
+void sq_tostring(HSQUIRRELVM v,SQInteger idx)
+{
+ SQObjectPtr &o = stack_get(v, idx);
+ SQObjectPtr res;
+ v->ToString(o,res);
+ v->Push(res);
+}
+
+void sq_tobool(HSQUIRRELVM v, SQInteger idx, SQBool *b)
+{
+ SQObjectPtr &o = stack_get(v, idx);
+ *b = v->IsFalse(o)?SQFalse:SQTrue;
+}
+
+SQRESULT sq_getinteger(HSQUIRRELVM v,SQInteger idx,SQInteger *i)
+{
+ SQObjectPtr &o = stack_get(v, idx);
+ if(sq_isnumeric(o)) {
+ *i = tointeger(o);
+ return SQ_OK;
+ }
+ return SQ_ERROR;
+}
+
+SQRESULT sq_getfloat(HSQUIRRELVM v,SQInteger idx,SQFloat *f)
+{
+ SQObjectPtr &o = stack_get(v, idx);
+ if(sq_isnumeric(o)) {
+ *f = tofloat(o);
+ return SQ_OK;
+ }
+ return SQ_ERROR;
+}
+
+SQRESULT sq_getbool(HSQUIRRELVM v,SQInteger idx,SQBool *b)
+{
+ SQObjectPtr &o = stack_get(v, idx);
+ if(sq_isbool(o)) {
+ *b = _integer(o);
+ return SQ_OK;
+ }
+ return SQ_ERROR;
+}
+
+SQRESULT sq_getstring(HSQUIRRELVM v,SQInteger idx,const SQChar **c)
+{
+ SQObjectPtr *o = NULL;
+ _GETSAFE_OBJ(v, idx, OT_STRING,o);
+ *c = _stringval(*o);
+ return SQ_OK;
+}
+
+SQRESULT sq_getthread(HSQUIRRELVM v,SQInteger idx,HSQUIRRELVM *thread)
+{
+ SQObjectPtr *o = NULL;
+ _GETSAFE_OBJ(v, idx, OT_THREAD,o);
+ *thread = _thread(*o);
+ return SQ_OK;
+}
+
+SQRESULT sq_clone(HSQUIRRELVM v,SQInteger idx)
+{
+ SQObjectPtr &o = stack_get(v,idx);
+ v->Push(_null_);
+ if(!v->Clone(o, stack_get(v, -1))){
+ v->Pop();
+ return sq_aux_invalidtype(v, type(o));
+ }
+ return SQ_OK;
+}
+
+SQInteger sq_getsize(HSQUIRRELVM v, SQInteger idx)
+{
+ SQObjectPtr &o = stack_get(v, idx);
+ SQObjectType type = type(o);
+ switch(type) {
+ case OT_STRING: return _string(o)->_len;
+ case OT_TABLE: return _table(o)->CountUsed();
+ case OT_ARRAY: return _array(o)->Size();
+ case OT_USERDATA: return _userdata(o)->_size;
+ default:
+ return sq_aux_invalidtype(v, type);
+ }
+}
+
+SQRESULT sq_getuserdata(HSQUIRRELVM v,SQInteger idx,SQUserPointer *p,SQUserPointer *typetag)
+{
+ SQObjectPtr *o = NULL;
+ _GETSAFE_OBJ(v, idx, OT_USERDATA,o);
+ (*p) = _userdataval(*o);
+ if(typetag) *typetag = _userdata(*o)->_typetag;
+ return SQ_OK;
+}
+
+SQRESULT sq_settypetag(HSQUIRRELVM v,SQInteger idx,SQUserPointer typetag)
+{
+ SQObjectPtr &o = stack_get(v,idx);
+ switch(type(o)) {
+ case OT_USERDATA: _userdata(o)->_typetag = typetag; break;
+ case OT_CLASS: _class(o)->_typetag = typetag; break;
+ default: return sq_throwerror(v,_SC("invalid object type"));
+ }
+ return SQ_OK;
+}
+
+SQRESULT sq_getobjtypetag(HSQOBJECT *o,SQUserPointer * typetag)
+{
+ switch(type(*o)) {
+ case OT_INSTANCE: *typetag = _instance(*o)->_class->_typetag; break;
+ case OT_USERDATA: *typetag = _userdata(*o)->_typetag; break;
+ case OT_CLASS: *typetag = _class(*o)->_typetag; break;
+ default: return SQ_ERROR;
+ }
+ return SQ_OK;
+}
+
+SQRESULT sq_gettypetag(HSQUIRRELVM v,SQInteger idx,SQUserPointer *typetag)
+{
+ SQObjectPtr &o = stack_get(v,idx);
+ if(SQ_FAILED(sq_getobjtypetag(&o,typetag)))
+ return sq_throwerror(v,_SC("invalid object type"));
+ return SQ_OK;
+}
+
+SQRESULT sq_getuserpointer(HSQUIRRELVM v, SQInteger idx, SQUserPointer *p)
+{
+ SQObjectPtr *o = NULL;
+ _GETSAFE_OBJ(v, idx, OT_USERPOINTER,o);
+ (*p) = _userpointer(*o);
+ return SQ_OK;
+}
+
+SQRESULT sq_setinstanceup(HSQUIRRELVM v, SQInteger idx, SQUserPointer p)
+{
+ SQObjectPtr &o = stack_get(v,idx);
+ if(type(o) != OT_INSTANCE) return sq_throwerror(v,_SC("the object is not a class instance"));
+ _instance(o)->_userpointer = p;
+ return SQ_OK;
+}
+
+SQRESULT sq_getinstanceup(HSQUIRRELVM v, SQInteger idx, SQUserPointer *p,SQUserPointer typetag)
+{
+ SQObjectPtr &o = stack_get(v,idx);
+ if(type(o) != OT_INSTANCE) return sq_throwerror(v,_SC("the object is not a class instance"));
+ (*p) = _instance(o)->_userpointer;
+ if(typetag != 0) {
+ SQClass *cl = _instance(o)->_class;
+ do{
+ if(cl->_typetag == typetag)
+ return SQ_OK;
+ cl = cl->_base;
+ }while(cl != NULL);
+ return sq_throwerror(v,_SC("invalid type tag"));
+ }
+ return SQ_OK;
+}
+
+SQInteger sq_gettop(HSQUIRRELVM v)
+{
+ return (v->_top) - v->_stackbase;
+}
+
+void sq_settop(HSQUIRRELVM v, SQInteger newtop)
+{
+ SQInteger top = sq_gettop(v);
+ if(top > newtop)
+ sq_pop(v, top - newtop);
+ else
+ while(top < newtop) sq_pushnull(v);
+}
+
+void sq_pop(HSQUIRRELVM v, SQInteger nelemstopop)
+{
+ assert(v->_top >= nelemstopop);
+ v->Pop(nelemstopop);
+}
+
+void sq_poptop(HSQUIRRELVM v)
+{
+ assert(v->_top >= 1);
+ v->Pop();
+}
+
+
+void sq_remove(HSQUIRRELVM v, SQInteger idx)
+{
+ v->Remove(idx);
+}
+
+SQInteger sq_cmp(HSQUIRRELVM v)
+{
+ SQInteger res;
+ v->ObjCmp(stack_get(v, -1), stack_get(v, -2),res);
+ return res;
+}
+
+SQRESULT sq_newslot(HSQUIRRELVM v, SQInteger idx, SQBool bstatic)
+{
+ sq_aux_paramscheck(v, 3);
+ SQObjectPtr &self = stack_get(v, idx);
+ if(type(self) == OT_TABLE || type(self) == OT_CLASS) {
+ SQObjectPtr &key = v->GetUp(-2);
+ if(type(key) == OT_NULL) return sq_throwerror(v, _SC("null is not a valid key"));
+ v->NewSlot(self, key, v->GetUp(-1),bstatic?true:false);
+ v->Pop(2);
+ }
+ return SQ_OK;
+}
+
+/*SQRESULT sq_createslot(HSQUIRRELVM v, SQInteger idx)
+{
+ sq_aux_paramscheck(v, 3);
+ SQObjectPtr &self = stack_get(v, idx);
+ if(type(self) == OT_TABLE || type(self) == OT_CLASS) {
+ SQObjectPtr &key = v->GetUp(-2);
+ if(type(key) == OT_NULL) return sq_throwerror(v, _SC("null is not a valid key"));
+ v->NewSlot(self, key, v->GetUp(-1));
+ v->Pop(2);
+ }
+ return SQ_OK;
+}*/
+
+SQRESULT sq_deleteslot(HSQUIRRELVM v,SQInteger idx,SQBool pushval)
+{
+ sq_aux_paramscheck(v, 2);
+ SQObjectPtr *self;
+ _GETSAFE_OBJ(v, idx, OT_TABLE,self);
+ SQObjectPtr &key = v->GetUp(-1);
+ if(type(key) == OT_NULL) return sq_throwerror(v, _SC("null is not a valid key"));
+ SQObjectPtr res;
+ if(!v->DeleteSlot(*self, key, res)){
+ return SQ_ERROR;
+ }
+ if(pushval) v->GetUp(-1) = res;
+ else v->Pop(1);
+ return SQ_OK;
+}
+
+SQRESULT sq_set(HSQUIRRELVM v,SQInteger idx)
+{
+ SQObjectPtr &self = stack_get(v, idx);
+ if(v->Set(self, v->GetUp(-2), v->GetUp(-1),false)) {
+ v->Pop(2);
+ return SQ_OK;
+ }
+ v->Raise_IdxError(v->GetUp(-2));return SQ_ERROR;
+}
+
+SQRESULT sq_rawset(HSQUIRRELVM v,SQInteger idx)
+{
+ SQObjectPtr &self = stack_get(v, idx);
+ if(type(v->GetUp(-2)) == OT_NULL) return sq_throwerror(v, _SC("null key"));
+ switch(type(self)) {
+ case OT_TABLE:
+ _table(self)->NewSlot(v->GetUp(-2), v->GetUp(-1));
+ v->Pop(2);
+ return SQ_OK;
+ break;
+ case OT_CLASS:
+ _class(self)->NewSlot(_ss(v), v->GetUp(-2), v->GetUp(-1),false);
+ v->Pop(2);
+ return SQ_OK;
+ break;
+ case OT_INSTANCE:
+ if(_instance(self)->Set(v->GetUp(-2), v->GetUp(-1))) {
+ v->Pop(2);
+ return SQ_OK;
+ }
+ break;
+ case OT_ARRAY:
+ if(v->Set(self, v->GetUp(-2), v->GetUp(-1),false)) {
+ v->Pop(2);
+ return SQ_OK;
+ }
+ break;
+ default:
+ v->Pop(2);
+ return sq_throwerror(v, _SC("rawset works only on array/table/calsse and instance"));
+ }
+ v->Raise_IdxError(v->GetUp(-2));return SQ_ERROR;
+}
+
+SQRESULT sq_setdelegate(HSQUIRRELVM v,SQInteger idx)
+{
+ SQObjectPtr &self = stack_get(v, idx);
+ SQObjectPtr &mt = v->GetUp(-1);
+ SQObjectType type = type(self);
+ switch(type) {
+ case OT_TABLE:
+ if(type(mt) == OT_TABLE) {
+ if(!_table(self)->SetDelegate(_table(mt))) return sq_throwerror(v, _SC("delagate cycle")); v->Pop();}
+ else if(type(mt)==OT_NULL) {
+ _table(self)->SetDelegate(NULL); v->Pop(); }
+ else return sq_aux_invalidtype(v,type);
+ break;
+ case OT_USERDATA:
+ if(type(mt)==OT_TABLE) {
+ _userdata(self)->SetDelegate(_table(mt)); v->Pop(); }
+ else if(type(mt)==OT_NULL) {
+ _userdata(self)->SetDelegate(NULL); v->Pop(); }
+ else return sq_aux_invalidtype(v, type);
+ break;
+ default:
+ return sq_aux_invalidtype(v, type);
+ break;
+ }
+ return SQ_OK;
+}
+
+SQRESULT sq_rawdeleteslot(HSQUIRRELVM v,SQInteger idx,SQBool pushval)
+{
+ sq_aux_paramscheck(v, 2);
+ SQObjectPtr *self;
+ _GETSAFE_OBJ(v, idx, OT_TABLE,self);
+ SQObjectPtr &key = v->GetUp(-1);
+ SQObjectPtr t;
+ if(_table(*self)->Get(key,t)) {
+ _table(*self)->Remove(key);
+ }
+ if(pushval != 0)
+ if(pushval) v->GetUp(-1) = t;
+ else
+ v->Pop(1);
+ return SQ_OK;
+}
+
+SQRESULT sq_getdelegate(HSQUIRRELVM v,SQInteger idx)
+{
+ SQObjectPtr &self=stack_get(v,idx);
+ switch(type(self)){
+ case OT_TABLE:
+ if(!_table(self)->_delegate)break;
+ v->Push(SQObjectPtr(_table(self)->_delegate));
+ break;
+ case OT_USERDATA:
+ if(!_userdata(self)->_delegate)break;
+ v->Push(SQObjectPtr(_userdata(self)->_delegate));
+ break;
+ default: return sq_throwerror(v,_SC("wrong type")); break;
+ }
+ return SQ_OK;
+
+}
+
+SQRESULT sq_get(HSQUIRRELVM v,SQInteger idx)
+{
+ SQObjectPtr &self=stack_get(v,idx);
+ if(v->Get(self,v->GetUp(-1),v->GetUp(-1),false,false))
+ return SQ_OK;
+ v->Pop(1);
+ return sq_throwerror(v,_SC("the index doesn't exist"));
+}
+
+SQRESULT sq_rawget(HSQUIRRELVM v,SQInteger idx)
+{
+ SQObjectPtr &self=stack_get(v,idx);
+ switch(type(self)) {
+ case OT_TABLE:
+ if(_table(self)->Get(v->GetUp(-1),v->GetUp(-1)))
+ return SQ_OK;
+ break;
+ case OT_CLASS:
+ if(_class(self)->Get(v->GetUp(-1),v->GetUp(-1)))
+ return SQ_OK;
+ break;
+ case OT_INSTANCE:
+ if(_instance(self)->Get(v->GetUp(-1),v->GetUp(-1)))
+ return SQ_OK;
+ break;
+ case OT_ARRAY:
+ if(v->Get(self,v->GetUp(-1),v->GetUp(-1),false,false))
+ return SQ_OK;
+ break;
+ default:
+ v->Pop(1);
+ return sq_throwerror(v,_SC("rawget works only on array/table/instance and class"));
+ }
+ v->Pop(1);
+ return sq_throwerror(v,_SC("the index doesn't exist"));
+}
+
+SQRESULT sq_getstackobj(HSQUIRRELVM v,SQInteger idx,HSQOBJECT *po)
+{
+ *po=stack_get(v,idx);
+ return SQ_OK;
+}
+
+const SQChar *sq_getlocal(HSQUIRRELVM v,SQUnsignedInteger level,SQUnsignedInteger idx)
+{
+ SQUnsignedInteger cstksize=v->_callsstack.size();
+ SQUnsignedInteger lvl=(cstksize-level)-1;
+ SQInteger stackbase=v->_stackbase;
+ if(lvl<cstksize){
+ for(SQUnsignedInteger i=0;i<level;i++){
+ SQVM::CallInfo &ci=v->_callsstack[(cstksize-i)-1];
+ stackbase-=ci._prevstkbase;
+ }
+ SQVM::CallInfo &ci=v->_callsstack[lvl];
+ if(type(ci._closure)!=OT_CLOSURE)
+ return NULL;
+ SQClosure *c=_closure(ci._closure);
+ SQFunctionProto *func=_funcproto(c->_function);
+ return func->GetLocal(v,stackbase,idx,(SQInteger)(ci._ip-func->_instructions._vals)-1);
+ }
+ return NULL;
+}
+
+void sq_pushobject(HSQUIRRELVM v,HSQOBJECT obj)
+{
+ v->Push(SQObjectPtr(obj));
+}
+
+void sq_resetobject(HSQOBJECT *po)
+{
+ po->_unVal.pUserPointer=NULL;po->_type=OT_NULL;
+}
+
+SQRESULT sq_throwerror(HSQUIRRELVM v,const SQChar *err)
+{
+ v->_lasterror=SQString::Create(_ss(v),err);
+ return -1;
+}
+
+void sq_reseterror(HSQUIRRELVM v)
+{
+ v->_lasterror = _null_;
+}
+
+void sq_getlasterror(HSQUIRRELVM v)
+{
+ v->Push(v->_lasterror);
+}
+
+void sq_reservestack(HSQUIRRELVM v,SQInteger nsize)
+{
+ if (((SQUnsignedInteger)v->_top + nsize) > v->_stack.size()) {
+ v->_stack.resize(v->_stack.size() + ((v->_top + nsize) - v->_stack.size()));
+ }
+}
+
+SQRESULT sq_resume(HSQUIRRELVM v,SQBool retval,SQBool raiseerror)
+{
+ if(type(v->GetUp(-1))==OT_GENERATOR){
+ v->Push(_null_); //retval
+ if(!v->Execute(v->GetUp(-2),v->_top,0,v->_top,v->GetUp(-1),raiseerror,SQVM::ET_RESUME_GENERATOR))
+ {v->Raise_Error(v->_lasterror); return SQ_ERROR;}
+ if(!retval)
+ v->Pop();
+ return SQ_OK;
+ }
+ return sq_throwerror(v,_SC("only generators can be resumed"));
+}
+
+SQRESULT sq_call(HSQUIRRELVM v,SQInteger params,SQBool retval,SQBool raiseerror)
+{
+ SQObjectPtr res;
+ if(v->Call(v->GetUp(-(params+1)),params,v->_top-params,res,raiseerror?true:false)){
+ v->Pop(params);//pop closure and args
+ if(retval){
+ v->Push(res); return SQ_OK;
+ }
+ return SQ_OK;
+ }
+ else {
+ v->Pop(params);
+ return SQ_ERROR;
+ }
+ if(!v->_suspended)
+ v->Pop(params);
+ return sq_throwerror(v,_SC("call failed"));
+}
+
+SQRESULT sq_suspendvm(HSQUIRRELVM v)
+{
+ return v->Suspend();
+}
+
+SQRESULT sq_wakeupvm(HSQUIRRELVM v,SQBool wakeupret,SQBool retval,SQBool raiseerror)
+{
+ SQObjectPtr ret;
+ if(!v->_suspended)
+ return sq_throwerror(v,_SC("cannot resume a vm that is not running any code"));
+ if(wakeupret) {
+ v->GetAt(v->_stackbase+v->_suspended_target)=v->GetUp(-1); //retval
+ v->Pop();
+ } else v->GetAt(v->_stackbase+v->_suspended_target)=_null_;
+ if(!v->Execute(_null_,v->_top,-1,-1,ret,raiseerror,SQVM::ET_RESUME_VM))
+ return SQ_ERROR;
+ if(sq_getvmstate(v) == SQ_VMSTATE_IDLE) {
+ while (v->_top > 1) v->_stack[--v->_top] = _null_;
+ }
+ if(retval)
+ v->Push(ret);
+ return SQ_OK;
+}
+
+void sq_setreleasehook(HSQUIRRELVM v,SQInteger idx,SQRELEASEHOOK hook)
+{
+ if(sq_gettop(v) >= 1){
+ SQObjectPtr &ud=stack_get(v,idx);
+ switch( type(ud) ) {
+ case OT_USERDATA: _userdata(ud)->_hook = hook; break;
+ case OT_INSTANCE: _instance(ud)->_hook = hook; break;
+ case OT_CLASS: _class(ud)->_hook = hook; break;
+ default: break; //shutup compiler
+ }
+ }
+}
+
+void sq_setcompilererrorhandler(HSQUIRRELVM v,SQCOMPILERERROR f)
+{
+ _ss(v)->_compilererrorhandler = f;
+}
+
+SQRESULT sq_writeclosure(HSQUIRRELVM v,SQWRITEFUNC w,SQUserPointer up)
+{
+ SQObjectPtr *o = NULL;
+ _GETSAFE_OBJ(v, -1, OT_CLOSURE,o);
+ unsigned short tag = SQ_BYTECODE_STREAM_TAG;
+ if(w(up,&tag,2) != 2)
+ return sq_throwerror(v,_SC("io error"));
+ if(!_closure(*o)->Save(v,up,w))
+ return SQ_ERROR;
+ return SQ_OK;
+}
+
+SQRESULT sq_readclosure(HSQUIRRELVM v,SQREADFUNC r,SQUserPointer up)
+{
+ SQObjectPtr func=SQFunctionProto::Create();
+ SQObjectPtr closure=SQClosure::Create(_ss(v),_funcproto(func));
+ unsigned short tag;
+ if(r(up,&tag,2) != 2)
+ return sq_throwerror(v,_SC("io error"));
+ if(tag != SQ_BYTECODE_STREAM_TAG)
+ return sq_throwerror(v,_SC("invalid stream"));
+ if(!_closure(closure)->Load(v,up,r))
+ return SQ_ERROR;
+ v->Push(closure);
+ return SQ_OK;
+}
+
+SQChar *sq_getscratchpad(HSQUIRRELVM v,SQInteger minsize)
+{
+ return _ss(v)->GetScratchPad(minsize);
+}
+
+SQInteger sq_collectgarbage(HSQUIRRELVM v)
+{
+#ifndef NO_GARBAGE_COLLECTOR
+ return _ss(v)->CollectGarbage(v);
+#else
+ return -1;
+#endif
+}
+
+const SQChar *sq_getfreevariable(HSQUIRRELVM v,SQInteger idx,SQUnsignedInteger nval)
+{
+ SQObjectPtr &self = stack_get(v,idx);
+ const SQChar *name = NULL;
+ if(type(self) == OT_CLOSURE) {
+ if(_closure(self)->_outervalues.size()>nval) {
+ v->Push(_closure(self)->_outervalues[nval]);
+ SQFunctionProto *fp = _funcproto(_closure(self)->_function);
+ SQOuterVar &ov = fp->_outervalues[nval];
+ name = _stringval(ov._name);
+ }
+ }
+ return name;
+}
+
+SQRESULT sq_setfreevariable(HSQUIRRELVM v,SQInteger idx,SQUnsignedInteger nval)
+{
+ SQObjectPtr &self=stack_get(v,idx);
+ switch(type(self))
+ {
+ case OT_CLOSURE:
+ if(_closure(self)->_outervalues.size()>nval){
+ _closure(self)->_outervalues[nval]=stack_get(v,-1);
+ }
+ else return sq_throwerror(v,_SC("invalid free var index"));
+ break;
+ case OT_NATIVECLOSURE:
+ if(_nativeclosure(self)->_outervalues.size()>nval){
+ _nativeclosure(self)->_outervalues[nval]=stack_get(v,-1);
+ }
+ else return sq_throwerror(v,_SC("invalid free var index"));
+ break;
+ default:
+ return sq_aux_invalidtype(v,type(self));
+ }
+ v->Pop(1);
+ return SQ_OK;
+}
+
+SQRESULT sq_setattributes(HSQUIRRELVM v,SQInteger idx)
+{
+ SQObjectPtr *o = NULL;
+ _GETSAFE_OBJ(v, idx, OT_CLASS,o);
+ SQObjectPtr &key = stack_get(v,-2);
+ SQObjectPtr &val = stack_get(v,-1);
+ SQObjectPtr attrs;
+ if(type(key) == OT_NULL) {
+ attrs = _class(*o)->_attributes;
+ _class(*o)->_attributes = val;
+ v->Pop(2);
+ v->Push(attrs);
+ return SQ_OK;
+ }else if(_class(*o)->GetAttributes(key,attrs)) {
+ _class(*o)->SetAttributes(key,val);
+ v->Pop(2);
+ v->Push(attrs);
+ return SQ_OK;
+ }
+ return sq_throwerror(v,_SC("wrong index"));
+}
+
+SQRESULT sq_getattributes(HSQUIRRELVM v,SQInteger idx)
+{
+ SQObjectPtr *o = NULL;
+ _GETSAFE_OBJ(v, idx, OT_CLASS,o);
+ SQObjectPtr &key = stack_get(v,-1);
+ SQObjectPtr attrs;
+ if(type(key) == OT_NULL) {
+ attrs = _class(*o)->_attributes;
+ v->Pop();
+ v->Push(attrs);
+ return SQ_OK;
+ }
+ else if(_class(*o)->GetAttributes(key,attrs)) {
+ v->Pop();
+ v->Push(attrs);
+ return SQ_OK;
+ }
+ return sq_throwerror(v,_SC("wrong index"));
+}
+
+SQRESULT sq_getbase(HSQUIRRELVM v,SQInteger idx)
+{
+ SQObjectPtr *o = NULL;
+ _GETSAFE_OBJ(v, idx, OT_CLASS,o);
+ if(_class(*o)->_base)
+ v->Push(SQObjectPtr(_class(*o)->_base));
+ else
+ v->Push(_null_);
+ return SQ_OK;
+}
+
+SQRESULT sq_getclass(HSQUIRRELVM v,SQInteger idx)
+{
+ SQObjectPtr *o = NULL;
+ _GETSAFE_OBJ(v, idx, OT_INSTANCE,o);
+ v->Push(SQObjectPtr(_instance(*o)->_class));
+ return SQ_OK;
+}
+
+SQRESULT sq_createinstance(HSQUIRRELVM v,SQInteger idx)
+{
+ SQObjectPtr *o = NULL;
+ _GETSAFE_OBJ(v, idx, OT_CLASS,o);
+ v->Push(_class(*o)->CreateInstance());
+ return SQ_OK;
+}
+
+void sq_weakref(HSQUIRRELVM v,SQInteger idx)
+{
+ SQObject &o=stack_get(v,idx);
+ if(ISREFCOUNTED(type(o))) {
+ v->Push(_refcounted(o)->GetWeakRef(type(o)));
+ return;
+ }
+ v->Push(o);
+}
+
+SQRESULT sq_getweakrefval(HSQUIRRELVM v,SQInteger idx)
+{
+ SQObjectPtr &o = stack_get(v,idx);
+ if(type(o) != OT_WEAKREF) {
+ return sq_throwerror(v,_SC("the object must be a weakref"));
+ }
+ v->Push(_weakref(o)->_obj);
+ return SQ_OK;
+}
+
+SQRESULT sq_getdefaultdelegate(HSQUIRRELVM v,SQObjectType t)
+{
+ SQSharedState *ss = _ss(v);
+ switch(t) {
+ case OT_TABLE: v->Push(ss->_table_default_delegate); break;
+ case OT_ARRAY: v->Push(ss->_array_default_delegate); break;
+ case OT_STRING: v->Push(ss->_string_default_delegate); break;
+ case OT_INTEGER: case OT_FLOAT: v->Push(ss->_number_default_delegate); break;
+ case OT_GENERATOR: v->Push(ss->_generator_default_delegate); break;
+ case OT_CLOSURE: case OT_NATIVECLOSURE: v->Push(ss->_closure_default_delegate); break;
+ case OT_THREAD: v->Push(ss->_thread_default_delegate); break;
+ case OT_CLASS: v->Push(ss->_class_default_delegate); break;
+ case OT_INSTANCE: v->Push(ss->_instance_default_delegate); break;
+ case OT_WEAKREF: v->Push(ss->_weakref_default_delegate); break;
+ default: return sq_throwerror(v,_SC("the type doesn't have a default delegate"));
+ }
+ return SQ_OK;
+}
+
+SQRESULT sq_next(HSQUIRRELVM v,SQInteger idx)
+{
+ SQObjectPtr o=stack_get(v,idx),&refpos = stack_get(v,-1),realkey,val;
+ if(type(o) == OT_GENERATOR) {
+ return sq_throwerror(v,_SC("cannot iterate a generator"));
+ }
+ bool finished;
+ if(!v->FOREACH_OP(o,realkey,val,refpos,0,finished))
+ return SQ_ERROR;
+ if(!finished) {
+ v->Push(realkey);
+ v->Push(val);
+ return SQ_OK;
+ }
+ return SQ_ERROR;
+}
+
+struct BufState{
+ const SQChar *buf;
+ SQInteger ptr;
+ SQInteger size;
+};
+
+SQInteger buf_lexfeed(SQUserPointer file)
+{
+ BufState *buf=(BufState*)file;
+ if(buf->size<(buf->ptr+1))
+ return 0;
+ return buf->buf[buf->ptr++];
+}
+
+SQRESULT sq_compilebuffer(HSQUIRRELVM v,const SQChar *s,SQInteger size,const SQChar *sourcename,SQBool raiseerror) {
+ BufState buf;
+ buf.buf = s;
+ buf.size = size;
+ buf.ptr = 0;
+ return sq_compile(v, buf_lexfeed, &buf, sourcename, raiseerror);
+}
+
+void sq_move(HSQUIRRELVM dest,HSQUIRRELVM src,SQInteger idx)
+{
+ dest->Push(stack_get(src,idx));
+}
+
+void sq_setprintfunc(HSQUIRRELVM v, SQPRINTFUNCTION printfunc)
+{
+ _ss(v)->_printfunc = printfunc;
+}
+
+SQPRINTFUNCTION sq_getprintfunc(HSQUIRRELVM v)
+{
+ return _ss(v)->_printfunc;
+}
+
+void *sq_malloc(SQUnsignedInteger size)
+{
+ return SQ_MALLOC(size);
+}
+
+void *sq_realloc(void* p,SQUnsignedInteger oldsize,SQUnsignedInteger newsize)
+{
+ return SQ_REALLOC(p,oldsize,newsize);
+}
+void sq_free(void *p,SQUnsignedInteger size)
+{
+ SQ_FREE(p,size);
+}