octave-nkf: liboctave/ArrayN-idx.h comparison

[project @ 2003-09-09 17:48:00 by jwe]

comparison

equal deleted inserted replaced

-:55db663c15ce
+:f6a61399bc5c
 return retval;
 }
 static inline bool
+vector_equivalent (const Array<int>& ra_idx)
+{
+int n = ra_idx.length ();
+bool found_first = false;
+for (int i = 0; i < n; i++)
+{
+if (ra_idx(i) != 1)
+{
+	  if (! found_first)
+	    found_first = true;
+	  else
+	    return false;
+	}
+}
+return true;
+}
+static inline bool
+equal_arrays (const Array<int> a, const Array<int> b)
+{
+bool retval = true;
+if (a.length () != b.length ())
+retval = false;
+else
+{
+for (int i = 0; i < a.length (); i++)
+	{
+	  if (a(i) != b(i))
+	    retval = false;
+	}
+}
+return retval;
+}
+static inline bool
 all_ok (const Array<idx_vector>& ra_idx)
 {
 bool retval = true;
 int n = ra_idx.length ();
 int n = ra_idx.length ();
 Array<int> retval (n);
 for (int i = 0; i < n; i++)
-retval(i) = ra_idx(result_idx(i));
+retval(i) = ra_idx(i).elem (result_idx(i));
 return retval;
 }
 template <class T>

Mercurial > hg > octave-nkf