2 see copyright notice in squirrel.h
4 #include "sqpcheader.h"
9 #include "squserdata.h"
10 #include "sqfuncproto.h"
12 #include "sqclosure.h"
14 SQString *SQString::Create(SQSharedState *ss,const SQChar *s,SQInteger len)
16 SQString *str=ADD_STRING(ss,s,len);
21 void SQString::Release()
23 REMOVE_STRING(_sharedstate,this);
26 SQInteger SQString::Next(const SQObjectPtr &refpos, SQObjectPtr &outkey, SQObjectPtr &outval)
28 SQInteger idx = (SQInteger)TranslateIndex(refpos);
30 outkey = (SQInteger)idx;
31 outval = SQInteger(_val[idx]);
32 //return idx for the next iteration
35 //nothing to iterate anymore
39 SQUnsignedInteger TranslateIndex(const SQObjectPtr &idx)
45 return (SQUnsignedInteger)_integer(idx);
46 default: assert(0); break;
51 SQWeakRef *SQRefCounted::GetWeakRef(SQObjectType type)
54 sq_new(_weakref,SQWeakRef);
55 _weakref->_obj._type = type;
56 _weakref->_obj._unVal.pRefCounted = this;
61 SQRefCounted::~SQRefCounted()
64 _weakref->_obj._type = OT_NULL;
65 _weakref->_obj._unVal.pRefCounted = NULL;
69 void SQWeakRef::Release() {
70 if(ISREFCOUNTED(_obj._type)) {
71 _obj._unVal.pRefCounted->_weakref = NULL;
73 sq_delete(this,SQWeakRef);
76 bool SQDelegable::GetMetaMethod(SQVM *v,SQMetaMethod mm,SQObjectPtr &res) {
78 return _delegate->Get((*_ss(v)->_metamethods)[mm],res);
83 bool SQDelegable::SetDelegate(SQTable *mt)
87 if (temp->_delegate == this) return false; //cycle detected
88 temp = temp->_delegate;
90 if (mt) __ObjAddRef(mt);
91 __ObjRelease(_delegate);
96 bool SQGenerator::Yield(SQVM *v)
98 if(_state==eSuspended) { v->Raise_Error(_SC("internal vm error, yielding dead generator")); return false;}
99 if(_state==eDead) { v->Raise_Error(_SC("internal vm error, yielding a dead generator")); return false; }
100 SQInteger size = v->_top-v->_stackbase;
103 for(SQInteger n =0; n<size; n++) {
104 _stack._vals[n] = v->_stack[v->_stackbase+n];
105 v->_stack[v->_stackbase+n] = _null_;
107 SQInteger nvargs = v->ci->_vargs.size;
108 SQInteger vargsbase = v->ci->_vargs.base;
109 for(SQInteger j = nvargs - 1; j >= 0; j--) {
110 _vargsstack.push_back(v->_vargsstack[vargsbase+j]);
112 _ci._generator=_null_;
113 for(SQInteger i=0;i<_ci._etraps;i++) {
114 _etraps.push_back(v->_etraps.top());
115 v->_etraps.pop_back();
121 bool SQGenerator::Resume(SQVM *v,SQInteger target)
123 SQInteger size=_stack.size();
124 if(_state==eDead){ v->Raise_Error(_SC("resuming dead generator")); return false; }
125 if(_state==eRunning){ v->Raise_Error(_SC("resuming active generator")); return false; }
126 SQInteger prevtop=v->_top-v->_stackbase;
127 PUSH_CALLINFO(v,_ci);
128 SQInteger oldstackbase=v->_stackbase;
129 v->_stackbase = v->_top;
130 v->ci->_target = (SQInt32)target;
131 v->ci->_generator = SQObjectPtr(this);
132 v->ci->_vargs.size = (unsigned short)_vargsstack.size();
134 for(SQInteger i=0;i<_ci._etraps;i++) {
135 v->_etraps.push_back(_etraps.top());
138 for(SQInteger n =0; n<size; n++) {
139 v->_stack[v->_stackbase+n] = _stack._vals[n];
140 _stack._vals[0] = _null_;
142 while(_vargsstack.size()) {
143 v->_vargsstack.push_back(_vargsstack.back());
144 _vargsstack.pop_back();
146 v->ci->_vargs.base = (unsigned short)(v->_vargsstack.size() - v->ci->_vargs.size);
147 v->_top=v->_stackbase+size;
148 v->ci->_prevtop = (SQInt32)prevtop;
149 v->ci->_prevstkbase = (SQInt32)(v->_stackbase - oldstackbase);
154 void SQArray::Extend(const SQArray *a){
157 for(SQInteger i=0;i<xlen;i++)
158 Append(a->_values[i]);
161 const SQChar* SQFunctionProto::GetLocal(SQVM *vm,SQUnsignedInteger stackbase,SQUnsignedInteger nseq,SQUnsignedInteger nop)
163 SQUnsignedInteger nvars=_nlocalvarinfos;
164 const SQChar *res=NULL;
166 for(SQUnsignedInteger i=0;i<nvars;i++){
167 if(_localvarinfos[i]._start_op<=nop && _localvarinfos[i]._end_op>=nop)
170 vm->Push(vm->_stack[stackbase+_localvarinfos[i]._pos]);
171 res=_stringval(_localvarinfos[i]._name);
181 SQInteger SQFunctionProto::GetLine(SQInstruction *curr)
183 SQInteger op = (SQInteger)(curr-_instructions);
184 SQInteger line=_lineinfos[0]._line;
185 for(SQInteger i=1;i<_nlineinfos;i++){
186 if(_lineinfos[i]._op>=op)
188 line=_lineinfos[i]._line;
193 #define _CHECK_IO(exp) { if(!exp)return false; }
194 bool SafeWrite(HSQUIRRELVM v,SQWRITEFUNC write,SQUserPointer up,SQUserPointer dest,SQInteger size)
196 if(write(up,dest,size) != size) {
197 v->Raise_Error(_SC("io error (write function failure)"));
203 bool SafeRead(HSQUIRRELVM v,SQWRITEFUNC read,SQUserPointer up,SQUserPointer dest,SQInteger size)
205 if(size && read(up,dest,size) != size) {
206 v->Raise_Error(_SC("io error, read function failure, the origin stream could be corrupted/trucated"));
212 bool WriteTag(HSQUIRRELVM v,SQWRITEFUNC write,SQUserPointer up,SQInteger tag)
214 return SafeWrite(v,write,up,&tag,sizeof(tag));
217 bool CheckTag(HSQUIRRELVM v,SQWRITEFUNC read,SQUserPointer up,SQInteger tag)
220 _CHECK_IO(SafeRead(v,read,up,&t,sizeof(t)));
222 v->Raise_Error(_SC("invalid or corrupted closure stream"));
228 bool WriteObject(HSQUIRRELVM v,SQUserPointer up,SQWRITEFUNC write,SQObjectPtr &o)
230 _CHECK_IO(SafeWrite(v,write,up,&type(o),sizeof(SQObjectType)));
233 _CHECK_IO(SafeWrite(v,write,up,&_string(o)->_len,sizeof(SQInteger)));
234 _CHECK_IO(SafeWrite(v,write,up,_stringval(o),rsl(_string(o)->_len)));
237 _CHECK_IO(SafeWrite(v,write,up,&_integer(o),sizeof(SQInteger)));break;
239 _CHECK_IO(SafeWrite(v,write,up,&_float(o),sizeof(SQFloat)));break;
243 v->Raise_Error(_SC("cannot serialize a %s"),GetTypeName(o));
249 bool ReadObject(HSQUIRRELVM v,SQUserPointer up,SQREADFUNC read,SQObjectPtr &o)
252 _CHECK_IO(SafeRead(v,read,up,&t,sizeof(SQObjectType)));
256 _CHECK_IO(SafeRead(v,read,up,&len,sizeof(SQInteger)));
257 _CHECK_IO(SafeRead(v,read,up,_ss(v)->GetScratchPad(rsl(len)),rsl(len)));
258 o=SQString::Create(_ss(v),_ss(v)->GetScratchPad(-1),len);
263 _CHECK_IO(SafeRead(v,read,up,&i,sizeof(SQInteger))); o = i; break;
267 _CHECK_IO(SafeRead(v,read,up,&f,sizeof(SQFloat))); o = f; break;
273 v->Raise_Error(_SC("cannot serialize a %s"),IdType2Name(t));
279 bool SQClosure::Save(SQVM *v,SQUserPointer up,SQWRITEFUNC write)
281 _CHECK_IO(WriteTag(v,write,up,SQ_CLOSURESTREAM_HEAD));
282 _CHECK_IO(WriteTag(v,write,up,sizeof(SQChar)));
283 _CHECK_IO(_funcproto(_function)->Save(v,up,write));
284 _CHECK_IO(WriteTag(v,write,up,SQ_CLOSURESTREAM_TAIL));
288 bool SQClosure::Load(SQVM *v,SQUserPointer up,SQREADFUNC read,SQObjectPtr &ret)
290 _CHECK_IO(CheckTag(v,read,up,SQ_CLOSURESTREAM_HEAD));
291 _CHECK_IO(CheckTag(v,read,up,sizeof(SQChar)));
293 _CHECK_IO(SQFunctionProto::Load(v,up,read,func));
294 _CHECK_IO(CheckTag(v,read,up,SQ_CLOSURESTREAM_TAIL));
295 ret = SQClosure::Create(_ss(v),_funcproto(func));
299 bool SQFunctionProto::Save(SQVM *v,SQUserPointer up,SQWRITEFUNC write)
301 SQInteger i,nliterals = _nliterals,nparameters = _nparameters;
302 SQInteger noutervalues = _noutervalues,nlocalvarinfos = _nlocalvarinfos;
303 SQInteger nlineinfos=_nlineinfos,ninstructions = _ninstructions,nfunctions=_nfunctions;
304 _CHECK_IO(WriteTag(v,write,up,SQ_CLOSURESTREAM_PART));
305 _CHECK_IO(WriteObject(v,up,write,_sourcename));
306 _CHECK_IO(WriteObject(v,up,write,_name));
307 _CHECK_IO(WriteTag(v,write,up,SQ_CLOSURESTREAM_PART));
308 _CHECK_IO(SafeWrite(v,write,up,&nliterals,sizeof(nliterals)));
309 _CHECK_IO(SafeWrite(v,write,up,&nparameters,sizeof(nparameters)));
310 _CHECK_IO(SafeWrite(v,write,up,&noutervalues,sizeof(noutervalues)));
311 _CHECK_IO(SafeWrite(v,write,up,&nlocalvarinfos,sizeof(nlocalvarinfos)));
312 _CHECK_IO(SafeWrite(v,write,up,&nlineinfos,sizeof(nlineinfos)));
313 _CHECK_IO(SafeWrite(v,write,up,&ninstructions,sizeof(ninstructions)));
314 _CHECK_IO(SafeWrite(v,write,up,&nfunctions,sizeof(nfunctions)));
315 _CHECK_IO(WriteTag(v,write,up,SQ_CLOSURESTREAM_PART));
316 for(i=0;i<nliterals;i++){
317 _CHECK_IO(WriteObject(v,up,write,_literals[i]));
320 _CHECK_IO(WriteTag(v,write,up,SQ_CLOSURESTREAM_PART));
321 for(i=0;i<nparameters;i++){
322 _CHECK_IO(WriteObject(v,up,write,_parameters[i]));
325 _CHECK_IO(WriteTag(v,write,up,SQ_CLOSURESTREAM_PART));
326 for(i=0;i<noutervalues;i++){
327 _CHECK_IO(SafeWrite(v,write,up,&_outervalues[i]._type,sizeof(SQUnsignedInteger)));
328 _CHECK_IO(WriteObject(v,up,write,_outervalues[i]._src));
329 _CHECK_IO(WriteObject(v,up,write,_outervalues[i]._name));
332 _CHECK_IO(WriteTag(v,write,up,SQ_CLOSURESTREAM_PART));
333 for(i=0;i<nlocalvarinfos;i++){
334 SQLocalVarInfo &lvi=_localvarinfos[i];
335 _CHECK_IO(WriteObject(v,up,write,lvi._name));
336 _CHECK_IO(SafeWrite(v,write,up,&lvi._pos,sizeof(SQUnsignedInteger)));
337 _CHECK_IO(SafeWrite(v,write,up,&lvi._start_op,sizeof(SQUnsignedInteger)));
338 _CHECK_IO(SafeWrite(v,write,up,&lvi._end_op,sizeof(SQUnsignedInteger)));
341 _CHECK_IO(WriteTag(v,write,up,SQ_CLOSURESTREAM_PART));
342 _CHECK_IO(SafeWrite(v,write,up,_lineinfos,sizeof(SQLineInfo)*nlineinfos));
344 _CHECK_IO(WriteTag(v,write,up,SQ_CLOSURESTREAM_PART));
345 _CHECK_IO(SafeWrite(v,write,up,_instructions,sizeof(SQInstruction)*ninstructions));
347 _CHECK_IO(WriteTag(v,write,up,SQ_CLOSURESTREAM_PART));
348 for(i=0;i<nfunctions;i++){
349 _CHECK_IO(_funcproto(_functions[i])->Save(v,up,write));
351 _CHECK_IO(SafeWrite(v,write,up,&_stacksize,sizeof(_stacksize)));
352 _CHECK_IO(SafeWrite(v,write,up,&_bgenerator,sizeof(_bgenerator)));
353 _CHECK_IO(SafeWrite(v,write,up,&_varparams,sizeof(_varparams)));
357 bool SQFunctionProto::Load(SQVM *v,SQUserPointer up,SQREADFUNC read,SQObjectPtr &ret)
359 SQInteger i, nliterals,nparameters;
360 SQInteger noutervalues ,nlocalvarinfos ;
361 SQInteger nlineinfos,ninstructions ,nfunctions ;
362 SQObjectPtr sourcename, name;
364 _CHECK_IO(CheckTag(v,read,up,SQ_CLOSURESTREAM_PART));
365 _CHECK_IO(ReadObject(v, up, read, sourcename));
366 _CHECK_IO(ReadObject(v, up, read, name));
368 _CHECK_IO(CheckTag(v,read,up,SQ_CLOSURESTREAM_PART));
369 _CHECK_IO(SafeRead(v,read,up, &nliterals, sizeof(nliterals)));
370 _CHECK_IO(SafeRead(v,read,up, &nparameters, sizeof(nparameters)));
371 _CHECK_IO(SafeRead(v,read,up, &noutervalues, sizeof(noutervalues)));
372 _CHECK_IO(SafeRead(v,read,up, &nlocalvarinfos, sizeof(nlocalvarinfos)));
373 _CHECK_IO(SafeRead(v,read,up, &nlineinfos, sizeof(nlineinfos)));
374 _CHECK_IO(SafeRead(v,read,up, &ninstructions, sizeof(ninstructions)));
375 _CHECK_IO(SafeRead(v,read,up, &nfunctions, sizeof(nfunctions)));
377 SQFunctionProto *f = SQFunctionProto::Create(ninstructions,nliterals,nparameters,nfunctions,noutervalues,nlineinfos,nlocalvarinfos);
378 SQObjectPtr proto = f; //gets a ref in case of failure
379 f->_sourcename = sourcename;
382 _CHECK_IO(CheckTag(v,read,up,SQ_CLOSURESTREAM_PART));
384 for(i = 0;i < nliterals; i++){
385 _CHECK_IO(ReadObject(v, up, read, o));
388 _CHECK_IO(CheckTag(v,read,up,SQ_CLOSURESTREAM_PART));
390 for(i = 0; i < nparameters; i++){
391 _CHECK_IO(ReadObject(v, up, read, o));
392 f->_parameters[i] = o;
394 _CHECK_IO(CheckTag(v,read,up,SQ_CLOSURESTREAM_PART));
396 for(i = 0; i < noutervalues; i++){
397 SQUnsignedInteger type;
399 _CHECK_IO(SafeRead(v,read,up, &type, sizeof(SQUnsignedInteger)));
400 _CHECK_IO(ReadObject(v, up, read, o));
401 _CHECK_IO(ReadObject(v, up, read, name));
402 f->_outervalues[i] = SQOuterVar(name,o, (SQOuterType)type);
404 _CHECK_IO(CheckTag(v,read,up,SQ_CLOSURESTREAM_PART));
406 for(i = 0; i < nlocalvarinfos; i++){
408 _CHECK_IO(ReadObject(v, up, read, lvi._name));
409 _CHECK_IO(SafeRead(v,read,up, &lvi._pos, sizeof(SQUnsignedInteger)));
410 _CHECK_IO(SafeRead(v,read,up, &lvi._start_op, sizeof(SQUnsignedInteger)));
411 _CHECK_IO(SafeRead(v,read,up, &lvi._end_op, sizeof(SQUnsignedInteger)));
412 f->_localvarinfos[i] = lvi;
414 _CHECK_IO(CheckTag(v,read,up,SQ_CLOSURESTREAM_PART));
415 _CHECK_IO(SafeRead(v,read,up, f->_lineinfos, sizeof(SQLineInfo)*nlineinfos));
417 _CHECK_IO(CheckTag(v,read,up,SQ_CLOSURESTREAM_PART));
418 _CHECK_IO(SafeRead(v,read,up, f->_instructions, sizeof(SQInstruction)*ninstructions));
420 _CHECK_IO(CheckTag(v,read,up,SQ_CLOSURESTREAM_PART));
421 for(i = 0; i < nfunctions; i++){
422 _CHECK_IO(_funcproto(o)->Load(v, up, read, o));
423 f->_functions[i] = o;
425 _CHECK_IO(SafeRead(v,read,up, &f->_stacksize, sizeof(f->_stacksize)));
426 _CHECK_IO(SafeRead(v,read,up, &f->_bgenerator, sizeof(f->_bgenerator)));
427 _CHECK_IO(SafeRead(v,read,up, &f->_varparams, sizeof(f->_varparams)));
432 #ifndef NO_GARBAGE_COLLECTOR
434 #define START_MARK() if(!(_uiRef&MARK_FLAG)){ \
437 #define END_MARK() RemoveFromChain(&_sharedstate->_gc_chain, this); \
438 AddToChain(chain, this); }
440 void SQVM::Mark(SQCollectable **chain)
443 SQSharedState::MarkObject(_lasterror,chain);
444 SQSharedState::MarkObject(_errorhandler,chain);
445 SQSharedState::MarkObject(_debughook,chain);
446 SQSharedState::MarkObject(_roottable, chain);
447 SQSharedState::MarkObject(temp_reg, chain);
448 for(SQUnsignedInteger i = 0; i < _stack.size(); i++) SQSharedState::MarkObject(_stack[i], chain);
449 for(SQUnsignedInteger j = 0; j < _vargsstack.size(); j++) SQSharedState::MarkObject(_vargsstack[j], chain);
453 void SQArray::Mark(SQCollectable **chain)
456 SQInteger len = _values.size();
457 for(SQInteger i = 0;i < len; i++) SQSharedState::MarkObject(_values[i], chain);
460 void SQTable::Mark(SQCollectable **chain)
463 if(_delegate) _delegate->Mark(chain);
464 SQInteger len = _numofnodes;
465 for(SQInteger i = 0; i < len; i++){
466 SQSharedState::MarkObject(_nodes[i].key, chain);
467 SQSharedState::MarkObject(_nodes[i].val, chain);
472 void SQClass::Mark(SQCollectable **chain)
475 _members->Mark(chain);
476 if(_base) _base->Mark(chain);
477 SQSharedState::MarkObject(_attributes, chain);
478 for(SQUnsignedInteger i =0; i< _defaultvalues.size(); i++) {
479 SQSharedState::MarkObject(_defaultvalues[i].val, chain);
480 SQSharedState::MarkObject(_defaultvalues[i].attrs, chain);
482 for(SQUnsignedInteger j =0; j< _methods.size(); j++) {
483 SQSharedState::MarkObject(_methods[j].val, chain);
484 SQSharedState::MarkObject(_methods[j].attrs, chain);
486 for(SQUnsignedInteger k =0; k< _metamethods.size(); k++) {
487 SQSharedState::MarkObject(_metamethods[k], chain);
492 void SQInstance::Mark(SQCollectable **chain)
496 SQUnsignedInteger nvalues = _class->_defaultvalues.size();
497 for(SQUnsignedInteger i =0; i< nvalues; i++) {
498 SQSharedState::MarkObject(_values[i], chain);
503 void SQGenerator::Mark(SQCollectable **chain)
506 for(SQUnsignedInteger i = 0; i < _stack.size(); i++) SQSharedState::MarkObject(_stack[i], chain);
507 for(SQUnsignedInteger j = 0; j < _vargsstack.size(); j++) SQSharedState::MarkObject(_vargsstack[j], chain);
508 SQSharedState::MarkObject(_closure, chain);
512 void SQClosure::Mark(SQCollectable **chain)
515 for(SQUnsignedInteger i = 0; i < _outervalues.size(); i++) SQSharedState::MarkObject(_outervalues[i], chain);
519 void SQNativeClosure::Mark(SQCollectable **chain)
522 for(SQUnsignedInteger i = 0; i < _outervalues.size(); i++) SQSharedState::MarkObject(_outervalues[i], chain);
526 void SQUserData::Mark(SQCollectable **chain){
528 if(_delegate) _delegate->Mark(chain);
532 void SQCollectable::UnMark() { _uiRef&=~MARK_FLAG; }