Quentin Spencer c6b0f7
Index: liboctave/SparseCmplxQR.h
Quentin Spencer c6b0f7
===================================================================
Quentin Spencer c6b0f7
RCS file: /cvs/octave/liboctave/SparseCmplxQR.h,v
Quentin Spencer c6b0f7
retrieving revision 1.2
Quentin Spencer 26b019
retrieving revision 1.3
Quentin Spencer 26b019
diff -u -r1.2 -r1.3
Quentin Spencer 26b019
--- liboctave/SparseCmplxQR.h	8 Mar 2006 20:17:38 -0000	1.2
Quentin Spencer 26b019
+++ liboctave/SparseCmplxQR.h	23 Mar 2006 18:22:51 -0000	1.3
Quentin Spencer c6b0f7
@@ -137,6 +137,23 @@
Quentin Spencer c6b0f7
 #endif
Quentin Spencer c6b0f7
 };
Quentin Spencer 26b019
 
Quentin Spencer c6b0f7
+
Quentin Spencer c6b0f7
+// Publish externally used friend functions.
Quentin Spencer c6b0f7
+
Quentin Spencer c6b0f7
+extern ComplexMatrix qrsolve (const SparseComplexMatrix &a, const Matrix &b,
Quentin Spencer 26b019
+			      octave_idx_type &info);
Quentin Spencer c6b0f7
+
Quentin Spencer 26b019
+extern SparseComplexMatrix qrsolve (const SparseComplexMatrix &a, 
Quentin Spencer 26b019
+				    const SparseMatrix &b,
Quentin Spencer 26b019
+				    octave_idx_type &info);
Quentin Spencer c6b0f7
+
Quentin Spencer 26b019
+extern ComplexMatrix qrsolve (const SparseComplexMatrix &a, 
Quentin Spencer 26b019
+			      const ComplexMatrix &b,
Quentin Spencer 26b019
+			      octave_idx_type &info);
Quentin Spencer c6b0f7
+
Quentin Spencer 26b019
+extern SparseComplexMatrix qrsolve (const SparseComplexMatrix &a, 
Quentin Spencer 26b019
+				    const SparseComplexMatrix &b,
Quentin Spencer 26b019
+				    octave_idx_type &info);
Quentin Spencer c6b0f7
 #endif
Quentin Spencer 26b019
 
