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,int 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 int sq_aux_throwobject(HSQUIRRELVM v,SQObjectPtr &e)
40 int 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(int 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, int initialstacksize)
70 v= (SQVM *)SQ_MALLOC(sizeof(SQVM));
73 if(v->Init(friendvm, initialstacksize)) {
82 int sq_getvmstate(HSQUIRRELVM v)
85 return SQ_VMSTATE_SUSPENDED;
87 if(v->_callsstack.size() != 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 debuginfo)
129 _ss(v)->_debuginfo = debuginfo?true:false;
132 void sq_addref(HSQUIRRELVM v,HSQOBJECT *po)
135 if(!ISREFCOUNTED(type(*po))) return;
136 if(_table(_ss(v)->_refs_table)->Get(*po, refs)) {
137 refs = _integer(refs) + 1;
142 _table(_ss(v)->_refs_table)->NewSlot(*po, refs);
145 SQBool sq_release(HSQUIRRELVM v,HSQOBJECT *po)
148 if(!ISREFCOUNTED(type(*po))) return SQTrue;
149 if(_table(_ss(v)->_refs_table)->Get(*po, refs)) {
150 int n = _integer(refs) - 1;
152 _table(_ss(v)->_refs_table)->Remove(*po);
156 refs = n;_table(_ss(v)->_refs_table)->Set(*po, refs);
163 const SQChar *sq_objtostring(HSQOBJECT *o)
165 if(sq_type(*o) == OT_STRING) {
166 return o->_unVal.pString->_val;
171 SQInteger sq_objtointeger(HSQOBJECT *o)
173 if(sq_isnumeric(*o)) {
174 return tointeger(*o);
179 SQFloat sq_objtofloat(HSQOBJECT *o)
181 if(sq_isnumeric(*o)) {
187 void sq_pushnull(HSQUIRRELVM v)
192 void sq_pushstring(HSQUIRRELVM v,const SQChar *s,int len)
195 v->Push(SQObjectPtr(SQString::Create(_ss(v), s, len)));
196 else v->Push(_null_);
199 void sq_pushinteger(HSQUIRRELVM v,SQInteger n)
204 void sq_pushbool(HSQUIRRELVM v,SQBool b)
206 v->Push(b?true:false);
209 void sq_pushfloat(HSQUIRRELVM v,SQFloat n)
214 void sq_pushuserpointer(HSQUIRRELVM v,SQUserPointer p)
219 SQUserPointer sq_newuserdata(HSQUIRRELVM v,unsigned int size)
221 SQUserData *ud = SQUserData::Create(_ss(v), size);
226 void sq_newtable(HSQUIRRELVM v)
228 v->Push(SQTable::Create(_ss(v), 0));
231 void sq_newarray(HSQUIRRELVM v,int size)
233 v->Push(SQArray::Create(_ss(v), size));
236 SQRESULT sq_newclass(HSQUIRRELVM v,SQBool hasbase)
238 SQClass *baseclass = NULL;
240 SQObjectPtr &base = stack_get(v,-1);
241 if(type(base) != OT_CLASS)
242 return sq_throwerror(v,_SC("invalid base type"));
243 baseclass = _class(base);
245 SQClass *newclass = SQClass::Create(_ss(v), baseclass);
246 if(baseclass) v->Pop();
251 int sq_instanceof(HSQUIRRELVM v)
253 SQObjectPtr &inst = stack_get(v,-1);
254 SQObjectPtr &cl = stack_get(v,-2);
255 if(type(inst) != OT_INSTANCE || type(cl) != OT_CLASS)
256 return sq_throwerror(v,_SC("invalid param type"));
257 return _instance(inst)->InstanceOf(_class(cl))?1:0;
260 SQRESULT sq_arrayappend(HSQUIRRELVM v,int idx)
262 sq_aux_paramscheck(v,2);
264 _GETSAFE_OBJ(v, idx, OT_ARRAY,arr);
265 _array(*arr)->Append(v->GetUp(-1));
270 SQRESULT sq_arraypop(HSQUIRRELVM v,int idx,SQBool pushval)
272 sq_aux_paramscheck(v, 1);
274 _GETSAFE_OBJ(v, idx, OT_ARRAY,arr);
275 if(_array(*arr)->Size() > 0) {
276 if(pushval != 0){ v->Push(_array(*arr)->Top()); }
280 return sq_throwerror(v, _SC("empty array"));
283 SQRESULT sq_arrayresize(HSQUIRRELVM v,int idx,int newsize)
285 sq_aux_paramscheck(v,1);
287 _GETSAFE_OBJ(v, idx, OT_ARRAY,arr);
288 if(_array(*arr)->Size() > 0) {
289 _array(*arr)->Resize(newsize);
292 return sq_throwerror(v, _SC("empty array"));
295 SQRESULT sq_arrayreverse(HSQUIRRELVM v,int idx)
297 sq_aux_paramscheck(v, 1);
299 _GETSAFE_OBJ(v, idx, OT_ARRAY,o);
300 SQArray *arr = _array(*o);
301 if(arr->Size() > 0) {
303 int size = arr->Size();
304 int n = size >> 1; size -= 1;
305 for(int i = 0; i < n; i++) {
307 arr->_values[i] = arr->_values[size-i];
308 arr->_values[size-i] = t;
312 return sq_throwerror(v, _SC("empty array"));
315 void sq_newclosure(HSQUIRRELVM v,SQFUNCTION func,unsigned int nfreevars)
317 SQNativeClosure *nc = SQNativeClosure::Create(_ss(v), func);
318 nc->_nparamscheck = 0;
319 for(unsigned int i = 0; i < nfreevars; i++) {
320 nc->_outervalues.push_back(v->Top());
323 v->Push(SQObjectPtr(nc));
326 SQRESULT sq_getclosureinfo(HSQUIRRELVM v,int idx,unsigned int *nparams,unsigned int *nfreevars)
328 SQObject o = stack_get(v, idx);
329 if(sq_isclosure(o)) {
330 SQClosure *c = _closure(o);
331 SQFunctionProto *proto = _funcproto(c->_function);
332 *nparams = (unsigned int)proto->_parameters.size();
333 *nfreevars = (unsigned int)c->_outervalues.size();
336 return sq_throwerror(v,_SC("the object is not a closure"));
339 SQRESULT sq_setnativeclosurename(HSQUIRRELVM v,int idx,const SQChar *name)
341 SQObject o = stack_get(v, idx);
342 if(sq_isnativeclosure(o)) {
343 SQNativeClosure *nc = _nativeclosure(o);
344 nc->_name = SQString::Create(_ss(v),name);
347 return sq_throwerror(v,_SC("the object is not a nativeclosure"));
350 SQRESULT sq_setparamscheck(HSQUIRRELVM v,int nparamscheck,const SQChar *typemask)
352 SQObject o = stack_get(v, -1);
353 if(!sq_isnativeclosure(o))
354 return sq_throwerror(v, _SC("native closure expected"));
355 SQNativeClosure *nc = _nativeclosure(o);
356 nc->_nparamscheck = nparamscheck;
359 if(!CompileTypemask(res, typemask))
360 return sq_throwerror(v, _SC("invalid typemask"));
361 nc->_typecheck.copy(res);
364 nc->_typecheck.resize(0);
366 if(nparamscheck == SQ_MATCHTYPEMASKSTRING) {
367 nc->_nparamscheck = nc->_typecheck.size();
372 void sq_pushroottable(HSQUIRRELVM v)
374 v->Push(v->_roottable);
377 void sq_pushregistrytable(HSQUIRRELVM v)
379 v->Push(_ss(v)->_registry);
382 SQRESULT sq_setroottable(HSQUIRRELVM v)
384 SQObject o = stack_get(v, -1);
385 if(sq_istable(o) || sq_isnull(o)) {
390 return sq_throwerror(v, _SC("ivalid type"));
393 void sq_setforeignptr(HSQUIRRELVM v,SQUserPointer p)
398 SQUserPointer sq_getforeignptr(HSQUIRRELVM v)
400 return v->_foreignptr;
403 void sq_push(HSQUIRRELVM v,int idx)
405 v->Push(stack_get(v, idx));
408 SQObjectType sq_gettype(HSQUIRRELVM v,int idx)
410 return type(stack_get(v, idx));
413 SQRESULT sq_getinteger(HSQUIRRELVM v,int idx,SQInteger *i)
415 SQObjectPtr &o = stack_get(v, idx);
416 if(sq_isnumeric(o)) {
423 SQRESULT sq_getfloat(HSQUIRRELVM v,int idx,SQFloat *f)
425 SQObjectPtr &o = stack_get(v, idx);
426 if(sq_isnumeric(o)) {
433 SQRESULT sq_getbool(HSQUIRRELVM v,int idx,SQBool *b)
435 SQObjectPtr &o = stack_get(v, idx);
443 SQRESULT sq_getstring(HSQUIRRELVM v,int idx,const SQChar **c)
445 SQObjectPtr *o = NULL;
446 _GETSAFE_OBJ(v, idx, OT_STRING,o);
451 SQRESULT sq_getthread(HSQUIRRELVM v,int idx,HSQUIRRELVM *thread)
453 SQObjectPtr *o = NULL;
454 _GETSAFE_OBJ(v, idx, OT_THREAD,o);
455 *thread = _thread(*o);
459 SQRESULT sq_clone(HSQUIRRELVM v,int idx)
461 SQObjectPtr &o = stack_get(v,idx);
463 if(!v->Clone(o, stack_get(v, -1))){
465 return sq_aux_invalidtype(v, type(o));
470 SQInteger sq_getsize(HSQUIRRELVM v, int idx)
472 SQObjectPtr &o = stack_get(v, idx);
473 SQObjectType type = type(o);
475 case OT_STRING: return _string(o)->_len;
476 case OT_TABLE: return _table(o)->CountUsed();
477 case OT_ARRAY: return _array(o)->Size();
478 case OT_USERDATA: return _userdata(o)->_size;
480 return sq_aux_invalidtype(v, type);
484 SQRESULT sq_getuserdata(HSQUIRRELVM v,int idx,SQUserPointer *p,unsigned int *typetag)
486 SQObjectPtr *o = NULL;
487 _GETSAFE_OBJ(v, idx, OT_USERDATA,o);
488 (*p) = _userdataval(*o);
489 if(typetag) *typetag = _userdata(*o)->_typetag;
493 SQRESULT sq_settypetag(HSQUIRRELVM v,int idx,unsigned int typetag)
495 SQObjectPtr &o = stack_get(v,idx);
497 case OT_USERDATA: _userdata(o)->_typetag = typetag; break;
498 case OT_CLASS: _class(o)->_typetag = typetag; break;
499 default: return sq_throwerror(v,_SC("invalid object type"));
504 SQRESULT sq_gettypetag(HSQUIRRELVM v,int idx,unsigned int *typetag)
506 SQObjectPtr &o = stack_get(v,idx);
508 case OT_USERDATA: *typetag = _userdata(o)->_typetag; break;
509 case OT_CLASS: *typetag = _class(o)->_typetag; break;
510 default: return sq_throwerror(v,_SC("invalid object type"));
515 SQRESULT sq_getuserpointer(HSQUIRRELVM v, int idx, SQUserPointer *p)
517 SQObjectPtr *o = NULL;
518 _GETSAFE_OBJ(v, idx, OT_USERPOINTER,o);
519 (*p) = _userpointer(*o);
523 SQRESULT sq_setinstanceup(HSQUIRRELVM v, int idx, SQUserPointer p)
525 SQObjectPtr &o = stack_get(v,idx);
526 if(type(o) != OT_INSTANCE) return sq_throwerror(v,_SC("the object is not a class instance"));
527 _instance(o)->_userpointer = p;
531 SQRESULT sq_getinstanceup(HSQUIRRELVM v, int idx, SQUserPointer *p,unsigned int typetag)
533 SQObjectPtr &o = stack_get(v,idx);
534 if(type(o) != OT_INSTANCE) return sq_throwerror(v,_SC("the object is not a class instance"));
535 (*p) = _instance(o)->_userpointer;
537 SQClass *cl = _instance(o)->_class;
539 if(cl->_typetag == typetag)
543 return sq_throwerror(v,_SC("invalid type tag"));
548 int sq_gettop(HSQUIRRELVM v)
550 return (v->_top) - v->_stackbase;
553 void sq_settop(HSQUIRRELVM v, int newtop)
555 int top = sq_gettop(v);
557 sq_pop(v, top - newtop);
559 while(top < newtop) sq_pushnull(v);
562 void sq_pop(HSQUIRRELVM v, int nelemstopop)
564 assert(v->_top >= nelemstopop);
568 void sq_remove(HSQUIRRELVM v, int idx)
573 int sq_cmp(HSQUIRRELVM v)
576 v->ObjCmp(stack_get(v, -1), stack_get(v, -2),res);
580 SQRESULT sq_createslot(HSQUIRRELVM v, int idx)
582 sq_aux_paramscheck(v, 3);
583 SQObjectPtr &self = stack_get(v, idx);
584 if(type(self) == OT_TABLE || type(self) == OT_CLASS) {
585 SQObjectPtr &key = v->GetUp(-2);
586 if(type(key) == OT_NULL) return sq_throwerror(v, _SC("null is not a valid key"));
587 v->NewSlot(self, key, v->GetUp(-1));
593 SQRESULT sq_deleteslot(HSQUIRRELVM v,int idx,SQBool pushval)
595 sq_aux_paramscheck(v, 2);
597 _GETSAFE_OBJ(v, idx, OT_TABLE,self);
598 SQObjectPtr &key = v->GetUp(-1);
599 if(type(key) == OT_NULL) return sq_throwerror(v, _SC("null is not a valid key"));
601 if(!v->DeleteSlot(*self, key, res)){
604 if(pushval) v->GetUp(-1) = res;
609 SQRESULT sq_set(HSQUIRRELVM v,int idx)
611 SQObjectPtr &self = stack_get(v, idx);
612 if(v->Set(self, v->GetUp(-2), v->GetUp(-1),false)) {
616 v->Raise_IdxError(v->GetUp(-2));return SQ_ERROR;
619 SQRESULT sq_rawset(HSQUIRRELVM v,int idx)
621 SQObjectPtr &self = stack_get(v, idx);
622 if(type(v->GetUp(-2)) == OT_NULL) return sq_throwerror(v, _SC("null key"));
625 _table(self)->NewSlot(v->GetUp(-2), v->GetUp(-1));
630 _class(self)->NewSlot(v->GetUp(-2), v->GetUp(-1));
635 if(_instance(self)->Set(v->GetUp(-2), v->GetUp(-1))) {
641 if(v->Set(self, v->GetUp(-2), v->GetUp(-1),false)) {
648 return sq_throwerror(v, _SC("rawset works only on arrays,tables,calsses and instances"));
650 v->Raise_IdxError(v->GetUp(-2));return SQ_ERROR;
653 SQRESULT sq_setdelegate(HSQUIRRELVM v,int idx)
655 SQObjectPtr &self = stack_get(v, idx);
656 SQObjectPtr &mt = v->GetUp(-1);
657 SQObjectType type = type(self);
660 if(type(mt) == OT_TABLE) {
661 if(!_table(self)->SetDelegate(_table(mt))) return sq_throwerror(v, _SC("delagate cycle")); v->Pop();}
662 else if(type(mt)==OT_NULL) {
663 _table(self)->SetDelegate(NULL); v->Pop(); }
664 else return sq_aux_invalidtype(v,type);
667 if(type(mt)==OT_TABLE) {
668 _userdata(self)->SetDelegate(_table(mt)); v->Pop(); }
669 else if(type(mt)==OT_NULL) {
670 _userdata(self)->SetDelegate(NULL); v->Pop(); }
671 else return sq_aux_invalidtype(v, type);
674 return sq_aux_invalidtype(v, type);
680 SQRESULT sq_rawdeleteslot(HSQUIRRELVM v,int idx,SQBool pushval)
682 sq_aux_paramscheck(v, 2);
684 _GETSAFE_OBJ(v, idx, OT_TABLE,self);
685 SQObjectPtr &key = v->GetUp(-1);
687 if(_table(*self)->Get(key,t)) {
688 _table(*self)->Remove(key);
691 if(pushval) v->GetUp(-1) = t;
697 SQRESULT sq_getdelegate(HSQUIRRELVM v,int idx)
699 SQObjectPtr &self=stack_get(v,idx);
702 if(!_table(self)->_delegate)break;
703 v->Push(SQObjectPtr(_table(self)->_delegate));
707 if(!_userdata(self)->_delegate)break;
708 v->Push(SQObjectPtr(_userdata(self)->_delegate));
712 return sq_throwerror(v,_SC("wrong type"));
715 SQRESULT sq_get(HSQUIRRELVM v,int idx)
717 SQObjectPtr &self=stack_get(v,idx);
718 if(v->Get(self,v->GetUp(-1),v->GetUp(-1),false,false))
721 return sq_throwerror(v,_SC("the index doesn't exist"));
724 SQRESULT sq_rawget(HSQUIRRELVM v,int idx)
726 SQObjectPtr &self=stack_get(v,idx);
729 if(_table(self)->Get(v->GetUp(-1),v->GetUp(-1)))
733 if(_class(self)->Get(v->GetUp(-1),v->GetUp(-1)))
737 if(_instance(self)->Get(v->GetUp(-1),v->GetUp(-1)))
741 if(v->Get(self,v->GetUp(-1),v->GetUp(-1),false,false))
746 return sq_throwerror(v,_SC("rawget works only on arrays and tables"));
749 return sq_throwerror(v,_SC("the index doesn't exist"));
752 SQRESULT sq_getstackobj(HSQUIRRELVM v,int idx,HSQOBJECT *po)
754 *po=stack_get(v,idx);
758 const SQChar *sq_getlocal(HSQUIRRELVM v,unsigned int level,unsigned int idx)
760 unsigned int cstksize=v->_callsstack.size();
761 unsigned int lvl=(cstksize-level)-1;
762 int stackbase=v->_stackbase;
764 for(unsigned int i=0;i<level;i++){
765 SQVM::CallInfo &ci=v->_callsstack[(cstksize-i)-1];
766 stackbase-=ci._prevstkbase;
768 SQVM::CallInfo &ci=v->_callsstack[lvl];
769 if(type(ci._closure)!=OT_CLOSURE)
771 SQClosure *c=_closure(ci._closure);
772 SQFunctionProto *func=_funcproto(c->_function);
773 return func->GetLocal(v,stackbase,idx,(ci._ip-func->_instructions._vals)-1);
778 void sq_pushobject(HSQUIRRELVM v,HSQOBJECT obj)
780 v->Push(SQObjectPtr(obj));
783 void sq_resetobject(HSQOBJECT *po)
785 po->_unVal.pUserPointer=NULL;po->_type=OT_NULL;
788 SQRESULT sq_throwerror(HSQUIRRELVM v,const SQChar *err)
790 v->_lasterror=SQString::Create(_ss(v),err);
794 void sq_reseterror(HSQUIRRELVM v)
796 v->_lasterror = _null_;
799 void sq_getlasterror(HSQUIRRELVM v)
801 v->Push(v->_lasterror);
804 void sq_reservestack(HSQUIRRELVM v,int nsize)
806 if (((unsigned int)v->_top + nsize) > v->_stack.size()) {
807 v->_stack.resize(v->_stack.size() + ((v->_top + nsize) - v->_stack.size()));
811 SQRESULT sq_resume(HSQUIRRELVM v,SQBool retval)
813 if(type(v->GetUp(-1))==OT_GENERATOR){
814 v->Push(_null_); //retval
815 if(!v->Execute(v->GetUp(-2),v->_top,0,v->_top,v->GetUp(-1),SQVM::ET_RESUME_GENERATOR))
816 {v->Raise_Error(v->_lasterror); return SQ_ERROR;}
821 return sq_throwerror(v,_SC("only generators can be resumed"));
824 SQRESULT sq_call(HSQUIRRELVM v,int params,SQBool retval)
827 if(v->Call(v->GetUp(-(params+1)),params,v->_top-params,res)){
828 v->Pop(params);//pop closure and args
830 v->Push(res); return SQ_OK;
840 return sq_throwerror(v,_SC("call failed"));
843 SQRESULT sq_suspendvm(HSQUIRRELVM v)
848 SQRESULT sq_wakeupvm(HSQUIRRELVM v,SQBool wakeupret,SQBool retval)
852 return sq_throwerror(v,_SC("cannot resume a vm that is not running any code"));
854 v->GetAt(v->_stackbase+v->_suspended_target)=v->GetUp(-1); //retval
856 } else v->GetAt(v->_stackbase+v->_suspended_target)=_null_;
857 if(!v->Execute(_null_,v->_top,-1,-1,ret,SQVM::ET_RESUME_VM))
859 if(sq_getvmstate(v) == SQ_VMSTATE_IDLE) {
860 while (v->_top > 1) v->_stack[--v->_top] = _null_;
867 void sq_setreleasehook(HSQUIRRELVM v,int idx,SQRELEASEHOOK hook)
869 if(sq_gettop(v) >= 1){
870 SQObjectPtr &ud=stack_get(v,idx);
873 _userdata(ud)->_hook = hook;
876 _instance(ud)->_hook = hook;
882 void sq_setcompilererrorhandler(HSQUIRRELVM v,SQCOMPILERERROR f)
884 _ss(v)->_compilererrorhandler = f;
887 SQRESULT sq_writeclosure(HSQUIRRELVM v,SQWRITEFUNC w,SQUserPointer up)
889 SQObjectPtr *o = NULL;
890 _GETSAFE_OBJ(v, -1, OT_CLOSURE,o);
891 SQClosure *c=_closure(*o);
892 unsigned short tag = SQ_BYTECODE_STREAM_TAG;
893 if(w(up,&tag,2) != 2)
894 return sq_throwerror(v,_SC("io error"));
895 if(!_closure(*o)->Save(v,up,w))
900 SQRESULT sq_readclosure(HSQUIRRELVM v,SQREADFUNC r,SQUserPointer up)
902 SQObjectPtr func=SQFunctionProto::Create();
903 SQObjectPtr closure=SQClosure::Create(_ss(v),_funcproto(func));
905 if(r(up,&tag,2) != 2)
906 return sq_throwerror(v,_SC("io error"));
907 if(tag != SQ_BYTECODE_STREAM_TAG)
908 return sq_throwerror(v,_SC("invalid stream"));
909 if(!_closure(closure)->Load(v,up,r))
915 SQChar *sq_getscratchpad(HSQUIRRELVM v,int minsize)
917 return _ss(v)->GetScratchPad(minsize);
920 int sq_collectgarbage(HSQUIRRELVM v)
922 #ifndef NO_GARBAGE_COLLECTOR
923 return _ss(v)->CollectGarbage(v);
929 SQRESULT sq_setfreevariable(HSQUIRRELVM v,int idx,unsigned int nval)
931 SQObjectPtr &self=stack_get(v,idx);
935 if(_closure(self)->_outervalues.size()>nval){
936 _closure(self)->_outervalues[nval]=stack_get(v,-1);
938 else return sq_throwerror(v,_SC("invalid free var index"));
940 case OT_NATIVECLOSURE:
941 if(_nativeclosure(self)->_outervalues.size()>nval){
942 _nativeclosure(self)->_outervalues[nval]=stack_get(v,-1);
944 else return sq_throwerror(v,_SC("invalid free var index"));
947 return sq_aux_invalidtype(v,type(self));
953 SQRESULT sq_setattributes(HSQUIRRELVM v,int idx)
955 SQObjectPtr *o = NULL;
956 _GETSAFE_OBJ(v, idx, OT_CLASS,o);
957 SQObjectPtr &key = stack_get(v,-2);
958 SQObjectPtr &val = stack_get(v,-1);
960 if(type(key) == OT_NULL) {
961 attrs = _class(*o)->_attributes;
962 _class(*o)->_attributes = val;
966 }else if(_class(*o)->GetAttributes(key,attrs)) {
967 _class(*o)->SetAttributes(key,val);
972 return sq_throwerror(v,_SC("wrong index"));
975 SQRESULT sq_getattributes(HSQUIRRELVM v,int idx)
977 SQObjectPtr *o = NULL;
978 _GETSAFE_OBJ(v, idx, OT_CLASS,o);
979 SQObjectPtr &key = stack_get(v,-1);
981 if(type(key) == OT_NULL) {
982 attrs = _class(*o)->_attributes;
987 else if(_class(*o)->GetAttributes(key,attrs)) {
992 return sq_throwerror(v,_SC("wrong index"));
995 SQRESULT sq_getclass(HSQUIRRELVM v,int idx)
997 SQObjectPtr *o = NULL;
998 _GETSAFE_OBJ(v, idx, OT_INSTANCE,o);
999 v->Push(SQObjectPtr(_instance(*o)->_class));
1003 SQRESULT sq_createinstance(HSQUIRRELVM v,int idx)
1005 SQObjectPtr *o = NULL;
1006 _GETSAFE_OBJ(v, idx, OT_CLASS,o);
1007 v->Push(_class(*o)->CreateInstance());
1011 SQRESULT sq_next(HSQUIRRELVM v,int idx)
1013 SQObjectPtr o=stack_get(v,idx),&refpos = stack_get(v,-1),realkey,val;
1014 if(type(o) == OT_GENERATOR) {
1015 return sq_throwerror(v,_SC("cannot iterate a generator"));
1018 if(!v->FOREACH_OP(o,realkey,val,refpos,0,finished))
1034 SQInteger buf_lexfeed(SQUserPointer file)
1036 BufState *buf=(BufState*)file;
1037 if(buf->size<(buf->ptr+1))
1039 return buf->buf[buf->ptr++];
1042 SQRESULT sq_compilebuffer(HSQUIRRELVM v,const SQChar *s,int size,const SQChar *sourcename,SQBool raiseerror) {
1047 return sq_compile(v, buf_lexfeed, &buf, sourcename, raiseerror);
1050 void sq_move(HSQUIRRELVM dest,HSQUIRRELVM src,int idx)
1052 dest->Push(stack_get(src,idx));
1055 void sq_setprintfunc(HSQUIRRELVM v, SQPRINTFUNCTION printfunc)
1057 _ss(v)->_printfunc = printfunc;
1060 SQPRINTFUNCTION sq_getprintfunc(HSQUIRRELVM v)
1062 return _ss(v)->_printfunc;
1065 void *sq_malloc(unsigned int size)
1067 return SQ_MALLOC(size);
1070 void *sq_realloc(void* p,unsigned int oldsize,unsigned int newsize)
1072 return SQ_REALLOC(p,oldsize,newsize);
1074 void sq_free(void *p,unsigned int size)