# HG changeset patch # User Rik # Date 1343319947 25200 # Node ID 560317fd5977cd1e473a7f053bc9ee3e3502ab39 # Parent ae3670d4df292e2bbbc245a3c5d5224bf0eef37b maint: Cuddle open bracket used for indexing C++ arrays in source code. * Array-util.cc, Array.cc, DASPK.cc, DASRT.cc, DASSL.cc, LSODE.cc, MatrixType.cc, Sparse.cc, Sparse.h, dim-vector.h, eigs-base.cc, idx-vector.cc, oct-alloc.cc, oct-locbuf.cc, oct-locbuf.h, oct-mem.h, oct-sort.cc, oct-time.cc, sparse-base-chol.cc, sparse-dmsolve.cc, ccolamd.cc, colamd.cc, spparms.cc, symbfact.cc, symrcm.cc, help.cc, ls-mat5.cc, pt-idx.cc, utils.cc, variables.cc, zfstream.cc: Cuddle open bracket used for indexing C++ arrays in source code. diff -r ae3670d4df29 -r 560317fd5977 liboctave/Array-util.cc --- a/liboctave/Array-util.cc Thu Jul 26 10:40:26 2012 -0500 +++ b/liboctave/Array-util.cc Thu Jul 26 09:25:47 2012 -0700 @@ -426,7 +426,7 @@ { int ial = ia.length (), rhdvl = rhdv.length (); dim_vector rdv = dim_vector::alloc (ial); - bool *scalar = new bool[ial], *colon = new bool[ial]; + bool *scalar = new bool [ial], *colon = new bool [ial]; // Mark scalars and colons, count non-scalar indices. int nonsc = 0; bool all_colons = true; diff -r ae3670d4df29 -r 560317fd5977 liboctave/Array.cc --- a/liboctave/Array.cc Thu Jul 26 10:40:26 2012 -0500 +++ b/liboctave/Array.cc Thu Jul 26 09:25:47 2012 -0700 @@ -649,7 +649,7 @@ int i = 0; for (; i < l-1 && ndv(i) == odv(i); i++) ld *= ndv(i); n = l - i; - cext = new octave_idx_type[3*n]; + cext = new octave_idx_type [3*n]; // Trick to avoid three allocations sext = cext + n; dext = sext + n; diff -r ae3670d4df29 -r 560317fd5977 liboctave/DASPK.cc --- a/liboctave/DASPK.cc Thu Jul 26 10:40:26 2012 -0500 +++ b/liboctave/DASPK.cc Thu Jul 26 09:25:47 2012 -0700 @@ -145,7 +145,7 @@ for (octave_idx_type j = 0; j < nn; j++) for (octave_idx_type i = 0; i < nn; i++) - pd [nn * j + i] = tmp_pd.elem (i, j); + pd[nn * j + i] = tmp_pd.elem (i, j); END_INTERRUPT_WITH_EXCEPTIONS; diff -r ae3670d4df29 -r 560317fd5977 liboctave/DASRT.cc --- a/liboctave/DASRT.cc Thu Jul 26 10:40:26 2012 -0500 +++ b/liboctave/DASRT.cc Thu Jul 26 09:25:47 2012 -0700 @@ -121,7 +121,7 @@ for (octave_idx_type j = 0; j < nn; j++) for (octave_idx_type i = 0; i < nn; i++) - pd [nn * j + i] = tmp_pd.elem (i, j); + pd[nn * j + i] = tmp_pd.elem (i, j); END_INTERRUPT_WITH_EXCEPTIONS; diff -r ae3670d4df29 -r 560317fd5977 liboctave/DASSL.cc --- a/liboctave/DASSL.cc Thu Jul 26 10:40:26 2012 -0500 +++ b/liboctave/DASSL.cc Thu Jul 26 09:25:47 2012 -0700 @@ -119,7 +119,7 @@ for (octave_idx_type j = 0; j < nn; j++) for (octave_idx_type i = 0; i < nn; i++) - pd [nn * j + i] = tmp_pd.elem (i, j); + pd[nn * j + i] = tmp_pd.elem (i, j); END_INTERRUPT_WITH_EXCEPTIONS; diff -r ae3670d4df29 -r 560317fd5977 liboctave/LSODE.cc --- a/liboctave/LSODE.cc Thu Jul 26 10:40:26 2012 -0500 +++ b/liboctave/LSODE.cc Thu Jul 26 09:25:47 2012 -0700 @@ -103,7 +103,7 @@ for (octave_idx_type j = 0; j < neq; j++) for (octave_idx_type i = 0; i < neq; i++) - pd [nrowpd * j + i] = tmp_jac (i, j); + pd[nrowpd * j + i] = tmp_jac (i, j); END_INTERRUPT_WITH_EXCEPTIONS; diff -r ae3670d4df29 -r 560317fd5977 liboctave/MatrixType.cc --- a/liboctave/MatrixType.cc Thu Jul 26 10:40:26 2012 -0500 +++ b/liboctave/MatrixType.cc Thu Jul 26 09:25:47 2012 -0700 @@ -51,7 +51,7 @@ { if (nperm != 0) { - perm = new octave_idx_type[nperm]; + perm = new octave_idx_type [nperm]; for (octave_idx_type i = 0; i < nperm; i++) perm[i] = a.perm[i]; } @@ -255,12 +255,12 @@ for (octave_idx_type j = i; j < nm; j++) { if ((a.cidx (j+1) > a.cidx (j) + 1) || - ((a.cidx (j+1) == a.cidx (j) + 1) && found [a.ridx (j)])) + ((a.cidx (j+1) == a.cidx (j) + 1) && found[a.ridx (j)])) { tmp_typ = MatrixType::Full; break; } - found [a.ridx (j)] = true; + found[a.ridx (j)] = true; } } typ = tmp_typ; @@ -348,7 +348,7 @@ bool found = false; nperm = ncols; - perm = new octave_idx_type[ncols]; + perm = new octave_idx_type [ncols]; for (octave_idx_type i = 0; i < ncols; i++) perm[i] = -1; @@ -387,7 +387,7 @@ { nperm = nrows; delete [] perm; - perm = new octave_idx_type[nrows]; + perm = new octave_idx_type [nrows]; OCTAVE_LOCAL_BUFFER (octave_idx_type, tmp, nrows); for (octave_idx_type i = 0; i < nrows; i++) @@ -398,7 +398,7 @@ for (octave_idx_type j = 0; j < ncols; j++) for (octave_idx_type i = a.cidx (j); i < a.cidx (j+1); i++) - perm [a.ridx (i)] = j; + perm[a.ridx (i)] = j; found = true; for (octave_idx_type i = 0; i < nm; i++) @@ -576,12 +576,12 @@ for (octave_idx_type j = i; j < nm; j++) { if ((a.cidx (j+1) > a.cidx (j) + 1) || - ((a.cidx (j+1) == a.cidx (j) + 1) && found [a.ridx (j)])) + ((a.cidx (j+1) == a.cidx (j) + 1) && found[a.ridx (j)])) { tmp_typ = MatrixType::Full; break; } - found [a.ridx (j)] = true; + found[a.ridx (j)] = true; } } typ = tmp_typ; @@ -669,7 +669,7 @@ bool found = false; nperm = ncols; - perm = new octave_idx_type[ncols]; + perm = new octave_idx_type [ncols]; for (octave_idx_type i = 0; i < ncols; i++) perm[i] = -1; @@ -708,7 +708,7 @@ { nperm = nrows; delete [] perm; - perm = new octave_idx_type[nrows]; + perm = new octave_idx_type [nrows]; OCTAVE_LOCAL_BUFFER (octave_idx_type, tmp, nrows); for (octave_idx_type i = 0; i < nrows; i++) @@ -719,7 +719,7 @@ for (octave_idx_type j = 0; j < ncols; j++) for (octave_idx_type i = a.cidx (j); i < a.cidx (j+1); i++) - perm [a.ridx (i)] = j; + perm[a.ridx (i)] = j; found = true; for (octave_idx_type i = 0; i < nm; i++) @@ -876,7 +876,7 @@ { typ = t; nperm = np; - perm = new octave_idx_type[nperm]; + perm = new octave_idx_type [nperm]; for (octave_idx_type i = 0; i < nperm; i++) perm[i] = p[i]; } @@ -989,7 +989,7 @@ if (nperm != 0) { - perm = new octave_idx_type[nperm]; + perm = new octave_idx_type [nperm]; for (octave_idx_type i = 0; i < nperm; i++) perm[i] = tmp_typ.perm[i]; } @@ -1022,7 +1022,7 @@ if (nperm != 0) { - perm = new octave_idx_type[nperm]; + perm = new octave_idx_type [nperm]; for (octave_idx_type i = 0; i < nperm; i++) perm[i] = tmp_typ.perm[i]; } @@ -1049,7 +1049,7 @@ if (nperm != 0) { - perm = new octave_idx_type[nperm]; + perm = new octave_idx_type [nperm]; for (octave_idx_type i = 0; i < nperm; i++) perm[i] = tmp_typ.perm[i]; } @@ -1076,7 +1076,7 @@ if (nperm != 0) { - perm = new octave_idx_type[nperm]; + perm = new octave_idx_type [nperm]; for (octave_idx_type i = 0; i < nperm; i++) perm[i] = tmp_typ.perm[i]; } @@ -1103,7 +1103,7 @@ if (nperm != 0) { - perm = new octave_idx_type[nperm]; + perm = new octave_idx_type [nperm]; for (octave_idx_type i = 0; i < nperm; i++) perm[i] = tmp_typ.perm[i]; } @@ -1130,7 +1130,7 @@ if (nperm != 0) { - perm = new octave_idx_type[nperm]; + perm = new octave_idx_type [nperm]; for (octave_idx_type i = 0; i < nperm; i++) perm[i] = tmp_typ.perm[i]; } @@ -1225,7 +1225,7 @@ MatrixType::mark_as_permuted (const octave_idx_type np, const octave_idx_type *p) { nperm = np; - perm = new octave_idx_type[nperm]; + perm = new octave_idx_type [nperm]; for (octave_idx_type i = 0; i < nperm; i++) perm[i] = p[i]; diff -r ae3670d4df29 -r 560317fd5977 liboctave/Sparse.cc --- a/liboctave/Sparse.cc Thu Jul 26 10:40:26 2012 -0500 +++ b/liboctave/Sparse.cc Thu Jul 26 09:25:47 2012 -0700 @@ -176,13 +176,13 @@ // Reallocate. octave_idx_type min_nzmx = std::min (nz, nzmx); - octave_idx_type * new_ridx = new octave_idx_type[nz]; + octave_idx_type * new_ridx = new octave_idx_type [nz]; copy_or_memcpy (min_nzmx, r, new_ridx); delete [] r; r = new_ridx; - T * new_data = new T[nz]; + T * new_data = new T [nz]; copy_or_memcpy (min_nzmx, d, new_data); delete [] d; diff -r ae3670d4df29 -r 560317fd5977 liboctave/Sparse.h --- a/liboctave/Sparse.h Thu Jul 26 10:40:26 2012 -0500 +++ b/liboctave/Sparse.h Thu Jul 26 09:25:47 2012 -0700 @@ -72,7 +72,7 @@ octave_refcount count; SparseRep (void) - : d (0), r (0), c (new octave_idx_type[1]), nzmx (0), nrows (0), + : d (0), r (0), c (new octave_idx_type [1]), nzmx (0), nrows (0), ncols (0), count (1) { c[0] = 0; @@ -87,7 +87,7 @@ } SparseRep (octave_idx_type nr, octave_idx_type nc, octave_idx_type nz = 0) - : d (new T[nz]), r (new octave_idx_type[nz]), + : d (new T [nz]), r (new octave_idx_type [nz]), c (new octave_idx_type [nc+1]), nzmx (nz), nrows (nr), ncols (nc), count (1) { diff -r ae3670d4df29 -r 560317fd5977 liboctave/dim-vector.h --- a/liboctave/dim-vector.h Thu Jul 26 10:40:26 2012 -0500 +++ b/liboctave/dim-vector.h Thu Jul 26 09:25:47 2012 -0700 @@ -66,7 +66,7 @@ static octave_idx_type *newrep (int ndims) { - octave_idx_type *r = new octave_idx_type[ndims + 2]; + octave_idx_type *r = new octave_idx_type [ndims + 2]; *r++ = 1; *r++ = ndims; @@ -80,7 +80,7 @@ { int l = ndims (); - octave_idx_type *r = new octave_idx_type[l + 2]; + octave_idx_type *r = new octave_idx_type [l + 2]; *r++ = 1; *r++ = l; @@ -100,7 +100,7 @@ if (n < 2) n = 2; - octave_idx_type *r = new octave_idx_type[n + 2]; + octave_idx_type *r = new octave_idx_type [n + 2]; *r++ = 1; *r++ = n; diff -r ae3670d4df29 -r 560317fd5977 liboctave/eigs-base.cc --- a/liboctave/eigs-base.cc Thu Jul 26 10:40:26 2012 -0500 +++ b/liboctave/eigs-base.cc Thu Jul 26 09:25:47 2012 -0700 @@ -1969,7 +1969,7 @@ if (dr[i] == 0.0 && di[i] == 0.0 && jj == 0) jj++; else - d [i-jj] = Complex (dr[i], di[i]); + d[i-jj] = Complex (dr[i], di[i]); } if (jj == 0 && !rvec) for (octave_idx_type i = 0; i < k; i++) @@ -2355,7 +2355,7 @@ if (dr[i] == 0.0 && di[i] == 0.0 && jj == 0) jj++; else - d [i-jj] = Complex (dr[i], di[i]); + d[i-jj] = Complex (dr[i], di[i]); } if (jj == 0 && !rvec) for (octave_idx_type i = 0; i < k; i++) @@ -2667,7 +2667,7 @@ if (dr[i] == 0.0 && di[i] == 0.0 && jj == 0) jj++; else - d [i-jj] = Complex (dr[i], di[i]); + d[i-jj] = Complex (dr[i], di[i]); } if (jj == 0 && !rvec) for (octave_idx_type i = 0; i < k; i++) diff -r ae3670d4df29 -r 560317fd5977 liboctave/idx-vector.cc --- a/liboctave/idx-vector.cc Thu Jul 26 10:40:26 2012 -0500 +++ b/liboctave/idx-vector.cc Thu Jul 26 09:25:47 2012 -0700 @@ -325,7 +325,7 @@ { if (len != 0) { - octave_idx_type *d = new octave_idx_type[len]; + octave_idx_type *d = new octave_idx_type [len]; for (octave_idx_type i = 0; i < len; i++) d[i] = convert_index (nda.xelem (i), err, ext); data = d; @@ -385,7 +385,7 @@ { if (len != 0) { - octave_idx_type *d = new octave_idx_type[1]; + octave_idx_type *d = new octave_idx_type [1]; d[0] = 0; data = d; ext = 1; @@ -407,7 +407,7 @@ if (len != 0) { - octave_idx_type *d = new octave_idx_type[len]; + octave_idx_type *d = new octave_idx_type [len]; octave_idx_type ntot = bnda.length (); @@ -435,7 +435,7 @@ if (len != 0) { - octave_idx_type *d = new octave_idx_type[len]; + octave_idx_type *d = new octave_idx_type [len]; octave_idx_type nnz = bnda.nnz (); @@ -489,7 +489,7 @@ if (ext > len*xlog2 (1.0 + len)) { // Use standard sort via octave_sort. - octave_idx_type *new_data = new octave_idx_type[len]; + octave_idx_type *new_data = new octave_idx_type [len]; new_rep->data = new_data; std::copy (data, data + len, new_data); @@ -524,7 +524,7 @@ else new_rep->orig_dims = dim_vector (new_len, 1); - octave_idx_type *new_data = new octave_idx_type[new_len]; + octave_idx_type *new_data = new octave_idx_type [new_len]; new_rep->data = new_data; for (octave_idx_type i = 0, j = 0; i < ext; i++) @@ -538,7 +538,7 @@ for (octave_idx_type i = 0; i < len; i++) cnt[data[i]]++; - octave_idx_type *new_data = new octave_idx_type[len]; + octave_idx_type *new_data = new octave_idx_type [len]; new_rep->data = new_data; for (octave_idx_type i = 0, j = 0; i < ext; i++) @@ -566,7 +566,7 @@ for (octave_idx_type i = 0; i < len; i++) idx_data[i] = i; - octave_idx_type *new_data = new octave_idx_type[len]; + octave_idx_type *new_data = new octave_idx_type [len]; new_rep->data = new_data; std::copy (data, data + len, new_data); @@ -585,7 +585,7 @@ idx.clear (orig_dims); octave_idx_type *idx_data = idx.fortran_vec (); - octave_idx_type *new_data = new octave_idx_type[len]; + octave_idx_type *new_data = new octave_idx_type [len]; new_rep->data = new_data; for (octave_idx_type i = 0, k = 0; i < ext; i++) @@ -654,7 +654,7 @@ { if (len != 0) { - bool *d = new bool[1]; + bool *d = new bool [1]; d[0] = true; data = d; ext = 1; @@ -1210,7 +1210,7 @@ idx_mask_rep * r = dynamic_cast (rep); const bool *data = r->get_data (); octave_idx_type ext = r->extent (0), len = r->length (0); - octave_idx_type *idata = new octave_idx_type[len]; + octave_idx_type *idata = new octave_idx_type [len]; for (octave_idx_type i = 0, j = 0; i < ext; i++) if (data[i]) diff -r ae3670d4df29 -r 560317fd5977 liboctave/oct-alloc.cc --- a/liboctave/oct-alloc.cc Thu Jul 26 10:40:26 2012 -0500 +++ b/liboctave/oct-alloc.cc Thu Jul 26 09:25:47 2012 -0700 @@ -32,7 +32,7 @@ octave_allocator::alloc (size_t size) { if (size != item_size) - return ::new char[size]; + return ::new char [size]; if (! head) { diff -r ae3670d4df29 -r 560317fd5977 liboctave/oct-locbuf.cc --- a/liboctave/oct-locbuf.cc Thu Jul 26 10:40:26 2012 -0500 +++ b/liboctave/oct-locbuf.cc Thu Jul 26 09:25:47 2012 -0700 @@ -74,11 +74,11 @@ { // Use new [] to get std::bad_alloc if out of memory. - dat = new char[size]; + dat = new char [size]; return; } - dat = new char[chunk_size]; + dat = new char [chunk_size]; chunk = top = dat; left = chunk_size; } diff -r ae3670d4df29 -r 560317fd5977 liboctave/oct-locbuf.h --- a/liboctave/oct-locbuf.h Thu Jul 26 10:40:26 2012 -0500 +++ b/liboctave/oct-locbuf.h Thu Jul 26 09:25:47 2012 -0700 @@ -38,7 +38,7 @@ : data (0) { if (size) - data = new T[size]; + data = new T [size]; } ~octave_local_buffer (void) { delete [] data; } operator T *() const { return data; } diff -r ae3670d4df29 -r 560317fd5977 liboctave/oct-mem.h --- a/liboctave/oct-mem.h Thu Jul 26 10:40:26 2012 -0500 +++ b/liboctave/oct-mem.h Thu Jul 26 09:25:47 2012 -0700 @@ -128,7 +128,7 @@ // Some systems let us allocate > 2GB memory even though size_t, which is either // buggy or completely cuckoo, so let's check here to stay safe. safe_size_comp (n, sizeof (T)); - return new T[n]; + return new T [n]; } template inline void no_ctor_delete (T *ptr) @@ -137,7 +137,7 @@ #define DEFINE_POD_NEW_DELETE(T) \ template <> \ inline T *no_ctor_new (size_t n) \ -{ return reinterpret_cast (new char[safe_size_comp (n, sizeof (T))]); } \ +{ return reinterpret_cast (new char [safe_size_comp (n, sizeof (T))]); } \ template <> \ inline void no_ctor_delete (T *ptr) \ { delete [] reinterpret_cast (ptr); } diff -r ae3670d4df29 -r 560317fd5977 liboctave/oct-sort.cc --- a/liboctave/oct-sort.cc Thu Jul 26 10:40:26 2012 -0500 +++ b/liboctave/oct-sort.cc Thu Jul 26 09:25:47 2012 -0700 @@ -542,7 +542,7 @@ */ delete [] a; delete [] ia; // Must do this or fool possible next getmemi. - a = new T[need]; + a = new T [need]; alloced = need; } @@ -561,8 +561,8 @@ delete [] a; delete [] ia; - a = new T[need]; - ia = new octave_idx_type[need]; + a = new T [need]; + ia = new octave_idx_type [need]; alloced = need; } diff -r ae3670d4df29 -r 560317fd5977 liboctave/oct-time.cc --- a/liboctave/oct-time.cc Thu Jul 26 10:40:26 2012 -0500 +++ b/liboctave/oct-time.cc Thu Jul 26 09:25:47 2012 -0700 @@ -175,7 +175,7 @@ while (chars_written == 0) { delete [] buf; - buf = new char[bufsize]; + buf = new char [bufsize]; buf[0] = '\0'; chars_written = nstrftime (buf, bufsize, fmt_str, &t, 0, 0); diff -r ae3670d4df29 -r 560317fd5977 liboctave/sparse-base-chol.cc --- a/liboctave/sparse-base-chol.cc Thu Jul 26 10:40:26 2012 -0500 +++ b/liboctave/sparse-base-chol.cc Thu Jul 26 09:25:47 2012 -0700 @@ -57,7 +57,7 @@ for (k = 0; k < ncol; k++) { p = Sp[k]; - pend = Sp [k+1]; + pend = Sp[k+1]; Sp[k] = pdest; for (; p < pend; p++) { diff -r ae3670d4df29 -r 560317fd5977 liboctave/sparse-dmsolve.cc --- a/liboctave/sparse-dmsolve.cc Thu Jul 26 10:40:26 2012 -0500 +++ b/liboctave/sparse-dmsolve.cc Thu Jul 26 09:25:47 2012 -0700 @@ -59,7 +59,7 @@ for (octave_idx_type p = A.cidx (qq) ; p < A.cidx (qq+1) ; p++) { octave_quit (); - octave_idx_type r = (Pinv ? Pinv [A.ridx (p)] : A.ridx (p)); + octave_idx_type r = (Pinv ? Pinv[A.ridx (p)] : A.ridx (p)); if (r >= rst && r < rend) { B.xdata (nz) = A.data (p); @@ -82,16 +82,16 @@ for (octave_idx_type p = A.cidx (qq) ; p < A.cidx (qq+1) ; p++) { octave_quit (); - octave_idx_type r = (Pinv ? Pinv [A.ridx (p)] : A.ridx (p)); + octave_idx_type r = (Pinv ? Pinv[A.ridx (p)] : A.ridx (p)); if (r >= rst && r < rend) { - X [r-rst] = A.data (p); + X[r-rst] = A.data (p); B.xridx (nz++) = r - rst ; } } sort.sort (ri + B.xcidx (j - cst), nz - B.xcidx (j - cst)); for (octave_idx_type p = B.cidx (j - cst); p < nz; p++) - B.xdata (p) = X [B.xridx (p)]; + B.xdata (p) = X[B.xridx (p)]; } B.xcidx (cend - cst) = nz ; } @@ -170,7 +170,7 @@ for (octave_idx_type i = 0; i < nr; i++) { octave_quit (); - ax [Q [r + i] + aoff] = bx [i + boff]; + ax[Q[r + i] + aoff] = bx[i + boff]; } } } @@ -207,7 +207,7 @@ for (octave_idx_type i = c; i < c + b_cols; i++) for (octave_idx_type j = a.xcidx (i); j < a.xcidx (i+1); j++) - if (Qinv [a.xridx (j)] < r || Qinv [a.xridx (j)] >= r + b_rows) + if (Qinv[a.xridx (j)] < r || Qinv[a.xridx (j)] >= r + b_rows) nel++; OCTAVE_LOCAL_BUFFER (T, X, nr); @@ -231,9 +231,9 @@ octave_quit (); for (octave_idx_type j = tmp.xcidx (i); j < tmp.xcidx (i+1); j++) - if (Qinv [tmp.xridx (j)] < r || Qinv [tmp.xridx (j)] >= r + b_rows) + if (Qinv[tmp.xridx (j)] < r || Qinv[tmp.xridx (j)] >= r + b_rows) { - X [tmp.xridx (j)] = tmp.xdata (j); + X[tmp.xridx (j)] = tmp.xdata (j); a.xridx (ii++) = tmp.xridx (j); } @@ -241,13 +241,13 @@ for (octave_idx_type j = b.cidx (i-c); j < b.cidx (i-c+1); j++) { - X [Q [r + b.ridx (j)]] = b.data (j); - a.xridx (ii++) = Q [r + b.ridx (j)]; + X[Q[r + b.ridx (j)]] = b.data (j); + a.xridx (ii++) = Q[r + b.ridx (j)]; } sort.sort (ri + a.xcidx (i), ii - a.xcidx (i)); for (octave_idx_type p = a.xcidx (i); p < ii; p++) - a.xdata (p) = X [a.xridx (p)]; + a.xdata (p) = X[a.xridx (p)]; a.xcidx (i+1) = ii; } @@ -332,7 +332,7 @@ for (octave_idx_type i = a.cidx (j); i < nz; i++) { octave_quit (); - a.xdata (i) = X [a.xridx (i)]; + a.xdata (i) = X[a.xridx (i)]; } a.xcidx (j+1) = nz; } diff -r ae3670d4df29 -r 560317fd5977 src/DLD-FUNCTIONS/ccolamd.cc --- a/src/DLD-FUNCTIONS/ccolamd.cc Thu Jul 26 10:40:26 2012 -0500 +++ b/src/DLD-FUNCTIONS/ccolamd.cc Thu Jul 26 09:25:47 2012 -0700 @@ -164,15 +164,15 @@ int nel_User_knobs = User_knobs.length (); if (nel_User_knobs > 0) - knobs [CCOLAMD_LU] = (User_knobs (0) != 0); + knobs[CCOLAMD_LU] = (User_knobs(0) != 0); if (nel_User_knobs > 1) - knobs [CCOLAMD_DENSE_ROW] = User_knobs (1); + knobs[CCOLAMD_DENSE_ROW] = User_knobs(1); if (nel_User_knobs > 2) - knobs [CCOLAMD_DENSE_COL] = User_knobs (2); + knobs[CCOLAMD_DENSE_COL] = User_knobs(2); if (nel_User_knobs > 3) - knobs [CCOLAMD_AGGRESSIVE] = (User_knobs (3) != 0); + knobs[CCOLAMD_AGGRESSIVE] = (User_knobs(3) != 0); if (nel_User_knobs > 4) - spumoni = (User_knobs (4) != 0); + spumoni = (User_knobs(4) != 0); // print knob settings if spumoni is set if (spumoni) @@ -180,30 +180,30 @@ octave_stdout << "\nccolamd version " << CCOLAMD_MAIN_VERSION << "." << CCOLAMD_SUB_VERSION << ", " << CCOLAMD_DATE << ":\nknobs(1): " << User_knobs (0) << ", order for "; - if ( knobs [CCOLAMD_LU] != 0) + if (knobs[CCOLAMD_LU] != 0) octave_stdout << "lu (A)\n"; else octave_stdout << "chol (A'*A)\n"; - if (knobs [CCOLAMD_DENSE_ROW] >= 0) + if (knobs[CCOLAMD_DENSE_ROW] >= 0) octave_stdout << "knobs(2): " << User_knobs (1) << ", rows with > max (16," - << knobs [CCOLAMD_DENSE_ROW] << "*sqrt (size(A,2)))" + << knobs[CCOLAMD_DENSE_ROW] << "*sqrt (size(A,2)))" << " entries removed\n"; else octave_stdout << "knobs(2): " << User_knobs (1) << ", no dense rows removed\n"; - if (knobs [CCOLAMD_DENSE_COL] >= 0) + if (knobs[CCOLAMD_DENSE_COL] >= 0) octave_stdout << "knobs(3): " << User_knobs (2) << ", cols with > max (16," - << knobs [CCOLAMD_DENSE_COL] << "*sqrt (size(A)))" + << knobs[CCOLAMD_DENSE_COL] << "*sqrt (size(A)))" << " entries removed\n"; else octave_stdout << "knobs(3): " << User_knobs (2) << ", no dense columns removed\n"; - if (knobs [CCOLAMD_AGGRESSIVE] != 0) + if (knobs[CCOLAMD_AGGRESSIVE] != 0) octave_stdout << "knobs(4): " << User_knobs(3) << ", aggressive absorption: yes"; else @@ -259,12 +259,12 @@ // Allocate workspace for ccolamd OCTAVE_LOCAL_BUFFER (octave_idx_type, p, n_col+1); for (octave_idx_type i = 0; i < n_col+1; i++) - p[i] = cidx [i]; + p[i] = cidx[i]; octave_idx_type Alen = CCOLAMD_NAME (_recommended) (nnz, n_row, n_col); OCTAVE_LOCAL_BUFFER (octave_idx_type, A, Alen); for (octave_idx_type i = 0; i < nnz; i++) - A[i] = ridx [i]; + A[i] = ridx[i]; OCTAVE_LOCAL_BUFFER (octave_idx_type, stats, CCOLAMD_STATS); @@ -315,7 +315,7 @@ { NDArray out_stats (dim_vector (1, CCOLAMD_STATS)); for (octave_idx_type i = 0 ; i < CCOLAMD_STATS ; i++) - out_stats (i) = stats [i] ; + out_stats(i) = stats[i] ; retval(1) = out_stats; // fix stats (5) and (6), for 1-based information on @@ -419,11 +419,11 @@ int nel_User_knobs = User_knobs.length (); if (nel_User_knobs > 0) - knobs [CCOLAMD_DENSE_ROW] = User_knobs (0); + knobs[CCOLAMD_DENSE_ROW] = User_knobs(0); if (nel_User_knobs > 0) - knobs [CCOLAMD_AGGRESSIVE] = User_knobs (1); + knobs[CCOLAMD_AGGRESSIVE] = User_knobs(1); if (nel_User_knobs > 1) - spumoni = static_cast (User_knobs (2)); + spumoni = static_cast (User_knobs(2)); // print knob settings if spumoni is set if (spumoni) @@ -431,16 +431,16 @@ octave_stdout << "\ncsymamd version " << CCOLAMD_MAIN_VERSION << "." << CCOLAMD_SUB_VERSION << ", " << CCOLAMD_DATE << "\n"; - if (knobs [CCOLAMD_DENSE_ROW] >= 0) + if (knobs[CCOLAMD_DENSE_ROW] >= 0) octave_stdout << "knobs(1): " << User_knobs (0) << ", rows/cols with > max (16," - << knobs [CCOLAMD_DENSE_ROW] << "*sqrt (size(A,2)))" + << knobs[CCOLAMD_DENSE_ROW] << "*sqrt (size(A,2)))" << " entries removed\n"; else octave_stdout << "knobs(1): " << User_knobs (0) << ", no dense rows/cols removed\n"; - if (knobs [CCOLAMD_AGGRESSIVE] != 0) + if (knobs[CCOLAMD_AGGRESSIVE] != 0) octave_stdout << "knobs(2): " << User_knobs(1) << ", aggressive absorption: yes"; else @@ -543,7 +543,7 @@ { NDArray out_stats (dim_vector (1, CCOLAMD_STATS)); for (octave_idx_type i = 0 ; i < CCOLAMD_STATS ; i++) - out_stats (i) = stats [i] ; + out_stats(i) = stats[i] ; retval(1) = out_stats; // fix stats (5) and (6), for 1-based information on @@ -562,7 +562,7 @@ { NDArray out_stats (dim_vector (1, CCOLAMD_STATS)); for (octave_idx_type i = 0 ; i < CCOLAMD_STATS ; i++) - out_stats (i) = stats [i] ; + out_stats(i) = stats[i] ; retval(1) = out_stats; // fix stats (5) and (6), for 1-based information on diff -r ae3670d4df29 -r 560317fd5977 src/DLD-FUNCTIONS/colamd.cc --- a/src/DLD-FUNCTIONS/colamd.cc Thu Jul 26 10:40:26 2012 -0500 +++ b/src/DLD-FUNCTIONS/colamd.cc Thu Jul 26 09:25:47 2012 -0700 @@ -63,28 +63,28 @@ if (P) // If P is present then compute Pinv, the inverse of P for (octave_idx_type k = 0 ; k < n ; k++) - Pinv [P [k]] = k ; + Pinv[P[k]] = k ; for (octave_idx_type k = 0 ; k < n ; k++) { // L(k,:) pattern: all nodes reachable in etree from nz in A(0:k-1,k) - Parent [k] = n ; // parent of k is not yet known - Flag [k] = k ; // mark node k as visited - octave_idx_type kk = (P) ? (P [k]) : (k) ; // kth original, or permuted, column - octave_idx_type p2 = cidx [kk+1] ; - for (octave_idx_type p = cidx [kk] ; p < p2 ; p++) + Parent[k] = n ; // parent of k is not yet known + Flag[k] = k ; // mark node k as visited + octave_idx_type kk = (P) ? (P[k]) : (k) ; // kth original, or permuted, column + octave_idx_type p2 = cidx[kk+1] ; + for (octave_idx_type p = cidx[kk] ; p < p2 ; p++) { // A (i,k) is nonzero (original or permuted A) - octave_idx_type i = (Pinv) ? (Pinv [ridx [p]]) : (ridx [p]) ; + octave_idx_type i = (Pinv) ? (Pinv[ridx[p]]) : (ridx[p]) ; if (i < k) { // follow path from i to root of etree, stop at flagged node - for ( ; Flag [i] != k ; i = Parent [i]) + for ( ; Flag[i] != k ; i = Parent[i]) { // find parent of i if not yet determined - if (Parent [i] == n) - Parent [i] = k ; - Flag [i] = k ; // mark i as visited + if (Parent[i] == n) + Parent[i] = k ; + Flag[i] = k ; // mark i as visited } } } @@ -299,11 +299,11 @@ int nel_User_knobs = User_knobs.length (); if (nel_User_knobs > 0) - knobs [COLAMD_DENSE_ROW] = User_knobs (0); + knobs[COLAMD_DENSE_ROW] = User_knobs(0); if (nel_User_knobs > 1) - knobs [COLAMD_DENSE_COL] = User_knobs (1) ; + knobs[COLAMD_DENSE_COL] = User_knobs(1) ; if (nel_User_knobs > 2) - spumoni = static_cast (User_knobs (2)); + spumoni = static_cast (User_knobs(2)); // print knob settings if spumoni is set if (spumoni) @@ -312,19 +312,19 @@ octave_stdout << "\ncolamd version " << COLAMD_MAIN_VERSION << "." << COLAMD_SUB_VERSION << ", " << COLAMD_DATE << ":\n"; - if (knobs [COLAMD_DENSE_ROW] >= 0) + if (knobs[COLAMD_DENSE_ROW] >= 0) octave_stdout << "knobs(1): " << User_knobs (0) << ", rows with > max (16," - << knobs [COLAMD_DENSE_ROW] << "*sqrt (size(A,2)))" + << knobs[COLAMD_DENSE_ROW] << "*sqrt (size(A,2)))" << " entries removed\n"; else octave_stdout << "knobs(1): " << User_knobs (0) << ", only completely dense rows removed\n"; - if (knobs [COLAMD_DENSE_COL] >= 0) + if (knobs[COLAMD_DENSE_COL] >= 0) octave_stdout << "knobs(2): " << User_knobs (1) << ", cols with > max (16," - << knobs [COLAMD_DENSE_COL] << "*sqrt (size(A)))" + << knobs[COLAMD_DENSE_COL] << "*sqrt (size(A)))" << " entries removed\n"; else octave_stdout << "knobs(2): " << User_knobs (1) @@ -380,12 +380,12 @@ // Allocate workspace for colamd OCTAVE_LOCAL_BUFFER (octave_idx_type, p, n_col+1); for (octave_idx_type i = 0; i < n_col+1; i++) - p[i] = cidx [i]; + p[i] = cidx[i]; octave_idx_type Alen = COLAMD_NAME (_recommended) (nnz, n_row, n_col); OCTAVE_LOCAL_BUFFER (octave_idx_type, A, Alen); for (octave_idx_type i = 0; i < nnz; i++) - A[i] = ridx [i]; + A[i] = ridx[i]; // Order the columns (destroys A) OCTAVE_LOCAL_BUFFER (octave_idx_type, stats, COLAMD_STATS); @@ -415,7 +415,7 @@ // return the permutation vector NDArray out_perm (dim_vector (1, n_col)); for (octave_idx_type i = 0; i < n_col; i++) - out_perm(i) = p[colbeg [i]] + 1; + out_perm(i) = p[colbeg[i]] + 1; retval(0) = out_perm; @@ -428,7 +428,7 @@ { NDArray out_stats (dim_vector (1, COLAMD_STATS)); for (octave_idx_type i = 0 ; i < COLAMD_STATS ; i++) - out_stats (i) = stats [i] ; + out_stats(i) = stats[i] ; retval(1) = out_stats; // fix stats (5) and (6), for 1-based information on @@ -534,7 +534,7 @@ int nel_User_knobs = User_knobs.length (); if (nel_User_knobs > 0) - knobs [COLAMD_DENSE_ROW] = User_knobs (COLAMD_DENSE_ROW); + knobs[COLAMD_DENSE_ROW] = User_knobs(COLAMD_DENSE_ROW); if (nel_User_knobs > 1) spumoni = static_cast (User_knobs (1)); } @@ -542,7 +542,7 @@ // print knob settings if spumoni is set if (spumoni > 0) octave_stdout << "symamd: dense row/col fraction: " - << knobs [COLAMD_DENSE_ROW] << std::endl; + << knobs[COLAMD_DENSE_ROW] << std::endl; octave_idx_type n_row, n_col; octave_idx_type *ridx, *cidx; @@ -608,7 +608,7 @@ // return the permutation vector NDArray out_perm (dim_vector (1, n_col)); for (octave_idx_type i = 0; i < n_col; i++) - out_perm(i) = perm[post [i]] + 1; + out_perm(i) = perm[post[i]] + 1; retval(0) = out_perm; @@ -621,7 +621,7 @@ { NDArray out_stats (dim_vector (1, COLAMD_STATS)); for (octave_idx_type i = 0 ; i < COLAMD_STATS ; i++) - out_stats (i) = stats [i] ; + out_stats(i) = stats[i] ; retval(1) = out_stats; // fix stats (5) and (6), for 1-based information on diff -r ae3670d4df29 -r 560317fd5977 src/DLD-FUNCTIONS/spparms.cc --- a/src/DLD-FUNCTIONS/spparms.cc Thu Jul 26 10:40:26 2012 -0500 +++ b/src/DLD-FUNCTIONS/spparms.cc Thu Jul 26 09:25:47 2012 -0700 @@ -126,7 +126,7 @@ std::string str = args(0).string_value (); int len = str.length (); for (int i = 0; i < len; i++) - str [i] = tolower (str [i]); + str[i] = tolower (str[i]); if (str == "defaults") octave_sparse_params::defaults (); diff -r ae3670d4df29 -r 560317fd5977 src/DLD-FUNCTIONS/symbfact.cc --- a/src/DLD-FUNCTIONS/symbfact.cc Thu Jul 26 10:40:26 2012 -0500 +++ b/src/DLD-FUNCTIONS/symbfact.cc Thu Jul 26 09:25:47 2012 -0700 @@ -270,7 +270,7 @@ // count the total number of entries in L octave_idx_type lnz = 0 ; for (octave_idx_type j = 0 ; j < n ; j++) - lnz += ColCount [j] ; + lnz += ColCount[j]; // allocate the output matrix L (pattern-only) @@ -281,7 +281,7 @@ for (octave_idx_type j = 0 ; j < n ; j++) { L.xcidx(j) = lnz; - lnz += ColCount [j]; + lnz += ColCount[j]; } L.xcidx(n) = lnz; @@ -302,11 +302,11 @@ { // get the kth row of L and store in the columns of L CHOLMOD_NAME (row_subtree) (A1, A2, k, Parent, R, cm) ; - for (octave_idx_type p = 0 ; p < Rp [1] ; p++) - L.xridx (W [Ri [p]]++) = k ; + for (octave_idx_type p = 0 ; p < Rp[1] ; p++) + L.xridx (W[Ri[p]]++) = k ; // add the diagonal entry - L.xridx (W [k]++) = k ; + L.xridx (W[k]++) = k ; } // free workspace diff -r ae3670d4df29 -r 560317fd5977 src/DLD-FUNCTIONS/symrcm.cc --- a/src/DLD-FUNCTIONS/symrcm.cc Thu Jul 26 10:40:26 2012 -0500 +++ b/src/DLD-FUNCTIONS/symrcm.cc Thu Jul 26 09:25:47 2012 -0700 @@ -405,7 +405,7 @@ for (octave_idx_type k = cidx[j]; k < cidx[j + 1]; k++) { OCTAVE_QUIT; - octave_idx_type q = w [ridx[k]]++; + octave_idx_type q = w[ridx[k]]++; ridx2[q] = j; } } diff -r ae3670d4df29 -r 560317fd5977 src/help.cc --- a/src/help.cc Thu Jul 26 10:40:26 2012 -0500 +++ b/src/help.cc Thu Jul 26 09:25:47 2012 -0700 @@ -762,7 +762,7 @@ string_vector retval (lst.size ()); int j = 0; for (map_iter iter = lst.begin (); iter != lst.end (); iter ++) - retval [j++] = iter->first; + retval[j++] = iter->first; return retval; } @@ -1218,11 +1218,11 @@ { const int dir_len = dir.size (); const int filename_len = filename.size (); - const int max_allowed_seps = file_ops::is_dir_sep (dir [dir_len-1]) ? 0 : 1; + const int max_allowed_seps = file_ops::is_dir_sep (dir[dir_len-1]) ? 0 : 1; int num_seps = 0; for (int i = dir_len; i < filename_len; i++) - if (file_ops::is_dir_sep (filename [i])) + if (file_ops::is_dir_sep (filename[i])) num_seps ++; return (num_seps <= max_allowed_seps); diff -r ae3670d4df29 -r 560317fd5977 src/ls-mat5.cc --- a/src/ls-mat5.cc Thu Jul 26 10:40:26 2012 -0500 +++ b/src/ls-mat5.cc Thu Jul 26 09:25:47 2012 -0700 @@ -1936,7 +1936,7 @@ bool too_large_for_float = false; for (octave_idx_type i = 0; i < nel; i++) { - double tmp = val [i]; + double tmp = val[i]; if (! (xisnan (tmp) || xisinf (tmp)) && fabs (tmp) > FLT_MAX) diff -r ae3670d4df29 -r 560317fd5977 src/pt-idx.cc --- a/src/pt-idx.cc Thu Jul 26 10:40:26 2012 -0500 +++ b/src/pt-idx.cc Thu Jul 26 09:25:47 2012 -0700 @@ -532,7 +532,7 @@ && (tmp.is_matrix_type () || tmp.is_string () || tmp.is_cell ())); - if (i > 0 && type [i-1] == '(') + if (i > 0 && type[i-1] == '(') { octave_value_list pidx = idx.back (); diff -r ae3670d4df29 -r 560317fd5977 src/utils.cc --- a/src/utils.cc Thu Jul 26 10:40:26 2012 -0500 +++ b/src/utils.cc Thu Jul 26 09:25:47 2012 -0700 @@ -470,7 +470,7 @@ if (fs.exists ()) retval = name; } - else if (len > 2 && name [len - 2] == '.' && name [len - 1] == 'm') + else if (len > 2 && name[len - 2] == '.' && name[len - 1] == 'm') retval = load_path::find_fcn_file (name.substr (0, len-2)); else { @@ -527,8 +527,8 @@ if (fs.exists ()) retval = name; } - else if (len > 4 && name [len - 4] == '.' && name [len - 3] == 'o' - && name [len - 2] == 'c' && name [len - 1] == 't') + else if (len > 4 && name[len - 4] == '.' && name[len - 3] == 'o' + && name[len - 2] == 'c' && name[len - 1] == 't') retval = load_path::find_oct_file (name.substr (0, len-4)); else retval = load_path::find_oct_file (name); @@ -556,8 +556,8 @@ if (fs.exists ()) retval = name; } - else if (len > 4 && name [len - 4] == '.' && name [len - 3] == 'm' - && name [len - 2] == 'e' && name [len - 1] == 'x') + else if (len > 4 && name[len - 4] == '.' && name[len - 3] == 'm' + && name[len - 2] == 'e' && name[len - 1] == 'x') retval = load_path::find_mex_file (name.substr (0, len-4)); else retval = load_path::find_mex_file (name); diff -r ae3670d4df29 -r 560317fd5977 src/variables.cc --- a/src/variables.cc Thu Jul 26 10:40:26 2012 -0500 +++ b/src/variables.cc Thu Jul 26 09:25:47 2012 -0700 @@ -1559,7 +1559,7 @@ error ("whos: -file argument must be followed by a file name"); else { - std::string nm = argv [i + 1]; + std::string nm = argv[i + 1]; unwind_protect frame; diff -r ae3670d4df29 -r 560317fd5977 src/zfstream.cc --- a/src/zfstream.cc Thu Jul 26 10:40:26 2012 -0500 +++ b/src/zfstream.cc Thu Jul 26 09:25:47 2012 -0700 @@ -403,7 +403,7 @@ if (buffer_size > 0) { // Allocate internal buffer - buffer = new char_type[buffer_size]; + buffer = new char_type [buffer_size]; // Get area starts empty and will be expanded by underflow as need arises this->setg (buffer, buffer, buffer); // Setup entire internal buffer as put area. @@ -416,7 +416,7 @@ { // Even in "unbuffered" case, (small?) get buffer is still required buffer_size = SMALLBUFSIZE; - buffer = new char_type[buffer_size]; + buffer = new char_type [buffer_size]; this->setg (buffer, buffer, buffer); // "Unbuffered" means no put buffer this->setp (0, 0);