rpms/octave/FC-5 octave-2.9.5-sparse.patch, 1.1, 1.2 octave.spec, 1.34, 1.35
Quentin Spencer (qspencer)
fedora-extras-commits at redhat.com
Fri Apr 21 17:10:12 UTC 2006
Author: qspencer
Update of /cvs/extras/rpms/octave/FC-5
In directory cvs-int.fedora.redhat.com:/tmp/cvs-serv1423
Modified Files:
octave-2.9.5-sparse.patch octave.spec
Log Message:
Use updated sparse patch from development tree.
octave-2.9.5-sparse.patch:
Index: octave-2.9.5-sparse.patch
===================================================================
RCS file: /cvs/extras/rpms/octave/FC-5/octave-2.9.5-sparse.patch,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- octave-2.9.5-sparse.patch 23 Mar 2006 22:43:54 -0000 1.1
+++ octave-2.9.5-sparse.patch 21 Apr 2006 17:10:12 -0000 1.2
@@ -2,60 +2,401 @@
===================================================================
RCS file: /cvs/octave/liboctave/SparseCmplxQR.h,v
retrieving revision 1.2
-diff -u -r1.2 SparseCmplxQR.h
---- liboctave/SparseCmplxQR.h 8 Mar 2006 20:17:38 -0000 1.2
-+++ liboctave/SparseCmplxQR.h 23 Mar 2006 17:56:07 -0000
+retrieving revision 1.3
+diff -u -r1.2 -r1.3
+--- liboctave/SparseCmplxQR.h 8 Mar 2006 20:17:38 -0000 1.2
++++ liboctave/SparseCmplxQR.h 23 Mar 2006 18:22:51 -0000 1.3
@@ -137,6 +137,23 @@
#endif
};
-
+
+
+// Publish externally used friend functions.
+
+extern ComplexMatrix qrsolve (const SparseComplexMatrix &a, const Matrix &b,
-+ octave_idx_type &info);
++ octave_idx_type &info);
+
-+extern SparseComplexMatrix qrsolve (const SparseComplexMatrix &a,
-+ const SparseMatrix &b,
-+ octave_idx_type &info);
-+
-+extern ComplexMatrix qrsolve (const SparseComplexMatrix &a,
-+ const ComplexMatrix &b,
-+ octave_idx_type &info);
-+
-+extern SparseComplexMatrix qrsolve (const SparseComplexMatrix &a,
-+ const SparseComplexMatrix &b,
-+ octave_idx_type &info);
++extern SparseComplexMatrix qrsolve (const SparseComplexMatrix &a,
++ const SparseMatrix &b,
++ octave_idx_type &info);
++
++extern ComplexMatrix qrsolve (const SparseComplexMatrix &a,
++ const ComplexMatrix &b,
++ octave_idx_type &info);
++
++extern SparseComplexMatrix qrsolve (const SparseComplexMatrix &a,
++ const SparseComplexMatrix &b,
++ octave_idx_type &info);
#endif
-
+
/*
Index: liboctave/SparseQR.h
===================================================================
RCS file: /cvs/octave/liboctave/SparseQR.h,v
retrieving revision 1.2
-diff -u -r1.2 SparseQR.h
---- liboctave/SparseQR.h 8 Mar 2006 20:17:38 -0000 1.2
-+++ liboctave/SparseQR.h 23 Mar 2006 17:56:07 -0000
+retrieving revision 1.3
+diff -u -r1.2 -r1.3
+--- liboctave/SparseQR.h 8 Mar 2006 20:17:38 -0000 1.2
++++ liboctave/SparseQR.h 23 Mar 2006 18:22:51 -0000 1.3
@@ -133,6 +133,22 @@
#endif
};
-
+
+
+// Publish externally used friend functions.
+
-+extern Matrix qrsolve (const SparseMatrix &a, const Matrix &b,
-+ octave_idx_type &info);
++extern Matrix qrsolve (const SparseMatrix &a, const Matrix &b,
++ octave_idx_type &info);
+
+extern SparseMatrix qrsolve (const SparseMatrix &a, const SparseMatrix &b,
-+ octave_idx_type &info);
++ octave_idx_type &info);
+
+extern ComplexMatrix qrsolve (const SparseMatrix &a, const ComplexMatrix &b,
-+ octave_idx_type &info);
++ octave_idx_type &info);
+
-+extern SparseComplexMatrix qrsolve (const SparseMatrix &a,
-+ const SparseComplexMatrix &b,
-+ octave_idx_type &info);
++extern SparseComplexMatrix qrsolve (const SparseMatrix &a,
++ const SparseComplexMatrix &b,
++ octave_idx_type &info);
+
#endif
-
+
/*
+Index: liboctave/CMatrix.cc
+===================================================================
+RCS file: /cvs/octave/liboctave/CMatrix.cc,v
+retrieving revision 1.114
+diff -u -r1.114 CMatrix.cc
+--- liboctave/CMatrix.cc 2 Mar 2006 03:40:00 -0000 1.114
++++ liboctave/CMatrix.cc 24 Mar 2006 18:53:58 -0000
+@@ -889,27 +889,6 @@
+ return retval;
+ }
+
+-ComplexRowVector
+-ComplexMatrix::row (char *s) const
+-{
+- if (! s)
+- {
+- (*current_liboctave_error_handler) ("invalid row selection");
+- return ComplexRowVector ();
+- }
+-
+- char c = *s;
+- if (c == 'f' || c == 'F')
+- return row (static_cast<octave_idx_type>(0));
+- else if (c == 'l' || c == 'L')
+- return row (rows () - 1);
+- else
+- {
+- (*current_liboctave_error_handler) ("invalid row selection");
+- return ComplexRowVector ();
+- }
+-}
+-
+ ComplexColumnVector
+ ComplexMatrix::column (octave_idx_type i) const
+ {
+@@ -927,27 +906,6 @@
+ return retval;
+ }
+
+-ComplexColumnVector
+-ComplexMatrix::column (char *s) const
+-{
+- if (! s)
+- {
+- (*current_liboctave_error_handler) ("invalid column selection");
+- return ComplexColumnVector ();
+- }
+-
+- char c = *s;
+- if (c == 'f' || c == 'F')
+- return column (static_cast<octave_idx_type>(0));
+- else if (c == 'l' || c == 'L')
+- return column (cols () - 1);
+- else
+- {
+- (*current_liboctave_error_handler) ("invalid column selection");
+- return ComplexColumnVector ();
+- }
+-}
+-
+ ComplexMatrix
+ ComplexMatrix::inverse (void) const
+ {
+Index: liboctave/CMatrix.h
+===================================================================
+RCS file: /cvs/octave/liboctave/CMatrix.h,v
+retrieving revision 1.55
+diff -u -r1.55 CMatrix.h
+--- liboctave/CMatrix.h 26 Oct 2005 15:24:08 -0000 1.55
++++ liboctave/CMatrix.h 24 Mar 2006 18:53:58 -0000
+@@ -130,10 +130,8 @@
+ // extract row or column i.
+
+ ComplexRowVector row (octave_idx_type i) const;
+- ComplexRowVector row (char *s) const;
+
+ ComplexColumnVector column (octave_idx_type i) const;
+- ComplexColumnVector column (char *s) const;
+
+ ComplexMatrix inverse (void) const;
+ ComplexMatrix inverse (octave_idx_type& info) const;
+Index: liboctave/dMatrix.cc
+===================================================================
+RCS file: /cvs/octave/liboctave/dMatrix.cc,v
+retrieving revision 1.120
+diff -u -r1.120 dMatrix.cc
+--- liboctave/dMatrix.cc 2 Mar 2006 03:40:01 -0000 1.120
++++ liboctave/dMatrix.cc 24 Mar 2006 18:53:59 -0000
+@@ -559,27 +559,6 @@
+ return retval;
+ }
+
+-RowVector
+-Matrix::row (char *s) const
+-{
+- if (! s)
+- {
+- (*current_liboctave_error_handler) ("invalid row selection");
+- return RowVector ();
+- }
+-
+- char c = *s;
+- if (c == 'f' || c == 'F')
+- return row ( static_cast<octave_idx_type>(0) );
+- else if (c == 'l' || c == 'L')
+- return row (rows () - 1);
+- else
+- {
+- (*current_liboctave_error_handler) ("invalid row selection");
+- return RowVector ();
+- }
+-}
+-
+ ColumnVector
+ Matrix::column (octave_idx_type i) const
+ {
+@@ -597,27 +576,6 @@
+ return retval;
+ }
+
+-ColumnVector
+-Matrix::column (char *s) const
+-{
+- if (! s)
+- {
+- (*current_liboctave_error_handler) ("invalid column selection");
+- return ColumnVector ();
+- }
+-
+- char c = *s;
+- if (c == 'f' || c == 'F')
+- return column (static_cast<octave_idx_type> (0));
+- else if (c == 'l' || c == 'L')
+- return column (cols () - 1);
+- else
+- {
+- (*current_liboctave_error_handler) ("invalid column selection");
+- return ColumnVector ();
+- }
+-}
+-
+ Matrix
+ Matrix::inverse (void) const
+ {
+Index: liboctave/dMatrix.h
+===================================================================
+RCS file: /cvs/octave/liboctave/dMatrix.h,v
+retrieving revision 1.61
+diff -u -r1.61 dMatrix.h
+--- liboctave/dMatrix.h 26 Oct 2005 15:24:08 -0000 1.61
++++ liboctave/dMatrix.h 24 Mar 2006 18:53:59 -0000
+@@ -102,10 +102,8 @@
+ // extract row or column i.
+
+ RowVector row (octave_idx_type i) const;
+- RowVector row (char *s) const;
+
+ ColumnVector column (octave_idx_type i) const;
+- ColumnVector column (char *s) const;
+
+ Matrix inverse (void) const;
+ Matrix inverse (octave_idx_type& info) const;
+Index: liboctave/dSparse.cc
+===================================================================
+RCS file: /cvs/octave/liboctave/dSparse.cc,v
+retrieving revision 1.21
+diff -u -r1.21 dSparse.cc
+--- liboctave/dSparse.cc 22 Mar 2006 22:58:12 -0000 1.21
++++ liboctave/dSparse.cc 24 Mar 2006 18:54:00 -0000
+@@ -4404,7 +4404,7 @@
+ Array<double> z (3 * nr);
+ double *pz = z.fortran_vec ();
+ Array<octave_idx_type> iz (nr);
+- int *piz = iz.fortran_vec ();
++ octave_idx_type *piz = iz.fortran_vec ();
+
+ F77_XFCN (dpbcon, DGBCON,
+ (F77_CONST_CHAR_ARG2 (&job, 1),
+@@ -4540,7 +4540,7 @@
+ Array<double> z (3 * nr);
+ double *pz = z.fortran_vec ();
+ Array<octave_idx_type> iz (nr);
+- int *piz = iz.fortran_vec ();
++ octave_idx_type *piz = iz.fortran_vec ();
+
+ F77_XFCN (dgbcon, DGBCON,
+ (F77_CONST_CHAR_ARG2 (&job, 1),
+@@ -4678,7 +4678,7 @@
+ Array<double> z (3 * nr);
+ double *pz = z.fortran_vec ();
+ Array<octave_idx_type> iz (nr);
+- int *piz = iz.fortran_vec ();
++ octave_idx_type *piz = iz.fortran_vec ();
+
+ F77_XFCN (dpbcon, DGBCON,
+ (F77_CONST_CHAR_ARG2 (&job, 1),
+@@ -4851,7 +4851,7 @@
+ Array<double> z (3 * nr);
+ double *pz = z.fortran_vec ();
+ Array<octave_idx_type> iz (nr);
+- int *piz = iz.fortran_vec ();
++ octave_idx_type *piz = iz.fortran_vec ();
+
+ F77_XFCN (dgbcon, DGBCON,
+ (F77_CONST_CHAR_ARG2 (&job, 1),
+@@ -5031,7 +5031,7 @@
+ Array<double> z (3 * nr);
+ double *pz = z.fortran_vec ();
+ Array<octave_idx_type> iz (nr);
+- int *piz = iz.fortran_vec ();
++ octave_idx_type *piz = iz.fortran_vec ();
+
+ F77_XFCN (dpbcon, DGBCON,
+ (F77_CONST_CHAR_ARG2 (&job, 1),
+@@ -5208,7 +5208,7 @@
+ Array<double> z (3 * nr);
+ double *pz = z.fortran_vec ();
+ Array<octave_idx_type> iz (nr);
+- int *piz = iz.fortran_vec ();
++ octave_idx_type *piz = iz.fortran_vec ();
+
+ F77_XFCN (dpbcon, DGBCON,
+ (F77_CONST_CHAR_ARG2 (&job, 1),
+@@ -5379,7 +5379,7 @@
+ Array<double> z (3 * nr);
+ double *pz = z.fortran_vec ();
+ Array<octave_idx_type> iz (nr);
+- int *piz = iz.fortran_vec ();
++ octave_idx_type *piz = iz.fortran_vec ();
+
+ F77_XFCN (dpbcon, DGBCON,
+ (F77_CONST_CHAR_ARG2 (&job, 1),
+@@ -5586,7 +5586,7 @@
+ Array<double> z (3 * nr);
+ double *pz = z.fortran_vec ();
+ Array<octave_idx_type> iz (nr);
+- int *piz = iz.fortran_vec ();
++ octave_idx_type *piz = iz.fortran_vec ();
+
+ F77_XFCN (dgbcon, DGBCON,
+ (F77_CONST_CHAR_ARG2 (&job, 1),
+Index: src/ov-cell.cc
+===================================================================
+RCS file: /cvs/octave/src/ov-cell.cc,v
+retrieving revision 1.58
+diff -u -r1.58 ov-cell.cc
+--- src/ov-cell.cc 24 Mar 2006 16:42:44 -0000 1.58
++++ src/ov-cell.cc 24 Mar 2006 19:14:32 -0000
+@@ -783,10 +783,12 @@
+
+ for (octave_idx_type i = 0; i < dv.numel (); i++)
+ {
+- char s[20];
+- sprintf (s, "_%d", i);
++ OSSTREAM buf;
++ buf << "_" << i << OSSTREAM_ENDS;
++ std::string s = OSSTREAM_STR (buf);
++ OSSTREAM_FREEZE (buf);
+
+- if (! add_hdf5_data(data_hid, tmp.elem (i), s, "", false,
++ if (! add_hdf5_data(data_hid, tmp.elem (i), s.c_str (), "", false,
+ save_as_floats))
+ {
+ H5Gclose (data_hid);
+Index: src/ov-list.cc
+===================================================================
+RCS file: /cvs/octave/src/ov-list.cc,v
+retrieving revision 1.44
+diff -u -r1.44 ov-list.cc
+--- src/ov-list.cc 26 Apr 2005 19:24:33 -0000 1.44
++++ src/ov-list.cc 24 Mar 2006 19:14:32 -0000
+@@ -536,9 +536,13 @@
+ for (int i = 0; i < lst.length (); ++i)
+ {
+ // should we use lst.name_tags () to label the elements?
+- char s[20];
+- sprintf (s, "_%d", i);
+- bool b = save_ascii_data (os, lst (i), s, infnan_warned,
++
++ OSSTREAM buf;
++ buf << "_" << i << OSSTREAM_ENDS;
++ std::string s = OSSTREAM_STR (buf);
++ OSSTREAM_FREEZE (buf);
++
++ bool b = save_ascii_data (os, lst (i), s.c_str (), infnan_warned,
+ strip_nan_and_inf, 0, 0);
+
+ if (! b)
+@@ -607,11 +611,15 @@
+ for (int i = 0; i < lst.length (); i++)
+ {
+ // should we use lst.name_tags () to label the elements?
+- char s[20];
+- sprintf (s, "_%d", i);
++
++ OSSTREAM buf;
++ buf << "_" << i << OSSTREAM_ENDS;
++ std::string s = OSSTREAM_STR (buf);
++ OSSTREAM_FREEZE (buf);
+
+ // Recurse to print sub-value.
+- bool b = save_binary_data (os, lst(i), s, "", 0, save_as_floats);
++ bool b = save_binary_data (os, lst(i), s.c_str (), "", 0,
++ save_as_floats);
+
+ if (! b)
+ return false;
+@@ -683,9 +691,13 @@
+ for (octave_idx_type i = 0; i < lst.length (); ++i)
+ {
+ // should we use lst.name_tags () to label the elements?
+- char s[20];
+- sprintf (s, "_%d", i);
+- bool retval2 = add_hdf5_data (data_hid, lst (i), s, "",
++
++ OSSTREAM buf;
++ buf << "_" << i << OSSTREAM_ENDS;
++ std::string s = OSSTREAM_STR (buf);
++ OSSTREAM_FREEZE (buf);
++
++ bool retval2 = add_hdf5_data (data_hid, lst (i), s.c_str (), "",
+ false, save_as_floats);
+ if (! retval2)
+ break;
+Index: src/DLD-FUNCTIONS/spchol.cc
+===================================================================
+RCS file: /cvs/octave/src/DLD-FUNCTIONS/spchol.cc,v
+retrieving revision 1.7
+diff -u -r1.7 spchol.cc
+--- src/DLD-FUNCTIONS/spchol.cc 22 Mar 2006 22:58:12 -0000 1.7
++++ src/DLD-FUNCTIONS/spchol.cc 24 Mar 2006 19:55:38 -0000
+@@ -607,7 +607,7 @@
+ for (octave_idx_type k = 0 ; k < n ; k++)
+ {
+ // get the kth row of L and store in the columns of L
+- cholmod_row_subtree (A1, A2, k, Parent, R, cm) ;
++ 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 ;
Index: octave.spec
===================================================================
RCS file: /cvs/extras/rpms/octave/FC-5/octave.spec,v
retrieving revision 1.34
retrieving revision 1.35
diff -u -r1.34 -r1.35
--- octave.spec 20 Apr 2006 13:37:44 -0000 1.34
+++ octave.spec 21 Apr 2006 17:10:12 -0000 1.35
@@ -1,6 +1,6 @@
Name: octave
Version: 2.9.5
-Release: 1%{?dist}
+Release: 2%{?dist}
Summary: A high-level language for numerical computations
Epoch: 6
@@ -135,6 +135,9 @@
%changelog
+* Fri Apr 21 2006 Quentin Spencer <qspencer at users.sourceforge.net> 2.9.5-2
+- Use updated sparse patch from development tree.
+
* Thu Apr 20 2006 Quentin Spencer <qspencer at users.sourceforge.net> 2.9.5-1
- New upstream release; remove old patches; add sparse patch.
- Add patch for configure script.
More information about the scm-commits
mailing list