octave-nkf: src/ov-intx.h annotate

annotate src/ov-intx.h @ 8920:eb63fbe60fab

update copyright notices

author	John W. Eaton <jwe@octave.org>
date	Sat, 07 Mar 2009 10:41:27 -0500
parents	f00578b495e9
children	d865363208d6

rev	line source
4904 71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	1 /*
71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	2
8920 eb63fbe60fab update copyright notices John W. Eaton <jwe@octave.org> parents: 8437 diff changeset	3 Copyright (C) 2004, 2005, 2006, 2007, 2008 John W. Eaton
4904 71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	4
71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	5 This file is part of Octave.
71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	6
71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	7 Octave is free software; you can redistribute it and/or modify it
71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	8 under the terms of the GNU General Public License as published by the
7016 93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6693 diff changeset	9 Free Software Foundation; either version 3 of the License, or (at your
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6693 diff changeset	10 option) any later version.
4904 71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	11
71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	12 Octave is distributed in the hope that it will be useful, but WITHOUT
71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	15 for more details.
71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	16
71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	17 You should have received a copy of the GNU General Public License
7016 93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6693 diff changeset	18 along with Octave; see the file COPYING. If not, see
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6693 diff changeset	19 <http://www.gnu.org/licenses/>.
4904 71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	20
71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	21 */
71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	22
71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	23 #include <cstdlib>
71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	24
71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	25 #include <iostream>
71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	26 #include <string>
71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	27
71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	28 #include "mx-base.h"
71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	29 #include "oct-alloc.h"
71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	30 #include "str-vec.h"
71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	31
71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	32 #include "error.h"
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4938 diff changeset	33 #include "oct-stream.h"
4904 71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	34 #include "ov-base.h"
71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	35 #include "ov-base-int.h"
71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	36 #include "ov-typeinfo.h"
4982 c0866f89c43d [project @ 2004-09-10 13:48:18 by jwe] jwe parents: 4964 diff changeset	37 #include "gripes.h"
4904 71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	38
7503 8c32f95c2639 convert mapper functions to new format David Bateman <dbateman@free.fr> parents: 7201 diff changeset	39 #include "ov-re-mat.h"
8c32f95c2639 convert mapper functions to new format David Bateman <dbateman@free.fr> parents: 7201 diff changeset	40 #include "ov-scalar.h"
8c32f95c2639 convert mapper functions to new format David Bateman <dbateman@free.fr> parents: 7201 diff changeset	41
4904 71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	42 class
6693 768d3ad80bbf [project @ 2007-06-06 05:18:54 by jwe] jwe parents: 6686 diff changeset	43 OCTINTERP_API
4904 71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	44 OCTAVE_VALUE_INT_MATRIX_T
8321 69b6127f6962 better use of templates in ov-intx.h John W. Eaton <jwe@octave.org> parents: 8039 diff changeset	45 : public octave_base_int_matrix<intNDArray<OCTAVE_INT_T> >
4904 71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	46 {
71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	47 public:
71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	48
71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	49 OCTAVE_VALUE_INT_MATRIX_T (void)
8321 69b6127f6962 better use of templates in ov-intx.h John W. Eaton <jwe@octave.org> parents: 8039 diff changeset	50 : octave_base_int_matrix<intNDArray<OCTAVE_INT_T> > () { }
4904 71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	51
8321 69b6127f6962 better use of templates in ov-intx.h John W. Eaton <jwe@octave.org> parents: 8039 diff changeset	52 OCTAVE_VALUE_INT_MATRIX_T (const intNDArray<OCTAVE_INT_T>& nda)
69b6127f6962 better use of templates in ov-intx.h John W. Eaton <jwe@octave.org> parents: 8039 diff changeset	53 : octave_base_int_matrix<intNDArray<OCTAVE_INT_T> > (nda) { }
4904 71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	54
7064 faff87ff9d5a [project @ 2007-10-24 21:09:43 by dbateman] dbateman parents: 7017 diff changeset	55 OCTAVE_VALUE_INT_MATRIX_T (const ArrayN<OCTAVE_INT_T>& nda)
8321 69b6127f6962 better use of templates in ov-intx.h John W. Eaton <jwe@octave.org> parents: 8039 diff changeset	56 : octave_base_int_matrix<intNDArray<OCTAVE_INT_T> >
69b6127f6962 better use of templates in ov-intx.h John W. Eaton <jwe@octave.org> parents: 8039 diff changeset	57 (intNDArray<OCTAVE_INT_T> (nda)) { }
7064 faff87ff9d5a [project @ 2007-10-24 21:09:43 by dbateman] dbateman parents: 7017 diff changeset	58
4904 71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	59 ~OCTAVE_VALUE_INT_MATRIX_T (void) { }
71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	60
5759 ce79d238f142 [project @ 2006-04-13 13:04:32 by jwe] jwe parents: 5731 diff changeset	61 octave_base_value *clone (void) const
4904 71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	62 { return new OCTAVE_VALUE_INT_MATRIX_T (*this); }
71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	63
5759 ce79d238f142 [project @ 2006-04-13 13:04:32 by jwe] jwe parents: 5731 diff changeset	64 octave_base_value *empty_clone (void) const
4904 71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	65 { return new OCTAVE_VALUE_INT_MATRIX_T (); }
71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	66
6069 67b1a61a85ce [project @ 2006-10-21 14:33:53 by jwe] jwe parents: 5943 diff changeset	67 bool OCTAVE_TYPE_PREDICATE_FUNCTION (void) const { return true; }
5895 b9c45e0cf685 [project @ 2006-07-19 01:57:44 by jwe] jwe parents: 5885 diff changeset	68
6223 a6cc01dd09f9 [project @ 2007-01-03 20:59:28 by jwe] jwe parents: 6214 diff changeset	69 bool is_integer_type (void) const { return true; }
a6cc01dd09f9 [project @ 2007-01-03 20:59:28 by jwe] jwe parents: 6214 diff changeset	70
7997 2b8952e133c9 implement checked conversions between integers Jaroslav Hajek <highegg@gmail.com> parents: 7885 diff changeset	71 private:
2b8952e133c9 implement checked conversions between integers Jaroslav Hajek <highegg@gmail.com> parents: 7885 diff changeset	72
7999 f7f2d867c523 style fixes John W. Eaton <jwe@octave.org> parents: 7997 diff changeset	73 template <class IM>
f7f2d867c523 style fixes John W. Eaton <jwe@octave.org> parents: 7997 diff changeset	74 IM convert_gripe () const
7997 2b8952e133c9 implement checked conversions between integers Jaroslav Hajek <highegg@gmail.com> parents: 7885 diff changeset	75 {
7999 f7f2d867c523 style fixes John W. Eaton <jwe@octave.org> parents: 7997 diff changeset	76 typedef typename IM::element_type dest_el_type;
8321 69b6127f6962 better use of templates in ov-intx.h John W. Eaton <jwe@octave.org> parents: 8039 diff changeset	77 typedef intNDArray<OCTAVE_INT_T>::element_type src_el_type;
8039 cd90e2842080 Add additional integer math and conversion warnings, set their default state to be off and add the intwarning function David Bateman <dbateman@free.fr> parents: 7999 diff changeset	78 dest_el_type::clear_conv_flag ();
7999 f7f2d867c523 style fixes John W. Eaton <jwe@octave.org> parents: 7997 diff changeset	79 IM retval (matrix);
7997 2b8952e133c9 implement checked conversions between integers Jaroslav Hajek <highegg@gmail.com> parents: 7885 diff changeset	80 if (dest_el_type::get_trunc_flag ())
8039 cd90e2842080 Add additional integer math and conversion warnings, set their default state to be off and add the intwarning function David Bateman <dbateman@free.fr> parents: 7999 diff changeset	81 gripe_truncated_conversion (src_el_type::type_name (),
cd90e2842080 Add additional integer math and conversion warnings, set their default state to be off and add the intwarning function David Bateman <dbateman@free.fr> parents: 7999 diff changeset	82 dest_el_type::type_name ());
cd90e2842080 Add additional integer math and conversion warnings, set their default state to be off and add the intwarning function David Bateman <dbateman@free.fr> parents: 7999 diff changeset	83 dest_el_type::clear_conv_flag ();
7997 2b8952e133c9 implement checked conversions between integers Jaroslav Hajek <highegg@gmail.com> parents: 7885 diff changeset	84 return retval;
2b8952e133c9 implement checked conversions between integers Jaroslav Hajek <highegg@gmail.com> parents: 7885 diff changeset	85 }
2b8952e133c9 implement checked conversions between integers Jaroslav Hajek <highegg@gmail.com> parents: 7885 diff changeset	86
2b8952e133c9 implement checked conversions between integers Jaroslav Hajek <highegg@gmail.com> parents: 7885 diff changeset	87 public:
2b8952e133c9 implement checked conversions between integers Jaroslav Hajek <highegg@gmail.com> parents: 7885 diff changeset	88
5533 667ad2becb63 [project @ 2005-11-10 21:40:48 by jwe] jwe parents: 5307 diff changeset	89 int8NDArray
7997 2b8952e133c9 implement checked conversions between integers Jaroslav Hajek <highegg@gmail.com> parents: 7885 diff changeset	90 int8_array_value (void) const { return convert_gripe<int8NDArray> (); }
5533 667ad2becb63 [project @ 2005-11-10 21:40:48 by jwe] jwe parents: 5307 diff changeset	91
667ad2becb63 [project @ 2005-11-10 21:40:48 by jwe] jwe parents: 5307 diff changeset	92 int16NDArray
7997 2b8952e133c9 implement checked conversions between integers Jaroslav Hajek <highegg@gmail.com> parents: 7885 diff changeset	93 int16_array_value (void) const { return convert_gripe<int16NDArray> (); }
5533 667ad2becb63 [project @ 2005-11-10 21:40:48 by jwe] jwe parents: 5307 diff changeset	94
667ad2becb63 [project @ 2005-11-10 21:40:48 by jwe] jwe parents: 5307 diff changeset	95 int32NDArray
7997 2b8952e133c9 implement checked conversions between integers Jaroslav Hajek <highegg@gmail.com> parents: 7885 diff changeset	96 int32_array_value (void) const { return convert_gripe<int32NDArray> (); }
5533 667ad2becb63 [project @ 2005-11-10 21:40:48 by jwe] jwe parents: 5307 diff changeset	97
667ad2becb63 [project @ 2005-11-10 21:40:48 by jwe] jwe parents: 5307 diff changeset	98 int64NDArray
7997 2b8952e133c9 implement checked conversions between integers Jaroslav Hajek <highegg@gmail.com> parents: 7885 diff changeset	99 int64_array_value (void) const { return convert_gripe<int64NDArray> (); }
5533 667ad2becb63 [project @ 2005-11-10 21:40:48 by jwe] jwe parents: 5307 diff changeset	100
667ad2becb63 [project @ 2005-11-10 21:40:48 by jwe] jwe parents: 5307 diff changeset	101 uint8NDArray
7997 2b8952e133c9 implement checked conversions between integers Jaroslav Hajek <highegg@gmail.com> parents: 7885 diff changeset	102 uint8_array_value (void) const { return convert_gripe<uint8NDArray> (); }
5533 667ad2becb63 [project @ 2005-11-10 21:40:48 by jwe] jwe parents: 5307 diff changeset	103
667ad2becb63 [project @ 2005-11-10 21:40:48 by jwe] jwe parents: 5307 diff changeset	104 uint16NDArray
7997 2b8952e133c9 implement checked conversions between integers Jaroslav Hajek <highegg@gmail.com> parents: 7885 diff changeset	105 uint16_array_value (void) const { return convert_gripe<uint16NDArray> (); }
5533 667ad2becb63 [project @ 2005-11-10 21:40:48 by jwe] jwe parents: 5307 diff changeset	106
667ad2becb63 [project @ 2005-11-10 21:40:48 by jwe] jwe parents: 5307 diff changeset	107 uint32NDArray
7997 2b8952e133c9 implement checked conversions between integers Jaroslav Hajek <highegg@gmail.com> parents: 7885 diff changeset	108 uint32_array_value (void) const { return convert_gripe<uint32NDArray> (); }
5533 667ad2becb63 [project @ 2005-11-10 21:40:48 by jwe] jwe parents: 5307 diff changeset	109
667ad2becb63 [project @ 2005-11-10 21:40:48 by jwe] jwe parents: 5307 diff changeset	110 uint64NDArray
7997 2b8952e133c9 implement checked conversions between integers Jaroslav Hajek <highegg@gmail.com> parents: 7885 diff changeset	111 uint64_array_value (void) const { return convert_gripe<uint64NDArray> (); }
4904 71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	112
4982 c0866f89c43d [project @ 2004-09-10 13:48:18 by jwe] jwe parents: 4964 diff changeset	113 double
c0866f89c43d [project @ 2004-09-10 13:48:18 by jwe] jwe parents: 4964 diff changeset	114 double_value (bool = false) const
c0866f89c43d [project @ 2004-09-10 13:48:18 by jwe] jwe parents: 4964 diff changeset	115 {
c0866f89c43d [project @ 2004-09-10 13:48:18 by jwe] jwe parents: 4964 diff changeset	116 double retval = lo_ieee_nan_value ();
c0866f89c43d [project @ 2004-09-10 13:48:18 by jwe] jwe parents: 4964 diff changeset	117
c0866f89c43d [project @ 2004-09-10 13:48:18 by jwe] jwe parents: 4964 diff changeset	118 if (numel () > 0)
c0866f89c43d [project @ 2004-09-10 13:48:18 by jwe] jwe parents: 4964 diff changeset	119 {
5781 faafc2d98b8d [project @ 2006-05-02 19:40:19 by jwe] jwe parents: 5775 diff changeset	120 gripe_implicit_conversion ("Octave:array-as-scalar",
faafc2d98b8d [project @ 2006-05-02 19:40:19 by jwe] jwe parents: 5775 diff changeset	121 type_name (), "real scalar");
4982 c0866f89c43d [project @ 2004-09-10 13:48:18 by jwe] jwe parents: 4964 diff changeset	122
7198 4555c116b420 [project @ 2007-11-27 03:06:10 by jwe] jwe parents: 7064 diff changeset	123 retval = matrix(0).double_value ();
4982 c0866f89c43d [project @ 2004-09-10 13:48:18 by jwe] jwe parents: 4964 diff changeset	124 }
c0866f89c43d [project @ 2004-09-10 13:48:18 by jwe] jwe parents: 4964 diff changeset	125 else
c0866f89c43d [project @ 2004-09-10 13:48:18 by jwe] jwe parents: 4964 diff changeset	126 gripe_invalid_conversion (type_name (), "real scalar");
c0866f89c43d [project @ 2004-09-10 13:48:18 by jwe] jwe parents: 4964 diff changeset	127
c0866f89c43d [project @ 2004-09-10 13:48:18 by jwe] jwe parents: 4964 diff changeset	128 return retval;
c0866f89c43d [project @ 2004-09-10 13:48:18 by jwe] jwe parents: 4964 diff changeset	129
c0866f89c43d [project @ 2004-09-10 13:48:18 by jwe] jwe parents: 4964 diff changeset	130 }
c0866f89c43d [project @ 2004-09-10 13:48:18 by jwe] jwe parents: 4964 diff changeset	131
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	132 float
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	133 float_value (bool = false) const
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	134 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	135 float retval = lo_ieee_float_nan_value ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	136
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	137 if (numel () > 0)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	138 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	139 gripe_implicit_conversion ("Octave:array-as-scalar",
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	140 type_name (), "real scalar");
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	141
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	142 retval = matrix(0).float_value ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	143 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	144 else
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	145 gripe_invalid_conversion (type_name (), "real scalar");
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	146
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	147 return retval;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	148
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	149 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	150
4983 13aaef87cf18 [project @ 2004-09-10 13:51:29 by jwe] jwe parents: 4982 diff changeset	151 double scalar_value (bool = false) const { return double_value (); }
4982 c0866f89c43d [project @ 2004-09-10 13:48:18 by jwe] jwe parents: 4964 diff changeset	152
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	153 float float_scalar_value (bool = false) const { return float_value (); }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	154
6214 4685a6a76229 [project @ 2006-12-08 22:15:03 by jwe] jwe parents: 6069 diff changeset	155 Matrix
4685a6a76229 [project @ 2006-12-08 22:15:03 by jwe] jwe parents: 6069 diff changeset	156 matrix_value (bool = false) const
4685a6a76229 [project @ 2006-12-08 22:15:03 by jwe] jwe parents: 6069 diff changeset	157 {
4685a6a76229 [project @ 2006-12-08 22:15:03 by jwe] jwe parents: 6069 diff changeset	158 Matrix retval;
4685a6a76229 [project @ 2006-12-08 22:15:03 by jwe] jwe parents: 6069 diff changeset	159 dim_vector dv = dims ();
4685a6a76229 [project @ 2006-12-08 22:15:03 by jwe] jwe parents: 6069 diff changeset	160 if (dv.length () > 2)
4685a6a76229 [project @ 2006-12-08 22:15:03 by jwe] jwe parents: 6069 diff changeset	161 error ("invalid conversion of %s to Matrix", type_name().c_str ());
4685a6a76229 [project @ 2006-12-08 22:15:03 by jwe] jwe parents: 6069 diff changeset	162 else
4685a6a76229 [project @ 2006-12-08 22:15:03 by jwe] jwe parents: 6069 diff changeset	163 {
4685a6a76229 [project @ 2006-12-08 22:15:03 by jwe] jwe parents: 6069 diff changeset	164 retval = Matrix (dv(0), dv(1));
4685a6a76229 [project @ 2006-12-08 22:15:03 by jwe] jwe parents: 6069 diff changeset	165 double *vec = retval.fortran_vec ();
4685a6a76229 [project @ 2006-12-08 22:15:03 by jwe] jwe parents: 6069 diff changeset	166 octave_idx_type nel = matrix.numel ();
4685a6a76229 [project @ 2006-12-08 22:15:03 by jwe] jwe parents: 6069 diff changeset	167 for (octave_idx_type i = 0; i < nel; i++)
7198 4555c116b420 [project @ 2007-11-27 03:06:10 by jwe] jwe parents: 7064 diff changeset	168 vec[i] = matrix(i).double_value ();
6214 4685a6a76229 [project @ 2006-12-08 22:15:03 by jwe] jwe parents: 6069 diff changeset	169 }
4685a6a76229 [project @ 2006-12-08 22:15:03 by jwe] jwe parents: 6069 diff changeset	170 return retval;
4685a6a76229 [project @ 2006-12-08 22:15:03 by jwe] jwe parents: 6069 diff changeset	171 }
4685a6a76229 [project @ 2006-12-08 22:15:03 by jwe] jwe parents: 6069 diff changeset	172
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	173 FloatMatrix
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	174 float_matrix_value (bool = false) const
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	175 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	176 FloatMatrix retval;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	177 dim_vector dv = dims ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	178 if (dv.length () > 2)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	179 error ("invalid conversion of %s to FloatMatrix", type_name().c_str ());
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	180 else
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	181 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	182 retval = FloatMatrix (dv(0), dv(1));
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	183 float *vec = retval.fortran_vec ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	184 octave_idx_type nel = matrix.numel ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	185 for (octave_idx_type i = 0; i < nel; i++)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	186 vec[i] = matrix(i).float_value ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	187 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	188 return retval;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	189 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	190
6214 4685a6a76229 [project @ 2006-12-08 22:15:03 by jwe] jwe parents: 6069 diff changeset	191 ComplexMatrix
4685a6a76229 [project @ 2006-12-08 22:15:03 by jwe] jwe parents: 6069 diff changeset	192 complex_matrix_value (bool = false) const
4685a6a76229 [project @ 2006-12-08 22:15:03 by jwe] jwe parents: 6069 diff changeset	193 {
4685a6a76229 [project @ 2006-12-08 22:15:03 by jwe] jwe parents: 6069 diff changeset	194 ComplexMatrix retval;
4685a6a76229 [project @ 2006-12-08 22:15:03 by jwe] jwe parents: 6069 diff changeset	195 dim_vector dv = dims();
4685a6a76229 [project @ 2006-12-08 22:15:03 by jwe] jwe parents: 6069 diff changeset	196 if (dv.length () > 2)
4685a6a76229 [project @ 2006-12-08 22:15:03 by jwe] jwe parents: 6069 diff changeset	197 error ("invalid conversion of %s to Matrix", type_name().c_str ());
4685a6a76229 [project @ 2006-12-08 22:15:03 by jwe] jwe parents: 6069 diff changeset	198 else
4685a6a76229 [project @ 2006-12-08 22:15:03 by jwe] jwe parents: 6069 diff changeset	199 {
4685a6a76229 [project @ 2006-12-08 22:15:03 by jwe] jwe parents: 6069 diff changeset	200 retval = ComplexMatrix (dv(0), dv(1));
4685a6a76229 [project @ 2006-12-08 22:15:03 by jwe] jwe parents: 6069 diff changeset	201 Complex *vec = retval.fortran_vec ();
4685a6a76229 [project @ 2006-12-08 22:15:03 by jwe] jwe parents: 6069 diff changeset	202 octave_idx_type nel = matrix.numel ();
4685a6a76229 [project @ 2006-12-08 22:15:03 by jwe] jwe parents: 6069 diff changeset	203 for (octave_idx_type i = 0; i < nel; i++)
7198 4555c116b420 [project @ 2007-11-27 03:06:10 by jwe] jwe parents: 7064 diff changeset	204 vec[i] = Complex (matrix(i).double_value ());
6214 4685a6a76229 [project @ 2006-12-08 22:15:03 by jwe] jwe parents: 6069 diff changeset	205 }
4685a6a76229 [project @ 2006-12-08 22:15:03 by jwe] jwe parents: 6069 diff changeset	206 return retval;
4685a6a76229 [project @ 2006-12-08 22:15:03 by jwe] jwe parents: 6069 diff changeset	207 }
4685a6a76229 [project @ 2006-12-08 22:15:03 by jwe] jwe parents: 6069 diff changeset	208
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	209 FloatComplexMatrix
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	210 float_complex_matrix_value (bool = false) const
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	211 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	212 FloatComplexMatrix retval;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	213 dim_vector dv = dims();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	214 if (dv.length () > 2)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	215 error ("invalid conversion of %s to FloatMatrix", type_name().c_str ());
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	216 else
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	217 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	218 retval = FloatComplexMatrix (dv(0), dv(1));
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	219 FloatComplex *vec = retval.fortran_vec ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	220 octave_idx_type nel = matrix.numel ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	221 for (octave_idx_type i = 0; i < nel; i++)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	222 vec[i] = FloatComplex (matrix(i).float_value ());
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	223 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	224 return retval;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	225 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	226
4915 c638c144d4da [project @ 2004-07-23 19:01:22 by jwe] jwe parents: 4910 diff changeset	227 NDArray
c638c144d4da [project @ 2004-07-23 19:01:22 by jwe] jwe parents: 4910 diff changeset	228 array_value (bool = false) const
c638c144d4da [project @ 2004-07-23 19:01:22 by jwe] jwe parents: 4910 diff changeset	229 {
c638c144d4da [project @ 2004-07-23 19:01:22 by jwe] jwe parents: 4910 diff changeset	230 NDArray retval (matrix.dims ());
6214 4685a6a76229 [project @ 2006-12-08 22:15:03 by jwe] jwe parents: 6069 diff changeset	231 double *vec = retval.fortran_vec ();
4685a6a76229 [project @ 2006-12-08 22:15:03 by jwe] jwe parents: 6069 diff changeset	232 octave_idx_type nel = matrix.numel ();
4685a6a76229 [project @ 2006-12-08 22:15:03 by jwe] jwe parents: 6069 diff changeset	233 for (octave_idx_type i = 0; i < nel; i++)
7198 4555c116b420 [project @ 2007-11-27 03:06:10 by jwe] jwe parents: 7064 diff changeset	234 vec[i] = matrix(i).double_value ();
4963 573d23f9c9cf [project @ 2004-09-03 15:43:29 by jwe] jwe parents: 4944 diff changeset	235 return retval;
573d23f9c9cf [project @ 2004-09-03 15:43:29 by jwe] jwe parents: 4944 diff changeset	236 }
573d23f9c9cf [project @ 2004-09-03 15:43:29 by jwe] jwe parents: 4944 diff changeset	237
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	238 FloatNDArray
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	239 float_array_value (bool = false) const
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	240 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	241 FloatNDArray retval (matrix.dims ());
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	242 float *vec = retval.fortran_vec ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	243 octave_idx_type nel = matrix.numel ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	244 for (octave_idx_type i = 0; i < nel; i++)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	245 vec[i] = matrix(i).float_value ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	246 return retval;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	247 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	248
4963 573d23f9c9cf [project @ 2004-09-03 15:43:29 by jwe] jwe parents: 4944 diff changeset	249 ComplexNDArray
573d23f9c9cf [project @ 2004-09-03 15:43:29 by jwe] jwe parents: 4944 diff changeset	250 complex_array_value (bool = false) const
573d23f9c9cf [project @ 2004-09-03 15:43:29 by jwe] jwe parents: 4944 diff changeset	251 {
573d23f9c9cf [project @ 2004-09-03 15:43:29 by jwe] jwe parents: 4944 diff changeset	252 ComplexNDArray retval (matrix.dims ());
6214 4685a6a76229 [project @ 2006-12-08 22:15:03 by jwe] jwe parents: 6069 diff changeset	253 Complex *vec = retval.fortran_vec ();
4685a6a76229 [project @ 2006-12-08 22:15:03 by jwe] jwe parents: 6069 diff changeset	254 octave_idx_type nel = matrix.numel ();
4685a6a76229 [project @ 2006-12-08 22:15:03 by jwe] jwe parents: 6069 diff changeset	255 for (octave_idx_type i = 0; i < nel; i++)
7198 4555c116b420 [project @ 2007-11-27 03:06:10 by jwe] jwe parents: 7064 diff changeset	256 vec[i] = Complex (matrix(i).double_value ());
4915 c638c144d4da [project @ 2004-07-23 19:01:22 by jwe] jwe parents: 4910 diff changeset	257 return retval;
c638c144d4da [project @ 2004-07-23 19:01:22 by jwe] jwe parents: 4910 diff changeset	258 }
c638c144d4da [project @ 2004-07-23 19:01:22 by jwe] jwe parents: 4910 diff changeset	259
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	260 FloatComplexNDArray
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	261 float_complex_array_value (bool = false) const
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	262 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	263 FloatComplexNDArray retval (matrix.dims ());
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	264 FloatComplex *vec = retval.fortran_vec ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	265 octave_idx_type nel = matrix.numel ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	266 for (octave_idx_type i = 0; i < nel; i++)
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	267 vec[i] = FloatComplex (matrix(i).float_value ());
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	268 return retval;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	269 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	270
5898 da843f35775c [project @ 2006-07-19 18:18:08 by jwe] jwe parents: 5895 diff changeset	271 boolNDArray
5943 c038c2947ee1 [project @ 2006-08-18 21:27:03 by jwe] jwe parents: 5900 diff changeset	272 bool_array_value (bool warn = false) const
5898 da843f35775c [project @ 2006-07-19 18:18:08 by jwe] jwe parents: 5895 diff changeset	273 {
da843f35775c [project @ 2006-07-19 18:18:08 by jwe] jwe parents: 5895 diff changeset	274 boolNDArray retval (dims ());
da843f35775c [project @ 2006-07-19 18:18:08 by jwe] jwe parents: 5895 diff changeset	275
da843f35775c [project @ 2006-07-19 18:18:08 by jwe] jwe parents: 5895 diff changeset	276 octave_idx_type nel = numel ();
5943 c038c2947ee1 [project @ 2006-08-18 21:27:03 by jwe] jwe parents: 5900 diff changeset	277
c038c2947ee1 [project @ 2006-08-18 21:27:03 by jwe] jwe parents: 5900 diff changeset	278 if (warn && matrix.any_element_not_one_or_zero ())
c038c2947ee1 [project @ 2006-08-18 21:27:03 by jwe] jwe parents: 5900 diff changeset	279 gripe_logical_conversion ();
c038c2947ee1 [project @ 2006-08-18 21:27:03 by jwe] jwe parents: 5900 diff changeset	280
6214 4685a6a76229 [project @ 2006-12-08 22:15:03 by jwe] jwe parents: 6069 diff changeset	281 bool *vec = retval.fortran_vec ();
5898 da843f35775c [project @ 2006-07-19 18:18:08 by jwe] jwe parents: 5895 diff changeset	282 for (octave_idx_type i = 0; i < nel; i++)
7198 4555c116b420 [project @ 2007-11-27 03:06:10 by jwe] jwe parents: 7064 diff changeset	283 vec[i] = matrix(i).bool_value ();
5898 da843f35775c [project @ 2006-07-19 18:18:08 by jwe] jwe parents: 5895 diff changeset	284
da843f35775c [project @ 2006-07-19 18:18:08 by jwe] jwe parents: 5895 diff changeset	285 return retval;
da843f35775c [project @ 2006-07-19 18:18:08 by jwe] jwe parents: 5895 diff changeset	286 }
da843f35775c [project @ 2006-07-19 18:18:08 by jwe] jwe parents: 5895 diff changeset	287
5533 667ad2becb63 [project @ 2005-11-10 21:40:48 by jwe] jwe parents: 5307 diff changeset	288 charNDArray
667ad2becb63 [project @ 2005-11-10 21:40:48 by jwe] jwe parents: 5307 diff changeset	289 char_array_value (bool = false) const
667ad2becb63 [project @ 2005-11-10 21:40:48 by jwe] jwe parents: 5307 diff changeset	290 {
667ad2becb63 [project @ 2005-11-10 21:40:48 by jwe] jwe parents: 5307 diff changeset	291 charNDArray retval (dims ());
667ad2becb63 [project @ 2005-11-10 21:40:48 by jwe] jwe parents: 5307 diff changeset	292
667ad2becb63 [project @ 2005-11-10 21:40:48 by jwe] jwe parents: 5307 diff changeset	293 octave_idx_type nel = numel ();
667ad2becb63 [project @ 2005-11-10 21:40:48 by jwe] jwe parents: 5307 diff changeset	294
6214 4685a6a76229 [project @ 2006-12-08 22:15:03 by jwe] jwe parents: 6069 diff changeset	295 char *vec = retval.fortran_vec ();
5533 667ad2becb63 [project @ 2005-11-10 21:40:48 by jwe] jwe parents: 5307 diff changeset	296 for (octave_idx_type i = 0; i < nel; i++)
7198 4555c116b420 [project @ 2007-11-27 03:06:10 by jwe] jwe parents: 7064 diff changeset	297 vec[i] = matrix(i).char_value ();
5533 667ad2becb63 [project @ 2005-11-10 21:40:48 by jwe] jwe parents: 5307 diff changeset	298
667ad2becb63 [project @ 2005-11-10 21:40:48 by jwe] jwe parents: 5307 diff changeset	299 return retval;
667ad2becb63 [project @ 2005-11-10 21:40:48 by jwe] jwe parents: 5307 diff changeset	300 }
667ad2becb63 [project @ 2005-11-10 21:40:48 by jwe] jwe parents: 5307 diff changeset	301
8039 cd90e2842080 Add additional integer math and conversion warnings, set their default state to be off and add the intwarning function David Bateman <dbateman@free.fr> parents: 7999 diff changeset	302 void increment (void)
cd90e2842080 Add additional integer math and conversion warnings, set their default state to be off and add the intwarning function David Bateman <dbateman@free.fr> parents: 7999 diff changeset	303 {
8321 69b6127f6962 better use of templates in ov-intx.h John W. Eaton <jwe@octave.org> parents: 8039 diff changeset	304 matrix += OCTAVE_INT_T (1);
8039 cd90e2842080 Add additional integer math and conversion warnings, set their default state to be off and add the intwarning function David Bateman <dbateman@free.fr> parents: 7999 diff changeset	305 if (OCTAVE_INT_T::get_math_trunc_flag ())
cd90e2842080 Add additional integer math and conversion warnings, set their default state to be off and add the intwarning function David Bateman <dbateman@free.fr> parents: 7999 diff changeset	306 gripe_unop_integer_math_truncated ("++", type_name (). c_str ());
5829 93785a1b0f97 [project @ 2006-05-23 18:34:10 by jwe] jwe parents: 5781 diff changeset	307
8039 cd90e2842080 Add additional integer math and conversion warnings, set their default state to be off and add the intwarning function David Bateman <dbateman@free.fr> parents: 7999 diff changeset	308 OCTAVE_INT_T::clear_conv_flag ();
cd90e2842080 Add additional integer math and conversion warnings, set their default state to be off and add the intwarning function David Bateman <dbateman@free.fr> parents: 7999 diff changeset	309 }
cd90e2842080 Add additional integer math and conversion warnings, set their default state to be off and add the intwarning function David Bateman <dbateman@free.fr> parents: 7999 diff changeset	310
cd90e2842080 Add additional integer math and conversion warnings, set their default state to be off and add the intwarning function David Bateman <dbateman@free.fr> parents: 7999 diff changeset	311 void decrement (void)
cd90e2842080 Add additional integer math and conversion warnings, set their default state to be off and add the intwarning function David Bateman <dbateman@free.fr> parents: 7999 diff changeset	312 {
8321 69b6127f6962 better use of templates in ov-intx.h John W. Eaton <jwe@octave.org> parents: 8039 diff changeset	313 matrix -= OCTAVE_INT_T (1);
8039 cd90e2842080 Add additional integer math and conversion warnings, set their default state to be off and add the intwarning function David Bateman <dbateman@free.fr> parents: 7999 diff changeset	314 if (OCTAVE_INT_T::get_math_trunc_flag ())
cd90e2842080 Add additional integer math and conversion warnings, set their default state to be off and add the intwarning function David Bateman <dbateman@free.fr> parents: 7999 diff changeset	315 gripe_unop_integer_math_truncated ("--", type_name (). c_str ());
cd90e2842080 Add additional integer math and conversion warnings, set their default state to be off and add the intwarning function David Bateman <dbateman@free.fr> parents: 7999 diff changeset	316 OCTAVE_INT_T::clear_conv_flag ();
cd90e2842080 Add additional integer math and conversion warnings, set their default state to be off and add the intwarning function David Bateman <dbateman@free.fr> parents: 7999 diff changeset	317 }
5829 93785a1b0f97 [project @ 2006-05-23 18:34:10 by jwe] jwe parents: 5781 diff changeset	318
4938 703d97b89507 [project @ 2004-08-09 20:21:59 by jwe] jwe parents: 4915 diff changeset	319 idx_vector index_vector (void) const { return idx_vector (matrix); }
703d97b89507 [project @ 2004-08-09 20:21:59 by jwe] jwe parents: 4915 diff changeset	320
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4938 diff changeset	321 int write (octave_stream& os, int block_size,
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4938 diff changeset	322 oct_data_conv::data_type output_type, int skip,
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4938 diff changeset	323 oct_mach_info::float_format flt_fmt) const
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4938 diff changeset	324 { return os.write (matrix, block_size, output_type, skip, flt_fmt); }
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4938 diff changeset	325
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5898 diff changeset	326 mxArray *as_mxArray (void) const
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5898 diff changeset	327 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5898 diff changeset	328 mxArray *retval = new mxArray (OCTAVE_INT_MX_CLASS, dims (), mxREAL);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5898 diff changeset	329
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5898 diff changeset	330 OCTAVE_INT_T::val_type pr = static_cast<OCTAVE_INT_T::val_type > (retval->get_data ());
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5898 diff changeset	331
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6223 diff changeset	332 mwSize nel = numel ();
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5898 diff changeset	333
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5898 diff changeset	334 const OCTAVE_INT_T *p = matrix.data ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5898 diff changeset	335
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6223 diff changeset	336 for (mwIndex i = 0; i < nel; i++)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5898 diff changeset	337 pr[i] = p[i].value ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5898 diff changeset	338
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5898 diff changeset	339 return retval;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5898 diff changeset	340 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5898 diff changeset	341
7503 8c32f95c2639 convert mapper functions to new format David Bateman <dbateman@free.fr> parents: 7201 diff changeset	342 #define MAT_MAPPER(FCN) \
8c32f95c2639 convert mapper functions to new format David Bateman <dbateman@free.fr> parents: 7201 diff changeset	343 octave_value FCN (void) const { return matrix.FCN (); }
8c32f95c2639 convert mapper functions to new format David Bateman <dbateman@free.fr> parents: 7201 diff changeset	344
8c32f95c2639 convert mapper functions to new format David Bateman <dbateman@free.fr> parents: 7201 diff changeset	345 MAT_MAPPER (abs)
8c32f95c2639 convert mapper functions to new format David Bateman <dbateman@free.fr> parents: 7201 diff changeset	346 MAT_MAPPER (signum)
8c32f95c2639 convert mapper functions to new format David Bateman <dbateman@free.fr> parents: 7201 diff changeset	347
8c32f95c2639 convert mapper functions to new format David Bateman <dbateman@free.fr> parents: 7201 diff changeset	348 #undef MAT_MAPPER
8c32f95c2639 convert mapper functions to new format David Bateman <dbateman@free.fr> parents: 7201 diff changeset	349
8c32f95c2639 convert mapper functions to new format David Bateman <dbateman@free.fr> parents: 7201 diff changeset	350 octave_value imag (void) const
8c32f95c2639 convert mapper functions to new format David Bateman <dbateman@free.fr> parents: 7201 diff changeset	351 {
8321 69b6127f6962 better use of templates in ov-intx.h John W. Eaton <jwe@octave.org> parents: 8039 diff changeset	352 return intNDArray<OCTAVE_INT_T> (matrix.dims (),
69b6127f6962 better use of templates in ov-intx.h John W. Eaton <jwe@octave.org> parents: 8039 diff changeset	353 static_cast<OCTAVE_INT_T>(0));
7503 8c32f95c2639 convert mapper functions to new format David Bateman <dbateman@free.fr> parents: 7201 diff changeset	354 }
8c32f95c2639 convert mapper functions to new format David Bateman <dbateman@free.fr> parents: 7201 diff changeset	355
8c32f95c2639 convert mapper functions to new format David Bateman <dbateman@free.fr> parents: 7201 diff changeset	356 #define NO_OP_MAPPER(FCN) \
8c32f95c2639 convert mapper functions to new format David Bateman <dbateman@free.fr> parents: 7201 diff changeset	357 octave_value FCN (void) const { return octave_value (matrix); }
8c32f95c2639 convert mapper functions to new format David Bateman <dbateman@free.fr> parents: 7201 diff changeset	358
8c32f95c2639 convert mapper functions to new format David Bateman <dbateman@free.fr> parents: 7201 diff changeset	359 NO_OP_MAPPER (ceil)
8c32f95c2639 convert mapper functions to new format David Bateman <dbateman@free.fr> parents: 7201 diff changeset	360 NO_OP_MAPPER (conj)
8c32f95c2639 convert mapper functions to new format David Bateman <dbateman@free.fr> parents: 7201 diff changeset	361 NO_OP_MAPPER (fix)
8c32f95c2639 convert mapper functions to new format David Bateman <dbateman@free.fr> parents: 7201 diff changeset	362 NO_OP_MAPPER (floor)
8c32f95c2639 convert mapper functions to new format David Bateman <dbateman@free.fr> parents: 7201 diff changeset	363 NO_OP_MAPPER (real)
8c32f95c2639 convert mapper functions to new format David Bateman <dbateman@free.fr> parents: 7201 diff changeset	364 NO_OP_MAPPER (round)
7636 99c410f7f0b0 implement mapper function for banker's rounding Jaroslav Hajek <highegg@gmail.com> parents: 7503 diff changeset	365 NO_OP_MAPPER (roundb)
7503 8c32f95c2639 convert mapper functions to new format David Bateman <dbateman@free.fr> parents: 7201 diff changeset	366
8c32f95c2639 convert mapper functions to new format David Bateman <dbateman@free.fr> parents: 7201 diff changeset	367 #undef NO_OP_MAPPER
8c32f95c2639 convert mapper functions to new format David Bateman <dbateman@free.fr> parents: 7201 diff changeset	368
8c32f95c2639 convert mapper functions to new format David Bateman <dbateman@free.fr> parents: 7201 diff changeset	369 #define BOOL_MAPPER(FCN, VAL) \
8c32f95c2639 convert mapper functions to new format David Bateman <dbateman@free.fr> parents: 7201 diff changeset	370 octave_value FCN (void) const { return boolNDArray (matrix.dims (), VAL); }
8c32f95c2639 convert mapper functions to new format David Bateman <dbateman@free.fr> parents: 7201 diff changeset	371
8c32f95c2639 convert mapper functions to new format David Bateman <dbateman@free.fr> parents: 7201 diff changeset	372 BOOL_MAPPER (finite, true)
8c32f95c2639 convert mapper functions to new format David Bateman <dbateman@free.fr> parents: 7201 diff changeset	373 BOOL_MAPPER (isinf, false)
8c32f95c2639 convert mapper functions to new format David Bateman <dbateman@free.fr> parents: 7201 diff changeset	374 BOOL_MAPPER (isna, false)
8c32f95c2639 convert mapper functions to new format David Bateman <dbateman@free.fr> parents: 7201 diff changeset	375 BOOL_MAPPER (isnan, false)
8c32f95c2639 convert mapper functions to new format David Bateman <dbateman@free.fr> parents: 7201 diff changeset	376
8c32f95c2639 convert mapper functions to new format David Bateman <dbateman@free.fr> parents: 7201 diff changeset	377 #undef BOOL_MAPPER
8c32f95c2639 convert mapper functions to new format David Bateman <dbateman@free.fr> parents: 7201 diff changeset	378
4904 71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	379 private:
71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	380
71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	381 DECLARE_OCTAVE_ALLOCATOR
71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	382
71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	383 DECLARE_OV_TYPEID_FUNCTIONS_AND_DATA
71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	384 };
71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	385
71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	386 class
6693 768d3ad80bbf [project @ 2007-06-06 05:18:54 by jwe] jwe parents: 6686 diff changeset	387 OCTINTERP_API
4904 71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	388 OCTAVE_VALUE_INT_SCALAR_T
71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	389 : public octave_base_int_scalar<OCTAVE_INT_T>
71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	390 {
71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	391 public:
71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	392
71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	393 OCTAVE_VALUE_INT_SCALAR_T (void)
71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	394 : octave_base_int_scalar<OCTAVE_INT_T> () { }
71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	395
71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	396 OCTAVE_VALUE_INT_SCALAR_T (const OCTAVE_INT_T& nda)
71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	397 : octave_base_int_scalar<OCTAVE_INT_T> (nda) { }
71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	398
71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	399 ~OCTAVE_VALUE_INT_SCALAR_T (void) { }
71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	400
5759 ce79d238f142 [project @ 2006-04-13 13:04:32 by jwe] jwe parents: 5731 diff changeset	401 octave_base_value *clone (void) const
4904 71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	402 { return new OCTAVE_VALUE_INT_SCALAR_T (*this); }
71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	403
5759 ce79d238f142 [project @ 2006-04-13 13:04:32 by jwe] jwe parents: 5731 diff changeset	404 octave_base_value *empty_clone (void) const
8389 ff5892c8ddd0 fix integer assignment to non-existing variables Jaroslav Hajek <highegg@gmail.com> parents: 8321 diff changeset	405 { return new OCTAVE_VALUE_INT_MATRIX_T (); }
4904 71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	406
5885 bd3041e30d97 [project @ 2006-07-14 20:29:35 by jwe] jwe parents: 5829 diff changeset	407 octave_value do_index_op (const octave_value_list& idx,
bd3041e30d97 [project @ 2006-07-14 20:29:35 by jwe] jwe parents: 5829 diff changeset	408 bool resize_ok = false)
4983 13aaef87cf18 [project @ 2004-09-10 13:51:29 by jwe] jwe parents: 4982 diff changeset	409 {
8437 f00578b495e9 remove valid_as_scalar_index Jaroslav Hajek <highegg@gmail.com> parents: 8389 diff changeset	410 // FIXME -- this doesn't solve the problem of
f00578b495e9 remove valid_as_scalar_index Jaroslav Hajek <highegg@gmail.com> parents: 8389 diff changeset	411 //
f00578b495e9 remove valid_as_scalar_index Jaroslav Hajek <highegg@gmail.com> parents: 8389 diff changeset	412 // a = 1; a([1,1], [1,1], [1,1])
f00578b495e9 remove valid_as_scalar_index Jaroslav Hajek <highegg@gmail.com> parents: 8389 diff changeset	413 //
f00578b495e9 remove valid_as_scalar_index Jaroslav Hajek <highegg@gmail.com> parents: 8389 diff changeset	414 // and similar constructions. Hmm...
4964 269c3d6c0569 [project @ 2004-09-04 01:16:28 by jwe] jwe parents: 4963 diff changeset	415
8437 f00578b495e9 remove valid_as_scalar_index Jaroslav Hajek <highegg@gmail.com> parents: 8389 diff changeset	416 // FIXME -- using this constructor avoids narrowing the
f00578b495e9 remove valid_as_scalar_index Jaroslav Hajek <highegg@gmail.com> parents: 8389 diff changeset	417 // 1x1 matrix back to a scalar value. Need a better solution
f00578b495e9 remove valid_as_scalar_index Jaroslav Hajek <highegg@gmail.com> parents: 8389 diff changeset	418 // to this problem.
4964 269c3d6c0569 [project @ 2004-09-04 01:16:28 by jwe] jwe parents: 4963 diff changeset	419
8437 f00578b495e9 remove valid_as_scalar_index Jaroslav Hajek <highegg@gmail.com> parents: 8389 diff changeset	420 octave_value tmp
f00578b495e9 remove valid_as_scalar_index Jaroslav Hajek <highegg@gmail.com> parents: 8389 diff changeset	421 (new OCTAVE_VALUE_INT_MATRIX_T
f00578b495e9 remove valid_as_scalar_index Jaroslav Hajek <highegg@gmail.com> parents: 8389 diff changeset	422 (OCTAVE_VALUE_INT_NDARRAY_EXTRACTOR_FUNCTION ()));
4964 269c3d6c0569 [project @ 2004-09-04 01:16:28 by jwe] jwe parents: 4963 diff changeset	423
8437 f00578b495e9 remove valid_as_scalar_index Jaroslav Hajek <highegg@gmail.com> parents: 8389 diff changeset	424 return tmp.do_index_op (idx, resize_ok);
4983 13aaef87cf18 [project @ 2004-09-10 13:51:29 by jwe] jwe parents: 4982 diff changeset	425 }
4964 269c3d6c0569 [project @ 2004-09-04 01:16:28 by jwe] jwe parents: 4963 diff changeset	426
6069 67b1a61a85ce [project @ 2006-10-21 14:33:53 by jwe] jwe parents: 5943 diff changeset	427 bool OCTAVE_TYPE_PREDICATE_FUNCTION (void) const { return true; }
5895 b9c45e0cf685 [project @ 2006-07-19 01:57:44 by jwe] jwe parents: 5885 diff changeset	428
6223 a6cc01dd09f9 [project @ 2007-01-03 20:59:28 by jwe] jwe parents: 6214 diff changeset	429 bool is_integer_type (void) const { return true; }
a6cc01dd09f9 [project @ 2007-01-03 20:59:28 by jwe] jwe parents: 6214 diff changeset	430
7997 2b8952e133c9 implement checked conversions between integers Jaroslav Hajek <highegg@gmail.com> parents: 7885 diff changeset	431 private:
2b8952e133c9 implement checked conversions between integers Jaroslav Hajek <highegg@gmail.com> parents: 7885 diff changeset	432
7999 f7f2d867c523 style fixes John W. Eaton <jwe@octave.org> parents: 7997 diff changeset	433 template <class IS>
f7f2d867c523 style fixes John W. Eaton <jwe@octave.org> parents: 7997 diff changeset	434 IS convert_gripe () const
7997 2b8952e133c9 implement checked conversions between integers Jaroslav Hajek <highegg@gmail.com> parents: 7885 diff changeset	435 {
7999 f7f2d867c523 style fixes John W. Eaton <jwe@octave.org> parents: 7997 diff changeset	436 typedef IS dest_el_type;
7997 2b8952e133c9 implement checked conversions between integers Jaroslav Hajek <highegg@gmail.com> parents: 7885 diff changeset	437 typedef OCTAVE_INT_T src_el_type;
8039 cd90e2842080 Add additional integer math and conversion warnings, set their default state to be off and add the intwarning function David Bateman <dbateman@free.fr> parents: 7999 diff changeset	438 dest_el_type::clear_conv_flag ();
7999 f7f2d867c523 style fixes John W. Eaton <jwe@octave.org> parents: 7997 diff changeset	439 IS retval (scalar);
8039 cd90e2842080 Add additional integer math and conversion warnings, set their default state to be off and add the intwarning function David Bateman <dbateman@free.fr> parents: 7999 diff changeset	440
7997 2b8952e133c9 implement checked conversions between integers Jaroslav Hajek <highegg@gmail.com> parents: 7885 diff changeset	441 if (dest_el_type::get_trunc_flag ())
8039 cd90e2842080 Add additional integer math and conversion warnings, set their default state to be off and add the intwarning function David Bateman <dbateman@free.fr> parents: 7999 diff changeset	442 gripe_truncated_conversion (src_el_type::type_name (),
cd90e2842080 Add additional integer math and conversion warnings, set their default state to be off and add the intwarning function David Bateman <dbateman@free.fr> parents: 7999 diff changeset	443 dest_el_type::type_name ());
cd90e2842080 Add additional integer math and conversion warnings, set their default state to be off and add the intwarning function David Bateman <dbateman@free.fr> parents: 7999 diff changeset	444 dest_el_type::clear_conv_flag ();
7997 2b8952e133c9 implement checked conversions between integers Jaroslav Hajek <highegg@gmail.com> parents: 7885 diff changeset	445 return retval;
2b8952e133c9 implement checked conversions between integers Jaroslav Hajek <highegg@gmail.com> parents: 7885 diff changeset	446 }
2b8952e133c9 implement checked conversions between integers Jaroslav Hajek <highegg@gmail.com> parents: 7885 diff changeset	447
2b8952e133c9 implement checked conversions between integers Jaroslav Hajek <highegg@gmail.com> parents: 7885 diff changeset	448 public:
2b8952e133c9 implement checked conversions between integers Jaroslav Hajek <highegg@gmail.com> parents: 7885 diff changeset	449
5533 667ad2becb63 [project @ 2005-11-10 21:40:48 by jwe] jwe parents: 5307 diff changeset	450 octave_int8
7997 2b8952e133c9 implement checked conversions between integers Jaroslav Hajek <highegg@gmail.com> parents: 7885 diff changeset	451 int8_scalar_value (void) const { return convert_gripe<octave_int8> (); }
5533 667ad2becb63 [project @ 2005-11-10 21:40:48 by jwe] jwe parents: 5307 diff changeset	452
667ad2becb63 [project @ 2005-11-10 21:40:48 by jwe] jwe parents: 5307 diff changeset	453 octave_int16
7997 2b8952e133c9 implement checked conversions between integers Jaroslav Hajek <highegg@gmail.com> parents: 7885 diff changeset	454 int16_scalar_value (void) const { return convert_gripe<octave_int16> (); }
5533 667ad2becb63 [project @ 2005-11-10 21:40:48 by jwe] jwe parents: 5307 diff changeset	455
667ad2becb63 [project @ 2005-11-10 21:40:48 by jwe] jwe parents: 5307 diff changeset	456 octave_int32
7997 2b8952e133c9 implement checked conversions between integers Jaroslav Hajek <highegg@gmail.com> parents: 7885 diff changeset	457 int32_scalar_value (void) const { return convert_gripe<octave_int32> (); }
5533 667ad2becb63 [project @ 2005-11-10 21:40:48 by jwe] jwe parents: 5307 diff changeset	458
667ad2becb63 [project @ 2005-11-10 21:40:48 by jwe] jwe parents: 5307 diff changeset	459 octave_int64
7997 2b8952e133c9 implement checked conversions between integers Jaroslav Hajek <highegg@gmail.com> parents: 7885 diff changeset	460 int64_scalar_value (void) const { return convert_gripe<octave_int64> (); }
5533 667ad2becb63 [project @ 2005-11-10 21:40:48 by jwe] jwe parents: 5307 diff changeset	461
667ad2becb63 [project @ 2005-11-10 21:40:48 by jwe] jwe parents: 5307 diff changeset	462 octave_uint8
7997 2b8952e133c9 implement checked conversions between integers Jaroslav Hajek <highegg@gmail.com> parents: 7885 diff changeset	463 uint8_scalar_value (void) const { return convert_gripe<octave_uint8> (); }
5533 667ad2becb63 [project @ 2005-11-10 21:40:48 by jwe] jwe parents: 5307 diff changeset	464
667ad2becb63 [project @ 2005-11-10 21:40:48 by jwe] jwe parents: 5307 diff changeset	465 octave_uint16
7997 2b8952e133c9 implement checked conversions between integers Jaroslav Hajek <highegg@gmail.com> parents: 7885 diff changeset	466 uint16_scalar_value (void) const { return convert_gripe<octave_uint16> (); }
5533 667ad2becb63 [project @ 2005-11-10 21:40:48 by jwe] jwe parents: 5307 diff changeset	467
667ad2becb63 [project @ 2005-11-10 21:40:48 by jwe] jwe parents: 5307 diff changeset	468 octave_uint32
7997 2b8952e133c9 implement checked conversions between integers Jaroslav Hajek <highegg@gmail.com> parents: 7885 diff changeset	469 uint32_scalar_value (void) const { return convert_gripe<octave_uint32> (); }
5533 667ad2becb63 [project @ 2005-11-10 21:40:48 by jwe] jwe parents: 5307 diff changeset	470
667ad2becb63 [project @ 2005-11-10 21:40:48 by jwe] jwe parents: 5307 diff changeset	471 octave_uint64
7997 2b8952e133c9 implement checked conversions between integers Jaroslav Hajek <highegg@gmail.com> parents: 7885 diff changeset	472 uint64_scalar_value (void) const { return convert_gripe<octave_uint64> (); }
5533 667ad2becb63 [project @ 2005-11-10 21:40:48 by jwe] jwe parents: 5307 diff changeset	473
667ad2becb63 [project @ 2005-11-10 21:40:48 by jwe] jwe parents: 5307 diff changeset	474 int8NDArray
667ad2becb63 [project @ 2005-11-10 21:40:48 by jwe] jwe parents: 5307 diff changeset	475 int8_array_value (void) const
7997 2b8952e133c9 implement checked conversions between integers Jaroslav Hajek <highegg@gmail.com> parents: 7885 diff changeset	476 { return int8NDArray (dim_vector (1, 1), int8_scalar_value ()); }
4904 71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	477
5533 667ad2becb63 [project @ 2005-11-10 21:40:48 by jwe] jwe parents: 5307 diff changeset	478 int16NDArray
667ad2becb63 [project @ 2005-11-10 21:40:48 by jwe] jwe parents: 5307 diff changeset	479 int16_array_value (void) const
7997 2b8952e133c9 implement checked conversions between integers Jaroslav Hajek <highegg@gmail.com> parents: 7885 diff changeset	480 { return int16NDArray (dim_vector (1, 1), int16_scalar_value ()); }
5533 667ad2becb63 [project @ 2005-11-10 21:40:48 by jwe] jwe parents: 5307 diff changeset	481
667ad2becb63 [project @ 2005-11-10 21:40:48 by jwe] jwe parents: 5307 diff changeset	482 int32NDArray
667ad2becb63 [project @ 2005-11-10 21:40:48 by jwe] jwe parents: 5307 diff changeset	483 int32_array_value (void) const
7997 2b8952e133c9 implement checked conversions between integers Jaroslav Hajek <highegg@gmail.com> parents: 7885 diff changeset	484 { return int32NDArray (dim_vector (1, 1), int32_scalar_value ()); }
5533 667ad2becb63 [project @ 2005-11-10 21:40:48 by jwe] jwe parents: 5307 diff changeset	485
667ad2becb63 [project @ 2005-11-10 21:40:48 by jwe] jwe parents: 5307 diff changeset	486 int64NDArray
667ad2becb63 [project @ 2005-11-10 21:40:48 by jwe] jwe parents: 5307 diff changeset	487 int64_array_value (void) const
7997 2b8952e133c9 implement checked conversions between integers Jaroslav Hajek <highegg@gmail.com> parents: 7885 diff changeset	488 { return int64NDArray (dim_vector (1, 1), int64_scalar_value ()); }
5533 667ad2becb63 [project @ 2005-11-10 21:40:48 by jwe] jwe parents: 5307 diff changeset	489
667ad2becb63 [project @ 2005-11-10 21:40:48 by jwe] jwe parents: 5307 diff changeset	490 uint8NDArray
667ad2becb63 [project @ 2005-11-10 21:40:48 by jwe] jwe parents: 5307 diff changeset	491 uint8_array_value (void) const
7997 2b8952e133c9 implement checked conversions between integers Jaroslav Hajek <highegg@gmail.com> parents: 7885 diff changeset	492 { return uint8NDArray (dim_vector (1, 1), uint8_scalar_value ()); }
5533 667ad2becb63 [project @ 2005-11-10 21:40:48 by jwe] jwe parents: 5307 diff changeset	493
667ad2becb63 [project @ 2005-11-10 21:40:48 by jwe] jwe parents: 5307 diff changeset	494 uint16NDArray
667ad2becb63 [project @ 2005-11-10 21:40:48 by jwe] jwe parents: 5307 diff changeset	495 uint16_array_value (void) const
7997 2b8952e133c9 implement checked conversions between integers Jaroslav Hajek <highegg@gmail.com> parents: 7885 diff changeset	496 { return uint16NDArray (dim_vector (1, 1), uint16_scalar_value ()); }
5533 667ad2becb63 [project @ 2005-11-10 21:40:48 by jwe] jwe parents: 5307 diff changeset	497
667ad2becb63 [project @ 2005-11-10 21:40:48 by jwe] jwe parents: 5307 diff changeset	498 uint32NDArray
667ad2becb63 [project @ 2005-11-10 21:40:48 by jwe] jwe parents: 5307 diff changeset	499 uint32_array_value (void) const
7997 2b8952e133c9 implement checked conversions between integers Jaroslav Hajek <highegg@gmail.com> parents: 7885 diff changeset	500 { return uint32NDArray (dim_vector (1, 1), uint32_scalar_value ()); }
5533 667ad2becb63 [project @ 2005-11-10 21:40:48 by jwe] jwe parents: 5307 diff changeset	501
667ad2becb63 [project @ 2005-11-10 21:40:48 by jwe] jwe parents: 5307 diff changeset	502 uint64NDArray
667ad2becb63 [project @ 2005-11-10 21:40:48 by jwe] jwe parents: 5307 diff changeset	503 uint64_array_value (void) const
7997 2b8952e133c9 implement checked conversions between integers Jaroslav Hajek <highegg@gmail.com> parents: 7885 diff changeset	504 { return uint64NDArray (dim_vector (1, 1), uint64_scalar_value ()); }
4904 71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	505
5731 c7d5a534afa5 [project @ 2006-04-03 19:33:26 by jwe] jwe parents: 5533 diff changeset	506 octave_value resize (const dim_vector& dv, bool fill = false) const
4982 c0866f89c43d [project @ 2004-09-10 13:48:18 by jwe] jwe parents: 4964 diff changeset	507 {
5731 c7d5a534afa5 [project @ 2006-04-03 19:33:26 by jwe] jwe parents: 5533 diff changeset	508 if (fill)
c7d5a534afa5 [project @ 2006-04-03 19:33:26 by jwe] jwe parents: 5533 diff changeset	509 {
8321 69b6127f6962 better use of templates in ov-intx.h John W. Eaton <jwe@octave.org> parents: 8039 diff changeset	510 intNDArray<OCTAVE_INT_T> retval (dv, 0);
5731 c7d5a534afa5 [project @ 2006-04-03 19:33:26 by jwe] jwe parents: 5533 diff changeset	511 if (dv.numel())
c7d5a534afa5 [project @ 2006-04-03 19:33:26 by jwe] jwe parents: 5533 diff changeset	512 retval(0) = scalar;
c7d5a534afa5 [project @ 2006-04-03 19:33:26 by jwe] jwe parents: 5533 diff changeset	513 return retval;
c7d5a534afa5 [project @ 2006-04-03 19:33:26 by jwe] jwe parents: 5533 diff changeset	514 }
c7d5a534afa5 [project @ 2006-04-03 19:33:26 by jwe] jwe parents: 5533 diff changeset	515 else
c7d5a534afa5 [project @ 2006-04-03 19:33:26 by jwe] jwe parents: 5533 diff changeset	516 {
8321 69b6127f6962 better use of templates in ov-intx.h John W. Eaton <jwe@octave.org> parents: 8039 diff changeset	517 intNDArray<OCTAVE_INT_T> retval (dv);
5731 c7d5a534afa5 [project @ 2006-04-03 19:33:26 by jwe] jwe parents: 5533 diff changeset	518 if (dv.numel())
c7d5a534afa5 [project @ 2006-04-03 19:33:26 by jwe] jwe parents: 5533 diff changeset	519 retval(0) = scalar;
c7d5a534afa5 [project @ 2006-04-03 19:33:26 by jwe] jwe parents: 5533 diff changeset	520 return retval;
c7d5a534afa5 [project @ 2006-04-03 19:33:26 by jwe] jwe parents: 5533 diff changeset	521 }
4982 c0866f89c43d [project @ 2004-09-10 13:48:18 by jwe] jwe parents: 4964 diff changeset	522 }
c0866f89c43d [project @ 2004-09-10 13:48:18 by jwe] jwe parents: 4964 diff changeset	523
7198 4555c116b420 [project @ 2007-11-27 03:06:10 by jwe] jwe parents: 7064 diff changeset	524 double double_value (bool = false) const { return scalar.double_value (); }
4983 13aaef87cf18 [project @ 2004-09-10 13:51:29 by jwe] jwe parents: 4982 diff changeset	525
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	526 float float_value (bool = false) const { return scalar.float_value (); }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	527
7198 4555c116b420 [project @ 2007-11-27 03:06:10 by jwe] jwe parents: 7064 diff changeset	528 double scalar_value (bool = false) const { return scalar.double_value (); }
4982 c0866f89c43d [project @ 2004-09-10 13:48:18 by jwe] jwe parents: 4964 diff changeset	529
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	530 float float_scalar_value (bool = false) const { return scalar.float_value (); }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	531
6214 4685a6a76229 [project @ 2006-12-08 22:15:03 by jwe] jwe parents: 6069 diff changeset	532 Matrix
4685a6a76229 [project @ 2006-12-08 22:15:03 by jwe] jwe parents: 6069 diff changeset	533 matrix_value (bool = false) const
4685a6a76229 [project @ 2006-12-08 22:15:03 by jwe] jwe parents: 6069 diff changeset	534 {
4685a6a76229 [project @ 2006-12-08 22:15:03 by jwe] jwe parents: 6069 diff changeset	535 Matrix retval (1, 1);
7198 4555c116b420 [project @ 2007-11-27 03:06:10 by jwe] jwe parents: 7064 diff changeset	536 retval(0,0) = scalar.double_value ();
6214 4685a6a76229 [project @ 2006-12-08 22:15:03 by jwe] jwe parents: 6069 diff changeset	537 return retval;
4685a6a76229 [project @ 2006-12-08 22:15:03 by jwe] jwe parents: 6069 diff changeset	538 }
4685a6a76229 [project @ 2006-12-08 22:15:03 by jwe] jwe parents: 6069 diff changeset	539
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	540 FloatMatrix
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	541 float_matrix_value (bool = false) const
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	542 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	543 FloatMatrix retval (1, 1);
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	544 retval(0,0) = scalar.float_value ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	545 return retval;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	546 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	547
6214 4685a6a76229 [project @ 2006-12-08 22:15:03 by jwe] jwe parents: 6069 diff changeset	548 ComplexMatrix
4685a6a76229 [project @ 2006-12-08 22:15:03 by jwe] jwe parents: 6069 diff changeset	549 complex_matrix_value (bool = false) const
4685a6a76229 [project @ 2006-12-08 22:15:03 by jwe] jwe parents: 6069 diff changeset	550 {
4685a6a76229 [project @ 2006-12-08 22:15:03 by jwe] jwe parents: 6069 diff changeset	551 ComplexMatrix retval (1, 1);
7198 4555c116b420 [project @ 2007-11-27 03:06:10 by jwe] jwe parents: 7064 diff changeset	552 retval(0,0) = Complex (scalar.double_value ());
6214 4685a6a76229 [project @ 2006-12-08 22:15:03 by jwe] jwe parents: 6069 diff changeset	553 return retval;
4685a6a76229 [project @ 2006-12-08 22:15:03 by jwe] jwe parents: 6069 diff changeset	554 }
4685a6a76229 [project @ 2006-12-08 22:15:03 by jwe] jwe parents: 6069 diff changeset	555
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	556 FloatComplexMatrix
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	557 float_complex_matrix_value (bool = false) const
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	558 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	559 FloatComplexMatrix retval (1, 1);
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	560 retval(0,0) = FloatComplex (scalar.float_value ());
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	561 return retval;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	562 }
6214 4685a6a76229 [project @ 2006-12-08 22:15:03 by jwe] jwe parents: 6069 diff changeset	563
4915 c638c144d4da [project @ 2004-07-23 19:01:22 by jwe] jwe parents: 4910 diff changeset	564 NDArray
c638c144d4da [project @ 2004-07-23 19:01:22 by jwe] jwe parents: 4910 diff changeset	565 array_value (bool = false) const
c638c144d4da [project @ 2004-07-23 19:01:22 by jwe] jwe parents: 4910 diff changeset	566 {
5533 667ad2becb63 [project @ 2005-11-10 21:40:48 by jwe] jwe parents: 5307 diff changeset	567 NDArray retval (dim_vector (1, 1));
7198 4555c116b420 [project @ 2007-11-27 03:06:10 by jwe] jwe parents: 7064 diff changeset	568 retval(0) = scalar.double_value ();
4963 573d23f9c9cf [project @ 2004-09-03 15:43:29 by jwe] jwe parents: 4944 diff changeset	569 return retval;
573d23f9c9cf [project @ 2004-09-03 15:43:29 by jwe] jwe parents: 4944 diff changeset	570 }
573d23f9c9cf [project @ 2004-09-03 15:43:29 by jwe] jwe parents: 4944 diff changeset	571
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	572 FloatNDArray
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	573 float_array_value (bool = false) const
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	574 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	575 FloatNDArray retval (dim_vector (1, 1));
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	576 retval(0) = scalar.float_value ();
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	577 return retval;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	578 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	579
4963 573d23f9c9cf [project @ 2004-09-03 15:43:29 by jwe] jwe parents: 4944 diff changeset	580 ComplexNDArray
573d23f9c9cf [project @ 2004-09-03 15:43:29 by jwe] jwe parents: 4944 diff changeset	581 complex_array_value (bool = false) const
573d23f9c9cf [project @ 2004-09-03 15:43:29 by jwe] jwe parents: 4944 diff changeset	582 {
5533 667ad2becb63 [project @ 2005-11-10 21:40:48 by jwe] jwe parents: 5307 diff changeset	583 ComplexNDArray retval (dim_vector (1, 1));
7789 82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	584 retval(0) = FloatComplex (scalar.double_value ());
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	585 return retval;
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	586 }
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	587
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	588 FloatComplexNDArray
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	589 float_complex_array_value (bool = false) const
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	590 {
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	591 FloatComplexNDArray retval (dim_vector (1, 1));
82be108cc558 First attempt at single precision tyeps David Bateman <dbateman@free.fr> parents: 7636 diff changeset	592 retval(0) = FloatComplex (scalar.float_value ());
4915 c638c144d4da [project @ 2004-07-23 19:01:22 by jwe] jwe parents: 4910 diff changeset	593 return retval;
c638c144d4da [project @ 2004-07-23 19:01:22 by jwe] jwe parents: 4910 diff changeset	594 }
c638c144d4da [project @ 2004-07-23 19:01:22 by jwe] jwe parents: 4910 diff changeset	595
5898 da843f35775c [project @ 2006-07-19 18:18:08 by jwe] jwe parents: 5895 diff changeset	596 boolNDArray
5943 c038c2947ee1 [project @ 2006-08-18 21:27:03 by jwe] jwe parents: 5900 diff changeset	597 bool_array_value (bool warn = false) const
5898 da843f35775c [project @ 2006-07-19 18:18:08 by jwe] jwe parents: 5895 diff changeset	598 {
da843f35775c [project @ 2006-07-19 18:18:08 by jwe] jwe parents: 5895 diff changeset	599 boolNDArray retval (dim_vector (1, 1));
5943 c038c2947ee1 [project @ 2006-08-18 21:27:03 by jwe] jwe parents: 5900 diff changeset	600
c038c2947ee1 [project @ 2006-08-18 21:27:03 by jwe] jwe parents: 5900 diff changeset	601 if (warn && scalar != 0.0 && scalar != 1.0)
c038c2947ee1 [project @ 2006-08-18 21:27:03 by jwe] jwe parents: 5900 diff changeset	602 gripe_logical_conversion ();
c038c2947ee1 [project @ 2006-08-18 21:27:03 by jwe] jwe parents: 5900 diff changeset	603
7198 4555c116b420 [project @ 2007-11-27 03:06:10 by jwe] jwe parents: 7064 diff changeset	604 retval(0) = scalar.bool_value ();
5943 c038c2947ee1 [project @ 2006-08-18 21:27:03 by jwe] jwe parents: 5900 diff changeset	605
5898 da843f35775c [project @ 2006-07-19 18:18:08 by jwe] jwe parents: 5895 diff changeset	606 return retval;
da843f35775c [project @ 2006-07-19 18:18:08 by jwe] jwe parents: 5895 diff changeset	607 }
da843f35775c [project @ 2006-07-19 18:18:08 by jwe] jwe parents: 5895 diff changeset	608
5533 667ad2becb63 [project @ 2005-11-10 21:40:48 by jwe] jwe parents: 5307 diff changeset	609 charNDArray
667ad2becb63 [project @ 2005-11-10 21:40:48 by jwe] jwe parents: 5307 diff changeset	610 char_array_value (bool = false) const
667ad2becb63 [project @ 2005-11-10 21:40:48 by jwe] jwe parents: 5307 diff changeset	611 {
667ad2becb63 [project @ 2005-11-10 21:40:48 by jwe] jwe parents: 5307 diff changeset	612 charNDArray retval (dim_vector (1, 1));
7198 4555c116b420 [project @ 2007-11-27 03:06:10 by jwe] jwe parents: 7064 diff changeset	613 retval(0) = scalar.char_value ();
5533 667ad2becb63 [project @ 2005-11-10 21:40:48 by jwe] jwe parents: 5307 diff changeset	614 return retval;
667ad2becb63 [project @ 2005-11-10 21:40:48 by jwe] jwe parents: 5307 diff changeset	615 }
667ad2becb63 [project @ 2005-11-10 21:40:48 by jwe] jwe parents: 5307 diff changeset	616
8039 cd90e2842080 Add additional integer math and conversion warnings, set their default state to be off and add the intwarning function David Bateman <dbateman@free.fr> parents: 7999 diff changeset	617 void increment (void)
cd90e2842080 Add additional integer math and conversion warnings, set their default state to be off and add the intwarning function David Bateman <dbateman@free.fr> parents: 7999 diff changeset	618 {
8321 69b6127f6962 better use of templates in ov-intx.h John W. Eaton <jwe@octave.org> parents: 8039 diff changeset	619 scalar += OCTAVE_INT_T (1);
8039 cd90e2842080 Add additional integer math and conversion warnings, set their default state to be off and add the intwarning function David Bateman <dbateman@free.fr> parents: 7999 diff changeset	620 if (OCTAVE_INT_T::get_math_trunc_flag ())
cd90e2842080 Add additional integer math and conversion warnings, set their default state to be off and add the intwarning function David Bateman <dbateman@free.fr> parents: 7999 diff changeset	621 gripe_unop_integer_math_truncated ("++", type_name (). c_str ());
cd90e2842080 Add additional integer math and conversion warnings, set their default state to be off and add the intwarning function David Bateman <dbateman@free.fr> parents: 7999 diff changeset	622 OCTAVE_INT_T::clear_conv_flag ();
cd90e2842080 Add additional integer math and conversion warnings, set their default state to be off and add the intwarning function David Bateman <dbateman@free.fr> parents: 7999 diff changeset	623 }
5829 93785a1b0f97 [project @ 2006-05-23 18:34:10 by jwe] jwe parents: 5781 diff changeset	624
8039 cd90e2842080 Add additional integer math and conversion warnings, set their default state to be off and add the intwarning function David Bateman <dbateman@free.fr> parents: 7999 diff changeset	625 void decrement (void)
cd90e2842080 Add additional integer math and conversion warnings, set their default state to be off and add the intwarning function David Bateman <dbateman@free.fr> parents: 7999 diff changeset	626 {
8321 69b6127f6962 better use of templates in ov-intx.h John W. Eaton <jwe@octave.org> parents: 8039 diff changeset	627 scalar -= OCTAVE_INT_T (1);
8039 cd90e2842080 Add additional integer math and conversion warnings, set their default state to be off and add the intwarning function David Bateman <dbateman@free.fr> parents: 7999 diff changeset	628 if (OCTAVE_INT_T::get_math_trunc_flag ())
cd90e2842080 Add additional integer math and conversion warnings, set their default state to be off and add the intwarning function David Bateman <dbateman@free.fr> parents: 7999 diff changeset	629 gripe_unop_integer_math_truncated ("--", type_name (). c_str ());
cd90e2842080 Add additional integer math and conversion warnings, set their default state to be off and add the intwarning function David Bateman <dbateman@free.fr> parents: 7999 diff changeset	630 OCTAVE_INT_T::clear_conv_flag ();
cd90e2842080 Add additional integer math and conversion warnings, set their default state to be off and add the intwarning function David Bateman <dbateman@free.fr> parents: 7999 diff changeset	631 }
5829 93785a1b0f97 [project @ 2006-05-23 18:34:10 by jwe] jwe parents: 5781 diff changeset	632
4938 703d97b89507 [project @ 2004-08-09 20:21:59 by jwe] jwe parents: 4915 diff changeset	633 idx_vector index_vector (void) const { return idx_vector (scalar); }
703d97b89507 [project @ 2004-08-09 20:21:59 by jwe] jwe parents: 4915 diff changeset	634
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4938 diff changeset	635 int write (octave_stream& os, int block_size,
5275 23b37da9fd5b [project @ 2005-04-08 16:07:35 by jwe] jwe parents: 5030 diff changeset	636 oct_data_conv::data_type output_type, octave_idx_type skip,
4944 44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4938 diff changeset	637 oct_mach_info::float_format flt_fmt) const
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4938 diff changeset	638 {
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4938 diff changeset	639 return os.write (OCTAVE_VALUE_INT_NDARRAY_EXTRACTOR_FUNCTION (),
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4938 diff changeset	640 block_size, output_type, skip, flt_fmt);
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4938 diff changeset	641 }
44046bbaa52c [project @ 2004-08-31 05:30:46 by jwe] jwe parents: 4938 diff changeset	642
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5898 diff changeset	643 // Unsafe. This function exists to support the MEX interface.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5898 diff changeset	644 // You should not use it anywhere else.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5898 diff changeset	645 void *mex_get_data (void) const { return scalar.mex_get_data (); }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5898 diff changeset	646
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5898 diff changeset	647 mxArray *as_mxArray (void) const
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5898 diff changeset	648 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5898 diff changeset	649 mxArray *retval = new mxArray (OCTAVE_INT_MX_CLASS, 1, 1, mxREAL);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5898 diff changeset	650
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5898 diff changeset	651 OCTAVE_INT_T::val_type pr = static_cast<OCTAVE_INT_T::val_type > (retval->get_data ());
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5898 diff changeset	652
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5898 diff changeset	653 pr[0] = scalar.value ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5898 diff changeset	654
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5898 diff changeset	655 return retval;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5898 diff changeset	656 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5898 diff changeset	657
7503 8c32f95c2639 convert mapper functions to new format David Bateman <dbateman@free.fr> parents: 7201 diff changeset	658 #define SCALAR_MAPPER(FCN) \
8c32f95c2639 convert mapper functions to new format David Bateman <dbateman@free.fr> parents: 7201 diff changeset	659 octave_value FCN (void) const { return scalar.FCN (); }
8c32f95c2639 convert mapper functions to new format David Bateman <dbateman@free.fr> parents: 7201 diff changeset	660
8c32f95c2639 convert mapper functions to new format David Bateman <dbateman@free.fr> parents: 7201 diff changeset	661 SCALAR_MAPPER (abs)
8c32f95c2639 convert mapper functions to new format David Bateman <dbateman@free.fr> parents: 7201 diff changeset	662 SCALAR_MAPPER (signum)
8c32f95c2639 convert mapper functions to new format David Bateman <dbateman@free.fr> parents: 7201 diff changeset	663
8c32f95c2639 convert mapper functions to new format David Bateman <dbateman@free.fr> parents: 7201 diff changeset	664 #undef SCALAR_MAPPER
8c32f95c2639 convert mapper functions to new format David Bateman <dbateman@free.fr> parents: 7201 diff changeset	665
8c32f95c2639 convert mapper functions to new format David Bateman <dbateman@free.fr> parents: 7201 diff changeset	666 octave_value imag (void) const { return static_cast<OCTAVE_INT_T>(0); }
8c32f95c2639 convert mapper functions to new format David Bateman <dbateman@free.fr> parents: 7201 diff changeset	667
8c32f95c2639 convert mapper functions to new format David Bateman <dbateman@free.fr> parents: 7201 diff changeset	668 #define NO_OP_MAPPER(FCN) \
8c32f95c2639 convert mapper functions to new format David Bateman <dbateman@free.fr> parents: 7201 diff changeset	669 octave_value FCN (void) const { return octave_value (scalar); }
8c32f95c2639 convert mapper functions to new format David Bateman <dbateman@free.fr> parents: 7201 diff changeset	670
8c32f95c2639 convert mapper functions to new format David Bateman <dbateman@free.fr> parents: 7201 diff changeset	671 NO_OP_MAPPER (ceil)
8c32f95c2639 convert mapper functions to new format David Bateman <dbateman@free.fr> parents: 7201 diff changeset	672 NO_OP_MAPPER (conj)
8c32f95c2639 convert mapper functions to new format David Bateman <dbateman@free.fr> parents: 7201 diff changeset	673 NO_OP_MAPPER (fix)
8c32f95c2639 convert mapper functions to new format David Bateman <dbateman@free.fr> parents: 7201 diff changeset	674 NO_OP_MAPPER (floor)
8c32f95c2639 convert mapper functions to new format David Bateman <dbateman@free.fr> parents: 7201 diff changeset	675 NO_OP_MAPPER (real)
8c32f95c2639 convert mapper functions to new format David Bateman <dbateman@free.fr> parents: 7201 diff changeset	676 NO_OP_MAPPER (round)
7636 99c410f7f0b0 implement mapper function for banker's rounding Jaroslav Hajek <highegg@gmail.com> parents: 7503 diff changeset	677 NO_OP_MAPPER (roundb)
7503 8c32f95c2639 convert mapper functions to new format David Bateman <dbateman@free.fr> parents: 7201 diff changeset	678
8c32f95c2639 convert mapper functions to new format David Bateman <dbateman@free.fr> parents: 7201 diff changeset	679 #undef NO_OP_MAPPER
8c32f95c2639 convert mapper functions to new format David Bateman <dbateman@free.fr> parents: 7201 diff changeset	680
8c32f95c2639 convert mapper functions to new format David Bateman <dbateman@free.fr> parents: 7201 diff changeset	681 #define BOOL_MAPPER(FCN, VAL) octave_value FCN (void) const { return VAL; }
8c32f95c2639 convert mapper functions to new format David Bateman <dbateman@free.fr> parents: 7201 diff changeset	682
8c32f95c2639 convert mapper functions to new format David Bateman <dbateman@free.fr> parents: 7201 diff changeset	683 BOOL_MAPPER (finite, true)
8c32f95c2639 convert mapper functions to new format David Bateman <dbateman@free.fr> parents: 7201 diff changeset	684 BOOL_MAPPER (isinf, false)
8c32f95c2639 convert mapper functions to new format David Bateman <dbateman@free.fr> parents: 7201 diff changeset	685 BOOL_MAPPER (isna, false)
8c32f95c2639 convert mapper functions to new format David Bateman <dbateman@free.fr> parents: 7201 diff changeset	686 BOOL_MAPPER (isnan, false)
8c32f95c2639 convert mapper functions to new format David Bateman <dbateman@free.fr> parents: 7201 diff changeset	687
8c32f95c2639 convert mapper functions to new format David Bateman <dbateman@free.fr> parents: 7201 diff changeset	688 #undef BOOL_MAPPER
8c32f95c2639 convert mapper functions to new format David Bateman <dbateman@free.fr> parents: 7201 diff changeset	689
4904 71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	690 private:
71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	691
71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	692 DECLARE_OCTAVE_ALLOCATOR
71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	693
71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	694 DECLARE_OV_TYPEID_FUNCTIONS_AND_DATA
71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	695 };
71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	696
71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	697 /*
71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	698 ;;; Local Variables: ***
71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	699 ;;; mode: C++ ***
71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	700 ;;; End: ***
71229573b6bf [project @ 2004-06-14 19:31:52 by jwe] jwe parents: diff changeset	701 */

Mercurial > hg > octave-nkf

annotate src/ov-intx.h @ 8920:eb63fbe60fab