Mercurial > hg > octave-nkf
diff src/oct-obj.cc @ 4591:2c9de1be042a
[project @ 2003-11-11 00:23:35 by jwe]
author | jwe |
---|---|
date | Tue, 11 Nov 2003 00:23:35 +0000 |
parents | e613ffa9f0e6 |
children | e35b034d3523 |
line wrap: on
line diff
--- a/src/oct-obj.cc +++ b/src/oct-obj.cc @@ -37,15 +37,31 @@ bool octave_value_list::valid_scalar_indices (void) const { - int n = data.length (); + int n = length (); for (int i = 0; i < n; i++) - if (! data(i).valid_as_scalar_index ()) + if (! data[i].valid_as_scalar_index ()) return false; return true; } +void +octave_value_list::resize (int n, const octave_value& val) +{ + int len = length (); + + if (n > len) + { + data.resize (n); + + for (int i = len; i < n; i++) + data[i] = val; + } + else if (n < len) + data.resize (n); +} + octave_value_list& octave_value_list::prepend (const octave_value& val) { @@ -148,22 +164,6 @@ return retval; } -octave_value_list -octave_value_list::index (idx_vector& i, int resize_ok) const -{ - return octave_value_list (data.index (i, resize_ok, octave_value ())); -} - -octave_value_list& -octave_value_list::assign (const idx_vector& i, - const octave_value_list& rhs, - const octave_value& fill_val) -{ - data.set_index (i); - ::assign (data, rhs.data, fill_val); - return *this; -} - bool octave_value_list::all_strings_p (void) const {