1 /* see copyright notice in squirrel.h */
\r
5 struct SQArray : public CHAINABLE_OBJ
\r
8 SQArray(SQSharedState *ss,SQInteger nsize){_values.resize(nsize); INIT_CHAIN();ADD_TO_CHAIN(&_ss(this)->_gc_chain,this);}
\r
11 REMOVE_FROM_CHAIN(&_ss(this)->_gc_chain,this);
\r
14 static SQArray* Create(SQSharedState *ss,SQInteger nInitialSize){
\r
15 SQArray *newarray=(SQArray*)SQ_MALLOC(sizeof(SQArray));
\r
16 new (newarray) SQArray(ss,nInitialSize);
\r
19 #ifndef NO_GARBAGE_COLLECTOR
\r
20 void Mark(SQCollectable **chain);
\r
21 SQObjectType GetType() {return OT_ARRAY;}
\r
26 bool Get(const SQInteger nidx,SQObjectPtr &val)
\r
28 if(nidx>=0 && nidx<(SQInteger)_values.size()){
\r
29 SQObjectPtr &o = _values[nidx];
\r
35 bool Set(const SQInteger nidx,const SQObjectPtr &val)
\r
37 if(nidx>=0 && nidx<(SQInteger)_values.size()){
\r
43 SQInteger Next(const SQObjectPtr &refpos,SQObjectPtr &outkey,SQObjectPtr &outval)
\r
45 SQUnsignedInteger idx=TranslateIndex(refpos);
\r
46 while(idx<_values.size()){
\r
48 outkey=(SQInteger)idx;
\r
49 SQObjectPtr &o = _values[idx];
\r
50 outval = _realval(o);
\r
51 //return idx for the next iteration
\r
54 //nothing to iterate anymore
\r
57 SQArray *Clone(){SQArray *anew=Create(_opt_ss(this),0); anew->_values.copy(_values); return anew; }
\r
58 SQInteger Size() const {return _values.size();}
\r
59 void Resize(SQInteger size)
\r
64 void Resize(SQInteger size,SQObjectPtr &fill) { _values.resize(size,fill); ShrinkIfNeeded(); }
\r
65 void Reserve(SQInteger size) { _values.reserve(size); }
\r
66 void Append(const SQObject &o){_values.push_back(o);}
\r
67 void Extend(const SQArray *a);
\r
68 SQObjectPtr &Top(){return _values.top();}
\r
69 void Pop(){_values.pop_back(); ShrinkIfNeeded(); }
\r
70 bool Insert(SQInteger idx,const SQObject &val){
\r
71 if(idx < 0 || idx > (SQInteger)_values.size())
\r
73 _values.insert(idx,val);
\r
76 void ShrinkIfNeeded() {
\r
77 if(_values.size() <= _values.capacity()>>2) //shrink the array
\r
78 _values.shrinktofit();
\r
80 bool Remove(SQInteger idx){
\r
81 if(idx < 0 || idx >= (SQInteger)_values.size())
\r
83 _values.remove(idx);
\r
89 sq_delete(this,SQArray);
\r
92 SQObjectPtrVec _values;
\r
94 #endif //_SQARRAY_H_
\r