Mercurial > hg > octave-lyh
diff liboctave/idx-vector.cc @ 5275:23b37da9fd5b
[project @ 2005-04-08 16:07:35 by jwe]
author | jwe |
---|---|
date | Fri, 08 Apr 2005 16:07:37 +0000 |
parents | 10004c9625c3 |
children | 4c8a2e4e0717 |
line wrap: on
line diff
--- a/liboctave/idx-vector.cc +++ b/liboctave/idx-vector.cc @@ -49,16 +49,16 @@ { if (len > 0) { - data = new int [len]; - for (int i = 0; i < len; i++) + data = new octave_idx_type [len]; + for (octave_idx_type i = 0; i < len; i++) data[i] = a.data[i]; } } -int +octave_idx_type IDX_VEC_REP::tree_to_mat_idx (double x, bool& conversion_error) { - int retval = -1; + octave_idx_type retval = -1; conversion_error = false; @@ -70,7 +70,7 @@ conversion_error = true; } else - retval = static_cast<int> (x - 1); + retval = static_cast<octave_idx_type> (x - 1); return retval; } @@ -107,11 +107,11 @@ } else { - data = new int [len]; + data = new octave_idx_type [len]; bool conversion_error = false; - for (int i = 0; i < len; i++) + for (octave_idx_type i = 0; i < len; i++) { double d = v.elem (i); @@ -142,12 +142,12 @@ } else { - int k = 0; - data = new int [len]; + octave_idx_type k = 0; + data = new octave_idx_type [len]; bool conversion_error = false; - for (int i = 0; i < len; i++) + for (octave_idx_type i = 0; i < len; i++) { double d = nda.elem (i); @@ -185,11 +185,11 @@ double b = r.base (); double step = r.inc (); - data = new int [len]; + data = new octave_idx_type [len]; bool conversion_error = false; - for (int i = 0; i < len; i++) + for (octave_idx_type i = 0; i < len; i++) { double val = b + i * step; @@ -216,7 +216,7 @@ return; else { - data = new int [len]; + data = new octave_idx_type [len]; bool conversion_error = false; @@ -229,14 +229,14 @@ init_state (); } -IDX_VEC_REP::idx_vector_rep (int i) +IDX_VEC_REP::idx_vector_rep (octave_idx_type i) : data (0), len (1), num_zeros (0), num_ones (0), max_val (0), min_val (0), count (1), frozen_at_z_len (0), frozen_len (0), colon (0), one_zero (0), initialized (0), frozen (0), colon_equiv_checked (0), colon_equiv (0), orig_dims (1, 1) { - data = new int [len]; + data = new octave_idx_type [len]; data[0] = tree_to_mat_idx (i); @@ -262,7 +262,7 @@ frozen (0), colon_equiv_checked (0), colon_equiv (0), orig_dims (1, 1) { - data = new int [len]; + data = new octave_idx_type [len]; data[0] = tree_to_mat_idx (b); @@ -283,10 +283,10 @@ } else { - int k = 0; - data = new int [len]; + octave_idx_type k = 0; + data = new octave_idx_type [len]; - for (int i = 0; i < len; i++) + for (octave_idx_type i = 0; i < len; i++) data[k++] = tree_to_mat_idx (bnda.elem (i)); } @@ -300,8 +300,8 @@ { delete [] data; len = a.len; - data = new int [len]; - for (int i = 0; i < len; i++) + data = new octave_idx_type [len]; + for (octave_idx_type i = 0; i < len; i++) data[i] = a.data[i]; num_zeros = a.num_zeros; @@ -337,7 +337,7 @@ { min_val = max_val = data[0]; - int i = 0; + octave_idx_type i = 0; do { if (data[i] == -1) @@ -358,7 +358,7 @@ } void -IDX_VEC_REP::maybe_convert_one_zero_to_idx (int z_len) +IDX_VEC_REP::maybe_convert_one_zero_to_idx (octave_idx_type z_len) { if (one_zero && (z_len == len || z_len == 0)) { @@ -374,9 +374,9 @@ { assert (num_ones + num_zeros == len); - int *new_data = new int [num_ones]; - int k = 0; - for (int i = 0; i < len; i++) + octave_idx_type *new_data = new octave_idx_type [num_ones]; + octave_idx_type k = 0; + for (octave_idx_type i = 0; i < len; i++) if (data[i] == 0) new_data[k++] = i; @@ -386,7 +386,7 @@ min_val = max_val = data[0]; - int i = 0; + octave_idx_type i = 0; do { if (data[i] > max_val) @@ -400,8 +400,8 @@ } } -int -IDX_VEC_REP::checkelem (int n) const +octave_idx_type +IDX_VEC_REP::checkelem (octave_idx_type n) const { if (n < 0 || n >= len) { @@ -415,23 +415,23 @@ static inline int intcmp (const void *ii, const void *jj) { - return (*(static_cast<const int *> (ii)) - *(static_cast<const int *> (jj))); + return (*(static_cast<const octave_idx_type *> (ii)) - *(static_cast<const octave_idx_type *> (jj))); } static inline void -sort_data (int *d, int l) +sort_data (octave_idx_type *d, octave_idx_type l) { - qsort (d, l, sizeof (int), intcmp); + qsort (d, l, sizeof (octave_idx_type), intcmp); } -static inline int -make_uniq (int *d, int l) +static inline octave_idx_type +make_uniq (octave_idx_type *d, octave_idx_type l) { if (l < 2) return l; - int k = 0; - for (int ii = 1; ii < l; ii++) + octave_idx_type k = 0; + for (octave_idx_type ii = 1; ii < l; ii++) { if (d[ii] != d[k]) { @@ -442,19 +442,19 @@ return k+1; } -static inline int * -copy_data (const int *d, int l) +static inline octave_idx_type * +copy_data (const octave_idx_type *d, octave_idx_type l) { - int *new_data = new int [l]; + octave_idx_type *new_data = new octave_idx_type [l]; - for (int ii = 0; ii < l; ii++) + for (octave_idx_type ii = 0; ii < l; ii++) new_data[ii] = d[ii]; return new_data; } int -IDX_VEC_REP::is_colon_equiv (int n, int sort_uniq) +IDX_VEC_REP::is_colon_equiv (octave_idx_type n, int sort_uniq) { if (! colon_equiv_checked) { @@ -462,7 +462,7 @@ { colon_equiv = 1; } - else if (len > 1) + else if (static_cast<octave_idx_type> (len) > 1) { if (one_zero) { @@ -470,11 +470,11 @@ } else if (sort_uniq) { - int *tmp_data = copy_data (data, len); + octave_idx_type *tmp_data = copy_data (data, len); sort_data (tmp_data, len); - int tmp_len = make_uniq (tmp_data, len); + octave_idx_type tmp_len = make_uniq (tmp_data, len); colon_equiv = (tmp_len == n && tmp_data[0] == 0 @@ -488,7 +488,7 @@ { colon_equiv = 1; - for (int ii = 0; ii < n; ii++) + for (octave_idx_type ii = 0; ii < n; ii++) if (data[ii] != ii) { colon_equiv = 0; @@ -519,7 +519,7 @@ } void -IDX_VEC_REP::shorten (int n) +IDX_VEC_REP::shorten (octave_idx_type n) { if (n > 0 && n <= len) len = n; @@ -531,13 +531,13 @@ std::ostream& IDX_VEC_REP::print (std::ostream& os) const { - for (int ii = 0; ii < len; ii++) + for (octave_idx_type ii = 0; ii < len; ii++) os << data[ii] << "\n"; return os; } -int -IDX_VEC_REP::freeze (int z_len, const char *tag, bool resize_ok, +octave_idx_type +IDX_VEC_REP::freeze (octave_idx_type z_len, const char *tag, bool resize_ok, bool warn_resize) { if (frozen)