Mercurial > octave-nkf
annotate liboctave/Array-util.h @ 7922:935be827eaf8
error for NaN values in & and | expressions
| author | John W. Eaton <jwe@octave.org> |
|---|---|
| date | Fri, 11 Jul 2008 14:56:30 -0400 |
| parents | 9a4541c622b5 |
| children | 7cbe01c21986 |
| rev | line source |
|---|---|
| 4588 | 1 /* |
| 2 | |
| 7017 | 3 Copyright (C) 2000, 2003, 2004, 2005, 2006, 2007 John W. Eaton |
| 4588 | 4 |
| 5 This file is part of Octave. | |
| 6 | |
| 7 Octave is free software; you can redistribute it and/or modify it | |
| 8 under the terms of the GNU General Public License as published by the | |
| 7016 | 9 Free Software Foundation; either version 3 of the License, or (at your |
| 10 option) any later version. | |
| 4588 | 11 |
| 12 Octave is distributed in the hope that it will be useful, but WITHOUT | |
| 13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or | |
| 14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License | |
| 15 for more details. | |
| 16 | |
| 17 You should have received a copy of the GNU General Public License | |
| 7016 | 18 along with Octave; see the file COPYING. If not, see |
| 19 <http://www.gnu.org/licenses/>. | |
| 4588 | 20 |
| 21 */ | |
| 22 | |
| 23 #if !defined (octave_Array_util_h) | |
| 24 #define octave_Array_util_h 1 | |
| 25 | |
| 26 #include <cassert> | |
| 27 | |
| 28 #include "Array.h" | |
| 29 #include "dim-vector.h" | |
| 30 #include "idx-vector.h" | |
| 31 #include "lo-error.h" | |
| 32 | |
| 6108 | 33 extern OCTAVE_API bool index_in_bounds (const Array<octave_idx_type>& ra_idx, |
| 4588 | 34 const dim_vector& dimensions); |
| 35 | |
| 6108 | 36 extern OCTAVE_API void increment_index (Array<octave_idx_type>& ra_idx, |
| 4588 | 37 const dim_vector& dimensions, |
| 38 int start_dimension = 0); | |
| 39 | |
| 6108 | 40 extern OCTAVE_API octave_idx_type get_scalar_idx (Array<octave_idx_type>& idx, dim_vector& dims); |
| 4588 | 41 |
| 6108 | 42 extern OCTAVE_API octave_idx_type num_ones (const Array<octave_idx_type>& ra_idx); |
| 4588 | 43 |
| 6108 | 44 extern OCTAVE_API bool is_scalar (const dim_vector& dim); |
| 4588 | 45 |
|
7642
9a4541c622b5
refactor Array::assignN dimensioning code for empty initial matrices
David Bateman <dbateman@free.fr>
parents:
7246
diff
changeset
|
46 extern OCTAVE_API bool is_vector (const dim_vector& dim); |
|
9a4541c622b5
refactor Array::assignN dimensioning code for empty initial matrices
David Bateman <dbateman@free.fr>
parents:
7246
diff
changeset
|
47 |
| 6108 | 48 extern OCTAVE_API bool any_ones (const Array<octave_idx_type>& arr); |
| 4588 | 49 |
| 6108 | 50 extern OCTAVE_API octave_idx_type compute_index (const Array<octave_idx_type>& ra_idx, const dim_vector& dims); |
| 4588 | 51 |
| 6108 | 52 extern OCTAVE_API Array<octave_idx_type> conv_to_int_array (const Array<idx_vector>& a); |
| 4588 | 53 |
| 6108 | 54 extern OCTAVE_API Array<idx_vector> conv_to_array (const idx_vector *tmp, const octave_idx_type len); |
| 4588 | 55 |
| 6108 | 56 extern OCTAVE_API dim_vector freeze (Array<idx_vector>& ra_idx, |
| 4588 | 57 const dim_vector& dimensions, int resize_ok); |
| 58 | |
| 6108 | 59 extern OCTAVE_API bool vector_equivalent (const dim_vector& dv); |
| 4588 | 60 |
| 6108 | 61 extern OCTAVE_API bool all_ok (const Array<idx_vector>& ra_idx); |
| 4588 | 62 |
| 6108 | 63 extern OCTAVE_API bool any_orig_empty (const Array<idx_vector>& ra_idx); |
| 4588 | 64 |
| 6108 | 65 extern OCTAVE_API bool all_colon_equiv (const Array<idx_vector>& ra_idx, |
| 4588 | 66 const dim_vector& frozen_lengths); |
| 67 | |
| 6108 | 68 extern OCTAVE_API bool is_in (octave_idx_type num, const idx_vector& idx); |
| 4588 | 69 |
| 6108 | 70 extern OCTAVE_API octave_idx_type how_many_lgt (const octave_idx_type num, idx_vector& idxv); |
| 4588 | 71 |
| 6108 | 72 extern OCTAVE_API bool all_ones (const Array<octave_idx_type>& arr); |
| 4588 | 73 |
| 6108 | 74 extern OCTAVE_API Array<octave_idx_type> get_elt_idx (const Array<idx_vector>& ra_idx, |
| 5275 | 75 const Array<octave_idx_type>& result_idx); |
| 4588 | 76 |
| 6108 | 77 extern OCTAVE_API Array<octave_idx_type> get_ra_idx (octave_idx_type idx, const dim_vector& dims); |
| 4588 | 78 |
| 6108 | 79 extern OCTAVE_API dim_vector short_freeze (Array<idx_vector>& ra_idx, |
| 4588 | 80 const dim_vector& dimensions, |
| 81 int resize_ok); | |
| 82 | |
| 7241 | 83 struct |
| 84 permute_vector | |
| 85 { | |
| 86 octave_idx_type pidx; | |
| 87 octave_idx_type iidx; | |
| 88 }; | |
| 89 | |
| 7246 | 90 extern int OCTAVE_API permute_vector_compare (const void *a, const void *b); |
| 7241 | 91 |
|
7922
935be827eaf8
error for NaN values in & and | expressions
John W. Eaton <jwe@octave.org>
parents:
7642
diff
changeset
|
92 extern void OCTAVE_API gripe_nan_to_logical_conversion (void); |
|
935be827eaf8
error for NaN values in & and | expressions
John W. Eaton <jwe@octave.org>
parents:
7642
diff
changeset
|
93 |
| 6108 | 94 extern void OCTAVE_API gripe_nonconformant (const char *op, int op1_len, int op2_len); |
| 4669 | 95 |
| 6108 | 96 extern void OCTAVE_API gripe_nonconformant (const char *op, int op1_nr, int op1_nc, |
| 4669 | 97 int op2_nr, int op2_nc); |
| 98 | |
| 99 | |
| 6108 | 100 extern void OCTAVE_API gripe_nonconformant (const char *op, dim_vector& op1_dims, |
| 4669 | 101 dim_vector& op2_dims); |
| 102 | |
| 4588 | 103 #endif |
| 104 | |
| 105 /* | |
| 106 ;;; Local Variables: *** | |
| 107 ;;; mode: C++ *** | |
| 108 ;;; End: *** | |
| 109 */ |