Mercurial > hg > octave-nkf

diff src/ov-bool-mat.cc @ 4455:abbf63293766

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2003-07-11 01:01:16 by jwe]
author jwe
date Fri, 11 Jul 2003 01:01:17 +0000
parents 5719210fff4c
children d7d9ca19960a
line wrap: on
line diff
--- a/src/ov-bool-mat.cc
+++ b/src/ov-bool-mat.cc
@@ -90,9 +90,15 @@
 {
   double retval = lo_ieee_nan_value ();
 
-  if ((rows () == 1 && columns () == 1)
-      || (Vdo_fortran_indexing && rows () > 0 && columns () > 0))
-    retval = matrix (0, 0);
+  // XXX FIXME XXX -- maybe this should be a function, valid_as_scalar()
+  if (rows () > 0 && columns () > 0)
+    {
+      // XXX FIXME XXX -- is warn_fortran_indexing the right variable here?
+      if (Vwarn_fortran_indexing)
+	gripe_implicit_conversion ("bool matrix", "real scalar");
+
+      retval = matrix (0, 0);
+    }
   else
     gripe_invalid_conversion ("bool matrix", "real scalar");
 
@@ -106,9 +112,15 @@
 
   Complex retval (tmp, tmp);
 
-  if ((rows () == 1 && columns () == 1)
-      || (Vdo_fortran_indexing && rows () > 0 && columns () > 0))
-    retval = matrix (0, 0);
+  // XXX FIXME XXX -- maybe this should be a function, valid_as_scalar()
+  if (rows () > 0 && columns () > 0)
+    {
+      // XXX FIXME XXX -- is warn_fortran_indexing the right variable here?
+      if (Vwarn_fortran_indexing)
+	gripe_implicit_conversion ("bool matrix", "complex scalar");
+
+      retval = matrix (0, 0);
+    }
   else
     gripe_invalid_conversion ("bool matrix", "complex scalar");