Mercurial > octave
comparison 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 |
comparison
equal
deleted
inserted
replaced
| 226:c4027b057786 | 227:1a48a1b91489 |
|---|---|
| 268 intcmp (int *i, int *j) | 268 intcmp (int *i, int *j) |
| 269 { | 269 { |
| 270 return (*i - *j); | 270 return (*i - *j); |
| 271 } | 271 } |
| 272 | 272 |
| 273 int | |
| 274 idx_vector::checkelem (int n) const | |
| 275 { | |
| 276 if (n < 0 || n >= len) | |
| 277 { | |
| 278 error ("idx-vector: index out of range"); | |
| 279 return 0; | |
| 280 } | |
| 281 | |
| 282 return elem (n); | |
| 283 } | |
| 284 | |
| 273 void | 285 void |
| 274 idx_vector::sort (void) | 286 idx_vector::sort (void) |
| 275 { | 287 { |
| 276 qsort ((void *) data, len, sizeof (int), | 288 qsort ((void *) data, len, sizeof (int), |
| 277 (int (*)(void*, void*)) intcmp); | 289 (int (*)(void*, void*)) intcmp); |