Mercurial > hg > octave-nkf
diff liboctave/Sparse.cc @ 10142:829e69ec3110
make OCTAVE_QUIT a function
| author | Jaroslav Hajek <highegg@gmail.com> |
|---|---|
| date | Wed, 20 Jan 2010 10:38:00 +0100 |
| parents | c6edba80dfae |
| children | 4c0cdbe0acca |
line wrap: on
line diff
--- a/liboctave/Sparse.cc +++ b/liboctave/Sparse.cc @@ -345,7 +345,7 @@ sidx[i] = &sidxX[i]; octave_idx_type actual_nzmx = 0; - OCTAVE_QUIT; + octave_quit (); for (octave_idx_type i = 0; i < max_nzmx; i++) { octave_idx_type rowidx = (ri_scalar ? r(0) : r(i)); @@ -376,12 +376,12 @@ rep = new typename Sparse<T>::SparseRep (nr, nc); else { - OCTAVE_QUIT; + octave_quit (); octave_sort<octave_sparse_sort_idxl *> lsort (octave_sparse_sidxl_comp); lsort.sort (sidx, actual_nzmx); - OCTAVE_QUIT; + octave_quit (); // Now count the unique non-zero values octave_idx_type real_nzmx = 1; @@ -398,7 +398,7 @@ xcidx (0) = 0; for (octave_idx_type i = 0; i < actual_nzmx; i++) { - OCTAVE_QUIT; + octave_quit (); octave_idx_type iidx = sidx[i]->idx; octave_idx_type rval = sidx[i]->r; octave_idx_type cval = sidx[i]->c; @@ -462,7 +462,7 @@ sidx[i] = &sidxX[i]; octave_idx_type actual_nzmx = 0; - OCTAVE_QUIT; + octave_quit (); for (octave_idx_type i = 0; i < max_nzmx; i++) { @@ -494,12 +494,12 @@ rep = new typename Sparse<T>::SparseRep (nr, nc); else { - OCTAVE_QUIT; + octave_quit (); octave_sort<octave_sparse_sort_idxl *> lsort (octave_sparse_sidxl_comp); lsort.sort (sidx, actual_nzmx); - OCTAVE_QUIT; + octave_quit (); // Now count the unique non-zero values octave_idx_type real_nzmx = 1; @@ -516,7 +516,7 @@ xcidx (0) = 0; for (octave_idx_type i = 0; i < actual_nzmx; i++) { - OCTAVE_QUIT; + octave_quit (); octave_idx_type iidx = sidx[i]->idx; octave_idx_type rval = sidx[i]->r; octave_idx_type cval = sidx[i]->c; @@ -1003,7 +1003,7 @@ for (octave_idx_type i = c; i < c + a_cols; i++) { - OCTAVE_QUIT; + octave_quit (); for (octave_idx_type j = tmp.cidx(i); j < tmp.cidx(i+1); j++) if (tmp.ridx(j) < r) @@ -1012,7 +1012,7 @@ ridx(ii++) = tmp.ridx(j); } - OCTAVE_QUIT; + octave_quit (); for (octave_idx_type j = a.cidx(i-c); j < a.cidx(i-c+1); j++) { @@ -1020,7 +1020,7 @@ ridx(ii++) = r + a.ridx(j); } - OCTAVE_QUIT; + octave_quit (); for (octave_idx_type j = tmp.cidx(i); j < tmp.cidx(i+1); j++) if (tmp.ridx(j) >= r + a_rows) @@ -1183,7 +1183,7 @@ for (octave_idx_type i = 0; i < n; i++) { - OCTAVE_QUIT; + octave_quit (); if (i == idx_arg.elem (iidx)) { @@ -1212,7 +1212,7 @@ iidx = 0; for (octave_idx_type i = 0; i < n; i++) { - OCTAVE_QUIT; + octave_quit (); if (iidx < num_to_delete && i == idx_arg.elem (iidx)) iidx++; @@ -1236,7 +1236,7 @@ cidx(0) = 0; for (octave_idx_type i = 0; i < new_n; i++) { - OCTAVE_QUIT; + octave_quit (); if (ridx(ii) == i) ridx(ii++) = 0; cidx(i+1) = ii; @@ -1326,7 +1326,7 @@ for (octave_idx_type j = 0; j < nc; j++) { - OCTAVE_QUIT; + octave_quit (); if (j == idx_j.elem (iidx)) { @@ -1352,7 +1352,7 @@ cidx(0) = 0; for (octave_idx_type j = 0; j < nc; j++) { - OCTAVE_QUIT; + octave_quit (); if (iidx < num_to_delete && j == idx_j.elem (iidx)) iidx++; @@ -1401,7 +1401,7 @@ for (octave_idx_type i = 0; i < nr; i++) { - OCTAVE_QUIT; + octave_quit (); if (i == idx_i.elem (iidx)) { @@ -1431,7 +1431,7 @@ iidx = 0; for (octave_idx_type j = tmp.cidx(i); j < tmp.cidx(i+1); j++) { - OCTAVE_QUIT; + octave_quit (); octave_idx_type ri = tmp.ridx(j); @@ -1536,7 +1536,7 @@ for (octave_idx_type i = 0; i < nc; i++) for (octave_idx_type j = cidx(i); j < cidx(i+1); j++) { - OCTAVE_QUIT; + octave_quit (); retval.xdata(j) = data(j); retval.xridx(j) = ridx(j) + i * nr; } @@ -1578,7 +1578,7 @@ octave_idx_type ii = idx_arg.elem (i); if (ii == 0) { - OCTAVE_QUIT; + octave_quit (); retval.xdata(ic) = el; retval.xridx(ic++) = i % new_nr; } @@ -1592,7 +1592,7 @@ for (octave_idx_type i = 0; i < nz; i++) { - OCTAVE_QUIT; + octave_quit (); retval.xdata(i) = el; retval.xridx(i) = i; } @@ -1625,7 +1625,7 @@ if (nr == 1) for (octave_idx_type i = 0; i < n; i++) { - OCTAVE_QUIT; + octave_quit (); octave_idx_type ii = idx_arg.elem (i); if (ii < len) @@ -1639,7 +1639,7 @@ if (ii < len) for (octave_idx_type j = 0; j < nz; j++) { - OCTAVE_QUIT; + octave_quit (); if (ridx(j) == ii) new_nzmx++; @@ -1657,7 +1657,7 @@ retval.xcidx(0) = 0; for (octave_idx_type i = 0; i < n; i++) { - OCTAVE_QUIT; + octave_quit (); octave_idx_type ii = idx_arg.elem (i); if (ii < len) @@ -1681,7 +1681,7 @@ if (ii < len) for (octave_idx_type j = 0; j < nz; j++) { - OCTAVE_QUIT; + octave_quit (); if (ridx(j) == ii) { @@ -1717,7 +1717,7 @@ retval.xcidx(0) = 0; for (octave_idx_type i = 0; i < n; i++) { - OCTAVE_QUIT; + octave_quit (); octave_idx_type ii = idx_arg.elem (i); if (ii < len) @@ -1739,7 +1739,7 @@ if (ii < len) for (octave_idx_type j = 0; j < nz; j++) { - OCTAVE_QUIT; + octave_quit (); if (ridx(j) == ii) { @@ -1781,7 +1781,7 @@ { for (octave_idx_type i = 0; i < result_nr; i++) { - OCTAVE_QUIT; + octave_quit (); octave_idx_type ii = idx_arg.elem (kk++); if (ii < orig_len) @@ -1808,7 +1808,7 @@ { for (octave_idx_type i = 0; i < result_nr; i++) { - OCTAVE_QUIT; + octave_quit (); octave_idx_type ii = idx_arg.elem (kk++); if (ii < orig_len) @@ -1936,7 +1936,7 @@ octave_idx_type jj = idx_j.elem (j); for (octave_idx_type i = cidx(jj); i < cidx(jj+1); i++) { - OCTAVE_QUIT; + octave_quit (); octave_idx_type ii = itmp [ridx(i)]; if (ii >= 0) @@ -1988,7 +1988,7 @@ for (octave_idx_type i = cidx(jj); i < cidx(jj+1); i++) { - OCTAVE_QUIT; + octave_quit (); octave_idx_type ii = start_nodes [ridx(i)]; @@ -2024,7 +2024,7 @@ for (octave_idx_type i = cidx(jj); i < cidx(jj+1); i++) { - OCTAVE_QUIT; + octave_quit (); octave_idx_type ii = start_nodes [ridx(i)]; @@ -2489,7 +2489,7 @@ sidx[i]->idx = i; } - OCTAVE_QUIT; + octave_quit (); octave_sort<octave_idx_vector_sort *> sort (octave_idx_vector_comp); @@ -2512,7 +2512,7 @@ // First count the number of non-zero elements for (octave_idx_type i = 0; i < n; i++) { - OCTAVE_QUIT; + octave_quit (); octave_idx_type ii = lhs_idx.elem (i); if (i < n - 1 && lhs_idx.elem (i + 1) == ii) @@ -2648,7 +2648,7 @@ new_nzmx += n; for (octave_idx_type i = 0; i < n; i++) { - OCTAVE_QUIT; + octave_quit (); octave_idx_type ii = lhs_idx.elem (i); if (ii < lhs_len && c_lhs.elem(ii) != LT ()) @@ -2773,7 +2773,7 @@ for (octave_idx_type i = 0; i < rhs.cols(); i++) for (octave_idx_type j = rhs.cidx(i); j < rhs.cidx(i+1); j++) { - OCTAVE_QUIT; + octave_quit (); for (octave_idx_type k = jj; k <= i * rhs.rows() + rhs.ridx(j); k++) tmp.cidx(jj++) = ii; @@ -2889,7 +2889,7 @@ { for (octave_idx_type i = 0; i < n; i++) { - OCTAVE_QUIT; + octave_quit (); octave_idx_type ii = idx_i.elem (i); @@ -3046,7 +3046,7 @@ sidx[i]->idx = i; } - OCTAVE_QUIT; + octave_quit (); octave_sort<octave_idx_vector_sort *> sort (octave_idx_vector_comp); @@ -3085,7 +3085,7 @@ sidx[i]->idx = i; } - OCTAVE_QUIT; + octave_quit (); octave_sort<octave_idx_vector_sort *> sort (octave_idx_vector_comp); @@ -3304,7 +3304,7 @@ sidx[i]->idx = i; } - OCTAVE_QUIT; + octave_quit (); octave_sort<octave_idx_vector_sort *> sort (octave_idx_vector_comp); @@ -3327,7 +3327,7 @@ // First count the number of non-zero elements for (octave_idx_type i = 0; i < len; i++) { - OCTAVE_QUIT; + octave_quit (); octave_idx_type ii = idx_i.elem (i); if (i < len - 1 && idx_i.elem (i + 1) == ii) @@ -3426,7 +3426,7 @@ new_nzmx += len; for (octave_idx_type i = 0; i < len; i++) { - OCTAVE_QUIT; + octave_quit (); octave_idx_type ii = idx_i.elem (i); if (ii < lhs_len && c_lhs.elem(ii) != LT ()) new_nzmx--;