Mercurial > hg > octave-lyh

diff src/ov-scalar.h @ 5110:ea96466f98ea
[project @ 2005-01-19 02:11:53 by jwe]
author: jwe
date: Wed, 19 Jan 2005 02:11:53 +0000
parents: e35b034d3523
children: 23b37da9fd5b
--- a/src/ov-scalar.h
+++ b/src/ov-scalar.h
@@ -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; }