diff liboctave/chNDArray.cc @ 4556:773a21e4fce8

[project @ 2003-10-28 05:02:10 by jwe]
author jwe
date Tue, 28 Oct 2003 05:02:10 +0000
parents 01ee68d18069
children 742993a501b9
line wrap: on
line diff
--- a/liboctave/chNDArray.cc
+++ b/liboctave/chNDArray.cc
@@ -37,38 +37,16 @@
 
 // XXX FIXME XXX -- this is not quite the right thing.
 
-boolMatrix
+boolNDArray
 charNDArray::all (int dim) const
 {
-  boolMatrix retval;
-
-  if (dimensions.length () == 2)
-    {
-      charMatrix tmp = matrix_value ();
-      retval = tmp.all (dim);
-    }
-  else
-    (*current_liboctave_error_handler)
-      ("all is not yet implemented for N-d Arrays");
-
-  return retval;
+  MX_ND_ALL_ANY (MX_ND_ALL_EVAL (elem (iter_idx) == ' '));
 }
 
-boolMatrix
+boolNDArray
 charNDArray::any (int dim) const
 {
-  boolMatrix retval;
-
-  if (dimensions.length () == 2)
-    {
-      charMatrix tmp = matrix_value ();
-      retval = tmp.any (dim);
-    }
-  else
-    (*current_liboctave_error_handler)
-      ("any is not yet implemented for N-d Arrays");
-
-  return retval;
+  MX_ND_ALL_ANY (MX_ND_ANY_EVAL (elem (iter_idx) != ' '));
 }
 
 charMatrix
@@ -106,6 +84,13 @@
   ::increment_index (ra_idx, dimensions, start_dimension);
 }
 
+int 
+charNDArray::compute_index (Array<int>& ra_idx,
+			    const dim_vector& dimensions)
+{
+  return ::compute_index (ra_idx, dimensions);
+}
+
 /*
 ;;; Local Variables: ***
 ;;; mode: C++ ***