00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020
00021
00022
00023 #if !defined (octave_Array_util_h)
00024 #define octave_Array_util_h 1
00025
00026 #include <cassert>
00027
00028 #include "Array.h"
00029 #include "dim-vector.h"
00030 #include "idx-vector.h"
00031 #include "lo-error.h"
00032
00033 extern OCTAVE_API bool index_in_bounds (const Array<octave_idx_type>& ra_idx,
00034 const dim_vector& dimensions);
00035
00036 extern OCTAVE_API void increment_index (Array<octave_idx_type>& ra_idx,
00037 const dim_vector& dimensions,
00038 int start_dimension = 0);
00039
00040 extern OCTAVE_API octave_idx_type get_scalar_idx (Array<octave_idx_type>& idx, dim_vector& dims);
00041
00042 extern OCTAVE_API octave_idx_type num_ones (const Array<octave_idx_type>& ra_idx);
00043
00044 extern OCTAVE_API bool is_scalar (const dim_vector& dim);
00045
00046 extern OCTAVE_API bool is_vector (const dim_vector& dim);
00047
00048 extern OCTAVE_API bool any_ones (const Array<octave_idx_type>& arr);
00049
00050 extern OCTAVE_API octave_idx_type compute_index (const Array<octave_idx_type>& ra_idx, const dim_vector& dims);
00051
00052 extern OCTAVE_API Array<octave_idx_type> conv_to_int_array (const Array<idx_vector>& a);
00053
00054 extern OCTAVE_API Array<idx_vector> conv_to_array (const idx_vector *tmp, const octave_idx_type len);
00055
00056 extern OCTAVE_API dim_vector freeze (Array<idx_vector>& ra_idx,
00057 const dim_vector& dimensions, int resize_ok);
00058
00059 extern OCTAVE_API bool vector_equivalent (const dim_vector& dv);
00060
00061 extern OCTAVE_API bool all_ok (const Array<idx_vector>& ra_idx);
00062
00063 extern OCTAVE_API bool any_orig_empty (const Array<idx_vector>& ra_idx);
00064
00065 extern OCTAVE_API bool all_colon_equiv (const Array<idx_vector>& ra_idx,
00066 const dim_vector& frozen_lengths);
00067
00068 extern OCTAVE_API bool all_ones (const Array<octave_idx_type>& arr);
00069
00070 extern OCTAVE_API Array<octave_idx_type> get_elt_idx (const Array<idx_vector>& ra_idx,
00071 const Array<octave_idx_type>& result_idx);
00072
00073 extern OCTAVE_API Array<octave_idx_type> get_ra_idx (octave_idx_type idx, const dim_vector& dims);
00074
00075 extern OCTAVE_API dim_vector zero_dims_inquire (const Array<idx_vector>& ia,
00076 const dim_vector& rhdv);
00077
00078 extern OCTAVE_API dim_vector zero_dims_inquire (const idx_vector& i, const idx_vector& j,
00079 const dim_vector& rhdv);
00080
00081 extern OCTAVE_API idx_vector sub2ind (const dim_vector& dv, const Array<idx_vector>& idxa);
00082
00083 extern OCTAVE_API Array<idx_vector> ind2sub (const dim_vector& dv, const idx_vector& idx);
00084
00085 struct
00086 permute_vector
00087 {
00088 octave_idx_type pidx;
00089 octave_idx_type iidx;
00090 };
00091
00092 extern int OCTAVE_API permute_vector_compare (const void *a, const void *b);
00093
00094 extern void OCTAVE_API gripe_nan_to_logical_conversion (void);
00095
00096 extern void OCTAVE_API gripe_nonconformant (const char *op, int op1_len, int op2_len);
00097
00098 extern void OCTAVE_API gripe_nonconformant (const char *op, int op1_nr, int op1_nc,
00099 int op2_nr, int op2_nc);
00100
00101
00102 extern void OCTAVE_API gripe_nonconformant (const char *op, dim_vector& op1_dims,
00103 dim_vector& op2_dims);
00104
00105 #endif
00106
00107
00108
00109
00110
00111