src/core/array.cpp

   1
   2 #include "pcheader.hpp"
   3 #include "utils.hpp"
   4 #include "object.hpp"
   5 #include "vm.hpp"
   6 #include "state.hpp"
   7
   8 VXArrayObj::VXArrayObj(VXSharedState *ss,VXInteger nsize)
   9 {
  10     _values.resize(nsize);
  11     INIT_CHAIN();
  12     ADD_TO_CHAIN(&_ss(this)->_gc_chain,this);
  13 }
  14
  15 VXArrayObj::~VXArrayObj()
  16 {
  17     REMOVE_FROM_CHAIN(&_ss(this)->_gc_chain,this);
  18 }
  19
  20 VXArrayObj* VXArrayObj::Create(VXSharedState *ss,VXInteger nInitialSize)
  21 {
  22     VXArrayObj *newarray = (VXArrayObj*)VX_MALLOC(sizeof(VXArrayObj));
  23     new (newarray) VXArrayObj(ss,nInitialSize);
  24     return newarray;
  25 }
  26
  27 void VXArrayObj::Mark(VXCollectable **chain)
  28 {
  29     START_MARK()
  30         VXInteger len = _values.size();
  31     for(VXInteger i = 0;i < len; i++)
  32     {
  33         VXSharedState::MarkObject(_values[i], chain);
  34     }
  35     END_MARK()
  36 }
  37
  38 VXOType VXArrayObj::GetType()
  39 {
  40     return VX_OT_ARRAY;
  41 }
  42
  43 void VXArrayObj::Finalize()
  44 {
  45     _values.resize(0);
  46 }
  47 bool VXArrayObj::Get(const VXInteger nidx,VXObject &val)
  48 {
  49     if(nidx>=0 && nidx<(VXInteger)_values.size())
  50     {
  51         VXObject &o = _values[nidx];
  52         val = VX_REALVAL(o);
  53         return true;
  54     }
  55     return false;
  56 }
  57
  58 bool VXArrayObj::Set(const VXInteger nidx,const VXObject &val)
  59 {
  60     if(nidx>=0 && nidx < (VXInteger)_values.size())
  61     {
  62         _values[nidx] = val;
  63         return true;
  64     }
  65     else
  66     {
  67         VXObject fill;
  68         Resize(nidx + 1, fill);
  69         return Set(nidx, val);
  70     }
  71     return false;
  72 }
  73
  74 VXInteger VXArrayObj::Next(const VXObject &refpos, VXObject &outkey, VXObject &outval)
  75 {
  76     VXUnsignedInteger idx=TranslateIndex(refpos);
  77     while(idx < _values.size())
  78     {
  79         //first found
  80         outkey=(VXInteger)idx;
  81         VXObject &o = _values[idx];
  82         outval = VX_REALVAL(o);
  83         //return idx for the next iteration
  84         return ++idx;
  85     }
  86     //nothing to iterate anymore
  87     return -1;
  88 }
  89
  90 VXArrayObj* VXArrayObj::Clone()
  91 {
  92     VXArrayObj *anew=Create(_opt_ss(this),0);
  93     anew->_values.copy(_values);
  94     return anew;
  95 }
  96
  97 VXInteger VXArrayObj::Size() const
  98 {
  99     return _values.size();
 100 }
 101
 102 void VXArrayObj::Resize(VXInteger size)
 103 {
 104     VXObject _null;
 105     Resize(size,_null);
 106 }
 107
 108 void VXArrayObj::Resize(VXInteger size,VXObject &fill)
 109 {
 110     _values.resize(size,fill);
 111     ShrinkIfNeeded();
 112 }
 113
 114 void VXArrayObj::Reserve(VXInteger size)
 115 {
 116     _values.reserve(size);
 117 }
 118
 119 void VXArrayObj::Append(const VXObject &o)
 120 {
 121     _values.push_back(o);
 122 }
 123
 124 void VXArrayObj::Extend(const VXArrayObj *a)
 125 {
 126     VXInteger xlen;
 127     if((xlen=a->Size()))
 128         for(VXInteger i=0;i<xlen;i++)
 129             Append(a->_values[i]);
 130 }
 131
 132
 133 VXObject& VXArrayObj::Top()
 134 {
 135     return _values.top();
 136 }
 137
 138 void VXArrayObj::Pop()
 139 {
 140     _values.pop_back();
 141     ShrinkIfNeeded();
 142 }
 143
 144 bool VXArrayObj::Insert(VXInteger idx,const VXRawObj &val)
 145 {
 146     if(idx < 0 || idx > (VXInteger)_values.size())
 147     {
 148         return false;
 149     }
 150     _values.insert(idx,val);
 151     return true;
 152 }
 153
 154 void VXArrayObj::ShrinkIfNeeded()
 155 {
 156                             //shrink the array
 157     if(_values.size() <= _values.capacity()>>2)
 158     {
 159         _values.shrinktofit();
 160     }
 161 }
 162
 163 bool VXArrayObj::Remove(VXInteger idx)
 164 {
 165     if(idx < 0 || idx >= (VXInteger)_values.size())
 166     {
 167         return false;
 168     }
 169     _values.remove(idx);
 170     ShrinkIfNeeded();
 171     return true;
 172 }
 173
 174 void VXArrayObj::Release()
 175 {
 176     vox_delete(this,VXArrayObj);
 177 }