Mercurial > hg > octave-nkf

diff liboctave/idx-vector.cc @ 227:1a48a1b91489

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1993-11-15 10:10:35 by jwe]
author jwe
date Mon, 15 Nov 1993 10:11:59 +0000
parents 5869adaa6aea
children a99f28f5e351
line wrap: on
line diff
--- a/liboctave/idx-vector.cc
+++ b/liboctave/idx-vector.cc
@@ -270,6 +270,18 @@
   return (*i - *j);
 }
 
+int
+idx_vector::checkelem (int n) const
+{
+  if (n < 0 || n >= len)
+    {
+      error ("idx-vector: index out of range");
+      return 0;
+    }
+
+  return elem (n);
+}
+
 void
 idx_vector::sort (void)
 {