octave: libinterp/corefcn/mex.cc annotate

annotate libinterp/corefcn/mex.cc @ 22471:667d353d1ab8

Clean up MEX API prototypes to match Matlab. Return int, rather than void, from mxSetDimensions. Return const mwSize *, rather than unconst version, from mxGetDimensions. Re-order switch statements to have most probable cases first. * mexproto.h (mxGetDimensions): Change prototype to return const mwSize *. * mexproto.h (mxSetDimensions): Change prototype to return int. * mxarray.in.h: Expand comment on why Octave uses OCTAVE_IDX_TYPE for all size and pointer types. * mxarray.in.h (mxArray_base::set_dimensions): Return int rather than void. * mxarray.in.h (mxArray::set_dimensions): Return int rather than void. Use DO_MUTABLE_METHOD, not DO_VOID_MUTABLE_METHOD, due to prototype change. * mex.cc (mxArray_octave_value::set_dimensions): Return int rather than void. Always return 0, success. * mex.cc (mxArray_octave_value::get_classid): Re-order if/else if tree to put more probable cases first. * mex.cc (mxArray_octave_value::get_element_size): Reorder switch statement to have most probable cases first. * mex.cc (mxArray_matlab::set_dimensions): Return int rather than void. Return failure (1) if malloc does not succeed. * mex.cc (mxArray_matlab::get_class_name): Reorder switch statement to have most probable cases first. * mex.cc (mxArray_number::get_double): Reorder switch statement to have most probable cases first. * mex.cc (mxArray_number::as_octave_value): Reorder switch statement to have most probable cases first. * mex.cc (mxGetDimensions): Return const mwSize *. * mex.cc (mxSetDimensions): Return int rather than void. * mex.cc (mxGetChars): Return NULL if input mxArray is not of type mxChar (done for Matlab compatibility.).

