octave: libinterp/corefcn/mxarray.in.h annotate

annotate libinterp/corefcn/mxarray.in.h @ 23084:ef4d915df748

maint: Merge stable to default.

author	John W. Eaton <jwe@octave.org>
date	Mon, 23 Jan 2017 14:27:48 -0500
parents	f75d289645ec e9a0469dedd9
children	092078913d54

rev	line source
15100 8523df595d42 maint: Add DO NOT EDIT messages to build system for src/.in.h. Rik <rik@octave.org>* parents: 15096 diff changeset	1 // %NO_EDIT_WARNING%
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	2 /*
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	3
22323 bac0d6f07a3e maint: Update copyright notices for 2016. John W. Eaton <jwe@octave.org> parents: 22197 diff changeset	4 Copyright (C) 2001-2016 Paul Kienzle
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	5
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	6 This file is part of Octave.
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	7
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	8 Octave is free software; you can redistribute it and/or modify it
22755 3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22471 diff changeset	9 under the terms of the GNU General Public License as published by
3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22471 diff changeset	10 the Free Software Foundation; either version 3 of the License, or
3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22471 diff changeset	11 (at your option) any later version.
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	12
22755 3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22471 diff changeset	13 Octave is distributed in the hope that it will be useful, but
3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22471 diff changeset	14 WITHOUT ANY WARRANTY; without even the implied warranty of
3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22471 diff changeset	15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
3a2b891d0b33 maint: Standardize Copyright formatting. Rik <rik@octave.org> parents: 22471 diff changeset	16 GNU General Public License for more details.
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	17
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	18 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: 6806 diff changeset	19 along with Octave; see the file COPYING. If not, see
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6806 diff changeset	20 <http://www.gnu.org/licenses/>.
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	21
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	22 */
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	23
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	24 /*
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	25
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	26 Part of this code was originally distributed as part of Octave Forge under
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	27 the following terms:
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	28
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	29 Author: Paul Kienzle
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	30 I grant this code to the public domain.
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	31 2001-03-22
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	32
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	33 THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	34 ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	35 IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	36 ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	37 FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	38 DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	39 OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	40 HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	41 LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	42 OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	43 SUCH DAMAGE.
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	44
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	45 */
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	46
21241 bae38398f5f1 use consistent style for all liboctave and libinterp include guards John W. Eaton <jwe@octave.org> parents: 21151 diff changeset	47 #if ! defined (octave_mxarray_h)
bae38398f5f1 use consistent style for all liboctave and libinterp include guards John W. Eaton <jwe@octave.org> parents: 21151 diff changeset	48 #define octave_mxarray_h 1
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	49
21244 1473547f50f5 include octave-config.h in public header files John W. Eaton <jwe@octave.org> parents: 21241 diff changeset	50 #include "octave-config.h"
1473547f50f5 include octave-config.h in public header files John W. Eaton <jwe@octave.org> parents: 21241 diff changeset	51
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	52 typedef enum
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	53 {
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	54 mxUNKNOWN_CLASS = 0,
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	55 mxCELL_CLASS,
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	56 mxSTRUCT_CLASS,
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	57 mxLOGICAL_CLASS,
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	58 mxCHAR_CLASS,
22453 ca01dc025e2c Rename mxUNUSED_CLASS to mxVOID_CLASS for Matlab compatibility. Rik <rik@octave.org> parents: 22449 diff changeset	59 mxVOID_CLASS,
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	60 mxDOUBLE_CLASS,
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	61 mxSINGLE_CLASS,
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	62 mxINT8_CLASS,
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	63 mxUINT8_CLASS,
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	64 mxINT16_CLASS,
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	65 mxUINT16_CLASS,
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	66 mxINT32_CLASS,
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	67 mxUINT32_CLASS,
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	68 mxINT64_CLASS,
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	69 mxUINT64_CLASS,
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	70 mxFUNCTION_CLASS
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	71 }
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	72 mxClassID;
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	73
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22464 diff changeset	74 typedef enum
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22464 diff changeset	75 {
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22464 diff changeset	76 mxREAL = 0,
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22464 diff changeset	77 mxCOMPLEX = 1
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22464 diff changeset	78 }
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22464 diff changeset	79 mxComplexity;
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	80
22449 e337b8e3592c Fix double free causing segfault in mxSetDimensions (bug #49010). Rik <rik@octave.org> parents: 22407 diff changeset	81 /* Matlab uses a wide char (uint16) internally, but Octave uses plain char. */
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	82 /* typedef Uint16 mxChar; */
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	83 typedef char mxChar;
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	84
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22464 diff changeset	85 typedef unsigned char mxLogical;
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22464 diff changeset	86
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	87 /*
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22464 diff changeset	88 * FIXME: Mathworks says mwSize, mwIndex should be int generally.
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22464 diff changeset	89 * But on 64-bit systems, or when mex -largeArrayDims is used, it is size_t.
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22464 diff changeset	90 * mwSignedIndex is supposed to be ptrdiff_t. All of this is confusing.
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22464 diff changeset	91 * Its better to conform to the same indexing as the rest of Octave.
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	92 */
9906 8d20fb66a0dc more automake fixes John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	93 typedef %OCTAVE_IDX_TYPE% mwSize;
8d20fb66a0dc more automake fixes John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	94 typedef %OCTAVE_IDX_TYPE% mwIndex;
15240 a23693fa5ba9 Add mwSignedIndex type for better mex compatibility with Matlab (bug #37133) Rik <rik@octave.org> parents: 15195 diff changeset	95 typedef %OCTAVE_IDX_TYPE% mwSignedIndex;
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	96
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	97 #if ! defined (MXARRAY_TYPEDEFS_ONLY)
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	98
7417 33577b0d4df2 [project @ 2008-01-25 01:21:35 by jwe] jwe parents: 7056 diff changeset	99 #include <cstring>
21151 bfd5e48c41a1 Rename local error in mex I/F from invalid_type_error to err_invalid_type. Rik <rik@octave.org> parents: 21066 diff changeset	100 #include "error.h"
7417 33577b0d4df2 [project @ 2008-01-25 01:21:35 by jwe] jwe parents: 7056 diff changeset	101
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	102 class octave_value;
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	103
22197 e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21568 diff changeset	104 #define DO_MUTABLE_METHOD(RET_T, METHOD_CALL) \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21568 diff changeset	105 RET_T retval = rep->METHOD_CALL; \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21568 diff changeset	106 \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21568 diff changeset	107 if (rep->mutation_needed ()) \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21568 diff changeset	108 { \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21568 diff changeset	109 maybe_mutate (); \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21568 diff changeset	110 retval = rep->METHOD_CALL; \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21568 diff changeset	111 } \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21568 diff changeset	112 \
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	113 return retval
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	114
22197 e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21568 diff changeset	115 #define DO_VOID_MUTABLE_METHOD(METHOD_CALL) \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21568 diff changeset	116 rep->METHOD_CALL; \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21568 diff changeset	117 \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21568 diff changeset	118 if (rep->mutation_needed ()) \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21568 diff changeset	119 { \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21568 diff changeset	120 maybe_mutate (); \
e43d83253e28 refill multi-line macro definitions John W. Eaton <jwe@octave.org> parents: 21568 diff changeset	121 rep->METHOD_CALL; \
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	122 }
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	123
21151 bfd5e48c41a1 Rename local error in mex I/F from invalid_type_error to err_invalid_type. Rik <rik@octave.org> parents: 21066 diff changeset	124 class mxArray;
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	125
21151 bfd5e48c41a1 Rename local error in mex I/F from invalid_type_error to err_invalid_type. Rik <rik@octave.org> parents: 21066 diff changeset	126 // A class to provide the default implementation of some of the
bfd5e48c41a1 Rename local error in mex I/F from invalid_type_error to err_invalid_type. Rik <rik@octave.org> parents: 21066 diff changeset	127 // virtual functions declared in the mxArray class.
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	128
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	129 class mxArray_base
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	130 {
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	131 protected:
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	132
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	133 mxArray_base (void) { }
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	134
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	135 public:
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	136
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	137 virtual mxArray_base *dup (void) const = 0;
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	138
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	139 virtual mxArray *as_mxArray (void) const { return 0; }
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	140
22868 87e3163f6c87 use c++11 "= default" syntax for declaration of trivial destructors John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	141 virtual ~mxArray_base (void) = default;
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	142
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	143 virtual bool is_octave_value (void) const { return false; }
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	144
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	145 virtual int is_cell (void) const = 0;
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	146
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	147 virtual int is_char (void) const = 0;
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	148
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	149 virtual int is_class (const char *name_arg) const
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	150 {
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	151 int retval = 0;
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	152
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	153 const char *cname = get_class_name ();
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	154
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	155 if (cname && name_arg)
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	156 retval = ! strcmp (cname, name_arg);
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	157
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	158 return retval;
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	159 }
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	160
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	161 virtual int is_complex (void) const = 0;
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	162
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	163 virtual int is_double (void) const = 0;
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	164
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	165 virtual int is_function_handle (void) const = 0;
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	166
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	167 virtual int is_int16 (void) const = 0;
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	168
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	169 virtual int is_int32 (void) const = 0;
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	170
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	171 virtual int is_int64 (void) const = 0;
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	172
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	173 virtual int is_int8 (void) const = 0;
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	174
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	175 virtual int is_logical (void) const = 0;
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	176
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	177 virtual int is_numeric (void) const = 0;
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	178
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	179 virtual int is_single (void) const = 0;
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	180
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	181 virtual int is_sparse (void) const = 0;
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	182
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	183 virtual int is_struct (void) const = 0;
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	184
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	185 virtual int is_uint16 (void) const = 0;
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	186
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	187 virtual int is_uint32 (void) const = 0;
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	188
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	189 virtual int is_uint64 (void) const = 0;
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	190
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	191 virtual int is_uint8 (void) const = 0;
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	192
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	193 virtual int is_logical_scalar (void) const
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	194 {
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	195 return is_logical () && get_number_of_elements () == 1;
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	196 }
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	197
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	198 virtual int is_logical_scalar_true (void) const = 0;
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	199
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	200 virtual mwSize get_m (void) const = 0;
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	201
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	202 virtual mwSize get_n (void) const = 0;
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	203
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	204 virtual mwSize *get_dimensions (void) const = 0;
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	205
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	206 virtual mwSize get_number_of_dimensions (void) const = 0;
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	207
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	208 virtual void set_m (mwSize m) = 0;
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	209
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	210 virtual void set_n (mwSize n) = 0;
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	211
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22464 diff changeset	212 virtual int set_dimensions (mwSize *dims_arg, mwSize ndims_arg) = 0;
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	213
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	214 virtual mwSize get_number_of_elements (void) const = 0;
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	215
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	216 virtual int is_empty (void) const = 0;
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	217
22462 6cb7813e5b2f Add new mxIsScalar function for MEX API. Rik <rik@octave.org> parents: 22453 diff changeset	218 virtual bool is_scalar (void) const = 0;
6cb7813e5b2f Add new mxIsScalar function for MEX API. Rik <rik@octave.org> parents: 22453 diff changeset	219
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	220 virtual mxClassID get_class_id (void) const = 0;
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	221
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	222 virtual const char *get_class_name (void) const = 0;
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	223
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	224 virtual void set_class_name (const char *name_arg) = 0;
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	225
21151 bfd5e48c41a1 Rename local error in mex I/F from invalid_type_error to err_invalid_type. Rik <rik@octave.org> parents: 21066 diff changeset	226 // FIXME: Why not just have this '= 0' as the others?
bfd5e48c41a1 Rename local error in mex I/F from invalid_type_error to err_invalid_type. Rik <rik@octave.org> parents: 21066 diff changeset	227 // Could then eliminate err_invalid_type function and #include "error.h".
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	228 virtual mxArray get_cell (mwIndex /idx*/) const
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	229 {
21151 bfd5e48c41a1 Rename local error in mex I/F from invalid_type_error to err_invalid_type. Rik <rik@octave.org> parents: 21066 diff changeset	230 err_invalid_type ();
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	231 }
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	232
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	233 virtual void set_cell (mwIndex idx, mxArray *val) = 0;
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	234
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	235 virtual double get_scalar (void) const = 0;
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	236
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	237 virtual void *get_data (void) const = 0;
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	238
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	239 virtual void *get_imag_data (void) const = 0;
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	240
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	241 virtual void set_data (void *pr) = 0;
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	242
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	243 virtual void set_imag_data (void *pi) = 0;
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	244
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	245 virtual mwIndex *get_ir (void) const = 0;
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	246
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	247 virtual mwIndex *get_jc (void) const = 0;
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	248
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	249 virtual mwSize get_nzmax (void) const = 0;
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	250
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	251 virtual void set_ir (mwIndex *ir) = 0;
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	252
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	253 virtual void set_jc (mwIndex *jc) = 0;
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	254
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	255 virtual void set_nzmax (mwSize nzmax) = 0;
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	256
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	257 virtual int add_field (const char *key) = 0;
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	258
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	259 virtual void remove_field (int key_num) = 0;
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	260
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	261 virtual mxArray *get_field_by_number (mwIndex index, int key_num) const = 0;
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	262
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	263 virtual void
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	264 set_field_by_number (mwIndex index, int key_num, mxArray *val) = 0;
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	265
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	266 virtual int get_number_of_fields (void) const = 0;
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	267
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	268 virtual const char *get_field_name_by_number (int key_num) const = 0;
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	269
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	270 virtual int get_field_number (const char *key) const = 0;
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	271
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	272 virtual int get_string (char *buf, mwSize buflen) const = 0;
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	273
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	274 virtual char *array_to_string (void) const = 0;
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	275
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	276 virtual mwIndex calc_single_subscript (mwSize nsubs, mwIndex *subs) const = 0;
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	277
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	278 virtual size_t get_element_size (void) const = 0;
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	279
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	280 virtual bool mutation_needed (void) const { return false; }
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	281
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	282 virtual mxArray *mutate (void) const { return 0; }
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	283
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	284 virtual octave_value as_octave_value (void) const = 0;
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	285
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	286 protected:
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	287
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	288 mxArray_base (const mxArray_base&) { }
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	289
21151 bfd5e48c41a1 Rename local error in mex I/F from invalid_type_error to err_invalid_type. Rik <rik@octave.org> parents: 21066 diff changeset	290 // FIXME: Deprecated in 4.2, remove in 4.6
bfd5e48c41a1 Rename local error in mex I/F from invalid_type_error to err_invalid_type. Rik <rik@octave.org> parents: 21066 diff changeset	291 OCTAVE_DEPRECATED ("use 'err_invalid_type' instead")
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	292 void invalid_type_error (void) const
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	293 {
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	294 error ("invalid type for operation");
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	295 }
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	296
21151 bfd5e48c41a1 Rename local error in mex I/F from invalid_type_error to err_invalid_type. Rik <rik@octave.org> parents: 21066 diff changeset	297 OCTAVE_NORETURN void err_invalid_type (void) const
bfd5e48c41a1 Rename local error in mex I/F from invalid_type_error to err_invalid_type. Rik <rik@octave.org> parents: 21066 diff changeset	298 {
bfd5e48c41a1 Rename local error in mex I/F from invalid_type_error to err_invalid_type. Rik <rik@octave.org> parents: 21066 diff changeset	299 error ("invalid type for operation");
bfd5e48c41a1 Rename local error in mex I/F from invalid_type_error to err_invalid_type. Rik <rik@octave.org> parents: 21066 diff changeset	300 }
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	301 };
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	302
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	303 // The main interface class. The representation can be based on an
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	304 // octave_value object or a separate object that tries to reproduce
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	305 // the semantics of mxArray objects in Matlab more directly.
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	306
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	307 class mxArray
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	308 {
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	309 public:
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	310
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	311 mxArray (const octave_value& ov);
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	312
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	313 mxArray (mxClassID id, mwSize ndims, const mwSize *dims,
22464 1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	314 mxComplexity flag = mxREAL, bool init = true);
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	315
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	316 mxArray (mxClassID id, const dim_vector& dv, mxComplexity flag = mxREAL);
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	317
22464 1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	318 mxArray (mxClassID id, mwSize m, mwSize n,
1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	319 mxComplexity flag = mxREAL, bool init = true);
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	320
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	321 mxArray (mxClassID id, double val);
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	322
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	323 mxArray (mxClassID id, mxLogical val);
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	324
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	325 mxArray (const char *str);
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	326
6806 afa9123c5faa [project @ 2007-07-30 18:36:01 by jwe] jwe parents: 6686 diff changeset	327 mxArray (mwSize m, const char **str);
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	328
6806 afa9123c5faa [project @ 2007-07-30 18:36:01 by jwe] jwe parents: 6686 diff changeset	329 mxArray (mxClassID id, mwSize m, mwSize n, mwSize nzmax,
10317 42d098307c30 untabify additional source files John W. Eaton <jwe@octave.org> parents: 9906 diff changeset	330 mxComplexity flag = mxREAL);
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	331
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	332 mxArray (mwSize ndims, const mwSize dims, int num_keys, const char *keys);
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	333
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	334 mxArray (const dim_vector& dv, int num_keys, const char **keys);
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	335
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	336 mxArray (mwSize m, mwSize n, int num_keys, const char **keys);
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	337
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	338 mxArray (mwSize ndims, const mwSize *dims);
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	339
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	340 mxArray (const dim_vector& dv);
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	341
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	342 mxArray (mwSize m, mwSize n);
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	343
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	344 mxArray *dup (void) const
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	345 {
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	346 mxArray *retval = rep->as_mxArray ();
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	347
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	348 if (retval)
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	349 retval->set_name (name);
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	350 else
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	351 {
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	352 mxArray_base *new_rep = rep->dup ();
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	353
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	354 retval = new mxArray (new_rep, name);
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	355 }
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	356
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	357 return retval;
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	358 }
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	359
22869 f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22868 diff changeset	360 // No copying!
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22868 diff changeset	361
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22868 diff changeset	362 mxArray (const mxArray&) = delete;
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22868 diff changeset	363
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22868 diff changeset	364 mxArray& operator = (const mxArray&) = delete;
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22868 diff changeset	365
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	366 ~mxArray (void);
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	367
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	368 bool is_octave_value (void) const { return rep->is_octave_value (); }
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	369
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	370 int is_cell (void) const { return rep->is_cell (); }
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	371
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	372 int is_char (void) const { return rep->is_char (); }
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	373
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	374 int is_class (const char *name_arg) const { return rep->is_class (name_arg); }
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	375
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	376 int is_complex (void) const { return rep->is_complex (); }
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	377
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	378 int is_double (void) const { return rep->is_double (); }
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	379
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	380 int is_function_handle (void) const { return rep->is_function_handle (); }
11100 cdf940db26a0 provide mxIsFunctionHandle MEX interface function John W. Eaton <jwe@octave.org> parents: 10317 diff changeset	381
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	382 int is_int16 (void) const { return rep->is_int16 (); }
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	383
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	384 int is_int32 (void) const { return rep->is_int32 (); }
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	385
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	386 int is_int64 (void) const { return rep->is_int64 (); }
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	387
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	388 int is_int8 (void) const { return rep->is_int8 (); }
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	389
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	390 int is_logical (void) const { return rep->is_logical (); }
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	391
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	392 int is_numeric (void) const { return rep->is_numeric (); }
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	393
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	394 int is_single (void) const { return rep->is_single (); }
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	395
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	396 int is_sparse (void) const { return rep->is_sparse (); }
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	397
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	398 int is_struct (void) const { return rep->is_struct (); }
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	399
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	400 int is_uint16 (void) const { return rep->is_uint16 (); }
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	401
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	402 int is_uint32 (void) const { return rep->is_uint32 (); }
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	403
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	404 int is_uint64 (void) const { return rep->is_uint64 (); }
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	405
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	406 int is_uint8 (void) const { return rep->is_uint8 (); }
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	407
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	408 int is_logical_scalar (void) const { return rep->is_logical_scalar (); }
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	409
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	410 int is_logical_scalar_true (void) const
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	411 { return rep->is_logical_scalar_true (); }
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	412
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	413 mwSize get_m (void) const { return rep->get_m (); }
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	414
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	415 mwSize get_n (void) const { return rep->get_n (); }
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	416
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	417 mwSize *get_dimensions (void) const { return rep->get_dimensions (); }
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	418
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	419 mwSize get_number_of_dimensions (void) const
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	420 { return rep->get_number_of_dimensions (); }
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	421
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	422 void set_m (mwSize m) { DO_VOID_MUTABLE_METHOD (set_m (m)); }
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	423
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	424 void set_n (mwSize n) { DO_VOID_MUTABLE_METHOD (set_n (n)); }
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	425
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22464 diff changeset	426 int set_dimensions (mwSize *dims_arg, mwSize ndims_arg)
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22464 diff changeset	427 { DO_MUTABLE_METHOD (int, set_dimensions (dims_arg, ndims_arg)); }
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	428
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	429 mwSize get_number_of_elements (void) const
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	430 { return rep->get_number_of_elements (); }
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	431
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	432 int is_empty (void) const { return get_number_of_elements () == 0; }
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	433
22462 6cb7813e5b2f Add new mxIsScalar function for MEX API. Rik <rik@octave.org> parents: 22453 diff changeset	434 bool is_scalar (void) const { return rep->is_scalar (); }
6cb7813e5b2f Add new mxIsScalar function for MEX API. Rik <rik@octave.org> parents: 22453 diff changeset	435
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	436 const char *get_name (void) const { return name; }
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	437
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	438 void set_name (const char *name_arg);
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	439
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	440 mxClassID get_class_id (void) const { return rep->get_class_id (); }
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	441
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	442 const char *get_class_name (void) const { return rep->get_class_name (); }
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	443
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	444 void set_class_name (const char *name_arg)
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	445 { DO_VOID_MUTABLE_METHOD (set_class_name (name_arg)); }
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	446
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	447 mxArray *get_cell (mwIndex idx) const
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	448 { DO_MUTABLE_METHOD (mxArray *, get_cell (idx)); }
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	449
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	450 void set_cell (mwIndex idx, mxArray *val)
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	451 { DO_VOID_MUTABLE_METHOD (set_cell (idx, val)); }
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	452
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	453 double get_scalar (void) const { return rep->get_scalar (); }
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	454
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	455 void get_data (void) const { DO_MUTABLE_METHOD (void , get_data ()); }
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	456
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	457 void *get_imag_data (void) const
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	458 { DO_MUTABLE_METHOD (void *, get_imag_data ()); }
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	459
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	460 void set_data (void *pr) { DO_VOID_MUTABLE_METHOD (set_data (pr)); }
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	461
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	462 void set_imag_data (void *pi) { DO_VOID_MUTABLE_METHOD (set_imag_data (pi)); }
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	463
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	464 mwIndex get_ir (void) const { DO_MUTABLE_METHOD (mwIndex , get_ir ()); }
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	465
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	466 mwIndex get_jc (void) const { DO_MUTABLE_METHOD (mwIndex , get_jc ()); }
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	467
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	468 mwSize get_nzmax (void) const { return rep->get_nzmax (); }
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	469
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	470 void set_ir (mwIndex *ir) { DO_VOID_MUTABLE_METHOD (set_ir (ir)); }
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	471
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	472 void set_jc (mwIndex *jc) { DO_VOID_MUTABLE_METHOD (set_jc (jc)); }
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	473
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	474 void set_nzmax (mwSize nzmax) { DO_VOID_MUTABLE_METHOD (set_nzmax (nzmax)); }
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	475
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	476 int add_field (const char *key) { DO_MUTABLE_METHOD (int, add_field (key)); }
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	477
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	478 void remove_field (int key_num)
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	479 { DO_VOID_MUTABLE_METHOD (remove_field (key_num)); }
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	480
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	481 mxArray *get_field_by_number (mwIndex index, int key_num) const
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	482 { DO_MUTABLE_METHOD (mxArray *, get_field_by_number (index, key_num)); }
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	483
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	484 void set_field_by_number (mwIndex index, int key_num, mxArray *val)
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	485 { DO_VOID_MUTABLE_METHOD (set_field_by_number (index, key_num, val)); }
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	486
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	487 int get_number_of_fields (void) const { return rep->get_number_of_fields (); }
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	488
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	489 const char *get_field_name_by_number (int key_num) const
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	490 { DO_MUTABLE_METHOD (const char*, get_field_name_by_number (key_num)); }
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	491
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	492 int get_field_number (const char *key) const
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	493 { DO_MUTABLE_METHOD (int, get_field_number (key)); }
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	494
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	495 int get_string (char *buf, mwSize buflen) const
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	496 { return rep->get_string (buf, buflen); }
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	497
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	498 char *array_to_string (void) const { return rep->array_to_string (); }
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	499
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	500 mwIndex calc_single_subscript (mwSize nsubs, mwIndex *subs) const
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	501 { return rep->calc_single_subscript (nsubs, subs); }
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	502
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	503 size_t get_element_size (void) const { return rep->get_element_size (); }
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	504
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	505 bool mutation_needed (void) const { return rep->mutation_needed (); }
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	506
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	507 mxArray *mutate (void) const { return rep->mutate (); }
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	508
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	509 static void *malloc (size_t n);
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	510
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	511 static void *calloc (size_t n, size_t t);
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	512
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	513 static char strsave (const char str)
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	514 {
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	515 char *retval = 0;
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	516
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	517 if (str)
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	518 {
21568 3d60ed163b70 maint: Eliminate bad spacing around '='. Rik <rik@octave.org> parents: 21244 diff changeset	519 mwSize sz = sizeof (mxChar) * (strlen (str) + 1);
10317 42d098307c30 untabify additional source files John W. Eaton <jwe@octave.org> parents: 9906 diff changeset	520 retval = static_cast<char *> (mxArray::malloc (sz));
42d098307c30 untabify additional source files John W. Eaton <jwe@octave.org> parents: 9906 diff changeset	521 strcpy (retval, str);
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	522 }
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	523
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	524 return retval;
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	525 }
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	526
15353 5f3a69a309a7 fix decl of mexPutVariable John W. Eaton <jwe@octave.org> parents: 15351 diff changeset	527 static octave_value as_octave_value (const mxArray *ptr);
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	528
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	529 protected:
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	530
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	531 octave_value as_octave_value (void) const;
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	532
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	533 private:
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	534
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	535 mutable mxArray_base *rep;
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	536
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	537 char *name;
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	538
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15240 diff changeset	539 mxArray (mxArray_base r, const char n)
15354 93dff6435fe1 tag calls to mxArray::malloc, mxArray::calloc, and mxArray::strsave with class name John W. Eaton <jwe@octave.org> parents: 15353 diff changeset	540 : rep (r), name (mxArray::strsave (n)) { }
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	541
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	542 void maybe_mutate (void) const;
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	543 };
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	544
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	545 #undef DO_MUTABLE_METHOD
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	546 #undef DO_VOID_MUTABLE_METHOD
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	547
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	548 #endif
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: diff changeset	549 #endif

Mercurial > octave

annotate libinterp/corefcn/mxarray.in.h @ 23084:ef4d915df748