Mercurial > octave-nkf

comparison src/ov-intx.h @ 5533:667ad2becb63

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2005-11-10 21:40:48 by jwe]
author jwe
date Thu, 10 Nov 2005 21:40:49 +0000
parents 4c8a2e4e0717
children c7d5a534afa5
comparison
equal deleted inserted replaced
5532:8ad54ce6a831 5533:667ad2becb63
56 { return new OCTAVE_VALUE_INT_MATRIX_T (*this); } 56 { return new OCTAVE_VALUE_INT_MATRIX_T (*this); }
57 57
58 octave_value *empty_clone (void) const 58 octave_value *empty_clone (void) const
59 { return new OCTAVE_VALUE_INT_MATRIX_T (); } 59 { return new OCTAVE_VALUE_INT_MATRIX_T (); }
60 60
61 OCTAVE_INT_NDARRAY_T 61 int8NDArray
62 OCTAVE_VALUE_INT_NDARRAY_EXTRACTOR_FUNCTION (void) const 62 int8_array_value (void) const { return int8NDArray (matrix); }
63 { return matrix; } 63
64 int16NDArray
65 int16_array_value (void) const { return int16NDArray (matrix); }
66
67 int32NDArray
68 int32_array_value (void) const { return int32NDArray (matrix); }
69
70 int64NDArray
71 int64_array_value (void) const { return int64NDArray (matrix); }
72
73 uint8NDArray
74 uint8_array_value (void) const { return uint8NDArray (matrix); }
75
76 uint16NDArray
77 uint16_array_value (void) const { return uint16NDArray (matrix); }
78
79 uint32NDArray
80 uint32_array_value (void) const { return uint32NDArray (matrix); }
81
82 uint64NDArray
83 uint64_array_value (void) const { return uint64NDArray (matrix); }
64 84
65 double 85 double
66 double_value (bool = false) const 86 double_value (bool = false) const
67 { 87 {
68 double retval = lo_ieee_nan_value (); 88 double retval = lo_ieee_nan_value ();
101 int nel = matrix.numel (); 121 int nel = matrix.numel ();
102 for (int i = 0; i < nel; i++) 122 for (int i = 0; i < nel; i++)
103 retval(i) = Complex (double (matrix(i))); 123 retval(i) = Complex (double (matrix(i)));
104 return retval; 124 return retval;
105 } 125 }
126
127 charNDArray
128 char_array_value (bool = false) const
129 {
130 charNDArray retval (dims ());
131
132 octave_idx_type nel = numel ();
133
134 for (octave_idx_type i = 0; i < nel; i++)
135 retval(i) = static_cast<char>(matrix(i));
136
137 return retval;
138 }
106 139
107 idx_vector index_vector (void) const { return idx_vector (matrix); } 140 idx_vector index_vector (void) const { return idx_vector (matrix); }
108 141
109 int write (octave_stream& os, int block_size, 142 int write (octave_stream& os, int block_size,
110 oct_data_conv::data_type output_type, int skip, 143 oct_data_conv::data_type output_type, int skip,
164 } 197 }
165 198
166 return retval; 199 return retval;
167 } 200 }
168 201
169 OCTAVE_INT_T 202 octave_int8
170 OCTAVE_VALUE_INT_SCALAR_EXTRACTOR_FUNCTION (void) const 203 int8_scalar_value (void) const { return octave_int8 (scalar); }
171 { return scalar; } 204
172 205 octave_int16
173 OCTAVE_INT_NDARRAY_T 206 int16_scalar_value (void) const { return octave_int16 (scalar); }
174 OCTAVE_VALUE_INT_NDARRAY_EXTRACTOR_FUNCTION (void) const 207
175 { return OCTAVE_INT_NDARRAY_T (dim_vector (1, 1), scalar); } 208 octave_int32
209 int32_scalar_value (void) const { return octave_int32 (scalar); }
210
211 octave_int64
212 int64_scalar_value (void) const { return octave_int64 (scalar); }
213
214 octave_uint8
215 uint8_scalar_value (void) const { return octave_uint8 (scalar); }
216
217 octave_uint16
218 uint16_scalar_value (void) const { return octave_uint16 (scalar); }
219
220 octave_uint32
221 uint32_scalar_value (void) const { return octave_uint32 (scalar); }
222
223 octave_uint64
224 uint64_scalar_value (void) const { return octave_uint64 (scalar); }
225
226 int8NDArray
227 int8_array_value (void) const
228 { return int8NDArray (dim_vector (1, 1), scalar); }
229
230 int16NDArray
231 int16_array_value (void) const
232 { return int16NDArray (dim_vector (1, 1), scalar); }
233
234 int32NDArray
235 int32_array_value (void) const
236 { return int32NDArray (dim_vector (1, 1), scalar); }
237
238 int64NDArray
239 int64_array_value (void) const
240 { return int64NDArray (dim_vector (1, 1), scalar); }
241
242 uint8NDArray
243 uint8_array_value (void) const
244 { return uint8NDArray (dim_vector (1, 1), scalar); }
245
246 uint16NDArray
247 uint16_array_value (void) const
248 { return uint16NDArray (dim_vector (1, 1), scalar); }
249
250 uint32NDArray
251 uint32_array_value (void) const
252 { return uint32NDArray (dim_vector (1, 1), scalar); }
253
254 uint64NDArray
255 uint64_array_value (void) const
256 { return uint64NDArray (dim_vector (1, 1), scalar); }
176 257
177 octave_value resize (const dim_vector& dv) const 258 octave_value resize (const dim_vector& dv) const
178 { 259 {
179 OCTAVE_INT_NDARRAY_T retval (dv); 260 OCTAVE_INT_NDARRAY_T retval (dv);
180 if (dv.numel()) 261 if (dv.numel())
187 double scalar_value (bool = false) const { return double (scalar); } 268 double scalar_value (bool = false) const { return double (scalar); }
188 269
189 NDArray 270 NDArray
190 array_value (bool = false) const 271 array_value (bool = false) const
191 { 272 {
192 NDArray retval (dim_vector (1,1)); 273 NDArray retval (dim_vector (1, 1));
193 retval(0) = double (scalar); 274 retval(0) = double (scalar);
194 return retval; 275 return retval;
195 } 276 }
196 277
197 ComplexNDArray 278 ComplexNDArray
198 complex_array_value (bool = false) const 279 complex_array_value (bool = false) const
199 { 280 {
200 ComplexNDArray retval (dim_vector (1,1)); 281 ComplexNDArray retval (dim_vector (1, 1));
201 retval(0) = Complex (double (scalar)); 282 retval(0) = Complex (double (scalar));
202 return retval; 283 return retval;
203 } 284 }
285
286 charNDArray
287 char_array_value (bool = false) const
288 {
289 charNDArray retval (dim_vector (1, 1));
290 retval(0) = static_cast<char>(scalar);
291 return retval;
292 }
204 293
205 idx_vector index_vector (void) const { return idx_vector (scalar); } 294 idx_vector index_vector (void) const { return idx_vector (scalar); }
206 295
207 int write (octave_stream& os, int block_size, 296 int write (octave_stream& os, int block_size,
208 oct_data_conv::data_type output_type, octave_idx_type skip, 297 oct_data_conv::data_type output_type, octave_idx_type skip,