Mercurial > hg > octave-nkf

diff liboctave/array/CMatrix.cc @ 19605:a0c7001cf1a8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
consistent messages and IDs for singular matrix warnings * lo-array-gripes.cc, lo-array-gripes.h (gripe_singular_matrix, warning_id_nearly_singular_matrix, warning_id_singular_matrix): New warning function and ID strings. * inv.cc, sparse-xdiv.cc, xdiv.cc, CMatrix.cc, CSparse.cc, dMatrix.cc, dSparse.cc, fCMatrix.cc, fMatrix.cc: Use gripe_singular_matrix instead of individual calls to warning. * warning_ids.m: Update list of IDs. * NEWS note change.
author John W. Eaton <jwe@octave.org>
date Wed, 17 Dec 2014 21:56:17 -0500
parents 385499581a5e
children aee5fea8a03e
line wrap: on
line diff
--- a/liboctave/array/CMatrix.cc
+++ b/liboctave/array/CMatrix.cc
@@ -1986,9 +1986,7 @@
                       if (sing_handler)
                         sing_handler (rcon);
                       else
-                        (*current_liboctave_error_handler)
-                          ("matrix singular to machine precision, rcond = %g",
-                           rcon);
+                        gripe_singular_matrix (rcon);
                     }
                 }
 
@@ -2087,9 +2085,7 @@
                       if (sing_handler)
                         sing_handler (rcon);
                       else
-                        (*current_liboctave_error_handler)
-                          ("matrix singular to machine precision, rcond = %g",
-                           rcon);
+                        gripe_singular_matrix (rcon);
                     }
                 }
 
@@ -2193,9 +2189,7 @@
                       if (sing_handler)
                         sing_handler (rcon);
                       else
-                        (*current_liboctave_error_handler)
-                          ("matrix singular to machine precision, rcond = %g",
-                           rcon);
+                        gripe_singular_matrix (rcon);
                     }
                 }
 
@@ -2250,8 +2244,7 @@
               if (sing_handler)
                 sing_handler (rcon);
               else
-                (*current_liboctave_error_handler)
-                  ("matrix singular to machine precision");
+                gripe_singular_matrix ();
 
               mattype.mark_as_rectangular ();
             }
@@ -2279,9 +2272,7 @@
                       if (sing_handler)
                         sing_handler (rcon);
                       else
-                        (*current_liboctave_error_handler)
-                          ("matrix singular to machine precision, rcond = %g",
-                           rcon);
+                        gripe_singular_matrix (rcon);
                     }
                 }