Mercurial > octave

changeset 3548:ab7fa5a8f23f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2000-02-03 01:17:15 by jwe]
author jwe
date Thu, 03 Feb 2000 01:17:21 +0000
parents 975398bed659
children 03025e79d8b9
files src/ChangeLog src/DLD-FUNCTIONS/balance.cc src/DLD-FUNCTIONS/besselj.cc src/DLD-FUNCTIONS/chol.cc src/DLD-FUNCTIONS/det.cc src/DLD-FUNCTIONS/eig.cc src/DLD-FUNCTIONS/expm.cc src/DLD-FUNCTIONS/gammainc.cc src/DLD-FUNCTIONS/givens.cc src/DLD-FUNCTIONS/hess.cc src/DLD-FUNCTIONS/inv.cc src/DLD-FUNCTIONS/log.cc src/DLD-FUNCTIONS/lu.cc src/DLD-FUNCTIONS/qr.cc src/DLD-FUNCTIONS/schur.cc src/DLD-FUNCTIONS/svd.cc src/DLD-FUNCTIONS/syl.cc src/error.cc src/load-save.cc src/oct-stream.cc src/ov-fcn.cc src/ov-struct.cc src/pr-output.cc src/symtab.cc src/token.h src/variables.cc
diffstat 26 files changed, 67 insertions(+), 42 deletions(-) [+]
line wrap: on
line diff
--- a/src/ChangeLog	Wed Feb 02 22:51:11 2000 +0000
+++ b/src/ChangeLog	Thu Feb 03 01:17:21 2000 +0000
@@ -1,5 +1,26 @@
 2000-02-02  John W. Eaton  <jwe@bevo.che.wisc.edu>
 
+	* variables.cc (F__dump_symbol_info__): Fix continuation char.
+	* DLD-FUNCTIONS/besselj.cc (Fairy, Fbesselj): Likewise.
+	* DLD-FUNCTIONS/chol.cc (Fchol): Likewise.
+	* DLD-FUNCTIONS/det.cc (Fdet): Likewise.
+	* DLD-FUNCTIONS/eig.cc (Feig): Likewise.
+	* DLD-FUNCTIONS/gammainc.cc (gammainc): Likewise.
+	* DLD-FUNCTIONS/givens.cc (givens): Likewise.
+	* DLD-FUNCTIONS/hess.cc (hess): Likewise.
+	* DLD-FUNCTIONS/inv.cc (inv): Likewise.
+	* DLD-FUNCTIONS/log.cc (logm): Likewise.
+	* DLD-FUNCTIONS/lu.cc (lu): Likewise.
+	* DLD-FUNCTIONS/qr.cc (qr): Likewise.
+	* DLD-FUNCTIONS/schur.cc (schur): Likewise.
+	* DLD-FUNCTIONS/balance.cc (balance): Likewise.
+	* DLD-FUNCTIONS/svd.cc (svd): Likewise.
+	* DLD-FUNCTIONS/syl.cc (syl): Likewise.
+	* DLD-FUNCTIONS/expm.cc (Fexpm): Likewise.
+
+	* token.h (token::token_type, token::end_tok_type,
+	token::plot_tok_type): Delete extraneous comma from enum decls.
+
 	* pt-idx.cc (tree_index_expression::tree_index_expression):
 	Delete default arg values.
 
