octave: libinterp/corefcn/mex.cc annotate

annotate libinterp/corefcn/mex.cc @ 27932:b018f553fd85

maint: Use Octave coding conventions in libinterp/ * __ftp__.cc, __ichol__.cc, call-stack.cc, error.h, event-manager.cc, file-io.cc, gl-render.cc, graphics.cc, help.cc, input.cc, interpreter.cc, load-path.cc, load-save.cc, ls-hdf5.cc, ls-hdf5.h, mex.cc, oct-hist.cc, oct-stream.cc, sighandlers.h, stack-frame.cc, stack-frame.h, strfns.cc, syminfo.cc, sysdep.cc, text-engine.h, url-handle-manager.h, urlwrite.cc, xpow.cc, __init_fltk__.cc, __ode15__.cc, ccolamd.cc, colamd.cc, cdef-class.cc, cdef-manager.cc, cdef-manager.h, cdef-method.cc, cdef-object.cc, cdef-package.h, cdef-property.cc, ov-class.cc, ov-classdef.cc, ov-cx-sparse.cc, ov-fcn-handle.cc, ov-fcn-inline.cc, ov-fcn.h, ov-java.cc, ov-typeinfo.h, bp-table.cc, jit-ir.h, jit-typeinfo.h, pt-classdef.h, pt-eval.cc, pt-eval.h, pt-idx.cc: Use Octave coding conventions in libinterp.

author	Rik <rik@octave.org>
date	Fri, 10 Jan 2020 17:25:12 -0800
parents	bd51beb6205e
children	4c21f99b4ad5 32fdcf67a683

