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_bool_h)
00024 #define octave_bool_h 1
00025
00026 #include <cstdlib>
00027
00028 #include <iosfwd>
00029 #include <string>
00030
00031 #include "lo-utils.h"
00032 #include "mx-base.h"
00033 #include "oct-alloc.h"
00034 #include "str-vec.h"
00035
00036 #include "oct-stream.h"
00037 #include "ov-base.h"
00038 #include "ov-base-scalar.h"
00039 #include "ov-bool-mat.h"
00040 #include "ov-scalar.h"
00041 #include "ov-typeinfo.h"
00042
00043 class octave_value_list;
00044
00045 class tree_walker;
00046
00047
00048
00049 class
00050 OCTINTERP_API
00051 octave_bool : public octave_base_scalar<bool>
00052 {
00053 public:
00054
00055 octave_bool (void)
00056 : octave_base_scalar<bool> (false) { }
00057
00058 octave_bool (bool b)
00059 : octave_base_scalar<bool> (b) { }
00060
00061 octave_bool (const octave_bool& s)
00062 : octave_base_scalar<bool> (s) { }
00063
00064 ~octave_bool (void) { }
00065
00066 octave_base_value *clone (void) const { return new octave_bool (*this); }
00067 octave_base_value *empty_clone (void) const { return new octave_bool_matrix (); }
00068
00069 type_conv_info numeric_conversion_function (void) const;
00070
00071 octave_value do_index_op (const octave_value_list& idx,
00072 bool resize_ok = false);
00073
00074 idx_vector index_vector (void) const { return idx_vector (scalar); }
00075
00076 builtin_type_t builtin_type (void) const { return btyp_bool; }
00077
00078 bool is_real_scalar (void) const { return true; }
00079
00080 bool is_bool_scalar (void) const { return true; }
00081
00082 bool is_bool_type (void) const { return true; }
00083
00084 bool is_real_type (void) const { return true; }
00085
00086 bool is_numeric_type (void) const { return false; }
00087
00088 bool is_true (void) const { return scalar; }
00089
00090 int8NDArray
00091 int8_array_value (void) const
00092 { return int8NDArray (dim_vector (1, 1), scalar); }
00093
00094 int16NDArray
00095 int16_array_value (void) const
00096 { return int16NDArray (dim_vector (1, 1), scalar); }
00097
00098 int32NDArray
00099 int32_array_value (void) const
00100 { return int32NDArray (dim_vector (1, 1), scalar); }
00101
00102 int64NDArray
00103 int64_array_value (void) const
00104 { return int64NDArray (dim_vector (1, 1), scalar); }
00105
00106 uint8NDArray
00107 uint8_array_value (void) const
00108 { return uint8NDArray (dim_vector (1, 1), scalar); }
00109
00110 uint16NDArray
00111 uint16_array_value (void) const
00112 { return uint16NDArray (dim_vector (1, 1), scalar); }
00113
00114 uint32NDArray
00115 uint32_array_value (void) const
00116 { return uint32NDArray (dim_vector (1, 1), scalar); }
00117
00118 uint64NDArray
00119 uint64_array_value (void) const
00120 { return uint64NDArray (dim_vector (1, 1), scalar); }
00121
00122 double double_value (bool = false) const { return scalar; }
00123
00124 float float_value (bool = false) const { return scalar; }
00125
00126 double scalar_value (bool = false) const { return scalar; }
00127
00128 float float_scalar_value (bool = false) const { return scalar; }
00129
00130 Matrix matrix_value (bool = false) const
00131 { return Matrix (1, 1, scalar); }
00132
00133 FloatMatrix float_matrix_value (bool = false) const
00134 { return FloatMatrix (1, 1, scalar); }
00135
00136 NDArray array_value (bool = false) const
00137 { return NDArray (dim_vector (1, 1), static_cast<double> (scalar)); }
00138
00139 FloatNDArray float_array_value (bool = false) const
00140 { return FloatNDArray (dim_vector (1, 1), static_cast<double> (scalar)); }
00141
00142 Complex complex_value (bool = false) const { return scalar; }
00143
00144 FloatComplex float_complex_value (bool = false) const { return scalar; }
00145
00146 ComplexMatrix complex_matrix_value (bool = false) const
00147 { return ComplexMatrix (1, 1, Complex (scalar)); }
00148
00149 FloatComplexMatrix float_complex_matrix_value (bool = false) const
00150 { return FloatComplexMatrix (1, 1, FloatComplex (scalar)); }
00151
00152 ComplexNDArray complex_array_value (bool = false) const
00153 { return ComplexNDArray (dim_vector (1, 1), Complex (scalar)); }
00154
00155 FloatComplexNDArray float_complex_array_value (bool = false) const
00156 { return FloatComplexNDArray (dim_vector (1, 1), FloatComplex (scalar)); }
00157
00158 SparseMatrix sparse_matrix_value (bool = false) const
00159 { return SparseMatrix (Matrix (1, 1, scalar)); }
00160
00161
00162 SparseComplexMatrix sparse_complex_matrix_value (bool = false) const
00163 { return SparseComplexMatrix (sparse_matrix_value ()); }
00164
00165 SparseBoolMatrix sparse_bool_matrix_value (bool = false) const
00166 { return SparseBoolMatrix (boolMatrix (1, 1, scalar)); }
00167
00168 charNDArray
00169 char_array_value (bool = false) const
00170 {
00171 charNDArray retval (dim_vector (1, 1));
00172 retval(0) = static_cast<char> (scalar);
00173 return retval;
00174 }
00175
00176 bool bool_value (bool = false) const { return scalar; }
00177
00178 boolMatrix bool_matrix_value (bool = false) const
00179 { return boolMatrix (1, 1, scalar); }
00180
00181 boolNDArray bool_array_value (bool = false) const
00182 { return boolNDArray (dim_vector (1, 1), scalar); }
00183
00184 octave_value resize (const dim_vector& dv, bool fill = false) const;
00185
00186 octave_value convert_to_str_internal (bool pad, bool force, char type) const;
00187
00188 bool save_ascii (std::ostream& os);
00189
00190 bool load_ascii (std::istream& is);
00191
00192 bool save_binary (std::ostream& os, bool& save_as_floats);
00193
00194 bool load_binary (std::istream& is, bool swap,
00195 oct_mach_info::float_format fmt);
00196
00197 #if defined (HAVE_HDF5)
00198 bool save_hdf5 (hid_t loc_id, const char *name, bool save_as_floats);
00199
00200 bool load_hdf5 (hid_t loc_id, const char *name);
00201 #endif
00202
00203 int write (octave_stream& os, int block_size,
00204 oct_data_conv::data_type output_type, int skip,
00205 oct_mach_info::float_format flt_fmt) const
00206 {
00207 return os.write (bool_array_value (), block_size, output_type,
00208 skip, flt_fmt);
00209 }
00210
00211 mxArray *as_mxArray (void) const;
00212
00213
00214 octave_value map (unary_mapper_t umap) const
00215 {
00216 octave_scalar m (scalar_value ());
00217 return m.map (umap);
00218 }
00219
00220 private:
00221
00222 DECLARE_OCTAVE_ALLOCATOR
00223
00224 DECLARE_OV_TYPEID_FUNCTIONS_AND_DATA
00225 };
00226
00227 #endif