Mercurial > octave-nkf
diff liboctave/idx-vector.cc @ 227:1a48a1b91489
[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 Mon Nov 15 10:06:26 1993 +0000 +++ b/liboctave/idx-vector.cc Mon Nov 15 10:11:59 1993 +0000 @@ -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) {