octave-nkf: libinterp/interp-core/mex.cc annotate

annotate libinterp/interp-core/mex.cc @ 16851:209f0db3c32b

mexErrMsgTxt should abort when called with an empty string (bug #39343). * libinterp/interp-core/mex.cc(mexErrMsgTxt, mexErrMsgIdAndTxt): For an empty string input, call Octave's error routine with a SPACE (" ") as input.

author	Rik <rik@octave.org>
date	Tue, 25 Jun 2013 18:43:58 -0700
parents	08f0f274de36
children

rev	line source
7016 93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6823 diff changeset	1 /*
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6823 diff changeset	2
14138 72c96de7a403 maint: update copyright notices for 2012 John W. Eaton <jwe@octave.org> parents: 13753 diff changeset	3 Copyright (C) 2006-2012 John W. Eaton
7016 93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6823 diff changeset	4
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6823 diff changeset	5 This file is part of Octave.
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6823 diff changeset	6
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6823 diff changeset	7 Octave is free software; you can redistribute it and/or modify it
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6823 diff changeset	8 under the terms of the GNU General Public License as published by the
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6823 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: 6823 diff changeset	10 option) any later version.
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6823 diff changeset	11
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6823 diff changeset	12 Octave is distributed in the hope that it will be useful, but WITHOUT
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6823 diff changeset	13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6823 diff changeset	14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6823 diff changeset	15 for more details.
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6823 diff changeset	16
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6823 diff changeset	17 You should have received a copy of the GNU General Public License
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6823 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: 6823 diff changeset	19 <http://www.gnu.org/licenses/>.
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6823 diff changeset	20
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6823 diff changeset	21 */
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6823 diff changeset	22
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	23 #include <config.h>
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	24
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	25 #include <cfloat>
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	26 #include <csetjmp>
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	27 #include <cstdarg>
10463 bbe99b2a5ba7 undo recent gnulib-related changes John W. Eaton <jwe@octave.org> parents: 10447 diff changeset	28 #include <cstdlib>
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	29 #include <cstring>
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	30 #include <cctype>
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	31
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	32 #include <set>
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	33
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	34 #include "f77-fcn.h"
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	35 #include "lo-ieee.h"
8377 25bc2d31e1bf improve OCTAVE_LOCAL_BUFFER Jaroslav Hajek <highegg@gmail.com> parents: 7901 diff changeset	36 #include "oct-locbuf.h"
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	37
15149 62a35ae7d6a2 use forward decls for mxArray in ov.h and ov-base.h John W. Eaton <jwe@octave.org> parents: 15096 diff changeset	38 #include "Cell.h"
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	39 // mxArray must be declared as a class before including mexproto.h.
15149 62a35ae7d6a2 use forward decls for mxArray in ov.h and ov-base.h John W. Eaton <jwe@octave.org> parents: 15096 diff changeset	40 #include "mxarray.h"
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	41 #include "mexproto.h"
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	42 #include "oct-map.h"
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	43 #include "oct-obj.h"
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	44 #include "ov.h"
6068 c9f0839c583f [project @ 2006-10-20 16:54:30 by jwe] jwe parents: 6065 diff changeset	45 #include "ov-mex-fcn.h"
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	46 #include "ov-usr-fcn.h"
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	47 #include "pager.h"
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	48 #include "parse.h"
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	49 #include "toplev.h"
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	50 #include "unwind-prot.h"
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	51 #include "utils.h"
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	52 #include "variables.h"
6595 55586d763de1 [project @ 2007-04-27 15:31:10 by dbateman] dbateman parents: 6493 diff changeset	53 #include "graphics.h"
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	54
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	55 // #define DEBUG 1
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	56
5905 e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	57 static void
e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	58 xfree (void *ptr)
e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	59 {
e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	60 ::free (ptr);
e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	61 }
e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	62
6806 afa9123c5faa [project @ 2007-07-30 18:36:01 by jwe] jwe parents: 6787 diff changeset	63 static mwSize
afa9123c5faa [project @ 2007-07-30 18:36:01 by jwe] jwe parents: 6787 diff changeset	64 max_str_len (mwSize m, const char **str)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	65 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	66 int max_len = 0;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	67
6806 afa9123c5faa [project @ 2007-07-30 18:36:01 by jwe] jwe parents: 6787 diff changeset	68 for (mwSize i = 0; i < m; i++)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	69 {
6806 afa9123c5faa [project @ 2007-07-30 18:36:01 by jwe] jwe parents: 6787 diff changeset	70 mwSize tmp = strlen (str[i]);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	71
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	72 if (tmp > max_len)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	73 max_len = tmp;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	74 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	75
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	76 return max_len;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	77 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	78
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	79 static int
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	80 valid_key (const char *key)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	81 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	82 int retval = 0;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	83
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	84 int nel = strlen (key);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	85
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	86 if (nel > 0)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	87 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	88 if (isalpha (key[0]))
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	89 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	90 for (int i = 1; i < nel; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	91 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	92 if (! (isalnum (key[i]) \|\| key[i] == '_'))
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	93 goto done;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	94 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	95
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	96 retval = 1;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	97 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	98 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	99
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	100 done:
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	101
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	102 return retval;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	103 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	104
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	105 // ------------------------------------------------------------------
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	106
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	107 void
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	108 mxArray_base::error (const char *msg) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	109 {
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	110 // FIXME
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	111 ::error ("%s", msg);
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	112 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	113
7357 3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	114 static mwIndex
3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	115 calc_single_subscript_internal (mwSize ndims, const mwSize *dims,
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	116 mwSize nsubs, const mwIndex *subs)
7357 3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	117 {
3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	118 mwIndex retval = 0;
3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	119
3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	120 switch (nsubs)
3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	121 {
3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	122 case 0:
3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	123 break;
3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	124
3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	125 case 1:
3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	126 retval = subs[0];
3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	127 break;
3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	128
3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	129 default:
3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	130 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	131 // Both nsubs and ndims should be at least 2 here.
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	132
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	133 mwSize n = nsubs <= ndims ? nsubs : ndims;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	134
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	135 retval = subs[--n];
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	136
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	137 while (--n >= 0)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	138 retval = dims[n] * retval + subs[n];
7357 3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	139 }
3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	140 break;
3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	141 }
3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	142
3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	143 return retval;
3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	144 }
3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	145
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	146 // The object that handles values pass to MEX files from Octave. Some
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	147 // methods in this class may set mutate_flag to TRUE to tell the
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	148 // mxArray class to convert to the Matlab-style representation and
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	149 // then invoke the method on that object instead (for example, getting
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	150 // a pointer to real or imaginary data from a complex object requires
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	151 // a mutation but getting a pointer to real data from a real object
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	152 // does not). Changing the representation causes a copy so we try to
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	153 // avoid it unless it is really necessary. Once the conversion
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	154 // happens, we delete this representation, so the conversion can only
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	155 // happen once per call to a MEX file.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	156
7179 32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	157 static inline void maybe_mark_foreign (void ptr);
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	158
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	159 class mxArray_octave_value : public mxArray_base
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	160 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	161 public:
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	162
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	163 mxArray_octave_value (const octave_value& ov)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	164 : mxArray_base (), val (ov), mutate_flag (false),
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	165 id (mxUNKNOWN_CLASS), class_name (0), ndims (-1), dims (0) { }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	166
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	167 mxArray_base dup (void) const { return new mxArray_octave_value (this); }
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	168
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	169 mxArray *as_mxArray (void) const
12331 f39436e14734 mex.cc (mxArray_octave_value::dup): if value can't be converted to mxArray object, create a clone of the mxArray_octave_value container John W. Eaton <jwe@octave.org> parents: 12123 diff changeset	170 {
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	171 return val.as_mxArray ();
12331 f39436e14734 mex.cc (mxArray_octave_value::dup): if value can't be converted to mxArray object, create a clone of the mxArray_octave_value container John W. Eaton <jwe@octave.org> parents: 12123 diff changeset	172 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	173
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	174 ~mxArray_octave_value (void)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	175 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	176 mxFree (class_name);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	177 mxFree (dims);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	178 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	179
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	180 bool is_octave_value (void) const { return true; }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	181
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	182 int is_cell (void) const { return val.is_cell (); }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	183
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	184 int is_char (void) const { return val.is_string (); }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	185
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	186 int is_complex (void) const { return val.is_complex_type (); }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	187
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	188 int is_double (void) const { return val.is_double_type (); }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	189
11100 cdf940db26a0 provide mxIsFunctionHandle MEX interface function John W. Eaton <jwe@octave.org> parents: 11073 diff changeset	190 int is_function_handle (void) const { return val.is_function_handle (); }
cdf940db26a0 provide mxIsFunctionHandle MEX interface function John W. Eaton <jwe@octave.org> parents: 11073 diff changeset	191
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	192 int is_int16 (void) const { return val.is_int16_type (); }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	193
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	194 int is_int32 (void) const { return val.is_int32_type (); }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	195
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	196 int is_int64 (void) const { return val.is_int64_type (); }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	197
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	198 int is_int8 (void) const { return val.is_int8_type (); }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	199
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	200 int is_logical (void) const { return val.is_bool_type (); }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	201
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	202 int is_numeric (void) const { return val.is_numeric_type (); }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	203
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	204 int is_single (void) const { return val.is_single_type (); }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	205
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	206 int is_sparse (void) const { return val.is_sparse_type (); }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	207
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	208 int is_struct (void) const { return val.is_map (); }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	209
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	210 int is_uint16 (void) const { return val.is_uint16_type (); }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	211
6069 67b1a61a85ce [project @ 2006-10-21 14:33:53 by jwe] jwe parents: 6068 diff changeset	212 int is_uint32 (void) const { return val.is_uint32_type (); }
67b1a61a85ce [project @ 2006-10-21 14:33:53 by jwe] jwe parents: 6068 diff changeset	213
67b1a61a85ce [project @ 2006-10-21 14:33:53 by jwe] jwe parents: 6068 diff changeset	214 int is_uint64 (void) const { return val.is_uint64_type (); }
67b1a61a85ce [project @ 2006-10-21 14:33:53 by jwe] jwe parents: 6068 diff changeset	215
67b1a61a85ce [project @ 2006-10-21 14:33:53 by jwe] jwe parents: 6068 diff changeset	216 int is_uint8 (void) const { return val.is_uint8_type (); }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	217
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	218 int is_range (void) const { return val.is_range (); }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	219
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	220 int is_real_type (void) const { return val.is_real_type (); }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	221
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	222 int is_logical_scalar_true (void) const
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	223 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	224 return (is_logical_scalar () && val.is_true ());
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	225 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	226
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	227 mwSize get_m (void) const { return val.rows (); }
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	228
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	229 mwSize get_n (void) const
6187 2a8922007c12 [project @ 2006-11-29 01:59:59 by jwe] jwe parents: 6071 diff changeset	230 {
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	231 mwSize n = 1;
6187 2a8922007c12 [project @ 2006-11-29 01:59:59 by jwe] jwe parents: 6071 diff changeset	232
2a8922007c12 [project @ 2006-11-29 01:59:59 by jwe] jwe parents: 6071 diff changeset	233 // Force dims and ndims to be cached.
14846 460a3c6d8bf1 maint: Use Octave coding convention for cuddled parenthis in function calls with empty argument lists. Rik <octave@nomad.inbox5.com> parents: 14840 diff changeset	234 get_dimensions ();
6187 2a8922007c12 [project @ 2006-11-29 01:59:59 by jwe] jwe parents: 6071 diff changeset	235
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	236 for (mwIndex i = ndims - 1; i > 0; i--)
6187 2a8922007c12 [project @ 2006-11-29 01:59:59 by jwe] jwe parents: 6071 diff changeset	237 n *= dims[i];
2a8922007c12 [project @ 2006-11-29 01:59:59 by jwe] jwe parents: 6071 diff changeset	238
2a8922007c12 [project @ 2006-11-29 01:59:59 by jwe] jwe parents: 6071 diff changeset	239 return n;
2a8922007c12 [project @ 2006-11-29 01:59:59 by jwe] jwe parents: 6071 diff changeset	240 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	241
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	242 mwSize *get_dimensions (void) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	243 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	244 if (! dims)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	245 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	246 ndims = val.ndims ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	247
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	248 dims = static_cast<mwSize > (mxArray::malloc (ndims sizeof (mwSize)));
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	249
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	250 dim_vector dv = val.dims ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	251
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	252 for (mwIndex i = 0; i < ndims; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	253 dims[i] = dv(i);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	254 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	255
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	256 return dims;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	257 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	258
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	259 mwSize get_number_of_dimensions (void) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	260 {
6332 debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	261 // Force dims and ndims to be cached.
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	262 get_dimensions ();
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	263
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	264 return ndims;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	265 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	266
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	267 void set_m (mwSize /m/) { request_mutation (); }
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	268
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	269 void set_n (mwSize /n/) { request_mutation (); }
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	270
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	271 void set_dimensions (mwSize /dims_arg/, mwSize /ndims_arg*/)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	272 {
6400 566343604d95 [project @ 2007-03-08 22:58:22 by jwe] jwe parents: 6347 diff changeset	273 request_mutation ();
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	274 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	275
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	276 mwSize get_number_of_elements (void) const { return val.numel (); }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	277
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	278 int is_empty (void) const { return val.is_empty (); }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	279
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	280 mxClassID get_class_id (void) const
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	281 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	282 id = mxUNKNOWN_CLASS;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	283
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	284 std::string cn = val.class_name ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	285
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	286 if (cn == "cell")
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	287 id = mxCELL_CLASS;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	288 else if (cn == "struct")
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	289 id = mxSTRUCT_CLASS;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	290 else if (cn == "logical")
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	291 id = mxLOGICAL_CLASS;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	292 else if (cn == "char")
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	293 id = mxCHAR_CLASS;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	294 else if (cn == "double")
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	295 id = mxDOUBLE_CLASS;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	296 else if (cn == "single")
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	297 id = mxSINGLE_CLASS;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	298 else if (cn == "int8")
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	299 id = mxINT8_CLASS;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	300 else if (cn == "uint8")
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	301 id = mxUINT8_CLASS;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	302 else if (cn == "int16")
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	303 id = mxINT16_CLASS;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	304 else if (cn == "uint16")
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	305 id = mxUINT16_CLASS;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	306 else if (cn == "int32")
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	307 id = mxINT32_CLASS;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	308 else if (cn == "uint32")
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	309 id = mxUINT32_CLASS;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	310 else if (cn == "int64")
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	311 id = mxINT64_CLASS;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	312 else if (cn == "uint64")
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	313 id = mxUINT64_CLASS;
6218 c1b66b74937d [project @ 2006-12-27 17:43:50 by jwe] jwe parents: 6188 diff changeset	314 else if (cn == "function_handle")
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	315 id = mxFUNCTION_CLASS;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	316
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	317 return id;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	318 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	319
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	320 const char *get_class_name (void) const
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	321 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	322 if (! class_name)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	323 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	324 std::string s = val.class_name ();
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	325 class_name = mxArray::strsave (s.c_str ());
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	326 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	327
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	328 return class_name;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	329 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	330
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	331 // Not allowed.
6400 566343604d95 [project @ 2007-03-08 22:58:22 by jwe] jwe parents: 6347 diff changeset	332 void set_class_name (const char /name_arg*/) { request_mutation (); }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	333
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	334 mxArray get_cell (mwIndex /idx*/) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	335 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	336 request_mutation ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	337 return 0;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	338 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	339
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	340 // Not allowed.
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	341 void set_cell (mwIndex /idx/, mxArray /val*/) { request_mutation (); }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	342
6332 debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	343 double get_scalar (void) const { return val.scalar_value (true); }
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	344
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	345 void *get_data (void) const
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	346 {
9358 d4b1314a7c31 mex.cc (mxArray_octave_value::get_data): avoid enumerating types that can be handled as foreign John W. Eaton <jwe@octave.org> parents: 9144 diff changeset	347 void *retval = val.mex_get_data ();
d4b1314a7c31 mex.cc (mxArray_octave_value::get_data): avoid enumerating types that can be handled as foreign John W. Eaton <jwe@octave.org> parents: 9144 diff changeset	348
d4b1314a7c31 mex.cc (mxArray_octave_value::get_data): avoid enumerating types that can be handled as foreign John W. Eaton <jwe@octave.org> parents: 9144 diff changeset	349 if (retval)
d4b1314a7c31 mex.cc (mxArray_octave_value::get_data): avoid enumerating types that can be handled as foreign John W. Eaton <jwe@octave.org> parents: 9144 diff changeset	350 maybe_mark_foreign (retval);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	351 else
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	352 request_mutation ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	353
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	354 return retval;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	355 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	356
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	357 void *get_imag_data (void) const
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	358 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	359 void *retval = 0;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	360
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	361 if (is_numeric () && is_real_type ())
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	362 retval = 0;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	363 else
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	364 request_mutation ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	365
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	366 return retval;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	367 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	368
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	369 // Not allowed.
6400 566343604d95 [project @ 2007-03-08 22:58:22 by jwe] jwe parents: 6347 diff changeset	370 void set_data (void /pr*/) { request_mutation (); }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	371
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	372 // Not allowed.
6400 566343604d95 [project @ 2007-03-08 22:58:22 by jwe] jwe parents: 6347 diff changeset	373 void set_imag_data (void /pi*/) { request_mutation (); }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	374
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	375 mwIndex *get_ir (void) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	376 {
7179 32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	377 return static_cast<mwIndex *> (maybe_mark_foreign (val.mex_get_ir ()));
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	378 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	379
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	380 mwIndex *get_jc (void) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	381 {
7179 32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	382 return static_cast<mwIndex *> (maybe_mark_foreign (val.mex_get_jc ()));
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	383 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	384
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	385 mwSize get_nzmax (void) const { return val.nzmax (); }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	386
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	387 // Not allowed.
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	388 void set_ir (mwIndex /ir*/) { request_mutation (); }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	389
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	390 // Not allowed.
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	391 void set_jc (mwIndex /jc*/) { request_mutation (); }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	392
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	393 // Not allowed.
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	394 void set_nzmax (mwSize /nzmax/) { request_mutation (); }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	395
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	396 // Not allowed.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	397 int add_field (const char /key*/)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	398 {
6400 566343604d95 [project @ 2007-03-08 22:58:22 by jwe] jwe parents: 6347 diff changeset	399 request_mutation ();
566343604d95 [project @ 2007-03-08 22:58:22 by jwe] jwe parents: 6347 diff changeset	400 return 0;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	401 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	402
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	403 // Not allowed.
6400 566343604d95 [project @ 2007-03-08 22:58:22 by jwe] jwe parents: 6347 diff changeset	404 void remove_field (int /key_num/) { request_mutation (); }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	405
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	406 mxArray get_field_by_number (mwIndex /index/, int /key_num*/) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	407 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	408 request_mutation ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	409 return 0;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	410 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	411
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	412 // Not allowed.
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	413 void set_field_by_number (mwIndex /index/, int /key_num/, mxArray /val*/)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	414 {
6400 566343604d95 [project @ 2007-03-08 22:58:22 by jwe] jwe parents: 6347 diff changeset	415 request_mutation ();
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	416 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	417
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	418 int get_number_of_fields (void) const { return val.nfields (); }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	419
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	420 const char get_field_name_by_number (int /key_num*/) const
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	421 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	422 request_mutation ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	423 return 0;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	424 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	425
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	426 int get_field_number (const char /key*/) const
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	427 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	428 request_mutation ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	429 return 0;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	430 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	431
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	432 int get_string (char *buf, mwSize buflen) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	433 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	434 int retval = 1;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	435
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	436 mwSize nel = get_number_of_elements ();
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	437
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	438 if (val.is_string () && nel < buflen)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	439 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	440 charNDArray tmp = val.char_array_value ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	441
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	442 const char *p = tmp.data ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	443
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	444 for (mwIndex i = 0; i < nel; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	445 buf[i] = p[i];
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	446
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	447 buf[nel] = 0;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	448
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	449 retval = 0;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	450 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	451
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	452 return retval;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	453 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	454
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	455 char *array_to_string (void) const
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	456 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	457 // FIXME -- this is suposed to handle multi-byte character
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	458 // strings.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	459
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	460 char *buf = 0;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	461
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	462 if (val.is_string ())
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	463 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	464 mwSize nel = get_number_of_elements ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	465
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	466 buf = static_cast<char *> (mxArray::malloc (nel + 1));
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	467
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	468 if (buf)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	469 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	470 charNDArray tmp = val.char_array_value ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	471
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	472 const char *p = tmp.data ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	473
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	474 for (mwIndex i = 0; i < nel; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	475 buf[i] = p[i];
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	476
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	477 buf[nel] = '\0';
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	478 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	479 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	480
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	481 return buf;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	482 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	483
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	484 mwIndex calc_single_subscript (mwSize nsubs, mwIndex *subs) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	485 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	486 // Force ndims, dims to be cached.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	487 get_dimensions ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	488
7357 3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	489 return calc_single_subscript_internal (ndims, dims, nsubs, subs);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	490 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	491
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	492 size_t get_element_size (void) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	493 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	494 // Force id to be cached.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	495 get_class_id ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	496
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	497 switch (id)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	498 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	499 case mxCELL_CLASS: return sizeof (mxArray *);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	500 case mxSTRUCT_CLASS: return sizeof (mxArray *);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	501 case mxLOGICAL_CLASS: return sizeof (mxLogical);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	502 case mxCHAR_CLASS: return sizeof (mxChar);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	503 case mxDOUBLE_CLASS: return sizeof (double);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	504 case mxSINGLE_CLASS: return sizeof (float);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	505 case mxINT8_CLASS: return 1;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	506 case mxUINT8_CLASS: return 1;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	507 case mxINT16_CLASS: return 2;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	508 case mxUINT16_CLASS: return 2;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	509 case mxINT32_CLASS: return 4;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	510 case mxUINT32_CLASS: return 4;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	511 case mxINT64_CLASS: return 8;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	512 case mxUINT64_CLASS: return 8;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	513 case mxFUNCTION_CLASS: return 0;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	514 default: return 0;
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	515 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	516 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	517
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	518 bool mutation_needed (void) const { return mutate_flag; }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	519
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	520 void request_mutation (void) const
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	521 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	522 if (mutate_flag)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	523 panic_impossible ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	524
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	525 mutate_flag = true;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	526 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	527
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	528 mxArray *mutate (void) const { return val.as_mxArray (); }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	529
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	530 octave_value as_octave_value (void) const { return val; }
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	531
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	532 protected:
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	533
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	534 mxArray_octave_value (const mxArray_octave_value& arg)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	535 : mxArray_base (arg), val (arg.val), mutate_flag (arg.mutate_flag),
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	536 id (arg.id), class_name (mxArray::strsave (arg.class_name)),
93dff6435fe1 tag calls to mxArray::malloc, mxArray::calloc, and mxArray::strsave with class name John W. Eaton <jwe@octave.org> parents: 15353 diff changeset	537 ndims (arg.ndims),
93dff6435fe1 tag calls to mxArray::malloc, mxArray::calloc, and mxArray::strsave with class name John W. Eaton <jwe@octave.org> parents: 15353 diff changeset	538 dims (ndims > 0 ? static_cast<mwSize > (mxArray::malloc (ndims sizeof (mwSize))) : 0)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	539 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	540 if (dims)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	541 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	542 for (mwIndex i = 0; i < ndims; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	543 dims[i] = arg.dims[i];
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	544 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	545 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	546
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	547 private:
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	548
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	549 octave_value val;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	550
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	551 mutable bool mutate_flag;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	552
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	553 // Caching these does not cost much or lead to much duplicated
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	554 // code. For other things, we just request mutation to a
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	555 // Matlab-style mxArray object.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	556
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	557 mutable mxClassID id;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	558 mutable char *class_name;
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	559 mutable mwSize ndims;
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	560 mutable mwSize *dims;
12122 f4689107dd8c Explicitly disallow copying in some classes. Pascal Dupuis <Pascal.Dupuis@uclouvain.be> parents: 11586 diff changeset	561
f4689107dd8c Explicitly disallow copying in some classes. Pascal Dupuis <Pascal.Dupuis@uclouvain.be> parents: 11586 diff changeset	562 // No assignment! FIXME -- should this be implemented? Note that we
f4689107dd8c Explicitly disallow copying in some classes. Pascal Dupuis <Pascal.Dupuis@uclouvain.be> parents: 11586 diff changeset	563 // do have a copy constructor.
f4689107dd8c Explicitly disallow copying in some classes. Pascal Dupuis <Pascal.Dupuis@uclouvain.be> parents: 11586 diff changeset	564
f4689107dd8c Explicitly disallow copying in some classes. Pascal Dupuis <Pascal.Dupuis@uclouvain.be> parents: 11586 diff changeset	565 mxArray_octave_value& operator = (const mxArray_octave_value&);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	566 };
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	567
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	568 // The base class for the Matlab-style representation, used to handle
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	569 // things that are common to all Matlab-style objects.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	570
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	571 class mxArray_matlab : public mxArray_base
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	572 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	573 protected:
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	574
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	575 mxArray_matlab (mxClassID id_arg = mxUNKNOWN_CLASS)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	576 : mxArray_base (), class_name (0), id (id_arg), ndims (0), dims (0) { }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	577
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	578 mxArray_matlab (mxClassID id_arg, mwSize ndims_arg, const mwSize *dims_arg)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	579 : mxArray_base (), class_name (0), id (id_arg),
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	580 ndims (ndims_arg < 2 ? 2 : ndims_arg),
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	581 dims (static_cast<mwSize > (mxArray::malloc (ndims sizeof (mwSize))))
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	582 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	583 if (ndims_arg < 2)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	584 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	585 dims[0] = 1;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	586 dims[1] = 1;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	587 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	588
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	589 for (mwIndex i = 0; i < ndims_arg; i++)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	590 dims[i] = dims_arg[i];
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	591
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	592 for (mwIndex i = ndims - 1; i > 1; i--)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	593 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	594 if (dims[i] == 1)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	595 ndims--;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	596 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	597 break;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	598 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	599 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	600
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	601 mxArray_matlab (mxClassID id_arg, const dim_vector& dv)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	602 : mxArray_base (), class_name (0), id (id_arg),
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	603 ndims (dv.length ()),
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	604 dims (static_cast<mwSize > (mxArray::malloc (ndims sizeof (mwSize))))
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	605 {
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	606 for (mwIndex i = 0; i < ndims; i++)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	607 dims[i] = dv(i);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	608
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	609 for (mwIndex i = ndims - 1; i > 1; i--)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	610 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	611 if (dims[i] == 1)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	612 ndims--;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	613 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	614 break;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	615 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	616 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	617
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	618 mxArray_matlab (mxClassID id_arg, mwSize m, mwSize n)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	619 : mxArray_base (), class_name (0), id (id_arg), ndims (2),
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	620 dims (static_cast<mwSize > (mxArray::malloc (ndims sizeof (mwSize))))
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	621 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	622 dims[0] = m;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	623 dims[1] = n;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	624 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	625
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	626 public:
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	627
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	628 ~mxArray_matlab (void)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	629 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	630 mxFree (class_name);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	631 mxFree (dims);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	632 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	633
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	634 int is_cell (void) const { return id == mxCELL_CLASS; }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	635
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	636 int is_char (void) const { return id == mxCHAR_CLASS; }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	637
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	638 int is_complex (void) const { return 0; }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	639
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	640 int is_double (void) const { return id == mxDOUBLE_CLASS; }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	641
11100 cdf940db26a0 provide mxIsFunctionHandle MEX interface function John W. Eaton <jwe@octave.org> parents: 11073 diff changeset	642 int is_function_handle (void) const { return id == mxFUNCTION_CLASS; }
cdf940db26a0 provide mxIsFunctionHandle MEX interface function John W. Eaton <jwe@octave.org> parents: 11073 diff changeset	643
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	644 int is_int16 (void) const { return id == mxINT16_CLASS; }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	645
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	646 int is_int32 (void) const { return id == mxINT32_CLASS; }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	647
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	648 int is_int64 (void) const { return id == mxINT64_CLASS; }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	649
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	650 int is_int8 (void) const { return id == mxINT8_CLASS; }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	651
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	652 int is_logical (void) const { return id == mxLOGICAL_CLASS; }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	653
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	654 int is_numeric (void) const
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	655 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	656 return (id == mxDOUBLE_CLASS \|\| id == mxSINGLE_CLASS
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	657 \|\| id == mxINT8_CLASS \|\| id == mxUINT8_CLASS
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	658 \|\| id == mxINT16_CLASS \|\| id == mxUINT16_CLASS
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	659 \|\| id == mxINT32_CLASS \|\| id == mxUINT32_CLASS
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	660 \|\| id == mxINT64_CLASS \|\| id == mxUINT64_CLASS);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	661 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	662
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	663 int is_single (void) const { return id == mxSINGLE_CLASS; }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	664
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	665 int is_sparse (void) const { return 0; }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	666
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	667 int is_struct (void) const { return id == mxSTRUCT_CLASS; }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	668
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	669 int is_uint16 (void) const { return id == mxUINT16_CLASS; }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	670
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	671 int is_uint32 (void) const { return id == mxUINT32_CLASS; }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	672
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	673 int is_uint64 (void) const { return id == mxUINT64_CLASS; }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	674
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	675 int is_uint8 (void) const { return id == mxUINT8_CLASS; }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	676
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	677 int is_logical_scalar_true (void) const
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	678 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	679 return (is_logical_scalar ()
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	680 && static_cast<mxLogical *> (get_data ())[0] != 0);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	681 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	682
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	683 mwSize get_m (void) const { return dims[0]; }
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	684
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	685 mwSize get_n (void) const
6187 2a8922007c12 [project @ 2006-11-29 01:59:59 by jwe] jwe parents: 6071 diff changeset	686 {
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	687 mwSize n = 1;
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	688
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	689 for (mwSize i = ndims - 1 ; i > 0 ; i--)
6187 2a8922007c12 [project @ 2006-11-29 01:59:59 by jwe] jwe parents: 6071 diff changeset	690 n *= dims[i];
2a8922007c12 [project @ 2006-11-29 01:59:59 by jwe] jwe parents: 6071 diff changeset	691
2a8922007c12 [project @ 2006-11-29 01:59:59 by jwe] jwe parents: 6071 diff changeset	692 return n;
2a8922007c12 [project @ 2006-11-29 01:59:59 by jwe] jwe parents: 6071 diff changeset	693 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	694
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	695 mwSize *get_dimensions (void) const { return dims; }
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	696
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	697 mwSize get_number_of_dimensions (void) const { return ndims; }
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	698
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	699 void set_m (mwSize m) { dims[0] = m; }
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	700
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	701 void set_n (mwSize n) { dims[1] = n; }
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	702
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	703 void set_dimensions (mwSize *dims_arg, mwSize ndims_arg)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	704 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	705 dims = dims_arg;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	706 ndims = ndims_arg;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	707 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	708
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	709 mwSize get_number_of_elements (void) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	710 {
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	711 mwSize retval = dims[0];
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	712
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	713 for (mwIndex i = 1; i < ndims; i++)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	714 retval *= dims[i];
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	715
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	716 return retval;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	717 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	718
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	719 int is_empty (void) const { return get_number_of_elements () == 0; }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	720
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	721 mxClassID get_class_id (void) const { return id; }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	722
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	723 const char *get_class_name (void) const
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	724 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	725 switch (id)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	726 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	727 case mxCELL_CLASS: return "cell";
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	728 case mxSTRUCT_CLASS: return "struct";
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	729 case mxLOGICAL_CLASS: return "logical";
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	730 case mxCHAR_CLASS: return "char";
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	731 case mxDOUBLE_CLASS: return "double";
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	732 case mxSINGLE_CLASS: return "single";
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	733 case mxINT8_CLASS: return "int8";
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	734 case mxUINT8_CLASS: return "uint8";
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	735 case mxINT16_CLASS: return "int16";
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	736 case mxUINT16_CLASS: return "uint16";
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	737 case mxINT32_CLASS: return "int32";
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	738 case mxUINT32_CLASS: return "uint32";
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	739 case mxINT64_CLASS: return "int64";
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	740 case mxUINT64_CLASS: return "uint64";
6218 c1b66b74937d [project @ 2006-12-27 17:43:50 by jwe] jwe parents: 6188 diff changeset	741 case mxFUNCTION_CLASS: return "function_handle";
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	742 default: return "unknown";
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	743 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	744 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	745
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	746 void set_class_name (const char *name_arg)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	747 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	748 mxFree (class_name);
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	749 class_name = static_cast<char *> (mxArray::malloc (strlen (name_arg) + 1));
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	750 strcpy (class_name, name_arg);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	751 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	752
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	753 mxArray get_cell (mwIndex /idx*/) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	754 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	755 invalid_type_error ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	756 return 0;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	757 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	758
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	759 void set_cell (mwIndex /idx/, mxArray /val*/)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	760 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	761 invalid_type_error ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	762 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	763
6332 debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	764 double get_scalar (void) const
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	765 {
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	766 invalid_type_error ();
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	767 return 0;
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	768 }
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	769
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	770 void *get_data (void) const
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	771 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	772 invalid_type_error ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	773 return 0;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	774 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	775
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	776 void *get_imag_data (void) const
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	777 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	778 invalid_type_error ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	779 return 0;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	780 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	781
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	782 void set_data (void /pr*/)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	783 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	784 invalid_type_error ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	785 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	786
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	787 void set_imag_data (void /pi*/)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	788 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	789 invalid_type_error ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	790 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	791
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	792 mwIndex *get_ir (void) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	793 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	794 invalid_type_error ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	795 return 0;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	796 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	797
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	798 mwIndex *get_jc (void) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	799 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	800 invalid_type_error ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	801 return 0;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	802 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	803
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	804 mwSize get_nzmax (void) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	805 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	806 invalid_type_error ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	807 return 0;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	808 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	809
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	810 void set_ir (mwIndex /ir*/)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	811 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	812 invalid_type_error ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	813 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	814
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	815 void set_jc (mwIndex /jc*/)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	816 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	817 invalid_type_error ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	818 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	819
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	820 void set_nzmax (mwSize /nzmax/)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	821 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	822 invalid_type_error ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	823 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	824
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	825 int add_field (const char /key*/)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	826 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	827 invalid_type_error ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	828 return -1;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	829 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	830
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	831 void remove_field (int /key_num/)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	832 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	833 invalid_type_error ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	834 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	835
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	836 mxArray get_field_by_number (mwIndex /index/, int /key_num*/) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	837 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	838 invalid_type_error ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	839 return 0;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	840 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	841
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	842 void set_field_by_number (mwIndex /index/, int /key_num/, mxArray /val*/)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	843 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	844 invalid_type_error ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	845 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	846
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	847 int get_number_of_fields (void) const
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	848 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	849 invalid_type_error ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	850 return 0;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	851 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	852
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	853 const char get_field_name_by_number (int /key_num*/) const
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	854 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	855 invalid_type_error ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	856 return 0;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	857 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	858
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	859 int get_field_number (const char /key*/) const
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	860 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	861 return -1;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	862 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	863
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	864 int get_string (char /buf/, mwSize /buflen*/) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	865 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	866 invalid_type_error ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	867 return 0;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	868 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	869
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	870 char *array_to_string (void) const
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	871 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	872 invalid_type_error ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	873 return 0;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	874 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	875
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	876 mwIndex calc_single_subscript (mwSize nsubs, mwIndex *subs) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	877 {
7357 3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	878 return calc_single_subscript_internal (ndims, dims, nsubs, subs);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	879 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	880
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	881 size_t get_element_size (void) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	882 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	883 switch (id)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	884 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	885 case mxCELL_CLASS: return sizeof (mxArray *);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	886 case mxSTRUCT_CLASS: return sizeof (mxArray *);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	887 case mxLOGICAL_CLASS: return sizeof (mxLogical);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	888 case mxCHAR_CLASS: return sizeof (mxChar);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	889 case mxDOUBLE_CLASS: return sizeof (double);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	890 case mxSINGLE_CLASS: return sizeof (float);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	891 case mxINT8_CLASS: return 1;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	892 case mxUINT8_CLASS: return 1;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	893 case mxINT16_CLASS: return 2;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	894 case mxUINT16_CLASS: return 2;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	895 case mxINT32_CLASS: return 4;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	896 case mxUINT32_CLASS: return 4;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	897 case mxINT64_CLASS: return 8;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	898 case mxUINT64_CLASS: return 8;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	899 case mxFUNCTION_CLASS: return 0;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	900 default: return 0;
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	901 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	902 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	903
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	904 protected:
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	905
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	906 mxArray_matlab (const mxArray_matlab& val)
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	907 : mxArray_base (val), class_name (mxArray::strsave (val.class_name)),
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	908 id (val.id), ndims (val.ndims),
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	909 dims (static_cast<mwSize > (mxArray::malloc (ndims sizeof (mwSize))))
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	910 {
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	911 for (mwIndex i = 0; i < ndims; i++)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	912 dims[i] = val.dims[i];
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	913 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	914
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	915 dim_vector
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	916 dims_to_dim_vector (void) const
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	917 {
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	918 mwSize nd = get_number_of_dimensions ();
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	919
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	920 mwSize *d = get_dimensions ();
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	921
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	922 dim_vector dv;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	923 dv.resize (nd);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	924
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	925 for (mwIndex i = 0; i < nd; i++)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	926 dv(i) = d[i];
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	927
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	928 return dv;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	929 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	930
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	931 private:
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	932
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	933 char *class_name;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	934
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	935 mxClassID id;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	936
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	937 mwSize ndims;
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	938 mwSize *dims;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	939
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	940 void invalid_type_error (void) const
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	941 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	942 error ("invalid type for operation");
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	943 }
12122 f4689107dd8c Explicitly disallow copying in some classes. Pascal Dupuis <Pascal.Dupuis@uclouvain.be> parents: 11586 diff changeset	944
f4689107dd8c Explicitly disallow copying in some classes. Pascal Dupuis <Pascal.Dupuis@uclouvain.be> parents: 11586 diff changeset	945 // No assignment! FIXME -- should this be implemented? Note that we
f4689107dd8c Explicitly disallow copying in some classes. Pascal Dupuis <Pascal.Dupuis@uclouvain.be> parents: 11586 diff changeset	946 // do have a copy constructor.
f4689107dd8c Explicitly disallow copying in some classes. Pascal Dupuis <Pascal.Dupuis@uclouvain.be> parents: 11586 diff changeset	947
f4689107dd8c Explicitly disallow copying in some classes. Pascal Dupuis <Pascal.Dupuis@uclouvain.be> parents: 11586 diff changeset	948 mxArray_matlab& operator = (const mxArray_matlab&);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	949 };
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	950
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	951 // Matlab-style numeric, character, and logical data.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	952
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	953 class mxArray_number : public mxArray_matlab
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	954 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	955 public:
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	956
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	957 mxArray_number (mxClassID id_arg, mwSize ndims_arg, const mwSize *dims_arg,
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	958 mxComplexity flag = mxREAL)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	959 : mxArray_matlab (id_arg, ndims_arg, dims_arg),
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	960 pr (mxArray::calloc (get_number_of_elements (), get_element_size ())),
93dff6435fe1 tag calls to mxArray::malloc, mxArray::calloc, and mxArray::strsave with class name John W. Eaton <jwe@octave.org> parents: 15353 diff changeset	961 pi (flag == mxCOMPLEX ? mxArray::calloc (get_number_of_elements (), get_element_size ()) : 0) { }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	962
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	963 mxArray_number (mxClassID id_arg, const dim_vector& dv,
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	964 mxComplexity flag = mxREAL)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	965 : mxArray_matlab (id_arg, dv),
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	966 pr (mxArray::calloc (get_number_of_elements (), get_element_size ())),
93dff6435fe1 tag calls to mxArray::malloc, mxArray::calloc, and mxArray::strsave with class name John W. Eaton <jwe@octave.org> parents: 15353 diff changeset	967 pi (flag == mxCOMPLEX ? mxArray::calloc (get_number_of_elements (), get_element_size ()) : 0) { }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	968
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	969 mxArray_number (mxClassID id_arg, mwSize m, mwSize n, mxComplexity flag = mxREAL)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	970 : mxArray_matlab (id_arg, m, 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	971 pr (mxArray::calloc (get_number_of_elements (), get_element_size ())),
93dff6435fe1 tag calls to mxArray::malloc, mxArray::calloc, and mxArray::strsave with class name John W. Eaton <jwe@octave.org> parents: 15353 diff changeset	972 pi (flag == mxCOMPLEX ? mxArray::calloc (get_number_of_elements (), get_element_size ()) : 0) { }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	973
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	974 mxArray_number (mxClassID id_arg, double val)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	975 : mxArray_matlab (id_arg, 1, 1),
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	976 pr (mxArray::calloc (get_number_of_elements (), get_element_size ())),
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	977 pi (0)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	978 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	979 double dpr = static_cast<double > (pr);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	980 dpr[0] = val;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	981 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	982
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	983 mxArray_number (mxClassID id_arg, mxLogical val)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	984 : mxArray_matlab (id_arg, 1, 1),
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	985 pr (mxArray::calloc (get_number_of_elements (), get_element_size ())),
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	986 pi (0)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	987 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	988 mxLogical lpr = static_cast<mxLogical > (pr);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	989 lpr[0] = val;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	990 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	991
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	992 mxArray_number (const char *str)
10853 c3813056f94f mxArray_number (const char ): create empty string if given NULL arg John W. Eaton <jwe@octave.org>* parents: 10463 diff changeset	993 : mxArray_matlab (mxCHAR_CLASS,
c3813056f94f mxArray_number (const char ): create empty string if given NULL arg John W. Eaton <jwe@octave.org>* parents: 10463 diff changeset	994 str ? (strlen (str) ? 1 : 0) : 0,
c3813056f94f mxArray_number (const char ): create empty string if given NULL arg John W. Eaton <jwe@octave.org>* parents: 10463 diff changeset	995 str ? strlen (str) : 0),
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	996 pr (mxArray::calloc (get_number_of_elements (), get_element_size ())),
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	997 pi (0)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	998 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	999 mxChar cpr = static_cast<mxChar > (pr);
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1000 mwSize nel = get_number_of_elements ();
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1001 for (mwIndex i = 0; i < nel; i++)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1002 cpr[i] = str[i];
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1003 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1004
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1005 // FIXME??
6806 afa9123c5faa [project @ 2007-07-30 18:36:01 by jwe] jwe parents: 6787 diff changeset	1006 mxArray_number (mwSize m, const char **str)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1007 : mxArray_matlab (mxCHAR_CLASS, m, max_str_len (m, str)),
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	1008 pr (mxArray::calloc (get_number_of_elements (), get_element_size ())),
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1009 pi (0)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1010 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1011 mxChar cpr = static_cast<mxChar > (pr);
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	1012
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1013 mwSize *dv = get_dimensions ();
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1014
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1015 mwSize nc = dv[1];
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1016
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1017 for (mwIndex j = 0; j < m; j++)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1018 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1019 const char *ptr = str[j];
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1020
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1021 size_t tmp_len = strlen (ptr);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1022
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1023 for (size_t i = 0; i < tmp_len; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1024 cpr[m*i+j] = static_cast<mxChar> (ptr[i]);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1025
14632 954e1a180375 Silence warnings. Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: 14138 diff changeset	1026 for (size_t i = tmp_len; i < static_cast<size_t>(nc); i++)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1027 cpr[m*i+j] = static_cast<mxChar> (' ');
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	1028 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1029 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1030
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	1031 mxArray_base dup (void) const { return new mxArray_number (this); }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1032
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1033 ~mxArray_number (void)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1034 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1035 mxFree (pr);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1036 mxFree (pi);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1037 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1038
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1039 int is_complex (void) const { return pi != 0; }
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1040
6332 debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1041 double get_scalar (void) const
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1042 {
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1043 double retval = 0;
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1044
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1045 switch (get_class_id ())
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1046 {
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1047 case mxLOGICAL_CLASS:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1048 retval = (static_cast<bool > (pr));
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1049 break;
6332 debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1050
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1051 case mxCHAR_CLASS:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1052 retval = (static_cast<mxChar > (pr));
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1053 break;
6332 debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1054
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1055 case mxSINGLE_CLASS:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1056 retval = (static_cast<float > (pr));
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1057 break;
6332 debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1058
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1059 case mxDOUBLE_CLASS:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1060 retval = (static_cast<double > (pr));
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1061 break;
6332 debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1062
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1063 case mxINT8_CLASS:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1064 retval = (static_cast<int8_t > (pr));
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1065 break;
6332 debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1066
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1067 case mxUINT8_CLASS:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1068 retval = (static_cast<uint8_t > (pr));
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1069 break;
6332 debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1070
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1071 case mxINT16_CLASS:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1072 retval = (static_cast<int16_t > (pr));
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1073 break;
6332 debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1074
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1075 case mxUINT16_CLASS:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1076 retval = (static_cast<uint16_t > (pr));
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1077 break;
6332 debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1078
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1079 case mxINT32_CLASS:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1080 retval = (static_cast<int32_t > (pr));
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1081 break;
6332 debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1082
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1083 case mxUINT32_CLASS:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1084 retval = (static_cast<uint32_t > (pr));
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1085 break;
6332 debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1086
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1087 case mxINT64_CLASS:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1088 retval = (static_cast<int64_t > (pr));
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1089 break;
6332 debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1090
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1091 case mxUINT64_CLASS:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1092 retval = (static_cast<uint64_t > (pr));
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1093 break;
6332 debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1094
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1095 default:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1096 panic_impossible ();
6332 debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1097 }
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1098
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1099 return retval;
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1100 }
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1101
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1102 void *get_data (void) const { return pr; }
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1103
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1104 void *get_imag_data (void) const { return pi; }
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1105
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1106 void set_data (void *pr_arg) { pr = pr_arg; }
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1107
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1108 void set_imag_data (void *pi_arg) { pi = pi_arg; }
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1109
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1110 int get_string (char *buf, mwSize buflen) const
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1111 {
13753 ab4238b0b09b Change return value of mxGetString to match Matlab (Bug #34546) Rik <octave@nomad.inbox5.com> parents: 12472 diff changeset	1112 int retval = 0;
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1113
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1114 mwSize nel = get_number_of_elements ();
6493 5fa513371dde [project @ 2007-04-05 14:53:49 by jwe] jwe parents: 6400 diff changeset	1115
13753 ab4238b0b09b Change return value of mxGetString to match Matlab (Bug #34546) Rik <octave@nomad.inbox5.com> parents: 12472 diff changeset	1116 if (! (nel < buflen))
ab4238b0b09b Change return value of mxGetString to match Matlab (Bug #34546) Rik <octave@nomad.inbox5.com> parents: 12472 diff changeset	1117 {
ab4238b0b09b Change return value of mxGetString to match Matlab (Bug #34546) Rik <octave@nomad.inbox5.com> parents: 12472 diff changeset	1118 retval = 1;
ab4238b0b09b Change return value of mxGetString to match Matlab (Bug #34546) Rik <octave@nomad.inbox5.com> parents: 12472 diff changeset	1119 if (buflen > 0)
ab4238b0b09b Change return value of mxGetString to match Matlab (Bug #34546) Rik <octave@nomad.inbox5.com> parents: 12472 diff changeset	1120 nel = buflen-1;
ab4238b0b09b Change return value of mxGetString to match Matlab (Bug #34546) Rik <octave@nomad.inbox5.com> parents: 12472 diff changeset	1121 }
ab4238b0b09b Change return value of mxGetString to match Matlab (Bug #34546) Rik <octave@nomad.inbox5.com> parents: 12472 diff changeset	1122
6493 5fa513371dde [project @ 2007-04-05 14:53:49 by jwe] jwe parents: 6400 diff changeset	1123 if (nel < buflen)
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1124 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1125 mxChar ptr = static_cast<mxChar > (pr);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1126
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1127 for (mwIndex i = 0; i < nel; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1128 buf[i] = static_cast<char> (ptr[i]);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1129
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1130 buf[nel] = 0;
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1131 }
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1132
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1133 return retval;
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1134 }
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1135
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1136 char *array_to_string (void) const
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1137 {
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1138 // FIXME -- this is suposed to handle multi-byte character
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1139 // strings.
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1140
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1141 mwSize nel = get_number_of_elements ();
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1142
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	1143 char buf = static_cast<char > (mxArray::malloc (nel + 1));
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1144
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1145 if (buf)
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1146 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1147 mxChar ptr = static_cast<mxChar > (pr);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1148
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1149 for (mwIndex i = 0; i < nel; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1150 buf[i] = static_cast<char> (ptr[i]);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1151
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1152 buf[nel] = '\0';
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1153 }
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1154
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1155 return buf;
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1156 }
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1157
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1158 octave_value as_octave_value (void) const
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1159 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1160 octave_value retval;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1161
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1162 dim_vector dv = dims_to_dim_vector ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1163
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1164 switch (get_class_id ())
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1165 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1166 case mxLOGICAL_CLASS:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1167 retval = int_to_ov<bool, boolNDArray, bool> (dv);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1168 break;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1169
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1170 case mxCHAR_CLASS:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1171 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1172 mwSize nel = get_number_of_elements ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1173
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1174 mxChar ppr = static_cast<mxChar > (pr);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1175
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1176 charNDArray val (dv);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1177
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1178 char *ptr = val.fortran_vec ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1179
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1180 for (mwIndex i = 0; i < nel; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1181 ptr[i] = static_cast<char> (ppr[i]);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1182
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1183 retval = val;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1184 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1185 break;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1186
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1187 case mxSINGLE_CLASS:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1188 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1189 mwSize nel = get_number_of_elements ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1190
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1191 float ppr = static_cast<float > (pr);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1192
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1193 if (pi)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1194 {
11132 6ed521ed2d6a Stop converting single valued output from mex files to doubles. Gunnar Farneback <gunnar@lysator.liu.se> parents: 11100 diff changeset	1195 FloatComplexNDArray val (dv);
6ed521ed2d6a Stop converting single valued output from mex files to doubles. Gunnar Farneback <gunnar@lysator.liu.se> parents: 11100 diff changeset	1196
6ed521ed2d6a Stop converting single valued output from mex files to doubles. Gunnar Farneback <gunnar@lysator.liu.se> parents: 11100 diff changeset	1197 FloatComplex *ptr = val.fortran_vec ();
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1198
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1199 float ppi = static_cast<float > (pi);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1200
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1201 for (mwIndex i = 0; i < nel; i++)
11132 6ed521ed2d6a Stop converting single valued output from mex files to doubles. Gunnar Farneback <gunnar@lysator.liu.se> parents: 11100 diff changeset	1202 ptr[i] = FloatComplex (ppr[i], ppi[i]);
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1203
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1204 retval = val;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1205 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1206 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1207 {
11132 6ed521ed2d6a Stop converting single valued output from mex files to doubles. Gunnar Farneback <gunnar@lysator.liu.se> parents: 11100 diff changeset	1208 FloatNDArray val (dv);
6ed521ed2d6a Stop converting single valued output from mex files to doubles. Gunnar Farneback <gunnar@lysator.liu.se> parents: 11100 diff changeset	1209
6ed521ed2d6a Stop converting single valued output from mex files to doubles. Gunnar Farneback <gunnar@lysator.liu.se> parents: 11100 diff changeset	1210 float *ptr = val.fortran_vec ();
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1211
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1212 for (mwIndex i = 0; i < nel; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1213 ptr[i] = ppr[i];
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1214
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1215 retval = val;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1216 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1217 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1218 break;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1219
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1220 case mxDOUBLE_CLASS:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1221 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1222 mwSize nel = get_number_of_elements ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1223
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1224 double ppr = static_cast<double > (pr);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1225
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1226 if (pi)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1227 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1228 ComplexNDArray val (dv);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1229
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1230 Complex *ptr = val.fortran_vec ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1231
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1232 double ppi = static_cast<double > (pi);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1233
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1234 for (mwIndex i = 0; i < nel; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1235 ptr[i] = Complex (ppr[i], ppi[i]);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1236
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1237 retval = val;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1238 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1239 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1240 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1241 NDArray val (dv);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1242
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1243 double *ptr = val.fortran_vec ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1244
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1245 for (mwIndex i = 0; i < nel; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1246 ptr[i] = ppr[i];
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1247
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1248 retval = val;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1249 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1250 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1251 break;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1252
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1253 case mxINT8_CLASS:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1254 retval = int_to_ov<int8_t, int8NDArray, octave_int8> (dv);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1255 break;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1256
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1257 case mxUINT8_CLASS:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1258 retval = int_to_ov<uint8_t, uint8NDArray, octave_uint8> (dv);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1259 break;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1260
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1261 case mxINT16_CLASS:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1262 retval = int_to_ov<int16_t, int16NDArray, octave_int16> (dv);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1263 break;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1264
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1265 case mxUINT16_CLASS:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1266 retval = int_to_ov<uint16_t, uint16NDArray, octave_uint16> (dv);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1267 break;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1268
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1269 case mxINT32_CLASS:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1270 retval = int_to_ov<int32_t, int32NDArray, octave_int32> (dv);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1271 break;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1272
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1273 case mxUINT32_CLASS:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1274 retval = int_to_ov<uint32_t, uint32NDArray, octave_uint32> (dv);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1275 break;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1276
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1277 case mxINT64_CLASS:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1278 retval = int_to_ov<int64_t, int64NDArray, octave_int64> (dv);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1279 break;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1280
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1281 case mxUINT64_CLASS:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1282 retval = int_to_ov<uint64_t, uint64NDArray, octave_uint64> (dv);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1283 break;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1284
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1285 default:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1286 panic_impossible ();
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	1287 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1288
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1289 return retval;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1290 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1291
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	1292 protected:
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	1293
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	1294 template <typename ELT_T, typename ARRAY_T, typename ARRAY_ELT_T>
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	1295 octave_value
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	1296 int_to_ov (const dim_vector& dv) const
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	1297 {
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	1298 octave_value retval;
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	1299
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	1300 mwSize nel = get_number_of_elements ();
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	1301
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	1302 ELT_T ppr = static_cast<ELT_T > (pr);
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	1303
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	1304 if (pi)
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	1305 error ("complex integer types are not supported");
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	1306 else
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	1307 {
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	1308 ARRAY_T val (dv);
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	1309
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	1310 ARRAY_ELT_T *ptr = val.fortran_vec ();
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	1311
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	1312 for (mwIndex i = 0; i < nel; i++)
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	1313 ptr[i] = ppr[i];
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	1314
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	1315 retval = val;
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	1316 }
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	1317
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	1318 return retval;
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	1319 }
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	1320
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1321 mxArray_number (const mxArray_number& val)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1322 : mxArray_matlab (val),
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	1323 pr (mxArray::malloc (get_number_of_elements () * get_element_size ())),
93dff6435fe1 tag calls to mxArray::malloc, mxArray::calloc, and mxArray::strsave with class name John W. Eaton <jwe@octave.org> parents: 15353 diff changeset	1324 pi (val.pi ? mxArray::malloc (get_number_of_elements () * get_element_size ()) : 0)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1325 {
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1326 size_t nbytes = get_number_of_elements () * get_element_size ();
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1327
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1328 if (pr)
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1329 memcpy (pr, val.pr, nbytes);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1330
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1331 if (pi)
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1332 memcpy (pi, val.pi, nbytes);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1333 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1334
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1335 private:
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1336
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1337 void *pr;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1338 void *pi;
12122 f4689107dd8c Explicitly disallow copying in some classes. Pascal Dupuis <Pascal.Dupuis@uclouvain.be> parents: 11586 diff changeset	1339
f4689107dd8c Explicitly disallow copying in some classes. Pascal Dupuis <Pascal.Dupuis@uclouvain.be> parents: 11586 diff changeset	1340 // No assignment! FIXME -- should this be implemented? Note that we
f4689107dd8c Explicitly disallow copying in some classes. Pascal Dupuis <Pascal.Dupuis@uclouvain.be> parents: 11586 diff changeset	1341 // do have a copy constructor.
f4689107dd8c Explicitly disallow copying in some classes. Pascal Dupuis <Pascal.Dupuis@uclouvain.be> parents: 11586 diff changeset	1342
f4689107dd8c Explicitly disallow copying in some classes. Pascal Dupuis <Pascal.Dupuis@uclouvain.be> parents: 11586 diff changeset	1343 mxArray_number& operator = (const mxArray_number&);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1344 };
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1345
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1346 // Matlab-style sparse arrays.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1347
5903 11bb9bf343a0 [project @ 2006-07-26 03:36:33 by jwe] jwe parents: 5902 diff changeset	1348 class mxArray_sparse : public mxArray_matlab
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1349 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1350 public:
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1351
14839 e2ac6e2c588a use mwSize for size arguments to mxArray_sparse constructor (bug #36783) John W. Eaton <jwe@octave.org> parents: 14138 diff changeset	1352 mxArray_sparse (mxClassID id_arg, mwSize m, mwSize n, mwSize nzmax_arg,
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1353 mxComplexity flag = mxREAL)
12123 9ea6f69259d7 more constructor initialization fixes Pascal Dupuis <Pascal.Dupuis@uclouvain.be> parents: 12122 diff changeset	1354 : mxArray_matlab (id_arg, m, n), nzmax (nzmax_arg),
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	1355 pr (mxArray::calloc (nzmax, get_element_size ())),
93dff6435fe1 tag calls to mxArray::malloc, mxArray::calloc, and mxArray::strsave with class name John W. Eaton <jwe@octave.org> parents: 15353 diff changeset	1356 pi (flag == mxCOMPLEX ? mxArray::calloc (nzmax, get_element_size ()) : 0),
93dff6435fe1 tag calls to mxArray::malloc, mxArray::calloc, and mxArray::strsave with class name John W. Eaton <jwe@octave.org> parents: 15353 diff changeset	1357 ir (static_cast<mwIndex *> (mxArray::calloc (nzmax, sizeof (mwIndex)))),
93dff6435fe1 tag calls to mxArray::malloc, mxArray::calloc, and mxArray::strsave with class name John W. Eaton <jwe@octave.org> parents: 15353 diff changeset	1358 jc (static_cast<mwIndex *> (mxArray::calloc (n + 1, sizeof (mwIndex))))
12123 9ea6f69259d7 more constructor initialization fixes Pascal Dupuis <Pascal.Dupuis@uclouvain.be> parents: 12122 diff changeset	1359 { }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1360
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	1361 mxArray_base dup (void) const { return new mxArray_sparse (this); }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1362
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1363 ~mxArray_sparse (void)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1364 {
5903 11bb9bf343a0 [project @ 2006-07-26 03:36:33 by jwe] jwe parents: 5902 diff changeset	1365 mxFree (pr);
11bb9bf343a0 [project @ 2006-07-26 03:36:33 by jwe] jwe parents: 5902 diff changeset	1366 mxFree (pi);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1367 mxFree (ir);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1368 mxFree (jc);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1369 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1370
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1371 int is_complex (void) const { return pi != 0; }
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1372
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1373 int is_sparse (void) const { return 1; }
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1374
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1375 void *get_data (void) const { return pr; }
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1376
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1377 void *get_imag_data (void) const { return pi; }
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1378
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1379 void set_data (void *pr_arg) { pr = pr_arg; }
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1380
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1381 void set_imag_data (void *pi_arg) { pi = pi_arg; }
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1382
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1383 mwIndex *get_ir (void) const { return ir; }
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1384
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1385 mwIndex *get_jc (void) const { return jc; }
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1386
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1387 mwSize get_nzmax (void) const { return nzmax; }
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1388
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1389 void set_ir (mwIndex *ir_arg) { ir = ir_arg; }
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1390
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1391 void set_jc (mwIndex *jc_arg) { jc = jc_arg; }
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1392
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1393 void set_nzmax (mwSize nzmax_arg) { nzmax = nzmax_arg; }
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1394
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1395 octave_value as_octave_value (void) const
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1396 {
5903 11bb9bf343a0 [project @ 2006-07-26 03:36:33 by jwe] jwe parents: 5902 diff changeset	1397 octave_value retval;
11bb9bf343a0 [project @ 2006-07-26 03:36:33 by jwe] jwe parents: 5902 diff changeset	1398
11bb9bf343a0 [project @ 2006-07-26 03:36:33 by jwe] jwe parents: 5902 diff changeset	1399 dim_vector dv = dims_to_dim_vector ();
11bb9bf343a0 [project @ 2006-07-26 03:36:33 by jwe] jwe parents: 5902 diff changeset	1400
11bb9bf343a0 [project @ 2006-07-26 03:36:33 by jwe] jwe parents: 5902 diff changeset	1401 switch (get_class_id ())
11bb9bf343a0 [project @ 2006-07-26 03:36:33 by jwe] jwe parents: 5902 diff changeset	1402 {
11bb9bf343a0 [project @ 2006-07-26 03:36:33 by jwe] jwe parents: 5902 diff changeset	1403 case mxLOGICAL_CLASS:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1404 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1405 bool ppr = static_cast<bool > (pr);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1406
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1407 SparseBoolMatrix val (get_m (), get_n (),
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1408 static_cast<octave_idx_type> (nzmax));
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1409
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1410 for (mwIndex i = 0; i < nzmax; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1411 {
14861 f7afecdd87ef maint: Use Octave coding conventions for cuddling parentheses in src/ directory Rik <octave@nomad.inbox5.com> parents: 14846 diff changeset	1412 val.xdata (i) = ppr[i];
f7afecdd87ef maint: Use Octave coding conventions for cuddling parentheses in src/ directory Rik <octave@nomad.inbox5.com> parents: 14846 diff changeset	1413 val.xridx (i) = ir[i];
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1414 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1415
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1416 for (mwIndex i = 0; i < get_n () + 1; i++)
14861 f7afecdd87ef maint: Use Octave coding conventions for cuddling parentheses in src/ directory Rik <octave@nomad.inbox5.com> parents: 14846 diff changeset	1417 val.xcidx (i) = jc[i];
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1418
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1419 retval = val;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1420 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1421 break;
5903 11bb9bf343a0 [project @ 2006-07-26 03:36:33 by jwe] jwe parents: 5902 diff changeset	1422
11bb9bf343a0 [project @ 2006-07-26 03:36:33 by jwe] jwe parents: 5902 diff changeset	1423 case mxSINGLE_CLASS:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1424 error ("single precision sparse data type not supported");
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1425 break;
5903 11bb9bf343a0 [project @ 2006-07-26 03:36:33 by jwe] jwe parents: 5902 diff changeset	1426
11bb9bf343a0 [project @ 2006-07-26 03:36:33 by jwe] jwe parents: 5902 diff changeset	1427 case mxDOUBLE_CLASS:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1428 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1429 if (pi)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1430 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1431 double ppr = static_cast<double > (pr);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1432 double ppi = static_cast<double > (pi);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1433
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1434 SparseComplexMatrix val (get_m (), get_n (),
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1435 static_cast<octave_idx_type> (nzmax));
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1436
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1437 for (mwIndex i = 0; i < nzmax; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1438 {
14861 f7afecdd87ef maint: Use Octave coding conventions for cuddling parentheses in src/ directory Rik <octave@nomad.inbox5.com> parents: 14846 diff changeset	1439 val.xdata (i) = Complex (ppr[i], ppi[i]);
f7afecdd87ef maint: Use Octave coding conventions for cuddling parentheses in src/ directory Rik <octave@nomad.inbox5.com> parents: 14846 diff changeset	1440 val.xridx (i) = ir[i];
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1441 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1442
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1443 for (mwIndex i = 0; i < get_n () + 1; i++)
14861 f7afecdd87ef maint: Use Octave coding conventions for cuddling parentheses in src/ directory Rik <octave@nomad.inbox5.com> parents: 14846 diff changeset	1444 val.xcidx (i) = jc[i];
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1445
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1446 retval = val;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1447 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1448 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1449 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1450 double ppr = static_cast<double > (pr);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1451
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1452 SparseMatrix val (get_m (), get_n (),
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1453 static_cast<octave_idx_type> (nzmax));
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1454
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1455 for (mwIndex i = 0; i < nzmax; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1456 {
14861 f7afecdd87ef maint: Use Octave coding conventions for cuddling parentheses in src/ directory Rik <octave@nomad.inbox5.com> parents: 14846 diff changeset	1457 val.xdata (i) = ppr[i];
f7afecdd87ef maint: Use Octave coding conventions for cuddling parentheses in src/ directory Rik <octave@nomad.inbox5.com> parents: 14846 diff changeset	1458 val.xridx (i) = ir[i];
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1459 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1460
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1461 for (mwIndex i = 0; i < get_n () + 1; i++)
14861 f7afecdd87ef maint: Use Octave coding conventions for cuddling parentheses in src/ directory Rik <octave@nomad.inbox5.com> parents: 14846 diff changeset	1462 val.xcidx (i) = jc[i];
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1463
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1464 retval = val;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1465 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1466 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1467 break;
5903 11bb9bf343a0 [project @ 2006-07-26 03:36:33 by jwe] jwe parents: 5902 diff changeset	1468
11bb9bf343a0 [project @ 2006-07-26 03:36:33 by jwe] jwe parents: 5902 diff changeset	1469 default:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1470 panic_impossible ();
5903 11bb9bf343a0 [project @ 2006-07-26 03:36:33 by jwe] jwe parents: 5902 diff changeset	1471 }
11bb9bf343a0 [project @ 2006-07-26 03:36:33 by jwe] jwe parents: 5902 diff changeset	1472
11bb9bf343a0 [project @ 2006-07-26 03:36:33 by jwe] jwe parents: 5902 diff changeset	1473 return retval;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1474 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1475
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1476 private:
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1477
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1478 mwSize nzmax;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1479
5903 11bb9bf343a0 [project @ 2006-07-26 03:36:33 by jwe] jwe parents: 5902 diff changeset	1480 void *pr;
11bb9bf343a0 [project @ 2006-07-26 03:36:33 by jwe] jwe parents: 5902 diff changeset	1481 void *pi;
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1482 mwIndex *ir;
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1483 mwIndex *jc;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1484
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1485 mxArray_sparse (const mxArray_sparse& val)
5903 11bb9bf343a0 [project @ 2006-07-26 03:36:33 by jwe] jwe parents: 5902 diff changeset	1486 : mxArray_matlab (val), nzmax (val.nzmax),
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	1487 pr (mxArray::malloc (nzmax * get_element_size ())),
93dff6435fe1 tag calls to mxArray::malloc, mxArray::calloc, and mxArray::strsave with class name John W. Eaton <jwe@octave.org> parents: 15353 diff changeset	1488 pi (val.pi ? mxArray::malloc (nzmax * get_element_size ()) : 0),
93dff6435fe1 tag calls to mxArray::malloc, mxArray::calloc, and mxArray::strsave with class name John W. Eaton <jwe@octave.org> parents: 15353 diff changeset	1489 ir (static_cast<mwIndex > (mxArray::malloc (nzmax sizeof (mwIndex)))),
93dff6435fe1 tag calls to mxArray::malloc, mxArray::calloc, and mxArray::strsave with class name John W. Eaton <jwe@octave.org> parents: 15353 diff changeset	1490 jc (static_cast<mwIndex > (mxArray::malloc (nzmax sizeof (mwIndex))))
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1491 {
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1492 size_t nbytes = nzmax * get_element_size ();
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1493
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1494 if (pr)
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1495 memcpy (pr, val.pr, nbytes);
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1496
5903 11bb9bf343a0 [project @ 2006-07-26 03:36:33 by jwe] jwe parents: 5902 diff changeset	1497 if (pi)
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1498 memcpy (pi, val.pi, nbytes);
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1499
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1500 if (ir)
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1501 memcpy (ir, val.ir, nzmax * sizeof (mwIndex));
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1502
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1503 if (jc)
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1504 memcpy (jc, val.jc, (val.get_n () + 1) * sizeof (mwIndex));
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1505 }
12122 f4689107dd8c Explicitly disallow copying in some classes. Pascal Dupuis <Pascal.Dupuis@uclouvain.be> parents: 11586 diff changeset	1506
f4689107dd8c Explicitly disallow copying in some classes. Pascal Dupuis <Pascal.Dupuis@uclouvain.be> parents: 11586 diff changeset	1507 // No assignment! FIXME -- should this be implemented? Note that we
f4689107dd8c Explicitly disallow copying in some classes. Pascal Dupuis <Pascal.Dupuis@uclouvain.be> parents: 11586 diff changeset	1508 // do have a copy constructor.
f4689107dd8c Explicitly disallow copying in some classes. Pascal Dupuis <Pascal.Dupuis@uclouvain.be> parents: 11586 diff changeset	1509
f4689107dd8c Explicitly disallow copying in some classes. Pascal Dupuis <Pascal.Dupuis@uclouvain.be> parents: 11586 diff changeset	1510 mxArray_sparse& operator = (const mxArray_sparse&);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1511 };
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1512
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1513 // Matlab-style struct arrays.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1514
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1515 class mxArray_struct : public mxArray_matlab
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1516 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1517 public:
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1518
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1519 mxArray_struct (mwSize ndims_arg, const mwSize *dims_arg, int num_keys_arg,
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1520 const char **keys)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1521 : mxArray_matlab (mxSTRUCT_CLASS, ndims_arg, dims_arg), nfields (num_keys_arg),
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	1522 fields (static_cast<char *> (mxArray::calloc (nfields, sizeof (char )))),
93dff6435fe1 tag calls to mxArray::malloc, mxArray::calloc, and mxArray::strsave with class name John W. Eaton <jwe@octave.org> parents: 15353 diff changeset	1523 data (static_cast<mxArray *> (mxArray::calloc (nfields get_number_of_elements (), sizeof (mxArray *))))
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1524 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1525 init (keys);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1526 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1527
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1528 mxArray_struct (const dim_vector& dv, int num_keys_arg, const char **keys)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1529 : mxArray_matlab (mxSTRUCT_CLASS, dv), nfields (num_keys_arg),
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	1530 fields (static_cast<char *> (mxArray::calloc (nfields, sizeof (char )))),
93dff6435fe1 tag calls to mxArray::malloc, mxArray::calloc, and mxArray::strsave with class name John W. Eaton <jwe@octave.org> parents: 15353 diff changeset	1531 data (static_cast<mxArray *> (mxArray::calloc (nfields get_number_of_elements (), sizeof (mxArray *))))
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1532 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1533 init (keys);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1534 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1535
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1536 mxArray_struct (mwSize m, mwSize n, int num_keys_arg, const char **keys)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1537 : mxArray_matlab (mxSTRUCT_CLASS, m, n), nfields (num_keys_arg),
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	1538 fields (static_cast<char *> (mxArray::calloc (nfields, sizeof (char )))),
93dff6435fe1 tag calls to mxArray::malloc, mxArray::calloc, and mxArray::strsave with class name John W. Eaton <jwe@octave.org> parents: 15353 diff changeset	1539 data (static_cast<mxArray *> (mxArray::calloc (nfields get_number_of_elements (), sizeof (mxArray *))))
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1540 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1541 init (keys);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1542 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1543
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1544 void init (const char **keys)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1545 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1546 for (int i = 0; i < nfields; i++)
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	1547 fields[i] = mxArray::strsave (keys[i]);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1548 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1549
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	1550 mxArray_base dup (void) const { return new mxArray_struct (this); }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1551
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1552 ~mxArray_struct (void)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1553 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1554 for (int i = 0; i < nfields; i++)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1555 mxFree (fields[i]);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1556
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1557 mxFree (fields);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1558
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1559 mwSize ntot = nfields * get_number_of_elements ();
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1560
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1561 for (mwIndex i = 0; i < ntot; i++)
5905 e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	1562 delete data[i];
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1563
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1564 mxFree (data);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1565 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1566
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1567 int add_field (const char *key)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1568 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1569 int retval = -1;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1570
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1571 if (valid_key (key))
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1572 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1573 nfields++;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1574
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1575 fields = static_cast<char *> (mxRealloc (fields, nfields sizeof (char *)));
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1576
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1577 if (fields)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1578 {
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	1579 fields[nfields-1] = mxArray::strsave (key);
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1580
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1581 mwSize nel = get_number_of_elements ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1582
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1583 mwSize ntot = nfields * nel;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1584
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	1585 mxArray new_data = static_cast<mxArray > (mxArray::malloc (ntot * sizeof (mxArray *)));
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1586
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1587 if (new_data)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1588 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1589 mwIndex j = 0;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1590 mwIndex k = 0;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1591 mwIndex n = 0;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1592
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1593 for (mwIndex i = 0; i < ntot; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1594 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1595 if (++n == nfields)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1596 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1597 new_data[j++] = 0;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1598 n = 0;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1599 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1600 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1601 new_data[j++] = data[k++];
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1602 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1603
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1604 mxFree (data);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1605
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1606 data = new_data;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1607
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1608 retval = nfields - 1;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1609 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1610 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1611 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1612
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1613 return retval;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1614 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1615
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1616 void remove_field (int key_num)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1617 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1618 if (key_num >= 0 && key_num < nfields)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1619 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1620 mwSize nel = get_number_of_elements ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1621
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1622 mwSize ntot = nfields * nel;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1623
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1624 int new_nfields = nfields - 1;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1625
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	1626 char new_fields = static_cast<char > (mxArray::malloc (new_nfields * sizeof (char *)));
93dff6435fe1 tag calls to mxArray::malloc, mxArray::calloc, and mxArray::strsave with class name John W. Eaton <jwe@octave.org> parents: 15353 diff changeset	1627
93dff6435fe1 tag calls to mxArray::malloc, mxArray::calloc, and mxArray::strsave with class name John W. Eaton <jwe@octave.org> parents: 15353 diff changeset	1628 mxArray new_data = static_cast<mxArray > (mxArray::malloc (new_nfields * nel * sizeof (mxArray *)));
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1629
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1630 for (int i = 0; i < key_num; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1631 new_fields[i] = fields[i];
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1632
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1633 for (int i = key_num + 1; i < nfields; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1634 new_fields[i-1] = fields[i];
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1635
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1636 if (new_nfields > 0)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1637 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1638 mwIndex j = 0;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1639 mwIndex k = 0;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1640 mwIndex n = 0;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1641
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1642 for (mwIndex i = 0; i < ntot; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1643 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1644 if (n == key_num)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1645 k++;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1646 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1647 new_data[j++] = data[k++];
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1648
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1649 if (++n == nfields)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1650 n = 0;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1651 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1652 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1653
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1654 nfields = new_nfields;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1655
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1656 mxFree (fields);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1657 mxFree (data);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1658
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1659 fields = new_fields;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1660 data = new_data;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1661 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1662 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1663
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1664 mxArray *get_field_by_number (mwIndex index, int key_num) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1665 {
6187 2a8922007c12 [project @ 2006-11-29 01:59:59 by jwe] jwe parents: 6071 diff changeset	1666 return key_num >= 0 && key_num < nfields
6188 160958073cde [project @ 2006-11-29 18:55:47 by jwe] jwe parents: 6187 diff changeset	1667 ? data[nfields * index + key_num] : 0;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1668 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1669
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1670 void set_field_by_number (mwIndex index, int key_num, mxArray *val);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1671
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1672 int get_number_of_fields (void) const { return nfields; }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1673
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1674 const char *get_field_name_by_number (int key_num) const
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1675 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1676 return key_num >= 0 && key_num < nfields ? fields[key_num] : 0;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1677 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1678
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1679 int get_field_number (const char *key) const
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1680 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1681 int retval = -1;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1682
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1683 for (int i = 0; i < nfields; i++)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1684 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1685 if (! strcmp (key, fields[i]))
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1686 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1687 retval = i;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1688 break;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1689 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1690 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1691
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1692 return retval;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1693 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1694
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1695 void *get_data (void) const { return data; }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1696
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1697 void set_data (void data_arg) { data = static_cast<mxArray *> (data_arg); }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1698
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1699 octave_value as_octave_value (void) const
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1700 {
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1701 dim_vector dv = dims_to_dim_vector ();
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1702
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1703 string_vector keys (fields, nfields);
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1704
11073 a22f3a673f33 mex.cc (mxArray_struct::as_octave_value): Use octave_map instead of Octave_map John W. Eaton <jwe@octave.org> parents: 10853 diff changeset	1705 octave_map m;
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1706
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1707 mwSize ntot = nfields * get_number_of_elements ();
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1708
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1709 for (int i = 0; i < nfields; i++)
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1710 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1711 Cell c (dv);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1712
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1713 octave_value *p = c.fortran_vec ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1714
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1715 mwIndex k = 0;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1716 for (mwIndex j = i; j < ntot; j += nfields)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1717 p[k++] = mxArray::as_octave_value (data[j]);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1718
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1719 m.assign (keys[i], c);
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1720 }
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1721
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1722 return m;
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1723 }
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1724
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1725 private:
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1726
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1727 int nfields;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1728
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1729 char **fields;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1730
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1731 mxArray **data;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1732
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1733 mxArray_struct (const mxArray_struct& val)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1734 : mxArray_matlab (val), nfields (val.nfields),
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	1735 fields (static_cast<char *> (mxArray::malloc (nfields sizeof (char *)))),
93dff6435fe1 tag calls to mxArray::malloc, mxArray::calloc, and mxArray::strsave with class name John W. Eaton <jwe@octave.org> parents: 15353 diff changeset	1736 data (static_cast<mxArray *> (mxArray::malloc (nfields get_number_of_elements () * sizeof (mxArray *))))
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1737 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1738 for (int i = 0; i < nfields; i++)
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	1739 fields[i] = mxArray::strsave (val.fields[i]);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1740
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1741 mwSize nel = get_number_of_elements ();
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1742
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1743 for (mwIndex i = 0; i < nel * nfields; i++)
6347 e40a46a100b6 [project @ 2007-02-23 00:28:58 by jwe] jwe parents: 6338 diff changeset	1744 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1745 mxArray *ptr = val.data[i];
11277 7d5351fc575a mex.cc: convert mxArray_octave_value to matlab style representation when duplicating John W. Eaton <jwe@octave.org> parents: 11276 diff changeset	1746 data[i] = ptr ? ptr->dup () : 0;
6347 e40a46a100b6 [project @ 2007-02-23 00:28:58 by jwe] jwe parents: 6338 diff changeset	1747 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1748 }
12122 f4689107dd8c Explicitly disallow copying in some classes. Pascal Dupuis <Pascal.Dupuis@uclouvain.be> parents: 11586 diff changeset	1749
f4689107dd8c Explicitly disallow copying in some classes. Pascal Dupuis <Pascal.Dupuis@uclouvain.be> parents: 11586 diff changeset	1750 // No assignment! FIXME -- should this be implemented? Note that we
f4689107dd8c Explicitly disallow copying in some classes. Pascal Dupuis <Pascal.Dupuis@uclouvain.be> parents: 11586 diff changeset	1751 // do have a copy constructor.
f4689107dd8c Explicitly disallow copying in some classes. Pascal Dupuis <Pascal.Dupuis@uclouvain.be> parents: 11586 diff changeset	1752
f4689107dd8c Explicitly disallow copying in some classes. Pascal Dupuis <Pascal.Dupuis@uclouvain.be> parents: 11586 diff changeset	1753 mxArray_struct& operator = (const mxArray_struct& val);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1754 };
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1755
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1756 // Matlab-style cell arrays.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1757
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1758 class mxArray_cell : public mxArray_matlab
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1759 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1760 public:
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1761
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1762 mxArray_cell (mwSize ndims_arg, const mwSize *dims_arg)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1763 : mxArray_matlab (mxCELL_CLASS, ndims_arg, dims_arg),
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	1764 data (static_cast<mxArray *> (mxArray::calloc (get_number_of_elements (), sizeof (mxArray )))) { }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1765
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1766 mxArray_cell (const dim_vector& dv)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1767 : mxArray_matlab (mxCELL_CLASS, dv),
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	1768 data (static_cast<mxArray *> (mxArray::calloc (get_number_of_elements (), sizeof (mxArray )))) { }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1769
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1770 mxArray_cell (mwSize m, mwSize n)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1771 : mxArray_matlab (mxCELL_CLASS, m, 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	1772 data (static_cast<mxArray *> (mxArray::calloc (get_number_of_elements (), sizeof (mxArray )))) { }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1773
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	1774 mxArray_base dup (void) const { return new mxArray_cell (this); }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1775
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1776 ~mxArray_cell (void)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1777 {
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1778 mwSize nel = get_number_of_elements ();
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1779
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1780 for (mwIndex i = 0; i < nel; i++)
5905 e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	1781 delete data[i];
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1782
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1783 mxFree (data);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1784 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1785
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1786 mxArray *get_cell (mwIndex idx) const
6187 2a8922007c12 [project @ 2006-11-29 01:59:59 by jwe] jwe parents: 6071 diff changeset	1787 {
2a8922007c12 [project @ 2006-11-29 01:59:59 by jwe] jwe parents: 6071 diff changeset	1788 return idx >= 0 && idx < get_number_of_elements () ? data[idx] : 0;
2a8922007c12 [project @ 2006-11-29 01:59:59 by jwe] jwe parents: 6071 diff changeset	1789 }
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1790
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1791 void set_cell (mwIndex idx, mxArray *val);
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1792
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1793 void *get_data (void) const { return data; }
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1794
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1795 void set_data (void data_arg) { data = static_cast<mxArray *> (data_arg); }
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1796
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1797 octave_value as_octave_value (void) const
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1798 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1799 dim_vector dv = dims_to_dim_vector ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1800
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1801 Cell c (dv);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1802
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1803 mwSize nel = get_number_of_elements ();
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1804
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1805 octave_value *p = c.fortran_vec ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1806
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1807 for (mwIndex i = 0; i < nel; i++)
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1808 p[i] = mxArray::as_octave_value (data[i]);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1809
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1810 return c;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1811 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1812
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1813 private:
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1814
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1815 mxArray **data;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1816
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1817 mxArray_cell (const mxArray_cell& val)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1818 : mxArray_matlab (val),
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	1819 data (static_cast<mxArray *> (mxArray::malloc (get_number_of_elements () sizeof (mxArray *))))
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1820 {
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1821 mwSize nel = get_number_of_elements ();
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1822
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1823 for (mwIndex i = 0; i < nel; i++)
6347 e40a46a100b6 [project @ 2007-02-23 00:28:58 by jwe] jwe parents: 6338 diff changeset	1824 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1825 mxArray *ptr = val.data[i];
11277 7d5351fc575a mex.cc: convert mxArray_octave_value to matlab style representation when duplicating John W. Eaton <jwe@octave.org> parents: 11276 diff changeset	1826 data[i] = ptr ? ptr->dup () : 0;
6347 e40a46a100b6 [project @ 2007-02-23 00:28:58 by jwe] jwe parents: 6338 diff changeset	1827 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1828 }
12122 f4689107dd8c Explicitly disallow copying in some classes. Pascal Dupuis <Pascal.Dupuis@uclouvain.be> parents: 11586 diff changeset	1829
f4689107dd8c Explicitly disallow copying in some classes. Pascal Dupuis <Pascal.Dupuis@uclouvain.be> parents: 11586 diff changeset	1830 // No assignment! FIXME -- should this be implemented? Note that we
f4689107dd8c Explicitly disallow copying in some classes. Pascal Dupuis <Pascal.Dupuis@uclouvain.be> parents: 11586 diff changeset	1831 // do have a copy constructor.
f4689107dd8c Explicitly disallow copying in some classes. Pascal Dupuis <Pascal.Dupuis@uclouvain.be> parents: 11586 diff changeset	1832
f4689107dd8c Explicitly disallow copying in some classes. Pascal Dupuis <Pascal.Dupuis@uclouvain.be> parents: 11586 diff changeset	1833 mxArray_cell& operator = (const mxArray_cell&);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1834 };
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1835
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1836 // ------------------------------------------------------------------
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1837
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1838 mxArray::mxArray (const octave_value& ov)
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	1839 : rep (new mxArray_octave_value (ov)), name (0) { }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1840
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1841 mxArray::mxArray (mxClassID id, mwSize ndims, const mwSize *dims, mxComplexity flag)
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	1842 : rep (new mxArray_number (id, ndims, dims, flag)), name (0) { }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1843
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1844 mxArray::mxArray (mxClassID id, const dim_vector& dv, mxComplexity flag)
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	1845 : rep (new mxArray_number (id, dv, flag)), name (0) { }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1846
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1847 mxArray::mxArray (mxClassID id, mwSize m, mwSize n, mxComplexity flag)
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	1848 : rep (new mxArray_number (id, m, n, flag)), name (0) { }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1849
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1850 mxArray::mxArray (mxClassID id, double val)
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	1851 : rep (new mxArray_number (id, val)), name (0) { }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1852
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1853 mxArray::mxArray (mxClassID id, mxLogical val)
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	1854 : rep (new mxArray_number (id, val)), name (0) { }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1855
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1856 mxArray::mxArray (const char *str)
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	1857 : rep (new mxArray_number (str)), name (0) { }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1858
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1859 mxArray::mxArray (mwSize m, const char **str)
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	1860 : rep (new mxArray_number (m, str)), name (0) { }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1861
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1862 mxArray::mxArray (mxClassID id, mwSize m, mwSize n, mwSize nzmax, mxComplexity flag)
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	1863 : rep (new mxArray_sparse (id, m, n, nzmax, flag)), name (0) { }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1864
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1865 mxArray::mxArray (mwSize ndims, const mwSize dims, int num_keys, const char *keys)
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	1866 : rep (new mxArray_struct (ndims, dims, num_keys, keys)), name (0) { }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1867
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1868 mxArray::mxArray (const dim_vector& dv, int num_keys, const char **keys)
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	1869 : rep (new mxArray_struct (dv, num_keys, keys)), name (0) { }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1870
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1871 mxArray::mxArray (mwSize m, mwSize n, int num_keys, const char **keys)
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	1872 : rep (new mxArray_struct (m, n, num_keys, keys)), name (0) { }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1873
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1874 mxArray::mxArray (mwSize ndims, const mwSize *dims)
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	1875 : rep (new mxArray_cell (ndims, dims)), name (0) { }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1876
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1877 mxArray::mxArray (const dim_vector& dv)
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	1878 : rep (new mxArray_cell (dv)), name (0) { }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1879
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1880 mxArray::mxArray (mwSize m, mwSize n)
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	1881 : rep (new mxArray_cell (m, n)), name (0) { }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1882
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1883 mxArray::~mxArray (void)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1884 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1885 mxFree (name);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1886
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1887 delete rep;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1888 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1889
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1890 void
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1891 mxArray::set_name (const char *name_arg)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1892 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1893 mxFree (name);
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	1894 name = mxArray::strsave (name_arg);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1895 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1896
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1897 octave_value
15353 5f3a69a309a7 fix decl of mexPutVariable John W. Eaton <jwe@octave.org> parents: 15351 diff changeset	1898 mxArray::as_octave_value (const mxArray *ptr)
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1899 {
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1900 return ptr ? ptr->as_octave_value () : octave_value (Matrix ());
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1901 }
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1902
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1903 octave_value
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1904 mxArray::as_octave_value (void) const
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1905 {
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1906 return rep->as_octave_value ();
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1907 }
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1908
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1909 void
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1910 mxArray::maybe_mutate (void) const
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1911 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1912 if (rep->is_octave_value ())
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1913 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1914 // The mutate function returns a pointer to a complete new
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1915 // mxArray object (or 0, if no mutation happened). We just want
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1916 // to replace the existing rep with the rep from the new object.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1917
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1918 mxArray *new_val = rep->mutate ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1919
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1920 if (new_val)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1921 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1922 delete rep;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1923 rep = new_val->rep;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1924 new_val->rep = 0;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1925 delete new_val;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1926 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1927 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1928 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1929
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1930 // ------------------------------------------------------------------
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1931
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1932 // A class to manage calls to MEX functions. Mostly deals with memory
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1933 // management.
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	1934
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	1935 class mex
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	1936 {
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	1937 public:
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	1938
6068 c9f0839c583f [project @ 2006-10-20 16:54:30 by jwe] jwe parents: 6065 diff changeset	1939 mex (octave_mex_function *f)
c9f0839c583f [project @ 2006-10-20 16:54:30 by jwe] jwe parents: 6065 diff changeset	1940 : curr_mex_fcn (f), memlist (), arraylist (), fname (0) { }
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	1941
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	1942 ~mex (void)
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	1943 {
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	1944 if (! memlist.empty ())
5905 e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	1945 error ("mex: %s: cleanup failed", function_name ());
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1946
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1947 mxFree (fname);
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	1948 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	1949
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1950 const char *function_name (void) const
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1951 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1952 if (! fname)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1953 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1954 octave_function *fcn = octave_call_stack::current ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1955
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1956 if (fcn)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1957 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1958 std::string nm = fcn->name ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1959 fname = mxArray::strsave (nm.c_str ());
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1960 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1961 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1962 fname = mxArray::strsave ("unknown");
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1963 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1964
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1965 return fname;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1966 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1967
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1968 // Free all unmarked pointers obtained from malloc and calloc.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1969 static void cleanup (void *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1970 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1971 mex context = static_cast<mex > (ptr);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1972
5905 e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	1973 // We can't use mex::free here because it modifies memlist.
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1974 for (std::set<void *>::iterator p = context->memlist.begin ();
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1975 p != context->memlist.end (); p++)
6601 1c4545125165 [project @ 2007-04-30 16:31:47 by jwe] jwe parents: 6595 diff changeset	1976 xfree (*p);
5905 e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	1977
e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	1978 context->memlist.clear ();
e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	1979
e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	1980 // We can't use mex::free_value here because it modifies arraylist.
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1981 for (std::set<mxArray *>::iterator p = context->arraylist.begin ();
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1982 p != context->arraylist.end (); p++)
5905 e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	1983 delete *p;
e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	1984
e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	1985 context->arraylist.clear ();
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1986 }
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	1987
6071 950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	1988 // Allocate memory.
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1989 void *malloc_unmarked (size_t n)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1990 {
10411 479cc8a0a846 use gnulib namespace John W. Eaton <jwe@octave.org> parents: 10315 diff changeset	1991 void *ptr = gnulib::malloc (n);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1992
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1993 if (! ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1994 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1995 // FIXME -- could use "octave_new_handler();" instead
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1996
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1997 error ("%s: failed to allocate %d bytes of memory",
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1998 function_name (), n);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1999
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2000 abort ();
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2001 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2002
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2003 global_mark (ptr);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2004
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2005 return ptr;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2006 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2007
6071 950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2008 // Allocate memory to be freed on exit.
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2009 void *malloc (size_t n)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2010 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2011 void *ptr = malloc_unmarked (n);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2012
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2013 mark (ptr);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2014
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2015 return ptr;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2016 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2017
6071 950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2018 // Allocate memory and initialize to 0.
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2019 void *calloc_unmarked (size_t n, size_t t)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2020 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2021 void ptr = malloc_unmarked (nt);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2022
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2023 memset (ptr, 0, n*t);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2024
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2025 return ptr;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2026 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2027
6071 950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2028 // Allocate memory to be freed on exit and initialize to 0.
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2029 void *calloc (size_t n, size_t t)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2030 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2031 void *ptr = calloc_unmarked (n, t);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2032
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2033 mark (ptr);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2034
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2035 return ptr;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2036 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2037
10225 477d05b0a739 mxRealloc: Allocate new memory on NULL argument David Grundberg <davidg@cs.umu.se> parents: 10127 diff changeset	2038 // Reallocate a pointer obtained from malloc or calloc. If the
477d05b0a739 mxRealloc: Allocate new memory on NULL argument David Grundberg <davidg@cs.umu.se> parents: 10127 diff changeset	2039 // pointer is NULL, allocate using malloc. We don't need an
477d05b0a739 mxRealloc: Allocate new memory on NULL argument David Grundberg <davidg@cs.umu.se> parents: 10127 diff changeset	2040 // "unmarked" version of this.
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2041 void realloc (void ptr, size_t n)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2042 {
10225 477d05b0a739 mxRealloc: Allocate new memory on NULL argument David Grundberg <davidg@cs.umu.se> parents: 10127 diff changeset	2043 void *v;
477d05b0a739 mxRealloc: Allocate new memory on NULL argument David Grundberg <davidg@cs.umu.se> parents: 10127 diff changeset	2044
477d05b0a739 mxRealloc: Allocate new memory on NULL argument David Grundberg <davidg@cs.umu.se> parents: 10127 diff changeset	2045 if (ptr)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2046 {
10411 479cc8a0a846 use gnulib namespace John W. Eaton <jwe@octave.org> parents: 10315 diff changeset	2047 v = gnulib::realloc (ptr, n);
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	2048
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2049 std::set<void *>::iterator p = memlist.find (ptr);
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	2050
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2051 if (v && p != memlist.end ())
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2052 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2053 memlist.erase (p);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2054 memlist.insert (v);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2055 }
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	2056
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2057 p = global_memlist.find (ptr);
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	2058
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2059 if (v && p != global_memlist.end ())
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2060 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2061 global_memlist.erase (p);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2062 global_memlist.insert (v);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2063 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2064 }
10225 477d05b0a739 mxRealloc: Allocate new memory on NULL argument David Grundberg <davidg@cs.umu.se> parents: 10127 diff changeset	2065 else
477d05b0a739 mxRealloc: Allocate new memory on NULL argument David Grundberg <davidg@cs.umu.se> parents: 10127 diff changeset	2066 v = malloc (n);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2067
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2068 return v;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2069 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2070
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2071 // Free a pointer obtained from malloc or calloc.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2072 void free (void *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2073 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2074 if (ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2075 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2076 unmark (ptr);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2077
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2078 std::set<void *>::iterator p = global_memlist.find (ptr);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2079
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2080 if (p != global_memlist.end ())
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2081 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2082 global_memlist.erase (p);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2083
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2084 xfree (ptr);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2085 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2086 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2087 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2088 p = foreign_memlist.find (ptr);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2089
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2090 if (p != foreign_memlist.end ())
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2091 foreign_memlist.erase (p);
11276 475e90eb4ff1 mex::free: don't warn about skipping memory not allocated by mx{M,C,Re}alloc John W. Eaton <jwe@octave.org> parents: 11132 diff changeset	2092 #ifdef DEBUG
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2093 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2094 warning ("mxFree: skipping memory not allocated by mxMalloc, mxCalloc, or mxRealloc");
11276 475e90eb4ff1 mex::free: don't warn about skipping memory not allocated by mx{M,C,Re}alloc John W. Eaton <jwe@octave.org> parents: 11132 diff changeset	2095 #endif
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2096 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2097 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2098 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2099
7172 e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2100 // Mark a pointer to be freed on exit.
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2101 void mark (void *ptr)
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2102 {
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2103 #ifdef DEBUG
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2104 if (memlist.find (ptr) != memlist.end ())
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2105 warning ("%s: double registration ignored", function_name ());
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2106 #endif
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2107
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2108 memlist.insert (ptr);
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2109 }
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2110
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2111 // Unmark a pointer to be freed on exit, either because it was
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2112 // made persistent, or because it was already freed.
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2113 void unmark (void *ptr)
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2114 {
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2115 std::set<void *>::iterator p = memlist.find (ptr);
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2116
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2117 if (p != memlist.end ())
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2118 memlist.erase (p);
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2119 #ifdef DEBUG
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2120 else
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2121 warning ("%s: value not marked", function_name ());
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2122 #endif
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2123 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2124
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2125 mxArray mark_array (mxArray ptr)
814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2126 {
814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2127 arraylist.insert (ptr);
814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2128 return ptr;
814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2129 }
814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2130
6071 950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2131 void unmark_array (mxArray *ptr)
950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2132 {
950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2133 std::set<mxArray *>::iterator p = arraylist.find (ptr);
950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2134
950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2135 if (p != arraylist.end ())
950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2136 arraylist.erase (p);
950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2137 }
950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2138
7179 32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2139 // Mark a pointer as one we allocated.
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2140 void mark_foreign (void *ptr)
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2141 {
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2142 #ifdef DEBUG
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2143 if (foreign_memlist.find (ptr) != foreign_memlist.end ())
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2144 warning ("%s: double registration ignored", function_name ());
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2145 #endif
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2146
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2147 foreign_memlist.insert (ptr);
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2148 }
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2149
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2150 // Unmark a pointer as one we allocated.
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2151 void unmark_foreign (void *ptr)
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2152 {
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2153 std::set<void *>::iterator p = foreign_memlist.find (ptr);
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2154
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2155 if (p != foreign_memlist.end ())
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2156 foreign_memlist.erase (p);
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2157 #ifdef DEBUG
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2158 else
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2159 warning ("%s: value not marked", function_name ());
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2160 #endif
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2161
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2162 }
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2163
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2164 // Make a new array value and initialize from an octave value; it will be
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2165 // freed on exit unless marked as persistent.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2166 mxArray *make_value (const octave_value& ov)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2167 {
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2168 return mark_array (new mxArray (ov));
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2169 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2170
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2171 // Free an array and its contents.
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2172 bool free_value (mxArray *ptr)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2173 {
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2174 bool inlist = false;
814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2175
5905 e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	2176 std::set<mxArray *>::iterator p = arraylist.find (ptr);
e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	2177
e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	2178 if (p != arraylist.end ())
e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	2179 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2180 inlist = true;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2181 arraylist.erase (p);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2182 delete ptr;
5905 e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	2183 }
e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	2184 #ifdef DEBUG
e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	2185 else
e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	2186 warning ("mex::free_value: skipping memory not allocated by mex::make_value");
e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	2187 #endif
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2188
814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2189 return inlist;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2190 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2191
6068 c9f0839c583f [project @ 2006-10-20 16:54:30 by jwe] jwe parents: 6065 diff changeset	2192 octave_mex_function *current_mex_function (void) const
c9f0839c583f [project @ 2006-10-20 16:54:30 by jwe] jwe parents: 6065 diff changeset	2193 {
c9f0839c583f [project @ 2006-10-20 16:54:30 by jwe] jwe parents: 6065 diff changeset	2194 return curr_mex_fcn;
c9f0839c583f [project @ 2006-10-20 16:54:30 by jwe] jwe parents: 6065 diff changeset	2195 }
c9f0839c583f [project @ 2006-10-20 16:54:30 by jwe] jwe parents: 6065 diff changeset	2196
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2197 // 1 if error should be returned to MEX file, 0 if abort.
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2198 int trap_feval_error;
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2199
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2200 // longjmp return point if mexErrMsgTxt or error.
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2201 jmp_buf jump;
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2202
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2203 // Trigger a long jump back to the mex calling function.
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2204 void abort (void) { longjmp (jump, 1); }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2205
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2206 private:
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2207
6068 c9f0839c583f [project @ 2006-10-20 16:54:30 by jwe] jwe parents: 6065 diff changeset	2208 // Pointer to the mex function that corresponds to this mex context.
c9f0839c583f [project @ 2006-10-20 16:54:30 by jwe] jwe parents: 6065 diff changeset	2209 octave_mex_function *curr_mex_fcn;
c9f0839c583f [project @ 2006-10-20 16:54:30 by jwe] jwe parents: 6065 diff changeset	2210
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2211 // List of memory resources that need to be freed upon exit.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2212 std::set<void *> memlist;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2213
7179 32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2214 // List of mxArray objects that need to be freed upon exit.
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2215 std::set<mxArray *> arraylist;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2216
7179 32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2217 // List of memory resources we know about, but that were allocated
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2218 // elsewhere.
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2219 std::set<void *> foreign_memlist;
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2220
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2221 // The name of the currently executing function.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2222 mutable char *fname;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2223
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2224 // List of memory resources we allocated.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2225 static std::set<void *> global_memlist;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2226
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2227 // Mark a pointer as one we allocated.
5905 e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	2228 void global_mark (void *ptr)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2229 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2230 #ifdef DEBUG
5905 e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	2231 if (global_memlist.find (ptr) != global_memlist.end ())
e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	2232 warning ("%s: double registration ignored", function_name ());
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2233 #endif
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2234
5905 e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	2235 global_memlist.insert (ptr);
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2236 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2237
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2238 // Unmark a pointer as one we allocated.
5905 e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	2239 void global_unmark (void *ptr)
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2240 {
5905 e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	2241 std::set<void *>::iterator p = global_memlist.find (ptr);
e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	2242
e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	2243 if (p != global_memlist.end ())
e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	2244 global_memlist.erase (p);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2245 #ifdef DEBUG
5905 e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	2246 else
e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	2247 warning ("%s: value not marked", function_name ());
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2248 #endif
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2249
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2250 }
12122 f4689107dd8c Explicitly disallow copying in some classes. Pascal Dupuis <Pascal.Dupuis@uclouvain.be> parents: 11586 diff changeset	2251
f4689107dd8c Explicitly disallow copying in some classes. Pascal Dupuis <Pascal.Dupuis@uclouvain.be> parents: 11586 diff changeset	2252 // No copying!
f4689107dd8c Explicitly disallow copying in some classes. Pascal Dupuis <Pascal.Dupuis@uclouvain.be> parents: 11586 diff changeset	2253
f4689107dd8c Explicitly disallow copying in some classes. Pascal Dupuis <Pascal.Dupuis@uclouvain.be> parents: 11586 diff changeset	2254 mex (const mex&);
f4689107dd8c Explicitly disallow copying in some classes. Pascal Dupuis <Pascal.Dupuis@uclouvain.be> parents: 11586 diff changeset	2255
f4689107dd8c Explicitly disallow copying in some classes. Pascal Dupuis <Pascal.Dupuis@uclouvain.be> parents: 11586 diff changeset	2256 mex& operator = (const mex&);
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2257 };
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2258
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2259 // List of memory resources we allocated.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2260 std::set<void *> mex::global_memlist;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2261
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2262 // Current context.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2263 mex *mex_context = 0;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2264
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2265 void *
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2266 mxArray::malloc (size_t n)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2267 {
10411 479cc8a0a846 use gnulib namespace John W. Eaton <jwe@octave.org> parents: 10315 diff changeset	2268 return mex_context ? mex_context->malloc_unmarked (n) : gnulib::malloc (n);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2269 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2270
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2271 void *
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2272 mxArray::calloc (size_t n, size_t t)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2273 {
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2274 return mex_context ? mex_context->calloc_unmarked (n, t) : ::calloc (n, t);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2275 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2276
7179 32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2277 static inline void *
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2278 maybe_mark_foreign (void *ptr)
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2279 {
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2280 if (mex_context)
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2281 mex_context->mark_foreign (ptr);
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2282
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2283 return ptr;
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2284 }
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2285
6071 950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2286 static inline mxArray *
950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2287 maybe_unmark_array (mxArray *ptr)
950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2288 {
950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2289 if (mex_context)
950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2290 mex_context->unmark_array (ptr);
950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2291
950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2292 return ptr;
950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2293 }
950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2294
7172 e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2295 static inline void *
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2296 maybe_unmark (void *ptr)
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2297 {
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2298 if (mex_context)
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2299 mex_context->unmark (ptr);
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2300
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2301 return ptr;
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2302 }
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2303
6071 950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2304 void
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2305 mxArray_struct::set_field_by_number (mwIndex index, int key_num, mxArray *val)
6071 950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2306 {
6187 2a8922007c12 [project @ 2006-11-29 01:59:59 by jwe] jwe parents: 6071 diff changeset	2307 if (key_num >= 0 && key_num < nfields)
2a8922007c12 [project @ 2006-11-29 01:59:59 by jwe] jwe parents: 6071 diff changeset	2308 data[nfields * index + key_num] = maybe_unmark_array (val);
6071 950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2309 }
950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2310
950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2311 void
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2312 mxArray_cell::set_cell (mwIndex idx, mxArray *val)
6071 950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2313 {
6187 2a8922007c12 [project @ 2006-11-29 01:59:59 by jwe] jwe parents: 6071 diff changeset	2314 if (idx >= 0 && idx < get_number_of_elements ())
2a8922007c12 [project @ 2006-11-29 01:59:59 by jwe] jwe parents: 6071 diff changeset	2315 data[idx] = maybe_unmark_array (val);
6071 950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2316 }
950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2317
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2318 // ------------------------------------------------------------------
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2319
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2320 // C interface to mxArray objects:
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2321
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2322 // Floating point predicates.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2323
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2324 int
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2325 mxIsFinite (const double v)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2326 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2327 return lo_ieee_finite (v) != 0;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2328 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2329
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2330 int
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2331 mxIsInf (const double v)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2332 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2333 return lo_ieee_isinf (v) != 0;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2334 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2335
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2336 int
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2337 mxIsNaN (const double v)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2338 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2339 return lo_ieee_isnan (v) != 0;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2340 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2341
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2342 double
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2343 mxGetEps (void)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2344 {
15220 61822c866ba1 use std::numeric_limits<T>::epsilon in C++ code John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	2345 return std::numeric_limits<double>::epsilon ();
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2346 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2347
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2348 double
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2349 mxGetInf (void)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2350 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2351 return lo_ieee_inf_value ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2352 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2353
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2354 double
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2355 mxGetNaN (void)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2356 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2357 return lo_ieee_nan_value ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2358 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2359
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2360 // Memory management.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2361 void *
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2362 mxCalloc (size_t n, size_t size)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2363 {
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	2364 return mex_context ? mex_context->calloc (n, size) : ::calloc (n, size);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2365 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2366
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2367 void *
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2368 mxMalloc (size_t n)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2369 {
10411 479cc8a0a846 use gnulib namespace John W. Eaton <jwe@octave.org> parents: 10315 diff changeset	2370 return mex_context ? mex_context->malloc (n) : gnulib::malloc (n);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2371 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2372
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2373 void *
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2374 mxRealloc (void *ptr, size_t size)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2375 {
10411 479cc8a0a846 use gnulib namespace John W. Eaton <jwe@octave.org> parents: 10315 diff changeset	2376 return mex_context ? mex_context->realloc (ptr, size) : gnulib::realloc (ptr, size);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2377 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2378
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2379 void
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2380 mxFree (void *ptr)
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2381 {
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2382 if (mex_context)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2383 mex_context->free (ptr);
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2384 else
6071 950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2385 xfree (ptr);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2386 }
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2387
814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2388 static inline mxArray *
814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2389 maybe_mark_array (mxArray *ptr)
814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2390 {
814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2391 return mex_context ? mex_context->mark_array (ptr) : ptr;
814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2392 }
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	2393
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2394 // Constructors.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2395 mxArray *
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2396 mxCreateCellArray (mwSize ndims, const mwSize *dims)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2397 {
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2398 return maybe_mark_array (new mxArray (ndims, dims));
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2399 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2400
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2401 mxArray *
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2402 mxCreateCellMatrix (mwSize m, mwSize n)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2403 {
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2404 return maybe_mark_array (new mxArray (m, n));
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2405 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2406
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2407 mxArray *
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2408 mxCreateCharArray (mwSize ndims, const mwSize *dims)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2409 {
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2410 return maybe_mark_array (new mxArray (mxCHAR_CLASS, ndims, dims));
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2411 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2412
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2413 mxArray *
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2414 mxCreateCharMatrixFromStrings (mwSize m, const char **str)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2415 {
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2416 return maybe_mark_array (new mxArray (m, str));
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2417 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2418
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2419 mxArray *
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2420 mxCreateDoubleMatrix (mwSize m, mwSize n, mxComplexity flag)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2421 {
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2422 return maybe_mark_array (new mxArray (mxDOUBLE_CLASS, m, n, flag));
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2423 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2424
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2425 mxArray *
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2426 mxCreateDoubleScalar (double val)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2427 {
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2428 return maybe_mark_array (new mxArray (mxDOUBLE_CLASS, val));
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2429 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2430
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2431 mxArray *
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2432 mxCreateLogicalArray (mwSize ndims, const mwSize *dims)
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2433 {
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2434 return maybe_mark_array (new mxArray (mxLOGICAL_CLASS, ndims, dims));
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2435 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2436
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2437 mxArray *
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2438 mxCreateLogicalMatrix (mwSize m, mwSize n)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2439 {
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2440 return maybe_mark_array (new mxArray (mxLOGICAL_CLASS, m, n));
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2441 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2442
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2443 mxArray *
7577 ba8fcc115fee mex.cc: arg to mxCreateLogicalScalar is now mxLogical John W. Eaton <jwe@octave.org> parents: 7357 diff changeset	2444 mxCreateLogicalScalar (mxLogical val)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2445 {
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2446 return maybe_mark_array (new mxArray (mxLOGICAL_CLASS, val));
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2447 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2448
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2449 mxArray *
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2450 mxCreateNumericArray (mwSize ndims, const mwSize *dims, mxClassID class_id,
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2451 mxComplexity flag)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2452 {
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2453 return maybe_mark_array (new mxArray (class_id, ndims, dims, flag));
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2454 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2455
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2456 mxArray *
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2457 mxCreateNumericMatrix (mwSize m, mwSize n, mxClassID class_id, mxComplexity flag)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2458 {
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2459 return maybe_mark_array (new mxArray (class_id, m, n, flag));
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2460 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2461
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2462 mxArray *
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2463 mxCreateSparse (mwSize m, mwSize n, mwSize nzmax, mxComplexity flag)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2464 {
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2465 return maybe_mark_array (new mxArray (mxDOUBLE_CLASS, m, n, nzmax, flag));
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2466 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2467
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2468 mxArray *
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2469 mxCreateSparseLogicalMatrix (mwSize m, mwSize n, mwSize nzmax)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2470 {
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2471 return maybe_mark_array (new mxArray (mxLOGICAL_CLASS, m, n, nzmax));
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2472 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2473
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2474 mxArray *
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2475 mxCreateString (const char *str)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2476 {
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2477 return maybe_mark_array (new mxArray (str));
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2478 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2479
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2480 mxArray *
6787 963a19576024 [project @ 2007-07-23 19:23:39 by jwe] jwe parents: 6686 diff changeset	2481 mxCreateStructArray (mwSize ndims, const mwSize dims, int num_keys, const char *keys)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2482 {
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2483 return maybe_mark_array (new mxArray (ndims, dims, num_keys, keys));
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2484 }
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2485
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2486 mxArray *
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2487 mxCreateStructMatrix (mwSize m, mwSize n, int num_keys, const char **keys)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2488 {
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2489 return maybe_mark_array (new mxArray (m, n, num_keys, keys));
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2490 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2491
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2492 // Copy constructor.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2493 mxArray *
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2494 mxDuplicateArray (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2495 {
11277 7d5351fc575a mex.cc: convert mxArray_octave_value to matlab style representation when duplicating John W. Eaton <jwe@octave.org> parents: 11276 diff changeset	2496 return maybe_mark_array (ptr->dup ());
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2497 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2498
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2499 // Destructor.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2500 void
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2501 mxDestroyArray (mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2502 {
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2503 if (! (mex_context && mex_context->free_value (ptr)))
814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2504 delete ptr;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2505 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2506
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2507 // Type Predicates.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2508 int
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2509 mxIsCell (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2510 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2511 return ptr->is_cell ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2512 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2513
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2514 int
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2515 mxIsChar (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2516 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2517 return ptr->is_char ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2518 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2519
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2520 int
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2521 mxIsClass (const mxArray ptr, const char name)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2522 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2523 return ptr->is_class (name);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2524 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2525
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2526 int
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2527 mxIsComplex (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2528 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2529 return ptr->is_complex ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2530 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2531
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2532 int
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2533 mxIsDouble (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2534 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2535 return ptr->is_double ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2536 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2537
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2538 int
11100 cdf940db26a0 provide mxIsFunctionHandle MEX interface function John W. Eaton <jwe@octave.org> parents: 11073 diff changeset	2539 mxIsFunctionHandle (const mxArray *ptr)
cdf940db26a0 provide mxIsFunctionHandle MEX interface function John W. Eaton <jwe@octave.org> parents: 11073 diff changeset	2540 {
cdf940db26a0 provide mxIsFunctionHandle MEX interface function John W. Eaton <jwe@octave.org> parents: 11073 diff changeset	2541 return ptr->is_function_handle ();
cdf940db26a0 provide mxIsFunctionHandle MEX interface function John W. Eaton <jwe@octave.org> parents: 11073 diff changeset	2542 }
cdf940db26a0 provide mxIsFunctionHandle MEX interface function John W. Eaton <jwe@octave.org> parents: 11073 diff changeset	2543
cdf940db26a0 provide mxIsFunctionHandle MEX interface function John W. Eaton <jwe@octave.org> parents: 11073 diff changeset	2544 int
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2545 mxIsInt16 (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2546 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2547 return ptr->is_int16 ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2548 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2549
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2550 int
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2551 mxIsInt32 (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2552 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2553 return ptr->is_int32 ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2554 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2555
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2556 int
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2557 mxIsInt64 (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2558 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2559 return ptr->is_int64 ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2560 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2561
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2562 int
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2563 mxIsInt8 (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2564 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2565 return ptr->is_int8 ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2566 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2567
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2568 int
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2569 mxIsLogical (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2570 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2571 return ptr->is_logical ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2572 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2573
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2574 int
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2575 mxIsNumeric (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2576 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2577 return ptr->is_numeric ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2578 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2579
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2580 int
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2581 mxIsSingle (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2582 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2583 return ptr->is_single ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2584 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2585
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2586 int
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2587 mxIsSparse (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2588 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2589 return ptr->is_sparse ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2590 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2591
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2592 int
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2593 mxIsStruct (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2594 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2595 return ptr->is_struct ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2596 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2597
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2598 int
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2599 mxIsUint16 (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2600 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2601 return ptr->is_uint16 ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2602 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2603
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2604 int
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2605 mxIsUint32 (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2606 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2607 return ptr->is_uint32 ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2608 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2609
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2610 int
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2611 mxIsUint64 (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2612 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2613 return ptr->is_uint64 ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2614 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2615
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2616 int
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2617 mxIsUint8 (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2618 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2619 return ptr->is_uint8 ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2620 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2621
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2622 // Odd type+size predicate.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2623 int
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2624 mxIsLogicalScalar (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2625 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2626 return ptr->is_logical_scalar ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2627 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2628
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2629 // Odd type+size+value predicate.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2630 int
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2631 mxIsLogicalScalarTrue (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2632 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2633 return ptr->is_logical_scalar_true ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2634 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2635
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2636 // Size predicate.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2637 int
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2638 mxIsEmpty (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2639 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2640 return ptr->is_empty ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2641 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2642
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2643 // Just plain odd thing to ask of a value.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2644 int
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2645 mxIsFromGlobalWS (const mxArray /ptr*/)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2646 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2647 // FIXME
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2648 abort ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2649 return 0;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2650 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2651
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2652 // Dimension extractors.
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2653 size_t
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2654 mxGetM (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2655 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2656 return ptr->get_m ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2657 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2658
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2659 size_t
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2660 mxGetN (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2661 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2662 return ptr->get_n ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2663 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2664
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2665 mwSize *
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2666 mxGetDimensions (const mxArray *ptr)
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2667 {
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2668 return ptr->get_dimensions ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2669 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2670
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2671 mwSize
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2672 mxGetNumberOfDimensions (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2673 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2674 return ptr->get_number_of_dimensions ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2675 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2676
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2677 size_t
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2678 mxGetNumberOfElements (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2679 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2680 return ptr->get_number_of_elements ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2681 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2682
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2683 // Dimension setters.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2684 void
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2685 mxSetM (mxArray *ptr, mwSize m)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2686 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2687 ptr->set_m (m);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2688 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2689
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2690 void
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2691 mxSetN (mxArray *ptr, mwSize n)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2692 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2693 ptr->set_n (n);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2694 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2695
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2696 void
10126 8687ce1c56da Change signature of mxSetDimensions. David Grundberg <davidg@cs.umu.se> parents: 10066 diff changeset	2697 mxSetDimensions (mxArray ptr, const mwSize dims, mwSize ndims)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2698 {
10126 8687ce1c56da Change signature of mxSetDimensions. David Grundberg <davidg@cs.umu.se> parents: 10066 diff changeset	2699 ptr->set_dimensions (static_cast<mwSize *> (
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2700 maybe_unmark (const_cast<mwSize *> (dims))),
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2701 ndims);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2702 }
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	2703
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2704 // Data extractors.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2705 double *
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2706 mxGetPr (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2707 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2708 return static_cast<double *> (ptr->get_data ());
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2709 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2710
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2711 double *
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2712 mxGetPi (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2713 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2714 return static_cast<double *> (ptr->get_imag_data ());
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2715 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2716
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2717 double
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2718 mxGetScalar (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2719 {
6332 debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	2720 return ptr->get_scalar ();
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2721 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2722
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2723 mxChar *
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2724 mxGetChars (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2725 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2726 return static_cast<mxChar *> (ptr->get_data ());
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2727 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2728
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2729 mxLogical *
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2730 mxGetLogicals (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2731 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2732 return static_cast<mxLogical *> (ptr->get_data ());
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2733 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2734
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2735 void *
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2736 mxGetData (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2737 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2738 return ptr->get_data ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2739 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2740
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2741 void *
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2742 mxGetImagData (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2743 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2744 return ptr->get_imag_data ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2745 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2746
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2747 // Data setters.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2748 void
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2749 mxSetPr (mxArray ptr, double pr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2750 {
7172 e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2751 ptr->set_data (maybe_unmark (pr));
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2752 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2753
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2754 void
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2755 mxSetPi (mxArray ptr, double pi)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2756 {
7172 e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2757 ptr->set_imag_data (maybe_unmark (pi));
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2758 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2759
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2760 void
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2761 mxSetData (mxArray ptr, void pr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2762 {
7172 e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2763 ptr->set_data (maybe_unmark (pr));
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2764 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2765
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2766 void
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2767 mxSetImagData (mxArray ptr, void pi)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2768 {
7172 e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2769 ptr->set_imag_data (maybe_unmark (pi));
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2770 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2771
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2772 // Classes.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2773 mxClassID
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2774 mxGetClassID (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2775 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2776 return ptr->get_class_id ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2777 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2778
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2779 const char *
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2780 mxGetClassName (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2781 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2782 return ptr->get_class_name ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2783 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2784
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2785 void
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2786 mxSetClassName (mxArray ptr, const char name)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2787 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2788 ptr->set_class_name (name);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2789 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2790
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2791 // Cell support.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2792 mxArray *
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2793 mxGetCell (const mxArray *ptr, mwIndex idx)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2794 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2795 return ptr->get_cell (idx);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2796 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2797
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2798 void
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2799 mxSetCell (mxArray ptr, mwIndex idx, mxArray val)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2800 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2801 ptr->set_cell (idx, val);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2802 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2803
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2804 // Sparse support.
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2805 mwIndex *
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2806 mxGetIr (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2807 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2808 return ptr->get_ir ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2809 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2810
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2811 mwIndex *
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2812 mxGetJc (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2813 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2814 return ptr->get_jc ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2815 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2816
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2817 mwSize
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2818 mxGetNzmax (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2819 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2820 return ptr->get_nzmax ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2821 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2822
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2823 void
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2824 mxSetIr (mxArray ptr, mwIndex ir)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2825 {
7172 e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2826 ptr->set_ir (static_cast <mwIndex *> (maybe_unmark (ir)));
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2827 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2828
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2829 void
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2830 mxSetJc (mxArray ptr, mwIndex jc)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2831 {
7172 e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2832 ptr->set_jc (static_cast<mwIndex *> (maybe_unmark (jc)));
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2833 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2834
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2835 void
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2836 mxSetNzmax (mxArray *ptr, mwSize nzmax)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2837 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2838 ptr->set_nzmax (nzmax);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2839 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2840
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2841 // Structure support.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2842 int
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2843 mxAddField (mxArray ptr, const char key)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2844 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2845 return ptr->add_field (key);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2846 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2847
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2848 void
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2849 mxRemoveField (mxArray *ptr, int key_num)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2850 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2851 ptr->remove_field (key_num);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2852 }
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2853
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2854 mxArray *
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2855 mxGetField (const mxArray ptr, mwIndex index, const char key)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2856 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2857 int key_num = mxGetFieldNumber (ptr, key);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2858 return mxGetFieldByNumber (ptr, index, key_num);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2859 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2860
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2861 mxArray *
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2862 mxGetFieldByNumber (const mxArray *ptr, mwIndex index, int key_num)
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2863 {
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2864 return ptr->get_field_by_number (index, key_num);
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2865 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2866
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2867 void
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2868 mxSetField (mxArray ptr, mwIndex index, const char key, mxArray *val)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2869 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2870 int key_num = mxGetFieldNumber (ptr, key);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2871 mxSetFieldByNumber (ptr, index, key_num, val);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2872 }
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2873
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2874 void
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2875 mxSetFieldByNumber (mxArray ptr, mwIndex index, int key_num, mxArray val)
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2876 {
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2877 ptr->set_field_by_number (index, key_num, val);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2878 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2879
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2880 int
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2881 mxGetNumberOfFields (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2882 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2883 return ptr->get_number_of_fields ();
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2884 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2885
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2886 const char *
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2887 mxGetFieldNameByNumber (const mxArray *ptr, int key_num)
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2888 {
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2889 return ptr->get_field_name_by_number (key_num);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2890 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2891
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2892 int
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2893 mxGetFieldNumber (const mxArray ptr, const char key)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2894 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2895 return ptr->get_field_number (key);
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2896 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2897
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2898 int
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2899 mxGetString (const mxArray ptr, char buf, mwSize buflen)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2900 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2901 return ptr->get_string (buf, buflen);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2902 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2903
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2904 char *
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2905 mxArrayToString (const mxArray *ptr)
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2906 {
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2907 return ptr->array_to_string ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2908 }
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	2909
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2910 mwIndex
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2911 mxCalcSingleSubscript (const mxArray ptr, mwSize nsubs, mwIndex subs)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2912 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2913 return ptr->calc_single_subscript (nsubs, subs);
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2914 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2915
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2916 size_t
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2917 mxGetElementSize (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2918 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2919 return ptr->get_element_size ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2920 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2921
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2922 // ------------------------------------------------------------------
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2923
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2924 typedef void (cmex_fptr) (int nlhs, mxArray plhs, int nrhs, mxArray *prhs);
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2925 typedef F77_RET_T (fmex_fptr) (int& nlhs, mxArray plhs, int& nrhs, mxArray *prhs);
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2926
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2927 octave_value_list
6068 c9f0839c583f [project @ 2006-10-20 16:54:30 by jwe] jwe parents: 6065 diff changeset	2928 call_mex (bool have_fmex, void *f, const octave_value_list& args,
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2929 int nargout_arg, octave_mex_function *curr_mex_fcn)
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2930 {
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2931 // Use at least 1 for nargout since even for zero specified args,
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2932 // still want to be able to return an ans.
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2933
8806 c7864bb74914 avoid some GCC warnings John W. Eaton <jwe@octave.org> parents: 8377 diff changeset	2934 volatile int nargout = nargout_arg;
c7864bb74914 avoid some GCC warnings John W. Eaton <jwe@octave.org> parents: 8377 diff changeset	2935
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2936 int nargin = args.length ();
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2937 OCTAVE_LOCAL_BUFFER (mxArray *, argin, nargin);
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2938 for (int i = 0; i < nargin; i++)
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2939 argin[i] = 0;
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2940
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2941 int nout = nargout == 0 ? 1 : nargout;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2942 OCTAVE_LOCAL_BUFFER (mxArray *, argout, nout);
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2943 for (int i = 0; i < nout; i++)
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2944 argout[i] = 0;
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2945
10066 2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 9689 diff changeset	2946 unwind_protect_safe frame;
5905 e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	2947
e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	2948 // Save old mex pointer.
10066 2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 9689 diff changeset	2949 frame.protect_var (mex_context);
5905 e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	2950
6068 c9f0839c583f [project @ 2006-10-20 16:54:30 by jwe] jwe parents: 6065 diff changeset	2951 mex context (curr_mex_fcn);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2952
16227 054d9e8f99b6 avoid deprecated function John W. Eaton <jwe@octave.org> parents: 15373 diff changeset	2953 frame.add_fcn (mex::cleanup, static_cast<void *> (&context));
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2954
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2955 for (int i = 0; i < nargin; i++)
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2956 argin[i] = context.make_value (args(i));
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2957
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2958 if (setjmp (context.jump) == 0)
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2959 {
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2960 mex_context = &context;
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2961
6068 c9f0839c583f [project @ 2006-10-20 16:54:30 by jwe] jwe parents: 6065 diff changeset	2962 if (have_fmex)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2963 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2964 fmex_fptr fcn = FCN_PTR_CAST (fmex_fptr, f);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2965
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2966 int tmp_nargout = nargout;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2967 int tmp_nargin = nargin;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2968
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2969 fcn (tmp_nargout, argout, tmp_nargin, argin);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2970 }
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2971 else
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2972 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2973 cmex_fptr fcn = FCN_PTR_CAST (cmex_fptr, f);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2974
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2975 fcn (nargout, argout, nargin, argin);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2976 }
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2977 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2978
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2979 // Convert returned array entries back into octave values.
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2980
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2981 octave_value_list retval;
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2982
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2983 if (! error_state)
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2984 {
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2985 if (nargout == 0 && argout[0])
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2986 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2987 // We have something for ans.
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2988 nargout = 1;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2989 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2990
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2991 retval.resize (nargout);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2992
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2993 for (int i = 0; i < nargout; i++)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2994 retval(i) = mxArray::as_octave_value (argout[i]);
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2995 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2996
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2997 // Clean up mex resources.
10066 2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 9689 diff changeset	2998 frame.run ();
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2999
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3000 return retval;
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3001 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3002
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3003 // C interface to mex functions:
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3004
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3005 const char *
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3006 mexFunctionName (void)
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3007 {
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3008 return mex_context ? mex_context->function_name () : "unknown";
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3009 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3010
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3011 int
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	3012 mexCallMATLAB (int nargout, mxArray *argout[], int nargin,
15373 b5d0a47c171c * mex.cc (mexCallMATLAB): Remove stray const added in 93dff6435fe1 (bug #37342). John W. Eaton <jwe@octave.org> parents: 15354 diff changeset	3013 mxArray argin[], const char fname)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3014 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3015 octave_value_list args;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3016
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3017 // FIXME -- do we need unwind protect to clean up args? Off hand, I
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3018 // would say that this problem is endemic to Octave and we will
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3019 // continue to have memory leaks after Ctrl-C until proper exception
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3020 // handling is implemented. longjmp() only clears the stack, so any
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3021 // class which allocates data on the heap is going to leak.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3022
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3023 args.resize (nargin);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3024
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3025 for (int i = 0; i < nargin; i++)
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	3026 args(i) = mxArray::as_octave_value (argin[i]);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3027
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3028 octave_value_list retval = feval (fname, args, nargout);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3029
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3030 if (error_state && mex_context->trap_feval_error == 0)
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3031 {
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3032 // FIXME -- is this the correct way to clean up? abort() is
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3033 // going to trigger a long jump, so the normal class destructors
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3034 // will not be called. Hopefully this will reduce things to a
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3035 // tiny leak. Maybe create a new octave memory tracer type
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3036 // which prints a friendly message every time it is
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3037 // created/copied/deleted to check this.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3038
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3039 args.resize (0);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3040 retval.resize (0);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3041 mex_context->abort ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3042 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3043
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3044 int num_to_copy = retval.length ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3045
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3046 if (nargout < retval.length ())
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3047 num_to_copy = nargout;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3048
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3049 for (int i = 0; i < num_to_copy; i++)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3050 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3051 // FIXME -- it would be nice to avoid copying the value here,
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3052 // but there is no way to steal memory from a matrix, never mind
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3053 // that matrix memory is allocated by new[] and mxArray memory
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3054 // is allocated by malloc().
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3055 argout[i] = mex_context->make_value (retval (i));
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3056 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3057
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3058 while (num_to_copy < nargout)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3059 argout[num_to_copy++] = 0;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3060
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3061 if (error_state)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3062 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3063 error_state = 0;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3064 return 1;
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3065 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3066 else
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3067 return 0;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3068 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3069
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3070 void
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3071 mexSetTrapFlag (int flag)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3072 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3073 if (mex_context)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3074 mex_context->trap_feval_error = flag;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3075 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3076
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3077 int
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3078 mexEvalString (const char *s)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3079 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3080 int retval = 0;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3081
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3082 int parse_status;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3083
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3084 octave_value_list ret;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3085
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3086 ret = eval_string (s, false, parse_status, 0);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3087
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3088 if (parse_status \|\| error_state)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3089 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3090 error_state = 0;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3091
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3092 retval = 1;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3093 }
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3094
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3095 return retval;
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3096 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3097
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3098 void
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3099 mexErrMsgTxt (const char *s)
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3100 {
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3101 if (s && strlen (s) > 0)
5879 4f1112bfafce [project @ 2006-07-05 23:50:44 by jwe] jwe parents: 5864 diff changeset	3102 error ("%s: %s", mexFunctionName (), s);
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3103 else
16851 209f0db3c32b mexErrMsgTxt should abort when called with an empty string (bug #39343). Rik <rik@octave.org> parents: 16708 diff changeset	3104 {
209f0db3c32b mexErrMsgTxt should abort when called with an empty string (bug #39343). Rik <rik@octave.org> parents: 16708 diff changeset	3105 // For compatibility with Matlab, print an empty message.
209f0db3c32b mexErrMsgTxt should abort when called with an empty string (bug #39343). Rik <rik@octave.org> parents: 16708 diff changeset	3106 // Octave's error routine requires a non-null input so use a SPACE.
209f0db3c32b mexErrMsgTxt should abort when called with an empty string (bug #39343). Rik <rik@octave.org> parents: 16708 diff changeset	3107 error (" ");
209f0db3c32b mexErrMsgTxt should abort when called with an empty string (bug #39343). Rik <rik@octave.org> parents: 16708 diff changeset	3108 }
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3109
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3110 mex_context->abort ();
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3111 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3112
5879 4f1112bfafce [project @ 2006-07-05 23:50:44 by jwe] jwe parents: 5864 diff changeset	3113 void
6338 ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	3114 mexErrMsgIdAndTxt (const char id, const char fmt, ...)
5879 4f1112bfafce [project @ 2006-07-05 23:50:44 by jwe] jwe parents: 5864 diff changeset	3115 {
6338 ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	3116 if (fmt && strlen (fmt) > 0)
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	3117 {
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	3118 const char *fname = mexFunctionName ();
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	3119 size_t len = strlen (fname) + 2 + strlen (fmt) + 1;
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	3120 OCTAVE_LOCAL_BUFFER (char, tmpfmt, len);
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	3121 sprintf (tmpfmt, "%s: %s", fname, fmt);
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	3122 va_list args;
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	3123 va_start (args, fmt);
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	3124 verror_with_id (id, tmpfmt, args);
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	3125 va_end (args);
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	3126 }
5879 4f1112bfafce [project @ 2006-07-05 23:50:44 by jwe] jwe parents: 5864 diff changeset	3127 else
16851 209f0db3c32b mexErrMsgTxt should abort when called with an empty string (bug #39343). Rik <rik@octave.org> parents: 16708 diff changeset	3128 {
209f0db3c32b mexErrMsgTxt should abort when called with an empty string (bug #39343). Rik <rik@octave.org> parents: 16708 diff changeset	3129 // For compatibility with Matlab, print an empty message.
209f0db3c32b mexErrMsgTxt should abort when called with an empty string (bug #39343). Rik <rik@octave.org> parents: 16708 diff changeset	3130 // Octave's error routine requires a non-null input so use a SPACE.
209f0db3c32b mexErrMsgTxt should abort when called with an empty string (bug #39343). Rik <rik@octave.org> parents: 16708 diff changeset	3131 error (" ");
209f0db3c32b mexErrMsgTxt should abort when called with an empty string (bug #39343). Rik <rik@octave.org> parents: 16708 diff changeset	3132 }
5879 4f1112bfafce [project @ 2006-07-05 23:50:44 by jwe] jwe parents: 5864 diff changeset	3133
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3134 mex_context->abort ();
5879 4f1112bfafce [project @ 2006-07-05 23:50:44 by jwe] jwe parents: 5864 diff changeset	3135 }
4f1112bfafce [project @ 2006-07-05 23:50:44 by jwe] jwe parents: 5864 diff changeset	3136
4f1112bfafce [project @ 2006-07-05 23:50:44 by jwe] jwe parents: 5864 diff changeset	3137 void
4f1112bfafce [project @ 2006-07-05 23:50:44 by jwe] jwe parents: 5864 diff changeset	3138 mexWarnMsgTxt (const char *s)
4f1112bfafce [project @ 2006-07-05 23:50:44 by jwe] jwe parents: 5864 diff changeset	3139 {
4f1112bfafce [project @ 2006-07-05 23:50:44 by jwe] jwe parents: 5864 diff changeset	3140 warning ("%s", s);
4f1112bfafce [project @ 2006-07-05 23:50:44 by jwe] jwe parents: 5864 diff changeset	3141 }
4f1112bfafce [project @ 2006-07-05 23:50:44 by jwe] jwe parents: 5864 diff changeset	3142
4f1112bfafce [project @ 2006-07-05 23:50:44 by jwe] jwe parents: 5864 diff changeset	3143 void
6338 ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	3144 mexWarnMsgIdAndTxt (const char id, const char fmt, ...)
5879 4f1112bfafce [project @ 2006-07-05 23:50:44 by jwe] jwe parents: 5864 diff changeset	3145 {
6338 ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	3146 // FIXME -- is this right? What does Matlab do if fmt is NULL or
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	3147 // an empty string?
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	3148
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	3149 if (fmt && strlen (fmt) > 0)
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	3150 {
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	3151 const char *fname = mexFunctionName ();
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	3152 size_t len = strlen (fname) + 2 + strlen (fmt) + 1;
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	3153 OCTAVE_LOCAL_BUFFER (char, tmpfmt, len);
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	3154 sprintf (tmpfmt, "%s: %s", fname, fmt);
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	3155 va_list args;
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	3156 va_start (args, fmt);
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	3157 vwarning_with_id (id, tmpfmt, args);
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	3158 va_end (args);
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	3159 }
5879 4f1112bfafce [project @ 2006-07-05 23:50:44 by jwe] jwe parents: 5864 diff changeset	3160 }
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3161
10127 f21fdff5c906 Change signature of mexPrintf. David Grundberg <davidg@cs.umu.se> parents: 10126 diff changeset	3162 int
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3163 mexPrintf (const char *fmt, ...)
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3164 {
10127 f21fdff5c906 Change signature of mexPrintf. David Grundberg <davidg@cs.umu.se> parents: 10126 diff changeset	3165 int retval;
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3166 va_list args;
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3167 va_start (args, fmt);
10127 f21fdff5c906 Change signature of mexPrintf. David Grundberg <davidg@cs.umu.se> parents: 10126 diff changeset	3168 retval = octave_vformat (octave_stdout, fmt, args);
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3169 va_end (args);
10127 f21fdff5c906 Change signature of mexPrintf. David Grundberg <davidg@cs.umu.se> parents: 10126 diff changeset	3170 return retval;
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3171 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3172
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3173 mxArray *
5879 4f1112bfafce [project @ 2006-07-05 23:50:44 by jwe] jwe parents: 5864 diff changeset	3174 mexGetVariable (const char space, const char name)
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3175 {
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3176 mxArray *retval = 0;
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3177
7752 40c428ea3408 initial implementation of dbup and dbdown John W. Eaton <jwe@octave.org> parents: 7577 diff changeset	3178 octave_value val;
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3179
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3180 if (! strcmp (space, "global"))
7752 40c428ea3408 initial implementation of dbup and dbdown John W. Eaton <jwe@octave.org> parents: 7577 diff changeset	3181 val = get_global_value (name);
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3182 else
7752 40c428ea3408 initial implementation of dbup and dbdown John W. Eaton <jwe@octave.org> parents: 7577 diff changeset	3183 {
9144 c6463412aebb eliminate symbol_table::scope_stack; fix scoping issue with evalin John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	3184 // FIXME -- should this be in variables.cc?
c6463412aebb eliminate symbol_table::scope_stack; fix scoping issue with evalin John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	3185
10066 2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 9689 diff changeset	3186 unwind_protect frame;
9144 c6463412aebb eliminate symbol_table::scope_stack; fix scoping issue with evalin John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	3187
7901 3e4c9b69069d call stack changes John W. Eaton <jwe@octave.org> parents: 7752 diff changeset	3188 bool caller = ! strcmp (space, "caller");
3e4c9b69069d call stack changes John W. Eaton <jwe@octave.org> parents: 7752 diff changeset	3189 bool base = ! strcmp (space, "base");
3e4c9b69069d call stack changes John W. Eaton <jwe@octave.org> parents: 7752 diff changeset	3190
3e4c9b69069d call stack changes John W. Eaton <jwe@octave.org> parents: 7752 diff changeset	3191 if (caller \|\| base)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3192 {
16708 08f0f274de36 use correct "caller" workspace for mexputvariable and mexgetvariable John W. Eaton <jwe@octave.org> parents: 16442 diff changeset	3193 // MEX files don't create a separate frame in the call stack,
08f0f274de36 use correct "caller" workspace for mexputvariable and mexgetvariable John W. Eaton <jwe@octave.org> parents: 16442 diff changeset	3194 // so we are already in the "caller" frame.
08f0f274de36 use correct "caller" workspace for mexputvariable and mexgetvariable John W. Eaton <jwe@octave.org> parents: 16442 diff changeset	3195
08f0f274de36 use correct "caller" workspace for mexputvariable and mexgetvariable John W. Eaton <jwe@octave.org> parents: 16442 diff changeset	3196 if (base)
08f0f274de36 use correct "caller" workspace for mexputvariable and mexgetvariable John W. Eaton <jwe@octave.org> parents: 16442 diff changeset	3197 {
08f0f274de36 use correct "caller" workspace for mexputvariable and mexgetvariable John W. Eaton <jwe@octave.org> parents: 16442 diff changeset	3198 octave_call_stack::goto_base_frame ();
08f0f274de36 use correct "caller" workspace for mexputvariable and mexgetvariable John W. Eaton <jwe@octave.org> parents: 16442 diff changeset	3199
08f0f274de36 use correct "caller" workspace for mexputvariable and mexgetvariable John W. Eaton <jwe@octave.org> parents: 16442 diff changeset	3200 if (error_state)
08f0f274de36 use correct "caller" workspace for mexputvariable and mexgetvariable John W. Eaton <jwe@octave.org> parents: 16442 diff changeset	3201 return retval;
08f0f274de36 use correct "caller" workspace for mexputvariable and mexgetvariable John W. Eaton <jwe@octave.org> parents: 16442 diff changeset	3202
08f0f274de36 use correct "caller" workspace for mexputvariable and mexgetvariable John W. Eaton <jwe@octave.org> parents: 16442 diff changeset	3203 frame.add_fcn (octave_call_stack::pop);
08f0f274de36 use correct "caller" workspace for mexputvariable and mexgetvariable John W. Eaton <jwe@octave.org> parents: 16442 diff changeset	3204 }
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3205
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3206 val = symbol_table::varval (name);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3207 }
7752 40c428ea3408 initial implementation of dbup and dbdown John W. Eaton <jwe@octave.org> parents: 7577 diff changeset	3208 else
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3209 mexErrMsgTxt ("mexGetVariable: symbol table does not exist");
7752 40c428ea3408 initial implementation of dbup and dbdown John W. Eaton <jwe@octave.org> parents: 7577 diff changeset	3210 }
7336 745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe] jwe parents: 7179 diff changeset	3211
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe] jwe parents: 7179 diff changeset	3212 if (val.is_defined ())
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3213 {
7336 745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe] jwe parents: 7179 diff changeset	3214 retval = mex_context->make_value (val);
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe] jwe parents: 7179 diff changeset	3215
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe] jwe parents: 7179 diff changeset	3216 retval->set_name (name);
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3217 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3218
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3219 return retval;
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3220 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3221
5879 4f1112bfafce [project @ 2006-07-05 23:50:44 by jwe] jwe parents: 5864 diff changeset	3222 const mxArray *
4f1112bfafce [project @ 2006-07-05 23:50:44 by jwe] jwe parents: 5864 diff changeset	3223 mexGetVariablePtr (const char space, const char name)
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3224 {
5879 4f1112bfafce [project @ 2006-07-05 23:50:44 by jwe] jwe parents: 5864 diff changeset	3225 return mexGetVariable (space, name);
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3226 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3227
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3228 int
15353 5f3a69a309a7 fix decl of mexPutVariable John W. Eaton <jwe@octave.org> parents: 15351 diff changeset	3229 mexPutVariable (const char space, const char name, const mxArray *ptr)
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3230 {
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3231 if (! ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3232 return 1;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3233
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3234 if (! name)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3235 return 1;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3236
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3237 if (name[0] == '\0')
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3238 name = ptr->get_name ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3239
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3240 if (! name \|\| name[0] == '\0')
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3241 return 1;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3242
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3243 if (! strcmp (space, "global"))
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	3244 set_global_value (name, mxArray::as_octave_value (ptr));
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3245 else
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3246 {
7336 745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe] jwe parents: 7179 diff changeset	3247 // FIXME -- should this be in variables.cc?
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe] jwe parents: 7179 diff changeset	3248
10066 2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 9689 diff changeset	3249 unwind_protect frame;
9144 c6463412aebb eliminate symbol_table::scope_stack; fix scoping issue with evalin John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	3250
7901 3e4c9b69069d call stack changes John W. Eaton <jwe@octave.org> parents: 7752 diff changeset	3251 bool caller = ! strcmp (space, "caller");
3e4c9b69069d call stack changes John W. Eaton <jwe@octave.org> parents: 7752 diff changeset	3252 bool base = ! strcmp (space, "base");
3e4c9b69069d call stack changes John W. Eaton <jwe@octave.org> parents: 7752 diff changeset	3253
3e4c9b69069d call stack changes John W. Eaton <jwe@octave.org> parents: 7752 diff changeset	3254 if (caller \|\| base)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3255 {
16708 08f0f274de36 use correct "caller" workspace for mexputvariable and mexgetvariable John W. Eaton <jwe@octave.org> parents: 16442 diff changeset	3256 // MEX files don't create a separate frame in the call stack,
08f0f274de36 use correct "caller" workspace for mexputvariable and mexgetvariable John W. Eaton <jwe@octave.org> parents: 16442 diff changeset	3257 // so we are already in the "caller" frame.
08f0f274de36 use correct "caller" workspace for mexputvariable and mexgetvariable John W. Eaton <jwe@octave.org> parents: 16442 diff changeset	3258
08f0f274de36 use correct "caller" workspace for mexputvariable and mexgetvariable John W. Eaton <jwe@octave.org> parents: 16442 diff changeset	3259 if (base)
08f0f274de36 use correct "caller" workspace for mexputvariable and mexgetvariable John W. Eaton <jwe@octave.org> parents: 16442 diff changeset	3260 {
08f0f274de36 use correct "caller" workspace for mexputvariable and mexgetvariable John W. Eaton <jwe@octave.org> parents: 16442 diff changeset	3261 octave_call_stack::goto_base_frame ();
08f0f274de36 use correct "caller" workspace for mexputvariable and mexgetvariable John W. Eaton <jwe@octave.org> parents: 16442 diff changeset	3262
08f0f274de36 use correct "caller" workspace for mexputvariable and mexgetvariable John W. Eaton <jwe@octave.org> parents: 16442 diff changeset	3263 if (error_state)
08f0f274de36 use correct "caller" workspace for mexputvariable and mexgetvariable John W. Eaton <jwe@octave.org> parents: 16442 diff changeset	3264 return 1;
08f0f274de36 use correct "caller" workspace for mexputvariable and mexgetvariable John W. Eaton <jwe@octave.org> parents: 16442 diff changeset	3265
08f0f274de36 use correct "caller" workspace for mexputvariable and mexgetvariable John W. Eaton <jwe@octave.org> parents: 16442 diff changeset	3266 frame.add_fcn (octave_call_stack::pop);
08f0f274de36 use correct "caller" workspace for mexputvariable and mexgetvariable John W. Eaton <jwe@octave.org> parents: 16442 diff changeset	3267 }
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3268
16442 302157614308 deprecate symbol_table::varref functions John W. Eaton <jwe@octave.org> parents: 16227 diff changeset	3269 symbol_table::assign (name, mxArray::as_octave_value (ptr));
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3270 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3271 else
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3272 mexErrMsgTxt ("mexPutVariable: symbol table does not exist");
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3273 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3274
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3275 return 0;
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3276 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3277
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3278 void
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3279 mexMakeArrayPersistent (mxArray *ptr)
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3280 {
7172 e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	3281 maybe_unmark_array (ptr);
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3282 }
5879 4f1112bfafce [project @ 2006-07-05 23:50:44 by jwe] jwe parents: 5864 diff changeset	3283
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3284 void
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3285 mexMakeMemoryPersistent (void *ptr)
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3286 {
7172 e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	3287 maybe_unmark (ptr);
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3288 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3289
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3290 int
6068 c9f0839c583f [project @ 2006-10-20 16:54:30 by jwe] jwe parents: 6065 diff changeset	3291 mexAtExit (void (*f) (void))
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3292 {
6068 c9f0839c583f [project @ 2006-10-20 16:54:30 by jwe] jwe parents: 6065 diff changeset	3293 if (mex_context)
c9f0839c583f [project @ 2006-10-20 16:54:30 by jwe] jwe parents: 6065 diff changeset	3294 {
c9f0839c583f [project @ 2006-10-20 16:54:30 by jwe] jwe parents: 6065 diff changeset	3295 octave_mex_function *curr_mex_fcn = mex_context->current_mex_function ();
c9f0839c583f [project @ 2006-10-20 16:54:30 by jwe] jwe parents: 6065 diff changeset	3296
c9f0839c583f [project @ 2006-10-20 16:54:30 by jwe] jwe parents: 6065 diff changeset	3297 assert (curr_mex_fcn);
c9f0839c583f [project @ 2006-10-20 16:54:30 by jwe] jwe parents: 6065 diff changeset	3298
c9f0839c583f [project @ 2006-10-20 16:54:30 by jwe] jwe parents: 6065 diff changeset	3299 curr_mex_fcn->atexit (f);
c9f0839c583f [project @ 2006-10-20 16:54:30 by jwe] jwe parents: 6065 diff changeset	3300 }
c9f0839c583f [project @ 2006-10-20 16:54:30 by jwe] jwe parents: 6065 diff changeset	3301
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3302 return 0;
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3303 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3304
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3305 const mxArray *
6595 55586d763de1 [project @ 2007-04-27 15:31:10 by dbateman] dbateman parents: 6493 diff changeset	3306 mexGet (double handle, const char *property)
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3307 {
6595 55586d763de1 [project @ 2007-04-27 15:31:10 by dbateman] dbateman parents: 6493 diff changeset	3308 mxArray *m = 0;
55586d763de1 [project @ 2007-04-27 15:31:10 by dbateman] dbateman parents: 6493 diff changeset	3309 octave_value ret = get_property_from_handle (handle, property, "mexGet");
55586d763de1 [project @ 2007-04-27 15:31:10 by dbateman] dbateman parents: 6493 diff changeset	3310
14846 460a3c6d8bf1 maint: Use Octave coding convention for cuddled parenthis in function calls with empty argument lists. Rik <octave@nomad.inbox5.com> parents: 14840 diff changeset	3311 if (!error_state && ret.is_defined ())
6595 55586d763de1 [project @ 2007-04-27 15:31:10 by dbateman] dbateman parents: 6493 diff changeset	3312 m = ret.as_mxArray ();
55586d763de1 [project @ 2007-04-27 15:31:10 by dbateman] dbateman parents: 6493 diff changeset	3313 return m;
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3314 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3315
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3316 int
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3317 mexIsGlobal (const mxArray *ptr)
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3318 {
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3319 return mxIsFromGlobalWS (ptr);
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3320 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3321
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3322 int
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3323 mexIsLocked (void)
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3324 {
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3325 int retval = 0;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3326
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3327 if (mex_context)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3328 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3329 const char *fname = mexFunctionName ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3330
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3331 retval = mislocked (fname);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3332 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3333
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3334 return retval;
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3335 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3336
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3337 std::map<std::string,int> mex_lock_count;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3338
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3339 void
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3340 mexLock (void)
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3341 {
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3342 if (mex_context)
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3343 {
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3344 const char *fname = mexFunctionName ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3345
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3346 if (mex_lock_count.find (fname) == mex_lock_count.end ())
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3347 mex_lock_count[fname] = 1;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3348 else
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3349 mex_lock_count[fname]++;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3350
7336 745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe] jwe parents: 7179 diff changeset	3351 mlock ();
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3352 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3353 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3354
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3355 int
6595 55586d763de1 [project @ 2007-04-27 15:31:10 by dbateman] dbateman parents: 6493 diff changeset	3356 mexSet (double handle, const char property, mxArray val)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3357 {
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	3358 bool ret =
6595 55586d763de1 [project @ 2007-04-27 15:31:10 by dbateman] dbateman parents: 6493 diff changeset	3359 set_property_in_handle (handle, property, mxArray::as_octave_value (val),
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3360 "mexSet");
6595 55586d763de1 [project @ 2007-04-27 15:31:10 by dbateman] dbateman parents: 6493 diff changeset	3361 return (ret ? 0 : 1);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3362 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3363
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3364 void
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3365 mexUnlock (void)
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3366 {
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3367 if (mex_context)
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3368 {
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3369 const char *fname = mexFunctionName ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3370
5905 e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	3371 std::map<std::string,int>::iterator p = mex_lock_count.find (fname);
e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	3372
6062 a813714cb04b [project @ 2006-10-18 23:30:22 by jwe] jwe parents: 6018 diff changeset	3373 if (p != mex_lock_count.end ())
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3374 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3375 int count = --mex_lock_count[fname];
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3376
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3377 if (count == 0)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3378 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3379 munlock (fname);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3380
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3381 mex_lock_count.erase (p);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3382 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3383 }
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3384 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3385 }

Mercurial > octave-nkf

annotate libinterp/interp-core/mex.cc @ 16851:209f0db3c32b