Mercurial > octave-nkf

diff src/ov-scalar.h @ 5110:ea96466f98ea

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2005-01-19 02:11:53 by jwe]
author jwe
date Wed, 19 Jan 2005 02:11:53 +0000
parents e35b034d3523
children 23b37da9fd5b
line wrap: on
line diff
--- a/src/ov-scalar.h	Tue Jan 18 20:17:53 2005 +0000
+++ b/src/ov-scalar.h	Wed Jan 19 02:11:53 2005 +0000
@@ -28,6 +28,7 @@
 #include <iostream>
 #include <string>
 
+#include "lo-ieee.h"
 #include "lo-mappers.h"
 #include "lo-utils.h"
 #include "mx-base.h"
@@ -73,6 +74,9 @@
 
   idx_vector index_vector (void) const { return idx_vector (scalar); }
 
+  octave_value any (int = 0) const
+    { return (scalar != 0 && ! lo_ieee_isnan (scalar)); }
+
   bool is_real_scalar (void) const { return true; }
 
   bool is_real_type (void) const { return true; }