2 see copyright notice in squirrel.h
4 #include "sqpcheader.h"
9 #include "sqfuncproto.h"
10 #include "sqclosure.h"
11 #include "squserdata.h"
12 #include "sqcompiler.h"
13 #include "sqfuncstate.h"
16 bool sq_aux_gettypedarg(HSQUIRRELVM v,SQInteger idx,SQObjectType type,SQObjectPtr **o)
18 *o = &stack_get(v,idx);
19 if(type(**o) != type){
20 SQObjectPtr oval = v->PrintObjVal(**o);
21 v->Raise_Error(_SC("wrong argument type, expected '%s' got '%.50s'"),IdType2Name(type),_stringval(oval));
27 #define _GETSAFE_OBJ(v,idx,type,o) { if(!sq_aux_gettypedarg(v,idx,type,&o)) return SQ_ERROR; }
29 #define sq_aux_paramscheck(v,count) \
31 if(sq_gettop(v) < count){ v->Raise_Error(_SC("not enough params in the stack")); return SQ_ERROR; }\
34 SQInteger sq_aux_throwobject(HSQUIRRELVM v,SQObjectPtr &e)
40 SQInteger sq_aux_invalidtype(HSQUIRRELVM v,SQObjectType type)
42 scsprintf(_ss(v)->GetScratchPad(100), _SC("unexpected type %s"), IdType2Name(type));
43 return sq_throwerror(v, _ss(v)->GetScratchPad(-1));
46 HSQUIRRELVM sq_open(SQInteger initialstacksize)
50 sq_new(ss, SQSharedState);
52 v = (SQVM *)SQ_MALLOC(sizeof(SQVM));
55 if(v->Init(NULL, initialstacksize)) {
64 HSQUIRRELVM sq_newthread(HSQUIRRELVM friendvm, SQInteger initialstacksize)
70 v= (SQVM *)SQ_MALLOC(sizeof(SQVM));
73 if(v->Init(friendvm, initialstacksize)) {
82 SQInteger sq_getvmstate(HSQUIRRELVM v)
85 return SQ_VMSTATE_SUSPENDED;
87 if(v->_callsstacksize != 0) return SQ_VMSTATE_RUNNING;
88 else return SQ_VMSTATE_IDLE;
92 void sq_seterrorhandler(HSQUIRRELVM v)
94 SQObject o = stack_get(v, -1);
95 if(sq_isclosure(o) || sq_isnativeclosure(o) || sq_isnull(o)) {
101 void sq_setdebughook(HSQUIRRELVM v)
103 SQObject o = stack_get(v,-1);
104 if(sq_isclosure(o) || sq_isnativeclosure(o) || sq_isnull(o)) {
110 void sq_close(HSQUIRRELVM v)
112 SQSharedState *ss = _ss(v);
113 _thread(ss->_root_vm)->Finalize();
114 sq_delete(ss, SQSharedState);
117 SQRESULT sq_compile(HSQUIRRELVM v,SQLEXREADFUNC read,SQUserPointer p,const SQChar *sourcename,SQBool raiseerror)
120 if(Compile(v, read, p, sourcename, o, raiseerror?true:false, _ss(v)->_debuginfo)) {
121 v->Push(SQClosure::Create(_ss(v), _funcproto(o)));
127 void sq_enabledebuginfo(HSQUIRRELVM v, SQBool enable)
129 _ss(v)->_debuginfo = enable?true:false;
132 void sq_notifyallexceptions(HSQUIRRELVM v, SQBool enable)
134 _ss(v)->_notifyallexceptions = enable?true:false;
137 void sq_addref(HSQUIRRELVM v,HSQOBJECT *po)
139 if(!ISREFCOUNTED(type(*po))) return;
140 #ifdef NO_GARBAGE_COLLECTOR
141 __AddRef(po->_type,po->_unVal);
143 _ss(v)->_refs_table.AddRef(*po);
147 SQBool sq_release(HSQUIRRELVM v,HSQOBJECT *po)
149 if(!ISREFCOUNTED(type(*po))) return SQTrue;
150 #ifdef NO_GARBAGE_COLLECTOR
151 __Release(po->_type,po->_unVal);
152 return SQFalse; //the ret val doesn't work(and cannot be fixed)
154 return _ss(v)->_refs_table.Release(*po);
158 const SQChar *sq_objtostring(HSQOBJECT *o)
160 if(sq_type(*o) == OT_STRING) {
161 return _stringval(*o);
166 SQInteger sq_objtointeger(HSQOBJECT *o)
168 if(sq_isnumeric(*o)) {
169 return tointeger(*o);
174 SQFloat sq_objtofloat(HSQOBJECT *o)
176 if(sq_isnumeric(*o)) {
182 SQBool sq_objtobool(HSQOBJECT *o)
190 void sq_pushnull(HSQUIRRELVM v)
195 void sq_pushstring(HSQUIRRELVM v,const SQChar *s,SQInteger len)
198 v->Push(SQObjectPtr(SQString::Create(_ss(v), s, len)));
199 else v->Push(_null_);
202 void sq_pushinteger(HSQUIRRELVM v,SQInteger n)
207 void sq_pushbool(HSQUIRRELVM v,SQBool b)
209 v->Push(b?true:false);
212 void sq_pushfloat(HSQUIRRELVM v,SQFloat n)
217 void sq_pushuserpointer(HSQUIRRELVM v,SQUserPointer p)
222 SQUserPointer sq_newuserdata(HSQUIRRELVM v,SQUnsignedInteger size)
224 SQUserData *ud = SQUserData::Create(_ss(v), size);
229 void sq_newtable(HSQUIRRELVM v)
231 v->Push(SQTable::Create(_ss(v), 0));
234 void sq_newarray(HSQUIRRELVM v,SQInteger size)
236 v->Push(SQArray::Create(_ss(v), size));
239 SQRESULT sq_newclass(HSQUIRRELVM v,SQBool hasbase)
241 SQClass *baseclass = NULL;
243 SQObjectPtr &base = stack_get(v,-1);
244 if(type(base) != OT_CLASS)
245 return sq_throwerror(v,_SC("invalid base type"));
246 baseclass = _class(base);
248 SQClass *newclass = SQClass::Create(_ss(v), baseclass);
249 if(baseclass) v->Pop();
254 SQBool sq_instanceof(HSQUIRRELVM v)
256 SQObjectPtr &inst = stack_get(v,-1);
257 SQObjectPtr &cl = stack_get(v,-2);
258 if(type(inst) != OT_INSTANCE || type(cl) != OT_CLASS)
259 return sq_throwerror(v,_SC("invalid param type"));
260 return _instance(inst)->InstanceOf(_class(cl))?SQTrue:SQFalse;
263 SQRESULT sq_arrayappend(HSQUIRRELVM v,SQInteger idx)
265 sq_aux_paramscheck(v,2);
267 _GETSAFE_OBJ(v, idx, OT_ARRAY,arr);
268 _array(*arr)->Append(v->GetUp(-1));
273 SQRESULT sq_arraypop(HSQUIRRELVM v,SQInteger idx,SQBool pushval)
275 sq_aux_paramscheck(v, 1);
277 _GETSAFE_OBJ(v, idx, OT_ARRAY,arr);
278 if(_array(*arr)->Size() > 0) {
279 if(pushval != 0){ v->Push(_array(*arr)->Top()); }
283 return sq_throwerror(v, _SC("empty array"));
286 SQRESULT sq_arrayresize(HSQUIRRELVM v,SQInteger idx,SQInteger newsize)
288 sq_aux_paramscheck(v,1);
290 _GETSAFE_OBJ(v, idx, OT_ARRAY,arr);
291 if(_array(*arr)->Size() > 0) {
292 _array(*arr)->Resize(newsize);
299 SQRESULT sq_arrayreverse(HSQUIRRELVM v,SQInteger idx)
301 sq_aux_paramscheck(v, 1);
303 _GETSAFE_OBJ(v, idx, OT_ARRAY,o);
304 SQArray *arr = _array(*o);
305 if(arr->Size() > 0) {
307 SQInteger size = arr->Size();
308 SQInteger n = size >> 1; size -= 1;
309 for(SQInteger i = 0; i < n; i++) {
311 arr->_values[i] = arr->_values[size-i];
312 arr->_values[size-i] = t;
319 void sq_newclosure(HSQUIRRELVM v,SQFUNCTION func,SQUnsignedInteger nfreevars)
321 SQNativeClosure *nc = SQNativeClosure::Create(_ss(v), func);
322 nc->_nparamscheck = 0;
323 for(SQUnsignedInteger i = 0; i < nfreevars; i++) {
324 nc->_outervalues.push_back(v->Top());
327 v->Push(SQObjectPtr(nc));
330 SQRESULT sq_getclosureinfo(HSQUIRRELVM v,SQInteger idx,SQUnsignedInteger *nparams,SQUnsignedInteger *nfreevars)
332 SQObject o = stack_get(v, idx);
333 if(sq_isclosure(o)) {
334 SQClosure *c = _closure(o);
335 SQFunctionProto *proto = _funcproto(c->_function);
336 *nparams = (SQUnsignedInteger)proto->_nparameters;
337 *nfreevars = (SQUnsignedInteger)c->_outervalues.size();
340 return sq_throwerror(v,_SC("the object is not a closure"));
343 SQRESULT sq_setnativeclosurename(HSQUIRRELVM v,SQInteger idx,const SQChar *name)
345 SQObject o = stack_get(v, idx);
346 if(sq_isnativeclosure(o)) {
347 SQNativeClosure *nc = _nativeclosure(o);
348 nc->_name = SQString::Create(_ss(v),name);
351 return sq_throwerror(v,_SC("the object is not a nativeclosure"));
354 SQRESULT sq_setparamscheck(HSQUIRRELVM v,SQInteger nparamscheck,const SQChar *typemask)
356 SQObject o = stack_get(v, -1);
357 if(!sq_isnativeclosure(o))
358 return sq_throwerror(v, _SC("native closure expected"));
359 SQNativeClosure *nc = _nativeclosure(o);
360 nc->_nparamscheck = nparamscheck;
363 if(!CompileTypemask(res, typemask))
364 return sq_throwerror(v, _SC("invalid typemask"));
365 nc->_typecheck.copy(res);
368 nc->_typecheck.resize(0);
370 if(nparamscheck == SQ_MATCHTYPEMASKSTRING) {
371 nc->_nparamscheck = nc->_typecheck.size();
376 SQRESULT sq_bindenv(HSQUIRRELVM v,SQInteger idx)
378 SQObjectPtr &o = stack_get(v,idx);
379 if(!sq_isnativeclosure(o) &&
381 return sq_throwerror(v,_SC("the target is not a closure"));
382 SQObjectPtr &env = stack_get(v,-1);
383 if(!sq_istable(env) &&
386 return sq_throwerror(v,_SC("invalid environment"));
387 SQObjectPtr w = _refcounted(env)->GetWeakRef(type(env));
389 if(sq_isclosure(o)) {
390 SQClosure *c = _closure(o)->Clone();
394 else { //then must be a native closure
395 SQNativeClosure *c = _nativeclosure(o)->Clone();
404 SQRESULT sq_clear(HSQUIRRELVM v,SQInteger idx)
406 SQObject &o=stack_get(v,idx);
408 case OT_TABLE: _table(o)->Clear(); break;
409 case OT_ARRAY: _array(o)->Resize(0); break;
411 return sq_throwerror(v, _SC("clear only works on table and array"));
418 void sq_pushroottable(HSQUIRRELVM v)
420 v->Push(v->_roottable);
423 void sq_pushregistrytable(HSQUIRRELVM v)
425 v->Push(_ss(v)->_registry);
428 void sq_pushconsttable(HSQUIRRELVM v)
430 v->Push(_ss(v)->_consts);
433 SQRESULT sq_setroottable(HSQUIRRELVM v)
435 SQObject o = stack_get(v, -1);
436 if(sq_istable(o) || sq_isnull(o)) {
441 return sq_throwerror(v, _SC("ivalid type"));
444 SQRESULT sq_setconsttable(HSQUIRRELVM v)
446 SQObject o = stack_get(v, -1);
452 return sq_throwerror(v, _SC("ivalid type, expected table"));
455 void sq_setforeignptr(HSQUIRRELVM v,SQUserPointer p)
460 SQUserPointer sq_getforeignptr(HSQUIRRELVM v)
462 return v->_foreignptr;
465 void sq_push(HSQUIRRELVM v,SQInteger idx)
467 v->Push(stack_get(v, idx));
470 SQObjectType sq_gettype(HSQUIRRELVM v,SQInteger idx)
472 return type(stack_get(v, idx));
476 void sq_tostring(HSQUIRRELVM v,SQInteger idx)
478 SQObjectPtr &o = stack_get(v, idx);
484 void sq_tobool(HSQUIRRELVM v, SQInteger idx, SQBool *b)
486 SQObjectPtr &o = stack_get(v, idx);
487 *b = v->IsFalse(o)?SQFalse:SQTrue;
490 SQRESULT sq_getinteger(HSQUIRRELVM v,SQInteger idx,SQInteger *i)
492 SQObjectPtr &o = stack_get(v, idx);
493 if(sq_isnumeric(o)) {
500 SQRESULT sq_getfloat(HSQUIRRELVM v,SQInteger idx,SQFloat *f)
502 SQObjectPtr &o = stack_get(v, idx);
503 if(sq_isnumeric(o)) {
510 SQRESULT sq_getbool(HSQUIRRELVM v,SQInteger idx,SQBool *b)
512 SQObjectPtr &o = stack_get(v, idx);
520 SQRESULT sq_getstring(HSQUIRRELVM v,SQInteger idx,const SQChar **c)
522 SQObjectPtr *o = NULL;
523 _GETSAFE_OBJ(v, idx, OT_STRING,o);
528 SQRESULT sq_getthread(HSQUIRRELVM v,SQInteger idx,HSQUIRRELVM *thread)
530 SQObjectPtr *o = NULL;
531 _GETSAFE_OBJ(v, idx, OT_THREAD,o);
532 *thread = _thread(*o);
536 SQRESULT sq_clone(HSQUIRRELVM v,SQInteger idx)
538 SQObjectPtr &o = stack_get(v,idx);
540 if(!v->Clone(o, stack_get(v, -1))){
542 return sq_aux_invalidtype(v, type(o));
547 SQInteger sq_getsize(HSQUIRRELVM v, SQInteger idx)
549 SQObjectPtr &o = stack_get(v, idx);
550 SQObjectType type = type(o);
552 case OT_STRING: return _string(o)->_len;
553 case OT_TABLE: return _table(o)->CountUsed();
554 case OT_ARRAY: return _array(o)->Size();
555 case OT_USERDATA: return _userdata(o)->_size;
557 return sq_aux_invalidtype(v, type);
561 SQRESULT sq_getuserdata(HSQUIRRELVM v,SQInteger idx,SQUserPointer *p,SQUserPointer *typetag)
563 SQObjectPtr *o = NULL;
564 _GETSAFE_OBJ(v, idx, OT_USERDATA,o);
565 (*p) = _userdataval(*o);
566 if(typetag) *typetag = _userdata(*o)->_typetag;
570 SQRESULT sq_settypetag(HSQUIRRELVM v,SQInteger idx,SQUserPointer typetag)
572 SQObjectPtr &o = stack_get(v,idx);
574 case OT_USERDATA: _userdata(o)->_typetag = typetag; break;
575 case OT_CLASS: _class(o)->_typetag = typetag; break;
576 default: return sq_throwerror(v,_SC("invalid object type"));
581 SQRESULT sq_getobjtypetag(HSQOBJECT *o,SQUserPointer * typetag)
584 case OT_INSTANCE: *typetag = _instance(*o)->_class->_typetag; break;
585 case OT_USERDATA: *typetag = _userdata(*o)->_typetag; break;
586 case OT_CLASS: *typetag = _class(*o)->_typetag; break;
587 default: return SQ_ERROR;
592 SQRESULT sq_gettypetag(HSQUIRRELVM v,SQInteger idx,SQUserPointer *typetag)
594 SQObjectPtr &o = stack_get(v,idx);
595 if(SQ_FAILED(sq_getobjtypetag(&o,typetag)))
596 return sq_throwerror(v,_SC("invalid object type"));
600 SQRESULT sq_getuserpointer(HSQUIRRELVM v, SQInteger idx, SQUserPointer *p)
602 SQObjectPtr *o = NULL;
603 _GETSAFE_OBJ(v, idx, OT_USERPOINTER,o);
604 (*p) = _userpointer(*o);
608 SQRESULT sq_setinstanceup(HSQUIRRELVM v, SQInteger idx, SQUserPointer p)
610 SQObjectPtr &o = stack_get(v,idx);
611 if(type(o) != OT_INSTANCE) return sq_throwerror(v,_SC("the object is not a class instance"));
612 _instance(o)->_userpointer = p;
616 SQRESULT sq_setclassudsize(HSQUIRRELVM v, SQInteger idx, SQInteger udsize)
618 SQObjectPtr &o = stack_get(v,idx);
619 if(type(o) != OT_CLASS) return sq_throwerror(v,_SC("the object is not a class"));
620 if(_class(o)->_locked) return sq_throwerror(v,_SC("the class is locked"));
621 _class(o)->_udsize = udsize;
626 SQRESULT sq_getinstanceup(HSQUIRRELVM v, SQInteger idx, SQUserPointer *p,SQUserPointer typetag)
628 SQObjectPtr &o = stack_get(v,idx);
629 if(type(o) != OT_INSTANCE) return sq_throwerror(v,_SC("the object is not a class instance"));
630 (*p) = _instance(o)->_userpointer;
632 SQClass *cl = _instance(o)->_class;
634 if(cl->_typetag == typetag)
638 return sq_throwerror(v,_SC("invalid type tag"));
643 SQInteger sq_gettop(HSQUIRRELVM v)
645 return (v->_top) - v->_stackbase;
648 void sq_settop(HSQUIRRELVM v, SQInteger newtop)
650 SQInteger top = sq_gettop(v);
652 sq_pop(v, top - newtop);
654 while(top++ < newtop) sq_pushnull(v);
657 void sq_pop(HSQUIRRELVM v, SQInteger nelemstopop)
659 assert(v->_top >= nelemstopop);
663 void sq_poptop(HSQUIRRELVM v)
665 assert(v->_top >= 1);
670 void sq_remove(HSQUIRRELVM v, SQInteger idx)
675 SQInteger sq_cmp(HSQUIRRELVM v)
678 v->ObjCmp(stack_get(v, -1), stack_get(v, -2),res);
682 SQRESULT sq_newslot(HSQUIRRELVM v, SQInteger idx, SQBool bstatic)
684 sq_aux_paramscheck(v, 3);
685 SQObjectPtr &self = stack_get(v, idx);
686 if(type(self) == OT_TABLE || type(self) == OT_CLASS) {
687 SQObjectPtr &key = v->GetUp(-2);
688 if(type(key) == OT_NULL) return sq_throwerror(v, _SC("null is not a valid key"));
689 v->NewSlot(self, key, v->GetUp(-1),bstatic?true:false);
695 SQRESULT sq_deleteslot(HSQUIRRELVM v,SQInteger idx,SQBool pushval)
697 sq_aux_paramscheck(v, 2);
699 _GETSAFE_OBJ(v, idx, OT_TABLE,self);
700 SQObjectPtr &key = v->GetUp(-1);
701 if(type(key) == OT_NULL) return sq_throwerror(v, _SC("null is not a valid key"));
703 if(!v->DeleteSlot(*self, key, res)){
706 if(pushval) v->GetUp(-1) = res;
711 SQRESULT sq_set(HSQUIRRELVM v,SQInteger idx)
713 SQObjectPtr &self = stack_get(v, idx);
714 if(v->Set(self, v->GetUp(-2), v->GetUp(-1),false)) {
718 v->Raise_IdxError(v->GetUp(-2));return SQ_ERROR;
721 SQRESULT sq_rawset(HSQUIRRELVM v,SQInteger idx)
723 SQObjectPtr &self = stack_get(v, idx);
724 if(type(v->GetUp(-2)) == OT_NULL) return sq_throwerror(v, _SC("null key"));
727 _table(self)->NewSlot(v->GetUp(-2), v->GetUp(-1));
732 _class(self)->NewSlot(_ss(v), v->GetUp(-2), v->GetUp(-1),false);
737 if(_instance(self)->Set(v->GetUp(-2), v->GetUp(-1))) {
743 if(v->Set(self, v->GetUp(-2), v->GetUp(-1),false)) {
750 return sq_throwerror(v, _SC("rawset works only on array/table/class and instance"));
752 v->Raise_IdxError(v->GetUp(-2));return SQ_ERROR;
755 SQRESULT sq_setdelegate(HSQUIRRELVM v,SQInteger idx)
757 SQObjectPtr &self = stack_get(v, idx);
758 SQObjectPtr &mt = v->GetUp(-1);
759 SQObjectType type = type(self);
762 if(type(mt) == OT_TABLE) {
763 if(!_table(self)->SetDelegate(_table(mt))) return sq_throwerror(v, _SC("delagate cycle")); v->Pop();}
764 else if(type(mt)==OT_NULL) {
765 _table(self)->SetDelegate(NULL); v->Pop(); }
766 else return sq_aux_invalidtype(v,type);
769 if(type(mt)==OT_TABLE) {
770 _userdata(self)->SetDelegate(_table(mt)); v->Pop(); }
771 else if(type(mt)==OT_NULL) {
772 _userdata(self)->SetDelegate(NULL); v->Pop(); }
773 else return sq_aux_invalidtype(v, type);
776 return sq_aux_invalidtype(v, type);
782 SQRESULT sq_rawdeleteslot(HSQUIRRELVM v,SQInteger idx,SQBool pushval)
784 sq_aux_paramscheck(v, 2);
786 _GETSAFE_OBJ(v, idx, OT_TABLE,self);
787 SQObjectPtr &key = v->GetUp(-1);
789 if(_table(*self)->Get(key,t)) {
790 _table(*self)->Remove(key);
793 if(pushval) v->GetUp(-1) = t;
799 SQRESULT sq_getdelegate(HSQUIRRELVM v,SQInteger idx)
801 SQObjectPtr &self=stack_get(v,idx);
805 if(!_delegable(self)->_delegate){
809 v->Push(SQObjectPtr(_delegable(self)->_delegate));
811 default: return sq_throwerror(v,_SC("wrong type")); break;
817 SQRESULT sq_get(HSQUIRRELVM v,SQInteger idx)
819 SQObjectPtr &self=stack_get(v,idx);
820 if(v->Get(self,v->GetUp(-1),v->GetUp(-1),false,false))
823 return sq_throwerror(v,_SC("the index doesn't exist"));
826 SQRESULT sq_rawget(HSQUIRRELVM v,SQInteger idx)
828 SQObjectPtr &self=stack_get(v,idx);
831 if(_table(self)->Get(v->GetUp(-1),v->GetUp(-1)))
835 if(_class(self)->Get(v->GetUp(-1),v->GetUp(-1)))
839 if(_instance(self)->Get(v->GetUp(-1),v->GetUp(-1)))
843 if(v->Get(self,v->GetUp(-1),v->GetUp(-1),false,false))
848 return sq_throwerror(v,_SC("rawget works only on array/table/instance and class"));
851 return sq_throwerror(v,_SC("the index doesn't exist"));
854 SQRESULT sq_getstackobj(HSQUIRRELVM v,SQInteger idx,HSQOBJECT *po)
856 *po=stack_get(v,idx);
860 const SQChar *sq_getlocal(HSQUIRRELVM v,SQUnsignedInteger level,SQUnsignedInteger idx)
862 SQUnsignedInteger cstksize=v->_callsstacksize;
863 SQUnsignedInteger lvl=(cstksize-level)-1;
864 SQInteger stackbase=v->_stackbase;
866 for(SQUnsignedInteger i=0;i<level;i++){
867 SQVM::CallInfo &ci=v->_callsstack[(cstksize-i)-1];
868 stackbase-=ci._prevstkbase;
870 SQVM::CallInfo &ci=v->_callsstack[lvl];
871 if(type(ci._closure)!=OT_CLOSURE)
873 SQClosure *c=_closure(ci._closure);
874 SQFunctionProto *func=_funcproto(c->_function);
875 if(func->_noutervalues > (SQInteger)idx) {
876 v->Push(c->_outervalues[idx]);
877 return _stringval(func->_outervalues[idx]._name);
879 idx -= func->_noutervalues;
880 return func->GetLocal(v,stackbase,idx,(SQInteger)(ci._ip-func->_instructions)-1);
885 void sq_pushobject(HSQUIRRELVM v,HSQOBJECT obj)
887 v->Push(SQObjectPtr(obj));
890 void sq_resetobject(HSQOBJECT *po)
892 po->_unVal.pUserPointer=NULL;po->_type=OT_NULL;
895 SQRESULT sq_throwerror(HSQUIRRELVM v,const SQChar *err)
897 v->_lasterror=SQString::Create(_ss(v),err);
901 void sq_reseterror(HSQUIRRELVM v)
903 v->_lasterror = _null_;
906 void sq_getlasterror(HSQUIRRELVM v)
908 v->Push(v->_lasterror);
911 void sq_reservestack(HSQUIRRELVM v,SQInteger nsize)
913 if (((SQUnsignedInteger)v->_top + nsize) > v->_stack.size()) {
914 v->_stack.resize(v->_stack.size() + ((v->_top + nsize) - v->_stack.size()));
918 SQRESULT sq_resume(HSQUIRRELVM v,SQBool retval,SQBool raiseerror)
920 if(type(v->GetUp(-1))==OT_GENERATOR){
921 v->Push(_null_); //retval
922 if(!v->Execute(v->GetUp(-2),v->_top,0,v->_top,v->GetUp(-1),raiseerror,SQVM::ET_RESUME_GENERATOR))
923 {v->Raise_Error(v->_lasterror); return SQ_ERROR;}
928 return sq_throwerror(v,_SC("only generators can be resumed"));
931 SQRESULT sq_call(HSQUIRRELVM v,SQInteger params,SQBool retval,SQBool raiseerror)
934 if(v->Call(v->GetUp(-(params+1)),params,v->_top-params,res,raiseerror?true:false)){
936 v->Pop(params);//pop closure and args
939 v->Push(res); return SQ_OK;
949 return sq_throwerror(v,_SC("call failed"));
952 SQRESULT sq_suspendvm(HSQUIRRELVM v)
957 SQRESULT sq_wakeupvm(HSQUIRRELVM v,SQBool wakeupret,SQBool retval,SQBool raiseerror)
961 return sq_throwerror(v,_SC("cannot resume a vm that is not running any code"));
963 v->GetAt(v->_stackbase+v->_suspended_target)=v->GetUp(-1); //retval
965 } else v->GetAt(v->_stackbase+v->_suspended_target)=_null_;
966 if(!v->Execute(_null_,v->_top,-1,-1,ret,raiseerror,SQVM::ET_RESUME_VM))
968 if(sq_getvmstate(v) == SQ_VMSTATE_IDLE) {
969 while (v->_top > 1) v->_stack[--v->_top] = _null_;
976 void sq_setreleasehook(HSQUIRRELVM v,SQInteger idx,SQRELEASEHOOK hook)
978 if(sq_gettop(v) >= 1){
979 SQObjectPtr &ud=stack_get(v,idx);
981 case OT_USERDATA: _userdata(ud)->_hook = hook; break;
982 case OT_INSTANCE: _instance(ud)->_hook = hook; break;
983 case OT_CLASS: _class(ud)->_hook = hook; break;
984 default: break; //shutup compiler
989 void sq_setcompilererrorhandler(HSQUIRRELVM v,SQCOMPILERERROR f)
991 _ss(v)->_compilererrorhandler = f;
994 SQRESULT sq_writeclosure(HSQUIRRELVM v,SQWRITEFUNC w,SQUserPointer up)
996 SQObjectPtr *o = NULL;
997 _GETSAFE_OBJ(v, -1, OT_CLOSURE,o);
998 unsigned short tag = SQ_BYTECODE_STREAM_TAG;
999 if(w(up,&tag,2) != 2)
1000 return sq_throwerror(v,_SC("io error"));
1001 if(!_closure(*o)->Save(v,up,w))
1006 SQRESULT sq_readclosure(HSQUIRRELVM v,SQREADFUNC r,SQUserPointer up)
1008 SQObjectPtr closure;
1011 if(r(up,&tag,2) != 2)
1012 return sq_throwerror(v,_SC("io error"));
1013 if(tag != SQ_BYTECODE_STREAM_TAG)
1014 return sq_throwerror(v,_SC("invalid stream"));
1015 if(!SQClosure::Load(v,up,r,closure))
1021 SQChar *sq_getscratchpad(HSQUIRRELVM v,SQInteger minsize)
1023 return _ss(v)->GetScratchPad(minsize);
1026 SQInteger sq_collectgarbage(HSQUIRRELVM v)
1028 #ifndef NO_GARBAGE_COLLECTOR
1029 return _ss(v)->CollectGarbage(v);
1035 const SQChar *sq_getfreevariable(HSQUIRRELVM v,SQInteger idx,SQUnsignedInteger nval)
1037 SQObjectPtr &self = stack_get(v,idx);
1038 const SQChar *name = NULL;
1039 if(type(self) == OT_CLOSURE) {
1040 if(_closure(self)->_outervalues.size()>nval) {
1041 v->Push(_closure(self)->_outervalues[nval]);
1042 SQFunctionProto *fp = _funcproto(_closure(self)->_function);
1043 SQOuterVar &ov = fp->_outervalues[nval];
1044 name = _stringval(ov._name);
1050 SQRESULT sq_setfreevariable(HSQUIRRELVM v,SQInteger idx,SQUnsignedInteger nval)
1052 SQObjectPtr &self=stack_get(v,idx);
1056 if(_closure(self)->_outervalues.size()>nval){
1057 _closure(self)->_outervalues[nval]=stack_get(v,-1);
1059 else return sq_throwerror(v,_SC("invalid free var index"));
1061 case OT_NATIVECLOSURE:
1062 if(_nativeclosure(self)->_outervalues.size()>nval){
1063 _nativeclosure(self)->_outervalues[nval]=stack_get(v,-1);
1065 else return sq_throwerror(v,_SC("invalid free var index"));
1068 return sq_aux_invalidtype(v,type(self));
1074 SQRESULT sq_setattributes(HSQUIRRELVM v,SQInteger idx)
1076 SQObjectPtr *o = NULL;
1077 _GETSAFE_OBJ(v, idx, OT_CLASS,o);
1078 SQObjectPtr &key = stack_get(v,-2);
1079 SQObjectPtr &val = stack_get(v,-1);
1081 if(type(key) == OT_NULL) {
1082 attrs = _class(*o)->_attributes;
1083 _class(*o)->_attributes = val;
1087 }else if(_class(*o)->GetAttributes(key,attrs)) {
1088 _class(*o)->SetAttributes(key,val);
1093 return sq_throwerror(v,_SC("wrong index"));
1096 SQRESULT sq_getattributes(HSQUIRRELVM v,SQInteger idx)
1098 SQObjectPtr *o = NULL;
1099 _GETSAFE_OBJ(v, idx, OT_CLASS,o);
1100 SQObjectPtr &key = stack_get(v,-1);
1102 if(type(key) == OT_NULL) {
1103 attrs = _class(*o)->_attributes;
1108 else if(_class(*o)->GetAttributes(key,attrs)) {
1113 return sq_throwerror(v,_SC("wrong index"));
1116 SQRESULT sq_getbase(HSQUIRRELVM v,SQInteger idx)
1118 SQObjectPtr *o = NULL;
1119 _GETSAFE_OBJ(v, idx, OT_CLASS,o);
1120 if(_class(*o)->_base)
1121 v->Push(SQObjectPtr(_class(*o)->_base));
1127 SQRESULT sq_getclass(HSQUIRRELVM v,SQInteger idx)
1129 SQObjectPtr *o = NULL;
1130 _GETSAFE_OBJ(v, idx, OT_INSTANCE,o);
1131 v->Push(SQObjectPtr(_instance(*o)->_class));
1135 SQRESULT sq_createinstance(HSQUIRRELVM v,SQInteger idx)
1137 SQObjectPtr *o = NULL;
1138 _GETSAFE_OBJ(v, idx, OT_CLASS,o);
1139 v->Push(_class(*o)->CreateInstance());
1143 void sq_weakref(HSQUIRRELVM v,SQInteger idx)
1145 SQObject &o=stack_get(v,idx);
1146 if(ISREFCOUNTED(type(o))) {
1147 v->Push(_refcounted(o)->GetWeakRef(type(o)));
1153 SQRESULT sq_getweakrefval(HSQUIRRELVM v,SQInteger idx)
1155 SQObjectPtr &o = stack_get(v,idx);
1156 if(type(o) != OT_WEAKREF) {
1157 return sq_throwerror(v,_SC("the object must be a weakref"));
1159 v->Push(_weakref(o)->_obj);
1163 SQRESULT sq_getdefaultdelegate(HSQUIRRELVM v,SQObjectType t)
1165 SQSharedState *ss = _ss(v);
1167 case OT_TABLE: v->Push(ss->_table_default_delegate); break;
1168 case OT_ARRAY: v->Push(ss->_array_default_delegate); break;
1169 case OT_STRING: v->Push(ss->_string_default_delegate); break;
1170 case OT_INTEGER: case OT_FLOAT: v->Push(ss->_number_default_delegate); break;
1171 case OT_GENERATOR: v->Push(ss->_generator_default_delegate); break;
1172 case OT_CLOSURE: case OT_NATIVECLOSURE: v->Push(ss->_closure_default_delegate); break;
1173 case OT_THREAD: v->Push(ss->_thread_default_delegate); break;
1174 case OT_CLASS: v->Push(ss->_class_default_delegate); break;
1175 case OT_INSTANCE: v->Push(ss->_instance_default_delegate); break;
1176 case OT_WEAKREF: v->Push(ss->_weakref_default_delegate); break;
1177 default: return sq_throwerror(v,_SC("the type doesn't have a default delegate"));
1182 SQRESULT sq_next(HSQUIRRELVM v,SQInteger idx)
1184 SQObjectPtr o=stack_get(v,idx),&refpos = stack_get(v,-1),realkey,val;
1185 if(type(o) == OT_GENERATOR) {
1186 return sq_throwerror(v,_SC("cannot iterate a generator"));
1189 if(!v->FOREACH_OP(o,realkey,val,refpos,0,666,faketojump))
1191 if(faketojump != 666) {
1205 SQInteger buf_lexfeed(SQUserPointer file)
1207 BufState *buf=(BufState*)file;
1208 if(buf->size<(buf->ptr+1))
1210 return buf->buf[buf->ptr++];
1213 SQRESULT sq_compilebuffer(HSQUIRRELVM v,const SQChar *s,SQInteger size,const SQChar *sourcename,SQBool raiseerror) {
1218 return sq_compile(v, buf_lexfeed, &buf, sourcename, raiseerror);
1221 void sq_move(HSQUIRRELVM dest,HSQUIRRELVM src,SQInteger idx)
1223 dest->Push(stack_get(src,idx));
1226 void sq_setprintfunc(HSQUIRRELVM v, SQPRINTFUNCTION printfunc)
1228 _ss(v)->_printfunc = printfunc;
1231 SQPRINTFUNCTION sq_getprintfunc(HSQUIRRELVM v)
1233 return _ss(v)->_printfunc;
1236 void *sq_malloc(SQUnsignedInteger size)
1238 return SQ_MALLOC(size);
1241 void *sq_realloc(void* p,SQUnsignedInteger oldsize,SQUnsignedInteger newsize)
1243 return SQ_REALLOC(p,oldsize,newsize);
1246 void sq_free(void *p,SQUnsignedInteger size)