--- a/src/DLD-FUNCTIONS/balance.cc	Wed Feb 02 22:51:11 2000 +0000
+++ b/src/DLD-FUNCTIONS/balance.cc	Thu Feb 03 01:17:21 2000 +0000
@@ -62,7 +62,7 @@
 }
 
 DEFUN_DLD (balance, args, nargout,
-  "-*- texinfo -*-
+  "-*- texinfo -*-\n\
 @deftypefn {Loadable Function} {@var{aa} =} balance (@var{a}, @var{opt})\n\
 @deftypefnx {Loadable Function} {[@var{dd}, @var{aa}] =} balance (@var{a}, @var{opt})\n\
 @deftypefnx {Loadable Function} {[@var{cc}, @var{dd}, @var{aa}, @var{bb}] =} balance (@var{a}, @var{b}, @var{opt})\n\
--- a/src/DLD-FUNCTIONS/besselj.cc	Wed Feb 02 22:51:11 2000 +0000
+++ b/src/DLD-FUNCTIONS/besselj.cc	Thu Feb 03 01:17:21 2000 +0000
@@ -273,7 +273,7 @@
 \n\
 If requested, @var{ierr} contains the following status information\n\
 and is the same size as the result.\n\
-\n
+\n\
 @enumerate 0\n\
 @item\n\
 Normal return.\n\
@@ -390,7 +390,7 @@
 \n\
 If requested, @var{ierr} contains the following status information and\n\
 is the same size as the result.\n\
-\n
+\n\
 @enumerate 0\n\
 @item\n\
 Normal return.\n\
--- a/src/DLD-FUNCTIONS/chol.cc	Wed Feb 02 22:51:11 2000 +0000
+++ b/src/DLD-FUNCTIONS/chol.cc	Thu Feb 03 01:17:21 2000 +0000
@@ -34,7 +34,7 @@
 #include "utils.h"
 
 DEFUN_DLD (chol, args, nargout,
-  "-*- texinfo -*-
+  "-*- texinfo -*-\n\
 @deftypefn {Loadable Function} {} chol (@var{a})\n\
 @cindex Cholesky factorization\n\
 Compute the Cholesky factor, @var{r}, of the symmetric positive definite\n\
--- a/src/DLD-FUNCTIONS/det.cc	Wed Feb 02 22:51:11 2000 +0000
+++ b/src/DLD-FUNCTIONS/det.cc	Thu Feb 03 01:17:21 2000 +0000
@@ -34,7 +34,7 @@
 #include "utils.h"
 
 DEFUN_DLD (det, args, ,
-  "-*- texinfo -*-
+  "-*- texinfo -*-\n\
 @deftypefn {Loadable Function} {} det (@var{a})\n\
 Compute the determinant of @var{a} using @sc{Linpack}.\n\
 @end deftypefn")
--- a/src/DLD-FUNCTIONS/eig.cc	Wed Feb 02 22:51:11 2000 +0000
+++ b/src/DLD-FUNCTIONS/eig.cc	Thu Feb 03 01:17:21 2000 +0000
@@ -33,7 +33,7 @@
 #include "utils.h"
 
 DEFUN_DLD (eig, args, nargout,
-  "-*- texinfo -*-
+  "-*- texinfo -*-\n\
 @deftypefn {Loadable Function} {@var{lambda} =} eig (@var{a})\n\
 @deftypefnx {Loadable Function} {[@var{v}, @var{lambda}] =} eig (@var{a})\n\
 The eigenvalues (and eigenvectors) of a matrix are computed in a several\n\
--- a/src/DLD-FUNCTIONS/expm.cc	Wed Feb 02 22:51:11 2000 +0000
+++ b/src/DLD-FUNCTIONS/expm.cc	Thu Feb 03 01:17:21 2000 +0000
@@ -33,7 +33,7 @@
 #include "utils.h"
 
 DEFUN_DLD (expm, args, ,
-  "-*- texinfo -*-
+  "-*- texinfo -*-\n\
 @deftypefn {Loadable Function} {} expm (@var{a})\n\
 Return the exponential of a matrix, defined as the infinite Taylor\n\
 series\n\
--- a/src/DLD-FUNCTIONS/gammainc.cc	Wed Feb 02 22:51:11 2000 +0000
+++ b/src/DLD-FUNCTIONS/gammainc.cc	Thu Feb 03 01:17:21 2000 +0000
@@ -33,7 +33,7 @@
 #include "utils.h"
 
 DEFUN_DLD (gammainc, args, ,
-  "-*- texinfo -*-
+  "-*- texinfo -*-\n\
 @deftypefn {Mapping Function} {} gammainc (@var{x}, @var{a})\n\
 Computes the incomplete gamma function,\n\
 @iftex\n\
--- a/src/DLD-FUNCTIONS/givens.cc	Wed Feb 02 22:51:11 2000 +0000
+++ b/src/DLD-FUNCTIONS/givens.cc	Thu Feb 03 01:17:21 2000 +0000
@@ -31,7 +31,7 @@
 #include "oct-obj.h"
 
 DEFUN_DLD (givens, args, nargout,
-  "-*- texinfo -*-
+  "-*- texinfo -*-\n\
 @deftypefn {Loadable Function} {@var{g} =} givens (@var{x}, @var{y})\n\
 @deftypefnx {Loadable Function} {[@var{c}, @var{s}] =} givens (@var{x}, @var{y})\n\
 @iftex\n\
--- a/src/DLD-FUNCTIONS/hess.cc	Wed Feb 02 22:51:11 2000 +0000
+++ b/src/DLD-FUNCTIONS/hess.cc	Thu Feb 03 01:17:21 2000 +0000
@@ -34,7 +34,7 @@
 #include "utils.h"
 
 DEFUN_DLD (hess, args, nargout,
-  "-*- texinfo -*-
+  "-*- texinfo -*-\n\
 @deftypefn {Loadable Function} {@var{h} =} hess (@var{a})\n\
 @deftypefnx {Loadable Function} {[@var{p}, @var{h}] =} hess (@var{a})\n\
 @cindex Hessenberg decomposition\n\
--- a/src/DLD-FUNCTIONS/inv.cc	Wed Feb 02 22:51:11 2000 +0000
+++ b/src/DLD-FUNCTIONS/inv.cc	Thu Feb 03 01:17:21 2000 +0000
@@ -31,7 +31,7 @@
 #include "utils.h"
 
 DEFUN_DLD (inv, args, ,
-  "-*- texinfo -*-
+  "-*- texinfo -*-\n\
 @deftypefn {Loadable Function} {} inv (@var{a})\n\
 @deftypefnx {Loadable Function} {} inverse (@var{a})\n\
 Compute the inverse of the square matrix @var{a}.\n\
--- a/src/DLD-FUNCTIONS/log.cc	Wed Feb 02 22:51:11 2000 +0000
+++ b/src/DLD-FUNCTIONS/log.cc	Thu Feb 03 01:17:21 2000 +0000
@@ -36,7 +36,7 @@
 // one...
 
 DEFUN_DLD (logm, args, ,
-  "-*- texinfo -*-
+  "-*- texinfo -*-\n\
 @deftypefn {Loadable Function} {} logm (@var{a})\n\
 Compute the matrix logarithm of the square matrix @var{a}.  Note that\n\
 this is currently implemented in terms of an eigenvalue expansion and\n\
--- a/src/DLD-FUNCTIONS/lu.cc	Wed Feb 02 22:51:11 2000 +0000
+++ b/src/DLD-FUNCTIONS/lu.cc	Thu Feb 03 01:17:21 2000 +0000
@@ -34,7 +34,7 @@
 #include "utils.h"
 
 DEFUN_DLD (lu, args, nargout,
-  "-*- texinfo -*-
+  "-*- texinfo -*-\n\
 @deftypefn {Loadable Function} {[@var{l}, @var{u}, @var{p}] =} lu (@var{a})\n\
 @cindex LU decomposition\n\
 Compute the LU decomposition of @var{a}, using subroutines from\n\
--- a/src/DLD-FUNCTIONS/qr.cc	Wed Feb 02 22:51:11 2000 +0000
+++ b/src/DLD-FUNCTIONS/qr.cc	Thu Feb 03 01:17:21 2000 +0000
@@ -53,7 +53,7 @@
 // that R = triu (qr (X))
 
 DEFUN_DLD (qr, args, nargout,
-  "-*- texinfo -*-
+  "-*- texinfo -*-\n\
 @deftypefn {Loadable Function} {[@var{q}, @var{r}, @var{p}] =} qr (@var{a})\n\
 @cindex QR factorization\n\
 Compute the QR factorization of @var{a}, using standard @sc{Lapack}\n\
--- a/src/DLD-FUNCTIONS/schur.cc	Wed Feb 02 22:51:11 2000 +0000
+++ b/src/DLD-FUNCTIONS/schur.cc	Thu Feb 03 01:17:21 2000 +0000
@@ -36,7 +36,7 @@
 #include "utils.h"
 
 DEFUN_DLD (schur, args, nargout,
-  "-*- texinfo -*-
+  "-*- texinfo -*-\n\
 @deftypefn {Loadable Function} {@var{s} =} schur (@var{a})\n\
 @deftypefnx {Loadable Function} {[@var{u}, @var{s}] =} schur (@var{a}, @var{opt})\n\
 @cindex Schur decomposition\n\
--- a/src/DLD-FUNCTIONS/svd.cc	Wed Feb 02 22:51:11 2000 +0000
+++ b/src/DLD-FUNCTIONS/svd.cc	Thu Feb 03 01:17:21 2000 +0000
@@ -35,7 +35,7 @@
 #include "utils.h"
 
 DEFUN_DLD (svd, args, nargout,
-  "-*- texinfo -*-
+  "-*- texinfo -*-\n\
 @deftypefn {Loadable Function} {@var{s} =} svd (@var{a})\n\
 @deftypefnx {Loadable Function} {[@var{u}, @var{s}, @var{v}] =} svd (@var{a})\n\
 @cindex singular value decomposition\n\
--- a/src/DLD-FUNCTIONS/syl.cc	Wed Feb 02 22:51:11 2000 +0000
+++ b/src/DLD-FUNCTIONS/syl.cc	Thu Feb 03 01:17:21 2000 +0000
@@ -33,7 +33,7 @@
 #include "utils.h"
 
 DEFUN_DLD (syl, args, nargout,
-  "-*- texinfo -*-
+  "-*- texinfo -*-\n\
 @deftypefn {Loadable Function} {@var{x} =} syl (@var{a}, @var{b}, @var{c})\n\
 Solve the Sylvester equation\n\
 @iftex\n\
--- a/src/error.cc	Wed Feb 02 22:51:11 2000 +0000
+++ b/src/error.cc	Thu Feb 03 01:17:21 2000 +0000
@@ -103,7 +103,7 @@
 
       if (! error_message_buffer)
 	{
-	  error_message_buffer = new ostrstream;
+	  error_message_buffer = new std::ostrstream;
 
 	  // XXX FIXME XXX -- this is ugly, but it prevents
 	  //
--- a/src/load-save.cc	Wed Feb 02 22:51:11 2000 +0000
+++ b/src/load-save.cc	Thu Feb 03 01:17:21 2000 +0000
@@ -1631,11 +1631,11 @@
 			      << "====               ====   ====   ====\n";
 
 			  output_buf
-			    << setiosflags (std::ios::left)
-			    << setw (16) << tc.type_name () . c_str ()
-			    << setiosflags (std::ios::right)
-			    << setw (7) << tc.rows ()
-			    << setw (7) << tc.columns ()
+			    << std::setiosflags (std::ios::left)
+			    << std::setw (16) << tc.type_name () . c_str ()
+			    << std::setiosflags (std::ios::right)
+			    << std::setw (7) << tc.rows ()
+			    << std::setw (7) << tc.columns ()
 			    << "   ";
 			}
 		      output_buf << name << "\n";
--- a/src/oct-stream.cc	Wed Feb 02 22:51:11 2000 +0000
+++ b/src/oct-stream.cc	Thu Feb 03 01:17:21 2000 +0000
@@ -1130,7 +1130,7 @@
 	} \
       else \
 	{ \
-	  ostrstream buf; \
+	  std::ostrstream buf; \
  \
 	  int c = EOF; \
  \
@@ -1171,7 +1171,7 @@
 	} \
       else \
 	{ \
-	  ostrstream buf; \
+	  std::ostrstream buf; \
  \
 	  std::string char_class = elt->char_class; \
  \
--- a/src/ov-fcn.cc	Wed Feb 02 22:51:11 2000 +0000
+++ b/src/ov-fcn.cc	Thu Feb 03 01:17:21 2000 +0000
@@ -37,6 +37,7 @@
 octave_function::clone (void)
 {
   panic_impossible ();
+  return 0;
 }
 
 /*
--- a/src/ov-struct.cc	Wed Feb 02 22:51:11 2000 +0000
+++ b/src/ov-struct.cc	Thu Feb 03 01:17:21 2000 +0000
@@ -46,6 +46,7 @@
 				       bool silent)
 {
   // XXX DO_ME XXX
+  return octave_value ();
 }
 
 octave_value
--- a/src/pr-output.cc	Wed Feb 02 22:51:11 2000 +0000
+++ b/src/pr-output.cc	Thu Feb 03 01:17:21 2000 +0000
@@ -984,12 +984,12 @@
 	      || flt_fmt == oct_mach_info::unknown)
 	    {
 	      for (size_t i = 0; i < sizeof (double); i++)
-		os << setw (2) << static_cast<int> (tmp.i[i]);
+		os << std::setw (2) << static_cast<int> (tmp.i[i]);
 	    }
 	  else
 	    {
 	      for (int i = sizeof (double) - 1; i >= 0; i--)
-		os << setw (2) << static_cast<int> (tmp.i[i]);
+		os << std::setw (2) << static_cast<int> (tmp.i[i]);
 	    }
 
 	  os.fill (ofill);
@@ -1039,14 +1039,14 @@
 	    s = "Inf";
 
 	  if (fw > 0)
-	    os << setw (fw) << s;
+	    os << std::setw (fw) << s;
 	  else
 	    os << s;
 	}
       else if (xisnan (d))
 	{
 	  if (fw > 0)
-	    os << setw (fw) << "NaN";
+	    os << std::setw (fw) << "NaN";
 	  else
 	    os << "NaN";
 	}
@@ -1139,7 +1139,7 @@
 
       int num_cols = lim - col;
 
-      os << setw (extra_indent) << "";
+      os << std::setw (extra_indent) << "";
 
       if (num_cols == 1)
 	os << " Column " << col + 1 << ":\n";
@@ -1295,7 +1295,7 @@
 
 	      for (int i = 0; i < nr; i++)
 		{
-		  os << setw (extra_indent) << "";
+		  os << std::setw (extra_indent) << "";
 
 		  for (int j = col; j < lim; j++)
 		    {
@@ -1467,7 +1467,7 @@
 
 	      for (int i = 0; i < nr; i++)
 		{
-		  os << setw (extra_indent) << "";
+		  os << std::setw (extra_indent) << "";
 
 		  for (int j = col; j < lim; j++)
 		    {
@@ -1570,7 +1570,7 @@
 	      pr_col_num_header (os, total_width, max_width, lim, col,
 				 extra_indent);
 
-	      os << setw (extra_indent) << "";
+	      os << std::setw (extra_indent) << "";
 
 	      for (int i = col; i < lim; i++)
 		{
--- a/src/symtab.cc	Wed Feb 02 22:51:11 2000 +0000
+++ b/src/symtab.cc	Thu Feb 03 01:17:21 2000 +0000
@@ -453,9 +453,10 @@
      << (hides_fcn () ? "f" : (hides_builtin () ? "F" : "-"))
 #endif
      << "  "
-     << setiosflags (std::ios::left) << setw (24) << type_name () . c_str ();
+     << std::setiosflags (std::ios::left) << std::setw (24)
+     << type_name () . c_str ();
 
-  os << resetiosflags (std::ios::left);
+  os << std::resetiosflags (std::ios::left);
 
   int nr = rows ();
   int nc = columns ();
@@ -463,14 +464,14 @@
   if (nr < 0)
     os << "      -";
   else
-    os << setiosflags (std::ios::right) << setw (7) << nr;
+    os << std::setiosflags (std::ios::right) << std::setw (7) << nr;
 
   if (nc < 0)
     os << "      -";
   else
-    os << setiosflags (std::ios::right) << setw (7) << nc;
+    os << std::setiosflags (std::ios::right) << std::setw (7) << nc;
 
-  os << resetiosflags (std::ios::right);
+  os << std::resetiosflags (std::ios::right);
 
   os << "  " << name () << "\n";
 }
--- a/src/token.h	Wed Feb 02 22:51:11 2000 +0000
+++ b/src/token.h	Thu Feb 03 01:17:21 2000 +0000
@@ -35,6 +35,7 @@
 token
 {
 public:
+
   enum token_type
     {
       generic_token,
@@ -42,7 +43,7 @@
       double_token,
       ettype_token,
       pttype_token,
-      sym_rec_token,
+      sym_rec_token
     };
 
   enum end_tok_type
@@ -54,14 +55,14 @@
       switch_end,
       while_end,
       try_catch_end,
-      unwind_protect_end,
+      unwind_protect_end
     };
 
   enum plot_tok_type
     {
       replot = 1,
       two_dee = 2,
-      three_dee = 3,
+      three_dee = 3
     };
 
   token (int l = -1, int c = -1);
--- a/src/variables.cc	Wed Feb 02 22:51:11 2000 +0000
+++ b/src/variables.cc	Thu Feb 03 01:17:21 2000 +0000
@@ -1256,7 +1256,7 @@
 DEFUN (__dump_symbol_info__, args, ,
   "-*- texinfo -*-\n\
 @deftypefn {Built-in Function} {} __dump_symbol_info__ (@var{name})\n\
-Print symbol table information for the symbol @var{name}.
+Print symbol table information for the symbol @var{name}.\n\
 @end deftypefn")
 {
   octave_value_list retval;