Mercurial > hg > octave-nkf
changeset 2381:81298641458d
[project @ 1996-10-12 17:41:42 by jwe]
author | jwe |
---|---|
date | Sat, 12 Oct 1996 17:41:42 +0000 |
parents | e807c025bfe8 |
children | 58e5955495d7 |
files | liboctave/Array-idx.h |
diffstat | 1 files changed, 14 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/liboctave/Array-idx.h +++ b/liboctave/Array-idx.h @@ -63,6 +63,19 @@ idx_vector *tmp = get_idx (); idx_vector idx = tmp[0]; + retval = index (idx); + + clear_index (); + + return retval; +} + +template <class T> +Array<T> +Array<T>::index (idx_vector& idx) const +{ + Array<T> retval; + int len = length (); int n = idx.freeze (len, "vector", liboctave_pzo_flag); @@ -94,10 +107,9 @@ } } } + // idx_vector::freeze() printed an error message for us. - clear_index (); - return retval; }