rev	line source
27923 bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	1 ////////////////////////////////////////////////////////////////////////
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	2 //
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	3 // Copyright (C) 2006-2020 The Octave Project Developers
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	4 //
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	5 // See the file COPYRIGHT.md in the top-level directory of this
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	6 // distribution or <https://octave.org/copyright/>.
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	7 //
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	8 // This file is part of Octave.
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	9 //
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	10 // Octave is free software: you can redistribute it and/or modify it
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	11 // under the terms of the GNU General Public License as published by
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	12 // the Free Software Foundation, either version 3 of the License, or
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	13 // (at your option) any later version.
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	14 //
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	15 // Octave is distributed in the hope that it will be useful, but
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	16 // WITHOUT ANY WARRANTY; without even the implied warranty of
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	17 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	18 // GNU General Public License for more details.
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	19 //
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	20 // You should have received a copy of the GNU General Public License
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	21 // along with Octave; see the file COPYING. If not, see
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	22 // <https://www.gnu.org/licenses/>.
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	23 //
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	24 ////////////////////////////////////////////////////////////////////////
7016 93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6823 diff changeset	25
22003 2d3972b802ff use consistent style for including config.h in source files John W. Eaton <jwe@octave.org> parents: 21942 diff changeset	26 #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	27 # include "config.h"
2d3972b802ff use consistent style for including config.h in source files John W. Eaton <jwe@octave.org> parents: 21942 diff changeset	28 #endif
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	29
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	30 #include <cstdarg>
10463 bbe99b2a5ba7 undo recent gnulib-related changes John W. Eaton <jwe@octave.org> parents: 10447 diff changeset	31 #include <cstdlib>
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	32 #include <cstring>
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	33 #include <cctype>
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	34
23455 73ff72d3d603 maint: Eliminate <cfloat.h> header from libinterp files Rik <rik@octave.org> parents: 23450 diff changeset	35 #include <limits>
73ff72d3d603 maint: Eliminate <cfloat.h> header from libinterp files Rik <rik@octave.org> parents: 23450 diff changeset	36 #include <map>
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	37 #include <set>
23455 73ff72d3d603 maint: Eliminate <cfloat.h> header from libinterp files Rik <rik@octave.org> parents: 23450 diff changeset	38 #include <string>
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	39
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	40 #include "f77-fcn.h"
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	41 #include "lo-ieee.h"
8377 25bc2d31e1bf improve OCTAVE_LOCAL_BUFFER Jaroslav Hajek <highegg@gmail.com> parents: 7901 diff changeset	42 #include "oct-locbuf.h"
23455 73ff72d3d603 maint: Eliminate <cfloat.h> header from libinterp files Rik <rik@octave.org> parents: 23450 diff changeset	43 #include "quit.h"
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	44
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 "Cell.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	46 #include "error.h"
23553 14723784b9f2 don't use singleton for call_stack John W. Eaton <jwe@octave.org> parents: 23499 diff changeset	47 #include "interpreter-private.h"
22094 9203833cab7d move new interpreter class to separate file John W. Eaton <jwe@octave.org> parents: 22091 diff changeset	48 #include "interpreter.h"
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	49 // 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	50 #include "mxarray.h"
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	51 #include "mexproto.h"
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	52 #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	53 #include "ovl.h"
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	54 #include "ov.h"
26769 2f847e3e8d6b split classdef into multiple smaller source files John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	55 #include "ov-classdef.h"
6068 c9f0839c583f [project @ 2006-10-20 16:54:30 by jwe] jwe parents: 6065 diff changeset	56 #include "ov-mex-fcn.h"
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	57 #include "ov-usr-fcn.h"
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	58 #include "pager.h"
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	59 #include "parse.h"
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	60 #include "unwind-prot.h"
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	61 #include "utils.h"
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	62 #include "variables.h"
6595 55586d763de1 [project @ 2007-04-27 15:31:10 by dbateman] dbateman parents: 6493 diff changeset	63 #include "graphics.h"
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	64
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	65 // #define DEBUG 1
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	66
5905 e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	67 static void
e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	68 xfree (void *ptr)
e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	69 {
e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	70 ::free (ptr);
e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	71 }
e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	72
6806 afa9123c5faa [project @ 2007-07-30 18:36:01 by jwe] jwe parents: 6787 diff changeset	73 static mwSize
afa9123c5faa [project @ 2007-07-30 18:36:01 by jwe] jwe parents: 6787 diff changeset	74 max_str_len (mwSize m, const char **str)
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 int max_len = 0;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	77
6806 afa9123c5faa [project @ 2007-07-30 18:36:01 by jwe] jwe parents: 6787 diff changeset	78 for (mwSize i = 0; i < m; i++)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	79 {
6806 afa9123c5faa [project @ 2007-07-30 18:36:01 by jwe] jwe parents: 6787 diff changeset	80 mwSize tmp = strlen (str[i]);
5900 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 if (tmp > max_len)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	83 max_len = tmp;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	84 }
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 return max_len;
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
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	89 static int
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	90 valid_key (const char *key)
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 int retval = 0;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	93
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	94 int nel = strlen (key);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	95
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	96 if (nel > 0)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	97 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	98 if (isalpha (key[0]))
10315 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 for (int i = 1; i < nel; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	101 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	102 if (! (isalnum (key[i]) \|\| key[i] == '_'))
21170 1edaf1ee65eb maint: Replace some uses of goto in libinterp. Rik <rik@octave.org> parents: 21151 diff changeset	103 return retval;
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	104 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	105
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	106 retval = 1;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	107 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	108 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	109
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	110 return retval;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	111 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	112
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	113 // ------------------------------------------------------------------
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	114
7357 3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	115 static mwIndex
3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	116 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	117 mwSize nsubs, const mwIndex *subs)
7357 3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	118 {
3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	119 mwIndex retval = 0;
3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	120
3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	121 switch (nsubs)
3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	122 {
3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	123 case 0:
3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	124 break;
3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	125
3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	126 case 1:
3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	127 retval = subs[0];
3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	128 break;
3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	129
3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	130 default:
3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	131 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	132 // 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	133
23450 855122b993da maint: Wrap tertiary operator in parentheses "(COND ? x : y)". Rik <rik@octave.org> parents: 23446 diff changeset	134 mwSize n = (nsubs <= ndims ? nsubs : ndims);
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	135
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	136 retval = subs[--n];
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	137
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	138 while (--n >= 0)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	139 retval = dims[n] * retval + subs[n];
7357 3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	140 }
3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	141 break;
3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	142 }
3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	143
3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	144 return retval;
3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	145 }
3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	146
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	147 // 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	148 // 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	149 // 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	150 // 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	151 // 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	152 // 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	153 // 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	154 // 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	155 // 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	156 // happen once per call to a MEX file.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	157
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	158 static inline void * maybe_mark_foreign (void *ptr);
7179 32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	159
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	160 class mxArray_octave_value : public mxArray_base
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	161 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	162 public:
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	163
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	164 mxArray_octave_value (const octave_value& ov)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	165 : mxArray_base (), val (ov), mutate_flag (false),
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23703 diff changeset	166 id (mxUNKNOWN_CLASS), class_name (nullptr), ndims (-1), dims (nullptr) { }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	167
22869 f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	168 // No assignment! FIXME: should this be implemented? Note that we
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	169 // do have a copy constructor.
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	170
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	171 mxArray_octave_value& operator = (const mxArray_octave_value&) = delete;
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	172
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	173 mxArray_base * dup (void) const { return new mxArray_octave_value (*this); }
cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	174
cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	175 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	176 {
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	177 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	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 // 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	180 // 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	181
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 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	183 {
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 // 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	185 // 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	186
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 // 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	188 // 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	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 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	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_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	193
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23703 diff changeset	194 class_name = nullptr;
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	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 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	198 {
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	199 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	200
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	201 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	202
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	203 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	204
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23703 diff changeset	205 dims = nullptr;
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	206 }
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	207 }
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	208
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	209 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	210 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	211
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	212 ~mxArray_octave_value (void)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	213 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	214 mxFree (class_name);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	215 mxFree (dims);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	216 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	217
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	218 bool is_octave_value (void) const { return true; }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	219
23576 00e518162fda maint: Deprecate is_cell and replace with iscell. Rik <rik@octave.org> parents: 23553 diff changeset	220 int iscell (void) const { return val.iscell (); }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	221
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	222 int is_char (void) const { return val.is_string (); }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	223
23581 c3075ae020e1 maint: Deprecate is_complex_type and replace with iscomplex. Rik <rik@octave.org> parents: 23579 diff changeset	224 int is_complex (void) const { return val.iscomplex (); }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	225
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	226 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	227
11100 cdf940db26a0 provide mxIsFunctionHandle MEX interface function John W. Eaton <jwe@octave.org> parents: 11073 diff changeset	228 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	229
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	230 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	231
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	232 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	233
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	234 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	235
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	236 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	237
23579 c20a0fa91c0c maint: Deprecate is_bool_type and replace with islogical. Rik <rik@octave.org> parents: 23577 diff changeset	238 int is_logical (void) const { return val.islogical (); }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	239
23586 f6c5db0a02e7 maint: Deprecate is_numeric_type and replace with isnumeric. Rik <rik@octave.org> parents: 23584 diff changeset	240 int is_numeric (void) const { return val.isnumeric (); }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	241
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	242 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	243
23583 b7747a2c88b2 maint: Deprecate is_sparse_type and replace with issparse. Rik <rik@octave.org> parents: 23582 diff changeset	244 int is_sparse (void) const { return val.issparse (); }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	245
23584 7ed6b258db91 maint: Deprecate is_map and replace with isstruct. Rik <rik@octave.org> parents: 23583 diff changeset	246 int is_struct (void) const { return val.isstruct (); }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	247
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	248 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	249
6069 67b1a61a85ce [project @ 2006-10-21 14:33:53 by jwe] jwe parents: 6068 diff changeset	250 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	251
67b1a61a85ce [project @ 2006-10-21 14:33:53 by jwe] jwe parents: 6068 diff changeset	252 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	253
67b1a61a85ce [project @ 2006-10-21 14:33:53 by jwe] jwe parents: 6068 diff changeset	254 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	255
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	256 int is_range (void) const { return val.is_range (); }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	257
23582 0cc2011d800e maint: Deprecate is_real_type and replace with isreal. Rik <rik@octave.org> parents: 23581 diff changeset	258 int isreal (void) const { return val.isreal (); }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	259
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	260 int is_logical_scalar_true (void) const
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	261 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	262 return (is_logical_scalar () && val.is_true ());
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	263 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	264
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	265 mwSize get_m (void) const { return val.rows (); }
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	266
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	267 mwSize get_n (void) const
6187 2a8922007c12 [project @ 2006-11-29 01:59:59 by jwe] jwe parents: 6071 diff changeset	268 {
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	269 mwSize n = 1;
6187 2a8922007c12 [project @ 2006-11-29 01:59:59 by jwe] jwe parents: 6071 diff changeset	270
2a8922007c12 [project @ 2006-11-29 01:59:59 by jwe] jwe parents: 6071 diff changeset	271 // 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	272 get_dimensions ();
6187 2a8922007c12 [project @ 2006-11-29 01:59:59 by jwe] jwe parents: 6071 diff changeset	273
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	274 for (mwIndex i = ndims - 1; i > 0; i--)
6187 2a8922007c12 [project @ 2006-11-29 01:59:59 by jwe] jwe parents: 6071 diff changeset	275 n *= dims[i];
2a8922007c12 [project @ 2006-11-29 01:59:59 by jwe] jwe parents: 6071 diff changeset	276
2a8922007c12 [project @ 2006-11-29 01:59:59 by jwe] jwe parents: 6071 diff changeset	277 return n;
2a8922007c12 [project @ 2006-11-29 01:59:59 by jwe] jwe parents: 6071 diff changeset	278 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	279
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	280 mwSize * get_dimensions (void) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	281 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	282 if (! dims)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	283 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	284 ndims = val.ndims ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	285
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	286 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	287 * sizeof (mwSize)));
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	288
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	289 dim_vector dv = val.dims ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	290
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	291 for (mwIndex i = 0; i < ndims; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	292 dims[i] = dv(i);
5900 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
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	295 return dims;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	296 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	297
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	298 mwSize get_number_of_dimensions (void) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	299 {
6332 debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	300 // Force dims and ndims to be cached.
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	301 get_dimensions ();
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	302
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	303 return ndims;
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 void set_m (mwSize /m/) { request_mutation (); }
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	307
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	308 void set_n (mwSize /n/) { request_mutation (); }
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	309
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	310 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	311 {
6400 566343604d95 [project @ 2007-03-08 22:58:22 by jwe] jwe parents: 6347 diff changeset	312 request_mutation ();
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	313
22599 51b395d24782 maint: strip tabs and trailing whitespace from C++ sources. John W. Eaton <jwe@octave.org> parents: 22480 diff changeset	314 return 0;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	315 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	316
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	317 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	318
23577 80c42f4cca13 maint: Deprecate is_empty and replace with isempty. Rik <rik@octave.org> parents: 23576 diff changeset	319 int isempty (void) const { return val.isempty (); }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	320
22462 6cb7813e5b2f Add new mxIsScalar function for MEX API. Rik <rik@octave.org> parents: 22454 diff changeset	321 bool is_scalar (void) const
6cb7813e5b2f Add new mxIsScalar function for MEX API. Rik <rik@octave.org> parents: 22454 diff changeset	322 {
6cb7813e5b2f Add new mxIsScalar function for MEX API. Rik <rik@octave.org> parents: 22454 diff changeset	323 // Force dims and ndims to be cached.
6cb7813e5b2f Add new mxIsScalar function for MEX API. Rik <rik@octave.org> parents: 22454 diff changeset	324 get_dimensions ();
6cb7813e5b2f Add new mxIsScalar function for MEX API. Rik <rik@octave.org> parents: 22454 diff changeset	325
6cb7813e5b2f Add new mxIsScalar function for MEX API. Rik <rik@octave.org> parents: 22454 diff changeset	326 return ndims == 2 && dims[0] == 1 && dims[1] == 1;
22599 51b395d24782 maint: strip tabs and trailing whitespace from C++ sources. John W. Eaton <jwe@octave.org> parents: 22480 diff changeset	327 }
22462 6cb7813e5b2f Add new mxIsScalar function for MEX API. Rik <rik@octave.org> parents: 22454 diff changeset	328
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	329 mxClassID get_class_id (void) const
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	330 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	331 id = mxUNKNOWN_CLASS;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	332
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	333 std::string cn = val.class_name ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	334
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	335 if (cn == "double")
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	336 id = mxDOUBLE_CLASS;
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	337 else if (cn == "single")
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	338 id = mxSINGLE_CLASS;
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	339 else if (cn == "char")
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	340 id = mxCHAR_CLASS;
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	341 else if (cn == "logical")
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	342 id = mxLOGICAL_CLASS;
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	343 else if (cn == "cell")
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	344 id = mxCELL_CLASS;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	345 else if (cn == "struct")
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	346 id = mxSTRUCT_CLASS;
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	347 else if (cn == "function_handle")
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	348 id = mxFUNCTION_CLASS;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	349 else if (cn == "int8")
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	350 id = mxINT8_CLASS;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	351 else if (cn == "uint8")
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	352 id = mxUINT8_CLASS;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	353 else if (cn == "int16")
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	354 id = mxINT16_CLASS;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	355 else if (cn == "uint16")
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	356 id = mxUINT16_CLASS;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	357 else if (cn == "int32")
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	358 id = mxINT32_CLASS;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	359 else if (cn == "uint32")
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	360 id = mxUINT32_CLASS;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	361 else if (cn == "int64")
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	362 id = mxINT64_CLASS;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	363 else if (cn == "uint64")
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	364 id = mxUINT64_CLASS;
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 id;
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
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	369 const char * get_class_name (void) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	370 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	371 if (! class_name)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	372 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	373 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	374 class_name = mxArray::strsave (s.c_str ());
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	375 }
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 return class_name;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	378 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	379
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	380 // Not allowed.
22449 e337b8e3592c Fix double free causing segfault in mxSetDimensions (bug #49010). Rik <rik@octave.org> parents: 22407 diff changeset	381 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	382
23893 75eff5b667b3 new mxSetProperty function for MEX API John W. Eaton <jwe@octave.org> parents: 23891 diff changeset	383 mxArray * get_property (mwIndex idx, const char *pname) const
23884 bd9e719f04cc new mxGetProperty function for MEX API Piotr Held <pjheld@gmail.com> parents: 23795 diff changeset	384 {
bd9e719f04cc new mxGetProperty function for MEX API Piotr Held <pjheld@gmail.com> parents: 23795 diff changeset	385 mxArray *retval = nullptr;
bd9e719f04cc new mxGetProperty function for MEX API Piotr Held <pjheld@gmail.com> parents: 23795 diff changeset	386
bd9e719f04cc new mxGetProperty function for MEX API Piotr Held <pjheld@gmail.com> parents: 23795 diff changeset	387 if (val.is_classdef_object ())
bd9e719f04cc new mxGetProperty function for MEX API Piotr Held <pjheld@gmail.com> parents: 23795 diff changeset	388 {
bd9e719f04cc new mxGetProperty function for MEX API Piotr Held <pjheld@gmail.com> parents: 23795 diff changeset	389 octave_classdef *ov_cdef = val.classdef_object_value ();
bd9e719f04cc new mxGetProperty function for MEX API Piotr Held <pjheld@gmail.com> parents: 23795 diff changeset	390
bd9e719f04cc new mxGetProperty function for MEX API Piotr Held <pjheld@gmail.com> parents: 23795 diff changeset	391 if (ov_cdef)
bd9e719f04cc new mxGetProperty function for MEX API Piotr Held <pjheld@gmail.com> parents: 23795 diff changeset	392 {
23893 75eff5b667b3 new mxSetProperty function for MEX API John W. Eaton <jwe@octave.org> parents: 23891 diff changeset	393 octave_value pval = ov_cdef->get_property (idx, pname);
75eff5b667b3 new mxSetProperty function for MEX API John W. Eaton <jwe@octave.org> parents: 23891 diff changeset	394
23898 a490e729f2f2 correctly return NULL for unknown properties in mxGetProperty (bug #51725) John W. Eaton <jwe@octave.org> parents: 23893 diff changeset	395 if (pval.is_defined())
23893 75eff5b667b3 new mxSetProperty function for MEX API John W. Eaton <jwe@octave.org> parents: 23891 diff changeset	396 retval = new mxArray (pval);
23884 bd9e719f04cc new mxGetProperty function for MEX API Piotr Held <pjheld@gmail.com> parents: 23795 diff changeset	397 }
bd9e719f04cc new mxGetProperty function for MEX API Piotr Held <pjheld@gmail.com> parents: 23795 diff changeset	398 }
bd9e719f04cc new mxGetProperty function for MEX API Piotr Held <pjheld@gmail.com> parents: 23795 diff changeset	399
bd9e719f04cc new mxGetProperty function for MEX API Piotr Held <pjheld@gmail.com> parents: 23795 diff changeset	400 return retval;
bd9e719f04cc new mxGetProperty function for MEX API Piotr Held <pjheld@gmail.com> parents: 23795 diff changeset	401 }
bd9e719f04cc new mxGetProperty function for MEX API Piotr Held <pjheld@gmail.com> parents: 23795 diff changeset	402
23893 75eff5b667b3 new mxSetProperty function for MEX API John W. Eaton <jwe@octave.org> parents: 23891 diff changeset	403 void set_property (mwIndex idx, const char pname, const mxArray pval)
75eff5b667b3 new mxSetProperty function for MEX API John W. Eaton <jwe@octave.org> parents: 23891 diff changeset	404 {
75eff5b667b3 new mxSetProperty function for MEX API John W. Eaton <jwe@octave.org> parents: 23891 diff changeset	405 if (val.is_classdef_object ())
75eff5b667b3 new mxSetProperty function for MEX API John W. Eaton <jwe@octave.org> parents: 23891 diff changeset	406 {
75eff5b667b3 new mxSetProperty function for MEX API John W. Eaton <jwe@octave.org> parents: 23891 diff changeset	407 octave_classdef *ov_cdef = val.classdef_object_value ();
75eff5b667b3 new mxSetProperty function for MEX API John W. Eaton <jwe@octave.org> parents: 23891 diff changeset	408
75eff5b667b3 new mxSetProperty function for MEX API John W. Eaton <jwe@octave.org> parents: 23891 diff changeset	409 if (ov_cdef)
75eff5b667b3 new mxSetProperty function for MEX API John W. Eaton <jwe@octave.org> parents: 23891 diff changeset	410 ov_cdef->set_property (idx, pname, pval->as_octave_value ());
75eff5b667b3 new mxSetProperty function for MEX API John W. Eaton <jwe@octave.org> parents: 23891 diff changeset	411 }
75eff5b667b3 new mxSetProperty function for MEX API John W. Eaton <jwe@octave.org> parents: 23891 diff changeset	412 else
75eff5b667b3 new mxSetProperty function for MEX API John W. Eaton <jwe@octave.org> parents: 23891 diff changeset	413 err_invalid_type ();
75eff5b667b3 new mxSetProperty function for MEX API John W. Eaton <jwe@octave.org> parents: 23891 diff changeset	414 }
75eff5b667b3 new mxSetProperty function for MEX API John W. Eaton <jwe@octave.org> parents: 23891 diff changeset	415
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	416 mxArray * get_cell (mwIndex /idx/) const
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 request_mutation ();
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23703 diff changeset	419 return nullptr;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	420 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	421
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	422 // Not allowed.
22449 e337b8e3592c Fix double free causing segfault in mxSetDimensions (bug #49010). Rik <rik@octave.org> parents: 22407 diff changeset	423 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	424
22480 9263b2889003 Change mxGetScalar to return the first non-zero element of sparse array. Rik <rik@octave.org> parents: 22471 diff changeset	425 double get_scalar (void) const
9263b2889003 Change mxGetScalar to return the first non-zero element of sparse array. Rik <rik@octave.org> parents: 22471 diff changeset	426 {
23583 b7747a2c88b2 maint: Deprecate is_sparse_type and replace with issparse. Rik <rik@octave.org> parents: 23582 diff changeset	427 if (val.issparse ())
22480 9263b2889003 Change mxGetScalar to return the first non-zero element of sparse array. Rik <rik@octave.org> parents: 22471 diff changeset	428 {
22599 51b395d24782 maint: strip tabs and trailing whitespace from C++ sources. John W. Eaton <jwe@octave.org> parents: 22480 diff changeset	429 // For sparse arrays, return the first non-zero value.
23432 e35a5c1233d0 maint: Use convention 'int x' for naming pointers. Rik <rik@octave.org>* parents: 23220 diff changeset	430 void *data = val.mex_get_data ();
23457 21baad6b35c4 maint: Use C++11 nullptr rather than 0 or NULL when possible. Rik <rik@octave.org> parents: 23455 diff changeset	431 if (data == nullptr)
22480 9263b2889003 Change mxGetScalar to return the first non-zero element of sparse array. Rik <rik@octave.org> parents: 22471 diff changeset	432 return 0.0;
9263b2889003 Change mxGetScalar to return the first non-zero element of sparse array. Rik <rik@octave.org> parents: 22471 diff changeset	433
23579 c20a0fa91c0c maint: Deprecate is_bool_type and replace with islogical. Rik <rik@octave.org> parents: 23577 diff changeset	434 if (val.islogical ())
22480 9263b2889003 Change mxGetScalar to return the first non-zero element of sparse array. Rik <rik@octave.org> parents: 22471 diff changeset	435 return static_cast<bool > (data);
23582 0cc2011d800e maint: Deprecate is_real_type and replace with isreal. Rik <rik@octave.org> parents: 23581 diff changeset	436 else if (val.isreal ())
22480 9263b2889003 Change mxGetScalar to return the first non-zero element of sparse array. Rik <rik@octave.org> parents: 22471 diff changeset	437 return static_cast<double > (data);
9263b2889003 Change mxGetScalar to return the first non-zero element of sparse array. Rik <rik@octave.org> parents: 22471 diff changeset	438 else // Complex type, only return real part
9263b2889003 Change mxGetScalar to return the first non-zero element of sparse array. Rik <rik@octave.org> parents: 22471 diff changeset	439 return static_cast<double > (data);
9263b2889003 Change mxGetScalar to return the first non-zero element of sparse array. Rik <rik@octave.org> parents: 22471 diff changeset	440 }
9263b2889003 Change mxGetScalar to return the first non-zero element of sparse array. Rik <rik@octave.org> parents: 22471 diff changeset	441 else
9263b2889003 Change mxGetScalar to return the first non-zero element of sparse array. Rik <rik@octave.org> parents: 22471 diff changeset	442 return val.scalar_value (true);
9263b2889003 Change mxGetScalar to return the first non-zero element of sparse array. Rik <rik@octave.org> parents: 22471 diff changeset	443 }
6332 debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	444
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	445 void * get_data (void) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	446 {
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	447 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	448
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	449 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	450 maybe_mark_foreign (retval);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	451 else
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	452 request_mutation ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	453
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	454 return retval;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	455 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	456
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	457 void * get_imag_data (void) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	458 {
23457 21baad6b35c4 maint: Use C++11 nullptr rather than 0 or NULL when possible. Rik <rik@octave.org> parents: 23455 diff changeset	459 void *retval = nullptr;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	460
23582 0cc2011d800e maint: Deprecate is_real_type and replace with isreal. Rik <rik@octave.org> parents: 23581 diff changeset	461 if (is_numeric () && isreal ())
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23703 diff changeset	462 retval = nullptr;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	463 else
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	464 request_mutation ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	465
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	466 return retval;
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
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	469 // Not allowed.
22449 e337b8e3592c Fix double free causing segfault in mxSetDimensions (bug #49010). Rik <rik@octave.org> parents: 22407 diff changeset	470 void set_data (void * /pr/) { request_mutation (); }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	471
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	472 // Not allowed.
22449 e337b8e3592c Fix double free causing segfault in mxSetDimensions (bug #49010). Rik <rik@octave.org> parents: 22407 diff changeset	473 void set_imag_data (void * /pi/) { request_mutation (); }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	474
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	475 mwIndex * get_ir (void) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	476 {
7179 32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	477 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	478 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	479
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	480 mwIndex * get_jc (void) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	481 {
7179 32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	482 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	483 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	484
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	485 mwSize get_nzmax (void) const { return val.nzmax (); }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	486
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	487 // Not allowed.
22449 e337b8e3592c Fix double free causing segfault in mxSetDimensions (bug #49010). Rik <rik@octave.org> parents: 22407 diff changeset	488 void set_ir (mwIndex * /ir/) { request_mutation (); }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	489
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	490 // Not allowed.
22449 e337b8e3592c Fix double free causing segfault in mxSetDimensions (bug #49010). Rik <rik@octave.org> parents: 22407 diff changeset	491 void set_jc (mwIndex * /jc/) { request_mutation (); }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	492
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	493 // Not allowed.
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	494 void set_nzmax (mwSize /nzmax/) { request_mutation (); }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	495
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	496 // Not allowed.
22449 e337b8e3592c Fix double free causing segfault in mxSetDimensions (bug #49010). Rik <rik@octave.org> parents: 22407 diff changeset	497 int add_field (const char * /key/)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	498 {
6400 566343604d95 [project @ 2007-03-08 22:58:22 by jwe] jwe parents: 6347 diff changeset	499 request_mutation ();
566343604d95 [project @ 2007-03-08 22:58:22 by jwe] jwe parents: 6347 diff changeset	500 return 0;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	501 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	502
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	503 // Not allowed.
6400 566343604d95 [project @ 2007-03-08 22:58:22 by jwe] jwe parents: 6347 diff changeset	504 void remove_field (int /key_num/) { request_mutation (); }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	505
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	506 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	507 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	508 request_mutation ();
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23703 diff changeset	509 return nullptr;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	510 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	511
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	512 // Not allowed.
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	513 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	514 mxArray * /val/)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	515 {
6400 566343604d95 [project @ 2007-03-08 22:58:22 by jwe] jwe parents: 6347 diff changeset	516 request_mutation ();
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	517 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	518
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	519 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	520
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	521 const char * get_field_name_by_number (int /key_num/) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	522 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	523 request_mutation ();
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23703 diff changeset	524 return nullptr;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	525 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	526
22449 e337b8e3592c Fix double free causing segfault in mxSetDimensions (bug #49010). Rik <rik@octave.org> parents: 22407 diff changeset	527 int get_field_number (const char * /key/) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	528 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	529 request_mutation ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	530 return 0;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	531 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	532
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	533 int get_string (char *buf, mwSize buflen) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	534 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	535 int retval = 1;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	536
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	537 mwSize nel = get_number_of_elements ();
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	538
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	539 if (val.is_string () && nel < buflen)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	540 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	541 charNDArray tmp = val.char_array_value ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	542
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	543 const char *p = tmp.data ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	544
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	545 for (mwIndex i = 0; i < nel; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	546 buf[i] = p[i];
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	547
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	548 buf[nel] = 0;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	549
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	550 retval = 0;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	551 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	552
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	553 return retval;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	554 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	555
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	556 char * array_to_string (void) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	557 {
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	558 // 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	559
23457 21baad6b35c4 maint: Use C++11 nullptr rather than 0 or NULL when possible. Rik <rik@octave.org> parents: 23455 diff changeset	560 char *buf = nullptr;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	561
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	562 if (val.is_string ())
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	563 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	564 mwSize nel = get_number_of_elements ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	565
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	566 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	567
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	568 if (buf)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	569 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	570 charNDArray tmp = val.char_array_value ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	571
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	572 const char *p = tmp.data ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	573
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	574 for (mwIndex i = 0; i < nel; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	575 buf[i] = p[i];
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	576
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	577 buf[nel] = '\0';
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	578 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	579 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	580
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	581 return buf;
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
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	584 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	585 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	586 // Force ndims, dims to be cached.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	587 get_dimensions ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	588
7357 3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	589 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	590 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	591
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	592 size_t get_element_size (void) const
5900 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 // Force id to be cached.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	595 get_class_id ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	596
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	597 switch (id)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	598 {
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	599 case mxDOUBLE_CLASS: return sizeof (double);
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	600 case mxSINGLE_CLASS: return sizeof (float);
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	601 case mxCHAR_CLASS: return sizeof (mxChar);
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	602 case mxLOGICAL_CLASS: return sizeof (mxLogical);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	603 case mxCELL_CLASS: return sizeof (mxArray *);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	604 case mxSTRUCT_CLASS: return sizeof (mxArray *);
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	605 case mxFUNCTION_CLASS: return 0;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	606 case mxINT8_CLASS: return 1;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	607 case mxUINT8_CLASS: return 1;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	608 case mxINT16_CLASS: return 2;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	609 case mxUINT16_CLASS: return 2;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	610 case mxINT32_CLASS: return 4;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	611 case mxUINT32_CLASS: return 4;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	612 case mxINT64_CLASS: return 8;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	613 case mxUINT64_CLASS: return 8;
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	614 // 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	615 // What should they return, size of pointer?
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	616 default: return 0;
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	617 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	618 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	619
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	620 bool mutation_needed (void) const { return mutate_flag; }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	621
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	622 void request_mutation (void) const
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	623 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	624 if (mutate_flag)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	625 panic_impossible ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	626
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	627 mutate_flag = true;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	628 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	629
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	630 mxArray * mutate (void) const { return as_mxArray (); }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	631
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	632 octave_value as_octave_value (void) const { return val; }
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	633
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	634 protected:
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	635
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	636 mxArray_octave_value (const mxArray_octave_value& arg)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	637 : 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	638 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	639 ndims (arg.ndims),
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	640 dims (ndims > 0 ? static_cast<mwSize *>
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	641 (mxArray::malloc (ndims * sizeof (mwSize)))
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23703 diff changeset	642 : nullptr)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	643 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	644 if (dims)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	645 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	646 for (mwIndex i = 0; i < ndims; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	647 dims[i] = arg.dims[i];
5900 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 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	650
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	651 private:
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	652
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	653 octave_value val;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	654
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	655 mutable bool mutate_flag;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	656
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	657 // 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	658 // 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	659 // Matlab-style mxArray object.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	660
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	661 mutable mxClassID id;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	662 mutable char *class_name;
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	663 mutable mwSize ndims;
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	664 mutable mwSize *dims;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	665 };
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	666
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	667 // 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	668 // things that are common to all Matlab-style objects.
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 class mxArray_matlab : public mxArray_base
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	671 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	672 protected:
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 mxArray_matlab (mxClassID id_arg = mxUNKNOWN_CLASS)
27932 b018f553fd85 maint: Use Octave coding conventions in libinterp/ Rik <rik@octave.org> parents: 27923 diff changeset	675 : mxArray_base (), class_name (nullptr), id (id_arg), ndims (0),
b018f553fd85 maint: Use Octave coding conventions in libinterp/ Rik <rik@octave.org> parents: 27923 diff changeset	676 dims (nullptr)
b018f553fd85 maint: Use Octave coding conventions in libinterp/ Rik <rik@octave.org> parents: 27923 diff changeset	677 { }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	678
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	679 mxArray_matlab (mxClassID id_arg, mwSize ndims_arg, const mwSize *dims_arg)
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23703 diff changeset	680 : mxArray_base (), class_name (nullptr), id (id_arg),
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	681 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	682 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	683 {
20362 b9bd8786d310 fix incompatibility in mxCreateNumericArray (bug #45319) John W. Eaton <jwe@octave.org> parents: 20261 diff changeset	684 if (ndims_arg == 0)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	685 {
20261 2691947f5409 Change mxCreateNumericArray to be Matlab compatible for ndims < 2 (bug #45319). Rik <rik@octave.org> parents: 19739 diff changeset	686 dims[0] = 0;
2691947f5409 Change mxCreateNumericArray to be Matlab compatible for ndims < 2 (bug #45319). Rik <rik@octave.org> parents: 19739 diff changeset	687 dims[1] = 0;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	688 }
20362 b9bd8786d310 fix incompatibility in mxCreateNumericArray (bug #45319) John W. Eaton <jwe@octave.org> parents: 20261 diff changeset	689 else if (ndims_arg < 2)
b9bd8786d310 fix incompatibility in mxCreateNumericArray (bug #45319) John W. Eaton <jwe@octave.org> parents: 20261 diff changeset	690 {
b9bd8786d310 fix incompatibility in mxCreateNumericArray (bug #45319) John W. Eaton <jwe@octave.org> parents: 20261 diff changeset	691 dims[0] = 1;
b9bd8786d310 fix incompatibility in mxCreateNumericArray (bug #45319) John W. Eaton <jwe@octave.org> parents: 20261 diff changeset	692 dims[1] = 1;
b9bd8786d310 fix incompatibility in mxCreateNumericArray (bug #45319) John W. Eaton <jwe@octave.org> parents: 20261 diff changeset	693 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	694
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	695 for (mwIndex i = 0; i < ndims_arg; i++)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	696 dims[i] = dims_arg[i];
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	697
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	698 for (mwIndex i = ndims - 1; i > 1; i--)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	699 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	700 if (dims[i] == 1)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	701 ndims--;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	702 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	703 break;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	704 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	705 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	706
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	707 mxArray_matlab (mxClassID id_arg, const dim_vector& dv)
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23703 diff changeset	708 : mxArray_base (), class_name (nullptr), id (id_arg),
21660 53728df3e4c9 maint: for clarity, call ndims() rather than length() on dimension vectors. Rik <rik@octave.org> parents: 21301 diff changeset	709 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	710 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	711 {
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	712 for (mwIndex i = 0; i < ndims; i++)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	713 dims[i] = dv(i);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	714
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	715 for (mwIndex i = ndims - 1; i > 1; i--)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	716 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	717 if (dims[i] == 1)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	718 ndims--;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	719 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	720 break;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	721 }
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
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	724 mxArray_matlab (mxClassID id_arg, mwSize m, mwSize n)
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23703 diff changeset	725 : mxArray_base (), class_name (nullptr), 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	726 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	727 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	728 dims[0] = m;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	729 dims[1] = n;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	730 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	731
22869 f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	732 mxArray_matlab (const mxArray_matlab& val)
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	733 : mxArray_base (val), class_name (mxArray::strsave (val.class_name)),
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	734 id (val.id), ndims (val.ndims),
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	735 dims (static_cast<mwSize > (mxArray::malloc (ndims sizeof (mwSize))))
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	736 {
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	737 for (mwIndex i = 0; i < ndims; i++)
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	738 dims[i] = val.dims[i];
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	739 }
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	740
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	741 public:
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	742
22869 f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	743 // No assignment!
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	744 // FIXME: should this be implemented?
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	745 // Note that we do have a copy constructor.
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	746
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	747 mxArray_matlab& operator = (const mxArray_matlab&);
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	748
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	749 ~mxArray_matlab (void)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	750 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	751 mxFree (class_name);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	752 mxFree (dims);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	753 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	754
23576 00e518162fda maint: Deprecate is_cell and replace with iscell. Rik <rik@octave.org> parents: 23553 diff changeset	755 int iscell (void) const { return id == mxCELL_CLASS; }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	756
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	757 int is_char (void) const { return id == mxCHAR_CLASS; }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	758
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	759 int is_complex (void) const { return 0; }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	760
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	761 int is_double (void) const { return id == mxDOUBLE_CLASS; }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	762
11100 cdf940db26a0 provide mxIsFunctionHandle MEX interface function John W. Eaton <jwe@octave.org> parents: 11073 diff changeset	763 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	764
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	765 int is_int16 (void) const { return id == mxINT16_CLASS; }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	766
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	767 int is_int32 (void) const { return id == mxINT32_CLASS; }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	768
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	769 int is_int64 (void) const { return id == mxINT64_CLASS; }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	770
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	771 int is_int8 (void) const { return id == mxINT8_CLASS; }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	772
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	773 int is_logical (void) const { return id == mxLOGICAL_CLASS; }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	774
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	775 int is_numeric (void) const
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	776 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	777 return (id == mxDOUBLE_CLASS \|\| id == mxSINGLE_CLASS
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	778 \|\| id == mxINT8_CLASS \|\| id == mxUINT8_CLASS
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	779 \|\| id == mxINT16_CLASS \|\| id == mxUINT16_CLASS
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	780 \|\| id == mxINT32_CLASS \|\| id == mxUINT32_CLASS
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	781 \|\| id == mxINT64_CLASS \|\| id == mxUINT64_CLASS);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	782 }
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 int is_single (void) const { return id == mxSINGLE_CLASS; }
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 int is_sparse (void) const { return 0; }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	787
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	788 int is_struct (void) const { return id == mxSTRUCT_CLASS; }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	789
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	790 int is_uint16 (void) const { return id == mxUINT16_CLASS; }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	791
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	792 int is_uint32 (void) const { return id == mxUINT32_CLASS; }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	793
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	794 int is_uint64 (void) const { return id == mxUINT64_CLASS; }
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 int is_uint8 (void) const { return id == mxUINT8_CLASS; }
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 int is_logical_scalar_true (void) const
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	799 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	800 return (is_logical_scalar ()
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	801 && static_cast<mxLogical *> (get_data ())[0] != 0);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	802 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	803
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	804 mwSize get_m (void) const { return dims[0]; }
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	805
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	806 mwSize get_n (void) const
6187 2a8922007c12 [project @ 2006-11-29 01:59:59 by jwe] jwe parents: 6071 diff changeset	807 {
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	808 mwSize n = 1;
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	809
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	810 for (mwSize i = ndims - 1 ; i > 0 ; i--)
6187 2a8922007c12 [project @ 2006-11-29 01:59:59 by jwe] jwe parents: 6071 diff changeset	811 n *= dims[i];
2a8922007c12 [project @ 2006-11-29 01:59:59 by jwe] jwe parents: 6071 diff changeset	812
2a8922007c12 [project @ 2006-11-29 01:59:59 by jwe] jwe parents: 6071 diff changeset	813 return n;
2a8922007c12 [project @ 2006-11-29 01:59:59 by jwe] jwe parents: 6071 diff changeset	814 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	815
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	816 mwSize * get_dimensions (void) const { return dims; }
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	817
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	818 mwSize get_number_of_dimensions (void) const { return ndims; }
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	819
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	820 void set_m (mwSize m) { dims[0] = m; }
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	821
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	822 void set_n (mwSize n) { dims[1] = n; }
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	823
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	824 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	825 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	826 ndims = ndims_arg;
22449 e337b8e3592c Fix double free causing segfault in mxSetDimensions (bug #49010). Rik <rik@octave.org> parents: 22407 diff changeset	827
e337b8e3592c Fix double free causing segfault in mxSetDimensions (bug #49010). Rik <rik@octave.org> parents: 22407 diff changeset	828 mxFree (dims);
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	829
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	830 if (ndims > 0)
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	831 {
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	832 dims
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	833 = static_cast<mwSize > (mxArray::malloc (ndims sizeof (mwSize)));
22599 51b395d24782 maint: strip tabs and trailing whitespace from C++ sources. John W. Eaton <jwe@octave.org> parents: 22480 diff changeset	834
23457 21baad6b35c4 maint: Use C++11 nullptr rather than 0 or NULL when possible. Rik <rik@octave.org> parents: 23455 diff changeset	835 if (dims == nullptr)
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	836 return 1;
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	837
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	838 for (int i = 0; i < ndims; i++)
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	839 dims[i] = dims_arg[i];
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	840
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	841 return 0;
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	842 }
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	843 else
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	844 {
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23703 diff changeset	845 dims = nullptr;
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	846 return 0;
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	847 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	848 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	849
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	850 mwSize get_number_of_elements (void) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	851 {
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	852 mwSize retval = dims[0];
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	853
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	854 for (mwIndex i = 1; i < ndims; i++)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	855 retval *= dims[i];
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 return retval;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	858 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	859
23577 80c42f4cca13 maint: Deprecate is_empty and replace with isempty. Rik <rik@octave.org> parents: 23576 diff changeset	860 int isempty (void) const { return get_number_of_elements () == 0; }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	861
22462 6cb7813e5b2f Add new mxIsScalar function for MEX API. Rik <rik@octave.org> parents: 22454 diff changeset	862 bool is_scalar (void) const
6cb7813e5b2f Add new mxIsScalar function for MEX API. Rik <rik@octave.org> parents: 22454 diff changeset	863 {
6cb7813e5b2f Add new mxIsScalar function for MEX API. Rik <rik@octave.org> parents: 22454 diff changeset	864 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	865 }
6cb7813e5b2f Add new mxIsScalar function for MEX API. Rik <rik@octave.org> parents: 22454 diff changeset	866
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	867 mxClassID get_class_id (void) const { return id; }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	868
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	869 const char * get_class_name (void) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	870 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	871 switch (id)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	872 {
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	873 case mxDOUBLE_CLASS: return "double";
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	874 case mxSINGLE_CLASS: return "single";
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	875 case mxCHAR_CLASS: return "char";
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	876 case mxLOGICAL_CLASS: return "logical";
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	877 case mxCELL_CLASS: return "cell";
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	878 case mxSTRUCT_CLASS: return "struct";
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	879 case mxFUNCTION_CLASS: return "function_handle";
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	880 case mxINT8_CLASS: return "int8";
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	881 case mxUINT8_CLASS: return "uint8";
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	882 case mxINT16_CLASS: return "int16";
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	883 case mxUINT16_CLASS: return "uint16";
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	884 case mxINT32_CLASS: return "int32";
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	885 case mxUINT32_CLASS: return "uint32";
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	886 case mxINT64_CLASS: return "int64";
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	887 case mxUINT64_CLASS: return "uint64";
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	888 case mxUNKNOWN_CLASS: return "unknown";
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	889 // 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	890 default: return "unknown";
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 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	893
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	894 void set_class_name (const char *name_arg)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	895 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	896 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	897 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	898 strcpy (class_name, name_arg);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	899 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	900
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	901 mxArray * get_cell (mwIndex /idx/) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	902 {
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	903 err_invalid_type ();
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	904 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	905
22449 e337b8e3592c Fix double free causing segfault in mxSetDimensions (bug #49010). Rik <rik@octave.org> parents: 22407 diff changeset	906 void set_cell (mwIndex /idx/, mxArray * /val/)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	907 {
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	908 err_invalid_type ();
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	909 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	910
6332 debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	911 double get_scalar (void) const
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	912 {
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	913 err_invalid_type ();
6332 debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	914 }
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	915
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	916 void * get_data (void) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	917 {
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	918 err_invalid_type ();
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	919 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	920
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	921 void * get_imag_data (void) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	922 {
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	923 err_invalid_type ();
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	924 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	925
22449 e337b8e3592c Fix double free causing segfault in mxSetDimensions (bug #49010). Rik <rik@octave.org> parents: 22407 diff changeset	926 void set_data (void * /pr/)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	927 {
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	928 err_invalid_type ();
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	929 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	930
22449 e337b8e3592c Fix double free causing segfault in mxSetDimensions (bug #49010). Rik <rik@octave.org> parents: 22407 diff changeset	931 void set_imag_data (void * /pi/)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	932 {
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	933 err_invalid_type ();
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	934 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	935
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	936 mwIndex * get_ir (void) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	937 {
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	938 err_invalid_type ();
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	939 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	940
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	941 mwIndex * get_jc (void) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	942 {
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	943 err_invalid_type ();
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	944 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	945
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	946 mwSize get_nzmax (void) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	947 {
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	948 err_invalid_type ();
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	949 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	950
22449 e337b8e3592c Fix double free causing segfault in mxSetDimensions (bug #49010). Rik <rik@octave.org> parents: 22407 diff changeset	951 void set_ir (mwIndex * /ir/)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	952 {
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	953 err_invalid_type ();
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	954 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	955
22449 e337b8e3592c Fix double free causing segfault in mxSetDimensions (bug #49010). Rik <rik@octave.org> parents: 22407 diff changeset	956 void set_jc (mwIndex * /jc/)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	957 {
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	958 err_invalid_type ();
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	959 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	960
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	961 void set_nzmax (mwSize /nzmax/)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	962 {
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	963 err_invalid_type ();
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	964 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	965
22449 e337b8e3592c Fix double free causing segfault in mxSetDimensions (bug #49010). Rik <rik@octave.org> parents: 22407 diff changeset	966 int add_field (const char * /key/)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	967 {
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	968 err_invalid_type ();
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	969 }
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 void remove_field (int /key_num/)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	972 {
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	973 err_invalid_type ();
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	974 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	975
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	976 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	977 {
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	978 err_invalid_type ();
5900 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
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	981 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	982 mxArray * /val/)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	983 {
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	984 err_invalid_type ();
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	985 }
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 int get_number_of_fields (void) const
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	988 {
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	989 err_invalid_type ();
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	990 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	991
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	992 const char * get_field_name_by_number (int /key_num/) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	993 {
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	994 err_invalid_type ();
5900 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
22449 e337b8e3592c Fix double free causing segfault in mxSetDimensions (bug #49010). Rik <rik@octave.org> parents: 22407 diff changeset	997 int get_field_number (const char * /key/) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	998 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	999 return -1;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1000 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1001
22449 e337b8e3592c Fix double free causing segfault in mxSetDimensions (bug #49010). Rik <rik@octave.org> parents: 22407 diff changeset	1002 int get_string (char * /buf/, mwSize /buflen/) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1003 {
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	1004 err_invalid_type ();
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1005 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1006
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	1007 char * array_to_string (void) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1008 {
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	1009 err_invalid_type ();
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1010 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1011
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1012 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	1013 {
7357 3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	1014 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	1015 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1016
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1017 size_t get_element_size (void) const
5900 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 switch (id)
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 case mxCELL_CLASS: return sizeof (mxArray *);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1022 case mxSTRUCT_CLASS: return sizeof (mxArray *);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1023 case mxLOGICAL_CLASS: return sizeof (mxLogical);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1024 case mxCHAR_CLASS: return sizeof (mxChar);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1025 case mxDOUBLE_CLASS: return sizeof (double);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1026 case mxSINGLE_CLASS: return sizeof (float);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1027 case mxINT8_CLASS: return 1;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1028 case mxUINT8_CLASS: return 1;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1029 case mxINT16_CLASS: return 2;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1030 case mxUINT16_CLASS: return 2;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1031 case mxINT32_CLASS: return 4;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1032 case mxUINT32_CLASS: return 4;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1033 case mxINT64_CLASS: return 8;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1034 case mxUINT64_CLASS: return 8;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1035 case mxFUNCTION_CLASS: return 0;
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1036 // 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	1037 // What should they return, size of pointer?
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1038 default: return 0;
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	1039 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1040 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1041
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1042 protected:
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1043
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1044 dim_vector
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1045 dims_to_dim_vector (void) const
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1046 {
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1047 mwSize nd = get_number_of_dimensions ();
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1048
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1049 mwSize *d = get_dimensions ();
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1050
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1051 dim_vector dv;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1052 dv.resize (nd);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1053
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1054 for (mwIndex i = 0; i < nd; i++)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1055 dv(i) = d[i];
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1056
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1057 return dv;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1058 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1059
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1060 private:
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1061
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1062 char *class_name;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1063
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1064 mxClassID id;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1065
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1066 mwSize ndims;
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1067 mwSize *dims;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1068
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	1069 OCTAVE_NORETURN void err_invalid_type (void) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1070 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1071 error ("invalid type for operation");
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1072 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1073 };
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 // Matlab-style numeric, character, and logical data.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1076
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1077 class mxArray_number : public mxArray_matlab
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 public:
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1080
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1081 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	1082 mxComplexity flag = mxREAL, bool init = true)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1083 : mxArray_matlab (id_arg, ndims_arg, dims_arg),
22464 1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	1084 pr (init ? mxArray::calloc (get_number_of_elements (),
1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	1085 get_element_size ())
1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	1086 : mxArray::malloc (get_number_of_elements ()
1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	1087 * get_element_size ())),
1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	1088 pi (flag == mxCOMPLEX
1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	1089 ? (init ? mxArray::calloc (get_number_of_elements (),
1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	1090 get_element_size ())
1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	1091 : mxArray::malloc (get_number_of_elements ()
1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	1092 * get_element_size ()))
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23703 diff changeset	1093 : nullptr) { }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1094
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1095 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	1096 mxComplexity flag = mxREAL)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1097 : 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	1098 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	1099 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	1100 get_element_size ())
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23703 diff changeset	1101 : nullptr)
22464 1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	1102 { }
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1103
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1104 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	1105 mxComplexity flag = mxREAL, bool init = true)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1106 : mxArray_matlab (id_arg, m, n),
22464 1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	1107 pr (init ? mxArray::calloc (get_number_of_elements (),
1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	1108 get_element_size ())
1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	1109 : mxArray::malloc (get_number_of_elements ()
1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	1110 * get_element_size ())),
1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	1111 pi (flag == mxCOMPLEX
1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	1112 ? (init ? mxArray::calloc (get_number_of_elements (),
1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	1113 get_element_size ())
1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	1114 : mxArray::malloc (get_number_of_elements ()
1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	1115 * get_element_size ()))
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23703 diff changeset	1116 : nullptr)
22464 1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	1117 { }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1118
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1119 mxArray_number (mxClassID id_arg, double val)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1120 : 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	1121 pr (mxArray::calloc (get_number_of_elements (), get_element_size ())),
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23703 diff changeset	1122 pi (nullptr)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1123 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1124 double dpr = static_cast<double > (pr);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1125 dpr[0] = val;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1126 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1127
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1128 mxArray_number (mxClassID id_arg, mxLogical val)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1129 : 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	1130 pr (mxArray::calloc (get_number_of_elements (), get_element_size ())),
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23703 diff changeset	1131 pi (nullptr)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1132 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1133 mxLogical lpr = static_cast<mxLogical > (pr);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1134 lpr[0] = val;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1135 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1136
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1137 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	1138 : 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	1139 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	1140 str ? strlen (str) : 0),
25103 078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1141 pr (mxArray::calloc (get_number_of_elements (), get_element_size ())),
078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1142 pi (nullptr)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1143 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1144 mxChar cpr = static_cast<mxChar > (pr);
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1145 mwSize nel = get_number_of_elements ();
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1146 for (mwIndex i = 0; i < nel; i++)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1147 cpr[i] = str[i];
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1148 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1149
17861 870f3e12e163 maint: Use phrase "FIXME:" for problem areas in code. Rik <rik@octave.org> parents: 17810 diff changeset	1150 // FIXME: ???
6806 afa9123c5faa [project @ 2007-07-30 18:36:01 by jwe] jwe parents: 6787 diff changeset	1151 mxArray_number (mwSize m, const char **str)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1152 : 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	1153 pr (mxArray::calloc (get_number_of_elements (), get_element_size ())),
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23703 diff changeset	1154 pi (nullptr)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1155 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1156 mxChar cpr = static_cast<mxChar > (pr);
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	1157
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1158 mwSize *dv = get_dimensions ();
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1159
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1160 mwSize nc = dv[1];
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1161
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1162 for (mwIndex j = 0; j < m; j++)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1163 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1164 const char *ptr = str[j];
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1165
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1166 size_t tmp_len = strlen (ptr);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1167
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1168 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	1169 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	1170
25688 b2917b7858ba maint: Use Octave convention for spacing of C++ cast statements. Rik <rik@octave.org> parents: 25646 diff changeset	1171 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	1172 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	1173 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1174 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1175
22869 f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1176 protected:
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1177
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1178 mxArray_number (const mxArray_number& val)
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1179 : mxArray_matlab (val),
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1180 pr (mxArray::malloc (get_number_of_elements () * get_element_size ())),
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1181 pi (val.pi ? mxArray::malloc (get_number_of_elements ()
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1182 * get_element_size ())
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23703 diff changeset	1183 : nullptr)
22869 f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1184 {
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1185 size_t nbytes = get_number_of_elements () * get_element_size ();
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1186
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1187 if (pr)
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1188 memcpy (pr, val.pr, nbytes);
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1189
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1190 if (pi)
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1191 memcpy (pi, val.pi, nbytes);
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1192 }
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1193
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1194 public:
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1195
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1196 // No assignment! FIXME: should this be implemented? Note that we
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1197 // do have a copy constructor.
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1198
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1199 mxArray_number& operator = (const mxArray_number&);
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1200
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	1201 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	1202
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1203 ~mxArray_number (void)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1204 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1205 mxFree (pr);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1206 mxFree (pi);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1207 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1208
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23703 diff changeset	1209 int is_complex (void) const { return pi != nullptr; }
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1210
6332 debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1211 double get_scalar (void) const
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1212 {
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1213 double retval = 0;
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1214
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1215 switch (get_class_id ())
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1216 {
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1217 case mxDOUBLE_CLASS:
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1218 retval = (static_cast<double > (pr));
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1219 break;
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1220
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1221 case mxSINGLE_CLASS:
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1222 retval = (static_cast<float > (pr));
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1223 break;
6332 debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1224
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1225 case mxCHAR_CLASS:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1226 retval = (static_cast<mxChar > (pr));
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1227 break;
6332 debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1228
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1229 case mxLOGICAL_CLASS:
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1230 retval = (static_cast<bool > (pr));
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1231 break;
6332 debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1232
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1233 case mxINT8_CLASS:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1234 retval = (static_cast<int8_t > (pr));
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1235 break;
6332 debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1236
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1237 case mxUINT8_CLASS:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1238 retval = (static_cast<uint8_t > (pr));
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1239 break;
6332 debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1240
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1241 case mxINT16_CLASS:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1242 retval = (static_cast<int16_t > (pr));
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1243 break;
6332 debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1244
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1245 case mxUINT16_CLASS:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1246 retval = (static_cast<uint16_t > (pr));
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1247 break;
6332 debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1248
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1249 case mxINT32_CLASS:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1250 retval = (static_cast<int32_t > (pr));
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1251 break;
6332 debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1252
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1253 case mxUINT32_CLASS:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1254 retval = (static_cast<uint32_t > (pr));
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1255 break;
6332 debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1256
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1257 case mxINT64_CLASS:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1258 retval = (static_cast<int64_t > (pr));
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1259 break;
6332 debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1260
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1261 case mxUINT64_CLASS:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1262 retval = (static_cast<uint64_t > (pr));
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1263 break;
6332 debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1264
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1265 default:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1266 panic_impossible ();
6332 debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1267 }
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1268
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1269 return retval;
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1270 }
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1271
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	1272 void * get_data (void) const { return pr; }
cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	1273
cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	1274 void * get_imag_data (void) const { return pi; }
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1275
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1276 void set_data (void *pr_arg) { pr = pr_arg; }
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1277
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1278 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	1279
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1280 int get_string (char *buf, mwSize buflen) const
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1281 {
13753 ab4238b0b09b Change return value of mxGetString to match Matlab (Bug #34546) Rik <octave@nomad.inbox5.com> parents: 12472 diff changeset	1282 int retval = 0;
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1283
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1284 mwSize nel = get_number_of_elements ();
6493 5fa513371dde [project @ 2007-04-05 14:53:49 by jwe] jwe parents: 6400 diff changeset	1285
13753 ab4238b0b09b Change return value of mxGetString to match Matlab (Bug #34546) Rik <octave@nomad.inbox5.com> parents: 12472 diff changeset	1286 if (! (nel < buflen))
ab4238b0b09b Change return value of mxGetString to match Matlab (Bug #34546) Rik <octave@nomad.inbox5.com> parents: 12472 diff changeset	1287 {
ab4238b0b09b Change return value of mxGetString to match Matlab (Bug #34546) Rik <octave@nomad.inbox5.com> parents: 12472 diff changeset	1288 retval = 1;
ab4238b0b09b Change return value of mxGetString to match Matlab (Bug #34546) Rik <octave@nomad.inbox5.com> parents: 12472 diff changeset	1289 if (buflen > 0)
ab4238b0b09b Change return value of mxGetString to match Matlab (Bug #34546) Rik <octave@nomad.inbox5.com> parents: 12472 diff changeset	1290 nel = buflen-1;
ab4238b0b09b Change return value of mxGetString to match Matlab (Bug #34546) Rik <octave@nomad.inbox5.com> parents: 12472 diff changeset	1291 }
ab4238b0b09b Change return value of mxGetString to match Matlab (Bug #34546) Rik <octave@nomad.inbox5.com> parents: 12472 diff changeset	1292
6493 5fa513371dde [project @ 2007-04-05 14:53:49 by jwe] jwe parents: 6400 diff changeset	1293 if (nel < buflen)
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1294 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1295 mxChar ptr = static_cast<mxChar > (pr);
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 for (mwIndex i = 0; i < nel; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1298 buf[i] = static_cast<char> (ptr[i]);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1299
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1300 buf[nel] = 0;
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1301 }
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1302
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1303 return retval;
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1304 }
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1305
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	1306 char * array_to_string (void) const
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1307 {
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1308 // 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	1309
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1310 mwSize nel = get_number_of_elements ();
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1311
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	1312 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	1313
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1314 if (buf)
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1315 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1316 mxChar ptr = static_cast<mxChar > (pr);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1317
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1318 for (mwIndex i = 0; i < nel; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1319 buf[i] = static_cast<char> (ptr[i]);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1320
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1321 buf[nel] = '\0';
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1322 }
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1323
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1324 return buf;
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1325 }
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1326
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1327 octave_value as_octave_value (void) const
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1328 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1329 octave_value retval;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1330
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1331 dim_vector dv = dims_to_dim_vector ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1332
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1333 switch (get_class_id ())
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 mxDOUBLE_CLASS:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1336 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1337 mwSize nel = get_number_of_elements ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1338
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1339 double ppr = static_cast<double > (pr);
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1340
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1341 if (pi)
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1342 {
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1343 ComplexNDArray val (dv);
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1344
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1345 Complex *ptr = val.fortran_vec ();
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1346
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1347 double ppi = static_cast<double > (pi);
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1348
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1349 for (mwIndex i = 0; i < nel; i++)
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1350 ptr[i] = Complex (ppr[i], ppi[i]);
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1351
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1352 retval = val;
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1353 }
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1354 else
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1355 {
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1356 NDArray val (dv);
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1357
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1358 double *ptr = val.fortran_vec ();
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1359
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1360 for (mwIndex i = 0; i < nel; i++)
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1361 ptr[i] = ppr[i];
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1362
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1363 retval = val;
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1364 }
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1365 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1366 break;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1367
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1368 case mxSINGLE_CLASS:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1369 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1370 mwSize nel = get_number_of_elements ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1371
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1372 float ppr = static_cast<float > (pr);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1373
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1374 if (pi)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1375 {
11132 6ed521ed2d6a Stop converting single valued output from mex files to doubles. Gunnar Farneback <gunnar@lysator.liu.se> parents: 11100 diff changeset	1376 FloatComplexNDArray val (dv);
6ed521ed2d6a Stop converting single valued output from mex files to doubles. Gunnar Farneback <gunnar@lysator.liu.se> parents: 11100 diff changeset	1377
6ed521ed2d6a Stop converting single valued output from mex files to doubles. Gunnar Farneback <gunnar@lysator.liu.se> parents: 11100 diff changeset	1378 FloatComplex *ptr = val.fortran_vec ();
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1379
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1380 float ppi = static_cast<float > (pi);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1381
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1382 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	1383 ptr[i] = FloatComplex (ppr[i], ppi[i]);
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1384
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1385 retval = val;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1386 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1387 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1388 {
11132 6ed521ed2d6a Stop converting single valued output from mex files to doubles. Gunnar Farneback <gunnar@lysator.liu.se> parents: 11100 diff changeset	1389 FloatNDArray val (dv);
6ed521ed2d6a Stop converting single valued output from mex files to doubles. Gunnar Farneback <gunnar@lysator.liu.se> parents: 11100 diff changeset	1390
6ed521ed2d6a Stop converting single valued output from mex files to doubles. Gunnar Farneback <gunnar@lysator.liu.se> parents: 11100 diff changeset	1391 float *ptr = val.fortran_vec ();
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1392
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1393 for (mwIndex i = 0; i < nel; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1394 ptr[i] = ppr[i];
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1395
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1396 retval = val;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1397 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1398 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1399 break;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1400
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1401 case mxCHAR_CLASS:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1402 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1403 mwSize nel = get_number_of_elements ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1404
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1405 mxChar ppr = static_cast<mxChar > (pr);
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1406
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1407 charNDArray val (dv);
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1408
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1409 char *ptr = val.fortran_vec ();
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1410
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1411 for (mwIndex i = 0; i < nel; i++)
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1412 ptr[i] = static_cast<char> (ppr[i]);
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1413
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1414 retval = val;
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1415 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1416 break;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1417
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1418 case mxLOGICAL_CLASS:
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1419 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	1420 break;
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1421
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1422 case mxINT8_CLASS:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1423 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	1424 break;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1425
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1426 case mxUINT8_CLASS:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1427 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	1428 break;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1429
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1430 case mxINT16_CLASS:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1431 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	1432 break;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1433
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1434 case mxUINT16_CLASS:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1435 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	1436 break;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1437
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1438 case mxINT32_CLASS:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1439 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	1440 break;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1441
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1442 case mxUINT32_CLASS:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1443 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	1444 break;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1445
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1446 case mxINT64_CLASS:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1447 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	1448 break;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1449
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1450 case mxUINT64_CLASS:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1451 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	1452 break;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1453
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1454 default:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1455 panic_impossible ();
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	1456 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1457
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1458 return retval;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1459 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1460
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	1461 protected:
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	1462
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	1463 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	1464 octave_value
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	1465 int_to_ov (const dim_vector& dv) const
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	1466 {
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	1467 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	1468 error ("complex integer types are not supported");
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	1469
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	1470 mwSize nel = get_number_of_elements ();
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	1471
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	1472 ELT_T ppr = static_cast<ELT_T > (pr);
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	1473
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	1474 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	1475
bfd5e48c41a1 Rename local error in mex I/F from invalid_type_error to err_invalid_type. Rik <rik@octave.org> parents: 20940 diff changeset	1476 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	1477
bfd5e48c41a1 Rename local error in mex I/F from invalid_type_error to err_invalid_type. Rik <rik@octave.org> parents: 20940 diff changeset	1478 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	1479 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	1480
bfd5e48c41a1 Rename local error in mex I/F from invalid_type_error to err_invalid_type. Rik <rik@octave.org> parents: 20940 diff changeset	1481 return octave_value (val);
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	1482 }
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	1483
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1484 private:
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1485
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1486 void *pr;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1487 void *pi;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1488 };
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1489
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1490 // Matlab-style sparse arrays.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1491
5903 11bb9bf343a0 [project @ 2006-07-26 03:36:33 by jwe] jwe parents: 5902 diff changeset	1492 class mxArray_sparse : public mxArray_matlab
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1493 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1494 public:
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1495
14839 e2ac6e2c588a use mwSize for size arguments to mxArray_sparse constructor (bug #36783) John W. Eaton <jwe@octave.org> parents: 14138 diff changeset	1496 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	1497 mxComplexity flag = mxREAL)
27083 23761e83756f Always reserve memory for 1-element in sparse mxArray matrices (bug #56232). Rik <rik@octave.org> parents: 26997 diff changeset	1498 : mxArray_matlab (id_arg, m, n)
23761e83756f Always reserve memory for 1-element in sparse mxArray matrices (bug #56232). Rik <rik@octave.org> parents: 26997 diff changeset	1499 {
23761e83756f Always reserve memory for 1-element in sparse mxArray matrices (bug #56232). Rik <rik@octave.org> parents: 26997 diff changeset	1500 nzmax = (nzmax_arg > 0 ? nzmax_arg : 1);
23761e83756f Always reserve memory for 1-element in sparse mxArray matrices (bug #56232). Rik <rik@octave.org> parents: 26997 diff changeset	1501 pr = mxArray::calloc (nzmax, get_element_size ());
23761e83756f Always reserve memory for 1-element in sparse mxArray matrices (bug #56232). Rik <rik@octave.org> parents: 26997 diff changeset	1502 pi = (flag == mxCOMPLEX ? mxArray::calloc (nzmax, get_element_size ())
23761e83756f Always reserve memory for 1-element in sparse mxArray matrices (bug #56232). Rik <rik@octave.org> parents: 26997 diff changeset	1503 : nullptr);
23761e83756f Always reserve memory for 1-element in sparse mxArray matrices (bug #56232). Rik <rik@octave.org> parents: 26997 diff changeset	1504 ir = (static_cast<mwIndex *> (mxArray::calloc (nzmax, sizeof (mwIndex))));
23761e83756f Always reserve memory for 1-element in sparse mxArray matrices (bug #56232). Rik <rik@octave.org> parents: 26997 diff changeset	1505 jc = (static_cast<mwIndex *> (mxArray::calloc (n + 1, sizeof (mwIndex))));
23761e83756f Always reserve memory for 1-element in sparse mxArray matrices (bug #56232). Rik <rik@octave.org> parents: 26997 diff changeset	1506 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1507
22869 f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1508 private:
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1509
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1510 mxArray_sparse (const mxArray_sparse& val)
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1511 : mxArray_matlab (val), nzmax (val.nzmax),
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1512 pr (mxArray::malloc (nzmax * get_element_size ())),
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23703 diff changeset	1513 pi (val.pi ? mxArray::malloc (nzmax * get_element_size ()) : nullptr),
22869 f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1514 ir (static_cast<mwIndex > (mxArray::malloc (nzmax sizeof (mwIndex)))),
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1515 jc (static_cast<mwIndex > (mxArray::malloc (nzmax sizeof (mwIndex))))
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1516 {
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1517 size_t nbytes = nzmax * get_element_size ();
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1518
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1519 if (pr)
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1520 memcpy (pr, val.pr, nbytes);
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1521
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1522 if (pi)
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1523 memcpy (pi, val.pi, nbytes);
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1524
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1525 if (ir)
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1526 memcpy (ir, val.ir, nzmax * sizeof (mwIndex));
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1527
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1528 if (jc)
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1529 memcpy (jc, val.jc, (val.get_n () + 1) * sizeof (mwIndex));
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1530 }
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1531
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1532 public:
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1533
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1534 // No assignment! FIXME: should this be implemented? Note that we
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1535 // do have a copy constructor.
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1536
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1537 mxArray_sparse& operator = (const mxArray_sparse&);
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1538
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	1539 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	1540
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1541 ~mxArray_sparse (void)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1542 {
5903 11bb9bf343a0 [project @ 2006-07-26 03:36:33 by jwe] jwe parents: 5902 diff changeset	1543 mxFree (pr);
11bb9bf343a0 [project @ 2006-07-26 03:36:33 by jwe] jwe parents: 5902 diff changeset	1544 mxFree (pi);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1545 mxFree (ir);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1546 mxFree (jc);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1547 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1548
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23703 diff changeset	1549 int is_complex (void) const { return pi != nullptr; }
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1550
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1551 int is_sparse (void) const { return 1; }
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1552
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	1553 void * get_data (void) const { return pr; }
cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	1554
cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	1555 void * get_imag_data (void) const { return pi; }
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1556
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1557 void set_data (void *pr_arg) { pr = pr_arg; }
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1558
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1559 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	1560
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	1561 mwIndex * get_ir (void) const { return ir; }
cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	1562
cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	1563 mwIndex * get_jc (void) const { return jc; }
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1564
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1565 mwSize get_nzmax (void) const { return nzmax; }
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1566
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1567 void set_ir (mwIndex *ir_arg) { ir = ir_arg; }
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1568
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1569 void set_jc (mwIndex *jc_arg) { jc = jc_arg; }
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1570
27083 23761e83756f Always reserve memory for 1-element in sparse mxArray matrices (bug #56232). Rik <rik@octave.org> parents: 26997 diff changeset	1571 void set_nzmax (mwSize nzmax_arg)
23761e83756f Always reserve memory for 1-element in sparse mxArray matrices (bug #56232). Rik <rik@octave.org> parents: 26997 diff changeset	1572 {
23761e83756f Always reserve memory for 1-element in sparse mxArray matrices (bug #56232). Rik <rik@octave.org> parents: 26997 diff changeset	1573 /* Require storage for at least 1 element */
23761e83756f Always reserve memory for 1-element in sparse mxArray matrices (bug #56232). Rik <rik@octave.org> parents: 26997 diff changeset	1574 nzmax = (nzmax_arg > 0 ? nzmax_arg : 1);
23761e83756f Always reserve memory for 1-element in sparse mxArray matrices (bug #56232). Rik <rik@octave.org> parents: 26997 diff changeset	1575 }
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1576
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1577 octave_value as_octave_value (void) const
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1578 {
5903 11bb9bf343a0 [project @ 2006-07-26 03:36:33 by jwe] jwe parents: 5902 diff changeset	1579 octave_value retval;
11bb9bf343a0 [project @ 2006-07-26 03:36:33 by jwe] jwe parents: 5902 diff changeset	1580
11bb9bf343a0 [project @ 2006-07-26 03:36:33 by jwe] jwe parents: 5902 diff changeset	1581 dim_vector dv = dims_to_dim_vector ();
11bb9bf343a0 [project @ 2006-07-26 03:36:33 by jwe] jwe parents: 5902 diff changeset	1582
11bb9bf343a0 [project @ 2006-07-26 03:36:33 by jwe] jwe parents: 5902 diff changeset	1583 switch (get_class_id ())
11bb9bf343a0 [project @ 2006-07-26 03:36:33 by jwe] jwe parents: 5902 diff changeset	1584 {
11bb9bf343a0 [project @ 2006-07-26 03:36:33 by jwe] jwe parents: 5902 diff changeset	1585 case mxDOUBLE_CLASS:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1586 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1587 if (pi)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1588 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1589 double ppr = static_cast<double > (pr);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1590 double ppi = static_cast<double > (pi);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1591
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1592 SparseComplexMatrix val (get_m (), get_n (),
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1593 static_cast<octave_idx_type> (nzmax));
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1594
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1595 for (mwIndex i = 0; i < nzmax; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1596 {
14861 f7afecdd87ef maint: Use Octave coding conventions for cuddling parentheses in src/ directory Rik <octave@nomad.inbox5.com> parents: 14846 diff changeset	1597 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	1598 val.xridx (i) = ir[i];
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1599 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1600
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1601 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	1602 val.xcidx (i) = jc[i];
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1603
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1604 retval = val;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1605 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1606 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1607 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1608 double ppr = static_cast<double > (pr);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1609
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1610 SparseMatrix val (get_m (), get_n (),
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1611 static_cast<octave_idx_type> (nzmax));
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1612
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1613 for (mwIndex i = 0; i < nzmax; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1614 {
14861 f7afecdd87ef maint: Use Octave coding conventions for cuddling parentheses in src/ directory Rik <octave@nomad.inbox5.com> parents: 14846 diff changeset	1615 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	1616 val.xridx (i) = ir[i];
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1617 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1618
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1619 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	1620 val.xcidx (i) = jc[i];
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1621
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1622 retval = val;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1623 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1624 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1625 break;
5903 11bb9bf343a0 [project @ 2006-07-26 03:36:33 by jwe] jwe parents: 5902 diff changeset	1626
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1627 case mxLOGICAL_CLASS:
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1628 {
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1629 bool ppr = static_cast<bool > (pr);
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1630
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1631 SparseBoolMatrix val (get_m (), get_n (),
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1632 static_cast<octave_idx_type> (nzmax));
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1633
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1634 for (mwIndex i = 0; i < nzmax; i++)
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1635 {
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1636 val.xdata (i) = ppr[i];
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1637 val.xridx (i) = ir[i];
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1638 }
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1639
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1640 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	1641 val.xcidx (i) = jc[i];
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1642
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1643 retval = val;
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1644 }
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1645 break;
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1646
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1647 case mxSINGLE_CLASS:
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1648 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	1649 break;
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1650
5903 11bb9bf343a0 [project @ 2006-07-26 03:36:33 by jwe] jwe parents: 5902 diff changeset	1651 default:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1652 panic_impossible ();
5903 11bb9bf343a0 [project @ 2006-07-26 03:36:33 by jwe] jwe parents: 5902 diff changeset	1653 }
11bb9bf343a0 [project @ 2006-07-26 03:36:33 by jwe] jwe parents: 5902 diff changeset	1654
11bb9bf343a0 [project @ 2006-07-26 03:36:33 by jwe] jwe parents: 5902 diff changeset	1655 return retval;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1656 }
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 private:
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1659
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1660 mwSize nzmax;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1661
5903 11bb9bf343a0 [project @ 2006-07-26 03:36:33 by jwe] jwe parents: 5902 diff changeset	1662 void *pr;
11bb9bf343a0 [project @ 2006-07-26 03:36:33 by jwe] jwe parents: 5902 diff changeset	1663 void *pi;
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1664 mwIndex *ir;
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1665 mwIndex *jc;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1666 };
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1667
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1668 // Matlab-style struct arrays.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1669
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1670 class mxArray_struct : public mxArray_matlab
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1671 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1672 public:
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1673
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1674 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	1675 const char **keys)
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1676 : 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	1677 nfields (num_keys_arg),
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1678 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	1679 sizeof (char *)))),
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1680 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	1681 get_number_of_elements (),
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1682 sizeof (mxArray *))))
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1683 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1684 init (keys);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1685 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1686
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1687 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	1688 : 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	1689 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	1690 sizeof (char *)))),
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1691 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	1692 get_number_of_elements (),
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1693 sizeof (mxArray *))))
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1694 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1695 init (keys);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1696 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1697
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1698 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	1699 : 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	1700 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	1701 sizeof (char *)))),
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1702 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	1703 get_number_of_elements (),
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1704 sizeof (mxArray *))))
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1705 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1706 init (keys);
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
22869 f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1709 private:
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1710
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1711 mxArray_struct (const mxArray_struct& val)
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1712 : mxArray_matlab (val), nfields (val.nfields),
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1713 fields (static_cast<char **> (mxArray::malloc (nfields
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1714 * sizeof (char *)))),
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1715 data (static_cast<mxArray *> (mxArray::malloc (nfields
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1716 get_number_of_elements ()
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1717 * sizeof (mxArray *))))
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1718 {
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1719 for (int i = 0; i < nfields; i++)
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1720 fields[i] = mxArray::strsave (val.fields[i]);
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1721
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1722 mwSize nel = get_number_of_elements ();
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1723
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1724 for (mwIndex i = 0; i < nel * nfields; i++)
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1725 {
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1726 mxArray *ptr = val.data[i];
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23703 diff changeset	1727 data[i] = (ptr ? ptr->dup () : nullptr);
22869 f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1728 }
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1729 }
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1730
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1731 public:
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1732
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1733 // No assignment! FIXME: should this be implemented? Note that we
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1734 // do have a copy constructor.
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1735
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1736 mxArray_struct& operator = (const mxArray_struct& val);
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1737
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1738 void init (const char **keys)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1739 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1740 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	1741 fields[i] = mxArray::strsave (keys[i]);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1742 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1743
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	1744 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	1745
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1746 ~mxArray_struct (void)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1747 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1748 for (int i = 0; i < nfields; i++)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1749 mxFree (fields[i]);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1750
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1751 mxFree (fields);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1752
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1753 mwSize ntot = nfields * get_number_of_elements ();
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1754
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1755 for (mwIndex i = 0; i < ntot; i++)
5905 e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	1756 delete data[i];
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1757
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1758 mxFree (data);
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 int add_field (const char *key)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1762 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1763 int retval = -1;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1764
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1765 if (valid_key (key))
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1766 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1767 nfields++;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1768
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1769 fields = static_cast<char **>
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1770 (mxRealloc (fields, nfields * sizeof (char *)));
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1771
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1772 if (fields)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1773 {
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	1774 fields[nfields-1] = mxArray::strsave (key);
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1775
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1776 mwSize nel = get_number_of_elements ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1777
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1778 mwSize ntot = nfields * nel;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1779
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1780 mxArray **new_data;
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1781 new_data = static_cast<mxArray **>
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1782 (mxArray::malloc (ntot * sizeof (mxArray *)));
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1783
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1784 if (new_data)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1785 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1786 mwIndex j = 0;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1787 mwIndex k = 0;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1788 mwIndex n = 0;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1789
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1790 for (mwIndex i = 0; i < ntot; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1791 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1792 if (++n == nfields)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1793 {
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23703 diff changeset	1794 new_data[j++] = nullptr;
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1795 n = 0;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1796 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1797 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1798 new_data[j++] = data[k++];
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1799 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1800
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1801 mxFree (data);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1802
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1803 data = new_data;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1804
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1805 retval = nfields - 1;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1806 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1807 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1808 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1809
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1810 return retval;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1811 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1812
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1813 void remove_field (int key_num)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1814 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1815 if (key_num >= 0 && key_num < nfields)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1816 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1817 mwSize nel = get_number_of_elements ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1818
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1819 mwSize ntot = nfields * nel;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1820
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1821 int new_nfields = nfields - 1;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1822
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1823 char new_fields = static_cast<char >
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1824 (mxArray::malloc (new_nfields * sizeof (char *)));
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1825
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1826 mxArray new_data = static_cast<mxArray >
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1827 (mxArray::malloc (new_nfields * nel
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1828 * sizeof (mxArray *)));
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1829
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1830 for (int i = 0; i < key_num; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1831 new_fields[i] = fields[i];
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1832
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1833 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	1834 new_fields[i-1] = fields[i];
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1835
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1836 if (new_nfields > 0)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1837 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1838 mwIndex j = 0;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1839 mwIndex k = 0;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1840 mwIndex n = 0;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1841
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1842 for (mwIndex i = 0; i < ntot; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1843 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1844 if (n == key_num)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1845 k++;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1846 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1847 new_data[j++] = data[k++];
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1848
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1849 if (++n == nfields)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1850 n = 0;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1851 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1852 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1853
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1854 nfields = new_nfields;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1855
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1856 mxFree (fields);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1857 mxFree (data);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1858
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1859 fields = new_fields;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1860 data = new_data;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1861 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1862 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1863
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	1864 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	1865 {
6187 2a8922007c12 [project @ 2006-11-29 01:59:59 by jwe] jwe parents: 6071 diff changeset	1866 return key_num >= 0 && key_num < nfields
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23703 diff changeset	1867 ? data[nfields * index + key_num] : nullptr;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1868 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1869
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1870 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	1871
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1872 int get_number_of_fields (void) const { return nfields; }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1873
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	1874 const char * get_field_name_by_number (int key_num) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1875 {
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23703 diff changeset	1876 return key_num >= 0 && key_num < nfields ? fields[key_num] : nullptr;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1877 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1878
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1879 int get_field_number (const char *key) const
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1880 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1881 int retval = -1;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1882
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1883 for (int i = 0; i < nfields; i++)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1884 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1885 if (! strcmp (key, fields[i]))
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1886 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1887 retval = i;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1888 break;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1889 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1890 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1891
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1892 return retval;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1893 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1894
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	1895 void * get_data (void) const { return data; }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1896
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1897 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	1898
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1899 octave_value as_octave_value (void) const
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1900 {
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1901 dim_vector dv = dims_to_dim_vector ();
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1902
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1903 string_vector keys (fields, nfields);
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1904
25922 34e82a829fdd Create scalar structs of size 1x1 with MEX interface (bug #54799). Rik <rik@octave.org> parents: 25751 diff changeset	1905 octave_map m (dv);
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1906
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1907 mwSize ntot = nfields * get_number_of_elements ();
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1908
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1909 for (int i = 0; i < nfields; i++)
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1910 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1911 Cell c (dv);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1912
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1913 octave_value *p = c.fortran_vec ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1914
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1915 mwIndex k = 0;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1916 for (mwIndex j = i; j < ntot; j += nfields)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1917 p[k++] = mxArray::as_octave_value (data[j]);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1918
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1919 m.assign (keys[i], c);
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1920 }
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1921
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1922 return m;
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1923 }
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1924
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1925 private:
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1926
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1927 int nfields;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1928
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1929 char **fields;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1930
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1931 mxArray **data;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1932 };
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1933
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1934 // Matlab-style cell arrays.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1935
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1936 class mxArray_cell : public mxArray_matlab
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1937 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1938 public:
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1939
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1940 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	1941 : 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	1942 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	1943 sizeof (mxArray *)))) { }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1944
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1945 mxArray_cell (const dim_vector& dv)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1946 : mxArray_matlab (mxCELL_CLASS, dv),
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1947 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	1948 sizeof (mxArray *)))) { }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1949
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1950 mxArray_cell (mwSize m, mwSize n)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1951 : 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	1952 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	1953 sizeof (mxArray *)))) { }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1954
22869 f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1955 private:
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1956
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1957 mxArray_cell (const mxArray_cell& val)
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1958 : mxArray_matlab (val),
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1959 data (static_cast<mxArray **> (mxArray::malloc (get_number_of_elements ()
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1960 * sizeof (mxArray *))))
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1961 {
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1962 mwSize nel = get_number_of_elements ();
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1963
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1964 for (mwIndex i = 0; i < nel; i++)
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1965 {
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1966 mxArray *ptr = val.data[i];
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23703 diff changeset	1967 data[i] = (ptr ? ptr->dup () : nullptr);
22869 f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1968 }
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1969 }
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1970
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1971 public:
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1972
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1973 // No assignment! FIXME: should this be implemented? Note that we
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1974 // do have a copy constructor.
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1975
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1976 mxArray_cell& operator = (const mxArray_cell&);
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1977
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	1978 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	1979
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1980 ~mxArray_cell (void)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1981 {
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1982 mwSize nel = get_number_of_elements ();
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1983
22449 e337b8e3592c Fix double free causing segfault in mxSetDimensions (bug #49010). Rik <rik@octave.org> parents: 22407 diff changeset	1984 for (mwIndex i = 0; i < nel; i++)
5905 e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	1985 delete data[i];
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1986
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1987 mxFree (data);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1988 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1989
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	1990 mxArray * get_cell (mwIndex idx) const
6187 2a8922007c12 [project @ 2006-11-29 01:59:59 by jwe] jwe parents: 6071 diff changeset	1991 {
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23703 diff changeset	1992 return idx >= 0 && idx < get_number_of_elements () ? data[idx] : nullptr;
6187 2a8922007c12 [project @ 2006-11-29 01:59:59 by jwe] jwe parents: 6071 diff changeset	1993 }
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1994
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1995 void set_cell (mwIndex idx, mxArray *val);
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1996
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	1997 void * get_data (void) const { return data; }
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1998
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1999 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	2000
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2001 octave_value as_octave_value (void) const
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2002 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2003 dim_vector dv = dims_to_dim_vector ();
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 Cell c (dv);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2006
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2007 mwSize nel = get_number_of_elements ();
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2008
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2009 octave_value *p = c.fortran_vec ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2010
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2011 for (mwIndex i = 0; i < nel; i++)
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	2012 p[i] = mxArray::as_octave_value (data[i]);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2013
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2014 return c;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2015 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2016
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2017 private:
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2018
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2019 mxArray **data;
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
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
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2024 mxArray::mxArray (const octave_value& ov)
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23703 diff changeset	2025 : rep (new mxArray_octave_value (ov)), name (nullptr) { }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2026
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	2027 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	2028 mxComplexity flag, bool init)
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23703 diff changeset	2029 : rep (new mxArray_number (id, ndims, dims, flag, init)), name (nullptr) { }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2030
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2031 mxArray::mxArray (mxClassID id, const dim_vector& dv, mxComplexity flag)
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23703 diff changeset	2032 : rep (new mxArray_number (id, dv, flag)), name (nullptr) { }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2033
22464 1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	2034 mxArray::mxArray (mxClassID id, mwSize m, mwSize n,
1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	2035 mxComplexity flag, bool init)
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23703 diff changeset	2036 : rep (new mxArray_number (id, m, n, flag, init)), name (nullptr) { }
5900 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 mxArray::mxArray (mxClassID id, double val)
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23703 diff changeset	2039 : rep (new mxArray_number (id, val)), name (nullptr) { }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2040
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2041 mxArray::mxArray (mxClassID id, mxLogical val)
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23703 diff changeset	2042 : rep (new mxArray_number (id, val)), name (nullptr) { }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2043
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2044 mxArray::mxArray (const char *str)
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23703 diff changeset	2045 : rep (new mxArray_number (str)), name (nullptr) { }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2046
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2047 mxArray::mxArray (mwSize m, const char **str)
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23703 diff changeset	2048 : rep (new mxArray_number (m, str)), name (nullptr) { }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2049
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	2050 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	2051 mxComplexity flag)
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23703 diff changeset	2052 : rep (new mxArray_sparse (id, m, n, nzmax, flag)), name (nullptr) { }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2053
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	2054 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	2055 const char **keys)
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23703 diff changeset	2056 : rep (new mxArray_struct (ndims, dims, num_keys, keys)), name (nullptr) { }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2057
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2058 mxArray::mxArray (const dim_vector& dv, int num_keys, const char **keys)
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23703 diff changeset	2059 : rep (new mxArray_struct (dv, num_keys, keys)), name (nullptr) { }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2060
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2061 mxArray::mxArray (mwSize m, mwSize n, int num_keys, const char **keys)
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23703 diff changeset	2062 : rep (new mxArray_struct (m, n, num_keys, keys)), name (nullptr) { }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2063
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2064 mxArray::mxArray (mwSize ndims, const mwSize *dims)
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23703 diff changeset	2065 : rep (new mxArray_cell (ndims, dims)), name (nullptr) { }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2066
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2067 mxArray::mxArray (const dim_vector& dv)
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23703 diff changeset	2068 : rep (new mxArray_cell (dv)), name (nullptr) { }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2069
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2070 mxArray::mxArray (mwSize m, mwSize n)
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23703 diff changeset	2071 : rep (new mxArray_cell (m, n)), name (nullptr) { }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2072
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2073 mxArray::~mxArray (void)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2074 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2075 mxFree (name);
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 delete rep;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2078 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2079
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2080 void
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2081 mxArray::set_name (const char *name_arg)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2082 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2083 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	2084 name = mxArray::strsave (name_arg);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2085 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2086
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	2087 octave_value
25451 f84755f24ccd allow NULL mxArray* to be returned as undefined from fcn calls (bug #54096) John W. Eaton <jwe@octave.org> parents: 25450 diff changeset	2088 mxArray::as_octave_value (const mxArray *ptr, bool null_is_empty)
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	2089 {
25451 f84755f24ccd allow NULL mxArray* to be returned as undefined from fcn calls (bug #54096) John W. Eaton <jwe@octave.org> parents: 25450 diff changeset	2090 static const octave_value empty_matrix = Matrix ();
f84755f24ccd allow NULL mxArray* to be returned as undefined from fcn calls (bug #54096) John W. Eaton <jwe@octave.org> parents: 25450 diff changeset	2091
f84755f24ccd allow NULL mxArray* to be returned as undefined from fcn calls (bug #54096) John W. Eaton <jwe@octave.org> parents: 25450 diff changeset	2092 return (ptr
f84755f24ccd allow NULL mxArray* to be returned as undefined from fcn calls (bug #54096) John W. Eaton <jwe@octave.org> parents: 25450 diff changeset	2093 ? ptr->as_octave_value ()
f84755f24ccd allow NULL mxArray* to be returned as undefined from fcn calls (bug #54096) John W. Eaton <jwe@octave.org> parents: 25450 diff changeset	2094 : (null_is_empty ? empty_matrix : octave_value ()));
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	2095 }
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	2096
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	2097 octave_value
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	2098 mxArray::as_octave_value (void) const
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	2099 {
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	2100 return rep->as_octave_value ();
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	2101 }
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	2102
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2103 void
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2104 mxArray::maybe_mutate (void) const
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2105 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2106 if (rep->is_octave_value ())
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2107 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2108 // 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	2109 // 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	2110 // 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	2111
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2112 mxArray *new_val = rep->mutate ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2113
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2114 if (new_val)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2115 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2116 delete rep;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2117 rep = new_val->rep;
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23703 diff changeset	2118 new_val->rep = nullptr;
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2119 delete new_val;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2120 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2121 }
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
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
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2126 // 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	2127 // management.
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2128
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2129 class mex
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2130 {
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2131 public:
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2132
6068 c9f0839c583f [project @ 2006-10-20 16:54:30 by jwe] jwe parents: 6065 diff changeset	2133 mex (octave_mex_function *f)
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23703 diff changeset	2134 : curr_mex_fcn (f), memlist (), arraylist (), fname (nullptr) { }
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2135
22869 f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	2136 // No copying!
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	2137
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	2138 mex (const mex&) = delete;
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	2139
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	2140 mex& operator = (const mex&) = delete;
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	2141
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2142 ~mex (void)
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2143 {
20771 ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	2144 // 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	2145 while (! memlist.empty ())
ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	2146 {
25337 3ff9192b676e use auto keyword to declare iterator variables where possible John W. Eaton <jwe@octave.org> parents: 25103 diff changeset	2147 auto p = memlist.begin ();
20771 ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	2148 xfree (*p);
ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	2149 memlist.erase (p);
ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	2150 }
ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	2151
ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	2152 // 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	2153 while (! arraylist.empty ())
ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	2154 {
25337 3ff9192b676e use auto keyword to declare iterator variables where possible John W. Eaton <jwe@octave.org> parents: 25103 diff changeset	2155 auto p = arraylist.begin ();
20771 ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	2156 delete *p;
ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	2157 arraylist.erase (p);
ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	2158 }
ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	2159
ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	2160 if (! (memlist.empty () && arraylist.empty ()))
5905 e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	2161 error ("mex: %s: cleanup failed", function_name ());
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2162
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2163 mxFree (fname);
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2164 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2165
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	2166 const char * function_name (void) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2167 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2168 if (! fname)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2169 {
27206 4e4a9d7b436e eliminate direct access to call stack in mex functions John W. Eaton <jwe@octave.org> parents: 27083 diff changeset	2170 octave::tree_evaluator& tw
4e4a9d7b436e eliminate direct access to call stack in mex functions John W. Eaton <jwe@octave.org> parents: 27083 diff changeset	2171 = octave::__get_evaluator__ ("mex::function_name");
4e4a9d7b436e eliminate direct access to call stack in mex functions John W. Eaton <jwe@octave.org> parents: 27083 diff changeset	2172
4e4a9d7b436e eliminate direct access to call stack in mex functions John W. Eaton <jwe@octave.org> parents: 27083 diff changeset	2173 octave_function *fcn = tw.current_function ();
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2174
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2175 if (fcn)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2176 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2177 std::string nm = fcn->name ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2178 fname = mxArray::strsave (nm.c_str ());
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 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2181 fname = mxArray::strsave ("unknown");
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2182 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2183
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2184 return fname;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2185 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2186
6071 950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2187 // Allocate memory.
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	2188 void * malloc_unmarked (size_t n)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2189 {
21942 aab79a1885cc limit gnulib headers to liboctave/wrappers directory John W. Eaton <jwe@octave.org> parents: 21751 diff changeset	2190 void *ptr = std::malloc (n);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2191
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2192 if (! ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2193 {
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	2194 // FIXME: could use "octave_new_handler();" instead
26159 aa678451b758 Silence compiler warning about incorrect format specifier (bug #55046). Markus Mützel <markus.muetzel@gmx.de> parents: 26113 diff changeset	2195 error ("%s: failed to allocate %zd bytes of memory",
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2196 function_name (), n);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2197 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2198
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2199 global_mark (ptr);
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 return ptr;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2202 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2203
6071 950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2204 // Allocate memory to be freed on exit.
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	2205 void * malloc (size_t n)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2206 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2207 void *ptr = malloc_unmarked (n);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2208
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2209 mark (ptr);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2210
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2211 return ptr;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2212 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2213
6071 950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2214 // Allocate memory and initialize to 0.
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	2215 void * calloc_unmarked (size_t n, size_t t)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2216 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2217 void ptr = malloc_unmarked (nt);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2218
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2219 memset (ptr, 0, n*t);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2220
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2221 return ptr;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2222 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2223
6071 950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2224 // Allocate memory to be freed on exit and initialize to 0.
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	2225 void * calloc (size_t n, size_t t)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2226 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2227 void *ptr = calloc_unmarked (n, t);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2228
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2229 mark (ptr);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2230
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2231 return ptr;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2232 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2233
21751 b571fc85953f maint: Use two spaces after period to indicate sentence break. Rik <rik@octave.org> parents: 21743 diff changeset	2234 // 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	2235 // 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	2236 // We don't need an "unmarked" version of this.
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	2237 void * realloc (void *ptr, size_t n)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2238 {
10225 477d05b0a739 mxRealloc: Allocate new memory on NULL argument David Grundberg <davidg@cs.umu.se> parents: 10127 diff changeset	2239 void *v;
477d05b0a739 mxRealloc: Allocate new memory on NULL argument David Grundberg <davidg@cs.umu.se> parents: 10127 diff changeset	2240
477d05b0a739 mxRealloc: Allocate new memory on NULL argument David Grundberg <davidg@cs.umu.se> parents: 10127 diff changeset	2241 if (ptr)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2242 {
26438 c048a6ac0f79 mex.cc: Fix static analyzer detected issues (bug #55347). Rik <rik@octave.org> parents: 26376 diff changeset	2243 auto p_local = memlist.find (ptr);
c048a6ac0f79 mex.cc: Fix static analyzer detected issues (bug #55347). Rik <rik@octave.org> parents: 26376 diff changeset	2244 auto p_global = global_memlist.find (ptr);
c048a6ac0f79 mex.cc: Fix static analyzer detected issues (bug #55347). Rik <rik@octave.org> parents: 26376 diff changeset	2245
21942 aab79a1885cc limit gnulib headers to liboctave/wrappers directory John W. Eaton <jwe@octave.org> parents: 21751 diff changeset	2246 v = std::realloc (ptr, n);
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	2247
26438 c048a6ac0f79 mex.cc: Fix static analyzer detected issues (bug #55347). Rik <rik@octave.org> parents: 26376 diff changeset	2248 if (v)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2249 {
26438 c048a6ac0f79 mex.cc: Fix static analyzer detected issues (bug #55347). Rik <rik@octave.org> parents: 26376 diff changeset	2250 if (p_local != memlist.end ())
c048a6ac0f79 mex.cc: Fix static analyzer detected issues (bug #55347). Rik <rik@octave.org> parents: 26376 diff changeset	2251 {
c048a6ac0f79 mex.cc: Fix static analyzer detected issues (bug #55347). Rik <rik@octave.org> parents: 26376 diff changeset	2252 memlist.erase (p_local);
c048a6ac0f79 mex.cc: Fix static analyzer detected issues (bug #55347). Rik <rik@octave.org> parents: 26376 diff changeset	2253 memlist.insert (v);
c048a6ac0f79 mex.cc: Fix static analyzer detected issues (bug #55347). Rik <rik@octave.org> parents: 26376 diff changeset	2254 }
c048a6ac0f79 mex.cc: Fix static analyzer detected issues (bug #55347). Rik <rik@octave.org> parents: 26376 diff changeset	2255
c048a6ac0f79 mex.cc: Fix static analyzer detected issues (bug #55347). Rik <rik@octave.org> parents: 26376 diff changeset	2256 if (p_global != global_memlist.end ())
c048a6ac0f79 mex.cc: Fix static analyzer detected issues (bug #55347). Rik <rik@octave.org> parents: 26376 diff changeset	2257 {
c048a6ac0f79 mex.cc: Fix static analyzer detected issues (bug #55347). Rik <rik@octave.org> parents: 26376 diff changeset	2258 global_memlist.erase (p_global);
c048a6ac0f79 mex.cc: Fix static analyzer detected issues (bug #55347). Rik <rik@octave.org> parents: 26376 diff changeset	2259 global_memlist.insert (v);
c048a6ac0f79 mex.cc: Fix static analyzer detected issues (bug #55347). Rik <rik@octave.org> parents: 26376 diff changeset	2260 }
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2261 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2262 }
10225 477d05b0a739 mxRealloc: Allocate new memory on NULL argument David Grundberg <davidg@cs.umu.se> parents: 10127 diff changeset	2263 else
477d05b0a739 mxRealloc: Allocate new memory on NULL argument David Grundberg <davidg@cs.umu.se> parents: 10127 diff changeset	2264 v = malloc (n);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2265
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2266 return v;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2267 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2268
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2269 // Free a pointer obtained from malloc or calloc.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2270 void free (void *ptr)
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 if (ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2273 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2274 unmark (ptr);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2275
25337 3ff9192b676e use auto keyword to declare iterator variables where possible John W. Eaton <jwe@octave.org> parents: 25103 diff changeset	2276 auto p = global_memlist.find (ptr);
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2277
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2278 if (p != global_memlist.end ())
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2279 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2280 global_memlist.erase (p);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2281
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2282 xfree (ptr);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2283 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2284 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2285 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2286 p = foreign_memlist.find (ptr);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2287
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2288 if (p != foreign_memlist.end ())
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2289 foreign_memlist.erase (p);
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21660 diff changeset	2290 #if defined (DEBUG)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2291 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2292 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	2293 #endif
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2294 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2295 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2296 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2297
7172 e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2298 // Mark a pointer to be freed on exit.
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2299 void mark (void *ptr)
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2300 {
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21660 diff changeset	2301 #if defined (DEBUG)
7172 e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2302 if (memlist.find (ptr) != memlist.end ())
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2303 warning ("%s: double registration ignored", function_name ());
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2304 #endif
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2305
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2306 memlist.insert (ptr);
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2307 }
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2308
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2309 // 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	2310 // made persistent, or because it was already freed.
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2311 void unmark (void *ptr)
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2312 {
25337 3ff9192b676e use auto keyword to declare iterator variables where possible John W. Eaton <jwe@octave.org> parents: 25103 diff changeset	2313 auto p = memlist.find (ptr);
7172 e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2314
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2315 if (p != memlist.end ())
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2316 memlist.erase (p);
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21660 diff changeset	2317 #if defined (DEBUG)
7172 e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2318 else
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2319 warning ("%s: value not marked", function_name ());
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2320 #endif
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2321 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2322
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	2323 mxArray * mark_array (mxArray *ptr)
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2324 {
814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2325 arraylist.insert (ptr);
814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2326 return ptr;
814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2327 }
814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2328
6071 950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2329 void unmark_array (mxArray *ptr)
950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2330 {
25337 3ff9192b676e use auto keyword to declare iterator variables where possible John W. Eaton <jwe@octave.org> parents: 25103 diff changeset	2331 auto p = arraylist.find (ptr);
6071 950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2332
950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2333 if (p != arraylist.end ())
950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2334 arraylist.erase (p);
950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2335 }
950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2336
7179 32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2337 // Mark a pointer as one we allocated.
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2338 void mark_foreign (void *ptr)
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2339 {
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21660 diff changeset	2340 #if defined (DEBUG)
7179 32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2341 if (foreign_memlist.find (ptr) != foreign_memlist.end ())
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2342 warning ("%s: double registration ignored", function_name ());
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2343 #endif
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2344
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2345 foreign_memlist.insert (ptr);
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2346 }
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2347
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2348 // Unmark a pointer as one we allocated.
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2349 void unmark_foreign (void *ptr)
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2350 {
25337 3ff9192b676e use auto keyword to declare iterator variables where possible John W. Eaton <jwe@octave.org> parents: 25103 diff changeset	2351 auto p = foreign_memlist.find (ptr);
7179 32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2352
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2353 if (p != foreign_memlist.end ())
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2354 foreign_memlist.erase (p);
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21660 diff changeset	2355 #if defined (DEBUG)
7179 32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2356 else
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2357 warning ("%s: value not marked", function_name ());
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2358 #endif
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2359
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2360 }
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2361
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2362 // 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	2363 // freed on exit unless marked as persistent.
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	2364 mxArray * make_value (const octave_value& ov)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2365 {
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2366 return mark_array (new mxArray (ov));
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2367 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2368
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2369 // Free an array and its contents.
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2370 bool free_value (mxArray *ptr)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2371 {
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2372 bool inlist = false;
814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2373
25337 3ff9192b676e use auto keyword to declare iterator variables where possible John W. Eaton <jwe@octave.org> parents: 25103 diff changeset	2374 auto p = arraylist.find (ptr);
5905 e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	2375
e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	2376 if (p != arraylist.end ())
e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	2377 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2378 inlist = true;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2379 arraylist.erase (p);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2380 delete ptr;
5905 e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	2381 }
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21660 diff changeset	2382 #if defined (DEBUG)
5905 e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	2383 else
e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	2384 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	2385 #endif
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2386
814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2387 return inlist;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2388 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2389
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	2390 octave_mex_function * current_mex_function (void) const
6068 c9f0839c583f [project @ 2006-10-20 16:54:30 by jwe] jwe parents: 6065 diff changeset	2391 {
c9f0839c583f [project @ 2006-10-20 16:54:30 by jwe] jwe parents: 6065 diff changeset	2392 return curr_mex_fcn;
c9f0839c583f [project @ 2006-10-20 16:54:30 by jwe] jwe parents: 6065 diff changeset	2393 }
c9f0839c583f [project @ 2006-10-20 16:54:30 by jwe] jwe parents: 6065 diff changeset	2394
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2395 // 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	2396 int trap_feval_error = 0;
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2397
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2398 private:
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2399
6068 c9f0839c583f [project @ 2006-10-20 16:54:30 by jwe] jwe parents: 6065 diff changeset	2400 // 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	2401 octave_mex_function *curr_mex_fcn;
c9f0839c583f [project @ 2006-10-20 16:54:30 by jwe] jwe parents: 6065 diff changeset	2402
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2403 // 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	2404 std::set<void *> memlist;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2405
7179 32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2406 // 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	2407 std::set<mxArray *> arraylist;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2408
7179 32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2409 // 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	2410 // elsewhere.
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2411 std::set<void *> foreign_memlist;
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2412
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2413 // The name of the currently executing function.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2414 mutable char *fname;
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 // List of memory resources we allocated.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2417 static std::set<void *> global_memlist;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2418
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2419 // Mark a pointer as one we allocated.
5905 e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	2420 void global_mark (void *ptr)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2421 {
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21660 diff changeset	2422 #if defined (DEBUG)
5905 e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	2423 if (global_memlist.find (ptr) != global_memlist.end ())
e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	2424 warning ("%s: double registration ignored", function_name ());
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2425 #endif
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2426
5905 e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	2427 global_memlist.insert (ptr);
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2428 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2429
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2430 // Unmark a pointer as one we allocated.
5905 e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	2431 void global_unmark (void *ptr)
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2432 {
25337 3ff9192b676e use auto keyword to declare iterator variables where possible John W. Eaton <jwe@octave.org> parents: 25103 diff changeset	2433 auto p = global_memlist.find (ptr);
5905 e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	2434
e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	2435 if (p != global_memlist.end ())
e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	2436 global_memlist.erase (p);
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21660 diff changeset	2437 #if defined (DEBUG)
5905 e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	2438 else
e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	2439 warning ("%s: value not marked", function_name ());
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2440 #endif
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2441
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2442 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2443 };
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2444
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2445 // List of memory resources we allocated.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2446 std::set<void *> mex::global_memlist;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2447
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2448 // Current context.
23457 21baad6b35c4 maint: Use C++11 nullptr rather than 0 or NULL when possible. Rik <rik@octave.org> parents: 23455 diff changeset	2449 mex *mex_context = nullptr;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2450
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2451 void *
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2452 mxArray::malloc (size_t n)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2453 {
21942 aab79a1885cc limit gnulib headers to liboctave/wrappers directory John W. Eaton <jwe@octave.org> parents: 21751 diff changeset	2454 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	2455 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2456
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 mxArray::calloc (size_t n, size_t t)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2459 {
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2460 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	2461 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2462
7179 32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2463 static inline void *
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2464 maybe_mark_foreign (void *ptr)
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2465 {
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2466 if (mex_context)
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2467 mex_context->mark_foreign (ptr);
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2468
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2469 return ptr;
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2470 }
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	2471
6071 950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2472 static inline mxArray *
950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2473 maybe_unmark_array (mxArray *ptr)
950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2474 {
950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2475 if (mex_context)
950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2476 mex_context->unmark_array (ptr);
950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2477
950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2478 return ptr;
950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2479 }
950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2480
7172 e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2481 static inline void *
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2482 maybe_unmark (void *ptr)
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2483 {
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2484 if (mex_context)
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2485 mex_context->unmark (ptr);
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2486
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2487 return ptr;
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2488 }
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2489
6071 950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2490 void
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2491 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	2492 {
6187 2a8922007c12 [project @ 2006-11-29 01:59:59 by jwe] jwe parents: 6071 diff changeset	2493 if (key_num >= 0 && key_num < nfields)
25450 66b72fbf2845 Backed out changeset 97e64c23fd07 (bug #54096) John W. Eaton <jwe@octave.org> parents: 25445 diff changeset	2494 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	2495 }
950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2496
950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2497 void
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2498 mxArray_cell::set_cell (mwIndex idx, mxArray *val)
6071 950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2499 {
6187 2a8922007c12 [project @ 2006-11-29 01:59:59 by jwe] jwe parents: 6071 diff changeset	2500 if (idx >= 0 && idx < get_number_of_elements ())
25450 66b72fbf2845 Backed out changeset 97e64c23fd07 (bug #54096) John W. Eaton <jwe@octave.org> parents: 25445 diff changeset	2501 data[idx] = maybe_unmark_array (val);
6071 950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2502 }
950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2503
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2504 // ------------------------------------------------------------------
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2505
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2506 // C interface to mxArray objects:
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2507
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2508 // Floating point predicates.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2509
22465 6149f6b34cbc Change all mxIs* functions in MEX API to return bool rather than int. Rik <rik@octave.org> parents: 22464 diff changeset	2510 bool
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2511 mxIsFinite (const double v)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2512 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2513 return lo_ieee_finite (v) != 0;
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
22465 6149f6b34cbc Change all mxIs* functions in MEX API to return bool rather than int. Rik <rik@octave.org> parents: 22464 diff changeset	2516 bool
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2517 mxIsInf (const double v)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2518 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2519 return lo_ieee_isinf (v) != 0;
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
22465 6149f6b34cbc Change all mxIs* functions in MEX API to return bool rather than int. Rik <rik@octave.org> parents: 22464 diff changeset	2522 bool
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2523 mxIsNaN (const double v)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2524 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2525 return lo_ieee_isnan (v) != 0;
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 double
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2529 mxGetEps (void)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2530 {
15220 61822c866ba1 use std::numeric_limits<T>::epsilon in C++ code John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	2531 return std::numeric_limits<double>::epsilon ();
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 double
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2535 mxGetInf (void)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2536 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2537 return lo_ieee_inf_value ();
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 double
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2541 mxGetNaN (void)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2542 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2543 return lo_ieee_nan_value ();
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 // Memory management.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2547 void *
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2548 mxCalloc (size_t n, size_t size)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2549 {
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	2550 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	2551 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2552
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2553 void *
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2554 mxMalloc (size_t n)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2555 {
21942 aab79a1885cc limit gnulib headers to liboctave/wrappers directory John W. Eaton <jwe@octave.org> parents: 21751 diff changeset	2556 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	2557 }
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 void *
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2560 mxRealloc (void *ptr, size_t size)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2561 {
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	2562 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	2563 : std::realloc (ptr, size);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2564 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2565
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2566 void
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2567 mxFree (void *ptr)
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2568 {
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2569 if (mex_context)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2570 mex_context->free (ptr);
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2571 else
6071 950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	2572 xfree (ptr);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2573 }
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2574
814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2575 static inline mxArray *
814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2576 maybe_mark_array (mxArray *ptr)
814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2577 {
814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2578 return mex_context ? mex_context->mark_array (ptr) : ptr;
814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2579 }
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	2580
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2581 // Constructors.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2582 mxArray *
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2583 mxCreateCellArray (mwSize ndims, const mwSize *dims)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2584 {
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2585 return maybe_mark_array (new mxArray (ndims, dims));
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2586 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2587
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2588 mxArray *
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2589 mxCreateCellMatrix (mwSize m, mwSize n)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2590 {
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2591 return maybe_mark_array (new mxArray (m, n));
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2592 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2593
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2594 mxArray *
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2595 mxCreateCharArray (mwSize ndims, const mwSize *dims)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2596 {
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2597 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	2598 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2599
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2600 mxArray *
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2601 mxCreateCharMatrixFromStrings (mwSize m, const char **str)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2602 {
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2603 return maybe_mark_array (new mxArray (m, str));
5900 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
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2606 mxArray *
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2607 mxCreateDoubleMatrix (mwSize m, mwSize n, mxComplexity flag)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2608 {
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2609 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	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 mxArray *
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2613 mxCreateDoubleScalar (double val)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2614 {
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2615 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	2616 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2617
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2618 mxArray *
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2619 mxCreateLogicalArray (mwSize ndims, const mwSize *dims)
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2620 {
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2621 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	2622 }
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 mxArray *
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2625 mxCreateLogicalMatrix (mwSize m, mwSize n)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2626 {
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2627 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	2628 }
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 mxArray *
7577 ba8fcc115fee mex.cc: arg to mxCreateLogicalScalar is now mxLogical John W. Eaton <jwe@octave.org> parents: 7357 diff changeset	2631 mxCreateLogicalScalar (mxLogical val)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2632 {
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2633 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	2634 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2635
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2636 mxArray *
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2637 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	2638 mxComplexity flag)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2639 {
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2640 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	2641 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2642
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2643 mxArray *
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	2644 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	2645 mxComplexity flag)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2646 {
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2647 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	2648 }
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 mxArray *
22464 1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	2651 mxCreateUninitNumericArray (mwSize ndims, const mwSize *dims,
1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	2652 mxClassID class_id, mxComplexity flag)
1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	2653 {
1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	2654 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	2655 }
1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	2656
1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	2657 mxArray *
1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	2658 mxCreateUninitNumericMatrix (mwSize m, mwSize n, mxClassID class_id,
1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	2659 mxComplexity flag)
1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	2660 {
1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	2661 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	2662 }
1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	2663
1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	2664 mxArray *
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2665 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	2666 {
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2667 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	2668 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2669
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2670 mxArray *
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2671 mxCreateSparseLogicalMatrix (mwSize m, mwSize n, mwSize nzmax)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2672 {
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2673 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	2674 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2675
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2676 mxArray *
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2677 mxCreateString (const char *str)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2678 {
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2679 return maybe_mark_array (new mxArray (str));
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2680 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2681
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2682 mxArray *
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	2683 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	2684 const char **keys)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2685 {
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2686 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	2687 }
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2688
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2689 mxArray *
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2690 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	2691 {
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2692 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	2693 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2694
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2695 // Copy constructor.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2696 mxArray *
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2697 mxDuplicateArray (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2698 {
11277 7d5351fc575a mex.cc: convert mxArray_octave_value to matlab style representation when duplicating John W. Eaton <jwe@octave.org> parents: 11276 diff changeset	2699 return maybe_mark_array (ptr->dup ());
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2700 }
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 // Destructor.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2703 void
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2704 mxDestroyArray (mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2705 {
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2706 if (! (mex_context && mex_context->free_value (ptr)))
814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	2707 delete ptr;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2708 }
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 // 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	2711 bool
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2712 mxIsCell (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2713 {
23576 00e518162fda maint: Deprecate is_cell and replace with iscell. Rik <rik@octave.org> parents: 23553 diff changeset	2714 return ptr->iscell ();
5900 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 mxIsChar (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_char ();
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 mxIsClass (const mxArray ptr, const char name)
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_class (name);
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 mxIsComplex (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_complex ();
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
22465 6149f6b34cbc Change all mxIs* functions in MEX API to return bool rather than int. Rik <rik@octave.org> parents: 22464 diff changeset	2735 bool
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2736 mxIsDouble (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2737 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2738 return ptr->is_double ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2739 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2740
22465 6149f6b34cbc Change all mxIs* functions in MEX API to return bool rather than int. Rik <rik@octave.org> parents: 22464 diff changeset	2741 bool
11100 cdf940db26a0 provide mxIsFunctionHandle MEX interface function John W. Eaton <jwe@octave.org> parents: 11073 diff changeset	2742 mxIsFunctionHandle (const mxArray *ptr)
cdf940db26a0 provide mxIsFunctionHandle MEX interface function John W. Eaton <jwe@octave.org> parents: 11073 diff changeset	2743 {
cdf940db26a0 provide mxIsFunctionHandle MEX interface function John W. Eaton <jwe@octave.org> parents: 11073 diff changeset	2744 return ptr->is_function_handle ();
cdf940db26a0 provide mxIsFunctionHandle MEX interface function John W. Eaton <jwe@octave.org> parents: 11073 diff changeset	2745 }
cdf940db26a0 provide mxIsFunctionHandle MEX interface function John W. Eaton <jwe@octave.org> parents: 11073 diff changeset	2746
22465 6149f6b34cbc Change all mxIs* functions in MEX API to return bool rather than int. Rik <rik@octave.org> parents: 22464 diff changeset	2747 bool
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2748 mxIsInt16 (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2749 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2750 return ptr->is_int16 ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2751 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2752
22465 6149f6b34cbc Change all mxIs* functions in MEX API to return bool rather than int. Rik <rik@octave.org> parents: 22464 diff changeset	2753 bool
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2754 mxIsInt32 (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2755 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2756 return ptr->is_int32 ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2757 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2758
22465 6149f6b34cbc Change all mxIs* functions in MEX API to return bool rather than int. Rik <rik@octave.org> parents: 22464 diff changeset	2759 bool
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2760 mxIsInt64 (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2761 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2762 return ptr->is_int64 ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2763 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2764
22465 6149f6b34cbc Change all mxIs* functions in MEX API to return bool rather than int. Rik <rik@octave.org> parents: 22464 diff changeset	2765 bool
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2766 mxIsInt8 (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2767 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2768 return ptr->is_int8 ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2769 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2770
22465 6149f6b34cbc Change all mxIs* functions in MEX API to return bool rather than int. Rik <rik@octave.org> parents: 22464 diff changeset	2771 bool
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2772 mxIsLogical (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2773 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2774 return ptr->is_logical ();
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
22465 6149f6b34cbc Change all mxIs* functions in MEX API to return bool rather than int. Rik <rik@octave.org> parents: 22464 diff changeset	2777 bool
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2778 mxIsNumeric (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2779 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2780 return ptr->is_numeric ();
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
22465 6149f6b34cbc Change all mxIs* functions in MEX API to return bool rather than int. Rik <rik@octave.org> parents: 22464 diff changeset	2783 bool
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2784 mxIsSingle (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2785 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2786 return ptr->is_single ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2787 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2788
22465 6149f6b34cbc Change all mxIs* functions in MEX API to return bool rather than int. Rik <rik@octave.org> parents: 22464 diff changeset	2789 bool
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2790 mxIsSparse (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2791 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2792 return ptr->is_sparse ();
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
22465 6149f6b34cbc Change all mxIs* functions in MEX API to return bool rather than int. Rik <rik@octave.org> parents: 22464 diff changeset	2795 bool
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2796 mxIsStruct (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2797 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2798 return ptr->is_struct ();
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
22465 6149f6b34cbc Change all mxIs* functions in MEX API to return bool rather than int. Rik <rik@octave.org> parents: 22464 diff changeset	2801 bool
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2802 mxIsUint16 (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2803 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2804 return ptr->is_uint16 ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2805 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2806
22465 6149f6b34cbc Change all mxIs* functions in MEX API to return bool rather than int. Rik <rik@octave.org> parents: 22464 diff changeset	2807 bool
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2808 mxIsUint32 (const mxArray *ptr)
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 return ptr->is_uint32 ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2811 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2812
22465 6149f6b34cbc Change all mxIs* functions in MEX API to return bool rather than int. Rik <rik@octave.org> parents: 22464 diff changeset	2813 bool
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2814 mxIsUint64 (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2815 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2816 return ptr->is_uint64 ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2817 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2818
22465 6149f6b34cbc Change all mxIs* functions in MEX API to return bool rather than int. Rik <rik@octave.org> parents: 22464 diff changeset	2819 bool
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2820 mxIsUint8 (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2821 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2822 return ptr->is_uint8 ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2823 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2824
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2825 // 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	2826 bool
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2827 mxIsLogicalScalar (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2828 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2829 return ptr->is_logical_scalar ();
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
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2832 // 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	2833 bool
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2834 mxIsLogicalScalarTrue (const mxArray *ptr)
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 return ptr->is_logical_scalar_true ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2837 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2838
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2839 // 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	2840 bool
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2841 mxIsEmpty (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2842 {
23577 80c42f4cca13 maint: Deprecate is_empty and replace with isempty. Rik <rik@octave.org> parents: 23576 diff changeset	2843 return ptr->isempty ();
5900 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
22462 6cb7813e5b2f Add new mxIsScalar function for MEX API. Rik <rik@octave.org> parents: 22454 diff changeset	2846 bool
6cb7813e5b2f Add new mxIsScalar function for MEX API. Rik <rik@octave.org> parents: 22454 diff changeset	2847 mxIsScalar (const mxArray *ptr)
6cb7813e5b2f Add new mxIsScalar function for MEX API. Rik <rik@octave.org> parents: 22454 diff changeset	2848 {
6cb7813e5b2f Add new mxIsScalar function for MEX API. Rik <rik@octave.org> parents: 22454 diff changeset	2849 return ptr->is_scalar ();
6cb7813e5b2f Add new mxIsScalar function for MEX API. Rik <rik@octave.org> parents: 22454 diff changeset	2850 }
6cb7813e5b2f Add new mxIsScalar function for MEX API. Rik <rik@octave.org> parents: 22454 diff changeset	2851
20527 2d9ec16fa960 Print error, rather than aborting, if mex function mxIsFromGlobalWS is used (bug #46070). Rik <rik@octave.org> parents: 20362 diff changeset	2852 // 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	2853 // 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	2854 bool
20527 2d9ec16fa960 Print error, rather than aborting, if mex function mxIsFromGlobalWS is used (bug #46070). Rik <rik@octave.org> parents: 20362 diff changeset	2855 mxIsFromGlobalWS (const mxArray * /ptr/)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2856 {
20527 2d9ec16fa960 Print error, rather than aborting, if mex function mxIsFromGlobalWS is used (bug #46070). Rik <rik@octave.org> parents: 20362 diff changeset	2857 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	2858
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2859 return 0;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2860 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2861
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2862 // Dimension extractors.
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2863 size_t
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2864 mxGetM (const mxArray *ptr)
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 return ptr->get_m ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2867 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2868
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2869 size_t
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2870 mxGetN (const mxArray *ptr)
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 return ptr->get_n ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2873 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2874
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	2875 const mwSize *
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2876 mxGetDimensions (const mxArray *ptr)
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2877 {
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2878 return ptr->get_dimensions ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2879 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2880
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2881 mwSize
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2882 mxGetNumberOfDimensions (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2883 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2884 return ptr->get_number_of_dimensions ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2885 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2886
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2887 size_t
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2888 mxGetNumberOfElements (const mxArray *ptr)
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 return ptr->get_number_of_elements ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2891 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2892
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2893 // Dimension setters.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2894 void
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2895 mxSetM (mxArray *ptr, mwSize m)
5900 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 ptr->set_m (m);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2898 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2899
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2900 void
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2901 mxSetN (mxArray *ptr, mwSize n)
5900 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 ptr->set_n (n);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2904 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2905
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	2906 int
10126 8687ce1c56da Change signature of mxSetDimensions. David Grundberg <davidg@cs.umu.se> parents: 10066 diff changeset	2907 mxSetDimensions (mxArray ptr, const mwSize dims, mwSize ndims)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2908 {
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	2909 return (ptr->set_dimensions (static_cast<mwSize *>
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	2910 (maybe_unmark (const_cast<mwSize *> (dims))),
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	2911 ndims));
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2912 }
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	2913
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2914 // Data extractors.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2915 double *
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2916 mxGetPr (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2917 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2918 return static_cast<double *> (ptr->get_data ());
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
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2921 double *
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2922 mxGetPi (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2923 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2924 return static_cast<double *> (ptr->get_imag_data ());
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
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2927 double
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2928 mxGetScalar (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2929 {
6332 debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	2930 return ptr->get_scalar ();
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2931 }
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 mxChar *
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2934 mxGetChars (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2935 {
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	2936 if (mxIsChar (ptr))
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	2937 return static_cast<mxChar *> (ptr->get_data ());
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	2938 else
23457 21baad6b35c4 maint: Use C++11 nullptr rather than 0 or NULL when possible. Rik <rik@octave.org> parents: 23455 diff changeset	2939 return nullptr;
5900 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
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2942 mxLogical *
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2943 mxGetLogicals (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 static_cast<mxLogical *> (ptr->get_data ());
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 *
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2949 mxGetData (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2950 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2951 return ptr->get_data ();
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 *
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2955 mxGetImagData (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2956 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2957 return ptr->get_imag_data ();
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 // Data setters.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2961 void
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2962 mxSetPr (mxArray ptr, double pr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2963 {
7172 e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2964 ptr->set_data (maybe_unmark (pr));
5900 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
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2967 void
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2968 mxSetPi (mxArray ptr, double pi)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2969 {
7172 e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2970 ptr->set_imag_data (maybe_unmark (pi));
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2971 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	2972
5900 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 mxSetData (mxArray ptr, void pr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2975 {
7172 e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2976 ptr->set_data (maybe_unmark (pr));
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2977 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2978
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2979 void
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2980 mxSetImagData (mxArray ptr, void pi)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2981 {
7172 e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	2982 ptr->set_imag_data (maybe_unmark (pi));
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2983 }
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 // Classes.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2986 mxClassID
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2987 mxGetClassID (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2988 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2989 return ptr->get_class_id ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2990 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2991
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2992 const char *
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2993 mxGetClassName (const mxArray *ptr)
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 return ptr->get_class_name ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2996 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2997
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2998 void
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2999 mxSetClassName (mxArray ptr, const char name)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3000 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3001 ptr->set_class_name (name);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3002 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3003
23893 75eff5b667b3 new mxSetProperty function for MEX API John W. Eaton <jwe@octave.org> parents: 23891 diff changeset	3004 void
75eff5b667b3 new mxSetProperty function for MEX API John W. Eaton <jwe@octave.org> parents: 23891 diff changeset	3005 mxSetProperty (mxArray ptr, mwIndex idx, const char property_name,
75eff5b667b3 new mxSetProperty function for MEX API John W. Eaton <jwe@octave.org> parents: 23891 diff changeset	3006 const mxArray *property_value)
75eff5b667b3 new mxSetProperty function for MEX API John W. Eaton <jwe@octave.org> parents: 23891 diff changeset	3007 {
75eff5b667b3 new mxSetProperty function for MEX API John W. Eaton <jwe@octave.org> parents: 23891 diff changeset	3008 ptr->set_property (idx, property_name, property_value);
75eff5b667b3 new mxSetProperty function for MEX API John W. Eaton <jwe@octave.org> parents: 23891 diff changeset	3009 }
75eff5b667b3 new mxSetProperty function for MEX API John W. Eaton <jwe@octave.org> parents: 23891 diff changeset	3010
23891 142a9c7e403a Avoid CamelCase in variables names in mxGetProperty cset (bd9e719f04cc). Rik <rik@octave.org> parents: 23884 diff changeset	3011 mxArray *
142a9c7e403a Avoid CamelCase in variables names in mxGetProperty cset (bd9e719f04cc). Rik <rik@octave.org> parents: 23884 diff changeset	3012 mxGetProperty (const mxArray ptr, mwIndex idx, const char property_name)
23884 bd9e719f04cc new mxGetProperty function for MEX API Piotr Held <pjheld@gmail.com> parents: 23795 diff changeset	3013 {
23891 142a9c7e403a Avoid CamelCase in variables names in mxGetProperty cset (bd9e719f04cc). Rik <rik@octave.org> parents: 23884 diff changeset	3014 return ptr->get_property (idx, property_name);
23884 bd9e719f04cc new mxGetProperty function for MEX API Piotr Held <pjheld@gmail.com> parents: 23795 diff changeset	3015 }
bd9e719f04cc new mxGetProperty function for MEX API Piotr Held <pjheld@gmail.com> parents: 23795 diff changeset	3016
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3017 // Cell support.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3018 mxArray *
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	3019 mxGetCell (const mxArray *ptr, mwIndex idx)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3020 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3021 return ptr->get_cell (idx);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3022 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3023
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3024 void
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	3025 mxSetCell (mxArray ptr, mwIndex idx, mxArray val)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3026 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3027 ptr->set_cell (idx, val);
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
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3030 // Sparse support.
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	3031 mwIndex *
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3032 mxGetIr (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3033 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3034 return ptr->get_ir ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3035 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3036
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	3037 mwIndex *
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3038 mxGetJc (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3039 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3040 return ptr->get_jc ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3041 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3042
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	3043 mwSize
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3044 mxGetNzmax (const mxArray *ptr)
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 return ptr->get_nzmax ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3047 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3048
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3049 void
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	3050 mxSetIr (mxArray ptr, mwIndex ir)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3051 {
19739 3fa35defe495 Adjust spacing of static_cast<> calls to follow Octave coding conventions. Rik <rik@octave.org> parents: 19697 diff changeset	3052 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	3053 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3054
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3055 void
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	3056 mxSetJc (mxArray ptr, mwIndex jc)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3057 {
7172 e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	3058 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	3059 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3060
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3061 void
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	3062 mxSetNzmax (mxArray *ptr, mwSize nzmax)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3063 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3064 ptr->set_nzmax (nzmax);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3065 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3066
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3067 // Structure support.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3068 int
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3069 mxAddField (mxArray ptr, const char key)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3070 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3071 return ptr->add_field (key);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3072 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3073
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3074 void
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3075 mxRemoveField (mxArray *ptr, int key_num)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3076 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3077 ptr->remove_field (key_num);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3078 }
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3079
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3080 mxArray *
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	3081 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	3082 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3083 int key_num = mxGetFieldNumber (ptr, key);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3084 return mxGetFieldByNumber (ptr, index, key_num);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3085 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3086
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3087 mxArray *
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	3088 mxGetFieldByNumber (const mxArray *ptr, mwIndex index, int key_num)
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3089 {
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3090 return ptr->get_field_by_number (index, key_num);
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3091 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3092
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3093 void
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	3094 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	3095 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3096 int key_num = mxGetFieldNumber (ptr, key);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3097 mxSetFieldByNumber (ptr, index, key_num, val);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3098 }
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3099
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3100 void
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	3101 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	3102 {
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3103 ptr->set_field_by_number (index, key_num, val);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3104 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3105
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3106 int
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3107 mxGetNumberOfFields (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3108 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3109 return ptr->get_number_of_fields ();
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
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3112 const char *
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3113 mxGetFieldNameByNumber (const mxArray *ptr, int key_num)
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3114 {
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3115 return ptr->get_field_name_by_number (key_num);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3116 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3117
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3118 int
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3119 mxGetFieldNumber (const mxArray ptr, const char key)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3120 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3121 return ptr->get_field_number (key);
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3122 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3123
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3124 int
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	3125 mxGetString (const mxArray ptr, char buf, mwSize buflen)
5900 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 return ptr->get_string (buf, buflen);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3128 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3129
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3130 char *
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3131 mxArrayToString (const mxArray *ptr)
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3132 {
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3133 return ptr->array_to_string ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3134 }
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	3135
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	3136 mwIndex
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	3137 mxCalcSingleSubscript (const mxArray ptr, mwSize nsubs, mwIndex subs)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3138 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3139 return ptr->calc_single_subscript (nsubs, subs);
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3140 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3141
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	3142 size_t
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3143 mxGetElementSize (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3144 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3145 return ptr->get_element_size ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3146 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3147
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3148 // ------------------------------------------------------------------
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3149
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3150 typedef void (cmex_fptr) (int nlhs, mxArray plhs, int nrhs, mxArray *prhs);
23498 647705ffb110 use F77_INT type for integer args to Fortran MEX functions John W. Eaton <jwe@octave.org> parents: 23457 diff changeset	3151 typedef F77_RET_T (fmex_fptr) (F77_INT& nlhs, mxArray *plhs,
647705ffb110 use F77_INT type for integer args to Fortran MEX functions John W. Eaton <jwe@octave.org> parents: 23457 diff changeset	3152 F77_INT& nrhs, mxArray **prhs);
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3153
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3154 octave_value_list
23499 7d89f815d78e modernize octave_mex_function John W. Eaton <jwe@octave.org> parents: 23498 diff changeset	3155 call_mex (octave_mex_function& mex_fcn, const octave_value_list& args,
7d89f815d78e modernize octave_mex_function John W. Eaton <jwe@octave.org> parents: 23498 diff changeset	3156 int nargout_arg)
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3157 {
20771 ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	3158 octave_quit ();
ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	3159
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3160 // 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	3161 // still want to be able to return an ans.
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3162
8806 c7864bb74914 avoid some GCC warnings John W. Eaton <jwe@octave.org> parents: 8377 diff changeset	3163 volatile int nargout = nargout_arg;
c7864bb74914 avoid some GCC warnings John W. Eaton <jwe@octave.org> parents: 8377 diff changeset	3164
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3165 int nargin = args.length ();
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3166 OCTAVE_LOCAL_BUFFER (mxArray *, argin, nargin);
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3167 for (int i = 0; i < nargin; i++)
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23703 diff changeset	3168 argin[i] = nullptr;
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3169
23450 855122b993da maint: Wrap tertiary operator in parentheses "(COND ? x : y)". Rik <rik@octave.org> parents: 23446 diff changeset	3170 int nout = (nargout == 0 ? 1 : nargout);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3171 OCTAVE_LOCAL_BUFFER (mxArray *, argout, nout);
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3172 for (int i = 0; i < nout; i++)
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23703 diff changeset	3173 argout[i] = nullptr;
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3174
21743 f4d7d0eb5b0c use namespace for unwind_protect class John W. Eaton <jwe@octave.org> parents: 21724 diff changeset	3175 octave::unwind_protect_safe frame;
5905 e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	3176
e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	3177 // Save old mex pointer.
10066 2cd940306a06 make unwind_protect frames local Jaroslav Hajek <highegg@gmail.com> parents: 9689 diff changeset	3178 frame.protect_var (mex_context);
5905 e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	3179
23499 7d89f815d78e modernize octave_mex_function John W. Eaton <jwe@octave.org> parents: 23498 diff changeset	3180 mex context (&mex_fcn);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3181
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3182 for (int i = 0; i < nargin; i++)
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3183 argin[i] = context.make_value (args(i));
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3184
20771 ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	3185 mex_context = &context;
ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	3186
23499 7d89f815d78e modernize octave_mex_function John W. Eaton <jwe@octave.org> parents: 23498 diff changeset	3187 void *mex_fcn_ptr = mex_fcn.mex_fcn_ptr ();
7d89f815d78e modernize octave_mex_function John W. Eaton <jwe@octave.org> parents: 23498 diff changeset	3188
7d89f815d78e modernize octave_mex_function John W. Eaton <jwe@octave.org> parents: 23498 diff changeset	3189 if (mex_fcn.is_fmex ())
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3190 {
23499 7d89f815d78e modernize octave_mex_function John W. Eaton <jwe@octave.org> parents: 23498 diff changeset	3191 fmex_fptr fcn = reinterpret_cast<fmex_fptr> (mex_fcn_ptr);
20771 ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	3192
23498 647705ffb110 use F77_INT type for integer args to Fortran MEX functions John W. Eaton <jwe@octave.org> parents: 23457 diff changeset	3193 F77_INT tmp_nargout = nargout;
647705ffb110 use F77_INT type for integer args to Fortran MEX functions John W. Eaton <jwe@octave.org> parents: 23457 diff changeset	3194 F77_INT tmp_nargin = nargin;
20771 ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	3195
ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	3196 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	3197 }
ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	3198 else
ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	3199 {
23499 7d89f815d78e modernize octave_mex_function John W. Eaton <jwe@octave.org> parents: 23498 diff changeset	3200 cmex_fptr fcn = reinterpret_cast<cmex_fptr> (mex_fcn_ptr);
20771 ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	3201
ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	3202 fcn (nargout, argout, nargin, argin);
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3203 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3204
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3205 // Convert returned array entries back into octave values.
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3206
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3207 octave_value_list retval;
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3208
20555 f90c8372b7ba eliminate many more simple uses of error_state John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	3209 if (nargout == 0 && argout[0])
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3210 {
20555 f90c8372b7ba eliminate many more simple uses of error_state John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	3211 // We have something for ans.
f90c8372b7ba eliminate many more simple uses of error_state John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	3212 nargout = 1;
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3213 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3214
20555 f90c8372b7ba eliminate many more simple uses of error_state John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	3215 retval.resize (nargout);
f90c8372b7ba eliminate many more simple uses of error_state John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	3216
f90c8372b7ba eliminate many more simple uses of error_state John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	3217 for (int i = 0; i < nargout; i++)
25451 f84755f24ccd allow NULL mxArray* to be returned as undefined from fcn calls (bug #54096) John W. Eaton <jwe@octave.org> parents: 25450 diff changeset	3218 retval(i) = mxArray::as_octave_value (argout[i], false);
20555 f90c8372b7ba eliminate many more simple uses of error_state John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	3219
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3220 return retval;
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3221 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3222
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3223 // C interface to mex functions:
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3224
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3225 const char *
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3226 mexFunctionName (void)
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3227 {
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3228 return mex_context ? mex_context->function_name () : "unknown";
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
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3231 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	3232 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	3233 mxArray argin[], const char fname)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3234 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3235 octave_value_list args;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3236
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	3237 // 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	3238 // 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	3239 // 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	3240 // handling is implemented.
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3241
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	3242 // 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	3243 // Can this code be re-factored?
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3244 args.resize (nargin);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3245
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3246 for (int i = 0; i < nargin; i++)
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	3247 args(i) = mxArray::as_octave_value (argin[i]);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3248
27474 3fec8e9fa2aa make recover_from_exception a member function John W. Eaton <jwe@octave.org> parents: 27471 diff changeset	3249 octave::interpreter& interp = octave::__get_interpreter__ ("mexCallMATLAB");
3fec8e9fa2aa make recover_from_exception a member function John W. Eaton <jwe@octave.org> parents: 27471 diff changeset	3250
20535 b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20527 diff changeset	3251 bool execution_error = false;
b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20527 diff changeset	3252
b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20527 diff changeset	3253 octave_value_list retval;
b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20527 diff changeset	3254
b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20527 diff changeset	3255 try
b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20527 diff changeset	3256 {
23075 4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 23052 diff changeset	3257 retval = octave::feval (fname, args, nargout);
20535 b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20527 diff changeset	3258 }
22327 d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22323 diff changeset	3259 catch (const octave::execution_exception&)
20535 b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20527 diff changeset	3260 {
20771 ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	3261 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	3262 {
27471 fd32c1a9b1bd revamp error handling John W. Eaton <jwe@octave.org> parents: 27277 diff changeset	3263 // FIXME: is there a way to indicate what error occurred?
fd32c1a9b1bd revamp error handling John W. Eaton <jwe@octave.org> parents: 27277 diff changeset	3264 // Should the error message be displayed here? Do we need to
fd32c1a9b1bd revamp error handling John W. Eaton <jwe@octave.org> parents: 27277 diff changeset	3265 // save the exception info for lasterror?
fd32c1a9b1bd revamp error handling John W. Eaton <jwe@octave.org> parents: 27277 diff changeset	3266
27474 3fec8e9fa2aa make recover_from_exception a member function John W. Eaton <jwe@octave.org> parents: 27471 diff changeset	3267 interp.recover_from_exception ();
22450 2fb86778f78d Return correct status from mexCallMATLAB when mexSetTrapFlag is 1 (bug #48949). Rik <rik@octave.org> parents: 22449 diff changeset	3268
2fb86778f78d Return correct status from mexCallMATLAB when mexSetTrapFlag is 1 (bug #48949). Rik <rik@octave.org> parents: 22449 diff changeset	3269 execution_error = true;
2fb86778f78d Return correct status from mexCallMATLAB when mexSetTrapFlag is 1 (bug #48949). Rik <rik@octave.org> parents: 22449 diff changeset	3270 }
20771 ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	3271 else
ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	3272 {
ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	3273 args.resize (0);
ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	3274 retval.resize (0);
ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	3275
ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	3276 throw;
ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	3277 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3278 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3279
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3280 int num_to_copy = retval.length ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3281
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3282 if (nargout < retval.length ())
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3283 num_to_copy = nargout;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3284
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3285 for (int i = 0; i < num_to_copy; i++)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3286 {
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	3287 // 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	3288 // 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	3289 // 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	3290 // 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	3291 argout[i] = mex_context->make_value (retval(i));
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3292 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3293
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3294 while (num_to_copy < nargout)
23795 980f39c3ab90 Use C++11 nullptr rather than 0 in code (bug #51565). Rik <rik@octave.org> parents: 23703 diff changeset	3295 argout[num_to_copy++] = nullptr;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3296
20535 b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20527 diff changeset	3297 return execution_error ? 1 : 0;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3298 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3299
22451 ad5439817753 Add mexCallMATLABWithTrap to MEX API (bug #48949). Rik <rik@octave.org> parents: 22450 diff changeset	3300 mxArray *
ad5439817753 Add mexCallMATLABWithTrap to MEX API (bug #48949). Rik <rik@octave.org> parents: 22450 diff changeset	3301 mexCallMATLABWithTrap (int nargout, mxArray *argout[], int nargin,
ad5439817753 Add mexCallMATLABWithTrap to MEX API (bug #48949). Rik <rik@octave.org> parents: 22450 diff changeset	3302 mxArray argin[], const char fname)
ad5439817753 Add mexCallMATLABWithTrap to MEX API (bug #48949). Rik <rik@octave.org> parents: 22450 diff changeset	3303 {
23457 21baad6b35c4 maint: Use C++11 nullptr rather than 0 or NULL when possible. Rik <rik@octave.org> parents: 23455 diff changeset	3304 mxArray *mx = nullptr;
22451 ad5439817753 Add mexCallMATLABWithTrap to MEX API (bug #48949). Rik <rik@octave.org> parents: 22450 diff changeset	3305
23450 855122b993da maint: Wrap tertiary operator in parentheses "(COND ? x : y)". Rik <rik@octave.org> parents: 23446 diff changeset	3306 int old_flag = (mex_context ? mex_context->trap_feval_error : 0);
22451 ad5439817753 Add mexCallMATLABWithTrap to MEX API (bug #48949). Rik <rik@octave.org> parents: 22450 diff changeset	3307 mexSetTrapFlag (1);
ad5439817753 Add mexCallMATLABWithTrap to MEX API (bug #48949). Rik <rik@octave.org> parents: 22450 diff changeset	3308 if (mexCallMATLAB (nargout, argout, nargin, argin, fname))
ad5439817753 Add mexCallMATLABWithTrap to MEX API (bug #48949). Rik <rik@octave.org> parents: 22450 diff changeset	3309 {
22454 8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	3310 const char *field_names[] = {"identifier", "message", "case", "stack"};
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	3311 mx = mxCreateStructMatrix (1, 1, 4, field_names);
22451 ad5439817753 Add mexCallMATLABWithTrap to MEX API (bug #48949). Rik <rik@octave.org> parents: 22450 diff changeset	3312 mxSetFieldByNumber (mx, 0, 0, mxCreateString ("Octave:MEX"));
ad5439817753 Add mexCallMATLABWithTrap to MEX API (bug #48949). Rik <rik@octave.org> parents: 22450 diff changeset	3313 std::string msg = "mexCallMATLABWithTrap: function call <"
ad5439817753 Add mexCallMATLABWithTrap to MEX API (bug #48949). Rik <rik@octave.org> parents: 22450 diff changeset	3314 + std::string (fname) + "> failed";
ad5439817753 Add mexCallMATLABWithTrap to MEX API (bug #48949). Rik <rik@octave.org> parents: 22450 diff changeset	3315 mxSetFieldByNumber (mx, 0, 1, mxCreateString (msg.c_str ()));
ad5439817753 Add mexCallMATLABWithTrap to MEX API (bug #48949). Rik <rik@octave.org> parents: 22450 diff changeset	3316 mxSetFieldByNumber (mx, 0, 2, mxCreateCellMatrix (0, 0));
23457 21baad6b35c4 maint: Use C++11 nullptr rather than 0 or NULL when possible. Rik <rik@octave.org> parents: 23455 diff changeset	3317 mxSetFieldByNumber (mx, 0, 3, mxCreateStructMatrix (0, 1, 0, nullptr));
22451 ad5439817753 Add mexCallMATLABWithTrap to MEX API (bug #48949). Rik <rik@octave.org> parents: 22450 diff changeset	3318 }
ad5439817753 Add mexCallMATLABWithTrap to MEX API (bug #48949). Rik <rik@octave.org> parents: 22450 diff changeset	3319 mexSetTrapFlag (old_flag);
ad5439817753 Add mexCallMATLABWithTrap to MEX API (bug #48949). Rik <rik@octave.org> parents: 22450 diff changeset	3320
ad5439817753 Add mexCallMATLABWithTrap to MEX API (bug #48949). Rik <rik@octave.org> parents: 22450 diff changeset	3321 return mx;
ad5439817753 Add mexCallMATLABWithTrap to MEX API (bug #48949). Rik <rik@octave.org> parents: 22450 diff changeset	3322 }
ad5439817753 Add mexCallMATLABWithTrap to MEX API (bug #48949). Rik <rik@octave.org> parents: 22450 diff changeset	3323
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3324 void
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3325 mexSetTrapFlag (int flag)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3326 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3327 if (mex_context)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3328 mex_context->trap_feval_error = flag;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3329 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3330
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3331 int
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3332 mexEvalString (const char *s)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3333 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3334 int retval = 0;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3335
27474 3fec8e9fa2aa make recover_from_exception a member function John W. Eaton <jwe@octave.org> parents: 27471 diff changeset	3336 octave::interpreter& interp = octave::__get_interpreter__ ("mexEvalString");
3fec8e9fa2aa make recover_from_exception a member function John W. Eaton <jwe@octave.org> parents: 27471 diff changeset	3337
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3338 int parse_status;
22454 8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	3339 bool execution_error = false;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3340
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3341 octave_value_list ret;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3342
20535 b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20527 diff changeset	3343 try
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3344 {
26113 8a15f3bace49 move eval_string inside interpreter/evaluator class John W. Eaton <jwe@octave.org> parents: 25922 diff changeset	3345 ret = interp.eval_string (std::string (s), false, parse_status, 0);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3346 }
22327 d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22323 diff changeset	3347 catch (const octave::execution_exception&)
20535 b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20527 diff changeset	3348 {
27474 3fec8e9fa2aa make recover_from_exception a member function John W. Eaton <jwe@octave.org> parents: 27471 diff changeset	3349 interp.recover_from_exception ();
20756 200ae1d650b7 propagate octave_execution_exception objects through try/catch blocks John W. Eaton <jwe@octave.org> parents: 20555 diff changeset	3350
20535 b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20527 diff changeset	3351 execution_error = true;
b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20527 diff changeset	3352 }
b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20527 diff changeset	3353
b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20527 diff changeset	3354 if (parse_status \|\| execution_error)
b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20527 diff changeset	3355 retval = 1;
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3356
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3357 return retval;
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
22454 8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	3360 mxArray *
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	3361 mexEvalStringWithTrap (const char *s)
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	3362 {
23457 21baad6b35c4 maint: Use C++11 nullptr rather than 0 or NULL when possible. Rik <rik@octave.org> parents: 23455 diff changeset	3363 mxArray *mx = nullptr;
22454 8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	3364
27474 3fec8e9fa2aa make recover_from_exception a member function John W. Eaton <jwe@octave.org> parents: 27471 diff changeset	3365 octave::interpreter& interp = octave::__get_interpreter__ ("mexEvalString");
3fec8e9fa2aa make recover_from_exception a member function John W. Eaton <jwe@octave.org> parents: 27471 diff changeset	3366
22454 8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	3367 int parse_status;
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	3368 bool execution_error = false;
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	3369
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	3370 octave_value_list ret;
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	3371
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	3372 try
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	3373 {
26113 8a15f3bace49 move eval_string inside interpreter/evaluator class John W. Eaton <jwe@octave.org> parents: 25922 diff changeset	3374 ret = interp.eval_string (std::string (s), false, parse_status, 0);
22454 8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	3375 }
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	3376 catch (const octave::execution_exception&)
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	3377 {
27474 3fec8e9fa2aa make recover_from_exception a member function John W. Eaton <jwe@octave.org> parents: 27471 diff changeset	3378 interp.recover_from_exception ();
22454 8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	3379
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	3380 execution_error = true;
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	3381 }
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	3382
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	3383 if (parse_status \|\| execution_error)
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	3384 {
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	3385 const char *field_names[] = {"identifier", "message", "case", "stack"};
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	3386 mx = mxCreateStructMatrix (1, 1, 4, field_names);
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	3387 mxSetFieldByNumber (mx, 0, 0, mxCreateString ("Octave:MEX"));
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	3388 std::string msg = "mexEvalStringWithTrap: eval of <"
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	3389 + std::string (s) + "> failed";
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	3390 mxSetFieldByNumber (mx, 0, 1, mxCreateString (msg.c_str ()));
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	3391 mxSetFieldByNumber (mx, 0, 2, mxCreateCellMatrix (0, 0));
23457 21baad6b35c4 maint: Use C++11 nullptr rather than 0 or NULL when possible. Rik <rik@octave.org> parents: 23455 diff changeset	3392 mxSetFieldByNumber (mx, 0, 3, mxCreateStructMatrix (0, 1, 0, nullptr));
22454 8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	3393 }
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	3394
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	3395 return mx;
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	3396 }
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	3397
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3398 void
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3399 mexErrMsgTxt (const char *s)
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3400 {
25751 4bd60c9c6169 Suppress backtrace when MexErrMsgTxt message ends with newline (bug #54454). Rik <rik@octave.org> parents: 25688 diff changeset	3401 size_t len;
4bd60c9c6169 Suppress backtrace when MexErrMsgTxt message ends with newline (bug #54454). Rik <rik@octave.org> parents: 25688 diff changeset	3402
4bd60c9c6169 Suppress backtrace when MexErrMsgTxt message ends with newline (bug #54454). Rik <rik@octave.org> parents: 25688 diff changeset	3403 if (s && (len = strlen (s)) > 0)
4bd60c9c6169 Suppress backtrace when MexErrMsgTxt message ends with newline (bug #54454). Rik <rik@octave.org> parents: 25688 diff changeset	3404 {
4bd60c9c6169 Suppress backtrace when MexErrMsgTxt message ends with newline (bug #54454). Rik <rik@octave.org> parents: 25688 diff changeset	3405 if (s[len - 1] == '\n')
4bd60c9c6169 Suppress backtrace when MexErrMsgTxt message ends with newline (bug #54454). Rik <rik@octave.org> parents: 25688 diff changeset	3406 {
4bd60c9c6169 Suppress backtrace when MexErrMsgTxt message ends with newline (bug #54454). Rik <rik@octave.org> parents: 25688 diff changeset	3407 std::string s_tmp (s, len - 1);
4bd60c9c6169 Suppress backtrace when MexErrMsgTxt message ends with newline (bug #54454). Rik <rik@octave.org> parents: 25688 diff changeset	3408 error ("%s: %s\n", mexFunctionName (), s_tmp.c_str ());
4bd60c9c6169 Suppress backtrace when MexErrMsgTxt message ends with newline (bug #54454). Rik <rik@octave.org> parents: 25688 diff changeset	3409 }
4bd60c9c6169 Suppress backtrace when MexErrMsgTxt message ends with newline (bug #54454). Rik <rik@octave.org> parents: 25688 diff changeset	3410 else
4bd60c9c6169 Suppress backtrace when MexErrMsgTxt message ends with newline (bug #54454). Rik <rik@octave.org> parents: 25688 diff changeset	3411 error ("%s: %s", mexFunctionName (), s);
4bd60c9c6169 Suppress backtrace when MexErrMsgTxt message ends with newline (bug #54454). Rik <rik@octave.org> parents: 25688 diff changeset	3412 }
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3413 else
16851 209f0db3c32b mexErrMsgTxt should abort when called with an empty string (bug #39343). Rik <rik@octave.org> parents: 16708 diff changeset	3414 {
209f0db3c32b mexErrMsgTxt should abort when called with an empty string (bug #39343). Rik <rik@octave.org> parents: 16708 diff changeset	3415 // 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	3416 // 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	3417 error (" ");
209f0db3c32b mexErrMsgTxt should abort when called with an empty string (bug #39343). Rik <rik@octave.org> parents: 16708 diff changeset	3418 }
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3419 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3420
5879 4f1112bfafce [project @ 2006-07-05 23:50:44 by jwe] jwe parents: 5864 diff changeset	3421 void
6338 ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	3422 mexErrMsgIdAndTxt (const char id, const char fmt, ...)
5879 4f1112bfafce [project @ 2006-07-05 23:50:44 by jwe] jwe parents: 5864 diff changeset	3423 {
6338 ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	3424 if (fmt && strlen (fmt) > 0)
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	3425 {
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	3426 const char *fname = mexFunctionName ();
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	3427 size_t len = strlen (fname) + 2 + strlen (fmt) + 1;
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	3428 OCTAVE_LOCAL_BUFFER (char, tmpfmt, len);
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	3429 sprintf (tmpfmt, "%s: %s", fname, fmt);
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	3430 va_list args;
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	3431 va_start (args, fmt);
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	3432 verror_with_id (id, tmpfmt, args);
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	3433 va_end (args);
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	3434 }
5879 4f1112bfafce [project @ 2006-07-05 23:50:44 by jwe] jwe parents: 5864 diff changeset	3435 else
16851 209f0db3c32b mexErrMsgTxt should abort when called with an empty string (bug #39343). Rik <rik@octave.org> parents: 16708 diff changeset	3436 {
209f0db3c32b mexErrMsgTxt should abort when called with an empty string (bug #39343). Rik <rik@octave.org> parents: 16708 diff changeset	3437 // 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	3438 // 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	3439 error (" ");
209f0db3c32b mexErrMsgTxt should abort when called with an empty string (bug #39343). Rik <rik@octave.org> parents: 16708 diff changeset	3440 }
5879 4f1112bfafce [project @ 2006-07-05 23:50:44 by jwe] jwe parents: 5864 diff changeset	3441 }
4f1112bfafce [project @ 2006-07-05 23:50:44 by jwe] jwe parents: 5864 diff changeset	3442
4f1112bfafce [project @ 2006-07-05 23:50:44 by jwe] jwe parents: 5864 diff changeset	3443 void
4f1112bfafce [project @ 2006-07-05 23:50:44 by jwe] jwe parents: 5864 diff changeset	3444 mexWarnMsgTxt (const char *s)
4f1112bfafce [project @ 2006-07-05 23:50:44 by jwe] jwe parents: 5864 diff changeset	3445 {
25751 4bd60c9c6169 Suppress backtrace when MexErrMsgTxt message ends with newline (bug #54454). Rik <rik@octave.org> parents: 25688 diff changeset	3446 size_t len;
4bd60c9c6169 Suppress backtrace when MexErrMsgTxt message ends with newline (bug #54454). Rik <rik@octave.org> parents: 25688 diff changeset	3447
4bd60c9c6169 Suppress backtrace when MexErrMsgTxt message ends with newline (bug #54454). Rik <rik@octave.org> parents: 25688 diff changeset	3448 if (s && (len = strlen (s)) > 0)
4bd60c9c6169 Suppress backtrace when MexErrMsgTxt message ends with newline (bug #54454). Rik <rik@octave.org> parents: 25688 diff changeset	3449 {
4bd60c9c6169 Suppress backtrace when MexErrMsgTxt message ends with newline (bug #54454). Rik <rik@octave.org> parents: 25688 diff changeset	3450 if (s[len - 1] == '\n')
4bd60c9c6169 Suppress backtrace when MexErrMsgTxt message ends with newline (bug #54454). Rik <rik@octave.org> parents: 25688 diff changeset	3451 {
4bd60c9c6169 Suppress backtrace when MexErrMsgTxt message ends with newline (bug #54454). Rik <rik@octave.org> parents: 25688 diff changeset	3452 std::string s_tmp (s, len - 1);
4bd60c9c6169 Suppress backtrace when MexErrMsgTxt message ends with newline (bug #54454). Rik <rik@octave.org> parents: 25688 diff changeset	3453 warning ("%s\n", s_tmp.c_str ());
4bd60c9c6169 Suppress backtrace when MexErrMsgTxt message ends with newline (bug #54454). Rik <rik@octave.org> parents: 25688 diff changeset	3454 }
4bd60c9c6169 Suppress backtrace when MexErrMsgTxt message ends with newline (bug #54454). Rik <rik@octave.org> parents: 25688 diff changeset	3455 else
4bd60c9c6169 Suppress backtrace when MexErrMsgTxt message ends with newline (bug #54454). Rik <rik@octave.org> parents: 25688 diff changeset	3456 warning ("%s", s);
4bd60c9c6169 Suppress backtrace when MexErrMsgTxt message ends with newline (bug #54454). Rik <rik@octave.org> parents: 25688 diff changeset	3457 }
4bd60c9c6169 Suppress backtrace when MexErrMsgTxt message ends with newline (bug #54454). Rik <rik@octave.org> parents: 25688 diff changeset	3458 else
4bd60c9c6169 Suppress backtrace when MexErrMsgTxt message ends with newline (bug #54454). Rik <rik@octave.org> parents: 25688 diff changeset	3459 {
4bd60c9c6169 Suppress backtrace when MexErrMsgTxt message ends with newline (bug #54454). Rik <rik@octave.org> parents: 25688 diff changeset	3460 // For compatibility with Matlab, print an empty message.
4bd60c9c6169 Suppress backtrace when MexErrMsgTxt message ends with newline (bug #54454). Rik <rik@octave.org> parents: 25688 diff changeset	3461 // Octave's warning routine requires a non-null input so use a SPACE.
4bd60c9c6169 Suppress backtrace when MexErrMsgTxt message ends with newline (bug #54454). Rik <rik@octave.org> parents: 25688 diff changeset	3462 warning (" ");
4bd60c9c6169 Suppress backtrace when MexErrMsgTxt message ends with newline (bug #54454). Rik <rik@octave.org> parents: 25688 diff changeset	3463 }
5879 4f1112bfafce [project @ 2006-07-05 23:50:44 by jwe] jwe parents: 5864 diff changeset	3464 }
4f1112bfafce [project @ 2006-07-05 23:50:44 by jwe] jwe parents: 5864 diff changeset	3465
4f1112bfafce [project @ 2006-07-05 23:50:44 by jwe] jwe parents: 5864 diff changeset	3466 void
6338 ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	3467 mexWarnMsgIdAndTxt (const char id, const char fmt, ...)
5879 4f1112bfafce [project @ 2006-07-05 23:50:44 by jwe] jwe parents: 5864 diff changeset	3468 {
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	3469 // 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	3470 // an empty string?
6338 ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	3471
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	3472 if (fmt && strlen (fmt) > 0)
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	3473 {
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	3474 const char *fname = mexFunctionName ();
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	3475 size_t len = strlen (fname) + 2 + strlen (fmt) + 1;
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	3476 OCTAVE_LOCAL_BUFFER (char, tmpfmt, len);
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	3477 sprintf (tmpfmt, "%s: %s", fname, fmt);
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	3478 va_list args;
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	3479 va_start (args, fmt);
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	3480 vwarning_with_id (id, tmpfmt, args);
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	3481 va_end (args);
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	3482 }
5879 4f1112bfafce [project @ 2006-07-05 23:50:44 by jwe] jwe parents: 5864 diff changeset	3483 }
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3484
10127 f21fdff5c906 Change signature of mexPrintf. David Grundberg <davidg@cs.umu.se> parents: 10126 diff changeset	3485 int
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3486 mexPrintf (const char *fmt, ...)
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3487 {
10127 f21fdff5c906 Change signature of mexPrintf. David Grundberg <davidg@cs.umu.se> parents: 10126 diff changeset	3488 int retval;
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3489 va_list args;
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3490 va_start (args, fmt);
25646 4d565baa475e move libinterp/utils functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 25452 diff changeset	3491 retval = octave::vformat (octave_stdout, fmt, args);
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3492 va_end (args);
10127 f21fdff5c906 Change signature of mexPrintf. David Grundberg <davidg@cs.umu.se> parents: 10126 diff changeset	3493 return retval;
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3494 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3495
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3496 mxArray *
5879 4f1112bfafce [project @ 2006-07-05 23:50:44 by jwe] jwe parents: 5864 diff changeset	3497 mexGetVariable (const char space, const char name)
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3498 {
23457 21baad6b35c4 maint: Use C++11 nullptr rather than 0 or NULL when possible. Rik <rik@octave.org> parents: 23455 diff changeset	3499 mxArray *retval = nullptr;
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3500
7752 40c428ea3408 initial implementation of dbup and dbdown John W. Eaton <jwe@octave.org> parents: 7577 diff changeset	3501 octave_value val;
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3502
26661 cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: 26438 diff changeset	3503 octave::interpreter& interp = octave::__get_interpreter__ ("mexGetVariable");
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: 26438 diff changeset	3504
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3505 if (! strcmp (space, "global"))
26661 cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: 26438 diff changeset	3506 val = interp.global_varval (name);
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3507 else
7752 40c428ea3408 initial implementation of dbup and dbdown John W. Eaton <jwe@octave.org> parents: 7577 diff changeset	3508 {
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	3509 // 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	3510
21743 f4d7d0eb5b0c use namespace for unwind_protect class John W. Eaton <jwe@octave.org> parents: 21724 diff changeset	3511 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	3512
7901 3e4c9b69069d call stack changes John W. Eaton <jwe@octave.org> parents: 7752 diff changeset	3513 bool caller = ! strcmp (space, "caller");
3e4c9b69069d call stack changes John W. Eaton <jwe@octave.org> parents: 7752 diff changeset	3514 bool base = ! strcmp (space, "base");
3e4c9b69069d call stack changes John W. Eaton <jwe@octave.org> parents: 7752 diff changeset	3515
3e4c9b69069d call stack changes John W. Eaton <jwe@octave.org> parents: 7752 diff changeset	3516 if (caller \|\| base)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3517 {
16708 08f0f274de36 use correct "caller" workspace for mexputvariable and mexgetvariable John W. Eaton <jwe@octave.org> parents: 16442 diff changeset	3518 // 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	3519 // 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	3520
08f0f274de36 use correct "caller" workspace for mexputvariable and mexgetvariable John W. Eaton <jwe@octave.org> parents: 16442 diff changeset	3521 if (base)
08f0f274de36 use correct "caller" workspace for mexputvariable and mexgetvariable John W. Eaton <jwe@octave.org> parents: 16442 diff changeset	3522 {
27206 4e4a9d7b436e eliminate direct access to call stack in mex functions John W. Eaton <jwe@octave.org> parents: 27083 diff changeset	3523 octave::tree_evaluator& tw = interp.get_evaluator ();
4e4a9d7b436e eliminate direct access to call stack in mex functions John W. Eaton <jwe@octave.org> parents: 27083 diff changeset	3524
4e4a9d7b436e eliminate direct access to call stack in mex functions John W. Eaton <jwe@octave.org> parents: 27083 diff changeset	3525 frame.add_method (tw, &octave::tree_evaluator::restore_frame,
4e4a9d7b436e eliminate direct access to call stack in mex functions John W. Eaton <jwe@octave.org> parents: 27083 diff changeset	3526 tw.current_call_stack_frame_number ());
4e4a9d7b436e eliminate direct access to call stack in mex functions John W. Eaton <jwe@octave.org> parents: 27083 diff changeset	3527
4e4a9d7b436e eliminate direct access to call stack in mex functions John W. Eaton <jwe@octave.org> parents: 27083 diff changeset	3528 tw.goto_base_frame ();
16708 08f0f274de36 use correct "caller" workspace for mexputvariable and mexgetvariable John W. Eaton <jwe@octave.org> parents: 16442 diff changeset	3529 }
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3530
26661 cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: 26438 diff changeset	3531 val = interp.varval (name);
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3532 }
7752 40c428ea3408 initial implementation of dbup and dbdown John W. Eaton <jwe@octave.org> parents: 7577 diff changeset	3533 else
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3534 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	3535 }
7336 745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe] jwe parents: 7179 diff changeset	3536
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe] jwe parents: 7179 diff changeset	3537 if (val.is_defined ())
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3538 {
7336 745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe] jwe parents: 7179 diff changeset	3539 retval = mex_context->make_value (val);
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe] jwe parents: 7179 diff changeset	3540
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe] jwe parents: 7179 diff changeset	3541 retval->set_name (name);
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3542 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3543
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3544 return retval;
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3545 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3546
5879 4f1112bfafce [project @ 2006-07-05 23:50:44 by jwe] jwe parents: 5864 diff changeset	3547 const mxArray *
4f1112bfafce [project @ 2006-07-05 23:50:44 by jwe] jwe parents: 5864 diff changeset	3548 mexGetVariablePtr (const char space, const char name)
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3549 {
5879 4f1112bfafce [project @ 2006-07-05 23:50:44 by jwe] jwe parents: 5864 diff changeset	3550 return mexGetVariable (space, name);
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3551 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3552
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3553 int
15353 5f3a69a309a7 fix decl of mexPutVariable John W. Eaton <jwe@octave.org> parents: 15351 diff changeset	3554 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	3555 {
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3556 if (! ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3557 return 1;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3558
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3559 if (! name)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3560 return 1;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3561
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3562 if (name[0] == '\0')
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3563 name = ptr->get_name ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3564
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3565 if (! name \|\| name[0] == '\0')
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3566 return 1;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3567
26661 cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: 26438 diff changeset	3568 octave::interpreter& interp = octave::__get_interpreter__ ("mexPutVariable");
cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: 26438 diff changeset	3569
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3570 if (! strcmp (space, "global"))
26661 cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: 26438 diff changeset	3571 interp.global_assign (name, mxArray::as_octave_value (ptr));
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3572 else
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3573 {
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	3574 // FIXME: should this be in variables.cc?
7336 745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe] jwe parents: 7179 diff changeset	3575
21743 f4d7d0eb5b0c use namespace for unwind_protect class John W. Eaton <jwe@octave.org> parents: 21724 diff changeset	3576 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	3577
7901 3e4c9b69069d call stack changes John W. Eaton <jwe@octave.org> parents: 7752 diff changeset	3578 bool caller = ! strcmp (space, "caller");
3e4c9b69069d call stack changes John W. Eaton <jwe@octave.org> parents: 7752 diff changeset	3579 bool base = ! strcmp (space, "base");
3e4c9b69069d call stack changes John W. Eaton <jwe@octave.org> parents: 7752 diff changeset	3580
3e4c9b69069d call stack changes John W. Eaton <jwe@octave.org> parents: 7752 diff changeset	3581 if (caller \|\| base)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3582 {
16708 08f0f274de36 use correct "caller" workspace for mexputvariable and mexgetvariable John W. Eaton <jwe@octave.org> parents: 16442 diff changeset	3583 // 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	3584 // 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	3585
08f0f274de36 use correct "caller" workspace for mexputvariable and mexgetvariable John W. Eaton <jwe@octave.org> parents: 16442 diff changeset	3586 if (base)
08f0f274de36 use correct "caller" workspace for mexputvariable and mexgetvariable John W. Eaton <jwe@octave.org> parents: 16442 diff changeset	3587 {
27206 4e4a9d7b436e eliminate direct access to call stack in mex functions John W. Eaton <jwe@octave.org> parents: 27083 diff changeset	3588 octave::tree_evaluator& tw = interp.get_evaluator ();
4e4a9d7b436e eliminate direct access to call stack in mex functions John W. Eaton <jwe@octave.org> parents: 27083 diff changeset	3589
4e4a9d7b436e eliminate direct access to call stack in mex functions John W. Eaton <jwe@octave.org> parents: 27083 diff changeset	3590 frame.add_method (tw, &octave::tree_evaluator::restore_frame,
4e4a9d7b436e eliminate direct access to call stack in mex functions John W. Eaton <jwe@octave.org> parents: 27083 diff changeset	3591 tw.current_call_stack_frame_number ());
4e4a9d7b436e eliminate direct access to call stack in mex functions John W. Eaton <jwe@octave.org> parents: 27083 diff changeset	3592
4e4a9d7b436e eliminate direct access to call stack in mex functions John W. Eaton <jwe@octave.org> parents: 27083 diff changeset	3593 tw.goto_base_frame ();
16708 08f0f274de36 use correct "caller" workspace for mexputvariable and mexgetvariable John W. Eaton <jwe@octave.org> parents: 16442 diff changeset	3594 }
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3595
26661 cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: 26438 diff changeset	3596 interp.assign (name, mxArray::as_octave_value (ptr));
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3597 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3598 else
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3599 mexErrMsgTxt ("mexPutVariable: symbol table does not exist");
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3600 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3601
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3602 return 0;
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3603 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3604
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3605 void
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3606 mexMakeArrayPersistent (mxArray *ptr)
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3607 {
7172 e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	3608 maybe_unmark_array (ptr);
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3609 }
5879 4f1112bfafce [project @ 2006-07-05 23:50:44 by jwe] jwe parents: 5864 diff changeset	3610
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3611 void
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3612 mexMakeMemoryPersistent (void *ptr)
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3613 {
7172 e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	3614 maybe_unmark (ptr);
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3615 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3616
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3617 int
6068 c9f0839c583f [project @ 2006-10-20 16:54:30 by jwe] jwe parents: 6065 diff changeset	3618 mexAtExit (void (*f) (void))
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3619 {
6068 c9f0839c583f [project @ 2006-10-20 16:54:30 by jwe] jwe parents: 6065 diff changeset	3620 if (mex_context)
c9f0839c583f [project @ 2006-10-20 16:54:30 by jwe] jwe parents: 6065 diff changeset	3621 {
c9f0839c583f [project @ 2006-10-20 16:54:30 by jwe] jwe parents: 6065 diff changeset	3622 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	3623
c9f0839c583f [project @ 2006-10-20 16:54:30 by jwe] jwe parents: 6065 diff changeset	3624 assert (curr_mex_fcn);
c9f0839c583f [project @ 2006-10-20 16:54:30 by jwe] jwe parents: 6065 diff changeset	3625
c9f0839c583f [project @ 2006-10-20 16:54:30 by jwe] jwe parents: 6065 diff changeset	3626 curr_mex_fcn->atexit (f);
c9f0839c583f [project @ 2006-10-20 16:54:30 by jwe] jwe parents: 6065 diff changeset	3627 }
c9f0839c583f [project @ 2006-10-20 16:54:30 by jwe] jwe parents: 6065 diff changeset	3628
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3629 return 0;
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3630 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3631
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3632 const mxArray *
6595 55586d763de1 [project @ 2007-04-27 15:31:10 by dbateman] dbateman parents: 6493 diff changeset	3633 mexGet (double handle, const char *property)
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3634 {
23457 21baad6b35c4 maint: Use C++11 nullptr rather than 0 or NULL when possible. Rik <rik@octave.org> parents: 23455 diff changeset	3635 mxArray *m = nullptr;
20555 f90c8372b7ba eliminate many more simple uses of error_state John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	3636
6595 55586d763de1 [project @ 2007-04-27 15:31:10 by dbateman] dbateman parents: 6493 diff changeset	3637 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	3638
20555 f90c8372b7ba eliminate many more simple uses of error_state John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	3639 if (ret.is_defined ())
6595 55586d763de1 [project @ 2007-04-27 15:31:10 by dbateman] dbateman parents: 6493 diff changeset	3640 m = ret.as_mxArray ();
20555 f90c8372b7ba eliminate many more simple uses of error_state John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	3641
6595 55586d763de1 [project @ 2007-04-27 15:31:10 by dbateman] dbateman parents: 6493 diff changeset	3642 return m;
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3643 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3644
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3645 int
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3646 mexIsGlobal (const mxArray *ptr)
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3647 {
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3648 return mxIsFromGlobalWS (ptr);
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3649 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3650
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3651 int
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3652 mexIsLocked (void)
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3653 {
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3654 int retval = 0;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3655
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3656 if (mex_context)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3657 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3658 const char *fname = mexFunctionName ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3659
23703 6eb5f6199a5a move mlock, munlock, and mislocked to interpreter class John W. Eaton <jwe@octave.org> parents: 23699 diff changeset	3660 octave::interpreter& interp = octave::__get_interpreter__ ("mexIsLocked");
6eb5f6199a5a move mlock, munlock, and mislocked to interpreter class John W. Eaton <jwe@octave.org> parents: 23699 diff changeset	3661
6eb5f6199a5a move mlock, munlock, and mislocked to interpreter class John W. Eaton <jwe@octave.org> parents: 23699 diff changeset	3662 retval = interp.mislocked (fname);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3663 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3664
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3665 return retval;
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3666 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3667
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3668 std::map<std::string,int> mex_lock_count;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3669
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3670 void
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3671 mexLock (void)
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3672 {
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3673 if (mex_context)
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3674 {
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3675 const char *fname = mexFunctionName ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3676
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3677 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	3678 mex_lock_count[fname] = 1;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3679 else
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3680 mex_lock_count[fname]++;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3681
23703 6eb5f6199a5a move mlock, munlock, and mislocked to interpreter class John W. Eaton <jwe@octave.org> parents: 23699 diff changeset	3682 octave::interpreter& interp = octave::__get_interpreter__ ("mexLock");
6eb5f6199a5a move mlock, munlock, and mislocked to interpreter class John W. Eaton <jwe@octave.org> parents: 23699 diff changeset	3683
6eb5f6199a5a move mlock, munlock, and mislocked to interpreter class John W. Eaton <jwe@octave.org> parents: 23699 diff changeset	3684 interp.mlock ();
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3685 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3686 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3687
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3688 int
6595 55586d763de1 [project @ 2007-04-27 15:31:10 by dbateman] dbateman parents: 6493 diff changeset	3689 mexSet (double handle, const char property, mxArray val)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3690 {
27277 db687716fed6 style fixes: generally aim to break long lines before operators, not after John W. Eaton <jwe@octave.org> parents: 27206 diff changeset	3691 bool ret
db687716fed6 style fixes: generally aim to break long lines before operators, not after John W. Eaton <jwe@octave.org> parents: 27206 diff changeset	3692 = set_property_in_handle (handle, property, mxArray::as_octave_value (val),
db687716fed6 style fixes: generally aim to break long lines before operators, not after John W. Eaton <jwe@octave.org> parents: 27206 diff changeset	3693 "mexSet");
6595 55586d763de1 [project @ 2007-04-27 15:31:10 by dbateman] dbateman parents: 6493 diff changeset	3694 return (ret ? 0 : 1);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3695 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3696
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3697 void
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3698 mexUnlock (void)
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3699 {
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3700 if (mex_context)
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3701 {
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3702 const char *fname = mexFunctionName ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3703
25337 3ff9192b676e use auto keyword to declare iterator variables where possible John W. Eaton <jwe@octave.org> parents: 25103 diff changeset	3704 auto p = mex_lock_count.find (fname);
5905 e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	3705
6062 a813714cb04b [project @ 2006-10-18 23:30:22 by jwe] jwe parents: 6018 diff changeset	3706 if (p != mex_lock_count.end ())
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3707 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3708 int count = --mex_lock_count[fname];
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3709
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3710 if (count == 0)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3711 {
23703 6eb5f6199a5a move mlock, munlock, and mislocked to interpreter class John W. Eaton <jwe@octave.org> parents: 23699 diff changeset	3712 octave::interpreter& interp
6eb5f6199a5a move mlock, munlock, and mislocked to interpreter class John W. Eaton <jwe@octave.org> parents: 23699 diff changeset	3713 = octave::__get_interpreter__ ("mexUnLock");
6eb5f6199a5a move mlock, munlock, and mislocked to interpreter class John W. Eaton <jwe@octave.org> parents: 23699 diff changeset	3714
6eb5f6199a5a move mlock, munlock, and mislocked to interpreter class John W. Eaton <jwe@octave.org> parents: 23699 diff changeset	3715 interp.munlock (fname);
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3716
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3717 mex_lock_count.erase (p);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3718 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3719 }
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3720 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3721 }

Mercurial > octave

annotate libinterp/corefcn/mex.cc @ 27932:b018f553fd85