Mercurial > octave-nkf

diff liboctave/Array-util.cc @ 7241:da540e715d05
[project @ 2007-12-03 22:55:20 by jwe]
author: jwe
date: Mon, 03 Dec 2007 22:55:21 +0000
parents: a1dbe9d80eee
children: 9a4541c622b5
--- a/liboctave/Array-util.cc	Mon Dec 03 20:16:36 2007 +0000
+++ b/liboctave/Array-util.cc	Mon Dec 03 22:55:21 2007 +0000
@@ -451,6 +451,16 @@
   return retval;
 }
 
+int
+permute_vector_compare (const void *a, const void *b)
+{
+  const permute_vector *pva = static_cast<const permute_vector *> (a);
+  const permute_vector *pvb = static_cast<const permute_vector *> (b);
+
+  return pva->pidx > pvb->pidx;
+}
+
+
 void
 gripe_nonconformant (const char *op, int op1_len, int op2_len)
 {