author	Rik <rik@octave.org>
date	Mon, 12 Sep 2016 13:39:32 -0700
parents	6149f6b34cbc
children	9263b2889003

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
22323 bac0d6f07a3e maint: Update copyright notices for 2016. John W. Eaton <jwe@octave.org> parents: 22094 diff changeset	3 Copyright (C) 2006-2016 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
22003 2d3972b802ff use consistent style for including config.h in source files John W. Eaton <jwe@octave.org> parents: 21942 diff changeset	23 #if defined (HAVE_CONFIG_H)
2d3972b802ff use consistent style for including config.h in source files John W. Eaton <jwe@octave.org> parents: 21942 diff changeset	24 # include "config.h"
2d3972b802ff use consistent style for including config.h in source files John W. Eaton <jwe@octave.org> parents: 21942 diff changeset	25 #endif
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	26
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	27 #include <cfloat>
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	28 #include <csetjmp>
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	29 #include <cstdarg>
10463 bbe99b2a5ba7 undo recent gnulib-related changes John W. Eaton <jwe@octave.org> parents: 10447 diff changeset	30 #include <cstdlib>
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	31 #include <cstring>
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	32 #include <cctype>
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	33
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	34 #include <set>
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	35
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	36 #include "f77-fcn.h"
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	37 #include "lo-ieee.h"
8377 25bc2d31e1bf improve OCTAVE_LOCAL_BUFFER Jaroslav Hajek <highegg@gmail.com> parents: 7901 diff changeset	38 #include "oct-locbuf.h"
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	39
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 "Cell.h"
22091 0f6fc2ec3b1a move call_stack class to a separate file John W. Eaton <jwe@octave.org> parents: 22003 diff changeset	41 #include "call-stack.h"
21151 bfd5e48c41a1 Rename local error in mex I/F from invalid_type_error to err_invalid_type. Rik <rik@octave.org> parents: 20940 diff changeset	42 #include "error.h"
22094 9203833cab7d move new interpreter class to separate file John W. Eaton <jwe@octave.org> parents: 22091 diff changeset	43 #include "interpreter.h"
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	44 // 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	45 #include "mxarray.h"
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	46 #include "mexproto.h"
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	47 #include "oct-map.h"
20940 48b2ad5ee801 maint: Rename oct-obj.[cc\|h] to ovl.[cc\|h] for clarity. Rik <rik@octave.org> parents: 20771 diff changeset	48 #include "ovl.h"
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	49 #include "ov.h"
6068 c9f0839c583f [project @ 2006-10-20 16:54:30 by jwe] jwe parents: 6065 diff changeset	50 #include "ov-mex-fcn.h"
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	51 #include "ov-usr-fcn.h"
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	52 #include "pager.h"
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	53 #include "parse.h"
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	54 #include "unwind-prot.h"
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	55 #include "utils.h"
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	56 #include "variables.h"
6595 55586d763de1 [project @ 2007-04-27 15:31:10 by dbateman] dbateman parents: 6493 diff changeset	57 #include "graphics.h"
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	58
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	59 // #define DEBUG 1
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	60
5905 e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	61 static void
e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	62 xfree (void *ptr)
e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	63 {
e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	64 ::free (ptr);
e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	65 }
e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	66
6806 afa9123c5faa [project @ 2007-07-30 18:36:01 by jwe] jwe parents: 6787 diff changeset	67 static mwSize
afa9123c5faa [project @ 2007-07-30 18:36:01 by jwe] jwe parents: 6787 diff changeset	68 max_str_len (mwSize m, const char **str)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	69 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	70 int max_len = 0;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	71
6806 afa9123c5faa [project @ 2007-07-30 18:36:01 by jwe] jwe parents: 6787 diff changeset	72 for (mwSize i = 0; i < m; i++)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	73 {
6806 afa9123c5faa [project @ 2007-07-30 18:36:01 by jwe] jwe parents: 6787 diff changeset	74 mwSize tmp = strlen (str[i]);
5900 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 if (tmp > max_len)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	77 max_len = tmp;
5900 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
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	80 return max_len;
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
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	83 static int
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	84 valid_key (const char *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 int retval = 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 int nel = strlen (key);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	89
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	90 if (nel > 0)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	91 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	92 if (isalpha (key[0]))
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	93 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	94 for (int i = 1; i < nel; i++)
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 if (! (isalnum (key[i]) \|\| key[i] == '_'))
21170 1edaf1ee65eb maint: Replace some uses of goto in libinterp. Rik <rik@octave.org> parents: 21151 diff changeset	97 return retval;
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	98 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	99
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	100 retval = 1;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	101 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	102 }
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 return retval;
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
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	107 // ------------------------------------------------------------------
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	108
7357 3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	109 static mwIndex
3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	110 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	111 mwSize nsubs, const mwIndex *subs)
7357 3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	112 {
3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	113 mwIndex retval = 0;
3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	114
3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	115 switch (nsubs)
3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	116 {
3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	117 case 0:
3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	118 break;
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 case 1:
3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	121 retval = subs[0];
3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	122 break;
3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	123
3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	124 default:
3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	125 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	126 // 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	127
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	128 mwSize n = nsubs <= ndims ? nsubs : ndims;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	129
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	130 retval = subs[--n];
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	131
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	132 while (--n >= 0)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	133 retval = dims[n] * retval + subs[n];
7357 3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	134 }
3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	135 break;
3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	136 }
3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	137
3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	138 return retval;
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
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	141 // 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	142 // 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	143 // 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	144 // 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	145 // 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	146 // 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	147 // 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	148 // 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	149 // 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	150 // happen once per call to a MEX file.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	151
7179 32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	152 static inline void maybe_mark_foreign (void ptr);
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	153
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	154 class mxArray_octave_value : public mxArray_base
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	155 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	156 public:
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	157
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	158 mxArray_octave_value (const octave_value& ov)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	159 : mxArray_base (), val (ov), mutate_flag (false),
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	160 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	161
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	162 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	163
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	164 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	165 {
17810 6da521da1c70 preserve cached mxArray_octave_value data while it's still in use (bug #40429) John W. Eaton <jwe@octave.org> parents: 17787 diff changeset	166 mxArray *retval = val.as_mxArray ();
6da521da1c70 preserve cached mxArray_octave_value data while it's still in use (bug #40429) John W. Eaton <jwe@octave.org> parents: 17787 diff changeset	167
6da521da1c70 preserve cached mxArray_octave_value data while it's still in use (bug #40429) John W. Eaton <jwe@octave.org> parents: 17787 diff changeset	168 // RETVAL is assumed to be an mxArray_matlab object. Should we
6da521da1c70 preserve cached mxArray_octave_value data while it's still in use (bug #40429) John W. Eaton <jwe@octave.org> parents: 17787 diff changeset	169 // assert that condition here?
6da521da1c70 preserve cached mxArray_octave_value data while it's still in use (bug #40429) John W. Eaton <jwe@octave.org> parents: 17787 diff changeset	170
6da521da1c70 preserve cached mxArray_octave_value data while it's still in use (bug #40429) John W. Eaton <jwe@octave.org> parents: 17787 diff changeset	171 if (retval)
6da521da1c70 preserve cached mxArray_octave_value data while it's still in use (bug #40429) John W. Eaton <jwe@octave.org> parents: 17787 diff changeset	172 {
6da521da1c70 preserve cached mxArray_octave_value data while it's still in use (bug #40429) John W. Eaton <jwe@octave.org> parents: 17787 diff changeset	173 // Preserve cached values of class name and dimensions in case
6da521da1c70 preserve cached mxArray_octave_value data while it's still in use (bug #40429) John W. Eaton <jwe@octave.org> parents: 17787 diff changeset	174 // they will be used after we mutate.
6da521da1c70 preserve cached mxArray_octave_value data while it's still in use (bug #40429) John W. Eaton <jwe@octave.org> parents: 17787 diff changeset	175
6da521da1c70 preserve cached mxArray_octave_value data while it's still in use (bug #40429) John W. Eaton <jwe@octave.org> parents: 17787 diff changeset	176 // set_class_name will handle deleting class name that comes
6da521da1c70 preserve cached mxArray_octave_value data while it's still in use (bug #40429) John W. Eaton <jwe@octave.org> parents: 17787 diff changeset	177 // from as_mxArray conversion function.
6da521da1c70 preserve cached mxArray_octave_value data while it's still in use (bug #40429) John W. Eaton <jwe@octave.org> parents: 17787 diff changeset	178
6da521da1c70 preserve cached mxArray_octave_value data while it's still in use (bug #40429) John W. Eaton <jwe@octave.org> parents: 17787 diff changeset	179 if (class_name)
6da521da1c70 preserve cached mxArray_octave_value data while it's still in use (bug #40429) John W. Eaton <jwe@octave.org> parents: 17787 diff changeset	180 {
6da521da1c70 preserve cached mxArray_octave_value data while it's still in use (bug #40429) John W. Eaton <jwe@octave.org> parents: 17787 diff changeset	181 retval->set_class_name (class_name);
6da521da1c70 preserve cached mxArray_octave_value data while it's still in use (bug #40429) John W. Eaton <jwe@octave.org> parents: 17787 diff changeset	182
6da521da1c70 preserve cached mxArray_octave_value data while it's still in use (bug #40429) John W. Eaton <jwe@octave.org> parents: 17787 diff changeset	183 class_name = 0;
6da521da1c70 preserve cached mxArray_octave_value data while it's still in use (bug #40429) John W. Eaton <jwe@octave.org> parents: 17787 diff changeset	184 }
6da521da1c70 preserve cached mxArray_octave_value data while it's still in use (bug #40429) John W. Eaton <jwe@octave.org> parents: 17787 diff changeset	185
6da521da1c70 preserve cached mxArray_octave_value data while it's still in use (bug #40429) John W. Eaton <jwe@octave.org> parents: 17787 diff changeset	186 if (dims)
6da521da1c70 preserve cached mxArray_octave_value data while it's still in use (bug #40429) John W. Eaton <jwe@octave.org> parents: 17787 diff changeset	187 {
6da521da1c70 preserve cached mxArray_octave_value data while it's still in use (bug #40429) John W. Eaton <jwe@octave.org> parents: 17787 diff changeset	188 mwSize *xdims = retval->get_dimensions ();
6da521da1c70 preserve cached mxArray_octave_value data while it's still in use (bug #40429) John W. Eaton <jwe@octave.org> parents: 17787 diff changeset	189
6da521da1c70 preserve cached mxArray_octave_value data while it's still in use (bug #40429) John W. Eaton <jwe@octave.org> parents: 17787 diff changeset	190 mxFree (xdims);
6da521da1c70 preserve cached mxArray_octave_value data while it's still in use (bug #40429) John W. Eaton <jwe@octave.org> parents: 17787 diff changeset	191
6da521da1c70 preserve cached mxArray_octave_value data while it's still in use (bug #40429) John W. Eaton <jwe@octave.org> parents: 17787 diff changeset	192 retval->set_dimensions (dims, ndims);
6da521da1c70 preserve cached mxArray_octave_value data while it's still in use (bug #40429) John W. Eaton <jwe@octave.org> parents: 17787 diff changeset	193
6da521da1c70 preserve cached mxArray_octave_value data while it's still in use (bug #40429) John W. Eaton <jwe@octave.org> parents: 17787 diff changeset	194 dims = 0;
6da521da1c70 preserve cached mxArray_octave_value data while it's still in use (bug #40429) John W. Eaton <jwe@octave.org> parents: 17787 diff changeset	195 }
6da521da1c70 preserve cached mxArray_octave_value data while it's still in use (bug #40429) John W. Eaton <jwe@octave.org> parents: 17787 diff changeset	196 }
6da521da1c70 preserve cached mxArray_octave_value data while it's still in use (bug #40429) John W. Eaton <jwe@octave.org> parents: 17787 diff changeset	197
6da521da1c70 preserve cached mxArray_octave_value data while it's still in use (bug #40429) John W. Eaton <jwe@octave.org> parents: 17787 diff changeset	198 return retval;
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	199 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	200
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	201 ~mxArray_octave_value (void)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	202 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	203 mxFree (class_name);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	204 mxFree (dims);
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
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	207 bool is_octave_value (void) const { return true; }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	208
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	209 int is_cell (void) const { return val.is_cell (); }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	210
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	211 int is_char (void) const { return val.is_string (); }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	212
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	213 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	214
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	215 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	216
11100 cdf940db26a0 provide mxIsFunctionHandle MEX interface function John W. Eaton <jwe@octave.org> parents: 11073 diff changeset	217 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	218
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	219 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	220
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	221 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	222
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	223 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	224
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	225 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	226
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	227 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	228
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	229 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	230
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	231 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	232
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	233 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	234
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	235 int is_struct (void) const { return val.is_map (); }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	236
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	237 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	238
6069 67b1a61a85ce [project @ 2006-10-21 14:33:53 by jwe] jwe parents: 6068 diff changeset	239 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	240
67b1a61a85ce [project @ 2006-10-21 14:33:53 by jwe] jwe parents: 6068 diff changeset	241 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	242
67b1a61a85ce [project @ 2006-10-21 14:33:53 by jwe] jwe parents: 6068 diff changeset	243 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	244
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	245 int is_range (void) const { return val.is_range (); }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	246
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	247 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	248
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	249 int is_logical_scalar_true (void) const
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	250 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	251 return (is_logical_scalar () && val.is_true ());
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	252 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	253
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	254 mwSize get_m (void) const { return val.rows (); }
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	255
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	256 mwSize get_n (void) const
6187 2a8922007c12 [project @ 2006-11-29 01:59:59 by jwe] jwe parents: 6071 diff changeset	257 {
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	258 mwSize n = 1;
6187 2a8922007c12 [project @ 2006-11-29 01:59:59 by jwe] jwe parents: 6071 diff changeset	259
2a8922007c12 [project @ 2006-11-29 01:59:59 by jwe] jwe parents: 6071 diff changeset	260 // 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	261 get_dimensions ();
6187 2a8922007c12 [project @ 2006-11-29 01:59:59 by jwe] jwe parents: 6071 diff changeset	262
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	263 for (mwIndex i = ndims - 1; i > 0; i--)
6187 2a8922007c12 [project @ 2006-11-29 01:59:59 by jwe] jwe parents: 6071 diff changeset	264 n *= dims[i];
2a8922007c12 [project @ 2006-11-29 01:59:59 by jwe] jwe parents: 6071 diff changeset	265
2a8922007c12 [project @ 2006-11-29 01:59:59 by jwe] jwe parents: 6071 diff changeset	266 return n;
2a8922007c12 [project @ 2006-11-29 01:59:59 by jwe] jwe parents: 6071 diff changeset	267 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	268
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	269 mwSize *get_dimensions (void) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	270 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	271 if (! dims)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	272 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	273 ndims = val.ndims ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	274
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	275 dims = static_cast<mwSize *> (mxArray::malloc (ndims
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	276 * sizeof (mwSize)));
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	277
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	278 dim_vector dv = val.dims ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	279
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	280 for (mwIndex i = 0; i < ndims; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	281 dims[i] = dv(i);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	282 }
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 return dims;
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
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	287 mwSize get_number_of_dimensions (void) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	288 {
6332 debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	289 // Force dims and ndims to be cached.
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	290 get_dimensions ();
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	291
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	292 return ndims;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	293 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	294
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	295 void set_m (mwSize /m/) { request_mutation (); }
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	296
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	297 void set_n (mwSize /n/) { request_mutation (); }
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	298
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	299 int set_dimensions (mwSize * /dims_arg/, mwSize /ndims_arg/)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	300 {
6400 566343604d95 [project @ 2007-03-08 22:58:22 by jwe] jwe parents: 6347 diff changeset	301 request_mutation ();
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	302
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	303 return 0;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	304 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	305
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	306 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	307
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	308 int is_empty (void) const { return val.is_empty (); }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	309
22462 6cb7813e5b2f Add new mxIsScalar function for MEX API. Rik <rik@octave.org> parents: 22454 diff changeset	310 bool is_scalar (void) const
6cb7813e5b2f Add new mxIsScalar function for MEX API. Rik <rik@octave.org> parents: 22454 diff changeset	311 {
6cb7813e5b2f Add new mxIsScalar function for MEX API. Rik <rik@octave.org> parents: 22454 diff changeset	312 // Force dims and ndims to be cached.
6cb7813e5b2f Add new mxIsScalar function for MEX API. Rik <rik@octave.org> parents: 22454 diff changeset	313 get_dimensions ();
6cb7813e5b2f Add new mxIsScalar function for MEX API. Rik <rik@octave.org> parents: 22454 diff changeset	314
6cb7813e5b2f Add new mxIsScalar function for MEX API. Rik <rik@octave.org> parents: 22454 diff changeset	315 return ndims == 2 && dims[0] == 1 && dims[1] == 1;
6cb7813e5b2f Add new mxIsScalar function for MEX API. Rik <rik@octave.org> parents: 22454 diff changeset	316 }
6cb7813e5b2f Add new mxIsScalar function for MEX API. Rik <rik@octave.org> parents: 22454 diff changeset	317
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	318 mxClassID get_class_id (void) const
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 id = mxUNKNOWN_CLASS;
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 std::string cn = val.class_name ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	323
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	324 if (cn == "double")
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	325 id = mxDOUBLE_CLASS;
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	326 else if (cn == "single")
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	327 id = mxSINGLE_CLASS;
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	328 else if (cn == "char")
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	329 id = mxCHAR_CLASS;
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	330 else if (cn == "logical")
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	331 id = mxLOGICAL_CLASS;
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	332 else if (cn == "cell")
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	333 id = mxCELL_CLASS;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	334 else if (cn == "struct")
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	335 id = mxSTRUCT_CLASS;
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	336 else if (cn == "function_handle")
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	337 id = mxFUNCTION_CLASS;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	338 else if (cn == "int8")
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	339 id = mxINT8_CLASS;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	340 else if (cn == "uint8")
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	341 id = mxUINT8_CLASS;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	342 else if (cn == "int16")
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	343 id = mxINT16_CLASS;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	344 else if (cn == "uint16")
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	345 id = mxUINT16_CLASS;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	346 else if (cn == "int32")
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	347 id = mxINT32_CLASS;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	348 else if (cn == "uint32")
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	349 id = mxUINT32_CLASS;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	350 else if (cn == "int64")
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	351 id = mxINT64_CLASS;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	352 else if (cn == "uint64")
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	353 id = mxUINT64_CLASS;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	354
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	355 return id;
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
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	358 const char *get_class_name (void) const
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	359 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	360 if (! class_name)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	361 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	362 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	363 class_name = mxArray::strsave (s.c_str ());
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	364 }
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 class_name;
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.
22449 e337b8e3592c Fix double free causing segfault in mxSetDimensions (bug #49010). Rik <rik@octave.org> parents: 22407 diff changeset	370 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	371
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	372 mxArray get_cell (mwIndex /idx*/) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	373 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	374 request_mutation ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	375 return 0;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	376 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	377
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	378 // Not allowed.
22449 e337b8e3592c Fix double free causing segfault in mxSetDimensions (bug #49010). Rik <rik@octave.org> parents: 22407 diff changeset	379 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	380
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	381 // FIXME: For sparse arrays, this should return the first non-zero value.
6332 debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	382 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	383
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	384 void *get_data (void) const
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	385 {
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	386 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	387
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	388 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	389 maybe_mark_foreign (retval);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	390 else
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	391 request_mutation ();
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 return retval;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	394 }
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 void *get_imag_data (void) const
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	397 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	398 void *retval = 0;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	399
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	400 if (is_numeric () && is_real_type ())
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	401 retval = 0;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	402 else
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	403 request_mutation ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	404
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	405 return retval;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	406 }
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 // Not allowed.
22449 e337b8e3592c Fix double free causing segfault in mxSetDimensions (bug #49010). Rik <rik@octave.org> parents: 22407 diff changeset	409 void set_data (void * /pr/) { request_mutation (); }
5900 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 // Not allowed.
22449 e337b8e3592c Fix double free causing segfault in mxSetDimensions (bug #49010). Rik <rik@octave.org> parents: 22407 diff changeset	412 void set_imag_data (void * /pi/) { request_mutation (); }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	413
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	414 mwIndex *get_ir (void) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	415 {
7179 32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	416 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	417 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	418
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	419 mwIndex *get_jc (void) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	420 {
7179 32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	421 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	422 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	423
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	424 mwSize get_nzmax (void) const { return val.nzmax (); }
5900 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 // Not allowed.
22449 e337b8e3592c Fix double free causing segfault in mxSetDimensions (bug #49010). Rik <rik@octave.org> parents: 22407 diff changeset	427 void set_ir (mwIndex * /ir/) { request_mutation (); }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	428
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	429 // Not allowed.
22449 e337b8e3592c Fix double free causing segfault in mxSetDimensions (bug #49010). Rik <rik@octave.org> parents: 22407 diff changeset	430 void set_jc (mwIndex * /jc/) { request_mutation (); }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	431
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	432 // Not allowed.
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	433 void set_nzmax (mwSize /nzmax/) { request_mutation (); }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	434
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	435 // Not allowed.
22449 e337b8e3592c Fix double free causing segfault in mxSetDimensions (bug #49010). Rik <rik@octave.org> parents: 22407 diff changeset	436 int add_field (const char * /key/)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	437 {
6400 566343604d95 [project @ 2007-03-08 22:58:22 by jwe] jwe parents: 6347 diff changeset	438 request_mutation ();
566343604d95 [project @ 2007-03-08 22:58:22 by jwe] jwe parents: 6347 diff changeset	439 return 0;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	440 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	441
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	442 // Not allowed.
6400 566343604d95 [project @ 2007-03-08 22:58:22 by jwe] jwe parents: 6347 diff changeset	443 void remove_field (int /key_num/) { request_mutation (); }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	444
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	445 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	446 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	447 request_mutation ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	448 return 0;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	449 }
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 // Not allowed.
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	452 void set_field_by_number (mwIndex /index/, int /key_num/,
22449 e337b8e3592c Fix double free causing segfault in mxSetDimensions (bug #49010). Rik <rik@octave.org> parents: 22407 diff changeset	453 mxArray * /val/)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	454 {
6400 566343604d95 [project @ 2007-03-08 22:58:22 by jwe] jwe parents: 6347 diff changeset	455 request_mutation ();
5900 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
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	458 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	459
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	460 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	461 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	462 request_mutation ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	463 return 0;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	464 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	465
22449 e337b8e3592c Fix double free causing segfault in mxSetDimensions (bug #49010). Rik <rik@octave.org> parents: 22407 diff changeset	466 int get_field_number (const char * /key/) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	467 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	468 request_mutation ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	469 return 0;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	470 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	471
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	472 int get_string (char *buf, mwSize buflen) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	473 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	474 int retval = 1;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	475
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	476 mwSize nel = get_number_of_elements ();
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	477
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	478 if (val.is_string () && nel < buflen)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	479 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	480 charNDArray tmp = val.char_array_value ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	481
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	482 const char *p = tmp.data ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	483
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	484 for (mwIndex i = 0; i < nel; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	485 buf[i] = p[i];
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	486
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	487 buf[nel] = 0;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	488
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	489 retval = 0;
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
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	492 return retval;
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
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	495 char *array_to_string (void) const
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	496 {
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	497 // FIXME: this is supposed to handle multi-byte character strings.
5900 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 char *buf = 0;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	500
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	501 if (val.is_string ())
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	502 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	503 mwSize nel = get_number_of_elements ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	504
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	505 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	506
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	507 if (buf)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	508 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	509 charNDArray tmp = val.char_array_value ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	510
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	511 const char *p = tmp.data ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	512
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	513 for (mwIndex i = 0; i < nel; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	514 buf[i] = p[i];
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	515
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	516 buf[nel] = '\0';
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	517 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	518 }
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 return buf;
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
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	523 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	524 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	525 // Force ndims, dims to be cached.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	526 get_dimensions ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	527
7357 3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	528 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	529 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	530
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	531 size_t get_element_size (void) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	532 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	533 // Force id to be cached.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	534 get_class_id ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	535
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	536 switch (id)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	537 {
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	538 case mxDOUBLE_CLASS: return sizeof (double);
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	539 case mxSINGLE_CLASS: return sizeof (float);
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	540 case mxCHAR_CLASS: return sizeof (mxChar);
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	541 case mxLOGICAL_CLASS: return sizeof (mxLogical);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	542 case mxCELL_CLASS: return sizeof (mxArray *);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	543 case mxSTRUCT_CLASS: return sizeof (mxArray *);
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	544 case mxFUNCTION_CLASS: return 0;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	545 case mxINT8_CLASS: return 1;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	546 case mxUINT8_CLASS: return 1;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	547 case mxINT16_CLASS: return 2;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	548 case mxUINT16_CLASS: return 2;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	549 case mxINT32_CLASS: return 4;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	550 case mxUINT32_CLASS: return 4;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	551 case mxINT64_CLASS: return 8;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	552 case mxUINT64_CLASS: return 8;
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	553 // FIXME: user-defined objects need their own class ID.
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	554 // What should they return, size of pointer?
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	555 default: return 0;
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	556 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	557 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	558
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	559 bool mutation_needed (void) const { return mutate_flag; }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	560
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	561 void request_mutation (void) const
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	562 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	563 if (mutate_flag)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	564 panic_impossible ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	565
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	566 mutate_flag = true;
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
17810 6da521da1c70 preserve cached mxArray_octave_value data while it's still in use (bug #40429) John W. Eaton <jwe@octave.org> parents: 17787 diff changeset	569 mxArray *mutate (void) const { return as_mxArray (); }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	570
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	571 octave_value as_octave_value (void) const { return val; }
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	572
5900 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_octave_value (const mxArray_octave_value& arg)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	576 : 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	577 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	578 ndims (arg.ndims),
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	579 dims (ndims > 0 ? static_cast<mwSize *>
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	580 (mxArray::malloc (ndims * sizeof (mwSize)))
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	581 : 0)
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 (dims)
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 for (mwIndex i = 0; i < ndims; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	586 dims[i] = arg.dims[i];
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 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	589
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	590 private:
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	591
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	592 octave_value val;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	593
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	594 mutable bool mutate_flag;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	595
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	596 // 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	597 // 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	598 // Matlab-style mxArray object.
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 mutable mxClassID id;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	601 mutable char *class_name;
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	602 mutable mwSize ndims;
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	603 mutable mwSize *dims;
12122 f4689107dd8c Explicitly disallow copying in some classes. Pascal Dupuis <Pascal.Dupuis@uclouvain.be> parents: 11586 diff changeset	604
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	605 // No assignment! FIXME: should this be implemented? Note that we
12122 f4689107dd8c Explicitly disallow copying in some classes. Pascal Dupuis <Pascal.Dupuis@uclouvain.be> parents: 11586 diff changeset	606 // do have a copy constructor.
f4689107dd8c Explicitly disallow copying in some classes. Pascal Dupuis <Pascal.Dupuis@uclouvain.be> parents: 11586 diff changeset	607
f4689107dd8c Explicitly disallow copying in some classes. Pascal Dupuis <Pascal.Dupuis@uclouvain.be> parents: 11586 diff changeset	608 mxArray_octave_value& operator = (const mxArray_octave_value&);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	609 };
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	610
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	611 // 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	612 // things that are common to all Matlab-style objects.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	613
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	614 class mxArray_matlab : public mxArray_base
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 protected:
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	617
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	618 mxArray_matlab (mxClassID id_arg = mxUNKNOWN_CLASS)
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 (0), dims (0) { }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	620
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	621 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	622 : mxArray_base (), class_name (0), id (id_arg),
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	623 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	624 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	625 {
20362 b9bd8786d310 fix incompatibility in mxCreateNumericArray (bug #45319) John W. Eaton <jwe@octave.org> parents: 20261 diff changeset	626 if (ndims_arg == 0)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	627 {
20261 2691947f5409 Change mxCreateNumericArray to be Matlab compatible for ndims < 2 (bug #45319). Rik <rik@octave.org> parents: 19739 diff changeset	628 dims[0] = 0;
2691947f5409 Change mxCreateNumericArray to be Matlab compatible for ndims < 2 (bug #45319). Rik <rik@octave.org> parents: 19739 diff changeset	629 dims[1] = 0;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	630 }
20362 b9bd8786d310 fix incompatibility in mxCreateNumericArray (bug #45319) John W. Eaton <jwe@octave.org> parents: 20261 diff changeset	631 else if (ndims_arg < 2)
b9bd8786d310 fix incompatibility in mxCreateNumericArray (bug #45319) John W. Eaton <jwe@octave.org> parents: 20261 diff changeset	632 {
b9bd8786d310 fix incompatibility in mxCreateNumericArray (bug #45319) John W. Eaton <jwe@octave.org> parents: 20261 diff changeset	633 dims[0] = 1;
b9bd8786d310 fix incompatibility in mxCreateNumericArray (bug #45319) John W. Eaton <jwe@octave.org> parents: 20261 diff changeset	634 dims[1] = 1;
b9bd8786d310 fix incompatibility in mxCreateNumericArray (bug #45319) John W. Eaton <jwe@octave.org> parents: 20261 diff changeset	635 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	636
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	637 for (mwIndex i = 0; i < ndims_arg; i++)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	638 dims[i] = dims_arg[i];
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	639
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	640 for (mwIndex i = ndims - 1; i > 1; i--)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	641 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	642 if (dims[i] == 1)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	643 ndims--;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	644 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	645 break;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	646 }
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
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	649 mxArray_matlab (mxClassID id_arg, const dim_vector& dv)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	650 : mxArray_base (), class_name (0), id (id_arg),
21660 53728df3e4c9 maint: for clarity, call ndims() rather than length() on dimension vectors. Rik <rik@octave.org> parents: 21301 diff changeset	651 ndims (dv.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	652 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	653 {
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	654 for (mwIndex i = 0; i < ndims; i++)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	655 dims[i] = dv(i);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	656
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	657 for (mwIndex i = ndims - 1; i > 1; i--)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	658 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	659 if (dims[i] == 1)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	660 ndims--;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	661 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	662 break;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	663 }
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
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	666 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	667 : 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	668 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	669 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	670 dims[0] = m;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	671 dims[1] = n;
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
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	674 public:
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	675
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	676 ~mxArray_matlab (void)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	677 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	678 mxFree (class_name);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	679 mxFree (dims);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	680 }
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 int is_cell (void) const { return id == mxCELL_CLASS; }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	683
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	684 int is_char (void) const { return id == mxCHAR_CLASS; }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	685
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	686 int is_complex (void) const { return 0; }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	687
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	688 int is_double (void) const { return id == mxDOUBLE_CLASS; }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	689
11100 cdf940db26a0 provide mxIsFunctionHandle MEX interface function John W. Eaton <jwe@octave.org> parents: 11073 diff changeset	690 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	691
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	692 int is_int16 (void) const { return id == mxINT16_CLASS; }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	693
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	694 int is_int32 (void) const { return id == mxINT32_CLASS; }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	695
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	696 int is_int64 (void) const { return id == mxINT64_CLASS; }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	697
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	698 int is_int8 (void) const { return id == mxINT8_CLASS; }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	699
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	700 int is_logical (void) const { return id == mxLOGICAL_CLASS; }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	701
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	702 int is_numeric (void) const
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	703 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	704 return (id == mxDOUBLE_CLASS \|\| id == mxSINGLE_CLASS
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	705 \|\| id == mxINT8_CLASS \|\| id == mxUINT8_CLASS
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	706 \|\| id == mxINT16_CLASS \|\| id == mxUINT16_CLASS
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	707 \|\| id == mxINT32_CLASS \|\| id == mxUINT32_CLASS
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	708 \|\| id == mxINT64_CLASS \|\| id == mxUINT64_CLASS);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	709 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	710
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	711 int is_single (void) const { return id == mxSINGLE_CLASS; }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	712
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	713 int is_sparse (void) const { return 0; }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	714
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	715 int is_struct (void) const { return id == mxSTRUCT_CLASS; }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	716
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	717 int is_uint16 (void) const { return id == mxUINT16_CLASS; }
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_uint32 (void) const { return id == mxUINT32_CLASS; }
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 int is_uint64 (void) const { return id == mxUINT64_CLASS; }
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 int is_uint8 (void) const { return id == mxUINT8_CLASS; }
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 int is_logical_scalar_true (void) const
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 return (is_logical_scalar ()
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	728 && static_cast<mxLogical *> (get_data ())[0] != 0);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	729 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	730
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	731 mwSize get_m (void) const { return dims[0]; }
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	732
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	733 mwSize get_n (void) const
6187 2a8922007c12 [project @ 2006-11-29 01:59:59 by jwe] jwe parents: 6071 diff changeset	734 {
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	735 mwSize n = 1;
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	736
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	737 for (mwSize i = ndims - 1 ; i > 0 ; i--)
6187 2a8922007c12 [project @ 2006-11-29 01:59:59 by jwe] jwe parents: 6071 diff changeset	738 n *= dims[i];
2a8922007c12 [project @ 2006-11-29 01:59:59 by jwe] jwe parents: 6071 diff changeset	739
2a8922007c12 [project @ 2006-11-29 01:59:59 by jwe] jwe parents: 6071 diff changeset	740 return n;
2a8922007c12 [project @ 2006-11-29 01:59:59 by jwe] jwe parents: 6071 diff changeset	741 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	742
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	743 mwSize *get_dimensions (void) const { return dims; }
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	744
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	745 mwSize get_number_of_dimensions (void) const { return ndims; }
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	746
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	747 void set_m (mwSize m) { dims[0] = m; }
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	748
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	749 void set_n (mwSize n) { dims[1] = n; }
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	750
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	751 int set_dimensions (mwSize *dims_arg, mwSize ndims_arg)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	752 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	753 ndims = ndims_arg;
22449 e337b8e3592c Fix double free causing segfault in mxSetDimensions (bug #49010). Rik <rik@octave.org> parents: 22407 diff changeset	754
e337b8e3592c Fix double free causing segfault in mxSetDimensions (bug #49010). Rik <rik@octave.org> parents: 22407 diff changeset	755 mxFree (dims);
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	756
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	757 if (ndims > 0)
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	758 {
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	759 dims
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	760 = static_cast<mwSize > (mxArray::malloc (ndims sizeof (mwSize)));
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	761
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	762 if (dims == NULL)
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	763 return 1;
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	764
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	765 for (int i = 0; i < ndims; i++)
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	766 dims[i] = dims_arg[i];
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	767
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	768 return 0;
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	769 }
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	770 else
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	771 {
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	772 dims = 0;
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	773 return 0;
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	774 }
5900 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
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	777 mwSize get_number_of_elements (void) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	778 {
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	779 mwSize retval = dims[0];
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	780
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	781 for (mwIndex i = 1; i < ndims; i++)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	782 retval *= dims[i];
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 return retval;
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 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	788
22462 6cb7813e5b2f Add new mxIsScalar function for MEX API. Rik <rik@octave.org> parents: 22454 diff changeset	789 bool is_scalar (void) const
6cb7813e5b2f Add new mxIsScalar function for MEX API. Rik <rik@octave.org> parents: 22454 diff changeset	790 {
6cb7813e5b2f Add new mxIsScalar function for MEX API. Rik <rik@octave.org> parents: 22454 diff changeset	791 return ndims == 2 && dims[0] == 1 && dims[1] == 1;
6cb7813e5b2f Add new mxIsScalar function for MEX API. Rik <rik@octave.org> parents: 22454 diff changeset	792 }
6cb7813e5b2f Add new mxIsScalar function for MEX API. Rik <rik@octave.org> parents: 22454 diff changeset	793
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	794 mxClassID get_class_id (void) const { return id; }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	795
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	796 const char *get_class_name (void) const
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	797 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	798 switch (id)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	799 {
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	800 case mxDOUBLE_CLASS: return "double";
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	801 case mxSINGLE_CLASS: return "single";
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	802 case mxCHAR_CLASS: return "char";
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	803 case mxLOGICAL_CLASS: return "logical";
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	804 case mxCELL_CLASS: return "cell";
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	805 case mxSTRUCT_CLASS: return "struct";
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	806 case mxFUNCTION_CLASS: return "function_handle";
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	807 case mxINT8_CLASS: return "int8";
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	808 case mxUINT8_CLASS: return "uint8";
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	809 case mxINT16_CLASS: return "int16";
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	810 case mxUINT16_CLASS: return "uint16";
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	811 case mxINT32_CLASS: return "int32";
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	812 case mxUINT32_CLASS: return "uint32";
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	813 case mxINT64_CLASS: return "int64";
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	814 case mxUINT64_CLASS: return "uint64";
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	815 case mxUNKNOWN_CLASS: return "unknown";
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	816 // FIXME: should return the classname of user-defined objects
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	817 default: return "unknown";
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 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	820
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	821 void set_class_name (const char *name_arg)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	822 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	823 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	824 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	825 strcpy (class_name, name_arg);
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
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	828 mxArray get_cell (mwIndex /idx*/) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	829 {
21151 bfd5e48c41a1 Rename local error in mex I/F from invalid_type_error to err_invalid_type. Rik <rik@octave.org> parents: 20940 diff changeset	830 err_invalid_type ();
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	831 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	832
22449 e337b8e3592c Fix double free causing segfault in mxSetDimensions (bug #49010). Rik <rik@octave.org> parents: 22407 diff changeset	833 void set_cell (mwIndex /idx/, mxArray * /val/)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	834 {
21151 bfd5e48c41a1 Rename local error in mex I/F from invalid_type_error to err_invalid_type. Rik <rik@octave.org> parents: 20940 diff changeset	835 err_invalid_type ();
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	836 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	837
6332 debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	838 double get_scalar (void) const
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	839 {
21151 bfd5e48c41a1 Rename local error in mex I/F from invalid_type_error to err_invalid_type. Rik <rik@octave.org> parents: 20940 diff changeset	840 err_invalid_type ();
6332 debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	841 }
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	842
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	843 void *get_data (void) const
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	844 {
21151 bfd5e48c41a1 Rename local error in mex I/F from invalid_type_error to err_invalid_type. Rik <rik@octave.org> parents: 20940 diff changeset	845 err_invalid_type ();
5900 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
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	848 void *get_imag_data (void) const
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	849 {
21151 bfd5e48c41a1 Rename local error in mex I/F from invalid_type_error to err_invalid_type. Rik <rik@octave.org> parents: 20940 diff changeset	850 err_invalid_type ();
5900 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
22449 e337b8e3592c Fix double free causing segfault in mxSetDimensions (bug #49010). Rik <rik@octave.org> parents: 22407 diff changeset	853 void set_data (void * /pr/)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	854 {
21151 bfd5e48c41a1 Rename local error in mex I/F from invalid_type_error to err_invalid_type. Rik <rik@octave.org> parents: 20940 diff changeset	855 err_invalid_type ();
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	856 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	857
22449 e337b8e3592c Fix double free causing segfault in mxSetDimensions (bug #49010). Rik <rik@octave.org> parents: 22407 diff changeset	858 void set_imag_data (void * /pi/)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	859 {
21151 bfd5e48c41a1 Rename local error in mex I/F from invalid_type_error to err_invalid_type. Rik <rik@octave.org> parents: 20940 diff changeset	860 err_invalid_type ();
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	861 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	862
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	863 mwIndex *get_ir (void) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	864 {
21151 bfd5e48c41a1 Rename local error in mex I/F from invalid_type_error to err_invalid_type. Rik <rik@octave.org> parents: 20940 diff changeset	865 err_invalid_type ();
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	866 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	867
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	868 mwIndex *get_jc (void) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	869 {
21151 bfd5e48c41a1 Rename local error in mex I/F from invalid_type_error to err_invalid_type. Rik <rik@octave.org> parents: 20940 diff changeset	870 err_invalid_type ();
5900 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
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	873 mwSize get_nzmax (void) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	874 {
21151 bfd5e48c41a1 Rename local error in mex I/F from invalid_type_error to err_invalid_type. Rik <rik@octave.org> parents: 20940 diff changeset	875 err_invalid_type ();
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	876 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	877
22449 e337b8e3592c Fix double free causing segfault in mxSetDimensions (bug #49010). Rik <rik@octave.org> parents: 22407 diff changeset	878 void set_ir (mwIndex * /ir/)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	879 {
21151 bfd5e48c41a1 Rename local error in mex I/F from invalid_type_error to err_invalid_type. Rik <rik@octave.org> parents: 20940 diff changeset	880 err_invalid_type ();
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	881 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	882
22449 e337b8e3592c Fix double free causing segfault in mxSetDimensions (bug #49010). Rik <rik@octave.org> parents: 22407 diff changeset	883 void set_jc (mwIndex * /jc/)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	884 {
21151 bfd5e48c41a1 Rename local error in mex I/F from invalid_type_error to err_invalid_type. Rik <rik@octave.org> parents: 20940 diff changeset	885 err_invalid_type ();
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	886 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	887
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	888 void set_nzmax (mwSize /nzmax/)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	889 {
21151 bfd5e48c41a1 Rename local error in mex I/F from invalid_type_error to err_invalid_type. Rik <rik@octave.org> parents: 20940 diff changeset	890 err_invalid_type ();
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	891 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	892
22449 e337b8e3592c Fix double free causing segfault in mxSetDimensions (bug #49010). Rik <rik@octave.org> parents: 22407 diff changeset	893 int add_field (const char * /key/)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	894 {
21151 bfd5e48c41a1 Rename local error in mex I/F from invalid_type_error to err_invalid_type. Rik <rik@octave.org> parents: 20940 diff changeset	895 err_invalid_type ();
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	896 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	897
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	898 void remove_field (int /key_num/)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	899 {
21151 bfd5e48c41a1 Rename local error in mex I/F from invalid_type_error to err_invalid_type. Rik <rik@octave.org> parents: 20940 diff changeset	900 err_invalid_type ();
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	901 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	902
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	903 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	904 {
21151 bfd5e48c41a1 Rename local error in mex I/F from invalid_type_error to err_invalid_type. Rik <rik@octave.org> parents: 20940 diff changeset	905 err_invalid_type ();
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	906 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	907
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	908 void set_field_by_number (mwIndex /index/, int /key_num/,
22449 e337b8e3592c Fix double free causing segfault in mxSetDimensions (bug #49010). Rik <rik@octave.org> parents: 22407 diff changeset	909 mxArray * /val/)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	910 {
21151 bfd5e48c41a1 Rename local error in mex I/F from invalid_type_error to err_invalid_type. Rik <rik@octave.org> parents: 20940 diff changeset	911 err_invalid_type ();
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	912 }
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 int get_number_of_fields (void) const
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	915 {
21151 bfd5e48c41a1 Rename local error in mex I/F from invalid_type_error to err_invalid_type. Rik <rik@octave.org> parents: 20940 diff changeset	916 err_invalid_type ();
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	917 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	918
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	919 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	920 {
21151 bfd5e48c41a1 Rename local error in mex I/F from invalid_type_error to err_invalid_type. Rik <rik@octave.org> parents: 20940 diff changeset	921 err_invalid_type ();
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	922 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	923
22449 e337b8e3592c Fix double free causing segfault in mxSetDimensions (bug #49010). Rik <rik@octave.org> parents: 22407 diff changeset	924 int get_field_number (const char * /key/) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	925 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	926 return -1;
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
22449 e337b8e3592c Fix double free causing segfault in mxSetDimensions (bug #49010). Rik <rik@octave.org> parents: 22407 diff changeset	929 int get_string (char * /buf/, mwSize /buflen/) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	930 {
21151 bfd5e48c41a1 Rename local error in mex I/F from invalid_type_error to err_invalid_type. Rik <rik@octave.org> parents: 20940 diff changeset	931 err_invalid_type ();
5900 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
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	934 char *array_to_string (void) const
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	935 {
21151 bfd5e48c41a1 Rename local error in mex I/F from invalid_type_error to err_invalid_type. Rik <rik@octave.org> parents: 20940 diff changeset	936 err_invalid_type ();
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	937 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	938
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	939 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	940 {
7357 3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	941 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	942 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	943
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	944 size_t get_element_size (void) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	945 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	946 switch (id)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	947 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	948 case mxCELL_CLASS: return sizeof (mxArray *);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	949 case mxSTRUCT_CLASS: return sizeof (mxArray *);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	950 case mxLOGICAL_CLASS: return sizeof (mxLogical);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	951 case mxCHAR_CLASS: return sizeof (mxChar);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	952 case mxDOUBLE_CLASS: return sizeof (double);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	953 case mxSINGLE_CLASS: return sizeof (float);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	954 case mxINT8_CLASS: return 1;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	955 case mxUINT8_CLASS: return 1;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	956 case mxINT16_CLASS: return 2;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	957 case mxUINT16_CLASS: return 2;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	958 case mxINT32_CLASS: return 4;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	959 case mxUINT32_CLASS: return 4;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	960 case mxINT64_CLASS: return 8;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	961 case mxUINT64_CLASS: return 8;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	962 case mxFUNCTION_CLASS: return 0;
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	963 // FIXME: user-defined objects need their own class ID.
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	964 // What should they return, size of pointer?
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	965 default: return 0;
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	966 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	967 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	968
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	969 protected:
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	970
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	971 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	972 : 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	973 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	974 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	975 {
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	976 for (mwIndex i = 0; i < ndims; i++)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	977 dims[i] = val.dims[i];
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
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	980 dim_vector
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	981 dims_to_dim_vector (void) const
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	982 {
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	983 mwSize nd = get_number_of_dimensions ();
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	984
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	985 mwSize *d = get_dimensions ();
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	986
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	987 dim_vector dv;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	988 dv.resize (nd);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	989
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	990 for (mwIndex i = 0; i < nd; i++)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	991 dv(i) = d[i];
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	992
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	993 return dv;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	994 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	995
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	996 private:
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	997
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	998 char *class_name;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	999
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1000 mxClassID id;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1001
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1002 mwSize ndims;
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1003 mwSize *dims;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1004
21151 bfd5e48c41a1 Rename local error in mex I/F from invalid_type_error to err_invalid_type. Rik <rik@octave.org> parents: 20940 diff changeset	1005 OCTAVE_NORETURN void err_invalid_type (void) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1006 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1007 error ("invalid type for operation");
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1008 }
12122 f4689107dd8c Explicitly disallow copying in some classes. Pascal Dupuis <Pascal.Dupuis@uclouvain.be> parents: 11586 diff changeset	1009
21151 bfd5e48c41a1 Rename local error in mex I/F from invalid_type_error to err_invalid_type. Rik <rik@octave.org> parents: 20940 diff changeset	1010 // No assignment!
bfd5e48c41a1 Rename local error in mex I/F from invalid_type_error to err_invalid_type. Rik <rik@octave.org> parents: 20940 diff changeset	1011 // FIXME: should this be implemented?
bfd5e48c41a1 Rename local error in mex I/F from invalid_type_error to err_invalid_type. Rik <rik@octave.org> parents: 20940 diff changeset	1012 // Note that we do have a copy constructor.
12122 f4689107dd8c Explicitly disallow copying in some classes. Pascal Dupuis <Pascal.Dupuis@uclouvain.be> parents: 11586 diff changeset	1013
f4689107dd8c Explicitly disallow copying in some classes. Pascal Dupuis <Pascal.Dupuis@uclouvain.be> parents: 11586 diff changeset	1014 mxArray_matlab& operator = (const mxArray_matlab&);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1015 };
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1016
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1017 // Matlab-style numeric, character, and logical data.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1018
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1019 class mxArray_number : public mxArray_matlab
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1020 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1021 public:
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1022
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1023 mxArray_number (mxClassID id_arg, mwSize ndims_arg, const mwSize *dims_arg,
22464 1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	1024 mxComplexity flag = mxREAL, bool init = true)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1025 : mxArray_matlab (id_arg, ndims_arg, dims_arg),
22464 1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	1026 pr (init ? mxArray::calloc (get_number_of_elements (),
1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	1027 get_element_size ())
1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	1028 : mxArray::malloc (get_number_of_elements ()
1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	1029 * get_element_size ())),
1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	1030 pi (flag == mxCOMPLEX
1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	1031 ? (init ? mxArray::calloc (get_number_of_elements (),
1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	1032 get_element_size ())
1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	1033 : mxArray::malloc (get_number_of_elements ()
1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	1034 * get_element_size ()))
1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	1035 : 0) { }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1036
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1037 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	1038 mxComplexity flag = mxREAL)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1039 : 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	1040 pr (mxArray::calloc (get_number_of_elements (), get_element_size ())),
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1041 pi (flag == mxCOMPLEX ? mxArray::calloc (get_number_of_elements (),
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1042 get_element_size ())
22464 1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	1043 : 0)
1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	1044 { }
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1045
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1046 mxArray_number (mxClassID id_arg, mwSize m, mwSize n,
22464 1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	1047 mxComplexity flag = mxREAL, bool init = true)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1048 : mxArray_matlab (id_arg, m, n),
22464 1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	1049 pr (init ? mxArray::calloc (get_number_of_elements (),
1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	1050 get_element_size ())
1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	1051 : mxArray::malloc (get_number_of_elements ()
1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	1052 * get_element_size ())),
1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	1053 pi (flag == mxCOMPLEX
1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	1054 ? (init ? mxArray::calloc (get_number_of_elements (),
1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	1055 get_element_size ())
1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	1056 : mxArray::malloc (get_number_of_elements ()
1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	1057 * get_element_size ()))
1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	1058 : 0)
1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	1059 { }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1060
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1061 mxArray_number (mxClassID id_arg, double val)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1062 : 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	1063 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	1064 pi (0)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1065 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1066 double dpr = static_cast<double > (pr);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1067 dpr[0] = val;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1068 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1069
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1070 mxArray_number (mxClassID id_arg, mxLogical val)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1071 : 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	1072 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	1073 pi (0)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1074 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1075 mxLogical lpr = static_cast<mxLogical > (pr);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1076 lpr[0] = val;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1077 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1078
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1079 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	1080 : 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	1081 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	1082 str ? strlen (str) : 0),
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1083 pr (mxArray::calloc (get_number_of_elements (), get_element_size ())),
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1084 pi (0)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1085 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1086 mxChar cpr = static_cast<mxChar > (pr);
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1087 mwSize nel = get_number_of_elements ();
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1088 for (mwIndex i = 0; i < nel; i++)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1089 cpr[i] = str[i];
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1090 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1091
17861 870f3e12e163 maint: Use phrase "FIXME:" for problem areas in code. Rik <rik@octave.org> parents: 17810 diff changeset	1092 // FIXME: ???
6806 afa9123c5faa [project @ 2007-07-30 18:36:01 by jwe] jwe parents: 6787 diff changeset	1093 mxArray_number (mwSize m, const char **str)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1094 : 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	1095 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	1096 pi (0)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1097 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1098 mxChar cpr = static_cast<mxChar > (pr);
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	1099
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1100 mwSize *dv = get_dimensions ();
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1101
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1102 mwSize nc = dv[1];
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1103
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1104 for (mwIndex j = 0; j < m; j++)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1105 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1106 const char *ptr = str[j];
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1107
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1108 size_t tmp_len = strlen (ptr);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1109
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1110 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	1111 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	1112
14632 954e1a180375 Silence warnings. Jordi Gutiérrez Hermoso <jordigh@octave.org> parents: 14138 diff changeset	1113 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	1114 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	1115 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1116 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1117
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	1118 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	1119
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1120 ~mxArray_number (void)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1121 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1122 mxFree (pr);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1123 mxFree (pi);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1124 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1125
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1126 int is_complex (void) const { return pi != 0; }
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1127
6332 debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1128 double get_scalar (void) const
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1129 {
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1130 double retval = 0;
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1131
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1132 switch (get_class_id ())
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1133 {
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1134 case mxDOUBLE_CLASS:
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1135 retval = (static_cast<double > (pr));
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1136 break;
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1137
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1138 case mxSINGLE_CLASS:
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1139 retval = (static_cast<float > (pr));
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1140 break;
6332 debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1141
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1142 case mxCHAR_CLASS:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1143 retval = (static_cast<mxChar > (pr));
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1144 break;
6332 debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1145
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1146 case mxLOGICAL_CLASS:
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1147 retval = (static_cast<bool > (pr));
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1148 break;
6332 debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1149
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1150 case mxINT8_CLASS:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1151 retval = (static_cast<int8_t > (pr));
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1152 break;
6332 debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1153
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1154 case mxUINT8_CLASS:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1155 retval = (static_cast<uint8_t > (pr));
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1156 break;
6332 debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1157
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1158 case mxINT16_CLASS:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1159 retval = (static_cast<int16_t > (pr));
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1160 break;
6332 debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1161
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1162 case mxUINT16_CLASS:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1163 retval = (static_cast<uint16_t > (pr));
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1164 break;
6332 debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1165
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1166 case mxINT32_CLASS:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1167 retval = (static_cast<int32_t > (pr));
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1168 break;
6332 debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1169
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1170 case mxUINT32_CLASS:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1171 retval = (static_cast<uint32_t > (pr));
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1172 break;
6332 debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1173
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1174 case mxINT64_CLASS:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1175 retval = (static_cast<int64_t > (pr));
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1176 break;
6332 debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1177
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1178 case mxUINT64_CLASS:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1179 retval = (static_cast<uint64_t > (pr));
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1180 break;
6332 debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1181
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1182 default:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1183 panic_impossible ();
6332 debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1184 }
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1185
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1186 return retval;
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1187 }
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1188
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1189 void *get_data (void) const { return pr; }
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1190
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1191 void *get_imag_data (void) const { return pi; }
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1192
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1193 void set_data (void *pr_arg) { pr = pr_arg; }
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1194
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1195 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	1196
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1197 int get_string (char *buf, mwSize buflen) const
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1198 {
13753 ab4238b0b09b Change return value of mxGetString to match Matlab (Bug #34546) Rik <octave@nomad.inbox5.com> parents: 12472 diff changeset	1199 int retval = 0;
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1200
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1201 mwSize nel = get_number_of_elements ();
6493 5fa513371dde [project @ 2007-04-05 14:53:49 by jwe] jwe parents: 6400 diff changeset	1202
13753 ab4238b0b09b Change return value of mxGetString to match Matlab (Bug #34546) Rik <octave@nomad.inbox5.com> parents: 12472 diff changeset	1203 if (! (nel < buflen))
ab4238b0b09b Change return value of mxGetString to match Matlab (Bug #34546) Rik <octave@nomad.inbox5.com> parents: 12472 diff changeset	1204 {
ab4238b0b09b Change return value of mxGetString to match Matlab (Bug #34546) Rik <octave@nomad.inbox5.com> parents: 12472 diff changeset	1205 retval = 1;
ab4238b0b09b Change return value of mxGetString to match Matlab (Bug #34546) Rik <octave@nomad.inbox5.com> parents: 12472 diff changeset	1206 if (buflen > 0)
ab4238b0b09b Change return value of mxGetString to match Matlab (Bug #34546) Rik <octave@nomad.inbox5.com> parents: 12472 diff changeset	1207 nel = buflen-1;
ab4238b0b09b Change return value of mxGetString to match Matlab (Bug #34546) Rik <octave@nomad.inbox5.com> parents: 12472 diff changeset	1208 }
ab4238b0b09b Change return value of mxGetString to match Matlab (Bug #34546) Rik <octave@nomad.inbox5.com> parents: 12472 diff changeset	1209
6493 5fa513371dde [project @ 2007-04-05 14:53:49 by jwe] jwe parents: 6400 diff changeset	1210 if (nel < buflen)
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1211 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1212 mxChar ptr = static_cast<mxChar > (pr);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1213
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1214 for (mwIndex i = 0; i < nel; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1215 buf[i] = static_cast<char> (ptr[i]);
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 buf[nel] = 0;
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1218 }
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1219
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1220 return retval;
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1221 }
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1222
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1223 char *array_to_string (void) const
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1224 {
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1225 // FIXME: this is supposed to handle multi-byte character strings.
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1226
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1227 mwSize nel = get_number_of_elements ();
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1228
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	1229 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	1230
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1231 if (buf)
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1232 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1233 mxChar ptr = static_cast<mxChar > (pr);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1234
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1235 for (mwIndex i = 0; i < nel; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1236 buf[i] = static_cast<char> (ptr[i]);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1237
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1238 buf[nel] = '\0';
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1239 }
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1240
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1241 return buf;
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1242 }
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1243
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1244 octave_value as_octave_value (void) const
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1245 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1246 octave_value retval;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1247
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1248 dim_vector dv = dims_to_dim_vector ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1249
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1250 switch (get_class_id ())
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1251 {
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1252 case mxDOUBLE_CLASS:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1253 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1254 mwSize nel = get_number_of_elements ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1255
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1256 double ppr = static_cast<double > (pr);
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1257
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1258 if (pi)
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1259 {
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1260 ComplexNDArray val (dv);
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1261
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1262 Complex *ptr = val.fortran_vec ();
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1263
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1264 double ppi = static_cast<double > (pi);
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1265
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1266 for (mwIndex i = 0; i < nel; i++)
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1267 ptr[i] = Complex (ppr[i], ppi[i]);
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1268
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1269 retval = val;
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1270 }
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1271 else
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1272 {
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1273 NDArray val (dv);
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1274
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1275 double *ptr = val.fortran_vec ();
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1276
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1277 for (mwIndex i = 0; i < nel; i++)
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1278 ptr[i] = ppr[i];
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1279
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1280 retval = val;
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1281 }
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1282 }
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 case mxSINGLE_CLASS:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1286 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1287 mwSize nel = get_number_of_elements ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1288
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1289 float ppr = static_cast<float > (pr);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1290
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1291 if (pi)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1292 {
11132 6ed521ed2d6a Stop converting single valued output from mex files to doubles. Gunnar Farneback <gunnar@lysator.liu.se> parents: 11100 diff changeset	1293 FloatComplexNDArray val (dv);
6ed521ed2d6a Stop converting single valued output from mex files to doubles. Gunnar Farneback <gunnar@lysator.liu.se> parents: 11100 diff changeset	1294
6ed521ed2d6a Stop converting single valued output from mex files to doubles. Gunnar Farneback <gunnar@lysator.liu.se> parents: 11100 diff changeset	1295 FloatComplex *ptr = val.fortran_vec ();
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1296
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1297 float ppi = static_cast<float > (pi);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1298
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1299 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	1300 ptr[i] = FloatComplex (ppr[i], ppi[i]);
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1301
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1302 retval = val;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1303 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1304 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1305 {
11132 6ed521ed2d6a Stop converting single valued output from mex files to doubles. Gunnar Farneback <gunnar@lysator.liu.se> parents: 11100 diff changeset	1306 FloatNDArray val (dv);
6ed521ed2d6a Stop converting single valued output from mex files to doubles. Gunnar Farneback <gunnar@lysator.liu.se> parents: 11100 diff changeset	1307
6ed521ed2d6a Stop converting single valued output from mex files to doubles. Gunnar Farneback <gunnar@lysator.liu.se> parents: 11100 diff changeset	1308 float *ptr = val.fortran_vec ();
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1309
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1310 for (mwIndex i = 0; i < nel; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1311 ptr[i] = ppr[i];
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1312
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1313 retval = val;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1314 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1315 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1316 break;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1317
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1318 case mxCHAR_CLASS:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1319 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1320 mwSize nel = get_number_of_elements ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1321
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1322 mxChar ppr = static_cast<mxChar > (pr);
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1323
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1324 charNDArray val (dv);
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1325
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1326 char *ptr = val.fortran_vec ();
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1327
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1328 for (mwIndex i = 0; i < nel; i++)
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1329 ptr[i] = static_cast<char> (ppr[i]);
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1330
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1331 retval = val;
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1332 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1333 break;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1334
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1335 case mxLOGICAL_CLASS:
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1336 retval = int_to_ov<mxLogical, boolNDArray, bool> (dv);
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1337 break;
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1338
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1339 case mxINT8_CLASS:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1340 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	1341 break;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1342
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1343 case mxUINT8_CLASS:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1344 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	1345 break;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1346
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1347 case mxINT16_CLASS:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1348 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	1349 break;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1350
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1351 case mxUINT16_CLASS:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1352 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	1353 break;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1354
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1355 case mxINT32_CLASS:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1356 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	1357 break;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1358
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1359 case mxUINT32_CLASS:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1360 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	1361 break;
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 case mxINT64_CLASS:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1364 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	1365 break;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1366
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1367 case mxUINT64_CLASS:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1368 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	1369 break;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1370
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1371 default:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1372 panic_impossible ();
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	1373 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1374
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1375 return retval;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1376 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1377
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	1378 protected:
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	1379
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	1380 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	1381 octave_value
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	1382 int_to_ov (const dim_vector& dv) const
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	1383 {
21151 bfd5e48c41a1 Rename local error in mex I/F from invalid_type_error to err_invalid_type. Rik <rik@octave.org> parents: 20940 diff changeset	1384 if (pi)
bfd5e48c41a1 Rename local error in mex I/F from invalid_type_error to err_invalid_type. Rik <rik@octave.org> parents: 20940 diff changeset	1385 error ("complex integer types are not supported");
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	1386
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	1387 mwSize nel = get_number_of_elements ();
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	1388
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	1389 ELT_T ppr = static_cast<ELT_T > (pr);
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	1390
21151 bfd5e48c41a1 Rename local error in mex I/F from invalid_type_error to err_invalid_type. Rik <rik@octave.org> parents: 20940 diff changeset	1391 ARRAY_T val (dv);
bfd5e48c41a1 Rename local error in mex I/F from invalid_type_error to err_invalid_type. Rik <rik@octave.org> parents: 20940 diff changeset	1392
bfd5e48c41a1 Rename local error in mex I/F from invalid_type_error to err_invalid_type. Rik <rik@octave.org> parents: 20940 diff changeset	1393 ARRAY_ELT_T *ptr = val.fortran_vec ();
bfd5e48c41a1 Rename local error in mex I/F from invalid_type_error to err_invalid_type. Rik <rik@octave.org> parents: 20940 diff changeset	1394
bfd5e48c41a1 Rename local error in mex I/F from invalid_type_error to err_invalid_type. Rik <rik@octave.org> parents: 20940 diff changeset	1395 for (mwIndex i = 0; i < nel; i++)
bfd5e48c41a1 Rename local error in mex I/F from invalid_type_error to err_invalid_type. Rik <rik@octave.org> parents: 20940 diff changeset	1396 ptr[i] = ppr[i];
bfd5e48c41a1 Rename local error in mex I/F from invalid_type_error to err_invalid_type. Rik <rik@octave.org> parents: 20940 diff changeset	1397
bfd5e48c41a1 Rename local error in mex I/F from invalid_type_error to err_invalid_type. Rik <rik@octave.org> parents: 20940 diff changeset	1398 return octave_value (val);
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	1399 }
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	1400
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1401 mxArray_number (const mxArray_number& val)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1402 : 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	1403 pr (mxArray::malloc (get_number_of_elements () * get_element_size ())),
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1404 pi (val.pi ? mxArray::malloc (get_number_of_elements ()
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1405 * get_element_size ())
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1406 : 0)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1407 {
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1408 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	1409
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1410 if (pr)
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1411 memcpy (pr, val.pr, nbytes);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1412
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1413 if (pi)
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1414 memcpy (pi, val.pi, nbytes);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1415 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1416
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1417 private:
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1418
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1419 void *pr;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1420 void *pi;
12122 f4689107dd8c Explicitly disallow copying in some classes. Pascal Dupuis <Pascal.Dupuis@uclouvain.be> parents: 11586 diff changeset	1421
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1422 // No assignment! FIXME: should this be implemented? Note that we
12122 f4689107dd8c Explicitly disallow copying in some classes. Pascal Dupuis <Pascal.Dupuis@uclouvain.be> parents: 11586 diff changeset	1423 // do have a copy constructor.
f4689107dd8c Explicitly disallow copying in some classes. Pascal Dupuis <Pascal.Dupuis@uclouvain.be> parents: 11586 diff changeset	1424
f4689107dd8c Explicitly disallow copying in some classes. Pascal Dupuis <Pascal.Dupuis@uclouvain.be> parents: 11586 diff changeset	1425 mxArray_number& operator = (const mxArray_number&);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1426 };
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1427
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1428 // Matlab-style sparse arrays.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1429
5903 11bb9bf343a0 [project @ 2006-07-26 03:36:33 by jwe] jwe parents: 5902 diff changeset	1430 class mxArray_sparse : public mxArray_matlab
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1431 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1432 public:
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1433
14839 e2ac6e2c588a use mwSize for size arguments to mxArray_sparse constructor (bug #36783) John W. Eaton <jwe@octave.org> parents: 14138 diff changeset	1434 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	1435 mxComplexity flag = mxREAL)
12123 9ea6f69259d7 more constructor initialization fixes Pascal Dupuis <Pascal.Dupuis@uclouvain.be> parents: 12122 diff changeset	1436 : 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	1437 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	1438 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	1439 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	1440 jc (static_cast<mwIndex *> (mxArray::calloc (n + 1, sizeof (mwIndex))))
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1441 { }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1442
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	1443 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	1444
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1445 ~mxArray_sparse (void)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1446 {
5903 11bb9bf343a0 [project @ 2006-07-26 03:36:33 by jwe] jwe parents: 5902 diff changeset	1447 mxFree (pr);
11bb9bf343a0 [project @ 2006-07-26 03:36:33 by jwe] jwe parents: 5902 diff changeset	1448 mxFree (pi);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1449 mxFree (ir);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1450 mxFree (jc);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1451 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1452
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1453 int is_complex (void) const { return pi != 0; }
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1454
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1455 int is_sparse (void) const { return 1; }
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1456
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1457 void *get_data (void) const { return pr; }
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1458
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1459 void *get_imag_data (void) const { return pi; }
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1460
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1461 void set_data (void *pr_arg) { pr = pr_arg; }
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1462
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1463 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	1464
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1465 mwIndex *get_ir (void) const { return ir; }
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1466
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1467 mwIndex *get_jc (void) const { return jc; }
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1468
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1469 mwSize get_nzmax (void) const { return nzmax; }
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1470
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1471 void set_ir (mwIndex *ir_arg) { ir = ir_arg; }
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1472
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1473 void set_jc (mwIndex *jc_arg) { jc = jc_arg; }
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1474
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1475 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	1476
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1477 octave_value as_octave_value (void) const
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1478 {
5903 11bb9bf343a0 [project @ 2006-07-26 03:36:33 by jwe] jwe parents: 5902 diff changeset	1479 octave_value retval;
11bb9bf343a0 [project @ 2006-07-26 03:36:33 by jwe] jwe parents: 5902 diff changeset	1480
11bb9bf343a0 [project @ 2006-07-26 03:36:33 by jwe] jwe parents: 5902 diff changeset	1481 dim_vector dv = dims_to_dim_vector ();
11bb9bf343a0 [project @ 2006-07-26 03:36:33 by jwe] jwe parents: 5902 diff changeset	1482
11bb9bf343a0 [project @ 2006-07-26 03:36:33 by jwe] jwe parents: 5902 diff changeset	1483 switch (get_class_id ())
11bb9bf343a0 [project @ 2006-07-26 03:36:33 by jwe] jwe parents: 5902 diff changeset	1484 {
11bb9bf343a0 [project @ 2006-07-26 03:36:33 by jwe] jwe parents: 5902 diff changeset	1485 case mxDOUBLE_CLASS:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1486 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1487 if (pi)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1488 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1489 double ppr = static_cast<double > (pr);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1490 double ppi = static_cast<double > (pi);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1491
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1492 SparseComplexMatrix val (get_m (), get_n (),
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1493 static_cast<octave_idx_type> (nzmax));
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1494
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1495 for (mwIndex i = 0; i < nzmax; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1496 {
14861 f7afecdd87ef maint: Use Octave coding conventions for cuddling parentheses in src/ directory Rik <octave@nomad.inbox5.com> parents: 14846 diff changeset	1497 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	1498 val.xridx (i) = ir[i];
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1499 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1500
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1501 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	1502 val.xcidx (i) = jc[i];
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1503
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1504 retval = val;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1505 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1506 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1507 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1508 double ppr = static_cast<double > (pr);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1509
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1510 SparseMatrix val (get_m (), get_n (),
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1511 static_cast<octave_idx_type> (nzmax));
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1512
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1513 for (mwIndex i = 0; i < nzmax; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1514 {
14861 f7afecdd87ef maint: Use Octave coding conventions for cuddling parentheses in src/ directory Rik <octave@nomad.inbox5.com> parents: 14846 diff changeset	1515 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	1516 val.xridx (i) = ir[i];
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1517 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1518
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1519 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	1520 val.xcidx (i) = jc[i];
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1521
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1522 retval = val;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1523 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1524 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1525 break;
5903 11bb9bf343a0 [project @ 2006-07-26 03:36:33 by jwe] jwe parents: 5902 diff changeset	1526
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1527 case mxLOGICAL_CLASS:
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1528 {
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1529 bool ppr = static_cast<bool > (pr);
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1530
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1531 SparseBoolMatrix val (get_m (), get_n (),
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1532 static_cast<octave_idx_type> (nzmax));
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1533
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1534 for (mwIndex i = 0; i < nzmax; i++)
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1535 {
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1536 val.xdata (i) = ppr[i];
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1537 val.xridx (i) = ir[i];
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1538 }
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1539
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1540 for (mwIndex i = 0; i < get_n () + 1; i++)
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1541 val.xcidx (i) = jc[i];
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1542
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1543 retval = val;
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1544 }
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1545 break;
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1546
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1547 case mxSINGLE_CLASS:
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1548 error ("single precision sparse data type not supported");
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1549 break;
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1550
5903 11bb9bf343a0 [project @ 2006-07-26 03:36:33 by jwe] jwe parents: 5902 diff changeset	1551 default:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1552 panic_impossible ();
5903 11bb9bf343a0 [project @ 2006-07-26 03:36:33 by jwe] jwe parents: 5902 diff changeset	1553 }
11bb9bf343a0 [project @ 2006-07-26 03:36:33 by jwe] jwe parents: 5902 diff changeset	1554
11bb9bf343a0 [project @ 2006-07-26 03:36:33 by jwe] jwe parents: 5902 diff changeset	1555 return retval;
5900 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
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1558 private:
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1559
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1560 mwSize nzmax;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1561
5903 11bb9bf343a0 [project @ 2006-07-26 03:36:33 by jwe] jwe parents: 5902 diff changeset	1562 void *pr;
11bb9bf343a0 [project @ 2006-07-26 03:36:33 by jwe] jwe parents: 5902 diff changeset	1563 void *pi;
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1564 mwIndex *ir;
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1565 mwIndex *jc;
5900 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 mxArray_sparse (const mxArray_sparse& val)
5903 11bb9bf343a0 [project @ 2006-07-26 03:36:33 by jwe] jwe parents: 5902 diff changeset	1568 : 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	1569 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	1570 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	1571 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	1572 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	1573 {
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1574 size_t nbytes = nzmax * get_element_size ();
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1575
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1576 if (pr)
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1577 memcpy (pr, val.pr, nbytes);
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1578
5903 11bb9bf343a0 [project @ 2006-07-26 03:36:33 by jwe] jwe parents: 5902 diff changeset	1579 if (pi)
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1580 memcpy (pi, val.pi, nbytes);
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1581
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1582 if (ir)
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1583 memcpy (ir, val.ir, nzmax * sizeof (mwIndex));
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1584
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1585 if (jc)
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1586 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	1587 }
12122 f4689107dd8c Explicitly disallow copying in some classes. Pascal Dupuis <Pascal.Dupuis@uclouvain.be> parents: 11586 diff changeset	1588
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1589 // No assignment! FIXME: should this be implemented? Note that we
12122 f4689107dd8c Explicitly disallow copying in some classes. Pascal Dupuis <Pascal.Dupuis@uclouvain.be> parents: 11586 diff changeset	1590 // do have a copy constructor.
f4689107dd8c Explicitly disallow copying in some classes. Pascal Dupuis <Pascal.Dupuis@uclouvain.be> parents: 11586 diff changeset	1591
f4689107dd8c Explicitly disallow copying in some classes. Pascal Dupuis <Pascal.Dupuis@uclouvain.be> parents: 11586 diff changeset	1592 mxArray_sparse& operator = (const mxArray_sparse&);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1593 };
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1594
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1595 // Matlab-style struct arrays.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1596
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1597 class mxArray_struct : public mxArray_matlab
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1598 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1599 public:
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1600
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1601 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	1602 const char **keys)
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1603 : mxArray_matlab (mxSTRUCT_CLASS, ndims_arg, dims_arg),
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1604 nfields (num_keys_arg),
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1605 fields (static_cast<char **> (mxArray::calloc (nfields,
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1606 sizeof (char *)))),
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1607 data (static_cast<mxArray *> (mxArray::calloc (nfields
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1608 get_number_of_elements (),
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1609 sizeof (mxArray *))))
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1610 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1611 init (keys);
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
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1614 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	1615 : mxArray_matlab (mxSTRUCT_CLASS, dv), nfields (num_keys_arg),
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1616 fields (static_cast<char **> (mxArray::calloc (nfields,
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1617 sizeof (char *)))),
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1618 data (static_cast<mxArray *> (mxArray::calloc (nfields
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1619 get_number_of_elements (),
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1620 sizeof (mxArray *))))
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1621 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1622 init (keys);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1623 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1624
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1625 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	1626 : mxArray_matlab (mxSTRUCT_CLASS, m, n), nfields (num_keys_arg),
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1627 fields (static_cast<char **> (mxArray::calloc (nfields,
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1628 sizeof (char *)))),
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1629 data (static_cast<mxArray *> (mxArray::calloc (nfields
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1630 get_number_of_elements (),
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1631 sizeof (mxArray *))))
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1632 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1633 init (keys);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1634 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1635
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1636 void init (const char **keys)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1637 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1638 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	1639 fields[i] = mxArray::strsave (keys[i]);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1640 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1641
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	1642 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	1643
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1644 ~mxArray_struct (void)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1645 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1646 for (int i = 0; i < nfields; i++)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1647 mxFree (fields[i]);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1648
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1649 mxFree (fields);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1650
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1651 mwSize ntot = nfields * get_number_of_elements ();
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1652
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1653 for (mwIndex i = 0; i < ntot; i++)
5905 e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	1654 delete data[i];
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1655
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1656 mxFree (data);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1657 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1658
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1659 int add_field (const char *key)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1660 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1661 int retval = -1;
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 if (valid_key (key))
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1664 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1665 nfields++;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1666
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1667 fields = static_cast<char **>
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1668 (mxRealloc (fields, nfields * sizeof (char *)));
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1669
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1670 if (fields)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1671 {
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	1672 fields[nfields-1] = mxArray::strsave (key);
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1673
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1674 mwSize nel = get_number_of_elements ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1675
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1676 mwSize ntot = nfields * nel;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1677
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1678 mxArray **new_data;
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1679 new_data = static_cast<mxArray **>
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1680 (mxArray::malloc (ntot * sizeof (mxArray *)));
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1681
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1682 if (new_data)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1683 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1684 mwIndex j = 0;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1685 mwIndex k = 0;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1686 mwIndex n = 0;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1687
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1688 for (mwIndex i = 0; i < ntot; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1689 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1690 if (++n == nfields)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1691 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1692 new_data[j++] = 0;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1693 n = 0;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1694 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1695 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1696 new_data[j++] = data[k++];
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1697 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1698
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1699 mxFree (data);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1700
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1701 data = new_data;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1702
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1703 retval = nfields - 1;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1704 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1705 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1706 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1707
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1708 return retval;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1709 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1710
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1711 void remove_field (int key_num)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1712 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1713 if (key_num >= 0 && key_num < nfields)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1714 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1715 mwSize nel = get_number_of_elements ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1716
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1717 mwSize ntot = nfields * nel;
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 int new_nfields = nfields - 1;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1720
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1721 char new_fields = static_cast<char >
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1722 (mxArray::malloc (new_nfields * sizeof (char *)));
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1723
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1724 mxArray new_data = static_cast<mxArray >
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1725 (mxArray::malloc (new_nfields * nel
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1726 * sizeof (mxArray *)));
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1727
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1728 for (int i = 0; i < key_num; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1729 new_fields[i] = fields[i];
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1730
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1731 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	1732 new_fields[i-1] = fields[i];
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1733
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1734 if (new_nfields > 0)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1735 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1736 mwIndex j = 0;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1737 mwIndex k = 0;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1738 mwIndex n = 0;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1739
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1740 for (mwIndex i = 0; i < ntot; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1741 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1742 if (n == key_num)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1743 k++;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1744 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1745 new_data[j++] = data[k++];
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1746
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1747 if (++n == nfields)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1748 n = 0;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1749 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1750 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1751
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1752 nfields = new_nfields;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1753
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1754 mxFree (fields);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1755 mxFree (data);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1756
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1757 fields = new_fields;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1758 data = new_data;
5900 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 }
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 *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	1763 {
6187 2a8922007c12 [project @ 2006-11-29 01:59:59 by jwe] jwe parents: 6071 diff changeset	1764 return key_num >= 0 && key_num < nfields
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1765 ? data[nfields * index + key_num] : 0;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1766 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1767
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1768 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	1769
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1770 int get_number_of_fields (void) const { return nfields; }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1771
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1772 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	1773 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1774 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	1775 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1776
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1777 int get_field_number (const char *key) const
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1778 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1779 int retval = -1;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1780
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1781 for (int i = 0; i < nfields; i++)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1782 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1783 if (! strcmp (key, fields[i]))
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1784 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1785 retval = i;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1786 break;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1787 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1788 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1789
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1790 return retval;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1791 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1792
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1793 void *get_data (void) const { return data; }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1794
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1795 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	1796
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1797 octave_value as_octave_value (void) const
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1798 {
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1799 dim_vector dv = dims_to_dim_vector ();
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1800
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1801 string_vector keys (fields, nfields);
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1802
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	1803 octave_map m;
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1804
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1805 mwSize ntot = nfields * get_number_of_elements ();
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1806
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1807 for (int i = 0; i < nfields; i++)
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1808 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1809 Cell c (dv);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1810
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1811 octave_value *p = c.fortran_vec ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1812
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1813 mwIndex k = 0;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1814 for (mwIndex j = i; j < ntot; j += nfields)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1815 p[k++] = mxArray::as_octave_value (data[j]);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1816
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1817 m.assign (keys[i], c);
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1818 }
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1819
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1820 return m;
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1821 }
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1822
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1823 private:
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1824
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1825 int nfields;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1826
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1827 char **fields;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1828
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1829 mxArray **data;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1830
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1831 mxArray_struct (const mxArray_struct& val)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1832 : mxArray_matlab (val), nfields (val.nfields),
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1833 fields (static_cast<char **> (mxArray::malloc (nfields
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1834 * sizeof (char *)))),
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1835 data (static_cast<mxArray *> (mxArray::malloc (nfields
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1836 get_number_of_elements ()
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1837 * sizeof (mxArray *))))
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1838 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1839 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	1840 fields[i] = mxArray::strsave (val.fields[i]);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1841
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1842 mwSize nel = get_number_of_elements ();
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1843
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1844 for (mwIndex i = 0; i < nel * nfields; i++)
6347 e40a46a100b6 [project @ 2007-02-23 00:28:58 by jwe] jwe parents: 6338 diff changeset	1845 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1846 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	1847 data[i] = ptr ? ptr->dup () : 0;
6347 e40a46a100b6 [project @ 2007-02-23 00:28:58 by jwe] jwe parents: 6338 diff changeset	1848 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1849 }
12122 f4689107dd8c Explicitly disallow copying in some classes. Pascal Dupuis <Pascal.Dupuis@uclouvain.be> parents: 11586 diff changeset	1850
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1851 // No assignment! FIXME: should this be implemented? Note that we
12122 f4689107dd8c Explicitly disallow copying in some classes. Pascal Dupuis <Pascal.Dupuis@uclouvain.be> parents: 11586 diff changeset	1852 // do have a copy constructor.
f4689107dd8c Explicitly disallow copying in some classes. Pascal Dupuis <Pascal.Dupuis@uclouvain.be> parents: 11586 diff changeset	1853
f4689107dd8c Explicitly disallow copying in some classes. Pascal Dupuis <Pascal.Dupuis@uclouvain.be> parents: 11586 diff changeset	1854 mxArray_struct& operator = (const mxArray_struct& val);
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
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1857 // Matlab-style cell arrays.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1858
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1859 class mxArray_cell : public mxArray_matlab
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1860 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1861 public:
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1862
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1863 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	1864 : mxArray_matlab (mxCELL_CLASS, ndims_arg, dims_arg),
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1865 data (static_cast<mxArray **> (mxArray::calloc (get_number_of_elements (),
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1866 sizeof (mxArray *)))) { }
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_cell (const dim_vector& dv)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1869 : mxArray_matlab (mxCELL_CLASS, dv),
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1870 data (static_cast<mxArray **> (mxArray::calloc (get_number_of_elements (),
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1871 sizeof (mxArray *)))) { }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1872
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1873 mxArray_cell (mwSize m, mwSize n)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1874 : mxArray_matlab (mxCELL_CLASS, m, n),
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1875 data (static_cast<mxArray **> (mxArray::calloc (get_number_of_elements (),
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1876 sizeof (mxArray *)))) { }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1877
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	1878 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	1879
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1880 ~mxArray_cell (void)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1881 {
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1882 mwSize nel = get_number_of_elements ();
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1883
22449 e337b8e3592c Fix double free causing segfault in mxSetDimensions (bug #49010). Rik <rik@octave.org> parents: 22407 diff changeset	1884 for (mwIndex i = 0; i < nel; i++)
5905 e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	1885 delete data[i];
5900 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 mxFree (data);
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
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1890 mxArray *get_cell (mwIndex idx) const
6187 2a8922007c12 [project @ 2006-11-29 01:59:59 by jwe] jwe parents: 6071 diff changeset	1891 {
2a8922007c12 [project @ 2006-11-29 01:59:59 by jwe] jwe parents: 6071 diff changeset	1892 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	1893 }
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1894
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1895 void set_cell (mwIndex idx, mxArray *val);
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1896
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1897 void *get_data (void) const { return data; }
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1898
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1899 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	1900
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1901 octave_value as_octave_value (void) const
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1902 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1903 dim_vector dv = dims_to_dim_vector ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1904
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1905 Cell c (dv);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1906
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1907 mwSize nel = get_number_of_elements ();
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1908
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1909 octave_value *p = c.fortran_vec ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1910
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1911 for (mwIndex i = 0; i < nel; i++)
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1912 p[i] = mxArray::as_octave_value (data[i]);
5900 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 return c;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1915 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1916
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1917 private:
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1918
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1919 mxArray **data;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1920
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1921 mxArray_cell (const mxArray_cell& val)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1922 : mxArray_matlab (val),
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1923 data (static_cast<mxArray **> (mxArray::malloc (get_number_of_elements ()
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1924 * sizeof (mxArray *))))
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1925 {
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1926 mwSize nel = get_number_of_elements ();
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1927
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1928 for (mwIndex i = 0; i < nel; i++)
6347 e40a46a100b6 [project @ 2007-02-23 00:28:58 by jwe] jwe parents: 6338 diff changeset	1929 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1930 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	1931 data[i] = ptr ? ptr->dup () : 0;
6347 e40a46a100b6 [project @ 2007-02-23 00:28:58 by jwe] jwe parents: 6338 diff changeset	1932 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1933 }
12122 f4689107dd8c Explicitly disallow copying in some classes. Pascal Dupuis <Pascal.Dupuis@uclouvain.be> parents: 11586 diff changeset	1934
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1935 // No assignment! FIXME: should this be implemented? Note that we
12122 f4689107dd8c Explicitly disallow copying in some classes. Pascal Dupuis <Pascal.Dupuis@uclouvain.be> parents: 11586 diff changeset	1936 // do have a copy constructor.
f4689107dd8c Explicitly disallow copying in some classes. Pascal Dupuis <Pascal.Dupuis@uclouvain.be> parents: 11586 diff changeset	1937
f4689107dd8c Explicitly disallow copying in some classes. Pascal Dupuis <Pascal.Dupuis@uclouvain.be> parents: 11586 diff changeset	1938 mxArray_cell& operator = (const mxArray_cell&);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1939 };
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1940
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1941 // ------------------------------------------------------------------
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1942
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1943 mxArray::mxArray (const octave_value& ov)
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	1944 : rep (new mxArray_octave_value (ov)), name (0) { }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1945
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1946 mxArray::mxArray (mxClassID id, mwSize ndims, const mwSize *dims,
22464 1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	1947 mxComplexity flag, bool init)
1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	1948 : rep (new mxArray_number (id, ndims, dims, flag, init)), name (0) { }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1949
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1950 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	1951 : 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	1952
22464 1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	1953 mxArray::mxArray (mxClassID id, mwSize m, mwSize n,
1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	1954 mxComplexity flag, bool init)
1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	1955 : rep (new mxArray_number (id, m, n, flag, init)), name (0) { }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1956
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1957 mxArray::mxArray (mxClassID id, double val)
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	1958 : rep (new mxArray_number (id, val)), name (0) { }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1959
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1960 mxArray::mxArray (mxClassID id, mxLogical val)
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	1961 : rep (new mxArray_number (id, val)), name (0) { }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1962
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1963 mxArray::mxArray (const char *str)
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	1964 : rep (new mxArray_number (str)), name (0) { }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1965
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1966 mxArray::mxArray (mwSize m, const char **str)
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	1967 : rep (new mxArray_number (m, str)), name (0) { }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1968
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1969 mxArray::mxArray (mxClassID id, mwSize m, mwSize n, mwSize nzmax,
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1970 mxComplexity flag)
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	1971 : 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	1972
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1973 mxArray::mxArray (mwSize ndims, const mwSize *dims, int num_keys,
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1974 const char **keys)
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	1975 : 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	1976
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1977 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	1978 : 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	1979
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1980 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	1981 : 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	1982
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1983 mxArray::mxArray (mwSize ndims, const mwSize *dims)
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	1984 : rep (new mxArray_cell (ndims, dims)), name (0) { }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1985
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1986 mxArray::mxArray (const dim_vector& dv)
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	1987 : rep (new mxArray_cell (dv)), name (0) { }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1988
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1989 mxArray::mxArray (mwSize m, mwSize n)
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	1990 : rep (new mxArray_cell (m, n)), name (0) { }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1991
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1992 mxArray::~mxArray (void)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1993 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1994 mxFree (name);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1995
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1996 delete rep;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1997 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1998
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1999 void
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2000 mxArray::set_name (const char *name_arg)
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 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	2003 name = mxArray::strsave (name_arg);
5900 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
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	2006 octave_value
15353 5f3a69a309a7 fix decl of mexPutVariable John W. Eaton <jwe@octave.org> parents: 15351 diff changeset	2007 mxArray::as_octave_value (const mxArray *ptr)
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	2008 {
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	2009 return ptr ? ptr->as_octave_value () : octave_value (Matrix ());
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	2010 }
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	2011
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	2012 octave_value
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	2013 mxArray::as_octave_value (void) const
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	2014 {
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	2015 return rep->as_octave_value ();
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	2016 }
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	2017
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2018 void
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2019 mxArray::maybe_mutate (void) const
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 if (rep->is_octave_value ())
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 // 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	2024 // 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	2025 // 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	2026
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2027 mxArray *new_val = rep->mutate ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2028
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2029 if (new_val)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2030 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2031 delete rep;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2032 rep = new_val->rep;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2033 new_val->rep = 0;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2034 delete new_val;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2035 }
5900 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 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2038
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2039 // ------------------------------------------------------------------
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2040
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2041 // 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	2042 // management.
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2043
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2044 class mex
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2045 {
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2046 public:
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2047
6068 c9f0839c583f [project @ 2006-10-20 16:54:30 by jwe] jwe parents: 6065 diff changeset	2048 mex (octave_mex_function *f)
c9f0839c583f [project @ 2006-10-20 16:54:30 by jwe] jwe parents: 6065 diff changeset	2049 : curr_mex_fcn (f), memlist (), arraylist (), fname (0) { }
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2050
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2051 ~mex (void)
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2052 {
20771 ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	2053 // We can't use mex::free here because it modifies memlist.
ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	2054 while (! memlist.empty ())
ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	2055 {
ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	2056 std::set<void *>::iterator p = memlist.begin ();
ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	2057 xfree (*p);
ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	2058 memlist.erase (p);
ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	2059 }
ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	2060
ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	2061 // We can't use mex::free_value here because it modifies arraylist.
ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	2062 while (! arraylist.empty ())
ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	2063 {
ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	2064 std::set<mxArray *>::iterator p = arraylist.begin ();
ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	2065 delete *p;
ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	2066 arraylist.erase (p);
ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	2067 }
ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	2068
ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	2069 if (! (memlist.empty () && arraylist.empty ()))
5905 e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	2070 error ("mex: %s: cleanup failed", function_name ());
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2071
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2072 mxFree (fname);
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2073 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2074
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2075 const char *function_name (void) const
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2076 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2077 if (! fname)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2078 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2079 octave_function *fcn = octave_call_stack::current ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2080
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2081 if (fcn)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2082 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2083 std::string nm = fcn->name ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2084 fname = mxArray::strsave (nm.c_str ());
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 fname = mxArray::strsave ("unknown");
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2088 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2089
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2090 return fname;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2091 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2092
6071 950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2093 // Allocate memory.
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2094 void *malloc_unmarked (size_t n)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2095 {
21942 aab79a1885cc limit gnulib headers to liboctave/wrappers directory John W. Eaton <jwe@octave.org> parents: 21751 diff changeset	2096 void *ptr = std::malloc (n);
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 if (! ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2099 {
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	2100 // FIXME: could use "octave_new_handler();" instead
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2101 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	2102 function_name (), n);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2103 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2104
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2105 global_mark (ptr);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2106
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2107 return ptr;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2108 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2109
6071 950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2110 // Allocate memory to be freed on exit.
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2111 void *malloc (size_t n)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2112 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2113 void *ptr = malloc_unmarked (n);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2114
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2115 mark (ptr);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2116
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2117 return ptr;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2118 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2119
6071 950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2120 // Allocate memory and initialize to 0.
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2121 void *calloc_unmarked (size_t n, size_t t)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2122 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2123 void ptr = malloc_unmarked (nt);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2124
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2125 memset (ptr, 0, n*t);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2126
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2127 return ptr;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2128 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2129
6071 950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2130 // 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	2131 void *calloc (size_t n, size_t t)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2132 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2133 void *ptr = calloc_unmarked (n, t);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2134
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2135 mark (ptr);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2136
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2137 return ptr;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2138 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2139
21751 b571fc85953f maint: Use two spaces after period to indicate sentence break. Rik <rik@octave.org> parents: 21743 diff changeset	2140 // Reallocate a pointer obtained from malloc or calloc.
b571fc85953f maint: Use two spaces after period to indicate sentence break. Rik <rik@octave.org> parents: 21743 diff changeset	2141 // If the pointer is NULL, allocate using malloc.
b571fc85953f maint: Use two spaces after period to indicate sentence break. Rik <rik@octave.org> parents: 21743 diff changeset	2142 // We don't need an "unmarked" version of this.
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2143 void realloc (void ptr, size_t n)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2144 {
10225 477d05b0a739 mxRealloc: Allocate new memory on NULL argument David Grundberg <davidg@cs.umu.se> parents: 10127 diff changeset	2145 void *v;
477d05b0a739 mxRealloc: Allocate new memory on NULL argument David Grundberg <davidg@cs.umu.se> parents: 10127 diff changeset	2146
477d05b0a739 mxRealloc: Allocate new memory on NULL argument David Grundberg <davidg@cs.umu.se> parents: 10127 diff changeset	2147 if (ptr)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2148 {
21942 aab79a1885cc limit gnulib headers to liboctave/wrappers directory John W. Eaton <jwe@octave.org> parents: 21751 diff changeset	2149 v = std::realloc (ptr, n);
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	2150
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2151 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	2152
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2153 if (v && p != memlist.end ())
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2154 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2155 memlist.erase (p);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2156 memlist.insert (v);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2157 }
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	2158
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2159 p = global_memlist.find (ptr);
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	2160
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2161 if (v && p != global_memlist.end ())
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2162 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2163 global_memlist.erase (p);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2164 global_memlist.insert (v);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2165 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2166 }
10225 477d05b0a739 mxRealloc: Allocate new memory on NULL argument David Grundberg <davidg@cs.umu.se> parents: 10127 diff changeset	2167 else
477d05b0a739 mxRealloc: Allocate new memory on NULL argument David Grundberg <davidg@cs.umu.se> parents: 10127 diff changeset	2168 v = malloc (n);
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 return v;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2171 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2172
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2173 // Free a pointer obtained from malloc or calloc.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2174 void free (void *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2175 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2176 if (ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2177 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2178 unmark (ptr);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2179
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2180 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	2181
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2182 if (p != global_memlist.end ())
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2183 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2184 global_memlist.erase (p);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2185
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2186 xfree (ptr);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2187 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2188 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2189 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2190 p = foreign_memlist.find (ptr);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2191
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2192 if (p != foreign_memlist.end ())
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2193 foreign_memlist.erase (p);
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21660 diff changeset	2194 #if defined (DEBUG)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2195 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2196 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	2197 #endif
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2198 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2199 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2200 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2201
7172 e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2202 // Mark a pointer to be freed on exit.
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2203 void mark (void *ptr)
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2204 {
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21660 diff changeset	2205 #if defined (DEBUG)
7172 e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2206 if (memlist.find (ptr) != memlist.end ())
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2207 warning ("%s: double registration ignored", function_name ());
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2208 #endif
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2209
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2210 memlist.insert (ptr);
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2211 }
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2212
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2213 // 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	2214 // made persistent, or because it was already freed.
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2215 void unmark (void *ptr)
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2216 {
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2217 std::set<void *>::iterator p = memlist.find (ptr);
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2218
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2219 if (p != memlist.end ())
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2220 memlist.erase (p);
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21660 diff changeset	2221 #if defined (DEBUG)
7172 e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2222 else
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2223 warning ("%s: value not marked", function_name ());
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2224 #endif
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2225 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2226
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2227 mxArray mark_array (mxArray ptr)
814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2228 {
814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2229 arraylist.insert (ptr);
814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2230 return ptr;
814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2231 }
814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2232
6071 950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2233 void unmark_array (mxArray *ptr)
950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2234 {
950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2235 std::set<mxArray *>::iterator p = arraylist.find (ptr);
950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2236
950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2237 if (p != arraylist.end ())
950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2238 arraylist.erase (p);
950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2239 }
950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2240
7179 32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2241 // Mark a pointer as one we allocated.
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2242 void mark_foreign (void *ptr)
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2243 {
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21660 diff changeset	2244 #if defined (DEBUG)
7179 32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2245 if (foreign_memlist.find (ptr) != foreign_memlist.end ())
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2246 warning ("%s: double registration ignored", function_name ());
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2247 #endif
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2248
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2249 foreign_memlist.insert (ptr);
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2250 }
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2251
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2252 // Unmark a pointer as one we allocated.
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2253 void unmark_foreign (void *ptr)
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2254 {
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2255 std::set<void *>::iterator p = foreign_memlist.find (ptr);
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2256
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2257 if (p != foreign_memlist.end ())
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2258 foreign_memlist.erase (p);
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21660 diff changeset	2259 #if defined (DEBUG)
7179 32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2260 else
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2261 warning ("%s: value not marked", function_name ());
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2262 #endif
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2263
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2264 }
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2265
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2266 // 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	2267 // freed on exit unless marked as persistent.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2268 mxArray *make_value (const octave_value& ov)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2269 {
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2270 return mark_array (new mxArray (ov));
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2271 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2272
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2273 // Free an array and its contents.
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2274 bool free_value (mxArray *ptr)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2275 {
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2276 bool inlist = false;
814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2277
5905 e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	2278 std::set<mxArray *>::iterator p = arraylist.find (ptr);
e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	2279
e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	2280 if (p != arraylist.end ())
e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	2281 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2282 inlist = true;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2283 arraylist.erase (p);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2284 delete ptr;
5905 e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	2285 }
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21660 diff changeset	2286 #if defined (DEBUG)
5905 e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	2287 else
e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	2288 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	2289 #endif
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2290
814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2291 return inlist;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2292 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2293
6068 c9f0839c583f [project @ 2006-10-20 16:54:30 by jwe] jwe parents: 6065 diff changeset	2294 octave_mex_function *current_mex_function (void) const
c9f0839c583f [project @ 2006-10-20 16:54:30 by jwe] jwe parents: 6065 diff changeset	2295 {
c9f0839c583f [project @ 2006-10-20 16:54:30 by jwe] jwe parents: 6065 diff changeset	2296 return curr_mex_fcn;
c9f0839c583f [project @ 2006-10-20 16:54:30 by jwe] jwe parents: 6065 diff changeset	2297 }
c9f0839c583f [project @ 2006-10-20 16:54:30 by jwe] jwe parents: 6065 diff changeset	2298
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2299 // 1 if error should be returned to MEX file, 0 if abort.
22452 3a8af9d517de Initialize MEX TrapFlag variable for Matlab compatibility. Rik <rik@octave.org> parents: 22451 diff changeset	2300 int trap_feval_error = 0;
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2301
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2302 private:
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2303
6068 c9f0839c583f [project @ 2006-10-20 16:54:30 by jwe] jwe parents: 6065 diff changeset	2304 // 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	2305 octave_mex_function *curr_mex_fcn;
c9f0839c583f [project @ 2006-10-20 16:54:30 by jwe] jwe parents: 6065 diff changeset	2306
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2307 // 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	2308 std::set<void *> memlist;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2309
7179 32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2310 // 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	2311 std::set<mxArray *> arraylist;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2312
7179 32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2313 // 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	2314 // elsewhere.
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2315 std::set<void *> foreign_memlist;
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2316
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2317 // The name of the currently executing function.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2318 mutable char *fname;
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 // List of memory resources we allocated.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2321 static std::set<void *> global_memlist;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2322
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2323 // Mark a pointer as one we allocated.
5905 e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	2324 void global_mark (void *ptr)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2325 {
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21660 diff changeset	2326 #if defined (DEBUG)
5905 e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	2327 if (global_memlist.find (ptr) != global_memlist.end ())
e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	2328 warning ("%s: double registration ignored", function_name ());
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2329 #endif
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2330
5905 e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	2331 global_memlist.insert (ptr);
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2332 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2333
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2334 // Unmark a pointer as one we allocated.
5905 e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	2335 void global_unmark (void *ptr)
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2336 {
5905 e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	2337 std::set<void *>::iterator p = global_memlist.find (ptr);
e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	2338
e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	2339 if (p != global_memlist.end ())
e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	2340 global_memlist.erase (p);
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21660 diff changeset	2341 #if defined (DEBUG)
5905 e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	2342 else
e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	2343 warning ("%s: value not marked", function_name ());
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2344 #endif
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2345
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2346 }
12122 f4689107dd8c Explicitly disallow copying in some classes. Pascal Dupuis <Pascal.Dupuis@uclouvain.be> parents: 11586 diff changeset	2347
f4689107dd8c Explicitly disallow copying in some classes. Pascal Dupuis <Pascal.Dupuis@uclouvain.be> parents: 11586 diff changeset	2348 // No copying!
f4689107dd8c Explicitly disallow copying in some classes. Pascal Dupuis <Pascal.Dupuis@uclouvain.be> parents: 11586 diff changeset	2349
f4689107dd8c Explicitly disallow copying in some classes. Pascal Dupuis <Pascal.Dupuis@uclouvain.be> parents: 11586 diff changeset	2350 mex (const mex&);
f4689107dd8c Explicitly disallow copying in some classes. Pascal Dupuis <Pascal.Dupuis@uclouvain.be> parents: 11586 diff changeset	2351
f4689107dd8c Explicitly disallow copying in some classes. Pascal Dupuis <Pascal.Dupuis@uclouvain.be> parents: 11586 diff changeset	2352 mex& operator = (const mex&);
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2353 };
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2354
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2355 // List of memory resources we allocated.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2356 std::set<void *> mex::global_memlist;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2357
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2358 // Current context.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2359 mex *mex_context = 0;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2360
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 mxArray::malloc (size_t n)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2363 {
21942 aab79a1885cc limit gnulib headers to liboctave/wrappers directory John W. Eaton <jwe@octave.org> parents: 21751 diff changeset	2364 return mex_context ? mex_context->malloc_unmarked (n) : std::malloc (n);
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 mxArray::calloc (size_t n, size_t t)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2369 {
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2370 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	2371 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2372
7179 32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2373 static inline void *
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2374 maybe_mark_foreign (void *ptr)
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2375 {
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2376 if (mex_context)
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2377 mex_context->mark_foreign (ptr);
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2378
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2379 return ptr;
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2380 }
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2381
6071 950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2382 static inline mxArray *
950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2383 maybe_unmark_array (mxArray *ptr)
950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2384 {
950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2385 if (mex_context)
950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2386 mex_context->unmark_array (ptr);
950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2387
950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2388 return ptr;
950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2389 }
950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2390
7172 e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2391 static inline void *
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2392 maybe_unmark (void *ptr)
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2393 {
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2394 if (mex_context)
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2395 mex_context->unmark (ptr);
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2396
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2397 return ptr;
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2398 }
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2399
6071 950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2400 void
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2401 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	2402 {
6187 2a8922007c12 [project @ 2006-11-29 01:59:59 by jwe] jwe parents: 6071 diff changeset	2403 if (key_num >= 0 && key_num < nfields)
2a8922007c12 [project @ 2006-11-29 01:59:59 by jwe] jwe parents: 6071 diff changeset	2404 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	2405 }
950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2406
950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2407 void
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2408 mxArray_cell::set_cell (mwIndex idx, mxArray *val)
6071 950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2409 {
6187 2a8922007c12 [project @ 2006-11-29 01:59:59 by jwe] jwe parents: 6071 diff changeset	2410 if (idx >= 0 && idx < get_number_of_elements ())
2a8922007c12 [project @ 2006-11-29 01:59:59 by jwe] jwe parents: 6071 diff changeset	2411 data[idx] = maybe_unmark_array (val);
6071 950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2412 }
950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2413
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2414 // ------------------------------------------------------------------
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2415
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2416 // C interface to mxArray objects:
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 // Floating point predicates.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2419
22465 6149f6b34cbc Change all mxIs* functions in MEX API to return bool rather than int. Rik <rik@octave.org> parents: 22464 diff changeset	2420 bool
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2421 mxIsFinite (const double v)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2422 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2423 return lo_ieee_finite (v) != 0;
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
22465 6149f6b34cbc Change all mxIs* functions in MEX API to return bool rather than int. Rik <rik@octave.org> parents: 22464 diff changeset	2426 bool
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2427 mxIsInf (const double v)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2428 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2429 return lo_ieee_isinf (v) != 0;
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
22465 6149f6b34cbc Change all mxIs* functions in MEX API to return bool rather than int. Rik <rik@octave.org> parents: 22464 diff changeset	2432 bool
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2433 mxIsNaN (const double v)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2434 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2435 return lo_ieee_isnan (v) != 0;
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
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2438 double
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2439 mxGetEps (void)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2440 {
15220 61822c866ba1 use std::numeric_limits<T>::epsilon in C++ code John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	2441 return std::numeric_limits<double>::epsilon ();
5900 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
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2444 double
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2445 mxGetInf (void)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2446 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2447 return lo_ieee_inf_value ();
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
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2450 double
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2451 mxGetNaN (void)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2452 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2453 return lo_ieee_nan_value ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2454 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2455
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2456 // Memory management.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2457 void *
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2458 mxCalloc (size_t n, size_t size)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2459 {
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	2460 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	2461 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2462
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2463 void *
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2464 mxMalloc (size_t n)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2465 {
21942 aab79a1885cc limit gnulib headers to liboctave/wrappers directory John W. Eaton <jwe@octave.org> parents: 21751 diff changeset	2466 return mex_context ? mex_context->malloc (n) : std::malloc (n);
5900 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
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2469 void *
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2470 mxRealloc (void *ptr, size_t size)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2471 {
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	2472 return mex_context ? mex_context->realloc (ptr, size)
21942 aab79a1885cc limit gnulib headers to liboctave/wrappers directory John W. Eaton <jwe@octave.org> parents: 21751 diff changeset	2473 : std::realloc (ptr, size);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2474 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2475
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2476 void
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2477 mxFree (void *ptr)
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2478 {
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2479 if (mex_context)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2480 mex_context->free (ptr);
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2481 else
6071 950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2482 xfree (ptr);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2483 }
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2484
814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2485 static inline mxArray *
814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2486 maybe_mark_array (mxArray *ptr)
814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2487 {
814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2488 return mex_context ? mex_context->mark_array (ptr) : ptr;
814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2489 }
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	2490
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2491 // Constructors.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2492 mxArray *
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2493 mxCreateCellArray (mwSize ndims, const mwSize *dims)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2494 {
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2495 return maybe_mark_array (new mxArray (ndims, dims));
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2496 }
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 mxArray *
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2499 mxCreateCellMatrix (mwSize m, mwSize n)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2500 {
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2501 return maybe_mark_array (new mxArray (m, n));
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2502 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2503
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2504 mxArray *
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2505 mxCreateCharArray (mwSize ndims, const mwSize *dims)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2506 {
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2507 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	2508 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2509
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2510 mxArray *
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2511 mxCreateCharMatrixFromStrings (mwSize m, const char **str)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2512 {
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2513 return maybe_mark_array (new mxArray (m, str));
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2514 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2515
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2516 mxArray *
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2517 mxCreateDoubleMatrix (mwSize m, mwSize n, mxComplexity flag)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2518 {
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2519 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	2520 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2521
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2522 mxArray *
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2523 mxCreateDoubleScalar (double val)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2524 {
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2525 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	2526 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2527
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2528 mxArray *
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2529 mxCreateLogicalArray (mwSize ndims, const mwSize *dims)
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2530 {
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2531 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	2532 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2533
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2534 mxArray *
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2535 mxCreateLogicalMatrix (mwSize m, mwSize n)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2536 {
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2537 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	2538 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2539
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2540 mxArray *
7577 ba8fcc115fee mex.cc: arg to mxCreateLogicalScalar is now mxLogical John W. Eaton <jwe@octave.org> parents: 7357 diff changeset	2541 mxCreateLogicalScalar (mxLogical val)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2542 {
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2543 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	2544 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2545
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2546 mxArray *
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2547 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	2548 mxComplexity flag)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2549 {
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2550 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	2551 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2552
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2553 mxArray *
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	2554 mxCreateNumericMatrix (mwSize m, mwSize n, mxClassID class_id,
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	2555 mxComplexity flag)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2556 {
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2557 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	2558 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2559
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2560 mxArray *
22464 1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	2561 mxCreateUninitNumericArray (mwSize ndims, const mwSize *dims,
1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	2562 mxClassID class_id, mxComplexity flag)
1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	2563 {
1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	2564 return maybe_mark_array (new mxArray (class_id, ndims, dims, flag, false));
1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	2565 }
1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	2566
1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	2567 mxArray *
1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	2568 mxCreateUninitNumericMatrix (mwSize m, mwSize n, mxClassID class_id,
1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	2569 mxComplexity flag)
1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	2570 {
1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	2571 return maybe_mark_array (new mxArray (class_id, m, n, flag, false));
1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	2572 }
1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	2573
1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	2574 mxArray *
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2575 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	2576 {
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2577 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	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 mxArray *
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2581 mxCreateSparseLogicalMatrix (mwSize m, mwSize n, mwSize nzmax)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2582 {
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2583 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	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 mxArray *
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2587 mxCreateString (const char *str)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2588 {
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2589 return maybe_mark_array (new mxArray (str));
5900 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 mxArray *
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	2593 mxCreateStructArray (mwSize ndims, const mwSize *dims, int num_keys,
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	2594 const char **keys)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2595 {
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2596 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	2597 }
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2598
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2599 mxArray *
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2600 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	2601 {
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2602 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	2603 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2604
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2605 // Copy constructor.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2606 mxArray *
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2607 mxDuplicateArray (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2608 {
11277 7d5351fc575a mex.cc: convert mxArray_octave_value to matlab style representation when duplicating John W. Eaton <jwe@octave.org> parents: 11276 diff changeset	2609 return maybe_mark_array (ptr->dup ());
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2610 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2611
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2612 // Destructor.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2613 void
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2614 mxDestroyArray (mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2615 {
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2616 if (! (mex_context && mex_context->free_value (ptr)))
814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2617 delete ptr;
5900 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
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2620 // Type Predicates.
22465 6149f6b34cbc Change all mxIs* functions in MEX API to return bool rather than int. Rik <rik@octave.org> parents: 22464 diff changeset	2621 bool
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2622 mxIsCell (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2623 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2624 return ptr->is_cell ();
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
22465 6149f6b34cbc Change all mxIs* functions in MEX API to return bool rather than int. Rik <rik@octave.org> parents: 22464 diff changeset	2627 bool
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2628 mxIsChar (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2629 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2630 return ptr->is_char ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2631 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2632
22465 6149f6b34cbc Change all mxIs* functions in MEX API to return bool rather than int. Rik <rik@octave.org> parents: 22464 diff changeset	2633 bool
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2634 mxIsClass (const mxArray ptr, const char name)
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 return ptr->is_class (name);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2637 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2638
22465 6149f6b34cbc Change all mxIs* functions in MEX API to return bool rather than int. Rik <rik@octave.org> parents: 22464 diff changeset	2639 bool
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2640 mxIsComplex (const mxArray *ptr)
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 return ptr->is_complex ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2643 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2644
22465 6149f6b34cbc Change all mxIs* functions in MEX API to return bool rather than int. Rik <rik@octave.org> parents: 22464 diff changeset	2645 bool
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2646 mxIsDouble (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2647 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2648 return ptr->is_double ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2649 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2650
22465 6149f6b34cbc Change all mxIs* functions in MEX API to return bool rather than int. Rik <rik@octave.org> parents: 22464 diff changeset	2651 bool
11100 cdf940db26a0 provide mxIsFunctionHandle MEX interface function John W. Eaton <jwe@octave.org> parents: 11073 diff changeset	2652 mxIsFunctionHandle (const mxArray *ptr)
cdf940db26a0 provide mxIsFunctionHandle MEX interface function John W. Eaton <jwe@octave.org> parents: 11073 diff changeset	2653 {
cdf940db26a0 provide mxIsFunctionHandle MEX interface function John W. Eaton <jwe@octave.org> parents: 11073 diff changeset	2654 return ptr->is_function_handle ();
cdf940db26a0 provide mxIsFunctionHandle MEX interface function John W. Eaton <jwe@octave.org> parents: 11073 diff changeset	2655 }
cdf940db26a0 provide mxIsFunctionHandle MEX interface function John W. Eaton <jwe@octave.org> parents: 11073 diff changeset	2656
22465 6149f6b34cbc Change all mxIs* functions in MEX API to return bool rather than int. Rik <rik@octave.org> parents: 22464 diff changeset	2657 bool
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2658 mxIsInt16 (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2659 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2660 return ptr->is_int16 ();
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
22465 6149f6b34cbc Change all mxIs* functions in MEX API to return bool rather than int. Rik <rik@octave.org> parents: 22464 diff changeset	2663 bool
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2664 mxIsInt32 (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2665 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2666 return ptr->is_int32 ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2667 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2668
22465 6149f6b34cbc Change all mxIs* functions in MEX API to return bool rather than int. Rik <rik@octave.org> parents: 22464 diff changeset	2669 bool
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2670 mxIsInt64 (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2671 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2672 return ptr->is_int64 ();
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
22465 6149f6b34cbc Change all mxIs* functions in MEX API to return bool rather than int. Rik <rik@octave.org> parents: 22464 diff changeset	2675 bool
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2676 mxIsInt8 (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2677 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2678 return ptr->is_int8 ();
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
22465 6149f6b34cbc Change all mxIs* functions in MEX API to return bool rather than int. Rik <rik@octave.org> parents: 22464 diff changeset	2681 bool
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2682 mxIsLogical (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2683 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2684 return ptr->is_logical ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2685 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2686
22465 6149f6b34cbc Change all mxIs* functions in MEX API to return bool rather than int. Rik <rik@octave.org> parents: 22464 diff changeset	2687 bool
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2688 mxIsNumeric (const mxArray *ptr)
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 return ptr->is_numeric ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2691 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2692
22465 6149f6b34cbc Change all mxIs* functions in MEX API to return bool rather than int. Rik <rik@octave.org> parents: 22464 diff changeset	2693 bool
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2694 mxIsSingle (const mxArray *ptr)
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 return ptr->is_single ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2697 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2698
22465 6149f6b34cbc Change all mxIs* functions in MEX API to return bool rather than int. Rik <rik@octave.org> parents: 22464 diff changeset	2699 bool
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2700 mxIsSparse (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2701 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2702 return ptr->is_sparse ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2703 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2704
22465 6149f6b34cbc Change all mxIs* functions in MEX API to return bool rather than int. Rik <rik@octave.org> parents: 22464 diff changeset	2705 bool
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2706 mxIsStruct (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 ptr->is_struct ();
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
22465 6149f6b34cbc Change all mxIs* functions in MEX API to return bool rather than int. Rik <rik@octave.org> parents: 22464 diff changeset	2711 bool
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2712 mxIsUint16 (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 ptr->is_uint16 ();
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
22465 6149f6b34cbc Change all mxIs* functions in MEX API to return bool rather than int. Rik <rik@octave.org> parents: 22464 diff changeset	2717 bool
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2718 mxIsUint32 (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2719 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2720 return ptr->is_uint32 ();
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
22465 6149f6b34cbc Change all mxIs* functions in MEX API to return bool rather than int. Rik <rik@octave.org> parents: 22464 diff changeset	2723 bool
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2724 mxIsUint64 (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 ptr->is_uint64 ();
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
22465 6149f6b34cbc Change all mxIs* functions in MEX API to return bool rather than int. Rik <rik@octave.org> parents: 22464 diff changeset	2729 bool
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2730 mxIsUint8 (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 ptr->is_uint8 ();
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 // Odd type+size predicate.
22465 6149f6b34cbc Change all mxIs* functions in MEX API to return bool rather than int. Rik <rik@octave.org> parents: 22464 diff changeset	2736 bool
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2737 mxIsLogicalScalar (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2738 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2739 return ptr->is_logical_scalar ();
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
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2742 // Odd type+size+value predicate.
22465 6149f6b34cbc Change all mxIs* functions in MEX API to return bool rather than int. Rik <rik@octave.org> parents: 22464 diff changeset	2743 bool
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2744 mxIsLogicalScalarTrue (const mxArray *ptr)
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 return ptr->is_logical_scalar_true ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2747 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2748
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2749 // Size predicate.
22465 6149f6b34cbc Change all mxIs* functions in MEX API to return bool rather than int. Rik <rik@octave.org> parents: 22464 diff changeset	2750 bool
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2751 mxIsEmpty (const mxArray *ptr)
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 return ptr->is_empty ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2754 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2755
22462 6cb7813e5b2f Add new mxIsScalar function for MEX API. Rik <rik@octave.org> parents: 22454 diff changeset	2756 bool
6cb7813e5b2f Add new mxIsScalar function for MEX API. Rik <rik@octave.org> parents: 22454 diff changeset	2757 mxIsScalar (const mxArray *ptr)
6cb7813e5b2f Add new mxIsScalar function for MEX API. Rik <rik@octave.org> parents: 22454 diff changeset	2758 {
6cb7813e5b2f Add new mxIsScalar function for MEX API. Rik <rik@octave.org> parents: 22454 diff changeset	2759 return ptr->is_scalar ();
6cb7813e5b2f Add new mxIsScalar function for MEX API. Rik <rik@octave.org> parents: 22454 diff changeset	2760 }
6cb7813e5b2f Add new mxIsScalar function for MEX API. Rik <rik@octave.org> parents: 22454 diff changeset	2761
20527 2d9ec16fa960 Print error, rather than aborting, if mex function mxIsFromGlobalWS is used (bug #46070). Rik <rik@octave.org> parents: 20362 diff changeset	2762 // FIXME: Just plain odd thing to ask of a value.
2d9ec16fa960 Print error, rather than aborting, if mex function mxIsFromGlobalWS is used (bug #46070). Rik <rik@octave.org> parents: 20362 diff changeset	2763 // Still, Octave is incompatible because it does not implement this.
22465 6149f6b34cbc Change all mxIs* functions in MEX API to return bool rather than int. Rik <rik@octave.org> parents: 22464 diff changeset	2764 bool
20527 2d9ec16fa960 Print error, rather than aborting, if mex function mxIsFromGlobalWS is used (bug #46070). Rik <rik@octave.org> parents: 20362 diff changeset	2765 mxIsFromGlobalWS (const mxArray * /ptr/)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2766 {
20527 2d9ec16fa960 Print error, rather than aborting, if mex function mxIsFromGlobalWS is used (bug #46070). Rik <rik@octave.org> parents: 20362 diff changeset	2767 mexErrMsgTxt ("mxIsFromGlobalWS() is unimplemented");
2d9ec16fa960 Print error, rather than aborting, if mex function mxIsFromGlobalWS is used (bug #46070). Rik <rik@octave.org> parents: 20362 diff changeset	2768
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2769 return 0;
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 // Dimension extractors.
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2773 size_t
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2774 mxGetM (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_m ();
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
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2779 size_t
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2780 mxGetN (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_n ();
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
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	2785 const mwSize *
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2786 mxGetDimensions (const mxArray *ptr)
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2787 {
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2788 return ptr->get_dimensions ();
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
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2791 mwSize
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2792 mxGetNumberOfDimensions (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2793 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2794 return ptr->get_number_of_dimensions ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2795 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2796
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2797 size_t
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2798 mxGetNumberOfElements (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2799 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2800 return ptr->get_number_of_elements ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2801 }
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 // Dimension setters.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2804 void
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2805 mxSetM (mxArray *ptr, mwSize m)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2806 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2807 ptr->set_m (m);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2808 }
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 void
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2811 mxSetN (mxArray *ptr, mwSize n)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2812 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2813 ptr->set_n (n);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2814 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2815
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	2816 int
10126 8687ce1c56da Change signature of mxSetDimensions. David Grundberg <davidg@cs.umu.se> parents: 10066 diff changeset	2817 mxSetDimensions (mxArray ptr, const mwSize dims, mwSize ndims)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2818 {
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	2819 return (ptr->set_dimensions (static_cast<mwSize *>
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	2820 (maybe_unmark (const_cast<mwSize *> (dims))),
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	2821 ndims));
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2822 }
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	2823
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2824 // Data extractors.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2825 double *
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2826 mxGetPr (const mxArray *ptr)
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 return static_cast<double *> (ptr->get_data ());
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2829 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2830
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2831 double *
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2832 mxGetPi (const mxArray *ptr)
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 return static_cast<double *> (ptr->get_imag_data ());
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2835 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2836
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	2837 // FIXME: For sparse arrays, mxGetScalar should return the first non-zero
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	2838 // element, rather than just the first element.
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2839 double
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2840 mxGetScalar (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2841 {
6332 debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	2842 return ptr->get_scalar ();
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2843 }
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 mxChar *
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2846 mxGetChars (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2847 {
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	2848 if (mxIsChar (ptr))
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	2849 return static_cast<mxChar *> (ptr->get_data ());
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	2850 else
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	2851 return NULL;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2852 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2853
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2854 mxLogical *
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2855 mxGetLogicals (const mxArray *ptr)
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 return static_cast<mxLogical *> (ptr->get_data ());
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2858 }
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 void *
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2861 mxGetData (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2862 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2863 return ptr->get_data ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2864 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2865
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2866 void *
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2867 mxGetImagData (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2868 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2869 return ptr->get_imag_data ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2870 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2871
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2872 // Data setters.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2873 void
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2874 mxSetPr (mxArray ptr, double pr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2875 {
7172 e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2876 ptr->set_data (maybe_unmark (pr));
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2877 }
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 void
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2880 mxSetPi (mxArray ptr, double pi)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2881 {
7172 e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2882 ptr->set_imag_data (maybe_unmark (pi));
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2883 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2884
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2885 void
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2886 mxSetData (mxArray ptr, void pr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2887 {
7172 e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2888 ptr->set_data (maybe_unmark (pr));
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2889 }
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 void
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2892 mxSetImagData (mxArray ptr, void pi)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2893 {
7172 e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2894 ptr->set_imag_data (maybe_unmark (pi));
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2895 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2896
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2897 // Classes.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2898 mxClassID
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2899 mxGetClassID (const mxArray *ptr)
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_class_id ();
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 const char *
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2905 mxGetClassName (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2906 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2907 return ptr->get_class_name ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2908 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2909
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2910 void
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2911 mxSetClassName (mxArray ptr, const char name)
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 ptr->set_class_name (name);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2914 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2915
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2916 // Cell support.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2917 mxArray *
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2918 mxGetCell (const mxArray *ptr, mwIndex idx)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2919 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2920 return ptr->get_cell (idx);
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
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2923 void
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2924 mxSetCell (mxArray ptr, mwIndex idx, mxArray val)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2925 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2926 ptr->set_cell (idx, val);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2927 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2928
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2929 // Sparse support.
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2930 mwIndex *
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2931 mxGetIr (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2932 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2933 return ptr->get_ir ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2934 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2935
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2936 mwIndex *
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2937 mxGetJc (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2938 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2939 return ptr->get_jc ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2940 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2941
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2942 mwSize
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2943 mxGetNzmax (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2944 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2945 return ptr->get_nzmax ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2946 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2947
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2948 void
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2949 mxSetIr (mxArray ptr, mwIndex ir)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2950 {
19739 3fa35defe495 Adjust spacing of static_cast<> calls to follow Octave coding conventions. Rik <rik@octave.org> parents: 19697 diff changeset	2951 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	2952 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2953
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2954 void
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2955 mxSetJc (mxArray ptr, mwIndex jc)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2956 {
7172 e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2957 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	2958 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2959
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2960 void
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2961 mxSetNzmax (mxArray *ptr, mwSize nzmax)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2962 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2963 ptr->set_nzmax (nzmax);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2964 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2965
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2966 // Structure support.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2967 int
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2968 mxAddField (mxArray ptr, const char key)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2969 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2970 return ptr->add_field (key);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2971 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2972
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2973 void
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2974 mxRemoveField (mxArray *ptr, int key_num)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2975 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2976 ptr->remove_field (key_num);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2977 }
5864 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 mxArray *
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2980 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	2981 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2982 int key_num = mxGetFieldNumber (ptr, key);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2983 return mxGetFieldByNumber (ptr, index, key_num);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2984 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2985
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2986 mxArray *
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2987 mxGetFieldByNumber (const mxArray *ptr, mwIndex index, int key_num)
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2988 {
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2989 return ptr->get_field_by_number (index, key_num);
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2990 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2991
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2992 void
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2993 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	2994 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2995 int key_num = mxGetFieldNumber (ptr, key);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2996 mxSetFieldByNumber (ptr, index, key_num, val);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2997 }
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2998
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2999 void
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	3000 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	3001 {
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3002 ptr->set_field_by_number (index, key_num, val);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3003 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3004
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3005 int
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3006 mxGetNumberOfFields (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3007 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3008 return ptr->get_number_of_fields ();
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3009 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3010
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3011 const char *
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3012 mxGetFieldNameByNumber (const mxArray *ptr, int key_num)
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3013 {
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3014 return ptr->get_field_name_by_number (key_num);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3015 }
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 int
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3018 mxGetFieldNumber (const mxArray ptr, const char key)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3019 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3020 return ptr->get_field_number (key);
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3021 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3022
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3023 int
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	3024 mxGetString (const mxArray ptr, char buf, mwSize buflen)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3025 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3026 return ptr->get_string (buf, buflen);
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
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3029 char *
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3030 mxArrayToString (const mxArray *ptr)
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 return ptr->array_to_string ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3033 }
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	3034
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	3035 mwIndex
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	3036 mxCalcSingleSubscript (const mxArray ptr, mwSize nsubs, mwIndex subs)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3037 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3038 return ptr->calc_single_subscript (nsubs, subs);
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3039 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3040
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	3041 size_t
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3042 mxGetElementSize (const mxArray *ptr)
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 return ptr->get_element_size ();
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
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3047 // ------------------------------------------------------------------
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3048
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3049 typedef void (cmex_fptr) (int nlhs, mxArray plhs, int nrhs, mxArray *prhs);
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	3050 typedef F77_RET_T (fmex_fptr) (int& nlhs, mxArray *plhs,
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	3051 int& nrhs, mxArray **prhs);
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3052
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3053 octave_value_list
6068 c9f0839c583f [project @ 2006-10-20 16:54:30 by jwe] jwe parents: 6065 diff changeset	3054 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	3055 int nargout_arg, octave_mex_function *curr_mex_fcn)
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3056 {
20771 ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	3057 octave_quit ();
ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	3058
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3059 // 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	3060 // still want to be able to return an ans.
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3061
8806 c7864bb74914 avoid some GCC warnings John W. Eaton <jwe@octave.org> parents: 8377 diff changeset	3062 volatile int nargout = nargout_arg;
c7864bb74914 avoid some GCC warnings John W. Eaton <jwe@octave.org> parents: 8377 diff changeset	3063
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3064 int nargin = args.length ();
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3065 OCTAVE_LOCAL_BUFFER (mxArray *, argin, nargin);
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3066 for (int i = 0; i < nargin; i++)
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3067 argin[i] = 0;
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3068
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3069 int nout = nargout == 0 ? 1 : nargout;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3070 OCTAVE_LOCAL_BUFFER (mxArray *, argout, nout);
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3071 for (int i = 0; i < nout; i++)
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3072 argout[i] = 0;
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3073
21743 f4d7d0eb5b0c use namespace for unwind_protect class John W. Eaton <jwe@octave.org> parents: 21724 diff changeset	3074 octave::unwind_protect_safe frame;
5905 e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	3075
e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	3076 // Save old mex pointer.
10066 2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 9689 diff changeset	3077 frame.protect_var (mex_context);
5905 e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	3078
6068 c9f0839c583f [project @ 2006-10-20 16:54:30 by jwe] jwe parents: 6065 diff changeset	3079 mex context (curr_mex_fcn);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3080
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3081 for (int i = 0; i < nargin; i++)
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3082 argin[i] = context.make_value (args(i));
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3083
20771 ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	3084 mex_context = &context;
ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	3085
ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	3086 if (have_fmex)
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3087 {
21187 f569ba0ee237 eliminate FCN_PTR_CAST macro and associated configure test John W. Eaton <jwe@octave.org> parents: 21170 diff changeset	3088 fmex_fptr fcn = reinterpret_cast<fmex_fptr> (f);
20771 ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	3089
ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	3090 int tmp_nargout = nargout;
ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	3091 int tmp_nargin = nargin;
ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	3092
ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	3093 fcn (tmp_nargout, argout, tmp_nargin, argin);
ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	3094 }
ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	3095 else
ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	3096 {
21187 f569ba0ee237 eliminate FCN_PTR_CAST macro and associated configure test John W. Eaton <jwe@octave.org> parents: 21170 diff changeset	3097 cmex_fptr fcn = reinterpret_cast<cmex_fptr> (f);
20771 ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	3098
ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	3099 fcn (nargout, argout, nargin, argin);
5864 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
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3102 // Convert returned array entries back into octave values.
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3103
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3104 octave_value_list retval;
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3105
20555 f90c8372b7ba eliminate many more simple uses of error_state John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	3106 if (nargout == 0 && argout[0])
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3107 {
20555 f90c8372b7ba eliminate many more simple uses of error_state John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	3108 // We have something for ans.
f90c8372b7ba eliminate many more simple uses of error_state John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	3109 nargout = 1;
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3110 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3111
20555 f90c8372b7ba eliminate many more simple uses of error_state John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	3112 retval.resize (nargout);
f90c8372b7ba eliminate many more simple uses of error_state John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	3113
f90c8372b7ba eliminate many more simple uses of error_state John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	3114 for (int i = 0; i < nargout; i++)
f90c8372b7ba eliminate many more simple uses of error_state John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	3115 retval(i) = mxArray::as_octave_value (argout[i]);
f90c8372b7ba eliminate many more simple uses of error_state John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	3116
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3117 return retval;
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3118 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3119
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3120 // C interface to mex functions:
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3121
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3122 const char *
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3123 mexFunctionName (void)
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3124 {
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3125 return mex_context ? mex_context->function_name () : "unknown";
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3126 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3127
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3128 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	3129 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	3130 mxArray argin[], const char fname)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3131 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3132 octave_value_list args;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3133
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	3134 // FIXME: do we need unwind protect to clean up args? Off hand, I
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3135 // 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	3136 // continue to have memory leaks after Ctrl-C until proper exception
20771 ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	3137 // handling is implemented.
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3138
21151 bfd5e48c41a1 Rename local error in mex I/F from invalid_type_error to err_invalid_type. Rik <rik@octave.org> parents: 20940 diff changeset	3139 // FIXME: Proper exception handling has been implemented (Jan. 2016).
bfd5e48c41a1 Rename local error in mex I/F from invalid_type_error to err_invalid_type. Rik <rik@octave.org> parents: 20940 diff changeset	3140 // Can this code be re-factored?
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3141 args.resize (nargin);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3142
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3143 for (int i = 0; i < nargin; i++)
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	3144 args(i) = mxArray::as_octave_value (argin[i]);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3145
20535 b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20527 diff changeset	3146 bool execution_error = false;
b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20527 diff changeset	3147
b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20527 diff changeset	3148 octave_value_list retval;
b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20527 diff changeset	3149
b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20527 diff changeset	3150 try
b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20527 diff changeset	3151 {
b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20527 diff changeset	3152 retval = feval (fname, args, nargout);
b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20527 diff changeset	3153 }
22327 d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22323 diff changeset	3154 catch (const octave::execution_exception&)
20535 b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20527 diff changeset	3155 {
20771 ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	3156 if (mex_context->trap_feval_error)
22450 2fb86778f78d Return correct status from mexCallMATLAB when mexSetTrapFlag is 1 (bug #48949). Rik <rik@octave.org> parents: 22449 diff changeset	3157 {
2fb86778f78d Return correct status from mexCallMATLAB when mexSetTrapFlag is 1 (bug #48949). Rik <rik@octave.org> parents: 22449 diff changeset	3158 recover_from_exception ();
2fb86778f78d Return correct status from mexCallMATLAB when mexSetTrapFlag is 1 (bug #48949). Rik <rik@octave.org> parents: 22449 diff changeset	3159
2fb86778f78d Return correct status from mexCallMATLAB when mexSetTrapFlag is 1 (bug #48949). Rik <rik@octave.org> parents: 22449 diff changeset	3160 execution_error = true;
2fb86778f78d Return correct status from mexCallMATLAB when mexSetTrapFlag is 1 (bug #48949). Rik <rik@octave.org> parents: 22449 diff changeset	3161 }
20771 ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	3162 else
ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	3163 {
ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	3164 args.resize (0);
ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	3165 retval.resize (0);
ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	3166
ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	3167 throw;
ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	3168 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3169 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3170
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3171 int num_to_copy = retval.length ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3172
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3173 if (nargout < retval.length ())
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3174 num_to_copy = nargout;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3175
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3176 for (int i = 0; i < num_to_copy; i++)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3177 {
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	3178 // FIXME: it would be nice to avoid copying the value here,
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3179 // 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	3180 // 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	3181 // is allocated by malloc().
22450 2fb86778f78d Return correct status from mexCallMATLAB when mexSetTrapFlag is 1 (bug #48949). Rik <rik@octave.org> parents: 22449 diff changeset	3182 argout[i] = mex_context->make_value (retval(i));
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3183 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3184
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3185 while (num_to_copy < nargout)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3186 argout[num_to_copy++] = 0;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3187
20535 b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20527 diff changeset	3188 return execution_error ? 1 : 0;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3189 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3190
22451 ad5439817753 Add mexCallMATLABWithTrap to MEX API (bug #48949). Rik <rik@octave.org> parents: 22450 diff changeset	3191 mxArray *
ad5439817753 Add mexCallMATLABWithTrap to MEX API (bug #48949). Rik <rik@octave.org> parents: 22450 diff changeset	3192 mexCallMATLABWithTrap (int nargout, mxArray *argout[], int nargin,
ad5439817753 Add mexCallMATLABWithTrap to MEX API (bug #48949). Rik <rik@octave.org> parents: 22450 diff changeset	3193 mxArray argin[], const char fname)
ad5439817753 Add mexCallMATLABWithTrap to MEX API (bug #48949). Rik <rik@octave.org> parents: 22450 diff changeset	3194 {
ad5439817753 Add mexCallMATLABWithTrap to MEX API (bug #48949). Rik <rik@octave.org> parents: 22450 diff changeset	3195 mxArray *mx = NULL;
ad5439817753 Add mexCallMATLABWithTrap to MEX API (bug #48949). Rik <rik@octave.org> parents: 22450 diff changeset	3196
ad5439817753 Add mexCallMATLABWithTrap to MEX API (bug #48949). Rik <rik@octave.org> parents: 22450 diff changeset	3197 int old_flag = mex_context ? mex_context->trap_feval_error : 0;
ad5439817753 Add mexCallMATLABWithTrap to MEX API (bug #48949). Rik <rik@octave.org> parents: 22450 diff changeset	3198 mexSetTrapFlag (1);
ad5439817753 Add mexCallMATLABWithTrap to MEX API (bug #48949). Rik <rik@octave.org> parents: 22450 diff changeset	3199 if (mexCallMATLAB (nargout, argout, nargin, argin, fname))
ad5439817753 Add mexCallMATLABWithTrap to MEX API (bug #48949). Rik <rik@octave.org> parents: 22450 diff changeset	3200 {
22454 8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	3201 const char *field_names[] = {"identifier", "message", "case", "stack"};
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	3202 mx = mxCreateStructMatrix (1, 1, 4, field_names);
22451 ad5439817753 Add mexCallMATLABWithTrap to MEX API (bug #48949). Rik <rik@octave.org> parents: 22450 diff changeset	3203 mxSetFieldByNumber (mx, 0, 0, mxCreateString ("Octave:MEX"));
ad5439817753 Add mexCallMATLABWithTrap to MEX API (bug #48949). Rik <rik@octave.org> parents: 22450 diff changeset	3204 std::string msg = "mexCallMATLABWithTrap: function call <"
ad5439817753 Add mexCallMATLABWithTrap to MEX API (bug #48949). Rik <rik@octave.org> parents: 22450 diff changeset	3205 + std::string (fname) + "> failed";
ad5439817753 Add mexCallMATLABWithTrap to MEX API (bug #48949). Rik <rik@octave.org> parents: 22450 diff changeset	3206 mxSetFieldByNumber (mx, 0, 1, mxCreateString (msg.c_str ()));
ad5439817753 Add mexCallMATLABWithTrap to MEX API (bug #48949). Rik <rik@octave.org> parents: 22450 diff changeset	3207 mxSetFieldByNumber (mx, 0, 2, mxCreateCellMatrix (0, 0));
ad5439817753 Add mexCallMATLABWithTrap to MEX API (bug #48949). Rik <rik@octave.org> parents: 22450 diff changeset	3208 mxSetFieldByNumber (mx, 0, 3, mxCreateStructMatrix (0, 1, 0, NULL));
ad5439817753 Add mexCallMATLABWithTrap to MEX API (bug #48949). Rik <rik@octave.org> parents: 22450 diff changeset	3209 }
ad5439817753 Add mexCallMATLABWithTrap to MEX API (bug #48949). Rik <rik@octave.org> parents: 22450 diff changeset	3210 mexSetTrapFlag (old_flag);
ad5439817753 Add mexCallMATLABWithTrap to MEX API (bug #48949). Rik <rik@octave.org> parents: 22450 diff changeset	3211
ad5439817753 Add mexCallMATLABWithTrap to MEX API (bug #48949). Rik <rik@octave.org> parents: 22450 diff changeset	3212 return mx;
ad5439817753 Add mexCallMATLABWithTrap to MEX API (bug #48949). Rik <rik@octave.org> parents: 22450 diff changeset	3213 }
ad5439817753 Add mexCallMATLABWithTrap to MEX API (bug #48949). Rik <rik@octave.org> parents: 22450 diff changeset	3214
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3215 void
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3216 mexSetTrapFlag (int flag)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3217 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3218 if (mex_context)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3219 mex_context->trap_feval_error = flag;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3220 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3221
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3222 int
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3223 mexEvalString (const char *s)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3224 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3225 int retval = 0;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3226
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3227 int parse_status;
22454 8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	3228 bool execution_error = false;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3229
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3230 octave_value_list ret;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3231
20535 b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20527 diff changeset	3232 try
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3233 {
20535 b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20527 diff changeset	3234 ret = eval_string (s, false, parse_status, 0);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3235 }
22327 d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22323 diff changeset	3236 catch (const octave::execution_exception&)
20535 b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20527 diff changeset	3237 {
20756 200ae1d650b7 propagate octave_execution_exception objects through try/catch blocks John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	3238 recover_from_exception ();
200ae1d650b7 propagate octave_execution_exception objects through try/catch blocks John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	3239
20535 b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20527 diff changeset	3240 execution_error = true;
b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20527 diff changeset	3241 }
b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20527 diff changeset	3242
b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20527 diff changeset	3243 if (parse_status \|\| execution_error)
b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20527 diff changeset	3244 retval = 1;
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3245
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3246 return retval;
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3247 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3248
22454 8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	3249 mxArray *
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	3250 mexEvalStringWithTrap (const char *s)
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	3251 {
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	3252 mxArray *mx = NULL;
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	3253
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	3254 int parse_status;
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	3255 bool execution_error = false;
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	3256
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	3257 octave_value_list ret;
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	3258
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	3259 try
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	3260 {
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	3261 ret = eval_string (s, false, parse_status, 0);
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	3262 }
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	3263 catch (const octave::execution_exception&)
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	3264 {
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	3265 recover_from_exception ();
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	3266
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	3267 execution_error = true;
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	3268 }
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	3269
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	3270 if (parse_status \|\| execution_error)
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	3271 {
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	3272 const char *field_names[] = {"identifier", "message", "case", "stack"};
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	3273 mx = mxCreateStructMatrix (1, 1, 4, field_names);
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	3274 mxSetFieldByNumber (mx, 0, 0, mxCreateString ("Octave:MEX"));
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	3275 std::string msg = "mexEvalStringWithTrap: eval of <"
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	3276 + std::string (s) + "> failed";
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	3277 mxSetFieldByNumber (mx, 0, 1, mxCreateString (msg.c_str ()));
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	3278 mxSetFieldByNumber (mx, 0, 2, mxCreateCellMatrix (0, 0));
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	3279 mxSetFieldByNumber (mx, 0, 3, mxCreateStructMatrix (0, 1, 0, NULL));
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	3280 }
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	3281
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	3282 return mx;
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	3283 }
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	3284
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3285 void
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3286 mexErrMsgTxt (const char *s)
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3287 {
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3288 if (s && strlen (s) > 0)
5879 4f1112bfafce [project @ 2006-07-05 23:50:44 by jwe] jwe parents: 5864 diff changeset	3289 error ("%s: %s", mexFunctionName (), s);
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3290 else
16851 209f0db3c32b mexErrMsgTxt should abort when called with an empty string (bug #39343). Rik <rik@octave.org> parents: 16708 diff changeset	3291 {
209f0db3c32b mexErrMsgTxt should abort when called with an empty string (bug #39343). Rik <rik@octave.org> parents: 16708 diff changeset	3292 // 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	3293 // 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	3294 error (" ");
209f0db3c32b mexErrMsgTxt should abort when called with an empty string (bug #39343). Rik <rik@octave.org> parents: 16708 diff changeset	3295 }
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3296 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3297
5879 4f1112bfafce [project @ 2006-07-05 23:50:44 by jwe] jwe parents: 5864 diff changeset	3298 void
6338 ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	3299 mexErrMsgIdAndTxt (const char id, const char fmt, ...)
5879 4f1112bfafce [project @ 2006-07-05 23:50:44 by jwe] jwe parents: 5864 diff changeset	3300 {
6338 ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	3301 if (fmt && strlen (fmt) > 0)
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	3302 {
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	3303 const char *fname = mexFunctionName ();
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	3304 size_t len = strlen (fname) + 2 + strlen (fmt) + 1;
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	3305 OCTAVE_LOCAL_BUFFER (char, tmpfmt, len);
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	3306 sprintf (tmpfmt, "%s: %s", fname, fmt);
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	3307 va_list args;
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	3308 va_start (args, fmt);
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	3309 verror_with_id (id, tmpfmt, args);
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	3310 va_end (args);
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	3311 }
5879 4f1112bfafce [project @ 2006-07-05 23:50:44 by jwe] jwe parents: 5864 diff changeset	3312 else
16851 209f0db3c32b mexErrMsgTxt should abort when called with an empty string (bug #39343). Rik <rik@octave.org> parents: 16708 diff changeset	3313 {
209f0db3c32b mexErrMsgTxt should abort when called with an empty string (bug #39343). Rik <rik@octave.org> parents: 16708 diff changeset	3314 // 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	3315 // 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	3316 error (" ");
209f0db3c32b mexErrMsgTxt should abort when called with an empty string (bug #39343). Rik <rik@octave.org> parents: 16708 diff changeset	3317 }
5879 4f1112bfafce [project @ 2006-07-05 23:50:44 by jwe] jwe parents: 5864 diff changeset	3318 }
4f1112bfafce [project @ 2006-07-05 23:50:44 by jwe] jwe parents: 5864 diff changeset	3319
4f1112bfafce [project @ 2006-07-05 23:50:44 by jwe] jwe parents: 5864 diff changeset	3320 void
4f1112bfafce [project @ 2006-07-05 23:50:44 by jwe] jwe parents: 5864 diff changeset	3321 mexWarnMsgTxt (const char *s)
4f1112bfafce [project @ 2006-07-05 23:50:44 by jwe] jwe parents: 5864 diff changeset	3322 {
4f1112bfafce [project @ 2006-07-05 23:50:44 by jwe] jwe parents: 5864 diff changeset	3323 warning ("%s", s);
4f1112bfafce [project @ 2006-07-05 23:50:44 by jwe] jwe parents: 5864 diff changeset	3324 }
4f1112bfafce [project @ 2006-07-05 23:50:44 by jwe] jwe parents: 5864 diff changeset	3325
4f1112bfafce [project @ 2006-07-05 23:50:44 by jwe] jwe parents: 5864 diff changeset	3326 void
6338 ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	3327 mexWarnMsgIdAndTxt (const char id, const char fmt, ...)
5879 4f1112bfafce [project @ 2006-07-05 23:50:44 by jwe] jwe parents: 5864 diff changeset	3328 {
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	3329 // FIXME: is this right? What does Matlab do if fmt is NULL or
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	3330 // an empty string?
6338 ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	3331
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	3332 if (fmt && strlen (fmt) > 0)
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	3333 {
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	3334 const char *fname = mexFunctionName ();
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	3335 size_t len = strlen (fname) + 2 + strlen (fmt) + 1;
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	3336 OCTAVE_LOCAL_BUFFER (char, tmpfmt, len);
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	3337 sprintf (tmpfmt, "%s: %s", fname, fmt);
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	3338 va_list args;
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	3339 va_start (args, fmt);
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	3340 vwarning_with_id (id, tmpfmt, args);
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	3341 va_end (args);
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	3342 }
5879 4f1112bfafce [project @ 2006-07-05 23:50:44 by jwe] jwe parents: 5864 diff changeset	3343 }
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3344
10127 f21fdff5c906 Change signature of mexPrintf. David Grundberg <davidg@cs.umu.se> parents: 10126 diff changeset	3345 int
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3346 mexPrintf (const char *fmt, ...)
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3347 {
10127 f21fdff5c906 Change signature of mexPrintf. David Grundberg <davidg@cs.umu.se> parents: 10126 diff changeset	3348 int retval;
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3349 va_list args;
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3350 va_start (args, fmt);
10127 f21fdff5c906 Change signature of mexPrintf. David Grundberg <davidg@cs.umu.se> parents: 10126 diff changeset	3351 retval = octave_vformat (octave_stdout, fmt, args);
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3352 va_end (args);
10127 f21fdff5c906 Change signature of mexPrintf. David Grundberg <davidg@cs.umu.se> parents: 10126 diff changeset	3353 return retval;
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3354 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3355
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3356 mxArray *
5879 4f1112bfafce [project @ 2006-07-05 23:50:44 by jwe] jwe parents: 5864 diff changeset	3357 mexGetVariable (const char space, const char name)
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3358 {
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3359 mxArray *retval = 0;
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3360
7752 40c428ea3408 initial implementation of dbup and dbdown John W. Eaton <jwe@octave.org> parents: 7577 diff changeset	3361 octave_value val;
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3362
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3363 if (! strcmp (space, "global"))
7752 40c428ea3408 initial implementation of dbup and dbdown John W. Eaton <jwe@octave.org> parents: 7577 diff changeset	3364 val = get_global_value (name);
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3365 else
7752 40c428ea3408 initial implementation of dbup and dbdown John W. Eaton <jwe@octave.org> parents: 7577 diff changeset	3366 {
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	3367 // FIXME: should this be in variables.cc?
9144 c6463412aebb eliminate symbol_table::scope_stack; fix scoping issue with evalin John W. Eaton <jwe@octave.org> parents: 8920 diff changeset	3368
21743 f4d7d0eb5b0c use namespace for unwind_protect class John W. Eaton <jwe@octave.org> parents: 21724 diff changeset	3369 octave::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	3370
7901 3e4c9b69069d call stack changes John W. Eaton <jwe@octave.org> parents: 7752 diff changeset	3371 bool caller = ! strcmp (space, "caller");
3e4c9b69069d call stack changes John W. Eaton <jwe@octave.org> parents: 7752 diff changeset	3372 bool base = ! strcmp (space, "base");
3e4c9b69069d call stack changes John W. Eaton <jwe@octave.org> parents: 7752 diff changeset	3373
3e4c9b69069d call stack changes John W. Eaton <jwe@octave.org> parents: 7752 diff changeset	3374 if (caller \|\| base)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3375 {
16708 08f0f274de36 use correct "caller" workspace for mexputvariable and mexgetvariable John W. Eaton <jwe@octave.org> parents: 16442 diff changeset	3376 // 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	3377 // 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	3378
08f0f274de36 use correct "caller" workspace for mexputvariable and mexgetvariable John W. Eaton <jwe@octave.org> parents: 16442 diff changeset	3379 if (base)
08f0f274de36 use correct "caller" workspace for mexputvariable and mexgetvariable John W. Eaton <jwe@octave.org> parents: 16442 diff changeset	3380 {
08f0f274de36 use correct "caller" workspace for mexputvariable and mexgetvariable John W. Eaton <jwe@octave.org> parents: 16442 diff changeset	3381 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	3382
08f0f274de36 use correct "caller" workspace for mexputvariable and mexgetvariable John W. Eaton <jwe@octave.org> parents: 16442 diff changeset	3383 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	3384 }
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3385
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3386 val = symbol_table::varval (name);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3387 }
7752 40c428ea3408 initial implementation of dbup and dbdown John W. Eaton <jwe@octave.org> parents: 7577 diff changeset	3388 else
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3389 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	3390 }
7336 745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe] jwe parents: 7179 diff changeset	3391
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe] jwe parents: 7179 diff changeset	3392 if (val.is_defined ())
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3393 {
7336 745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe] jwe parents: 7179 diff changeset	3394 retval = mex_context->make_value (val);
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe] jwe parents: 7179 diff changeset	3395
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe] jwe parents: 7179 diff changeset	3396 retval->set_name (name);
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3397 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3398
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3399 return retval;
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3400 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3401
5879 4f1112bfafce [project @ 2006-07-05 23:50:44 by jwe] jwe parents: 5864 diff changeset	3402 const mxArray *
4f1112bfafce [project @ 2006-07-05 23:50:44 by jwe] jwe parents: 5864 diff changeset	3403 mexGetVariablePtr (const char space, const char name)
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3404 {
5879 4f1112bfafce [project @ 2006-07-05 23:50:44 by jwe] jwe parents: 5864 diff changeset	3405 return mexGetVariable (space, name);
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3406 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3407
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3408 int
15353 5f3a69a309a7 fix decl of mexPutVariable John W. Eaton <jwe@octave.org> parents: 15351 diff changeset	3409 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	3410 {
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3411 if (! ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3412 return 1;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3413
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3414 if (! name)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3415 return 1;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3416
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3417 if (name[0] == '\0')
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3418 name = ptr->get_name ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3419
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3420 if (! name \|\| name[0] == '\0')
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3421 return 1;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3422
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3423 if (! strcmp (space, "global"))
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	3424 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	3425 else
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3426 {
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	3427 // FIXME: should this be in variables.cc?
7336 745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe] jwe parents: 7179 diff changeset	3428
21743 f4d7d0eb5b0c use namespace for unwind_protect class John W. Eaton <jwe@octave.org> parents: 21724 diff changeset	3429 octave::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	3430
7901 3e4c9b69069d call stack changes John W. Eaton <jwe@octave.org> parents: 7752 diff changeset	3431 bool caller = ! strcmp (space, "caller");
3e4c9b69069d call stack changes John W. Eaton <jwe@octave.org> parents: 7752 diff changeset	3432 bool base = ! strcmp (space, "base");
3e4c9b69069d call stack changes John W. Eaton <jwe@octave.org> parents: 7752 diff changeset	3433
3e4c9b69069d call stack changes John W. Eaton <jwe@octave.org> parents: 7752 diff changeset	3434 if (caller \|\| base)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3435 {
16708 08f0f274de36 use correct "caller" workspace for mexputvariable and mexgetvariable John W. Eaton <jwe@octave.org> parents: 16442 diff changeset	3436 // 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	3437 // 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	3438
08f0f274de36 use correct "caller" workspace for mexputvariable and mexgetvariable John W. Eaton <jwe@octave.org> parents: 16442 diff changeset	3439 if (base)
08f0f274de36 use correct "caller" workspace for mexputvariable and mexgetvariable John W. Eaton <jwe@octave.org> parents: 16442 diff changeset	3440 {
08f0f274de36 use correct "caller" workspace for mexputvariable and mexgetvariable John W. Eaton <jwe@octave.org> parents: 16442 diff changeset	3441 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	3442
08f0f274de36 use correct "caller" workspace for mexputvariable and mexgetvariable John W. Eaton <jwe@octave.org> parents: 16442 diff changeset	3443 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	3444 }
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3445
16442 302157614308 deprecate symbol_table::varref functions John W. Eaton <jwe@octave.org> parents: 16227 diff changeset	3446 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	3447 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3448 else
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3449 mexErrMsgTxt ("mexPutVariable: symbol table does not exist");
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3450 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3451
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3452 return 0;
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3453 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3454
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3455 void
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3456 mexMakeArrayPersistent (mxArray *ptr)
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3457 {
7172 e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	3458 maybe_unmark_array (ptr);
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3459 }
5879 4f1112bfafce [project @ 2006-07-05 23:50:44 by jwe] jwe parents: 5864 diff changeset	3460
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3461 void
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3462 mexMakeMemoryPersistent (void *ptr)
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3463 {
7172 e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	3464 maybe_unmark (ptr);
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3465 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3466
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3467 int
6068 c9f0839c583f [project @ 2006-10-20 16:54:30 by jwe] jwe parents: 6065 diff changeset	3468 mexAtExit (void (*f) (void))
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3469 {
6068 c9f0839c583f [project @ 2006-10-20 16:54:30 by jwe] jwe parents: 6065 diff changeset	3470 if (mex_context)
c9f0839c583f [project @ 2006-10-20 16:54:30 by jwe] jwe parents: 6065 diff changeset	3471 {
c9f0839c583f [project @ 2006-10-20 16:54:30 by jwe] jwe parents: 6065 diff changeset	3472 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	3473
c9f0839c583f [project @ 2006-10-20 16:54:30 by jwe] jwe parents: 6065 diff changeset	3474 assert (curr_mex_fcn);
c9f0839c583f [project @ 2006-10-20 16:54:30 by jwe] jwe parents: 6065 diff changeset	3475
c9f0839c583f [project @ 2006-10-20 16:54:30 by jwe] jwe parents: 6065 diff changeset	3476 curr_mex_fcn->atexit (f);
c9f0839c583f [project @ 2006-10-20 16:54:30 by jwe] jwe parents: 6065 diff changeset	3477 }
c9f0839c583f [project @ 2006-10-20 16:54:30 by jwe] jwe parents: 6065 diff changeset	3478
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3479 return 0;
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3480 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3481
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3482 const mxArray *
6595 55586d763de1 [project @ 2007-04-27 15:31:10 by dbateman] dbateman parents: 6493 diff changeset	3483 mexGet (double handle, const char *property)
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3484 {
6595 55586d763de1 [project @ 2007-04-27 15:31:10 by dbateman] dbateman parents: 6493 diff changeset	3485 mxArray *m = 0;
20555 f90c8372b7ba eliminate many more simple uses of error_state John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	3486
6595 55586d763de1 [project @ 2007-04-27 15:31:10 by dbateman] dbateman parents: 6493 diff changeset	3487 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	3488
20555 f90c8372b7ba eliminate many more simple uses of error_state John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	3489 if (ret.is_defined ())
6595 55586d763de1 [project @ 2007-04-27 15:31:10 by dbateman] dbateman parents: 6493 diff changeset	3490 m = ret.as_mxArray ();
20555 f90c8372b7ba eliminate many more simple uses of error_state John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	3491
6595 55586d763de1 [project @ 2007-04-27 15:31:10 by dbateman] dbateman parents: 6493 diff changeset	3492 return m;
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3493 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3494
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3495 int
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3496 mexIsGlobal (const mxArray *ptr)
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3497 {
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3498 return mxIsFromGlobalWS (ptr);
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3499 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3500
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3501 int
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3502 mexIsLocked (void)
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3503 {
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3504 int retval = 0;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3505
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3506 if (mex_context)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3507 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3508 const char *fname = mexFunctionName ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3509
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3510 retval = mislocked (fname);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3511 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3512
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3513 return retval;
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3514 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3515
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3516 std::map<std::string,int> mex_lock_count;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3517
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3518 void
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3519 mexLock (void)
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3520 {
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3521 if (mex_context)
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3522 {
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3523 const char *fname = mexFunctionName ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3524
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3525 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	3526 mex_lock_count[fname] = 1;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3527 else
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3528 mex_lock_count[fname]++;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3529
7336 745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe] jwe parents: 7179 diff changeset	3530 mlock ();
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3531 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3532 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3533
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3534 int
6595 55586d763de1 [project @ 2007-04-27 15:31:10 by dbateman] dbateman parents: 6493 diff changeset	3535 mexSet (double handle, const char property, mxArray val)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3536 {
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	3537 bool ret =
6595 55586d763de1 [project @ 2007-04-27 15:31:10 by dbateman] dbateman parents: 6493 diff changeset	3538 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	3539 "mexSet");
6595 55586d763de1 [project @ 2007-04-27 15:31:10 by dbateman] dbateman parents: 6493 diff changeset	3540 return (ret ? 0 : 1);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3541 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3542
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3543 void
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3544 mexUnlock (void)
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3545 {
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3546 if (mex_context)
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3547 {
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3548 const char *fname = mexFunctionName ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3549
5905 e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	3550 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	3551
6062 a813714cb04b [project @ 2006-10-18 23:30:22 by jwe] jwe parents: 6018 diff changeset	3552 if (p != mex_lock_count.end ())
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3553 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3554 int count = --mex_lock_count[fname];
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3555
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3556 if (count == 0)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3557 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3558 munlock (fname);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3559
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3560 mex_lock_count.erase (p);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3561 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3562 }
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3563 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3564 }
22407 34ce5be04942 maint: Style check C++ code in libinterp/. Rik <rik@octave.org> parents: 22327 diff changeset	3565

Mercurial > octave

annotate libinterp/corefcn/mex.cc @ 22471:667d353d1ab8