Quentin Spencer c6b0f7
 /*
Quentin Spencer c6b0f7
Index: liboctave/SparseQR.h
Quentin Spencer c6b0f7
===================================================================
Quentin Spencer c6b0f7
RCS file: /cvs/octave/liboctave/SparseQR.h,v
Quentin Spencer c6b0f7
retrieving revision 1.2
Quentin Spencer 26b019
retrieving revision 1.3
Quentin Spencer 26b019
diff -u -r1.2 -r1.3
Quentin Spencer 26b019
--- liboctave/SparseQR.h	8 Mar 2006 20:17:38 -0000	1.2
Quentin Spencer 26b019
+++ liboctave/SparseQR.h	23 Mar 2006 18:22:51 -0000	1.3
Quentin Spencer c6b0f7
@@ -133,6 +133,22 @@
Quentin Spencer c6b0f7
 #endif
Quentin Spencer c6b0f7
 };
Quentin Spencer 26b019
 
Quentin Spencer c6b0f7
+
Quentin Spencer c6b0f7
+// Publish externally used friend functions.
Quentin Spencer c6b0f7
+
Quentin Spencer 26b019
+extern Matrix qrsolve (const SparseMatrix &a, const Matrix &b, 
Quentin Spencer 26b019
+		       octave_idx_type &info);
Quentin Spencer c6b0f7
+
Quentin Spencer c6b0f7
+extern SparseMatrix qrsolve (const SparseMatrix &a, const SparseMatrix &b,
Quentin Spencer 26b019
+			     octave_idx_type &info);
Quentin Spencer c6b0f7
+
Quentin Spencer c6b0f7
+extern ComplexMatrix qrsolve (const SparseMatrix &a, const ComplexMatrix &b,
Quentin Spencer 26b019
+			      octave_idx_type &info);
Quentin Spencer c6b0f7
+
Quentin Spencer 26b019
+extern SparseComplexMatrix qrsolve (const SparseMatrix &a, 
Quentin Spencer 26b019
+				    const SparseComplexMatrix &b,
Quentin Spencer 26b019
+				    octave_idx_type &info);
Quentin Spencer c6b0f7
+
Quentin Spencer c6b0f7
 #endif
Quentin Spencer 26b019
 
Quentin Spencer c6b0f7
 /*
Quentin Spencer b5e3b1
Index: liboctave/CMatrix.cc
Quentin Spencer b5e3b1
===================================================================
Quentin Spencer b5e3b1
RCS file: /cvs/octave/liboctave/CMatrix.cc,v
Quentin Spencer b5e3b1
retrieving revision 1.114
Quentin Spencer b5e3b1
diff -u -r1.114 CMatrix.cc
Quentin Spencer b5e3b1
--- liboctave/CMatrix.cc	2 Mar 2006 03:40:00 -0000	1.114
Quentin Spencer b5e3b1
+++ liboctave/CMatrix.cc	24 Mar 2006 18:53:58 -0000
Quentin Spencer b5e3b1
@@ -889,27 +889,6 @@
Quentin Spencer b5e3b1
   return retval;
Quentin Spencer b5e3b1
 }
Quentin Spencer b5e3b1
 
Quentin Spencer b5e3b1
-ComplexRowVector
Quentin Spencer b5e3b1
-ComplexMatrix::row (char *s) const
Quentin Spencer b5e3b1
-{
Quentin Spencer b5e3b1
-  if (! s)
Quentin Spencer b5e3b1
-    {
Quentin Spencer b5e3b1
-      (*current_liboctave_error_handler) ("invalid row selection");
Quentin Spencer b5e3b1
-      return ComplexRowVector ();
Quentin Spencer b5e3b1
-    }
Quentin Spencer b5e3b1
-
Quentin Spencer b5e3b1
-  char c = *s;
Quentin Spencer b5e3b1
-  if (c == 'f' || c == 'F')
Quentin Spencer b5e3b1
-    return row (static_cast<octave_idx_type>(0));
Quentin Spencer b5e3b1
-  else if (c == 'l' || c == 'L')
Quentin Spencer b5e3b1
-    return row (rows () - 1);
Quentin Spencer b5e3b1
-  else
Quentin Spencer b5e3b1
-    {
Quentin Spencer b5e3b1
-      (*current_liboctave_error_handler) ("invalid row selection");
Quentin Spencer b5e3b1
-      return ComplexRowVector ();
Quentin Spencer b5e3b1
-    }
Quentin Spencer b5e3b1
-}
Quentin Spencer b5e3b1
-
Quentin Spencer b5e3b1
 ComplexColumnVector
Quentin Spencer b5e3b1
 ComplexMatrix::column (octave_idx_type i) const
Quentin Spencer b5e3b1
 {
Quentin Spencer b5e3b1
@@ -927,27 +906,6 @@
Quentin Spencer b5e3b1
   return retval;
Quentin Spencer b5e3b1
 }
Quentin Spencer b5e3b1
 
Quentin Spencer b5e3b1
-ComplexColumnVector
Quentin Spencer b5e3b1
-ComplexMatrix::column (char *s) const
Quentin Spencer b5e3b1
-{
Quentin Spencer b5e3b1
-  if (! s)
Quentin Spencer b5e3b1
-    {
Quentin Spencer b5e3b1
-      (*current_liboctave_error_handler) ("invalid column selection");
Quentin Spencer b5e3b1
-      return ComplexColumnVector ();
Quentin Spencer b5e3b1
-    }
Quentin Spencer b5e3b1
-
Quentin Spencer b5e3b1
-  char c = *s;
Quentin Spencer b5e3b1
-  if (c == 'f' || c == 'F')
Quentin Spencer b5e3b1
-    return column (static_cast<octave_idx_type>(0));
Quentin Spencer b5e3b1
-  else if (c == 'l' || c == 'L')
Quentin Spencer b5e3b1
-    return column (cols () - 1);
Quentin Spencer b5e3b1
-  else
Quentin Spencer b5e3b1
-    {
Quentin Spencer b5e3b1
-      (*current_liboctave_error_handler) ("invalid column selection");
Quentin Spencer b5e3b1
-      return ComplexColumnVector ();
Quentin Spencer b5e3b1
-    }
Quentin Spencer b5e3b1
-}
Quentin Spencer b5e3b1
-
Quentin Spencer b5e3b1
 ComplexMatrix
Quentin Spencer b5e3b1
 ComplexMatrix::inverse (void) const
Quentin Spencer b5e3b1
 {
Quentin Spencer b5e3b1
Index: liboctave/CMatrix.h
Quentin Spencer b5e3b1
===================================================================
Quentin Spencer b5e3b1
RCS file: /cvs/octave/liboctave/CMatrix.h,v
Quentin Spencer b5e3b1
retrieving revision 1.55
Quentin Spencer b5e3b1
diff -u -r1.55 CMatrix.h
Quentin Spencer b5e3b1
--- liboctave/CMatrix.h	26 Oct 2005 15:24:08 -0000	1.55
Quentin Spencer b5e3b1
+++ liboctave/CMatrix.h	24 Mar 2006 18:53:58 -0000
Quentin Spencer b5e3b1
@@ -130,10 +130,8 @@
Quentin Spencer b5e3b1
   // extract row or column i.
Quentin Spencer b5e3b1
 
Quentin Spencer b5e3b1
   ComplexRowVector row (octave_idx_type i) const;
Quentin Spencer b5e3b1
-  ComplexRowVector row (char *s) const;
Quentin Spencer b5e3b1
 
Quentin Spencer b5e3b1
   ComplexColumnVector column (octave_idx_type i) const;
Quentin Spencer b5e3b1
-  ComplexColumnVector column (char *s) const;
Quentin Spencer b5e3b1
 
Quentin Spencer b5e3b1
   ComplexMatrix inverse (void) const;
Quentin Spencer b5e3b1
   ComplexMatrix inverse (octave_idx_type& info) const;
Quentin Spencer b5e3b1
Index: liboctave/dMatrix.cc
Quentin Spencer b5e3b1
===================================================================
Quentin Spencer b5e3b1
RCS file: /cvs/octave/liboctave/dMatrix.cc,v
Quentin Spencer b5e3b1
retrieving revision 1.120
Quentin Spencer b5e3b1
diff -u -r1.120 dMatrix.cc
Quentin Spencer b5e3b1
--- liboctave/dMatrix.cc	2 Mar 2006 03:40:01 -0000	1.120
Quentin Spencer b5e3b1
+++ liboctave/dMatrix.cc	24 Mar 2006 18:53:59 -0000
Quentin Spencer b5e3b1
@@ -559,27 +559,6 @@
Quentin Spencer b5e3b1
   return retval;
Quentin Spencer b5e3b1
 }
Quentin Spencer b5e3b1
 
Quentin Spencer b5e3b1
-RowVector
Quentin Spencer b5e3b1
-Matrix::row (char *s) const
Quentin Spencer b5e3b1
-{
Quentin Spencer b5e3b1
-  if (! s)
Quentin Spencer b5e3b1
-    {
Quentin Spencer b5e3b1
-      (*current_liboctave_error_handler) ("invalid row selection");
Quentin Spencer b5e3b1
-      return RowVector ();
Quentin Spencer b5e3b1
-    }
Quentin Spencer b5e3b1
-
Quentin Spencer b5e3b1
-  char c = *s;
Quentin Spencer b5e3b1
-  if (c == 'f' || c == 'F')
Quentin Spencer b5e3b1
-    return row ( static_cast<octave_idx_type>(0) );
Quentin Spencer b5e3b1
-  else if (c == 'l' || c == 'L')
Quentin Spencer b5e3b1
-    return row (rows () - 1);
Quentin Spencer b5e3b1
-  else
Quentin Spencer b5e3b1
-    {
Quentin Spencer b5e3b1
-      (*current_liboctave_error_handler) ("invalid row selection");
Quentin Spencer b5e3b1
-      return RowVector ();
Quentin Spencer b5e3b1
-    }
Quentin Spencer b5e3b1
-}
Quentin Spencer b5e3b1
-
Quentin Spencer b5e3b1
 ColumnVector
Quentin Spencer b5e3b1
 Matrix::column (octave_idx_type i) const
Quentin Spencer b5e3b1
 {
Quentin Spencer b5e3b1
@@ -597,27 +576,6 @@
Quentin Spencer b5e3b1
   return retval;
Quentin Spencer b5e3b1
 }
Quentin Spencer b5e3b1
 
Quentin Spencer b5e3b1
-ColumnVector
Quentin Spencer b5e3b1
-Matrix::column (char *s) const
Quentin Spencer b5e3b1
-{
Quentin Spencer b5e3b1
-  if (! s)
Quentin Spencer b5e3b1
-    {
Quentin Spencer b5e3b1
-      (*current_liboctave_error_handler) ("invalid column selection");
Quentin Spencer b5e3b1
-      return ColumnVector ();
Quentin Spencer b5e3b1
-    }
Quentin Spencer b5e3b1
-
Quentin Spencer b5e3b1
-  char c = *s;
Quentin Spencer b5e3b1
-  if (c == 'f' || c == 'F')
Quentin Spencer b5e3b1
-    return column (static_cast<octave_idx_type> (0));
Quentin Spencer b5e3b1
-  else if (c == 'l' || c == 'L')
Quentin Spencer b5e3b1
-    return column (cols () - 1);
Quentin Spencer b5e3b1
-  else
Quentin Spencer b5e3b1
-    {
Quentin Spencer b5e3b1
-      (*current_liboctave_error_handler) ("invalid column selection");
Quentin Spencer b5e3b1
-      return ColumnVector ();
Quentin Spencer b5e3b1
-    }
Quentin Spencer b5e3b1
-}
Quentin Spencer b5e3b1
-
Quentin Spencer b5e3b1
 Matrix
Quentin Spencer b5e3b1
 Matrix::inverse (void) const
Quentin Spencer b5e3b1
 {
Quentin Spencer b5e3b1
Index: liboctave/dMatrix.h
Quentin Spencer b5e3b1
===================================================================
Quentin Spencer b5e3b1
RCS file: /cvs/octave/liboctave/dMatrix.h,v
Quentin Spencer b5e3b1
retrieving revision 1.61
Quentin Spencer b5e3b1
diff -u -r1.61 dMatrix.h
Quentin Spencer b5e3b1
--- liboctave/dMatrix.h	26 Oct 2005 15:24:08 -0000	1.61
Quentin Spencer b5e3b1
+++ liboctave/dMatrix.h	24 Mar 2006 18:53:59 -0000
Quentin Spencer b5e3b1
@@ -102,10 +102,8 @@
Quentin Spencer b5e3b1
   // extract row or column i.
Quentin Spencer b5e3b1
 
Quentin Spencer b5e3b1
   RowVector row (octave_idx_type i) const;
Quentin Spencer b5e3b1
-  RowVector row (char *s) const;
Quentin Spencer b5e3b1
 
Quentin Spencer b5e3b1
   ColumnVector column (octave_idx_type i) const;
Quentin Spencer b5e3b1
-  ColumnVector column (char *s) const;
Quentin Spencer b5e3b1
 
Quentin Spencer b5e3b1
   Matrix inverse (void) const;
Quentin Spencer b5e3b1
   Matrix inverse (octave_idx_type& info) const;
Quentin Spencer e2944b
Index: liboctave/dSparse.cc
Quentin Spencer e2944b
===================================================================
Quentin Spencer e2944b
RCS file: /cvs/octave/liboctave/dSparse.cc,v
Quentin Spencer e2944b
retrieving revision 1.21
Quentin Spencer e2944b
diff -u -r1.21 dSparse.cc
Quentin Spencer 26b019
--- liboctave/dSparse.cc	22 Mar 2006 22:58:12 -0000	1.21
Quentin Spencer b5e3b1
+++ liboctave/dSparse.cc	24 Mar 2006 18:54:00 -0000
Quentin Spencer b5e3b1
@@ -4404,7 +4404,7 @@
Quentin Spencer b5e3b1
 		      Array<double> z (3 * nr);
Quentin Spencer b5e3b1
 		      double *pz = z.fortran_vec ();
Quentin Spencer b5e3b1
 		      Array<octave_idx_type> iz (nr);
Quentin Spencer b5e3b1
-		      int *piz = iz.fortran_vec ();
Quentin Spencer b5e3b1
+		      octave_idx_type *piz = iz.fortran_vec ();
Quentin Spencer b5e3b1
 
Quentin Spencer b5e3b1
 		      F77_XFCN (dpbcon, DGBCON, 
Quentin Spencer b5e3b1
 		      	(F77_CONST_CHAR_ARG2 (&job, 1),
Quentin Spencer b5e3b1
@@ -4540,7 +4540,7 @@
Quentin Spencer b5e3b1
 		      Array<double> z (3 * nr);
Quentin Spencer b5e3b1
 		      double *pz = z.fortran_vec ();
Quentin Spencer b5e3b1
 		      Array<octave_idx_type> iz (nr);
Quentin Spencer b5e3b1
-		      int *piz = iz.fortran_vec ();
Quentin Spencer b5e3b1
+		      octave_idx_type *piz = iz.fortran_vec ();
Quentin Spencer b5e3b1
 
Quentin Spencer b5e3b1
 		      F77_XFCN (dgbcon, DGBCON, 
Quentin Spencer b5e3b1
 		      	(F77_CONST_CHAR_ARG2 (&job, 1),
Quentin Spencer b5e3b1
@@ -4678,7 +4678,7 @@
Quentin Spencer b5e3b1
 		      Array<double> z (3 * nr);
Quentin Spencer b5e3b1
 		      double *pz = z.fortran_vec ();
Quentin Spencer b5e3b1
 		      Array<octave_idx_type> iz (nr);
Quentin Spencer b5e3b1
-		      int *piz = iz.fortran_vec ();
Quentin Spencer b5e3b1
+		      octave_idx_type *piz = iz.fortran_vec ();
Quentin Spencer b5e3b1
 
Quentin Spencer b5e3b1
 		      F77_XFCN (dpbcon, DGBCON, 
Quentin Spencer b5e3b1
 		      	(F77_CONST_CHAR_ARG2 (&job, 1),
Quentin Spencer b5e3b1
@@ -4851,7 +4851,7 @@
Quentin Spencer b5e3b1
 		      Array<double> z (3 * nr);
Quentin Spencer b5e3b1
 		      double *pz = z.fortran_vec ();
Quentin Spencer b5e3b1
 		      Array<octave_idx_type> iz (nr);
Quentin Spencer b5e3b1
-		      int *piz = iz.fortran_vec ();
Quentin Spencer b5e3b1
+		      octave_idx_type *piz = iz.fortran_vec ();
Quentin Spencer b5e3b1
 
Quentin Spencer b5e3b1
 		      F77_XFCN (dgbcon, DGBCON, 
Quentin Spencer b5e3b1
 		      	(F77_CONST_CHAR_ARG2 (&job, 1),
Quentin Spencer b5e3b1
@@ -5031,7 +5031,7 @@
Quentin Spencer b5e3b1
 		      Array<double> z (3 * nr);
Quentin Spencer b5e3b1
 		      double *pz = z.fortran_vec ();
Quentin Spencer b5e3b1
 		      Array<octave_idx_type> iz (nr);
Quentin Spencer b5e3b1
-		      int *piz = iz.fortran_vec ();
Quentin Spencer b5e3b1
+		      octave_idx_type *piz = iz.fortran_vec ();
Quentin Spencer b5e3b1
 
Quentin Spencer b5e3b1
 		      F77_XFCN (dpbcon, DGBCON, 
Quentin Spencer b5e3b1
 		      	(F77_CONST_CHAR_ARG2 (&job, 1),
Quentin Spencer b5e3b1
@@ -5208,7 +5208,7 @@
Quentin Spencer b5e3b1
 		      Array<double> z (3 * nr);
Quentin Spencer b5e3b1
 		      double *pz = z.fortran_vec ();
Quentin Spencer b5e3b1
 		      Array<octave_idx_type> iz (nr);
Quentin Spencer b5e3b1
-		      int *piz = iz.fortran_vec ();
Quentin Spencer b5e3b1
+		      octave_idx_type *piz = iz.fortran_vec ();
Quentin Spencer b5e3b1
 
Quentin Spencer b5e3b1
 		      F77_XFCN (dpbcon, DGBCON, 
Quentin Spencer b5e3b1
 		      	(F77_CONST_CHAR_ARG2 (&job, 1),
Quentin Spencer b5e3b1
@@ -5379,7 +5379,7 @@
Quentin Spencer b5e3b1
 		      Array<double> z (3 * nr);
Quentin Spencer b5e3b1
 		      double *pz = z.fortran_vec ();
Quentin Spencer b5e3b1
 		      Array<octave_idx_type> iz (nr);
Quentin Spencer b5e3b1
-		      int *piz = iz.fortran_vec ();
Quentin Spencer b5e3b1
+		      octave_idx_type *piz = iz.fortran_vec ();
Quentin Spencer b5e3b1
 
Quentin Spencer b5e3b1
 		      F77_XFCN (dpbcon, DGBCON, 
Quentin Spencer b5e3b1
 		      	(F77_CONST_CHAR_ARG2 (&job, 1),
Quentin Spencer b5e3b1
@@ -5586,7 +5586,7 @@
Quentin Spencer b5e3b1
 		      Array<double> z (3 * nr);
Quentin Spencer b5e3b1
 		      double *pz = z.fortran_vec ();
Quentin Spencer b5e3b1
 		      Array<octave_idx_type> iz (nr);
Quentin Spencer b5e3b1
-		      int *piz = iz.fortran_vec ();
Quentin Spencer b5e3b1
+		      octave_idx_type *piz = iz.fortran_vec ();
Quentin Spencer b5e3b1
 
Quentin Spencer b5e3b1
 		      F77_XFCN (dgbcon, DGBCON, 
Quentin Spencer b5e3b1
 		      	(F77_CONST_CHAR_ARG2 (&job, 1),
Quentin Spencer b5e3b1
Index: src/ov-cell.cc
Quentin Spencer b5e3b1
===================================================================
Quentin Spencer b5e3b1
RCS file: /cvs/octave/src/ov-cell.cc,v
Quentin Spencer b5e3b1
retrieving revision 1.58
Quentin Spencer b5e3b1
diff -u -r1.58 ov-cell.cc
Quentin Spencer b5e3b1
--- src/ov-cell.cc	24 Mar 2006 16:42:44 -0000	1.58
Quentin Spencer b5e3b1
+++ src/ov-cell.cc	24 Mar 2006 19:14:32 -0000
Quentin Spencer b5e3b1
@@ -783,10 +783,12 @@
Quentin Spencer b5e3b1
   
Quentin Spencer b5e3b1
   for (octave_idx_type i = 0; i < dv.numel (); i++)
Quentin Spencer b5e3b1
     {
Quentin Spencer b5e3b1
-      char s[20];
Quentin Spencer b5e3b1
-      sprintf (s, "_%d", i);
Quentin Spencer b5e3b1
+      OSSTREAM buf;
Quentin Spencer b5e3b1
+      buf << "_" << i << OSSTREAM_ENDS;
Quentin Spencer b5e3b1
+      std::string s = OSSTREAM_STR (buf);
Quentin Spencer b5e3b1
+      OSSTREAM_FREEZE (buf);
Quentin Spencer b5e3b1
 
Quentin Spencer b5e3b1
-      if (! add_hdf5_data(data_hid, tmp.elem (i), s, "", false,
Quentin Spencer b5e3b1
+      if (! add_hdf5_data(data_hid, tmp.elem (i), s.c_str (), "", false,
Quentin Spencer b5e3b1
 			  save_as_floats))
Quentin Spencer b5e3b1
 	{
Quentin Spencer b5e3b1
 	  H5Gclose (data_hid);
Quentin Spencer b5e3b1
Index: src/ov-list.cc
Quentin Spencer b5e3b1
===================================================================
Quentin Spencer b5e3b1
RCS file: /cvs/octave/src/ov-list.cc,v
Quentin Spencer b5e3b1
retrieving revision 1.44
Quentin Spencer b5e3b1
diff -u -r1.44 ov-list.cc
Quentin Spencer b5e3b1
--- src/ov-list.cc	26 Apr 2005 19:24:33 -0000	1.44
Quentin Spencer b5e3b1
+++ src/ov-list.cc	24 Mar 2006 19:14:32 -0000
Quentin Spencer b5e3b1
@@ -536,9 +536,13 @@
Quentin Spencer b5e3b1
   for (int i = 0; i < lst.length (); ++i)
Quentin Spencer b5e3b1
     {
Quentin Spencer b5e3b1
       // should we use lst.name_tags () to label the elements?
Quentin Spencer b5e3b1
-      char s[20];
Quentin Spencer b5e3b1
-      sprintf (s, "_%d", i);
Quentin Spencer b5e3b1
-      bool b = save_ascii_data (os, lst (i), s, infnan_warned, 
Quentin Spencer b5e3b1
+
Quentin Spencer b5e3b1
+      OSSTREAM buf;
Quentin Spencer b5e3b1
+      buf << "_" << i << OSSTREAM_ENDS;
Quentin Spencer b5e3b1
+      std::string s = OSSTREAM_STR (buf);
Quentin Spencer b5e3b1
+      OSSTREAM_FREEZE (buf);
Quentin Spencer b5e3b1
+
Quentin Spencer b5e3b1
+      bool b = save_ascii_data (os, lst (i), s.c_str (), infnan_warned, 
Quentin Spencer b5e3b1
 				strip_nan_and_inf, 0, 0);
Quentin Spencer b5e3b1
       
Quentin Spencer b5e3b1
       if (! b)
Quentin Spencer b5e3b1
@@ -607,11 +611,15 @@
Quentin Spencer b5e3b1
   for (int i = 0; i < lst.length (); i++)
Quentin Spencer b5e3b1
     {
Quentin Spencer b5e3b1
       // should we use lst.name_tags () to label the elements?
Quentin Spencer b5e3b1
-      char s[20];
Quentin Spencer b5e3b1
-      sprintf (s, "_%d", i);
Quentin Spencer b5e3b1
+
Quentin Spencer b5e3b1
+      OSSTREAM buf;
Quentin Spencer b5e3b1
+      buf << "_" << i << OSSTREAM_ENDS;
Quentin Spencer b5e3b1
+      std::string s = OSSTREAM_STR (buf);
Quentin Spencer b5e3b1
+      OSSTREAM_FREEZE (buf);
Quentin Spencer b5e3b1
 
Quentin Spencer b5e3b1
       // Recurse to print sub-value.
Quentin Spencer b5e3b1
-      bool b = save_binary_data (os, lst(i), s, "", 0, save_as_floats);
Quentin Spencer b5e3b1
+      bool b = save_binary_data (os, lst(i), s.c_str (), "", 0,
Quentin Spencer b5e3b1
+				 save_as_floats);
Quentin Spencer b5e3b1
 	      
Quentin Spencer b5e3b1
       if (! b)
Quentin Spencer b5e3b1
 	return false;
Quentin Spencer b5e3b1
@@ -683,9 +691,13 @@
Quentin Spencer b5e3b1
   for (octave_idx_type i = 0; i < lst.length (); ++i)
Quentin Spencer b5e3b1
     {
Quentin Spencer b5e3b1
       // should we use lst.name_tags () to label the elements?
Quentin Spencer b5e3b1
-      char s[20];
Quentin Spencer b5e3b1
-      sprintf (s, "_%d", i);
Quentin Spencer b5e3b1
-      bool retval2 = add_hdf5_data (data_hid, lst (i), s, "",
Quentin Spencer b5e3b1
+
Quentin Spencer b5e3b1
+      OSSTREAM buf;
Quentin Spencer b5e3b1
+      buf << "_" << i << OSSTREAM_ENDS;
Quentin Spencer b5e3b1
+      std::string s = OSSTREAM_STR (buf);
Quentin Spencer b5e3b1
+      OSSTREAM_FREEZE (buf);
Quentin Spencer b5e3b1
+
Quentin Spencer b5e3b1
+      bool retval2 = add_hdf5_data (data_hid, lst (i), s.c_str (), "",
Quentin Spencer b5e3b1
 				    false, save_as_floats);
Quentin Spencer b5e3b1
       if (! retval2)
Quentin Spencer b5e3b1
 	break;
Quentin Spencer b5e3b1
Index: src/DLD-FUNCTIONS/spchol.cc
Quentin Spencer b5e3b1
===================================================================
Quentin Spencer b5e3b1
RCS file: /cvs/octave/src/DLD-FUNCTIONS/spchol.cc,v
Quentin Spencer b5e3b1
retrieving revision 1.7
Quentin Spencer b5e3b1
diff -u -r1.7 spchol.cc
Quentin Spencer b5e3b1
--- src/DLD-FUNCTIONS/spchol.cc	22 Mar 2006 22:58:12 -0000	1.7
Quentin Spencer b5e3b1
+++ src/DLD-FUNCTIONS/spchol.cc	24 Mar 2006 19:55:38 -0000
Quentin Spencer b5e3b1
@@ -607,7 +607,7 @@
Quentin Spencer b5e3b1
 	  for (octave_idx_type k = 0 ; k < n ; k++)
Quentin Spencer b5e3b1
 	    {
Quentin Spencer b5e3b1
 	      // get the kth row of L and store in the columns of L
Quentin Spencer b5e3b1
-	      cholmod_row_subtree (A1, A2, k, Parent, R, cm) ;
Quentin Spencer b5e3b1
+	      CHOLMOD_NAME (row_subtree) (A1, A2, k, Parent, R, cm) ;
Quentin Spencer b5e3b1
 	      for (octave_idx_type p = 0 ; p < Rp [1] ; p++)
Quentin Spencer b5e3b1
 		L.xridx (W [Ri [p]]++) = k ;