octave: libinterp/corefcn/mex.cc annotate

annotate libinterp/corefcn/mex.cc @ 30565:83f9f8bda883

maint: Merge stable to default.

author	John W. Eaton <jwe@octave.org>
date	Tue, 28 Dec 2021 18:59:33 -0500
parents	6e8a4dacc014 796f54d4ddbf
children	08b08b7f05b2

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 //
30564 796f54d4ddbf update Octave Project Developers copyright for the new year John W. Eaton <jwe@octave.org> parents: 30501 diff changeset	3 // Copyright (C) 2006-2022 The Octave Project Developers
27923 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
30501 79a7f3e3cf54 Use consistent name for OCTAVE_HAVE_STD_PMR_POLYMORPHIC_ALLOCATOR (bug #61472). Markus Mützel <markus.muetzel@gmx.de> parents: 30494 diff changeset	30 // #define DEBUG 1
30488 abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	31
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	32 #if defined (DEBUG)
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	33 # include <iostream>
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	34 #endif
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	35
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	36 #include <cstdarg>
10463 bbe99b2a5ba7 undo recent gnulib-related changes John W. Eaton <jwe@octave.org> parents: 10447 diff changeset	37 #include <cstdlib>
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	38 #include <cstring>
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	39 #include <cctype>
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	40
23455 73ff72d3d603 maint: Eliminate <cfloat.h> header from libinterp files Rik <rik@octave.org> parents: 23450 diff changeset	41 #include <limits>
73ff72d3d603 maint: Eliminate <cfloat.h> header from libinterp files Rik <rik@octave.org> parents: 23450 diff changeset	42 #include <map>
30501 79a7f3e3cf54 Use consistent name for OCTAVE_HAVE_STD_PMR_POLYMORPHIC_ALLOCATOR (bug #61472). Markus Mützel <markus.muetzel@gmx.de> parents: 30494 diff changeset	43 #if defined (OCTAVE_HAVE_STD_PMR_POLYMORPHIC_ALLOCATOR)
30494 ba5370c670d5 make use of <memory_resource> conditional on HAVE_STD_PMR_POLYMORPHIC_ALLOCATOR John W. Eaton <jwe@octave.org> parents: 30488 diff changeset	44 # include <memory_resource>
ba5370c670d5 make use of <memory_resource> conditional on HAVE_STD_PMR_POLYMORPHIC_ALLOCATOR John W. Eaton <jwe@octave.org> parents: 30488 diff changeset	45 #endif
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	46 #include <set>
23455 73ff72d3d603 maint: Eliminate <cfloat.h> header from libinterp files Rik <rik@octave.org> parents: 23450 diff changeset	47 #include <string>
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	48
30488 abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	49 // Needed to instantiate Array objects with custom allocator.
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	50 #include "Array.cc"
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	51 #include "f77-fcn.h"
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	52 #include "lo-ieee.h"
8377 25bc2d31e1bf improve OCTAVE_LOCAL_BUFFER Jaroslav Hajek <highegg@gmail.com> parents: 7901 diff changeset	53 #include "oct-locbuf.h"
23455 73ff72d3d603 maint: Eliminate <cfloat.h> header from libinterp files Rik <rik@octave.org> parents: 23450 diff changeset	54 #include "quit.h"
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	55
15149 62a35ae7d6a2 use forward decls for mxArray in ov.h and ov-base.h John W. Eaton <jwe@octave.org> parents: 15096 diff changeset	56 #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	57 #include "error.h"
23553 14723784b9f2 don't use singleton for call_stack John W. Eaton <jwe@octave.org> parents: 23499 diff changeset	58 #include "interpreter-private.h"
22094 9203833cab7d move new interpreter class to separate file John W. Eaton <jwe@octave.org> parents: 22091 diff changeset	59 #include "interpreter.h"
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	60 // 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	61 #include "mxarray.h"
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	62 #include "mexproto.h"
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	63 #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	64 #include "ovl.h"
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	65 #include "ov.h"
26769 2f847e3e8d6b split classdef into multiple smaller source files John W. Eaton <jwe@octave.org> parents: 26661 diff changeset	66 #include "ov-classdef.h"
6068 c9f0839c583f [project @ 2006-10-20 16:54:30 by jwe] jwe parents: 6065 diff changeset	67 #include "ov-mex-fcn.h"
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	68 #include "ov-usr-fcn.h"
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	69 #include "pager.h"
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	70 #include "parse.h"
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	71 #include "unwind-prot.h"
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	72 #include "utils.h"
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	73 #include "variables.h"
6595 55586d763de1 [project @ 2007-04-27 15:31:10 by dbateman] dbateman parents: 6493 diff changeset	74 #include "graphics.h"
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	75
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	76 // These must be declared extern "C" but may be omitted from the set of
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	77 // symbols declared in mexproto.h, so we declare them here as well.
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	78
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	79 extern "C"
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	80 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	81 extern OCTINTERP_API const mxArray *
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	82 mexGet_interleaved (double handle, const char *property);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	83
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	84 extern OCTINTERP_API mxArray *
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	85 mxCreateCellArray (mwSize ndims, const mwSize *dims);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	86
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	87 extern OCTINTERP_API mxArray *
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	88 mxCreateCellMatrix (mwSize m, mwSize n);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	89
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	90 extern OCTINTERP_API mxArray *
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	91 mxCreateCharArray (mwSize ndims, const mwSize *dims);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	92
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	93 extern OCTINTERP_API mxArray *
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	94 mxCreateCharMatrixFromStrings (mwSize m, const char **str);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	95
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	96 extern OCTINTERP_API mxArray *
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	97 mxCreateDoubleMatrix (mwSize nr, mwSize nc, mxComplexity flag);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	98
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	99 extern OCTINTERP_API mxArray *
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	100 mxCreateDoubleScalar (double val);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	101
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	102 extern OCTINTERP_API mxArray *
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	103 mxCreateLogicalArray (mwSize ndims, const mwSize *dims);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	104
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	105 extern OCTINTERP_API mxArray *
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	106 mxCreateLogicalMatrix (mwSize m, mwSize n);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	107
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	108 extern OCTINTERP_API mxArray *
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	109 mxCreateLogicalScalar (mxLogical val);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	110
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	111 extern OCTINTERP_API mxArray *
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	112 mxCreateNumericArray (mwSize ndims, const mwSize *dims, mxClassID class_id,
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	113 mxComplexity flag);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	114
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	115 extern OCTINTERP_API mxArray *
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	116 mxCreateNumericMatrix (mwSize m, mwSize n, mxClassID class_id,
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	117 mxComplexity flag);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	118
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	119 extern OCTINTERP_API mxArray *
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	120 mxCreateUninitNumericArray (mwSize ndims, const mwSize *dims,
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	121 mxClassID class_id, mxComplexity flag);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	122
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	123 extern OCTINTERP_API mxArray *
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	124 mxCreateUninitNumericMatrix (mwSize m, mwSize n, mxClassID class_id,
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	125 mxComplexity flag);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	126
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	127 extern OCTINTERP_API mxArray *
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	128 mxCreateSparse (mwSize m, mwSize n, mwSize nzmax, mxComplexity flag);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	129
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	130 extern OCTINTERP_API mxArray *
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	131 mxCreateSparseLogicalMatrix (mwSize m, mwSize n, mwSize nzmax);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	132
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	133 extern OCTINTERP_API mxArray *
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	134 mxCreateString (const char *str);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	135
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	136 extern OCTINTERP_API mxArray *
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	137 mxCreateStructArray (mwSize ndims, const mwSize *dims, int num_keys,
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	138 const char **keys);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	139
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	140 extern OCTINTERP_API mxArray *
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	141 mxCreateStructMatrix (mwSize rows, mwSize cols, int num_keys,
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	142 const char **keys);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	143
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	144 extern OCTINTERP_API mxArray *
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	145 mxCreateCellArray_interleaved (mwSize ndims, const mwSize *dims);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	146
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	147 extern OCTINTERP_API mxArray *
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	148 mxCreateCellMatrix_interleaved (mwSize m, mwSize n);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	149
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	150 extern OCTINTERP_API mxArray *
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	151 mxCreateCharArray_interleaved (mwSize ndims, const mwSize *dims);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	152
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	153 extern OCTINTERP_API mxArray *
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	154 mxCreateCharMatrixFromStrings_interleaved (mwSize m, const char **str);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	155
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	156 extern OCTINTERP_API mxArray *
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	157 mxCreateDoubleMatrix_interleaved (mwSize nr, mwSize nc, mxComplexity flag);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	158
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	159 extern OCTINTERP_API mxArray *
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	160 mxCreateDoubleScalar_interleaved (double val);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	161
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	162 extern OCTINTERP_API mxArray *
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	163 mxCreateLogicalArray_interleaved (mwSize ndims, const mwSize *dims);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	164
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	165 extern OCTINTERP_API mxArray *
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	166 mxCreateLogicalMatrix_interleaved (mwSize m, mwSize n);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	167
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	168 extern OCTINTERP_API mxArray *
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	169 mxCreateLogicalScalar_interleaved (mxLogical val);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	170
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	171 extern OCTINTERP_API mxArray *
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	172 mxCreateNumericArray_interleaved (mwSize ndims, const mwSize *dims,
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	173 mxClassID class_id, mxComplexity flag);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	174
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	175 extern OCTINTERP_API mxArray *
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	176 mxCreateNumericMatrix_interleaved (mwSize m, mwSize n, mxClassID class_id,
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	177 mxComplexity flag);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	178
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	179 extern OCTINTERP_API mxArray *
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	180 mxCreateUninitNumericArray_interleaved (mwSize ndims, const mwSize *dims,
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	181 mxClassID class_id,
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	182 mxComplexity flag);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	183
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	184 extern OCTINTERP_API mxArray *
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	185 mxCreateUninitNumericMatrix_interleaved (mwSize m, mwSize n,
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	186 mxClassID class_id,
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	187 mxComplexity flag);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	188
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	189 extern OCTINTERP_API mxArray *
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	190 mxCreateSparse_interleaved (mwSize m, mwSize n, mwSize nzmax,
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	191 mxComplexity flag);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	192
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	193 extern OCTINTERP_API mxArray *
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	194 mxCreateSparseLogicalMatrix_interleaved (mwSize m, mwSize n, mwSize nzmax);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	195
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	196 extern OCTINTERP_API mxArray *
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	197 mxCreateString_interleaved (const char *str);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	198
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	199 extern OCTINTERP_API mxArray *
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	200 mxCreateStructArray_interleaved (mwSize ndims, const mwSize *dims,
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	201 int num_keys, const char **keys);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	202
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	203 extern OCTINTERP_API mxArray *
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	204 mxCreateStructMatrix_interleaved (mwSize rows, mwSize cols, int num_keys,
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	205 const char **keys);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	206
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	207 extern OCTINTERP_API int mxMakeArrayReal (mxArray *ptr);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	208 extern OCTINTERP_API int mxMakeArrayComplex (mxArray *ptr);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	209
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	210 extern OCTINTERP_API mxDouble * mxGetDoubles (const mxArray *p);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	211 extern OCTINTERP_API mxSingle * mxGetSingles (const mxArray *p);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	212 extern OCTINTERP_API mxInt8 * mxGetInt8s (const mxArray *p);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	213 extern OCTINTERP_API mxInt16 * mxGetInt16s (const mxArray *p);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	214 extern OCTINTERP_API mxInt32 * mxGetInt32s (const mxArray *p);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	215 extern OCTINTERP_API mxInt64 * mxGetInt64s (const mxArray *p);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	216 extern OCTINTERP_API mxUint8 * mxGetUint8s (const mxArray *p);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	217 extern OCTINTERP_API mxUint16 * mxGetUint16s (const mxArray *p);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	218 extern OCTINTERP_API mxUint32 * mxGetUint32s (const mxArray *p);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	219 extern OCTINTERP_API mxUint64 * mxGetUint64s (const mxArray *p);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	220
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	221 extern OCTINTERP_API mxComplexDouble * mxGetComplexDoubles (const mxArray *p);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	222 extern OCTINTERP_API mxComplexSingle * mxGetComplexSingles (const mxArray *p);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	223 #if 0
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	224 /* We don't have these yet. */
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	225 extern OCTINTERP_API mxComplexInt8 * mxGetComplexInt8s (const mxArray *p);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	226 extern OCTINTERP_API mxComplexInt16 * mxGetComplexInt16s (const mxArray *p);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	227 extern OCTINTERP_API mxComplexInt32 * mxGetComplexInt32s (const mxArray *p);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	228 extern OCTINTERP_API mxComplexInt64 * mxGetComplexInt64s (const mxArray *p);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	229 extern OCTINTERP_API mxComplexUint8 * mxGetComplexUint8s (const mxArray *p);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	230 extern OCTINTERP_API mxComplexUint16 * mxGetComplexUint16s (const mxArray *p);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	231 extern OCTINTERP_API mxComplexUint32 * mxGetComplexUint32s (const mxArray *p);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	232 extern OCTINTERP_API mxComplexUint64 * mxGetComplexUint64s (const mxArray *p);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	233 #endif
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	234
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	235 extern OCTINTERP_API double * mxGetPi (const mxArray *ptr);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	236 extern OCTINTERP_API void * mxGetImagData (const mxArray *ptr);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	237
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	238 extern OCTINTERP_API int mxSetDoubles (mxArray p, mxDouble d);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	239 extern OCTINTERP_API int mxSetSingles (mxArray p, mxSingle d);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	240 extern OCTINTERP_API int mxSetInt8s (mxArray p, mxInt8 d);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	241 extern OCTINTERP_API int mxSetInt16s (mxArray p, mxInt16 d);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	242 extern OCTINTERP_API int mxSetInt32s (mxArray p, mxInt32 d);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	243 extern OCTINTERP_API int mxSetInt64s (mxArray p, mxInt64 d);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	244 extern OCTINTERP_API int mxSetUint8s (mxArray p, mxUint8 d);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	245 extern OCTINTERP_API int mxSetUint16s (mxArray p, mxUint16 d);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	246 extern OCTINTERP_API int mxSetUint32s (mxArray p, mxUint32 d);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	247 extern OCTINTERP_API int mxSetUint64s (mxArray p, mxUint64 d);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	248
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	249 extern OCTINTERP_API int mxSetComplexDoubles (mxArray p, mxComplexDouble d);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	250 extern OCTINTERP_API int mxSetComplexSingles (mxArray p, mxComplexSingle d);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	251 #if 0
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	252 /* We don't have these yet. */
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	253 extern OCTINTERP_API int mxSetComplexInt8s (mxArray p, mxComplexInt8 d);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	254 extern OCTINTERP_API int mxSetComplexInt16s (mxArray p, mxComplexInt16 d);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	255 extern OCTINTERP_API int mxSetComplexInt32s (mxArray p, mxComplexInt32 d);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	256 extern OCTINTERP_API int mxSetComplexInt64s (mxArray p, mxComplexInt64 d);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	257 extern OCTINTERP_API int mxSetComplexUint8s (mxArray p, mxComplexUint8 d);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	258 extern OCTINTERP_API int mxSetComplexUint16s (mxArray p, mxComplexUint16 d);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	259 extern OCTINTERP_API int mxSetComplexUint32s (mxArray p, mxComplexUint32 d);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	260 extern OCTINTERP_API int mxSetComplexUint64s (mxArray p, mxComplexUint64 d);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	261 #endif
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	262
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	263 extern OCTINTERP_API void mxSetPi (mxArray ptr, double pi);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	264 extern OCTINTERP_API void mxSetImagData (mxArray ptr, void pi);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	265 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	266
30428 2ac26917bdec mex.cc: allow for tracing malloc/realloc/free calls John W. Eaton <jwe@octave.org> parents: 30390 diff changeset	267 static void *
2ac26917bdec mex.cc: allow for tracing malloc/realloc/free calls John W. Eaton <jwe@octave.org> parents: 30390 diff changeset	268 xmalloc (size_t n)
2ac26917bdec mex.cc: allow for tracing malloc/realloc/free calls John W. Eaton <jwe@octave.org> parents: 30390 diff changeset	269 {
2ac26917bdec mex.cc: allow for tracing malloc/realloc/free calls John W. Eaton <jwe@octave.org> parents: 30390 diff changeset	270 void *ptr = std::malloc (n);
2ac26917bdec mex.cc: allow for tracing malloc/realloc/free calls John W. Eaton <jwe@octave.org> parents: 30390 diff changeset	271
30488 abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	272 #if defined (DEBUG)
30428 2ac26917bdec mex.cc: allow for tracing malloc/realloc/free calls John W. Eaton <jwe@octave.org> parents: 30390 diff changeset	273 std::cerr << "xmalloc (" << n << ") = " << ptr << std::endl;
2ac26917bdec mex.cc: allow for tracing malloc/realloc/free calls John W. Eaton <jwe@octave.org> parents: 30390 diff changeset	274 #endif
2ac26917bdec mex.cc: allow for tracing malloc/realloc/free calls John W. Eaton <jwe@octave.org> parents: 30390 diff changeset	275
2ac26917bdec mex.cc: allow for tracing malloc/realloc/free calls John W. Eaton <jwe@octave.org> parents: 30390 diff changeset	276 return ptr;
2ac26917bdec mex.cc: allow for tracing malloc/realloc/free calls John W. Eaton <jwe@octave.org> parents: 30390 diff changeset	277 }
2ac26917bdec mex.cc: allow for tracing malloc/realloc/free calls John W. Eaton <jwe@octave.org> parents: 30390 diff changeset	278
2ac26917bdec mex.cc: allow for tracing malloc/realloc/free calls John W. Eaton <jwe@octave.org> parents: 30390 diff changeset	279 static void *
2ac26917bdec mex.cc: allow for tracing malloc/realloc/free calls John W. Eaton <jwe@octave.org> parents: 30390 diff changeset	280 xrealloc (void *ptr, size_t n)
2ac26917bdec mex.cc: allow for tracing malloc/realloc/free calls John W. Eaton <jwe@octave.org> parents: 30390 diff changeset	281 {
2ac26917bdec mex.cc: allow for tracing malloc/realloc/free calls John W. Eaton <jwe@octave.org> parents: 30390 diff changeset	282 void *newptr = std::realloc (ptr, n);
2ac26917bdec mex.cc: allow for tracing malloc/realloc/free calls John W. Eaton <jwe@octave.org> parents: 30390 diff changeset	283
30488 abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	284 #if defined (DEBUG)
30428 2ac26917bdec mex.cc: allow for tracing malloc/realloc/free calls John W. Eaton <jwe@octave.org> parents: 30390 diff changeset	285 std::cerr << "xrealloc (" << ptr << ", " << n << ") = " << newptr
2ac26917bdec mex.cc: allow for tracing malloc/realloc/free calls John W. Eaton <jwe@octave.org> parents: 30390 diff changeset	286 << std::endl;
2ac26917bdec mex.cc: allow for tracing malloc/realloc/free calls John W. Eaton <jwe@octave.org> parents: 30390 diff changeset	287 #endif
2ac26917bdec mex.cc: allow for tracing malloc/realloc/free calls John W. Eaton <jwe@octave.org> parents: 30390 diff changeset	288
2ac26917bdec mex.cc: allow for tracing malloc/realloc/free calls John W. Eaton <jwe@octave.org> parents: 30390 diff changeset	289 return newptr;
2ac26917bdec mex.cc: allow for tracing malloc/realloc/free calls John W. Eaton <jwe@octave.org> parents: 30390 diff changeset	290 }
2ac26917bdec mex.cc: allow for tracing malloc/realloc/free calls John W. Eaton <jwe@octave.org> parents: 30390 diff changeset	291
5905 e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	292 static void
e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	293 xfree (void *ptr)
e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	294 {
30488 abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	295 #if defined (DEBUG)
30428 2ac26917bdec mex.cc: allow for tracing malloc/realloc/free calls John W. Eaton <jwe@octave.org> parents: 30390 diff changeset	296 std::cerr << "xfree (" << ptr << ")" << std::endl;
2ac26917bdec mex.cc: allow for tracing malloc/realloc/free calls John W. Eaton <jwe@octave.org> parents: 30390 diff changeset	297 #endif
2ac26917bdec mex.cc: allow for tracing malloc/realloc/free calls John W. Eaton <jwe@octave.org> parents: 30390 diff changeset	298
2ac26917bdec mex.cc: allow for tracing malloc/realloc/free calls John W. Eaton <jwe@octave.org> parents: 30390 diff changeset	299 std::free (ptr);
5905 e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	300 }
e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	301
6806 afa9123c5faa [project @ 2007-07-30 18:36:01 by jwe] jwe parents: 6787 diff changeset	302 static mwSize
afa9123c5faa [project @ 2007-07-30 18:36:01 by jwe] jwe parents: 6787 diff changeset	303 max_str_len (mwSize m, const char **str)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	304 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	305 int max_len = 0;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	306
6806 afa9123c5faa [project @ 2007-07-30 18:36:01 by jwe] jwe parents: 6787 diff changeset	307 for (mwSize i = 0; i < m; i++)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	308 {
6806 afa9123c5faa [project @ 2007-07-30 18:36:01 by jwe] jwe parents: 6787 diff changeset	309 mwSize tmp = strlen (str[i]);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	310
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	311 if (tmp > max_len)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	312 max_len = tmp;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	313 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	314
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	315 return max_len;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	316 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	317
30488 abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	318 // FIXME: Is there a better/standard way to do this job?
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	319
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	320 template <typename T>
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	321 class fp_type_traits
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	322 {
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	323 public:
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	324 static const bool is_complex = false;
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	325 };
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	326
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	327 template <>
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	328 class fp_type_traits<Complex>
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	329 {
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	330 public:
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	331 static const bool is_complex = true;
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	332 };
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	333
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	334 template <>
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	335 class fp_type_traits <FloatComplex>
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	336 {
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	337 public:
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	338 static const bool is_complex = true;
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	339 };
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	340
30501 79a7f3e3cf54 Use consistent name for OCTAVE_HAVE_STD_PMR_POLYMORPHIC_ALLOCATOR (bug #61472). Markus Mützel <markus.muetzel@gmx.de> parents: 30494 diff changeset	341 #if defined (OCTAVE_HAVE_STD_PMR_POLYMORPHIC_ALLOCATOR)
30488 abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	342
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	343 class mx_memory_resource : public std::pmr::memory_resource
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	344 {
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	345 private:
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	346
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	347 void * do_allocate (std::size_t bytes, size_t /alignment/)
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	348 {
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	349 void *ptr = xmalloc (bytes);
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	350
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	351 if (! ptr)
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	352 throw std::bad_alloc ();
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	353
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	354 return ptr;
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	355 }
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	356
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	357 void do_deallocate (void* ptr, std::size_t /bytes/,
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	358 std::size_t /alignment/)
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	359 {
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	360 xfree (ptr);
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	361 }
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	362
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	363 bool do_is_equal (const std::pmr::memory_resource& other) const noexcept
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	364 {
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	365 return this == dynamic_cast<const mx_memory_resource *> (&other);
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	366 }
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	367 };
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	368
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	369 // FIXME: Is it OK for the memory resource object to be defined this
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	370 // way?
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	371 static mx_memory_resource the_mx_memory_resource;
30494 ba5370c670d5 make use of <memory_resource> conditional on HAVE_STD_PMR_POLYMORPHIC_ALLOCATOR John W. Eaton <jwe@octave.org> parents: 30488 diff changeset	372
30488 abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	373 #endif
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	374
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
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	377 mxArray_base::mxArray_base (bool interleaved)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	378 : m_interleaved (interleaved)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	379 { }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	380
7357 3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	381 static mwIndex
3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	382 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	383 mwSize nsubs, const mwIndex *subs)
7357 3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	384 {
3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	385 mwIndex retval = 0;
3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	386
3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	387 switch (nsubs)
3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	388 {
3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	389 case 0:
3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	390 break;
3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	391
3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	392 case 1:
3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	393 retval = subs[0];
3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	394 break;
3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	395
3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	396 default:
3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	397 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	398 // 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	399
23450 855122b993da maint: Wrap tertiary operator in parentheses "(COND ? x : y)". Rik <rik@octave.org> parents: 23446 diff changeset	400 mwSize n = (nsubs <= ndims ? nsubs : ndims);
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	401
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	402 retval = subs[--n];
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	403
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	404 while (--n >= 0)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	405 retval = dims[n] * retval + subs[n];
7357 3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	406 }
3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	407 break;
3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	408 }
3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	409
3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	410 return retval;
3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	411 }
3a1e5a965815 [project @ 2008-01-10 19:28:38 by jwe] jwe parents: 7336 diff changeset	412
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	413 // 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	414 // 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	415 // 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	416 // 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	417 // 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	418 // 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	419 // 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	420 // 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	421 // 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	422 // happen once per call to a MEX file.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	423
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	424 static inline void * maybe_mark_foreign (void *ptr);
7179 32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	425
30227 b00ff462e0f2 improve efficiency of mxArray -> octave_value conversion John W. Eaton <jwe@octave.org> parents: 30226 diff changeset	426 static inline void maybe_disown_ptr (void *ptr);
b00ff462e0f2 improve efficiency of mxArray -> octave_value conversion John W. Eaton <jwe@octave.org> parents: 30226 diff changeset	427
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	428 #define VOID_MUTATION_METHOD(FCN_NAME, ARG_LIST) \
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	429 void FCN_NAME ARG_LIST { request_mutation (); }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	430
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	431 #define CONST_VOID_MUTATION_METHOD(FCN_NAME, ARG_LIST) \
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	432 void FCN_NAME ARG_LIST const { request_mutation (); }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	433
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	434 #define MUTATION_METHOD(RET_TYPE, FCN_NAME, ARG_LIST, RET_VAL) \
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	435 RET_TYPE FCN_NAME ARG_LIST { request_mutation (); return RET_VAL; }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	436
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	437 #define CONST_MUTATION_METHOD(RET_TYPE, FCN_NAME, ARG_LIST, RET_VAL) \
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	438 RET_TYPE FCN_NAME ARG_LIST const { request_mutation (); return RET_VAL; }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	439
29869 5411391a4cc0 allow typed mx get data functions to work without mutation in more cases John W. Eaton <jwe@octave.org> parents: 29655 diff changeset	440 #define GET_DATA_METHOD(RT, FCN_NAME, ID, COMPLEXITY) \
5411391a4cc0 allow typed mx get data functions to work without mutation in more cases John W. Eaton <jwe@octave.org> parents: 29655 diff changeset	441 RT * FCN_NAME (void) const { return get_data<RT> (ID, COMPLEXITY); }
5411391a4cc0 allow typed mx get data functions to work without mutation in more cases John W. Eaton <jwe@octave.org> parents: 29655 diff changeset	442
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	443 class mxArray_octave_value : public mxArray_base
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	444 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	445 public:
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	446
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	447 mxArray_octave_value (bool interleaved, const octave_value& ov)
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	448 : mxArray_base (interleaved), m_val (ov), m_mutate_flag (false),
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	449 m_id (mxUNKNOWN_CLASS), m_class_name (nullptr), m_ndims (-1),
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	450 m_dims (nullptr)
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	451 { }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	452
22869 f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	453 // 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	454 // do have a copy constructor.
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	455
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	456 mxArray_octave_value& operator = (const mxArray_octave_value&) = delete;
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	457
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	458 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	459
cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	460 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	461 {
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	462 mxArray *retval = m_val.as_mxArray (m_interleaved);
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	463
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	464 // 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	465 // 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	466
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	467 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	468 {
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	469 // 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	470 // 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	471
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	472 // 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	473 // 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	474
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	475 if (m_class_name)
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	476 {
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	477 retval->set_class_name (m_class_name);
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	478
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	479 m_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	480 }
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	481
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	482 if (m_dims)
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	483 {
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	484 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	485
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	486 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	487
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	488 retval->set_dimensions (m_dims, m_ndims);
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	489
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	490 m_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	491 }
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	492 }
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	493
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	494 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	495 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	496
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	497 ~mxArray_octave_value (void)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	498 {
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	499 mxFree (m_class_name);
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	500 mxFree (m_dims);
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 bool is_octave_value (void) const { return true; }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	504
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	505 int iscell (void) const { return m_val.iscell (); }
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	506
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	507 int is_char (void) const { return m_val.is_string (); }
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	508
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	509 int is_complex (void) const { return m_val.iscomplex (); }
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	510
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	511 int is_double (void) const { return m_val.is_double_type (); }
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	512
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	513 int is_function_handle (void) const { return m_val.is_function_handle (); }
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	514
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	515 int is_int16 (void) const { return m_val.is_int16_type (); }
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	516
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	517 int is_int32 (void) const { return m_val.is_int32_type (); }
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	518
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	519 int is_int64 (void) const { return m_val.is_int64_type (); }
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	520
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	521 int is_int8 (void) const { return m_val.is_int8_type (); }
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	522
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	523 int is_logical (void) const { return m_val.islogical (); }
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	524
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	525 int is_numeric (void) const { return m_val.isnumeric (); }
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	526
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	527 int is_single (void) const { return m_val.is_single_type (); }
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	528
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	529 int is_sparse (void) const { return m_val.issparse (); }
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	530
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	531 int is_struct (void) const { return m_val.isstruct (); }
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	532
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	533 int is_uint16 (void) const { return m_val.is_uint16_type (); }
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	534
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	535 int is_uint32 (void) const { return m_val.is_uint32_type (); }
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	536
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	537 int is_uint64 (void) const { return m_val.is_uint64_type (); }
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	538
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	539 int is_uint8 (void) const { return m_val.is_uint8_type (); }
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	540
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	541 int is_range (void) const { return m_val.is_range (); }
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	542
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	543 int isreal (void) const { return m_val.isreal (); }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	544
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	545 int is_logical_scalar_true (void) const
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	546 {
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	547 return (is_logical_scalar () && m_val.is_true ());
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	548 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	549
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	550 mwSize get_m (void) const { return m_val.rows (); }
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	551
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	552 mwSize get_n (void) const
6187 2a8922007c12 [project @ 2006-11-29 01:59:59 by jwe] jwe parents: 6071 diff changeset	553 {
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	554 mwSize n = 1;
6187 2a8922007c12 [project @ 2006-11-29 01:59:59 by jwe] jwe parents: 6071 diff changeset	555
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	556 // Force m_dims and m_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	557 get_dimensions ();
6187 2a8922007c12 [project @ 2006-11-29 01:59:59 by jwe] jwe parents: 6071 diff changeset	558
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	559 for (mwIndex i = m_ndims - 1; i > 0; i--)
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	560 n *= m_dims[i];
6187 2a8922007c12 [project @ 2006-11-29 01:59:59 by jwe] jwe parents: 6071 diff changeset	561
2a8922007c12 [project @ 2006-11-29 01:59:59 by jwe] jwe parents: 6071 diff changeset	562 return n;
2a8922007c12 [project @ 2006-11-29 01:59:59 by jwe] jwe parents: 6071 diff changeset	563 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	564
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	565 mwSize * get_dimensions (void) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	566 {
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	567 if (! m_dims)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	568 {
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	569 m_ndims = m_val.ndims ();
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	570
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	571 m_dims = static_cast<mwSize *> (mxArray::malloc (m_ndims
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	572 * sizeof (mwSize)));
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	573
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	574 dim_vector dv = m_val.dims ();
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	575
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	576 for (mwIndex i = 0; i < m_ndims; i++)
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	577 m_dims[i] = dv(i);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	578 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	579
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	580 return m_dims;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	581 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	582
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	583 mwSize get_number_of_dimensions (void) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	584 {
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	585 // Force m_dims and m_ndims to be cached.
6332 debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	586 get_dimensions ();
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	587
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	588 return m_ndims;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	589 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	590
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	591 VOID_MUTATION_METHOD (set_m, (mwSize))
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	592 VOID_MUTATION_METHOD (set_n, (mwSize))
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	593
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	594 MUTATION_METHOD (int, set_dimensions, (mwSize *, mwSize), 0)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	595
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	596 mwSize get_number_of_elements (void) const { return m_val.numel (); }
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	597
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	598 int isempty (void) const { return m_val.isempty (); }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	599
22462 6cb7813e5b2f Add new mxIsScalar function for MEX API. Rik <rik@octave.org> parents: 22454 diff changeset	600 bool is_scalar (void) const
6cb7813e5b2f Add new mxIsScalar function for MEX API. Rik <rik@octave.org> parents: 22454 diff changeset	601 {
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	602 // Force m_dims and m_ndims to be cached.
22462 6cb7813e5b2f Add new mxIsScalar function for MEX API. Rik <rik@octave.org> parents: 22454 diff changeset	603 get_dimensions ();
6cb7813e5b2f Add new mxIsScalar function for MEX API. Rik <rik@octave.org> parents: 22454 diff changeset	604
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	605 return m_ndims == 2 && m_dims[0] == 1 && m_dims[1] == 1;
22599 51b395d24782 maint: strip tabs and trailing whitespace from C++ sources. John W. Eaton <jwe@octave.org> parents: 22480 diff changeset	606 }
22462 6cb7813e5b2f Add new mxIsScalar function for MEX API. Rik <rik@octave.org> parents: 22454 diff changeset	607
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	608 mxClassID get_class_id (void) const
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	609 {
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	610 m_id = mxUNKNOWN_CLASS;
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	611
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	612 std::string cn = m_val.class_name ();
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	613
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	614 if (cn == "double")
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	615 m_id = mxDOUBLE_CLASS;
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	616 else if (cn == "single")
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	617 m_id = mxSINGLE_CLASS;
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	618 else if (cn == "char")
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	619 m_id = mxCHAR_CLASS;
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	620 else if (cn == "logical")
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	621 m_id = mxLOGICAL_CLASS;
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	622 else if (cn == "cell")
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	623 m_id = mxCELL_CLASS;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	624 else if (cn == "struct")
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	625 m_id = mxSTRUCT_CLASS;
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	626 else if (cn == "function_handle")
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	627 m_id = mxFUNCTION_CLASS;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	628 else if (cn == "int8")
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	629 m_id = mxINT8_CLASS;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	630 else if (cn == "uint8")
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	631 m_id = mxUINT8_CLASS;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	632 else if (cn == "int16")
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	633 m_id = mxINT16_CLASS;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	634 else if (cn == "uint16")
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	635 m_id = mxUINT16_CLASS;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	636 else if (cn == "int32")
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	637 m_id = mxINT32_CLASS;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	638 else if (cn == "uint32")
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	639 m_id = mxUINT32_CLASS;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	640 else if (cn == "int64")
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	641 m_id = mxINT64_CLASS;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	642 else if (cn == "uint64")
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	643 m_id = mxUINT64_CLASS;
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	644
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	645 return m_id;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	646 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	647
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	648 const char * get_class_name (void) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	649 {
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	650 if (! m_class_name)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	651 {
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	652 std::string s = m_val.class_name ();
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	653 m_class_name = mxArray::strsave (s.c_str ());
5900 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
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	656 return m_class_name;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	657 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	658
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	659 // Not allowed.
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	660 VOID_MUTATION_METHOD (set_class_name, (const char *))
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	661
23893 75eff5b667b3 new mxSetProperty function for MEX API John W. Eaton <jwe@octave.org> parents: 23891 diff changeset	662 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	663 {
bd9e719f04cc new mxGetProperty function for MEX API Piotr Held <pjheld@gmail.com> parents: 23795 diff changeset	664 mxArray *retval = nullptr;
bd9e719f04cc new mxGetProperty function for MEX API Piotr Held <pjheld@gmail.com> parents: 23795 diff changeset	665
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	666 if (m_val.is_classdef_object ())
23884 bd9e719f04cc new mxGetProperty function for MEX API Piotr Held <pjheld@gmail.com> parents: 23795 diff changeset	667 {
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	668 octave_classdef *ov_cdef = m_val.classdef_object_value ();
23884 bd9e719f04cc new mxGetProperty function for MEX API Piotr Held <pjheld@gmail.com> parents: 23795 diff changeset	669
bd9e719f04cc new mxGetProperty function for MEX API Piotr Held <pjheld@gmail.com> parents: 23795 diff changeset	670 if (ov_cdef)
bd9e719f04cc new mxGetProperty function for MEX API Piotr Held <pjheld@gmail.com> parents: 23795 diff changeset	671 {
23893 75eff5b667b3 new mxSetProperty function for MEX API John W. Eaton <jwe@octave.org> parents: 23891 diff changeset	672 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	673
23898 a490e729f2f2 correctly return NULL for unknown properties in mxGetProperty (bug #51725) John W. Eaton <jwe@octave.org> parents: 23893 diff changeset	674 if (pval.is_defined())
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	675 retval = new mxArray (m_interleaved, pval);
23884 bd9e719f04cc new mxGetProperty function for MEX API Piotr Held <pjheld@gmail.com> parents: 23795 diff changeset	676 }
bd9e719f04cc new mxGetProperty function for MEX API Piotr Held <pjheld@gmail.com> parents: 23795 diff changeset	677 }
bd9e719f04cc new mxGetProperty function for MEX API Piotr Held <pjheld@gmail.com> parents: 23795 diff changeset	678
bd9e719f04cc new mxGetProperty function for MEX API Piotr Held <pjheld@gmail.com> parents: 23795 diff changeset	679 return retval;
bd9e719f04cc new mxGetProperty function for MEX API Piotr Held <pjheld@gmail.com> parents: 23795 diff changeset	680 }
bd9e719f04cc new mxGetProperty function for MEX API Piotr Held <pjheld@gmail.com> parents: 23795 diff changeset	681
23893 75eff5b667b3 new mxSetProperty function for MEX API John W. Eaton <jwe@octave.org> parents: 23891 diff changeset	682 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	683 {
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	684 if (m_val.is_classdef_object ())
23893 75eff5b667b3 new mxSetProperty function for MEX API John W. Eaton <jwe@octave.org> parents: 23891 diff changeset	685 {
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	686 octave_classdef *ov_cdef = m_val.classdef_object_value ();
23893 75eff5b667b3 new mxSetProperty function for MEX API John W. Eaton <jwe@octave.org> parents: 23891 diff changeset	687
75eff5b667b3 new mxSetProperty function for MEX API John W. Eaton <jwe@octave.org> parents: 23891 diff changeset	688 if (ov_cdef)
75eff5b667b3 new mxSetProperty function for MEX API John W. Eaton <jwe@octave.org> parents: 23891 diff changeset	689 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	690 }
75eff5b667b3 new mxSetProperty function for MEX API John W. Eaton <jwe@octave.org> parents: 23891 diff changeset	691 else
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	692 err_invalid_type ("set_property");
23893 75eff5b667b3 new mxSetProperty function for MEX API John W. Eaton <jwe@octave.org> parents: 23891 diff changeset	693 }
75eff5b667b3 new mxSetProperty function for MEX API John W. Eaton <jwe@octave.org> parents: 23891 diff changeset	694
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	695 CONST_MUTATION_METHOD (mxArray *, get_cell, (mwIndex), nullptr)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	696
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	697 // Not allowed.
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	698 VOID_MUTATION_METHOD (set_cell, (mwIndex, mxArray *))
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	699
22480 9263b2889003 Change mxGetScalar to return the first non-zero element of sparse array. Rik <rik@octave.org> parents: 22471 diff changeset	700 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	701 {
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	702 if (m_val.issparse ())
22480 9263b2889003 Change mxGetScalar to return the first non-zero element of sparse array. Rik <rik@octave.org> parents: 22471 diff changeset	703 {
22599 51b395d24782 maint: strip tabs and trailing whitespace from C++ sources. John W. Eaton <jwe@octave.org> parents: 22480 diff changeset	704 // For sparse arrays, return the first non-zero value.
30232 a2936935c7c8 attempt to limit possible const_cast damage John W. Eaton <jwe@octave.org> parents: 30227 diff changeset	705 const void *m_data = m_val.mex_get_data ();
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	706 if (m_data == nullptr)
22480 9263b2889003 Change mxGetScalar to return the first non-zero element of sparse array. Rik <rik@octave.org> parents: 22471 diff changeset	707 return 0.0;
9263b2889003 Change mxGetScalar to return the first non-zero element of sparse array. Rik <rik@octave.org> parents: 22471 diff changeset	708
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	709 if (m_val.islogical ())
30232 a2936935c7c8 attempt to limit possible const_cast damage John W. Eaton <jwe@octave.org> parents: 30227 diff changeset	710 return static_cast<const bool > (m_data);
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	711 else if (m_val.isreal ())
30232 a2936935c7c8 attempt to limit possible const_cast damage John W. Eaton <jwe@octave.org> parents: 30227 diff changeset	712 return static_cast<const double > (m_data);
22480 9263b2889003 Change mxGetScalar to return the first non-zero element of sparse array. Rik <rik@octave.org> parents: 22471 diff changeset	713 else // Complex type, only return real part
30232 a2936935c7c8 attempt to limit possible const_cast damage John W. Eaton <jwe@octave.org> parents: 30227 diff changeset	714 return static_cast<const double > (m_data);
22480 9263b2889003 Change mxGetScalar to return the first non-zero element of sparse array. Rik <rik@octave.org> parents: 22471 diff changeset	715 }
9263b2889003 Change mxGetScalar to return the first non-zero element of sparse array. Rik <rik@octave.org> parents: 22471 diff changeset	716 else
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	717 return m_val.scalar_value (true);
22480 9263b2889003 Change mxGetScalar to return the first non-zero element of sparse array. Rik <rik@octave.org> parents: 22471 diff changeset	718 }
6332 debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	719
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	720 void * get_data (void) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	721 {
30232 a2936935c7c8 attempt to limit possible const_cast damage John W. Eaton <jwe@octave.org> parents: 30227 diff changeset	722 // Casting away const required for MEX interface.
a2936935c7c8 attempt to limit possible const_cast damage John W. Eaton <jwe@octave.org> parents: 30227 diff changeset	723
a2936935c7c8 attempt to limit possible const_cast damage John W. Eaton <jwe@octave.org> parents: 30227 diff changeset	724 void retval = const_cast<void > (m_val.mex_get_data ());
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	725
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	726 if (retval && (m_val.isreal () \|\| m_interleaved))
29870 79fe39e852db mxArray_octave_value::get_data: fix mutation for non-interleaved complex data John W. Eaton <jwe@octave.org> parents: 29869 diff changeset	727 {
79fe39e852db mxArray_octave_value::get_data: fix mutation for non-interleaved complex data John W. Eaton <jwe@octave.org> parents: 29869 diff changeset	728 maybe_mark_foreign (retval);
79fe39e852db mxArray_octave_value::get_data: fix mutation for non-interleaved complex data John W. Eaton <jwe@octave.org> parents: 29869 diff changeset	729 return retval;
79fe39e852db mxArray_octave_value::get_data: fix mutation for non-interleaved complex data John W. Eaton <jwe@octave.org> parents: 29869 diff changeset	730 }
79fe39e852db mxArray_octave_value::get_data: fix mutation for non-interleaved complex data John W. Eaton <jwe@octave.org> parents: 29869 diff changeset	731
79fe39e852db mxArray_octave_value::get_data: fix mutation for non-interleaved complex data John W. Eaton <jwe@octave.org> parents: 29869 diff changeset	732 request_mutation ();
79fe39e852db mxArray_octave_value::get_data: fix mutation for non-interleaved complex data John W. Eaton <jwe@octave.org> parents: 29869 diff changeset	733 return nullptr;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	734 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	735
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	736 template <typename T>
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	737 T * get_data (mxClassID class_id, mxComplexity complexity) const
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	738 {
30232 a2936935c7c8 attempt to limit possible const_cast damage John W. Eaton <jwe@octave.org> parents: 30227 diff changeset	739 // Casting away const required for MEX interface.
a2936935c7c8 attempt to limit possible const_cast damage John W. Eaton <jwe@octave.org> parents: 30227 diff changeset	740
a2936935c7c8 attempt to limit possible const_cast damage John W. Eaton <jwe@octave.org> parents: 30227 diff changeset	741 void ptr = const_cast<void > (m_val.mex_get_data (class_id, complexity));
a2936935c7c8 attempt to limit possible const_cast damage John W. Eaton <jwe@octave.org> parents: 30227 diff changeset	742
a2936935c7c8 attempt to limit possible const_cast damage John W. Eaton <jwe@octave.org> parents: 30227 diff changeset	743 T retval = static_cast<T > (ptr);
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	744
29869 5411391a4cc0 allow typed mx get data functions to work without mutation in more cases John W. Eaton <jwe@octave.org> parents: 29655 diff changeset	745 if (retval && (complexity == mxREAL \|\| m_interleaved))
5411391a4cc0 allow typed mx get data functions to work without mutation in more cases John W. Eaton <jwe@octave.org> parents: 29655 diff changeset	746 {
5411391a4cc0 allow typed mx get data functions to work without mutation in more cases John W. Eaton <jwe@octave.org> parents: 29655 diff changeset	747 maybe_mark_foreign (retval);
5411391a4cc0 allow typed mx get data functions to work without mutation in more cases John W. Eaton <jwe@octave.org> parents: 29655 diff changeset	748 return retval;
5411391a4cc0 allow typed mx get data functions to work without mutation in more cases John W. Eaton <jwe@octave.org> parents: 29655 diff changeset	749 }
5411391a4cc0 allow typed mx get data functions to work without mutation in more cases John W. Eaton <jwe@octave.org> parents: 29655 diff changeset	750
5411391a4cc0 allow typed mx get data functions to work without mutation in more cases John W. Eaton <jwe@octave.org> parents: 29655 diff changeset	751 request_mutation ();
5411391a4cc0 allow typed mx get data functions to work without mutation in more cases John W. Eaton <jwe@octave.org> parents: 29655 diff changeset	752 return nullptr;
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	753 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	754
29869 5411391a4cc0 allow typed mx get data functions to work without mutation in more cases John W. Eaton <jwe@octave.org> parents: 29655 diff changeset	755 GET_DATA_METHOD (mxDouble, get_doubles, mxDOUBLE_CLASS, mxREAL);
5411391a4cc0 allow typed mx get data functions to work without mutation in more cases John W. Eaton <jwe@octave.org> parents: 29655 diff changeset	756
5411391a4cc0 allow typed mx get data functions to work without mutation in more cases John W. Eaton <jwe@octave.org> parents: 29655 diff changeset	757 GET_DATA_METHOD (mxSingle, get_singles, mxSINGLE_CLASS, mxREAL);
5411391a4cc0 allow typed mx get data functions to work without mutation in more cases John W. Eaton <jwe@octave.org> parents: 29655 diff changeset	758
5411391a4cc0 allow typed mx get data functions to work without mutation in more cases John W. Eaton <jwe@octave.org> parents: 29655 diff changeset	759 GET_DATA_METHOD (mxInt8, get_int8s, mxINT8_CLASS, mxREAL);
5411391a4cc0 allow typed mx get data functions to work without mutation in more cases John W. Eaton <jwe@octave.org> parents: 29655 diff changeset	760
5411391a4cc0 allow typed mx get data functions to work without mutation in more cases John W. Eaton <jwe@octave.org> parents: 29655 diff changeset	761 GET_DATA_METHOD (mxInt16, get_int16s, mxINT16_CLASS, mxREAL);
5411391a4cc0 allow typed mx get data functions to work without mutation in more cases John W. Eaton <jwe@octave.org> parents: 29655 diff changeset	762
5411391a4cc0 allow typed mx get data functions to work without mutation in more cases John W. Eaton <jwe@octave.org> parents: 29655 diff changeset	763 GET_DATA_METHOD (mxInt32, get_int32s, mxINT32_CLASS, mxREAL);
5411391a4cc0 allow typed mx get data functions to work without mutation in more cases John W. Eaton <jwe@octave.org> parents: 29655 diff changeset	764
5411391a4cc0 allow typed mx get data functions to work without mutation in more cases John W. Eaton <jwe@octave.org> parents: 29655 diff changeset	765 GET_DATA_METHOD (mxInt64, get_int64s, mxINT64_CLASS, mxREAL);
5411391a4cc0 allow typed mx get data functions to work without mutation in more cases John W. Eaton <jwe@octave.org> parents: 29655 diff changeset	766
5411391a4cc0 allow typed mx get data functions to work without mutation in more cases John W. Eaton <jwe@octave.org> parents: 29655 diff changeset	767 GET_DATA_METHOD (mxUint8, get_uint8s, mxUINT8_CLASS, mxREAL);
5411391a4cc0 allow typed mx get data functions to work without mutation in more cases John W. Eaton <jwe@octave.org> parents: 29655 diff changeset	768
5411391a4cc0 allow typed mx get data functions to work without mutation in more cases John W. Eaton <jwe@octave.org> parents: 29655 diff changeset	769 GET_DATA_METHOD (mxUint16, get_uint16s, mxUINT16_CLASS, mxREAL);
5411391a4cc0 allow typed mx get data functions to work without mutation in more cases John W. Eaton <jwe@octave.org> parents: 29655 diff changeset	770
5411391a4cc0 allow typed mx get data functions to work without mutation in more cases John W. Eaton <jwe@octave.org> parents: 29655 diff changeset	771 GET_DATA_METHOD (mxUint32, get_uint32s, mxUINT32_CLASS, mxREAL);
5411391a4cc0 allow typed mx get data functions to work without mutation in more cases John W. Eaton <jwe@octave.org> parents: 29655 diff changeset	772
5411391a4cc0 allow typed mx get data functions to work without mutation in more cases John W. Eaton <jwe@octave.org> parents: 29655 diff changeset	773 GET_DATA_METHOD (mxUint64, get_uint64s, mxUINT64_CLASS, mxREAL);
5411391a4cc0 allow typed mx get data functions to work without mutation in more cases John W. Eaton <jwe@octave.org> parents: 29655 diff changeset	774
30346 91c6288781ba maint: Shorten some long lines in libinterp to <= 80 characters (bug #57599) Rik <rik@octave.org> parents: 30232 diff changeset	775 GET_DATA_METHOD (mxComplexDouble, get_complex_doubles,
91c6288781ba maint: Shorten some long lines in libinterp to <= 80 characters (bug #57599) Rik <rik@octave.org> parents: 30232 diff changeset	776 mxDOUBLE_CLASS, mxCOMPLEX);
91c6288781ba maint: Shorten some long lines in libinterp to <= 80 characters (bug #57599) Rik <rik@octave.org> parents: 30232 diff changeset	777
91c6288781ba maint: Shorten some long lines in libinterp to <= 80 characters (bug #57599) Rik <rik@octave.org> parents: 30232 diff changeset	778 GET_DATA_METHOD (mxComplexSingle, get_complex_singles,
91c6288781ba maint: Shorten some long lines in libinterp to <= 80 characters (bug #57599) Rik <rik@octave.org> parents: 30232 diff changeset	779 mxDOUBLE_CLASS, mxCOMPLEX);
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	780
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	781 #if 0
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	782 /* We don't have these yet. */
29869 5411391a4cc0 allow typed mx get data functions to work without mutation in more cases John W. Eaton <jwe@octave.org> parents: 29655 diff changeset	783 GET_DATA_METHOD (mxComplexInt8 *, get_complex_int8s, (void), nullptr);
5411391a4cc0 allow typed mx get data functions to work without mutation in more cases John W. Eaton <jwe@octave.org> parents: 29655 diff changeset	784
5411391a4cc0 allow typed mx get data functions to work without mutation in more cases John W. Eaton <jwe@octave.org> parents: 29655 diff changeset	785 GET_DATA_METHOD (mxComplexInt16 *, get_complex_int16s, (void), nullptr);
5411391a4cc0 allow typed mx get data functions to work without mutation in more cases John W. Eaton <jwe@octave.org> parents: 29655 diff changeset	786
5411391a4cc0 allow typed mx get data functions to work without mutation in more cases John W. Eaton <jwe@octave.org> parents: 29655 diff changeset	787 GET_DATA_METHOD (mxComplexInt32 *, get_complex_int32s, (void), nullptr);
5411391a4cc0 allow typed mx get data functions to work without mutation in more cases John W. Eaton <jwe@octave.org> parents: 29655 diff changeset	788
5411391a4cc0 allow typed mx get data functions to work without mutation in more cases John W. Eaton <jwe@octave.org> parents: 29655 diff changeset	789 GET_DATA_METHOD (mxComplexInt64 *, get_complex_int64s, (void), nullptr);
5411391a4cc0 allow typed mx get data functions to work without mutation in more cases John W. Eaton <jwe@octave.org> parents: 29655 diff changeset	790
5411391a4cc0 allow typed mx get data functions to work without mutation in more cases John W. Eaton <jwe@octave.org> parents: 29655 diff changeset	791 GET_DATA_METHOD (mxComplexUint8 *, get_complex_uint8s, (void), nullptr);
5411391a4cc0 allow typed mx get data functions to work without mutation in more cases John W. Eaton <jwe@octave.org> parents: 29655 diff changeset	792
5411391a4cc0 allow typed mx get data functions to work without mutation in more cases John W. Eaton <jwe@octave.org> parents: 29655 diff changeset	793 GET_DATA_METHOD (mxComplexUint16 *, get_complex_uint16s, (void), nullptr);
5411391a4cc0 allow typed mx get data functions to work without mutation in more cases John W. Eaton <jwe@octave.org> parents: 29655 diff changeset	794
5411391a4cc0 allow typed mx get data functions to work without mutation in more cases John W. Eaton <jwe@octave.org> parents: 29655 diff changeset	795 GET_DATA_METHOD (mxComplexUint32 *, get_complex_uint32s, (void), nullptr);
5411391a4cc0 allow typed mx get data functions to work without mutation in more cases John W. Eaton <jwe@octave.org> parents: 29655 diff changeset	796
5411391a4cc0 allow typed mx get data functions to work without mutation in more cases John W. Eaton <jwe@octave.org> parents: 29655 diff changeset	797 GET_DATA_METHOD (mxComplexUint64 *, get_complex_uint64s, (void), nullptr);
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	798 #endif
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	799
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	800 void * get_imag_data (void) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	801 {
23457 21baad6b35c4 maint: Use C++11 nullptr rather than 0 or NULL when possible. Rik <rik@octave.org> parents: 23455 diff changeset	802 void *retval = nullptr;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	803
23582 0cc2011d800e maint: Deprecate is_real_type and replace with isreal. Rik <rik@octave.org> parents: 23581 diff changeset	804 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	805 retval = nullptr;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	806 else
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	807 request_mutation ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	808
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	809 return retval;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	810 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	811
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	812 // Not allowed.
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	813 VOID_MUTATION_METHOD (set_data, (void *))
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	814
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	815 MUTATION_METHOD (int, set_doubles, (mxDouble *), 0)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	816 MUTATION_METHOD (int, set_singles, (mxSingle *), 0)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	817 MUTATION_METHOD (int, set_int8s, (mxInt8 *), 0)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	818 MUTATION_METHOD (int, set_int16s, (mxInt16 *), 0)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	819 MUTATION_METHOD (int, set_int32s, (mxInt32 *), 0)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	820 MUTATION_METHOD (int, set_int64s, (mxInt64 *), 0)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	821 MUTATION_METHOD (int, set_uint8s, (mxUint8 *), 0)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	822 MUTATION_METHOD (int, set_uint16s, (mxUint16 *), 0)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	823 MUTATION_METHOD (int, set_uint32s, (mxUint32 *), 0)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	824 MUTATION_METHOD (int, set_uint64s, (mxUint64 *), 0)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	825
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	826 MUTATION_METHOD (int, set_complex_doubles, (mxComplexDouble *), 0)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	827 MUTATION_METHOD (int, set_complex_singles, (mxComplexSingle *), 0)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	828 #if 0
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	829 /* We don't have these yet. */
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	830 MUTATION_METHOD (int, set_complex_int8s, (mxComplexInt8 *), 0)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	831 MUTATION_METHOD (int, set_complex_int16s, (mxComplexInt16 *), 0)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	832 MUTATION_METHOD (int, set_complex_int32s, (mxComplexInt32 *), 0)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	833 MUTATION_METHOD (int, set_complex_int64s, (mxComplexInt64 *), 0)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	834 MUTATION_METHOD (int, set_complex_uint8s, (mxComplexUint8 *), 0)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	835 MUTATION_METHOD (int, set_complex_uint16s, (mxComplexUint16 *), 0)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	836 MUTATION_METHOD (int, set_complex_uint32s, (mxComplexUint32 *), 0)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	837 MUTATION_METHOD (int, set_complex_uint64s, (mxComplexUint64 *), 0)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	838 #endif
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	839
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	840 // Not allowed.
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	841 VOID_MUTATION_METHOD (set_imag_data, (void *))
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	842
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	843 mwIndex * get_ir (void) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	844 {
30232 a2936935c7c8 attempt to limit possible const_cast damage John W. Eaton <jwe@octave.org> parents: 30227 diff changeset	845 // Casting away const required for MEX interface.
a2936935c7c8 attempt to limit possible const_cast damage John W. Eaton <jwe@octave.org> parents: 30227 diff changeset	846
a2936935c7c8 attempt to limit possible const_cast damage John W. Eaton <jwe@octave.org> parents: 30227 diff changeset	847 octave_idx_type ptr = const_cast<octave_idx_type > (m_val.mex_get_ir ());
a2936935c7c8 attempt to limit possible const_cast damage John W. Eaton <jwe@octave.org> parents: 30227 diff changeset	848 return static_cast<mwIndex *> (maybe_mark_foreign (ptr));
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	849 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	850
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	851 mwIndex * get_jc (void) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	852 {
30232 a2936935c7c8 attempt to limit possible const_cast damage John W. Eaton <jwe@octave.org> parents: 30227 diff changeset	853 // Casting away const required for MEX interface.
a2936935c7c8 attempt to limit possible const_cast damage John W. Eaton <jwe@octave.org> parents: 30227 diff changeset	854
a2936935c7c8 attempt to limit possible const_cast damage John W. Eaton <jwe@octave.org> parents: 30227 diff changeset	855 octave_idx_type ptr = const_cast<octave_idx_type > (m_val.mex_get_jc ());
a2936935c7c8 attempt to limit possible const_cast damage John W. Eaton <jwe@octave.org> parents: 30227 diff changeset	856 return static_cast<mwIndex *> (maybe_mark_foreign (ptr));
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	857 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	858
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	859 mwSize get_nzmax (void) const { return m_val.nzmax (); }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	860
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	861 // Not allowed.
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	862 VOID_MUTATION_METHOD (set_ir, (mwIndex *))
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	863
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	864 // Not allowed.
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	865 VOID_MUTATION_METHOD (set_jc, (mwIndex *))
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	866
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	867 // Not allowed.
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	868 VOID_MUTATION_METHOD (set_nzmax, (mwSize))
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	869
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	870 // Not allowed.
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	871 MUTATION_METHOD (int, add_field, (const char *), 0)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	872
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	873 // Not allowed.
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	874 VOID_MUTATION_METHOD (remove_field, (int))
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	875
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	876 CONST_MUTATION_METHOD (mxArray *, get_field_by_number, (mwIndex, int), nullptr)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	877
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	878 // Not allowed.
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	879 VOID_MUTATION_METHOD (set_field_by_number, (mwIndex, int, mxArray *))
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	880
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	881 int get_number_of_fields (void) const { return m_val.nfields (); }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	882
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	883 CONST_MUTATION_METHOD (const char *, get_field_name_by_number, (int), nullptr)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	884
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	885 CONST_MUTATION_METHOD (int, get_field_number, (const char *), 0)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	886
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	887 int get_string (char *buf, mwSize buflen) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	888 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	889 int retval = 1;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	890
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	891 mwSize nel = get_number_of_elements ();
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	892
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	893 if (m_val.is_string () && nel < buflen)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	894 {
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	895 charNDArray tmp = m_val.char_array_value ();
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	896
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	897 const char *p = tmp.data ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	898
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	899 for (mwIndex i = 0; i < nel; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	900 buf[i] = p[i];
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	901
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	902 buf[nel] = 0;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	903
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	904 retval = 0;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	905 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	906
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	907 return retval;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	908 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	909
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	910 char * array_to_string (void) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	911 {
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	912 // 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	913
23457 21baad6b35c4 maint: Use C++11 nullptr rather than 0 or NULL when possible. Rik <rik@octave.org> parents: 23455 diff changeset	914 char *buf = nullptr;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	915
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	916 if (m_val.is_string ())
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	917 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	918 mwSize nel = get_number_of_elements ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	919
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	920 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	921
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	922 if (buf)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	923 {
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	924 charNDArray tmp = m_val.char_array_value ();
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	925
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	926 const char *p = tmp.data ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	927
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	928 for (mwIndex i = 0; i < nel; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	929 buf[i] = p[i];
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	930
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	931 buf[nel] = '\0';
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	932 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	933 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	934
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	935 return buf;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	936 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	937
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	938 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	939 {
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	940 // Force m_ndims, n_dims to be cached.
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	941 get_dimensions ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	942
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	943 return calc_single_subscript_internal (m_ndims, m_dims, nsubs, subs);
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
29654 d13d090cb03a use std::size_t and std::ptrdiff_t in C++ code (bug #60471) John W. Eaton <jwe@octave.org> parents: 29358 diff changeset	946 std::size_t get_element_size (void) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	947 {
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	948 // Force m_id to be cached.
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	949 get_class_id ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	950
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	951 switch (m_id)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	952 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	953 case mxCELL_CLASS: return sizeof (mxArray *);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	954 case mxSTRUCT_CLASS: return sizeof (mxArray *);
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	955 case mxLOGICAL_CLASS: return sizeof (mxLogical);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	956 case mxCHAR_CLASS: return sizeof (mxChar);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	957 case mxDOUBLE_CLASS: return get_numeric_element_size (sizeof (mxDouble));
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	958 case mxSINGLE_CLASS: return get_numeric_element_size (sizeof (mxSingle));
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	959 case mxINT8_CLASS: return get_numeric_element_size (sizeof (mxInt8));
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	960 case mxUINT8_CLASS: return get_numeric_element_size (sizeof (mxUint8));
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	961 case mxINT16_CLASS: return get_numeric_element_size (sizeof (mxInt16));
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	962 case mxUINT16_CLASS: return get_numeric_element_size (sizeof (mxUint16));
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	963 case mxINT32_CLASS: return get_numeric_element_size (sizeof (mxInt32));
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	964 case mxUINT32_CLASS: return get_numeric_element_size (sizeof (mxUint32));
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	965 case mxINT64_CLASS: return get_numeric_element_size (sizeof (mxInt64));
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	966 case mxUINT64_CLASS: return get_numeric_element_size (sizeof (mxUint64));
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	967 case mxFUNCTION_CLASS: return 0;
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	968 // 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	969 // What should they return, size of pointer?
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	970 default: return 0;
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	971 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	972 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	973
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	974 bool mutation_needed (void) const { return m_mutate_flag; }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	975
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	976 void request_mutation (void) const
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	977 {
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	978 if (m_mutate_flag)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	979 panic_impossible ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	980
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	981 m_mutate_flag = true;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	982 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	983
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	984 mxArray * mutate (void) const { return as_mxArray (); }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	985
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	986 octave_value as_octave_value (void) const { return m_val; }
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	987
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	988 protected:
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	989
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	990 mxArray_octave_value (const mxArray_octave_value& arg)
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	991 : mxArray_base (arg), m_val (arg.m_val), m_mutate_flag (arg.m_mutate_flag),
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	992 m_id (arg.m_id), m_class_name (mxArray::strsave (arg.m_class_name)),
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	993 m_ndims (arg.m_ndims),
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	994 m_dims (m_ndims > 0
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	995 ? static_cast<mwSize > (mxArray::malloc (m_ndims sizeof (mwSize)))
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	996 : nullptr)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	997 {
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	998 if (m_dims)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	999 {
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1000 for (mwIndex i = 0; i < m_ndims; i++)
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1001 m_dims[i] = arg.m_dims[i];
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1002 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1003 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1004
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1005 private:
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1006
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1007 octave_value m_val;
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1008
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1009 mutable bool m_mutate_flag;
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 // 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	1012 // 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	1013 // Matlab-style mxArray object.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1014
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1015 mutable mxClassID m_id;
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1016 mutable char *m_class_name;
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1017 mutable mwSize m_ndims;
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1018 mutable mwSize *m_dims;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1019 };
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 // 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	1022 // things that are common to all Matlab-style objects.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1023
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1024 class mxArray_matlab : public mxArray_base
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1025 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1026 public:
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1027
22869 f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1028 // No assignment!
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1029 // FIXME: should this be implemented?
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1030 // Note that we do have a copy constructor.
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1031
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1032 mxArray_matlab& operator = (const mxArray_matlab&);
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1033
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1034 ~mxArray_matlab (void)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1035 {
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1036 mxFree (m_class_name);
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1037 mxFree (m_dims);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1038 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1039
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1040 int iscell (void) const { return m_id == mxCELL_CLASS; }
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1041
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1042 int is_char (void) const { return m_id == mxCHAR_CLASS; }
5900 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 int is_complex (void) const { return 0; }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1045
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1046 int is_double (void) const { return m_id == mxDOUBLE_CLASS; }
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1047
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1048 int is_function_handle (void) const { return m_id == mxFUNCTION_CLASS; }
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1049
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1050 int is_int16 (void) const { return m_id == mxINT16_CLASS; }
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1051
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1052 int is_int32 (void) const { return m_id == mxINT32_CLASS; }
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1053
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1054 int is_int64 (void) const { return m_id == mxINT64_CLASS; }
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1055
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1056 int is_int8 (void) const { return m_id == mxINT8_CLASS; }
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1057
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1058 int is_logical (void) const { return m_id == mxLOGICAL_CLASS; }
5900 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 int is_numeric (void) const
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1061 {
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1062 return (m_id == mxDOUBLE_CLASS \|\| m_id == mxSINGLE_CLASS
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1063 \|\| m_id == mxINT8_CLASS \|\| m_id == mxUINT8_CLASS
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1064 \|\| m_id == mxINT16_CLASS \|\| m_id == mxUINT16_CLASS
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1065 \|\| m_id == mxINT32_CLASS \|\| m_id == mxUINT32_CLASS
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1066 \|\| m_id == mxINT64_CLASS \|\| m_id == mxUINT64_CLASS);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1067 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1068
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1069 int is_single (void) const { return m_id == mxSINGLE_CLASS; }
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 int is_sparse (void) const { return 0; }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1072
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1073 int is_struct (void) const { return m_id == mxSTRUCT_CLASS; }
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1074
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1075 int is_uint16 (void) const { return m_id == mxUINT16_CLASS; }
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1076
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1077 int is_uint32 (void) const { return m_id == mxUINT32_CLASS; }
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1078
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1079 int is_uint64 (void) const { return m_id == mxUINT64_CLASS; }
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1080
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1081 int is_uint8 (void) const { return m_id == mxUINT8_CLASS; }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1082
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1083 int is_logical_scalar_true (void) const
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1084 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1085 return (is_logical_scalar ()
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1086 && static_cast<mxLogical *> (get_data ())[0] != 0);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1087 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1088
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1089 mwSize get_m (void) const { return m_dims[0]; }
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1090
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1091 mwSize get_n (void) const
6187 2a8922007c12 [project @ 2006-11-29 01:59:59 by jwe] jwe parents: 6071 diff changeset	1092 {
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1093 mwSize n = 1;
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1094
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1095 for (mwSize i = m_ndims - 1 ; i > 0 ; i--)
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1096 n *= m_dims[i];
6187 2a8922007c12 [project @ 2006-11-29 01:59:59 by jwe] jwe parents: 6071 diff changeset	1097
2a8922007c12 [project @ 2006-11-29 01:59:59 by jwe] jwe parents: 6071 diff changeset	1098 return n;
2a8922007c12 [project @ 2006-11-29 01:59:59 by jwe] jwe parents: 6071 diff changeset	1099 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1100
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1101 mwSize * get_dimensions (void) const { return m_dims; }
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1102
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1103 mwSize get_number_of_dimensions (void) const { return m_ndims; }
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1104
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1105 void set_m (mwSize m) { m_dims[0] = m; }
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1106
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1107 void set_n (mwSize n) { m_dims[1] = n; }
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1108
30213 27791344a45c * mex.cc: Don't use _arg prefix for function argument names if possible. John W. Eaton <jwe@octave.org> parents: 30212 diff changeset	1109 int set_dimensions (mwSize *dims, mwSize ndims)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1110 {
30213 27791344a45c * mex.cc: Don't use _arg prefix for function argument names if possible. John W. Eaton <jwe@octave.org> parents: 30212 diff changeset	1111 m_ndims = ndims;
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1112
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1113 mxFree (m_dims);
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1114
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1115 if (m_ndims > 0)
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1116 {
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1117 m_dims
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1118 = static_cast<mwSize > (mxArray::malloc (m_ndims sizeof (mwSize)));
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1119
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1120 if (m_dims == nullptr)
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1121 return 1;
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1122
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1123 for (int i = 0; i < m_ndims; i++)
30213 27791344a45c * mex.cc: Don't use _arg prefix for function argument names if possible. John W. Eaton <jwe@octave.org> parents: 30212 diff changeset	1124 m_dims[i] = dims[i];
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1125
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1126 return 0;
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1127 }
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1128 else
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1129 {
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1130 m_dims = nullptr;
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1131 return 0;
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1132 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1133 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1134
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1135 mwSize get_number_of_elements (void) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1136 {
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1137 mwSize retval = m_dims[0];
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1138
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1139 for (mwIndex i = 1; i < m_ndims; i++)
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1140 retval *= m_dims[i];
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1141
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1142 return retval;
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
23577 80c42f4cca13 maint: Deprecate is_empty and replace with isempty. Rik <rik@octave.org> parents: 23576 diff changeset	1145 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	1146
22462 6cb7813e5b2f Add new mxIsScalar function for MEX API. Rik <rik@octave.org> parents: 22454 diff changeset	1147 bool is_scalar (void) const
6cb7813e5b2f Add new mxIsScalar function for MEX API. Rik <rik@octave.org> parents: 22454 diff changeset	1148 {
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1149 return m_ndims == 2 && m_dims[0] == 1 && m_dims[1] == 1;
22462 6cb7813e5b2f Add new mxIsScalar function for MEX API. Rik <rik@octave.org> parents: 22454 diff changeset	1150 }
6cb7813e5b2f Add new mxIsScalar function for MEX API. Rik <rik@octave.org> parents: 22454 diff changeset	1151
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1152 mxClassID get_class_id (void) const { return m_id; }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1153
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	1154 const char * get_class_name (void) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1155 {
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1156 switch (m_id)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1157 {
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1158 case mxDOUBLE_CLASS: return "double";
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1159 case mxSINGLE_CLASS: return "single";
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1160 case mxCHAR_CLASS: return "char";
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1161 case mxLOGICAL_CLASS: return "logical";
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1162 case mxCELL_CLASS: return "cell";
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1163 case mxSTRUCT_CLASS: return "struct";
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1164 case mxFUNCTION_CLASS: return "function_handle";
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1165 case mxINT8_CLASS: return "int8";
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1166 case mxUINT8_CLASS: return "uint8";
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1167 case mxINT16_CLASS: return "int16";
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1168 case mxUINT16_CLASS: return "uint16";
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1169 case mxINT32_CLASS: return "int32";
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1170 case mxUINT32_CLASS: return "uint32";
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1171 case mxINT64_CLASS: return "int64";
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1172 case mxUINT64_CLASS: return "uint64";
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1173 case mxUNKNOWN_CLASS: return "unknown";
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1174 // 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	1175 default: return "unknown";
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1176 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1177 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1178
30213 27791344a45c * mex.cc: Don't use _arg prefix for function argument names if possible. John W. Eaton <jwe@octave.org> parents: 30212 diff changeset	1179 void set_class_name (const char *name)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1180 {
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1181 mxFree (m_class_name);
30213 27791344a45c * mex.cc: Don't use _arg prefix for function argument names if possible. John W. Eaton <jwe@octave.org> parents: 30212 diff changeset	1182 m_class_name = static_cast<char *> (mxArray::malloc (strlen (name) + 1));
27791344a45c * mex.cc: Don't use _arg prefix for function argument names if possible. John W. Eaton <jwe@octave.org> parents: 30212 diff changeset	1183 strcpy (m_class_name, name);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1184 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1185
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	1186 mxArray * get_cell (mwIndex /idx/) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1187 {
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1188 err_invalid_type ("get_cell");
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1189 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1190
30212 c27b9ba4c9bd * mex.cc: Don't use m_ prefix for function arguments and local variables. John W. Eaton <jwe@octave.org> parents: 30129 diff changeset	1191 void set_cell (mwIndex /idx/, mxArray * /val/)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1192 {
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1193 err_invalid_type ("set_cell");
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1194 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1195
6332 debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1196 double get_scalar (void) const
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1197 {
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1198 err_invalid_type ("get_scalar");
6332 debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1199 }
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1200
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	1201 void * get_data (void) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1202 {
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1203 err_invalid_type ("get_data");
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1204 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1205
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1206 mxDouble * get_doubles (void) const
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1207 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1208 err_invalid_type ("get_doubles");
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1209 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1210
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1211 mxSingle * get_singles (void) const
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1212 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1213 err_invalid_type ("get_singles");
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1214 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1215
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1216 mxInt8 * get_int8s (void) const
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1217 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1218 err_invalid_type ("get_int8s");
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1219 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1220
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1221 mxInt16 * get_int16s (void) const
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1222 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1223 err_invalid_type ("get_int16s");
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1224 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1225
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1226 mxInt32 * get_int32s (void) const
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1227 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1228 err_invalid_type ("get_int32s");
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1229 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1230
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1231 mxInt64 * get_int64s (void) const
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1232 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1233 err_invalid_type ("get_int64s");
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1234 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1235
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1236 mxUint8 * get_uint8s (void) const
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1237 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1238 err_invalid_type ("get_uint8s");
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1239 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1240
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1241 mxUint16 * get_uint16s (void) const
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1242 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1243 err_invalid_type ("get_uint16s");
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1244 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1245
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1246 mxUint32 * get_uint32s (void) const
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1247 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1248 err_invalid_type ("get_uint32s");
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1249 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1250
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1251 mxUint64 * get_uint64s (void) const
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1252 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1253 err_invalid_type ("get_uint64s");
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1254 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1255
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1256 mxComplexDouble * get_complex_doubles (void) const
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1257 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1258 err_invalid_type ("get_complex_doubles");
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1259 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1260
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1261 mxComplexSingle * get_complex_singles (void) const
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1262 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1263 err_invalid_type ("get_complex_singles");
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1264 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1265
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1266 #if 0
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1267 /* We don't have these yet. */
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1268 mxComplexInt8 * get_complex_int8s (void) const
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1269 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1270 err_invalid_type ("get_complex_int8s");
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1271 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1272
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1273 mxComplexInt16 * get_complex_int16s (void) const
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1274 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1275 err_invalid_type ("get_complex_int16s");
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1276 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1277
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1278 mxComplexInt32 * get_complex_int32s (void) const
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1279 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1280 err_invalid_type ("get_complex_int32s");
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1281 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1282
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1283 mxComplexInt64 * get_complex_int64s (void) const
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1284 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1285 err_invalid_type ("get_complex_int64s");
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1286 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1287
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1288 mxComplexUint8 * get_complex_uint8s (void) const
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1289 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1290 err_invalid_type ("get_complex_uint8s");
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1291 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1292
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1293 mxComplexUint16 * get_complex_uint16s (void) const
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1294 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1295 err_invalid_type ("get_complex_uint16s");
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1296 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1297
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1298 mxComplexUint32 * get_complex_uint32s (void) const
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1299 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1300 err_invalid_type ("get_complex_uint32s");
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1301 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1302
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1303 mxComplexUint64 * get_complex_uint64s (void) const
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1304 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1305 err_invalid_type ("get_complex_uint64s");
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1306 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1307 #endif
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1308
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	1309 void * get_imag_data (void) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1310 {
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1311 err_invalid_type ("get_imag_data");
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1312 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1313
30212 c27b9ba4c9bd * mex.cc: Don't use m_ prefix for function arguments and local variables. John W. Eaton <jwe@octave.org> parents: 30129 diff changeset	1314 void set_data (void * /pr/)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1315 {
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1316 err_invalid_type ("set_data");
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1317 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1318
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1319 int set_doubles (mxDouble *)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1320 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1321 err_invalid_type ("set_doubles");
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1322 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1323
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1324 int set_singles (mxSingle *)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1325 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1326 err_invalid_type ("set_singles");
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1327 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1328
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1329 int set_int8s (mxInt8 *)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1330 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1331 err_invalid_type ("set_int8s");
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1332 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1333
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1334 int set_int16s (mxInt16 *)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1335 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1336 err_invalid_type ("set_int16s");
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1337 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1338
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1339 int set_int32s (mxInt32 *)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1340 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1341 err_invalid_type ("set_int32s");
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1342 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1343
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1344 int set_int64s (mxInt64 *)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1345 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1346 err_invalid_type ("set_int64s");
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1347 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1348
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1349 int set_uint8s (mxUint8 *)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1350 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1351 err_invalid_type ("set_uint8s");
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1352 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1353
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1354 int set_uint16s (mxUint16 *)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1355 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1356 err_invalid_type ("set_uint16s");
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1357 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1358
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1359 int set_uint32s (mxUint32 *)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1360 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1361 err_invalid_type ("set_uint32s");
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1362 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1363
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1364 int set_uint64s (mxUint64 *)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1365 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1366 err_invalid_type ("set_uint64s");
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
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1369 int set_complex_doubles (mxComplexDouble *)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1370 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1371 err_invalid_type ("set_complex_doubles");
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1372 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1373
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1374 int set_complex_singles (mxComplexSingle *)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1375 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1376 err_invalid_type ("set_complex_singles");
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1377 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1378
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1379 #if 0
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1380 /* We don't have these yet. */
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1381 int set_complex_int8s (mxComplexInt8 *)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1382 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1383 err_invalid_type ("set_complex_int8s");
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1384 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1385
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1386 int set_complex_int16s (mxComplexInt16 *)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1387 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1388 err_invalid_type ("set_complex_int16s");
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1389 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1390
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1391 int set_complex_int32s (mxComplexInt32 *)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1392 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1393 err_invalid_type ("set_complex_int32s");
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1394 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1395
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1396 int set_complex_int64s (mxComplexInt64 *)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1397 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1398 err_invalid_type ("set_complex_int64s");
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1399 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1400
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1401 int set_complex_uint8s (mxComplexUint8 *)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1402 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1403 err_invalid_type ("set_complex_uint8s");
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1404 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1405
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1406 int set_complex_uint16s (mxComplexUint16 *)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1407 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1408 err_invalid_type ("set_complex_uint16s");
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1409 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1410
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1411 int set_complex_uint32s (mxComplexUint32 *)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1412 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1413 err_invalid_type ("set_complex_uint32s");
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1414 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1415
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1416 int set_complex_uint64s (mxComplexUint64 *)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1417 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1418 err_invalid_type ("set_complex_uint64s");
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1419 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1420 #endif
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1421
30212 c27b9ba4c9bd * mex.cc: Don't use m_ prefix for function arguments and local variables. John W. Eaton <jwe@octave.org> parents: 30129 diff changeset	1422 void set_imag_data (void * /pi/)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1423 {
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1424 err_invalid_type ("set_imag_data");
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
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	1427 mwIndex * get_ir (void) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1428 {
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1429 err_invalid_type ("get_ir");
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1430 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1431
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	1432 mwIndex * get_jc (void) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1433 {
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1434 err_invalid_type ("get_jc");
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1435 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1436
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1437 mwSize get_nzmax (void) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1438 {
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1439 err_invalid_type ("get_nzmax");
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1440 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1441
30212 c27b9ba4c9bd * mex.cc: Don't use m_ prefix for function arguments and local variables. John W. Eaton <jwe@octave.org> parents: 30129 diff changeset	1442 void set_ir (mwIndex * /ir/)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1443 {
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1444 err_invalid_type ("set_ir");
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
30212 c27b9ba4c9bd * mex.cc: Don't use m_ prefix for function arguments and local variables. John W. Eaton <jwe@octave.org> parents: 30129 diff changeset	1447 void set_jc (mwIndex * /jc/)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1448 {
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1449 err_invalid_type ("set_jc");
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1450 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1451
30212 c27b9ba4c9bd * mex.cc: Don't use m_ prefix for function arguments and local variables. John W. Eaton <jwe@octave.org> parents: 30129 diff changeset	1452 void set_nzmax (mwSize /nzmax/)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1453 {
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1454 err_invalid_type ("set_nzmax");
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1455 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1456
22449 e337b8e3592c Fix double free causing segfault in mxSetDimensions (bug #49010). Rik <rik@octave.org> parents: 22407 diff changeset	1457 int add_field (const char * /key/)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1458 {
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1459 err_invalid_type ("add_field");
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1460 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1461
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1462 void remove_field (int /key_num/)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1463 {
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1464 err_invalid_type ("remove_field");
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1465 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1466
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	1467 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	1468 {
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1469 err_invalid_type ("get_field_by_number");
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1470 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1471
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1472 void set_field_by_number (mwIndex /index/, int /key_num/,
30212 c27b9ba4c9bd * mex.cc: Don't use m_ prefix for function arguments and local variables. John W. Eaton <jwe@octave.org> parents: 30129 diff changeset	1473 mxArray * /val/)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1474 {
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1475 err_invalid_type ("set_field_by_number");
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1476 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1477
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1478 int get_number_of_fields (void) const
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1479 {
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1480 err_invalid_type ("get_number_of_fields");
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1481 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1482
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	1483 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	1484 {
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1485 err_invalid_type ("get_field_name_by_number");
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1486 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1487
22449 e337b8e3592c Fix double free causing segfault in mxSetDimensions (bug #49010). Rik <rik@octave.org> parents: 22407 diff changeset	1488 int get_field_number (const char * /key/) const
5900 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 return -1;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1491 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1492
22449 e337b8e3592c Fix double free causing segfault in mxSetDimensions (bug #49010). Rik <rik@octave.org> parents: 22407 diff changeset	1493 int get_string (char * /buf/, mwSize /buflen/) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1494 {
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1495 err_invalid_type ("get_string");
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1496 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1497
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	1498 char * array_to_string (void) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1499 {
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1500 err_invalid_type ("array_to_string");
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1501 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1502
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1503 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	1504 {
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1505 return calc_single_subscript_internal (m_ndims, m_dims, nsubs, subs);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1506 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1507
29654 d13d090cb03a use std::size_t and std::ptrdiff_t in C++ code (bug #60471) John W. Eaton <jwe@octave.org> parents: 29358 diff changeset	1508 std::size_t get_element_size (void) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1509 {
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1510 switch (m_id)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1511 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1512 case mxCELL_CLASS: return sizeof (mxArray *);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1513 case mxSTRUCT_CLASS: return sizeof (mxArray *);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1514 case mxLOGICAL_CLASS: return sizeof (mxLogical);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1515 case mxCHAR_CLASS: return sizeof (mxChar);
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1516 case mxDOUBLE_CLASS: return get_numeric_element_size (sizeof (mxDouble));
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1517 case mxSINGLE_CLASS: return get_numeric_element_size (sizeof (mxSingle));
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1518 case mxINT8_CLASS: return get_numeric_element_size (sizeof (mxInt8));
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1519 case mxUINT8_CLASS: return get_numeric_element_size (sizeof (mxUint8));
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1520 case mxINT16_CLASS: return get_numeric_element_size (sizeof (mxInt16));
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1521 case mxUINT16_CLASS: return get_numeric_element_size (sizeof (mxUint16));
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1522 case mxINT32_CLASS: return get_numeric_element_size (sizeof (mxInt32));
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1523 case mxUINT32_CLASS: return get_numeric_element_size (sizeof (mxUint32));
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1524 case mxINT64_CLASS: return get_numeric_element_size (sizeof (mxInt64));
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1525 case mxUINT64_CLASS: return get_numeric_element_size (sizeof (mxUint64));
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1526 case mxFUNCTION_CLASS: return 0;
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1527 // 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	1528 // What should they return, size of pointer?
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1529 default: return 0;
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	1530 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1531 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1532
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1533 protected:
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1534
30213 27791344a45c * mex.cc: Don't use _arg prefix for function argument names if possible. John W. Eaton <jwe@octave.org> parents: 30212 diff changeset	1535 mxArray_matlab (bool interleaved, mxClassID id = mxUNKNOWN_CLASS)
30346 91c6288781ba maint: Shorten some long lines in libinterp to <= 80 characters (bug #57599) Rik <rik@octave.org> parents: 30232 diff changeset	1536 : mxArray_base (interleaved), m_class_name (nullptr), m_id (id),
91c6288781ba maint: Shorten some long lines in libinterp to <= 80 characters (bug #57599) Rik <rik@octave.org> parents: 30232 diff changeset	1537 m_ndims (0), m_dims (nullptr)
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1538 { }
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1539
30213 27791344a45c * mex.cc: Don't use _arg prefix for function argument names if possible. John W. Eaton <jwe@octave.org> parents: 30212 diff changeset	1540 mxArray_matlab (bool interleaved, mxClassID id, mwSize ndims,
27791344a45c * mex.cc: Don't use _arg prefix for function argument names if possible. John W. Eaton <jwe@octave.org> parents: 30212 diff changeset	1541 const mwSize *dims)
27791344a45c * mex.cc: Don't use _arg prefix for function argument names if possible. John W. Eaton <jwe@octave.org> parents: 30212 diff changeset	1542 : mxArray_base (interleaved), m_class_name (nullptr), m_id (id),
27791344a45c * mex.cc: Don't use _arg prefix for function argument names if possible. John W. Eaton <jwe@octave.org> parents: 30212 diff changeset	1543 m_ndims (ndims < 2 ? 2 : ndims),
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1544 m_dims (static_cast<mwSize > (mxArray::malloc (m_ndims sizeof (mwSize))))
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1545 {
30213 27791344a45c * mex.cc: Don't use _arg prefix for function argument names if possible. John W. Eaton <jwe@octave.org> parents: 30212 diff changeset	1546 if (ndims == 0)
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1547 {
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1548 m_dims[0] = 0;
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1549 m_dims[1] = 0;
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1550 }
30213 27791344a45c * mex.cc: Don't use _arg prefix for function argument names if possible. John W. Eaton <jwe@octave.org> parents: 30212 diff changeset	1551 else if (ndims < 2)
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1552 {
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1553 m_dims[0] = 1;
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1554 m_dims[1] = 1;
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1555 }
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1556
30213 27791344a45c * mex.cc: Don't use _arg prefix for function argument names if possible. John W. Eaton <jwe@octave.org> parents: 30212 diff changeset	1557 for (mwIndex i = 0; i < ndims; i++)
27791344a45c * mex.cc: Don't use _arg prefix for function argument names if possible. John W. Eaton <jwe@octave.org> parents: 30212 diff changeset	1558 m_dims[i] = dims[i];
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1559
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1560 for (mwIndex i = m_ndims - 1; i > 1; i--)
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1561 {
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1562 if (m_dims[i] == 1)
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1563 m_ndims--;
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1564 else
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1565 break;
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1566 }
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1567 }
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1568
30213 27791344a45c * mex.cc: Don't use _arg prefix for function argument names if possible. John W. Eaton <jwe@octave.org> parents: 30212 diff changeset	1569 mxArray_matlab (bool interleaved, mxClassID id, const dim_vector& dv)
27791344a45c * mex.cc: Don't use _arg prefix for function argument names if possible. John W. Eaton <jwe@octave.org> parents: 30212 diff changeset	1570 : mxArray_base (interleaved), m_class_name (nullptr), m_id (id),
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1571 m_ndims (dv.ndims ()),
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1572 m_dims (static_cast<mwSize > (mxArray::malloc (m_ndims sizeof (mwSize))))
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1573 {
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1574 for (mwIndex i = 0; i < m_ndims; i++)
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1575 m_dims[i] = dv(i);
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1576
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1577 for (mwIndex i = m_ndims - 1; i > 1; i--)
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1578 {
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1579 if (m_dims[i] == 1)
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1580 m_ndims--;
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1581 else
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1582 break;
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1583 }
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1584 }
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1585
30213 27791344a45c * mex.cc: Don't use _arg prefix for function argument names if possible. John W. Eaton <jwe@octave.org> parents: 30212 diff changeset	1586 mxArray_matlab (bool interleaved, mxClassID id, mwSize m, mwSize n)
30346 91c6288781ba maint: Shorten some long lines in libinterp to <= 80 characters (bug #57599) Rik <rik@octave.org> parents: 30232 diff changeset	1587 : mxArray_base (interleaved), m_class_name (nullptr), m_id (id),
91c6288781ba maint: Shorten some long lines in libinterp to <= 80 characters (bug #57599) Rik <rik@octave.org> parents: 30232 diff changeset	1588 m_ndims (2),
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1589 m_dims (static_cast<mwSize > (mxArray::malloc (m_ndims sizeof (mwSize))))
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1590 {
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1591 m_dims[0] = m;
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1592 m_dims[1] = n;
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1593 }
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1594
30212 c27b9ba4c9bd * mex.cc: Don't use m_ prefix for function arguments and local variables. John W. Eaton <jwe@octave.org> parents: 30129 diff changeset	1595 mxArray_matlab (const mxArray_matlab& val)
c27b9ba4c9bd * mex.cc: Don't use m_ prefix for function arguments and local variables. John W. Eaton <jwe@octave.org> parents: 30129 diff changeset	1596 : mxArray_base (val), m_class_name (mxArray::strsave (val.m_class_name)),
c27b9ba4c9bd * mex.cc: Don't use m_ prefix for function arguments and local variables. John W. Eaton <jwe@octave.org> parents: 30129 diff changeset	1597 m_id (val.m_id), m_ndims (val.m_ndims),
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1598 m_dims (static_cast<mwSize > (mxArray::malloc (m_ndims sizeof (mwSize))))
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1599 {
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1600 for (mwIndex i = 0; i < m_ndims; i++)
30212 c27b9ba4c9bd * mex.cc: Don't use m_ prefix for function arguments and local variables. John W. Eaton <jwe@octave.org> parents: 30129 diff changeset	1601 m_dims[i] = val.m_dims[i];
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1602 }
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1603
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1604 dim_vector
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1605 dims_to_dim_vector (void) const
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1606 {
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1607 mwSize nd = get_number_of_dimensions ();
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1608
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1609 mwSize *d = get_dimensions ();
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1610
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1611 dim_vector dv;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1612 dv.resize (nd);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1613
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1614 for (mwIndex i = 0; i < nd; i++)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1615 dv(i) = d[i];
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1616
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1617 return dv;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1618 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1619
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1620 private:
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1621
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1622 char *m_class_name;
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1623
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1624 mxClassID m_id;
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1625
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1626 mwSize m_ndims;
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1627 mwSize *m_dims;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1628 };
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1629
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1630
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1631 // Matlab-style numeric, character, and logical data.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1632
30224 8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	1633 class mxArray_base_full : public mxArray_matlab
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1634 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1635 public:
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1636
30224 8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	1637 mxArray_base_full (bool interleaved, mxClassID id, mwSize ndims,
30226 f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	1638 const mwSize *dims, bool init = true)
30213 27791344a45c * mex.cc: Don't use _arg prefix for function argument names if possible. John W. Eaton <jwe@octave.org> parents: 30212 diff changeset	1639 : mxArray_matlab (interleaved, id, ndims, dims),
30226 f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	1640 m_pr (mxArray::alloc (init, get_number_of_elements (), get_element_size ()))
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1641 { }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1642
30226 f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	1643 mxArray_base_full (bool interleaved, mxClassID id, const dim_vector& dv)
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	1644 : mxArray_matlab (interleaved, id, dv),
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	1645 m_pr (mxArray::calloc (get_number_of_elements (), get_element_size ()))
22464 1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	1646 { }
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	1647
30224 8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	1648 mxArray_base_full (bool interleaved, mxClassID id, mwSize m, mwSize n,
30226 f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	1649 bool init = true)
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	1650 : mxArray_matlab (interleaved, id, m, n),
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	1651 m_pr (mxArray::alloc (init, get_number_of_elements (), get_element_size ()))
22464 1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	1652 { }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1653
30224 8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	1654 mxArray_base_full (bool interleaved, mxClassID id, double val)
30226 f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	1655 : mxArray_matlab (interleaved, id, 1, 1),
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	1656 m_pr (mxArray::calloc (get_number_of_elements (), get_element_size ()))
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1657 {
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1658 double dpr = static_cast<double > (m_pr);
30212 c27b9ba4c9bd * mex.cc: Don't use m_ prefix for function arguments and local variables. John W. Eaton <jwe@octave.org> parents: 30129 diff changeset	1659 dpr[0] = val;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1660 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1661
30224 8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	1662 mxArray_base_full (bool interleaved, mxClassID id, mxLogical val)
30226 f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	1663 : mxArray_matlab (interleaved, id, 1, 1),
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	1664 m_pr (mxArray::calloc (get_number_of_elements (), get_element_size ()))
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1665 {
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1666 mxLogical lpr = static_cast<mxLogical > (m_pr);
30212 c27b9ba4c9bd * mex.cc: Don't use m_ prefix for function arguments and local variables. John W. Eaton <jwe@octave.org> parents: 30129 diff changeset	1667 lpr[0] = val;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1668 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1669
30224 8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	1670 mxArray_base_full (bool interleaved, const char *str)
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1671 : mxArray_matlab (interleaved, mxCHAR_CLASS,
10853 c3813056f94f mxArray_number (const char ): create empty string if given NULL arg John W. Eaton <jwe@octave.org>* parents: 10463 diff changeset	1672 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	1673 str ? strlen (str) : 0),
30226 f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	1674 m_pr (mxArray::calloc (get_number_of_elements (), get_element_size ()))
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1675 {
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1676 mxChar cpr = static_cast<mxChar > (m_pr);
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1677 mwSize nel = get_number_of_elements ();
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1678 for (mwIndex i = 0; i < nel; i++)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1679 cpr[i] = str[i];
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1680 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1681
17861 870f3e12e163 maint: Use phrase "FIXME:" for problem areas in code. Rik <rik@octave.org> parents: 17810 diff changeset	1682 // FIXME: ???
30224 8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	1683 mxArray_base_full (bool interleaved, mwSize m, const char **str)
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1684 : mxArray_matlab (interleaved, mxCHAR_CLASS, m, max_str_len (m, str)),
30226 f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	1685 m_pr (mxArray::calloc (get_number_of_elements (), get_element_size ()))
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1686 {
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1687 mxChar cpr = static_cast<mxChar > (m_pr);
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	1688
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1689 mwSize *dv = get_dimensions ();
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1690
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1691 mwSize nc = dv[1];
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1692
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	1693 for (mwIndex j = 0; j < m; j++)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1694 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1695 const char *ptr = str[j];
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1696
29654 d13d090cb03a use std::size_t and std::ptrdiff_t in C++ code (bug #60471) John W. Eaton <jwe@octave.org> parents: 29358 diff changeset	1697 std::size_t tmp_len = strlen (ptr);
d13d090cb03a use std::size_t and std::ptrdiff_t in C++ code (bug #60471) John W. Eaton <jwe@octave.org> parents: 29358 diff changeset	1698
d13d090cb03a use std::size_t and std::ptrdiff_t in C++ code (bug #60471) John W. Eaton <jwe@octave.org> parents: 29358 diff changeset	1699 for (std::size_t i = 0; i < tmp_len; i++)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1700 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	1701
29654 d13d090cb03a use std::size_t and std::ptrdiff_t in C++ code (bug #60471) John W. Eaton <jwe@octave.org> parents: 29358 diff changeset	1702 for (std::size_t i = tmp_len; i < static_cast<std::size_t> (nc); i++)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1703 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	1704 }
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
22869 f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1707 // 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	1708 // do have a copy constructor.
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1709
30224 8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	1710 mxArray_base_full& operator = (const mxArray_base_full&);
22869 f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	1711
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1712 mxArray_base * dup (void) const
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1713 {
30224 8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	1714 return new mxArray_base_full (*this);
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1715 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1716
30224 8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	1717 ~mxArray_base_full (void)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	1718 {
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1719 mxFree (m_pr);
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1720 }
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	1721
6332 debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1722 double get_scalar (void) const
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1723 {
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1724 // FIXME: how does this work for interleaved complex arrays?
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1725
6332 debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1726 double retval = 0;
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1727
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1728 switch (get_class_id ())
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1729 {
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1730 case mxDOUBLE_CLASS:
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1731 retval = (static_cast<double > (m_pr));
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1732 break;
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1733
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1734 case mxSINGLE_CLASS:
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1735 retval = (static_cast<float > (m_pr));
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1736 break;
6332 debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1737
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1738 case mxCHAR_CLASS:
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1739 retval = (static_cast<mxChar > (m_pr));
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1740 break;
6332 debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1741
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	1742 case mxLOGICAL_CLASS:
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1743 retval = (static_cast<bool > (m_pr));
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1744 break;
6332 debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1745
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1746 case mxINT8_CLASS:
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1747 retval = (static_cast<int8_t > (m_pr));
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1748 break;
6332 debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1749
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1750 case mxUINT8_CLASS:
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1751 retval = (static_cast<uint8_t > (m_pr));
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1752 break;
6332 debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1753
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1754 case mxINT16_CLASS:
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1755 retval = (static_cast<int16_t > (m_pr));
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1756 break;
6332 debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1757
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1758 case mxUINT16_CLASS:
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1759 retval = (static_cast<uint16_t > (m_pr));
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1760 break;
6332 debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1761
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1762 case mxINT32_CLASS:
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1763 retval = (static_cast<int32_t > (m_pr));
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1764 break;
6332 debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1765
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1766 case mxUINT32_CLASS:
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1767 retval = (static_cast<uint32_t > (m_pr));
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1768 break;
6332 debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1769
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1770 case mxINT64_CLASS:
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1771 retval = (static_cast<int64_t > (m_pr));
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1772 break;
6332 debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1773
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1774 case mxUINT64_CLASS:
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1775 retval = (static_cast<uint64_t > (m_pr));
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1776 break;
6332 debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1777
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1778 default:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	1779 panic_impossible ();
6332 debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1780 }
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1781
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1782 return retval;
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1783 }
debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	1784
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1785 void * get_data (void) const { return m_pr; }
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	1786
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1787 void set_data (void *pr) { m_pr = pr; }
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	1788
30225 3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1789 // The typed get and set functions only work for interleaved data but
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1790 // they are defined here because this class owns PR. There are
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1791 // definitions in the mxArray_separate_full class that override these
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1792 // functions.
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1793
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1794 mxDouble * get_doubles (void) const
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1795 {
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1796 return static_cast<mxDouble *> (m_pr);
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1797 }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1798
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1799 mxSingle * get_singles (void) const
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1800 {
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1801 return static_cast<mxSingle *> (m_pr);
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1802 }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1803
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1804 mxInt8 * get_int8s (void) const
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1805 {
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1806 return static_cast<mxInt8 *> (m_pr);
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1807 }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1808
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1809 mxInt16 * get_int16s (void) const
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1810 {
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1811 return static_cast<mxInt16 *> (m_pr);
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1812 }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1813
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1814 mxInt32 * get_int32s (void) const
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1815 {
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1816 return static_cast<mxInt32 *> (m_pr);
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1817 }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1818
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1819 mxInt64 * get_int64s (void) const
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1820 {
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1821 return static_cast<mxInt64 *> (m_pr);
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1822 }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1823
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1824 mxUint8 * get_uint8s (void) const
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1825 {
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1826 return static_cast<mxUint8 *> (m_pr);
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1827 }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1828
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1829 mxUint16 * get_uint16s (void) const
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1830 {
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1831 return static_cast<mxUint16 *> (m_pr);
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1832 }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1833
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1834 mxUint32 * get_uint32s (void) const
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1835 {
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1836 return static_cast<mxUint32 *> (m_pr);
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1837 }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1838
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1839 mxUint64 * get_uint64s (void) const
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1840 {
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1841 return static_cast<mxUint64 *> (m_pr);
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1842 }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1843
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1844 mxComplexDouble * get_complex_doubles (void) const
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1845 {
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1846 return static_cast<mxComplexDouble *> (m_pr);
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1847 }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1848
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1849 mxComplexSingle * get_complex_singles (void) const
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1850 {
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1851 return static_cast<mxComplexSingle *> (m_pr);
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1852 }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1853
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1854 #if 0
30225 3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1855 // We don't have these data types.
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1856
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1857 int get_complex_int8s (mxComplexInt8 *d)
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1858 {
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1859 m_pr = d;
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1860 return 0;
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1861 }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1862
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1863 int get_complex_int16s (mxComplexInt16 *d)
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1864 {
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1865 m_pr = d;
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1866 return 0;
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1867 }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1868
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1869 int get_complex_int32s (mxComplexInt32 *d)
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1870 {
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1871 m_pr = d;
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1872 return 0;
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1873 }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1874
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1875 int get_complex_int64s (mxComplexInt64 *d)
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1876 {
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1877 m_pr = d;
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1878 return 0;
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1879 }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1880
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1881 int get_complex_uint8s (mxComplexUint8 *d)
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1882 {
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1883 m_pr = d;
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1884 return 0;
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1885 }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1886
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1887 int get_complex_uint16s (mxComplexUint16 *d)
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1888 {
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1889 m_pr = d;
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1890 return 0;
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1891 }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1892
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1893 int get_complex_uint32s (mxComplexUint32 *d)
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1894 {
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1895 m_pr = d;
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1896 return 0;
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1897 }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1898
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1899 int get_complex_uint64s (mxComplexUint64 *d)
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1900 {
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1901 m_pr = d;
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1902 return 0;
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1903 }
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1904 #endif
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1905
30225 3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1906 int set_doubles (mxDouble *d)
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1907 {
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1908 m_pr = d;
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1909 return 0;
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1910 }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1911
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1912 int set_singles (mxSingle *d)
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1913 {
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1914 m_pr = d;
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1915 return 0;
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1916 }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1917
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1918 int set_int8s (mxInt8 *d)
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1919 {
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1920 m_pr = d;
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1921 return 0;
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1922 }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1923
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1924 int set_int16s (mxInt16 *d)
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1925 {
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1926 m_pr = d;
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1927 return 0;
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1928 }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1929
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1930 int set_int32s (mxInt32 *d)
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1931 {
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1932 m_pr = d;
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1933 return 0;
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1934 }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1935
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1936 int set_int64s (mxInt64 *d)
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1937 {
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1938 m_pr = d;
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1939 return 0;
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1940 }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1941
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1942 int set_uint8s (mxUint8 *d)
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1943 {
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1944 m_pr = d;
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1945 return 0;
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1946 }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1947
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1948 int set_uint16s (mxUint16 *d)
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1949 {
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1950 m_pr = d;
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1951 return 0;
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1952 }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1953
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1954 int set_uint32s (mxUint32 *d)
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1955 {
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1956 m_pr = d;
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1957 return 0;
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1958 }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1959
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1960 int set_uint64s (mxUint64 *d)
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1961 {
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1962 m_pr = d;
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1963 return 0;
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1964 }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1965
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1966 int set_complex_doubles (mxComplexDouble *d)
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1967 {
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1968 m_pr = d;
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1969 return 0;
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1970 }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1971
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1972 int set_complex_singles (mxComplexSingle *d)
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1973 {
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1974 m_pr = d;
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1975 return 0;
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1976 }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1977
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	1978 #if 0
30225 3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1979 // We don't have these data types.
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1980
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1981 int set_complex_int8s (mxComplexInt8 *d)
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1982 {
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1983 m_pr = d;
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1984 return 0;
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1985 }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1986
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1987 int set_complex_int16s (mxComplexInt16 *d)
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1988 {
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1989 m_pr = d;
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1990 return 0;
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1991 }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1992
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1993 int set_complex_int32s (mxComplexInt32 *d)
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1994 {
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1995 m_pr = d;
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1996 return 0;
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1997 }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1998
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	1999 int set_complex_int64s (mxComplexInt64 *d)
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2000 {
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2001 m_pr = d;
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2002 return 0;
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2003 }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2004
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2005 int set_complex_uint8s (mxComplexUint8 *d)
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2006 {
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2007 m_pr = d;
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2008 return 0;
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2009 }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2010
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2011 int set_complex_uint16s (mxComplexUint16 *d)
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2012 {
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2013 m_pr = d;
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2014 return 0;
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2015 }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2016
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2017 int set_complex_uint32s (mxComplexUint32 *d)
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2018 {
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2019 m_pr = d;
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2020 return 0;
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2021 }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2022
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2023 int set_complex_uint64s (mxComplexUint64 *d)
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2024 {
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2025 m_pr = d;
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2026 return 0;
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2027 }
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	2028 #endif
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	2029
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2030 int get_string (char *buf, mwSize buflen) const
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	2031 {
13753 ab4238b0b09b Change return value of mxGetString to match Matlab (Bug #34546) Rik <octave@nomad.inbox5.com> parents: 12472 diff changeset	2032 int retval = 0;
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	2033
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2034 mwSize nel = get_number_of_elements ();
6493 5fa513371dde [project @ 2007-04-05 14:53:49 by jwe] jwe parents: 6400 diff changeset	2035
13753 ab4238b0b09b Change return value of mxGetString to match Matlab (Bug #34546) Rik <octave@nomad.inbox5.com> parents: 12472 diff changeset	2036 if (! (nel < buflen))
ab4238b0b09b Change return value of mxGetString to match Matlab (Bug #34546) Rik <octave@nomad.inbox5.com> parents: 12472 diff changeset	2037 {
ab4238b0b09b Change return value of mxGetString to match Matlab (Bug #34546) Rik <octave@nomad.inbox5.com> parents: 12472 diff changeset	2038 retval = 1;
ab4238b0b09b Change return value of mxGetString to match Matlab (Bug #34546) Rik <octave@nomad.inbox5.com> parents: 12472 diff changeset	2039 if (buflen > 0)
ab4238b0b09b Change return value of mxGetString to match Matlab (Bug #34546) Rik <octave@nomad.inbox5.com> parents: 12472 diff changeset	2040 nel = buflen-1;
ab4238b0b09b Change return value of mxGetString to match Matlab (Bug #34546) Rik <octave@nomad.inbox5.com> parents: 12472 diff changeset	2041 }
ab4238b0b09b Change return value of mxGetString to match Matlab (Bug #34546) Rik <octave@nomad.inbox5.com> parents: 12472 diff changeset	2042
6493 5fa513371dde [project @ 2007-04-05 14:53:49 by jwe] jwe parents: 6400 diff changeset	2043 if (nel < buflen)
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	2044 {
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2045 mxChar ptr = static_cast<mxChar > (m_pr);
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2046
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2047 for (mwIndex i = 0; i < nel; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2048 buf[i] = static_cast<char> (ptr[i]);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2049
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2050 buf[nel] = 0;
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	2051 }
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	2052
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	2053 return retval;
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	2054 }
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	2055
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	2056 char * array_to_string (void) const
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	2057 {
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	2058 // 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	2059
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2060 mwSize nel = get_number_of_elements ();
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	2061
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	2062 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	2063
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	2064 if (buf)
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	2065 {
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2066 mxChar ptr = static_cast<mxChar > (m_pr);
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2067
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2068 for (mwIndex i = 0; i < nel; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2069 buf[i] = static_cast<char> (ptr[i]);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2070
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2071 buf[nel] = '\0';
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	2072 }
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	2073
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	2074 return buf;
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	2075 }
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	2076
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2077 octave_value as_octave_value (void) const
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 octave_value retval;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2080
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2081 dim_vector dv = dims_to_dim_vector ();
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 switch (get_class_id ())
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2084 {
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	2085 case mxDOUBLE_CLASS:
30227 b00ff462e0f2 improve efficiency of mxArray -> octave_value conversion John W. Eaton <jwe@octave.org> parents: 30226 diff changeset	2086 return (is_complex ()
b00ff462e0f2 improve efficiency of mxArray -> octave_value conversion John W. Eaton <jwe@octave.org> parents: 30226 diff changeset	2087 ? fp_to_ov<Complex> (dv) : fp_to_ov<double> (dv));
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2088
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2089 case mxSINGLE_CLASS:
30227 b00ff462e0f2 improve efficiency of mxArray -> octave_value conversion John W. Eaton <jwe@octave.org> parents: 30226 diff changeset	2090 return (is_complex ()
b00ff462e0f2 improve efficiency of mxArray -> octave_value conversion John W. Eaton <jwe@octave.org> parents: 30226 diff changeset	2091 ? fp_to_ov<FloatComplex> (dv) : fp_to_ov<float> (dv));
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2092
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	2093 case mxCHAR_CLASS:
30226 f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2094 return int_to_ov<mxChar, charNDArray, char> (dv);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2095
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	2096 case mxLOGICAL_CLASS:
30226 f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2097 return int_to_ov<mxLogical, boolNDArray, bool> (dv);
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	2098
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2099 case mxINT8_CLASS:
30226 f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2100 return int_to_ov<int8_t, int8NDArray, octave_int8> (dv);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2101
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2102 case mxUINT8_CLASS:
30226 f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2103 return int_to_ov<uint8_t, uint8NDArray, octave_uint8> (dv);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2104
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2105 case mxINT16_CLASS:
30226 f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2106 return int_to_ov<int16_t, int16NDArray, octave_int16> (dv);
5900 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 case mxUINT16_CLASS:
30226 f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2109 return int_to_ov<uint16_t, uint16NDArray, octave_uint16> (dv);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2110
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2111 case mxINT32_CLASS:
30226 f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2112 return int_to_ov<int32_t, int32NDArray, octave_int32> (dv);
5900 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 case mxUINT32_CLASS:
30226 f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2115 return int_to_ov<uint32_t, uint32NDArray, octave_uint32> (dv);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2116
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2117 case mxINT64_CLASS:
30226 f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2118 return int_to_ov<int64_t, int64NDArray, octave_int64> (dv);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2119
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2120 case mxUINT64_CLASS:
30226 f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2121 return int_to_ov<uint64_t, uint64NDArray, octave_uint64> (dv);
5900 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 default:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2124 panic_impossible ();
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	2125 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2126
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2127 return retval;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2128 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2129
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	2130 protected:
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	2131
30224 8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2132 mxArray_base_full (const mxArray_base_full& val)
30226 f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2133 : mxArray_matlab (val),
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2134 m_pr (mxArray::malloc (get_number_of_elements () * get_element_size ()))
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2135 {
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2136 if (m_pr)
30226 f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2137 memcpy (m_pr, val.m_pr, get_number_of_elements () * get_element_size ());
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2138 }
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2139
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2140 template <typename ELT_T>
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2141 octave_value
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2142 fp_to_ov (const dim_vector& dv) const
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2143 {
30488 abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	2144 octave_value retval;
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	2145
30227 b00ff462e0f2 improve efficiency of mxArray -> octave_value conversion John W. Eaton <jwe@octave.org> parents: 30226 diff changeset	2146 ELT_T ppr = static_cast<ELT_T > (m_pr);
b00ff462e0f2 improve efficiency of mxArray -> octave_value conversion John W. Eaton <jwe@octave.org> parents: 30226 diff changeset	2147
30501 79a7f3e3cf54 Use consistent name for OCTAVE_HAVE_STD_PMR_POLYMORPHIC_ALLOCATOR (bug #61472). Markus Mützel <markus.muetzel@gmx.de> parents: 30494 diff changeset	2148 #if defined (OCTAVE_HAVE_STD_PMR_POLYMORPHIC_ALLOCATOR)
30488 abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	2149
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	2150 octave::unwind_action act ([=] () { maybe_disown_ptr (m_pr); });
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	2151
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	2152 return octave_value (Array<ELT_T> (ppr, dv, &the_mx_memory_resource));
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	2153
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	2154 #else
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	2155
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	2156 if (fp_type_traits<ELT_T>::is_complex)
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	2157 {
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	2158 // Mixing malloc and delete[] for arrays of Complex and
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	2159 // FloatComplex objects is not possible.
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	2160
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	2161 Array<ELT_T> val (dv);
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	2162
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	2163 ELT_T *ptr = val.fortran_vec ();
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	2164
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	2165 mwSize nel = get_number_of_elements ();
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	2166
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	2167 for (mwIndex i = 0; i < nel; i++)
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	2168 ptr[i] = ppr[i];
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	2169
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	2170 return octave_value (val);
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	2171 }
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	2172 else
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	2173 {
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	2174 // Although behavior is not specified by the standard, it should
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	2175 // work to mix malloc and delete[] for arrays of float and
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	2176 // double.
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	2177
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	2178 octave::unwind_action act ([=] () { maybe_disown_ptr (m_pr); });
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	2179
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	2180 return octave_value (Array<ELT_T> (ppr, dv));
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	2181 }
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	2182
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	2183 #endif
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2184 }
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2185
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	2186 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	2187 octave_value
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	2188 int_to_ov (const dim_vector& dv) const
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	2189 {
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	2190 if (is_complex ())
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	2191 error ("complex integer types are not supported");
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	2192
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2193 ELT_T ppr = static_cast<ELT_T > (m_pr);
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2194
30501 79a7f3e3cf54 Use consistent name for OCTAVE_HAVE_STD_PMR_POLYMORPHIC_ALLOCATOR (bug #61472). Markus Mützel <markus.muetzel@gmx.de> parents: 30494 diff changeset	2195 #if 0 && defined (OCTAVE_HAVE_STD_PMR_POLYMORPHIC_ALLOCATOR)
30488 abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	2196
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	2197 octave::unwind_action act ([=] () { maybe_disown_ptr (m_pr); });
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	2198
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	2199 return ARRAY_T (ppr, dv, &the_mx_memory_resource);
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	2200
30227 b00ff462e0f2 improve efficiency of mxArray -> octave_value conversion John W. Eaton <jwe@octave.org> parents: 30226 diff changeset	2201 #else
30488 abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	2202
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	2203 // All octave_int types are objects so we can't mix malloc and
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	2204 // delete[] and we always have to copy.
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	2205
30212 c27b9ba4c9bd * mex.cc: Don't use m_ prefix for function arguments and local variables. John W. Eaton <jwe@octave.org> parents: 30129 diff changeset	2206 ARRAY_T val (dv);
c27b9ba4c9bd * mex.cc: Don't use m_ prefix for function arguments and local variables. John W. Eaton <jwe@octave.org> parents: 30129 diff changeset	2207
c27b9ba4c9bd * mex.cc: Don't use m_ prefix for function arguments and local variables. John W. Eaton <jwe@octave.org> parents: 30129 diff changeset	2208 ARRAY_ELT_T *ptr = val.fortran_vec ();
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	2209
30226 f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2210 mwSize nel = get_number_of_elements ();
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2211
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	2212 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	2213 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	2214
30212 c27b9ba4c9bd * mex.cc: Don't use m_ prefix for function arguments and local variables. John W. Eaton <jwe@octave.org> parents: 30129 diff changeset	2215 return octave_value (val);
30488 abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	2216
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	2217 #endif
15351 a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	2218 }
a291f850743c modernize mxArray class hierarchy John W. Eaton <jwe@octave.org> parents: 15220 diff changeset	2219
30226 f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2220 protected:
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	2221
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	2222 // If using interleaved complex storage, this is the pointer to data
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	2223 // (real, complex, or logical). Otherwise, it is the pointer to the
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	2224 // real part of the data.
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2225 void *m_pr;
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
30224 8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2228 class mxArray_interleaved_full : public mxArray_base_full
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2229 {
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2230 public:
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2231
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2232 mxArray_interleaved_full (mxClassID id, mwSize ndims, const mwSize *dims,
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2233 mxComplexity flag = mxREAL, bool init = true)
30226 f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2234 : mxArray_base_full (true, id, ndims, dims, init),
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2235 m_complex (flag == mxCOMPLEX)
30224 8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2236 { }
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2237
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2238 mxArray_interleaved_full (mxClassID id, const dim_vector& dv,
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2239 mxComplexity flag = mxREAL)
30226 f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2240 : mxArray_base_full (true, id, dv),
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2241 m_complex (flag == mxCOMPLEX)
30224 8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2242 { }
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2243
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2244 mxArray_interleaved_full (mxClassID id, mwSize m, mwSize n,
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2245 mxComplexity flag = mxREAL, bool init = true)
30226 f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2246 : mxArray_base_full (true, id, m, n, init),
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2247 m_complex (flag == mxCOMPLEX)
30224 8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2248 { }
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2249
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2250 mxArray_interleaved_full (mxClassID id, double val)
30226 f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2251 : mxArray_base_full (true, id, val), m_complex (false)
30224 8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2252 { }
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2253
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2254 mxArray_interleaved_full (mxClassID id, mxLogical val)
30226 f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2255 : mxArray_base_full (true, id, val), m_complex (false)
30224 8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2256 { }
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2257
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2258 mxArray_interleaved_full (const char *str)
30226 f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2259 : mxArray_base_full (true, str), m_complex (false)
30224 8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2260 { }
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2261
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2262 // FIXME: ???
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2263 mxArray_interleaved_full (mwSize m, const char **str)
30226 f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2264 : mxArray_base_full (true, m, str), m_complex (false)
30224 8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2265 { }
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2266
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2267 // No assignment! FIXME: should this be implemented? Note that we
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2268 // do have a copy constructor.
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2269
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2270 mxArray_interleaved_full& operator = (const mxArray_interleaved_full&);
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2271
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2272 mxArray_base * dup (void) const
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2273 {
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2274 return new mxArray_interleaved_full (*this);
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2275 }
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2276
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2277 ~mxArray_interleaved_full (void) = default;
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2278
30226 f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2279 int is_complex (void) const { return m_complex; }
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2280
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2281 void * get_imag_data (void) const { panic_impossible (); }
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2282
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2283 void set_imag_data (void /pi*/) { panic_impossible (); }
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2284
30224 8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2285 protected:
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2286
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2287 mxArray_interleaved_full (const mxArray_interleaved_full& val)
30226 f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2288 : mxArray_base_full (val), m_complex (val.m_complex)
30224 8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2289 { }
30226 f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2290
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2291 // Flag to identify complex object.
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2292 bool m_complex;
30224 8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2293 };
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2294
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2295 class mxArray_separate_full : public mxArray_base_full
5900 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 public:
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2298
30224 8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2299 mxArray_separate_full (mxClassID id, mwSize ndims, const mwSize *dims,
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2300 mxComplexity flag = mxREAL, bool init = true)
30226 f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2301 : mxArray_base_full (false, id, ndims, dims, init),
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2302 m_pi (flag == mxCOMPLEX
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2303 ? mxArray::alloc (init, get_number_of_elements (), get_element_size ())
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2304 : nullptr)
30224 8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2305 { }
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2306
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2307 mxArray_separate_full (mxClassID id, const dim_vector& dv,
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2308 mxComplexity flag = mxREAL)
30226 f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2309 : mxArray_base_full (false, id, dv),
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2310 m_pi (flag == mxCOMPLEX
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2311 ? mxArray::calloc (get_number_of_elements (), get_element_size ())
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2312 : nullptr)
30224 8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2313 { }
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2314
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2315 mxArray_separate_full (mxClassID id, mwSize m, mwSize n,
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2316 mxComplexity flag = mxREAL, bool init = true)
30226 f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2317 : mxArray_base_full (false, id, m, n, init),
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2318 m_pi (flag == mxCOMPLEX
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2319 ? (mxArray::alloc (init, get_number_of_elements (), get_element_size ()))
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2320 : nullptr)
30224 8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2321 { }
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2322
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2323 mxArray_separate_full (mxClassID id, double val)
30226 f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2324 : mxArray_base_full (false, id, val), m_pi (nullptr)
30224 8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2325 { }
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2326
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2327 mxArray_separate_full (mxClassID id, mxLogical val)
30226 f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2328 : mxArray_base_full (false, id, val), m_pi (nullptr)
30224 8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2329 { }
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2330
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2331 mxArray_separate_full (const char *str)
30226 f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2332 : mxArray_base_full (false, str), m_pi (nullptr)
30224 8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2333 { }
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2334
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2335 // FIXME: ???
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2336 mxArray_separate_full (mwSize m, const char **str)
30226 f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2337 : mxArray_base_full (false, m, str), m_pi (nullptr)
30224 8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2338 { }
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2339
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2340 // No assignment! FIXME: should this be implemented? Note that we
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2341 // do have a copy constructor.
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2342
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2343 mxArray_separate_full& operator = (const mxArray_separate_full&);
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2344
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2345 mxArray_base * dup (void) const
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2346 {
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2347 return new mxArray_separate_full (*this);
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2348 }
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2349
30226 f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2350 ~mxArray_separate_full (void)
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2351 {
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2352 mxFree (m_pi);
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2353 }
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2354
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2355 int is_complex (void) const { return m_pi != nullptr; }
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2356
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2357 void * get_imag_data (void) const { return m_pi; }
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2358
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2359 void set_imag_data (void *pi) { m_pi = pi; }
30224 8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2360
30225 3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2361 mxDouble * get_doubles (void) const { panic_impossible (); }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2362 mxSingle * get_singles (void) const { panic_impossible (); }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2363 mxInt8 * get_int8s (void) const { panic_impossible (); }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2364 mxInt16 * get_int16s (void) const { panic_impossible (); }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2365 mxInt32 * get_int32s (void) const { panic_impossible (); }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2366 mxInt64 * get_int64s (void) const { panic_impossible (); }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2367 mxUint8 * get_uint8s (void) const { panic_impossible (); }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2368 mxUint16 * get_uint16s (void) const { panic_impossible (); }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2369 mxUint32 * get_uint32s (void) const { panic_impossible (); }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2370 mxUint64 * get_uint64s (void) const { panic_impossible (); }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2371
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2372 mxComplexDouble * get_complex_doubles (void) const { panic_impossible (); }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2373 mxComplexSingle * get_complex_singles (void) const { panic_impossible (); }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2374
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2375 // We don't have complex integer types, but for separate storage they
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2376 // still would not work.
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2377 mxComplexInt8 * get_complex_int8s (void) const { panic_impossible (); }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2378 mxComplexInt16 * get_complex_int16s (void) const { panic_impossible (); }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2379 mxComplexInt32 * get_complex_int32s (void) const { panic_impossible (); }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2380 mxComplexInt64 * get_complex_int64s (void) const { panic_impossible (); }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2381 mxComplexUint8 * get_complex_uint8s (void) const { panic_impossible (); }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2382 mxComplexUint16 * get_complex_uint16s (void) const { panic_impossible (); }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2383 mxComplexUint32 * get_complex_uint32s (void) const { panic_impossible (); }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2384 mxComplexUint64 * get_complex_uint64s (void) const { panic_impossible (); }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2385
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2386 int set_doubles (mxDouble *) { panic_impossible (); }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2387 int set_singles (mxSingle *) { panic_impossible (); }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2388 int set_int8s (mxInt8 *) { panic_impossible (); }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2389 int set_int16s (mxInt16 *) { panic_impossible (); }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2390 int set_int32s (mxInt32 *) { panic_impossible (); }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2391 int set_int64s (mxInt64 *) { panic_impossible (); }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2392 int set_uint8s (mxUint8 *) { panic_impossible (); }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2393 int set_uint16s (mxUint16 *) { panic_impossible (); }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2394 int set_uint32s (mxUint32 *) { panic_impossible (); }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2395 int set_uint64s (mxUint64 *) { panic_impossible (); }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2396
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2397 int set_complex_doubles (mxComplexDouble *) { panic_impossible (); }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2398 int set_complex_singles (mxComplexSingle *) { panic_impossible (); }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2399
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2400 // We don't have complex integer types, but for separate storage they
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2401 // still would not work.
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2402 int set_complex_int8s (mxComplexInt8 *) { panic_impossible (); }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2403 int set_complex_int16s (mxComplexInt16 *) { panic_impossible (); }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2404 int set_complex_int32s (mxComplexInt32 *) { panic_impossible (); }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2405 int set_complex_int64s (mxComplexInt64 *) { panic_impossible (); }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2406 int set_complex_uint8s (mxComplexUint8 *) { panic_impossible (); }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2407 int set_complex_uint16s (mxComplexUint16 *) { panic_impossible (); }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2408 int set_complex_uint32s (mxComplexUint32 *) { panic_impossible (); }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2409 int set_complex_uint64s (mxComplexUint64 *) { panic_impossible (); }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2410
30226 f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2411 octave_value as_octave_value (void) const
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2412 {
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2413 if (! is_complex ())
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2414 return mxArray_base_full::as_octave_value ();
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2415
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2416 octave_value retval;
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2417
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2418 dim_vector dv = dims_to_dim_vector ();
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2419
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2420 switch (get_class_id ())
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2421 {
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2422 case mxDOUBLE_CLASS:
30227 b00ff462e0f2 improve efficiency of mxArray -> octave_value conversion John W. Eaton <jwe@octave.org> parents: 30226 diff changeset	2423 return to_ov<double> (dv);
30226 f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2424
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2425 case mxSINGLE_CLASS:
30227 b00ff462e0f2 improve efficiency of mxArray -> octave_value conversion John W. Eaton <jwe@octave.org> parents: 30226 diff changeset	2426 return to_ov<float> (dv);
30226 f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2427
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2428 case mxLOGICAL_CLASS:
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2429 case mxINT8_CLASS:
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2430 case mxUINT8_CLASS:
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2431 case mxINT16_CLASS:
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2432 case mxUINT16_CLASS:
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2433 case mxINT32_CLASS:
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2434 case mxUINT32_CLASS:
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2435 case mxINT64_CLASS:
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2436 case mxUINT64_CLASS:
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2437 error ("complex integer types are not supported");
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2438
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2439 default:
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2440 panic_impossible ();
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2441 }
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2442
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2443 return retval;
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2444 }
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2445
30224 8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2446 protected:
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2447
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2448 mxArray_separate_full (const mxArray_separate_full& val)
30226 f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2449 : mxArray_base_full (val),
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2450 m_pi (val.m_pi
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2451 ? mxArray::malloc (get_number_of_elements () * get_element_size ())
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2452 : nullptr)
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2453 {
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2454 if (m_pi)
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2455 memcpy (m_pi, val.m_pi, get_number_of_elements () * get_element_size ());
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2456 }
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2457
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2458 private:
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2459
30227 b00ff462e0f2 improve efficiency of mxArray -> octave_value conversion John W. Eaton <jwe@octave.org> parents: 30226 diff changeset	2460 template <typename T>
b00ff462e0f2 improve efficiency of mxArray -> octave_value conversion John W. Eaton <jwe@octave.org> parents: 30226 diff changeset	2461 octave_value
b00ff462e0f2 improve efficiency of mxArray -> octave_value conversion John W. Eaton <jwe@octave.org> parents: 30226 diff changeset	2462 to_ov (const dim_vector& dv) const
b00ff462e0f2 improve efficiency of mxArray -> octave_value conversion John W. Eaton <jwe@octave.org> parents: 30226 diff changeset	2463 {
b00ff462e0f2 improve efficiency of mxArray -> octave_value conversion John W. Eaton <jwe@octave.org> parents: 30226 diff changeset	2464 mwSize nel = get_number_of_elements ();
b00ff462e0f2 improve efficiency of mxArray -> octave_value conversion John W. Eaton <jwe@octave.org> parents: 30226 diff changeset	2465
b00ff462e0f2 improve efficiency of mxArray -> octave_value conversion John W. Eaton <jwe@octave.org> parents: 30226 diff changeset	2466 T ppr = static_cast<T > (m_pr);
b00ff462e0f2 improve efficiency of mxArray -> octave_value conversion John W. Eaton <jwe@octave.org> parents: 30226 diff changeset	2467
30488 abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	2468 // We allocate in the Array<T> constructor and copy here, so we
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	2469 // don't need the custom allocator for this object.
abb4823df535 with C++17, match malloc/free for MEX memory (bug #61472) John W. Eaton <jwe@octave.org> parents: 30428 diff changeset	2470
30227 b00ff462e0f2 improve efficiency of mxArray -> octave_value conversion John W. Eaton <jwe@octave.org> parents: 30226 diff changeset	2471 Array<std::complex<T>> val (dv);
b00ff462e0f2 improve efficiency of mxArray -> octave_value conversion John W. Eaton <jwe@octave.org> parents: 30226 diff changeset	2472
b00ff462e0f2 improve efficiency of mxArray -> octave_value conversion John W. Eaton <jwe@octave.org> parents: 30226 diff changeset	2473 std::complex<T> *ptr = val.fortran_vec ();
b00ff462e0f2 improve efficiency of mxArray -> octave_value conversion John W. Eaton <jwe@octave.org> parents: 30226 diff changeset	2474
b00ff462e0f2 improve efficiency of mxArray -> octave_value conversion John W. Eaton <jwe@octave.org> parents: 30226 diff changeset	2475 T ppi = static_cast<T > (m_pi);
b00ff462e0f2 improve efficiency of mxArray -> octave_value conversion John W. Eaton <jwe@octave.org> parents: 30226 diff changeset	2476
b00ff462e0f2 improve efficiency of mxArray -> octave_value conversion John W. Eaton <jwe@octave.org> parents: 30226 diff changeset	2477 for (mwIndex i = 0; i < nel; i++)
b00ff462e0f2 improve efficiency of mxArray -> octave_value conversion John W. Eaton <jwe@octave.org> parents: 30226 diff changeset	2478 ptr[i] = std::complex<T> (ppr[i], ppi[i]);
b00ff462e0f2 improve efficiency of mxArray -> octave_value conversion John W. Eaton <jwe@octave.org> parents: 30226 diff changeset	2479
b00ff462e0f2 improve efficiency of mxArray -> octave_value conversion John W. Eaton <jwe@octave.org> parents: 30226 diff changeset	2480 return octave_value (val);
b00ff462e0f2 improve efficiency of mxArray -> octave_value conversion John W. Eaton <jwe@octave.org> parents: 30226 diff changeset	2481 }
b00ff462e0f2 improve efficiency of mxArray -> octave_value conversion John W. Eaton <jwe@octave.org> parents: 30226 diff changeset	2482
30226 f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2483 // Pointer to the imaginary part of the data.
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2484 void *m_pi;
30224 8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2485 };
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2486
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2487 // Matlab-style sparse arrays.
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2488
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2489 class mxArray_base_sparse : public mxArray_matlab
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2490 {
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2491 public:
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2492
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2493 mxArray_base_sparse (bool interleaved, mxClassID id, mwSize m, mwSize n,
30226 f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2494 mwSize nzmax)
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2495 : mxArray_matlab (interleaved, id, m, n),
30213 27791344a45c * mex.cc: Don't use _arg prefix for function argument names if possible. John W. Eaton <jwe@octave.org> parents: 30212 diff changeset	2496
27791344a45c * mex.cc: Don't use _arg prefix for function argument names if possible. John W. Eaton <jwe@octave.org> parents: 30212 diff changeset	2497 m_nzmax (nzmax > 0 ? nzmax : 1),
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2498 m_ir (static_cast<mwIndex *> (mxArray::calloc (m_nzmax, sizeof (mwIndex)))),
30226 f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2499 m_jc (static_cast<mwIndex *> (mxArray::calloc (n + 1, sizeof (mwIndex)))),
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2500 m_pr (mxArray::calloc (m_nzmax, get_element_size ()))
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	2501 { }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2502
30224 8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2503 protected:
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2504
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2505 mxArray_base_sparse (const mxArray_base_sparse& val)
30212 c27b9ba4c9bd * mex.cc: Don't use m_ prefix for function arguments and local variables. John W. Eaton <jwe@octave.org> parents: 30129 diff changeset	2506 : mxArray_matlab (val), m_nzmax (val.m_nzmax),
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2507 m_ir (static_cast<mwIndex > (mxArray::malloc (m_nzmax sizeof (mwIndex)))),
30226 f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2508 m_jc (static_cast<mwIndex > (mxArray::malloc (m_nzmax sizeof (mwIndex)))),
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2509 m_pr (mxArray::malloc (m_nzmax * get_element_size ()))
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2510 {
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2511 if (m_ir)
30212 c27b9ba4c9bd * mex.cc: Don't use m_ prefix for function arguments and local variables. John W. Eaton <jwe@octave.org> parents: 30129 diff changeset	2512 memcpy (m_ir, val.m_ir, m_nzmax * sizeof (mwIndex));
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2513
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2514 if (m_jc)
30212 c27b9ba4c9bd * mex.cc: Don't use m_ prefix for function arguments and local variables. John W. Eaton <jwe@octave.org> parents: 30129 diff changeset	2515 memcpy (m_jc, val.m_jc, (val.get_n () + 1) * sizeof (mwIndex));
30226 f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2516
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2517 if (m_pr)
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2518 memcpy (m_pr, val.m_pr, m_nzmax * get_element_size ());
22869 f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	2519 }
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	2520
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	2521 public:
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	2522
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	2523 // 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	2524 // do have a copy constructor.
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	2525
30224 8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2526 mxArray_base_sparse& operator = (const mxArray_base_sparse&);
22869 f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	2527
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	2528 mxArray_base * dup (void) const
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	2529 {
30224 8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2530 return new mxArray_base_sparse (*this);
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	2531 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2532
30224 8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2533 ~mxArray_base_sparse (void)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2534 {
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2535 mxFree (m_ir);
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2536 mxFree (m_jc);
30226 f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2537 mxFree (m_pr);
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	2538 }
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	2539
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	2540 int is_sparse (void) const { return 1; }
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	2541
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2542 void * get_data (void) const { return m_pr; }
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	2543
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2544 void set_data (void *pr) { m_pr = pr; }
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2545
30225 3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2546 mxDouble * get_doubles (void) const
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2547 {
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2548 return static_cast<mxDouble *> (m_pr);
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2549 }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2550
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2551 mxComplexDouble * get_complex_doubles (void) const
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2552 {
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2553 return static_cast<mxComplexDouble *> (m_pr);
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2554 }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2555
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2556 int set_doubles (mxDouble *d)
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2557 {
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2558 m_pr = d;
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2559 return 0;
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2560 }
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2561
30226 f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2562 int set_complex_doubles (mxComplexDouble *d)
30225 3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2563 {
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2564 m_pr = d;
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2565 return 0;
3a988323d5d7 refactor typed data get and set methods for mxArray objects John W. Eaton <jwe@octave.org> parents: 30224 diff changeset	2566 }
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	2567
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2568 mwIndex * get_ir (void) const { return m_ir; }
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2569
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2570 mwIndex * get_jc (void) const { return m_jc; }
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2571
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2572 mwSize get_nzmax (void) const { return m_nzmax; }
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2573
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2574 void set_ir (mwIndex *ir) { m_ir = ir; }
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2575
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2576 void set_jc (mwIndex *jc) { m_jc = jc; }
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2577
30213 27791344a45c * mex.cc: Don't use _arg prefix for function argument names if possible. John W. Eaton <jwe@octave.org> parents: 30212 diff changeset	2578 void set_nzmax (mwSize nzmax)
27083 23761e83756f Always reserve memory for 1-element in sparse mxArray matrices (bug #56232). Rik <rik@octave.org> parents: 26997 diff changeset	2579 {
23761e83756f Always reserve memory for 1-element in sparse mxArray matrices (bug #56232). Rik <rik@octave.org> parents: 26997 diff changeset	2580 /* Require storage for at least 1 element */
30213 27791344a45c * mex.cc: Don't use _arg prefix for function argument names if possible. John W. Eaton <jwe@octave.org> parents: 30212 diff changeset	2581 m_nzmax = (nzmax > 0 ? nzmax : 1);
27083 23761e83756f Always reserve memory for 1-element in sparse mxArray matrices (bug #56232). Rik <rik@octave.org> parents: 26997 diff changeset	2582 }
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	2583
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2584 octave_value as_octave_value (void) const
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2585 {
5903 11bb9bf343a0 [project @ 2006-07-26 03:36:33 by jwe] jwe parents: 5902 diff changeset	2586 octave_value retval;
11bb9bf343a0 [project @ 2006-07-26 03:36:33 by jwe] jwe parents: 5902 diff changeset	2587
30227 b00ff462e0f2 improve efficiency of mxArray -> octave_value conversion John W. Eaton <jwe@octave.org> parents: 30226 diff changeset	2588 dim_vector dv = dims_to_dim_vector ();
b00ff462e0f2 improve efficiency of mxArray -> octave_value conversion John W. Eaton <jwe@octave.org> parents: 30226 diff changeset	2589
30226 f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2590 switch (get_class_id ())
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2591 {
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2592 case mxDOUBLE_CLASS:
30227 b00ff462e0f2 improve efficiency of mxArray -> octave_value conversion John W. Eaton <jwe@octave.org> parents: 30226 diff changeset	2593 return is_complex () ? to_ov<Complex> (dv): to_ov<double> (dv);
30226 f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2594
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2595 case mxSINGLE_CLASS:
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2596 error ("single precision sparse data type not supported");
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2597
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2598 case mxLOGICAL_CLASS:
30227 b00ff462e0f2 improve efficiency of mxArray -> octave_value conversion John W. Eaton <jwe@octave.org> parents: 30226 diff changeset	2599 return to_ov<bool> (dv);
30226 f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2600
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2601 default:
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2602 panic_impossible ();
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2603 }
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2604
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2605 return retval;
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2606 }
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2607
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2608 protected:
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2609
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2610 template <typename ELT_T>
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2611 octave_value
30227 b00ff462e0f2 improve efficiency of mxArray -> octave_value conversion John W. Eaton <jwe@octave.org> parents: 30226 diff changeset	2612 to_ov (const dim_vector& dv) const
30226 f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2613 {
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2614 ELT_T ppr = static_cast<ELT_T > (m_pr);
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2615
30227 b00ff462e0f2 improve efficiency of mxArray -> octave_value conversion John W. Eaton <jwe@octave.org> parents: 30226 diff changeset	2616 Sparse<ELT_T> val (dv, static_cast<octave_idx_type> (m_nzmax),
b00ff462e0f2 improve efficiency of mxArray -> octave_value conversion John W. Eaton <jwe@octave.org> parents: 30226 diff changeset	2617 ppr, m_ir, m_jc);
b00ff462e0f2 improve efficiency of mxArray -> octave_value conversion John W. Eaton <jwe@octave.org> parents: 30226 diff changeset	2618
b00ff462e0f2 improve efficiency of mxArray -> octave_value conversion John W. Eaton <jwe@octave.org> parents: 30226 diff changeset	2619 maybe_disown_ptr (m_pr);
b00ff462e0f2 improve efficiency of mxArray -> octave_value conversion John W. Eaton <jwe@octave.org> parents: 30226 diff changeset	2620 maybe_disown_ptr (m_ir);
b00ff462e0f2 improve efficiency of mxArray -> octave_value conversion John W. Eaton <jwe@octave.org> parents: 30226 diff changeset	2621 maybe_disown_ptr (m_jc);
30226 f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2622
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2623 return octave_value (val);
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2624 }
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2625
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2626 // Maximun number of nonzero elements.
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2627 mwSize m_nzmax;
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2628
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2629 // Sparse storage indexing arrays.
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2630 mwIndex *m_ir;
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2631 mwIndex *m_jc;
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2632
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2633 // If using interleaved complex storage, this is the pointer to data
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2634 // (real, complex, or logical). Otherwise, it is the pointer to the
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2635 // real part of the data.
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2636 void *m_pr;
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2637 };
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2638
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2639 class mxArray_interleaved_sparse : public mxArray_base_sparse
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2640 {
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2641 public:
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2642
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2643 mxArray_interleaved_sparse (mxClassID id, mwSize m, mwSize n, mwSize nzmax,
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2644 mxComplexity flag = mxREAL)
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2645 : mxArray_base_sparse (true, id, m, n, nzmax),
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2646 m_complex (flag == mxCOMPLEX)
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2647 { }
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2648
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2649 private:
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2650
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2651 mxArray_interleaved_sparse (const mxArray_interleaved_sparse& val)
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2652 : mxArray_base_sparse (val), m_complex (val.m_complex)
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2653 { }
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2654
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2655 public:
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2656
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2657 // No assignment! FIXME: should this be implemented? Note that we
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2658 // do have a copy constructor.
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2659
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2660 mxArray_interleaved_sparse& operator = (const mxArray_interleaved_sparse&);
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2661
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2662 mxArray_base * dup (void) const
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2663 {
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2664 return new mxArray_interleaved_sparse (*this);
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2665 }
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2666
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2667 ~mxArray_interleaved_sparse (void) = default;
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2668
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2669 int is_complex (void) const { return m_complex; }
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2670
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2671 void * get_imag_data (void) const { panic_impossible (); }
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2672
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2673 void set_imag_data (void /pi*/) { panic_impossible (); }
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2674
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2675 private:
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2676
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2677 // Flag to identify complex object if using interleaved data and PI is
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2678 // always nullptr.
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2679 bool m_complex;
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2680 };
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2681
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2682 class mxArray_separate_sparse : public mxArray_base_sparse
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2683 {
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2684 public:
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2685
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2686 mxArray_separate_sparse (mxClassID id, mwSize m, mwSize n, mwSize nzmax,
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2687 mxComplexity flag = mxREAL)
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2688 : mxArray_base_sparse (false, id, m, n, nzmax),
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2689 m_pi (flag == mxCOMPLEX
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2690 ? mxArray::calloc (m_nzmax, get_element_size ())
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2691 : nullptr)
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2692 { }
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2693
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2694 private:
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2695
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2696 mxArray_separate_sparse (const mxArray_separate_sparse& val)
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2697 : mxArray_base_sparse (val),
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2698 m_pi (val.m_pi
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2699 ? mxArray::malloc (m_nzmax * get_element_size ())
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2700 : nullptr)
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2701 {
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2702 if (m_pi)
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2703 memcpy (m_pi, val.m_pi, m_nzmax * get_element_size ());
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2704 }
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2705
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2706 public:
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2707
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2708 // No assignment! FIXME: should this be implemented? Note that we
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2709 // do have a copy constructor.
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2710
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2711 mxArray_separate_sparse& operator = (const mxArray_separate_sparse&);
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2712
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2713 mxArray_base * dup (void) const
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2714 {
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2715 return new mxArray_separate_sparse (*this);
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2716 }
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2717
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2718 ~mxArray_separate_sparse (void)
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2719 {
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2720 mxFree (m_pi);
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2721 }
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2722
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2723 int is_complex (void) const
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2724 {
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2725 return m_pi != nullptr;
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2726 }
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2727
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2728 void * get_imag_data (void) const { return m_pi; }
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2729
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2730 void set_imag_data (void *pi) { m_pi = pi; }
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2731
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2732 mxDouble * get_doubles (void) const { panic_impossible (); }
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2733 mxComplexDouble * get_complex_doubles (void) const { panic_impossible (); }
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2734
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2735 int set_doubles (mxDouble *) { panic_impossible (); }
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2736 int set_complex_doubles (mxComplexDouble *) { panic_impossible (); }
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2737
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2738 octave_value as_octave_value (void) const
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2739 {
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2740 if (! is_complex ())
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2741 return mxArray_base_sparse::as_octave_value ();
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2742
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2743 octave_value retval;
5903 11bb9bf343a0 [project @ 2006-07-26 03:36:33 by jwe] jwe parents: 5902 diff changeset	2744
30227 b00ff462e0f2 improve efficiency of mxArray -> octave_value conversion John W. Eaton <jwe@octave.org> parents: 30226 diff changeset	2745 dim_vector dv = dims_to_dim_vector ();
b00ff462e0f2 improve efficiency of mxArray -> octave_value conversion John W. Eaton <jwe@octave.org> parents: 30226 diff changeset	2746
5903 11bb9bf343a0 [project @ 2006-07-26 03:36:33 by jwe] jwe parents: 5902 diff changeset	2747 switch (get_class_id ())
11bb9bf343a0 [project @ 2006-07-26 03:36:33 by jwe] jwe parents: 5902 diff changeset	2748 {
11bb9bf343a0 [project @ 2006-07-26 03:36:33 by jwe] jwe parents: 5902 diff changeset	2749 case mxDOUBLE_CLASS:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2750 {
30226 f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2751 double ppr = static_cast<double > (m_pr);
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2752 double ppi = static_cast<double > (m_pi);
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2753
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2754 SparseComplexMatrix val (get_m (), get_n (),
f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2755 static_cast<octave_idx_type> (m_nzmax));
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2756
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2757 for (mwIndex i = 0; i < m_nzmax; i++)
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	2758 {
30226 f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2759 val.xdata (i) = Complex (ppr[i], ppi[i]);
30212 c27b9ba4c9bd * mex.cc: Don't use m_ prefix for function arguments and local variables. John W. Eaton <jwe@octave.org> parents: 30129 diff changeset	2760 val.xridx (i) = m_ir[i];
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	2761 }
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	2762
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	2763 for (mwIndex i = 0; i < get_n () + 1; i++)
30212 c27b9ba4c9bd * mex.cc: Don't use m_ prefix for function arguments and local variables. John W. Eaton <jwe@octave.org> parents: 30129 diff changeset	2764 val.xcidx (i) = m_jc[i];
c27b9ba4c9bd * mex.cc: Don't use m_ prefix for function arguments and local variables. John W. Eaton <jwe@octave.org> parents: 30129 diff changeset	2765
c27b9ba4c9bd * mex.cc: Don't use m_ prefix for function arguments and local variables. John W. Eaton <jwe@octave.org> parents: 30129 diff changeset	2766 retval = val;
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	2767 }
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	2768 break;
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	2769
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	2770 case mxSINGLE_CLASS:
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	2771 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	2772
5903 11bb9bf343a0 [project @ 2006-07-26 03:36:33 by jwe] jwe parents: 5902 diff changeset	2773 default:
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2774 panic_impossible ();
5903 11bb9bf343a0 [project @ 2006-07-26 03:36:33 by jwe] jwe parents: 5902 diff changeset	2775 }
11bb9bf343a0 [project @ 2006-07-26 03:36:33 by jwe] jwe parents: 5902 diff changeset	2776
11bb9bf343a0 [project @ 2006-07-26 03:36:33 by jwe] jwe parents: 5902 diff changeset	2777 return retval;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2778 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2779
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2780 private:
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2781
30226 f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	2782 // Pointer to the imaginary part of the data.
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2783 void *m_pi;
30224 8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2784 };
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	2785
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2786 // Matlab-style struct arrays.
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 class mxArray_struct : public mxArray_matlab
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2789 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2790 public:
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2791
30213 27791344a45c * mex.cc: Don't use _arg prefix for function argument names if possible. John W. Eaton <jwe@octave.org> parents: 30212 diff changeset	2792 mxArray_struct (bool interleaved, mwSize ndims, const mwSize *dims,
27791344a45c * mex.cc: Don't use _arg prefix for function argument names if possible. John W. Eaton <jwe@octave.org> parents: 30212 diff changeset	2793 int num_keys, const char **keys)
27791344a45c * mex.cc: Don't use _arg prefix for function argument names if possible. John W. Eaton <jwe@octave.org> parents: 30212 diff changeset	2794 : mxArray_matlab (interleaved, mxSTRUCT_CLASS, ndims, dims),
27791344a45c * mex.cc: Don't use _arg prefix for function argument names if possible. John W. Eaton <jwe@octave.org> parents: 30212 diff changeset	2795 m_nfields (num_keys),
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2796 m_fields (static_cast<char **> (mxArray::calloc (m_nfields,
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2797 sizeof (char *)))),
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2798 m_data (static_cast<mxArray *> (mxArray::calloc (m_nfields
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2799 get_number_of_elements (),
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2800 sizeof (mxArray *))))
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2801 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2802 init (keys);
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
30213 27791344a45c * mex.cc: Don't use _arg prefix for function argument names if possible. John W. Eaton <jwe@octave.org> parents: 30212 diff changeset	2805 mxArray_struct (bool interleaved, const dim_vector& dv, int num_keys,
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	2806 const char **keys)
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2807 : mxArray_matlab (interleaved, mxSTRUCT_CLASS, dv),
30213 27791344a45c * mex.cc: Don't use _arg prefix for function argument names if possible. John W. Eaton <jwe@octave.org> parents: 30212 diff changeset	2808 m_nfields (num_keys),
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2809 m_fields (static_cast<char **> (mxArray::calloc (m_nfields,
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2810 sizeof (char *)))),
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2811 m_data (static_cast<mxArray *> (mxArray::calloc (m_nfields
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2812 get_number_of_elements (),
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2813 sizeof (mxArray *))))
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2814 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2815 init (keys);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2816 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2817
30213 27791344a45c * mex.cc: Don't use _arg prefix for function argument names if possible. John W. Eaton <jwe@octave.org> parents: 30212 diff changeset	2818 mxArray_struct (bool interleaved, mwSize m, mwSize n, int num_keys,
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	2819 const char **keys)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	2820 : mxArray_matlab (interleaved, mxSTRUCT_CLASS, m, n),
30213 27791344a45c * mex.cc: Don't use _arg prefix for function argument names if possible. John W. Eaton <jwe@octave.org> parents: 30212 diff changeset	2821 m_nfields (num_keys),
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2822 m_fields (static_cast<char **> (mxArray::calloc (m_nfields,
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2823 sizeof (char *)))),
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2824 m_data (static_cast<mxArray *> (mxArray::calloc (m_nfields
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2825 get_number_of_elements (),
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2826 sizeof (mxArray *))))
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2827 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2828 init (keys);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2829 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2830
22869 f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	2831 private:
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	2832
30212 c27b9ba4c9bd * mex.cc: Don't use m_ prefix for function arguments and local variables. John W. Eaton <jwe@octave.org> parents: 30129 diff changeset	2833 mxArray_struct (const mxArray_struct& val)
c27b9ba4c9bd * mex.cc: Don't use m_ prefix for function arguments and local variables. John W. Eaton <jwe@octave.org> parents: 30129 diff changeset	2834 : mxArray_matlab (val), m_nfields (val.m_nfields),
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2835 m_fields (static_cast<char **> (mxArray::malloc (m_nfields
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2836 * sizeof (char *)))),
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2837 m_data (static_cast<mxArray *> (mxArray::malloc (m_nfields
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2838 get_number_of_elements ()
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2839 * sizeof (mxArray *))))
22869 f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	2840 {
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2841 for (int i = 0; i < m_nfields; i++)
30212 c27b9ba4c9bd * mex.cc: Don't use m_ prefix for function arguments and local variables. John W. Eaton <jwe@octave.org> parents: 30129 diff changeset	2842 m_fields[i] = mxArray::strsave (val.m_fields[i]);
22869 f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	2843
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	2844 mwSize nel = get_number_of_elements ();
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	2845
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2846 for (mwIndex i = 0; i < nel * m_nfields; i++)
22869 f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	2847 {
30212 c27b9ba4c9bd * mex.cc: Don't use m_ prefix for function arguments and local variables. John W. Eaton <jwe@octave.org> parents: 30129 diff changeset	2848 mxArray *ptr = val.m_data[i];
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2849 m_data[i] = (ptr ? ptr->dup () : nullptr);
22869 f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	2850 }
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	2851 }
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	2852
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	2853 public:
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	2854
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	2855 // 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	2856 // do have a copy constructor.
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	2857
30212 c27b9ba4c9bd * mex.cc: Don't use m_ prefix for function arguments and local variables. John W. Eaton <jwe@octave.org> parents: 30129 diff changeset	2858 mxArray_struct& operator = (const mxArray_struct& val);
22869 f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	2859
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2860 void init (const char **keys)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2861 {
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2862 for (int i = 0; i < m_nfields; i++)
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2863 m_fields[i] = mxArray::strsave (keys[i]);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2864 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2865
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	2866 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	2867
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2868 ~mxArray_struct (void)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2869 {
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2870 for (int i = 0; i < m_nfields; i++)
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2871 mxFree (m_fields[i]);
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2872
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2873 mxFree (m_fields);
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2874
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2875 mwSize ntot = m_nfields * get_number_of_elements ();
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2876
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2877 for (mwIndex i = 0; i < ntot; i++)
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2878 delete m_data[i];
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2879
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2880 mxFree (m_data);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2881 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2882
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2883 int add_field (const char *key)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2884 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2885 int retval = -1;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2886
30349 5c6c5c8bbefd mxAddField: Allow keys to contain any characters (bug #61537) John W. Eaton <jwe@octave.org> parents: 30232 diff changeset	2887 m_nfields++;
5c6c5c8bbefd mxAddField: Allow keys to contain any characters (bug #61537) John W. Eaton <jwe@octave.org> parents: 30232 diff changeset	2888
5c6c5c8bbefd mxAddField: Allow keys to contain any characters (bug #61537) John W. Eaton <jwe@octave.org> parents: 30232 diff changeset	2889 m_fields = static_cast<char **>
5c6c5c8bbefd mxAddField: Allow keys to contain any characters (bug #61537) John W. Eaton <jwe@octave.org> parents: 30232 diff changeset	2890 (mxRealloc (m_fields, m_nfields * sizeof (char *)));
5c6c5c8bbefd mxAddField: Allow keys to contain any characters (bug #61537) John W. Eaton <jwe@octave.org> parents: 30232 diff changeset	2891
5c6c5c8bbefd mxAddField: Allow keys to contain any characters (bug #61537) John W. Eaton <jwe@octave.org> parents: 30232 diff changeset	2892 if (m_fields)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2893 {
30349 5c6c5c8bbefd mxAddField: Allow keys to contain any characters (bug #61537) John W. Eaton <jwe@octave.org> parents: 30232 diff changeset	2894 m_fields[m_nfields-1] = mxArray::strsave (key);
5c6c5c8bbefd mxAddField: Allow keys to contain any characters (bug #61537) John W. Eaton <jwe@octave.org> parents: 30232 diff changeset	2895
5c6c5c8bbefd mxAddField: Allow keys to contain any characters (bug #61537) John W. Eaton <jwe@octave.org> parents: 30232 diff changeset	2896 mwSize nel = get_number_of_elements ();
5c6c5c8bbefd mxAddField: Allow keys to contain any characters (bug #61537) John W. Eaton <jwe@octave.org> parents: 30232 diff changeset	2897
5c6c5c8bbefd mxAddField: Allow keys to contain any characters (bug #61537) John W. Eaton <jwe@octave.org> parents: 30232 diff changeset	2898 mwSize ntot = m_nfields * nel;
5c6c5c8bbefd mxAddField: Allow keys to contain any characters (bug #61537) John W. Eaton <jwe@octave.org> parents: 30232 diff changeset	2899
5c6c5c8bbefd mxAddField: Allow keys to contain any characters (bug #61537) John W. Eaton <jwe@octave.org> parents: 30232 diff changeset	2900 mxArray **new_data;
5c6c5c8bbefd mxAddField: Allow keys to contain any characters (bug #61537) John W. Eaton <jwe@octave.org> parents: 30232 diff changeset	2901 new_data = static_cast<mxArray **>
5c6c5c8bbefd mxAddField: Allow keys to contain any characters (bug #61537) John W. Eaton <jwe@octave.org> parents: 30232 diff changeset	2902 (mxArray::malloc (ntot * sizeof (mxArray *)));
5c6c5c8bbefd mxAddField: Allow keys to contain any characters (bug #61537) John W. Eaton <jwe@octave.org> parents: 30232 diff changeset	2903
5c6c5c8bbefd mxAddField: Allow keys to contain any characters (bug #61537) John W. Eaton <jwe@octave.org> parents: 30232 diff changeset	2904 if (new_data)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2905 {
30349 5c6c5c8bbefd mxAddField: Allow keys to contain any characters (bug #61537) John W. Eaton <jwe@octave.org> parents: 30232 diff changeset	2906 mwIndex j = 0;
5c6c5c8bbefd mxAddField: Allow keys to contain any characters (bug #61537) John W. Eaton <jwe@octave.org> parents: 30232 diff changeset	2907 mwIndex k = 0;
5c6c5c8bbefd mxAddField: Allow keys to contain any characters (bug #61537) John W. Eaton <jwe@octave.org> parents: 30232 diff changeset	2908 mwIndex n = 0;
5c6c5c8bbefd mxAddField: Allow keys to contain any characters (bug #61537) John W. Eaton <jwe@octave.org> parents: 30232 diff changeset	2909
5c6c5c8bbefd mxAddField: Allow keys to contain any characters (bug #61537) John W. Eaton <jwe@octave.org> parents: 30232 diff changeset	2910 for (mwIndex i = 0; i < ntot; i++)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2911 {
30349 5c6c5c8bbefd mxAddField: Allow keys to contain any characters (bug #61537) John W. Eaton <jwe@octave.org> parents: 30232 diff changeset	2912 if (++n == m_nfields)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2913 {
30349 5c6c5c8bbefd mxAddField: Allow keys to contain any characters (bug #61537) John W. Eaton <jwe@octave.org> parents: 30232 diff changeset	2914 new_data[j++] = nullptr;
5c6c5c8bbefd mxAddField: Allow keys to contain any characters (bug #61537) John W. Eaton <jwe@octave.org> parents: 30232 diff changeset	2915 n = 0;
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2916 }
30349 5c6c5c8bbefd mxAddField: Allow keys to contain any characters (bug #61537) John W. Eaton <jwe@octave.org> parents: 30232 diff changeset	2917 else
5c6c5c8bbefd mxAddField: Allow keys to contain any characters (bug #61537) John W. Eaton <jwe@octave.org> parents: 30232 diff changeset	2918 new_data[j++] = m_data[k++];
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2919 }
30349 5c6c5c8bbefd mxAddField: Allow keys to contain any characters (bug #61537) John W. Eaton <jwe@octave.org> parents: 30232 diff changeset	2920
5c6c5c8bbefd mxAddField: Allow keys to contain any characters (bug #61537) John W. Eaton <jwe@octave.org> parents: 30232 diff changeset	2921 mxFree (m_data);
5c6c5c8bbefd mxAddField: Allow keys to contain any characters (bug #61537) John W. Eaton <jwe@octave.org> parents: 30232 diff changeset	2922
5c6c5c8bbefd mxAddField: Allow keys to contain any characters (bug #61537) John W. Eaton <jwe@octave.org> parents: 30232 diff changeset	2923 m_data = new_data;
5c6c5c8bbefd mxAddField: Allow keys to contain any characters (bug #61537) John W. Eaton <jwe@octave.org> parents: 30232 diff changeset	2924
5c6c5c8bbefd mxAddField: Allow keys to contain any characters (bug #61537) John W. Eaton <jwe@octave.org> parents: 30232 diff changeset	2925 retval = m_nfields - 1;
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2926 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2927 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2928
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2929 return retval;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2930 }
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 void remove_field (int key_num)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2933 {
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2934 if (key_num >= 0 && key_num < m_nfields)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2935 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2936 mwSize nel = get_number_of_elements ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2937
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2938 mwSize ntot = m_nfields * nel;
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2939
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2940 int new_nfields = m_nfields - 1;
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2941
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	2942 char new_fields = static_cast<char >
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	2943 (mxArray::malloc (new_nfields * sizeof (char *)));
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	2944
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	2945 mxArray new_data = static_cast<mxArray >
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	2946 (mxArray::malloc (new_nfields * nel
175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	2947 * sizeof (mxArray *)));
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2948
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2949 for (int i = 0; i < key_num; i++)
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2950 new_fields[i] = m_fields[i];
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2951
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2952 for (int i = key_num + 1; i < m_nfields; i++)
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2953 new_fields[i-1] = m_fields[i];
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2954
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2955 if (new_nfields > 0)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2956 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2957 mwIndex j = 0;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2958 mwIndex k = 0;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2959 mwIndex n = 0;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2960
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2961 for (mwIndex i = 0; i < ntot; i++)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2962 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2963 if (n == key_num)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2964 k++;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2965 else
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2966 new_data[j++] = m_data[k++];
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2967
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2968 if (++n == m_nfields)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2969 n = 0;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2970 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2971 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	2972
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2973 m_nfields = new_nfields;
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2974
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2975 mxFree (m_fields);
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2976 mxFree (m_data);
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2977
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2978 m_fields = new_fields;
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2979 m_data = new_data;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2980 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2981 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2982
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	2983 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	2984 {
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2985 return key_num >= 0 && key_num < m_nfields
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2986 ? m_data[m_nfields * index + key_num] : nullptr;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2987 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2988
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	2989 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	2990
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2991 int get_number_of_fields (void) const { return m_nfields; }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2992
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	2993 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	2994 {
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	2995 return key_num >= 0 && key_num < m_nfields ? m_fields[key_num] : nullptr;
5900 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 int get_field_number (const char *key) const
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	2999 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3000 int retval = -1;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3001
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3002 for (int i = 0; i < m_nfields; i++)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3003 {
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3004 if (! strcmp (key, m_fields[i]))
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3005 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3006 retval = i;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3007 break;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3008 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3009 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3010
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3011 return retval;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3012 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3013
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3014 void * get_data (void) const { return m_data; }
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3015
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3016 void set_data (void data) { m_data = static_cast<mxArray *> (data); }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3017
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	3018 octave_value as_octave_value (void) const
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	3019 {
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	3020 dim_vector dv = dims_to_dim_vector ();
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	3021
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3022 string_vector keys (m_fields, m_nfields);
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	3023
25922 34e82a829fdd Create scalar structs of size 1x1 with MEX interface (bug #54799). Rik <rik@octave.org> parents: 25751 diff changeset	3024 octave_map m (dv);
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	3025
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3026 mwSize ntot = m_nfields * get_number_of_elements ();
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3027
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3028 for (int i = 0; i < m_nfields; i++)
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	3029 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3030 Cell c (dv);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3031
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3032 octave_value *p = c.fortran_vec ();
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3033
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3034 mwIndex k = 0;
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3035 for (mwIndex j = i; j < ntot; j += m_nfields)
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3036 p[k++] = mxArray::as_octave_value (m_data[j]);
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3037
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3038 m.assign (keys[i], c);
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	3039 }
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	3040
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	3041 return m;
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	3042 }
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	3043
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3044 private:
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3045
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3046 int m_nfields;
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3047
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3048 char **m_fields;
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3049
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3050 mxArray **m_data;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3051 };
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3052
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3053 // Matlab-style cell arrays.
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 class mxArray_cell : public mxArray_matlab
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3056 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3057 public:
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3058
30213 27791344a45c * mex.cc: Don't use _arg prefix for function argument names if possible. John W. Eaton <jwe@octave.org> parents: 30212 diff changeset	3059 mxArray_cell (bool interleaved, mwSize ndims, const mwSize *dims)
27791344a45c * mex.cc: Don't use _arg prefix for function argument names if possible. John W. Eaton <jwe@octave.org> parents: 30212 diff changeset	3060 : mxArray_matlab (interleaved, mxCELL_CLASS, ndims, dims),
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3061 m_data (static_cast<mxArray **> (
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3062 mxArray::calloc (get_number_of_elements (), sizeof (mxArray *))))
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3063 { }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3064
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3065 mxArray_cell (bool interleaved, const dim_vector& dv)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3066 : mxArray_matlab (interleaved, mxCELL_CLASS, dv),
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3067 m_data (static_cast<mxArray **> (
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3068 mxArray::calloc (get_number_of_elements (), sizeof (mxArray *))))
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3069 { }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3070
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3071 mxArray_cell (bool interleaved, mwSize m, mwSize n)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3072 : mxArray_matlab (interleaved, mxCELL_CLASS, m, n),
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3073 m_data (static_cast<mxArray **> (
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3074 mxArray::calloc (get_number_of_elements (), sizeof (mxArray *))))
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3075 { }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3076
22869 f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	3077 private:
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	3078
30212 c27b9ba4c9bd * mex.cc: Don't use m_ prefix for function arguments and local variables. John W. Eaton <jwe@octave.org> parents: 30129 diff changeset	3079 mxArray_cell (const mxArray_cell& val)
c27b9ba4c9bd * mex.cc: Don't use m_ prefix for function arguments and local variables. John W. Eaton <jwe@octave.org> parents: 30129 diff changeset	3080 : mxArray_matlab (val),
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3081 m_data (static_cast<mxArray **> (
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3082 mxArray::malloc (get_number_of_elements () * sizeof (mxArray *))))
22869 f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	3083 {
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	3084 mwSize nel = get_number_of_elements ();
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	3085
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	3086 for (mwIndex i = 0; i < nel; i++)
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	3087 {
30212 c27b9ba4c9bd * mex.cc: Don't use m_ prefix for function arguments and local variables. John W. Eaton <jwe@octave.org> parents: 30129 diff changeset	3088 mxArray *ptr = val.m_data[i];
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3089 m_data[i] = (ptr ? ptr->dup () : nullptr);
22869 f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	3090 }
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	3091 }
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	3092
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	3093 public:
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	3094
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	3095 // 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	3096 // do have a copy constructor.
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	3097
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	3098 mxArray_cell& operator = (const mxArray_cell&);
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	3099
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	3100 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	3101
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3102 ~mxArray_cell (void)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3103 {
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	3104 mwSize nel = get_number_of_elements ();
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	3105
22449 e337b8e3592c Fix double free causing segfault in mxSetDimensions (bug #49010). Rik <rik@octave.org> parents: 22407 diff changeset	3106 for (mwIndex i = 0; i < nel; i++)
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3107 delete m_data[i];
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3108
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3109 mxFree (m_data);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3110 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3111
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	3112 mxArray * get_cell (mwIndex idx) const
6187 2a8922007c12 [project @ 2006-11-29 01:59:59 by jwe] jwe parents: 6071 diff changeset	3113 {
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3114 return idx >= 0 && idx < get_number_of_elements () ? m_data[idx] : nullptr;
6187 2a8922007c12 [project @ 2006-11-29 01:59:59 by jwe] jwe parents: 6071 diff changeset	3115 }
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	3116
30212 c27b9ba4c9bd * mex.cc: Don't use m_ prefix for function arguments and local variables. John W. Eaton <jwe@octave.org> parents: 30129 diff changeset	3117 void set_cell (mwIndex idx, mxArray *val);
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3118
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3119 void * get_data (void) const { return m_data; }
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3120
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3121 void set_data (void data) { m_data = static_cast<mxArray *> (data); }
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	3122
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3123 octave_value as_octave_value (void) const
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3124 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3125 dim_vector dv = dims_to_dim_vector ();
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 Cell c (dv);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3128
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	3129 mwSize nel = get_number_of_elements ();
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3130
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3131 octave_value *p = c.fortran_vec ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3132
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	3133 for (mwIndex i = 0; i < nel; i++)
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3134 p[i] = mxArray::as_octave_value (m_data[i]);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3135
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3136 return c;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3137 }
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 private:
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3140
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3141 mxArray **m_data;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3142 };
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3143
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
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3146 mxArray::mxArray (bool interleaved, const octave_value& ov)
30122 8418f99cfcd0 maint: use "m_" prefix for member variables in class mxArray_base. Rik <rik@octave.org> parents: 30088 diff changeset	3147 : m_rep (create_rep (interleaved, ov)), m_name (nullptr)
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3148 { }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3149
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3150 mxArray::mxArray (bool interleaved, mxClassID id, mwSize ndims,
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3151 const mwSize *dims, mxComplexity flag, bool init)
30122 8418f99cfcd0 maint: use "m_" prefix for member variables in class mxArray_base. Rik <rik@octave.org> parents: 30088 diff changeset	3152 : m_rep (create_rep (interleaved, id, ndims, dims, flag, init)),
8418f99cfcd0 maint: use "m_" prefix for member variables in class mxArray_base. Rik <rik@octave.org> parents: 30088 diff changeset	3153 m_name (nullptr)
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3154 { }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3155
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3156 mxArray::mxArray (bool interleaved, mxClassID id, const dim_vector& dv,
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3157 mxComplexity flag)
30122 8418f99cfcd0 maint: use "m_" prefix for member variables in class mxArray_base. Rik <rik@octave.org> parents: 30088 diff changeset	3158 : m_rep (create_rep (interleaved, id, dv, flag)), m_name (nullptr)
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3159 { }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3160
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3161 mxArray::mxArray (bool interleaved, mxClassID id, mwSize m, mwSize n,
22464 1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	3162 mxComplexity flag, bool init)
30122 8418f99cfcd0 maint: use "m_" prefix for member variables in class mxArray_base. Rik <rik@octave.org> parents: 30088 diff changeset	3163 : m_rep (create_rep (interleaved, id, m, n, flag, init)), m_name (nullptr)
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3164 { }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3165
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3166 mxArray::mxArray (bool interleaved, mxClassID id, double val)
30122 8418f99cfcd0 maint: use "m_" prefix for member variables in class mxArray_base. Rik <rik@octave.org> parents: 30088 diff changeset	3167 : m_rep (create_rep (interleaved, id, val)), m_name (nullptr)
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3168 { }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3169
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3170 mxArray::mxArray (bool interleaved, mxClassID id, mxLogical val)
30122 8418f99cfcd0 maint: use "m_" prefix for member variables in class mxArray_base. Rik <rik@octave.org> parents: 30088 diff changeset	3171 : m_rep (create_rep (interleaved, id, val)), m_name (nullptr)
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3172 { }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3173
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3174 mxArray::mxArray (bool interleaved, const char *str)
30122 8418f99cfcd0 maint: use "m_" prefix for member variables in class mxArray_base. Rik <rik@octave.org> parents: 30088 diff changeset	3175 : m_rep (create_rep (interleaved, str)), m_name (nullptr)
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3176 { }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3177
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3178 mxArray::mxArray (bool interleaved, mwSize m, const char **str)
30122 8418f99cfcd0 maint: use "m_" prefix for member variables in class mxArray_base. Rik <rik@octave.org> parents: 30088 diff changeset	3179 : m_rep (create_rep (interleaved, m, str)), m_name (nullptr)
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3180 { }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3181
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3182 mxArray::mxArray (bool interleaved, mxClassID id, mwSize m, mwSize n,
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3183 mwSize nzmax, mxComplexity flag)
30122 8418f99cfcd0 maint: use "m_" prefix for member variables in class mxArray_base. Rik <rik@octave.org> parents: 30088 diff changeset	3184 : m_rep (create_rep (interleaved, id, m, n, nzmax, flag)), m_name (nullptr)
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3185 { }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3186
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3187 mxArray::mxArray (bool interleaved, mwSize ndims, const mwSize *dims,
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3188 int num_keys,
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	3189 const char **keys)
30122 8418f99cfcd0 maint: use "m_" prefix for member variables in class mxArray_base. Rik <rik@octave.org> parents: 30088 diff changeset	3190 : m_rep (new mxArray_struct (interleaved, ndims, dims, num_keys, keys)),
8418f99cfcd0 maint: use "m_" prefix for member variables in class mxArray_base. Rik <rik@octave.org> parents: 30088 diff changeset	3191 m_name (nullptr)
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3192 { }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3193
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3194 mxArray::mxArray (bool interleaved, const dim_vector& dv, int num_keys,
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3195 const char **keys)
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3196 : m_rep (new mxArray_struct (interleaved, dv, num_keys, keys)),
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3197 m_name (nullptr)
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3198 { }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3199
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3200 mxArray::mxArray (bool interleaved, mwSize m, mwSize n, int num_keys,
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3201 const char **keys)
30122 8418f99cfcd0 maint: use "m_" prefix for member variables in class mxArray_base. Rik <rik@octave.org> parents: 30088 diff changeset	3202 : m_rep (new mxArray_struct (interleaved, m, n, num_keys, keys)),
8418f99cfcd0 maint: use "m_" prefix for member variables in class mxArray_base. Rik <rik@octave.org> parents: 30088 diff changeset	3203 m_name (nullptr)
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3204 { }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3205
30212 c27b9ba4c9bd * mex.cc: Don't use m_ prefix for function arguments and local variables. John W. Eaton <jwe@octave.org> parents: 30129 diff changeset	3206 mxArray::mxArray (bool interleaved, mwSize ndims, const mwSize *dims)
c27b9ba4c9bd * mex.cc: Don't use m_ prefix for function arguments and local variables. John W. Eaton <jwe@octave.org> parents: 30129 diff changeset	3207 : m_rep (new mxArray_cell (interleaved, ndims, dims)), m_name (nullptr)
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3208 { }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3209
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3210 mxArray::mxArray (bool interleaved, const dim_vector& dv)
30122 8418f99cfcd0 maint: use "m_" prefix for member variables in class mxArray_base. Rik <rik@octave.org> parents: 30088 diff changeset	3211 : m_rep (new mxArray_cell (interleaved, dv)), m_name (nullptr)
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3212 { }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3213
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3214 mxArray::mxArray (bool interleaved, mwSize m, mwSize n)
30122 8418f99cfcd0 maint: use "m_" prefix for member variables in class mxArray_base. Rik <rik@octave.org> parents: 30088 diff changeset	3215 : m_rep (new mxArray_cell (interleaved, m, n)), m_name (nullptr)
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3216 { }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3217
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3218 mxArray::~mxArray (void)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3219 {
30122 8418f99cfcd0 maint: use "m_" prefix for member variables in class mxArray_base. Rik <rik@octave.org> parents: 30088 diff changeset	3220 mxFree (m_name);
8418f99cfcd0 maint: use "m_" prefix for member variables in class mxArray_base. Rik <rik@octave.org> parents: 30088 diff changeset	3221
8418f99cfcd0 maint: use "m_" prefix for member variables in class mxArray_base. Rik <rik@octave.org> parents: 30088 diff changeset	3222 delete m_rep;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3223 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3224
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3225 void
30122 8418f99cfcd0 maint: use "m_" prefix for member variables in class mxArray_base. Rik <rik@octave.org> parents: 30088 diff changeset	3226 mxArray::set_name (const char *name)
8418f99cfcd0 maint: use "m_" prefix for member variables in class mxArray_base. Rik <rik@octave.org> parents: 30088 diff changeset	3227 {
8418f99cfcd0 maint: use "m_" prefix for member variables in class mxArray_base. Rik <rik@octave.org> parents: 30088 diff changeset	3228 mxFree (m_name);
8418f99cfcd0 maint: use "m_" prefix for member variables in class mxArray_base. Rik <rik@octave.org> parents: 30088 diff changeset	3229 m_name = mxArray::strsave (name);
5900 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
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	3232 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	3233 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	3234 {
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	3235 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	3236
f84755f24ccd allow NULL mxArray* to be returned as undefined from fcn calls (bug #54096) John W. Eaton <jwe@octave.org> parents: 25450 diff changeset	3237 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	3238 ? 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	3239 : (null_is_empty ? empty_matrix : octave_value ()));
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	3240 }
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	3241
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	3242 octave_value
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	3243 mxArray::as_octave_value (void) const
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	3244 {
30122 8418f99cfcd0 maint: use "m_" prefix for member variables in class mxArray_base. Rik <rik@octave.org> parents: 30088 diff changeset	3245 return m_rep->as_octave_value ();
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	3246 }
288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	3247
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3248 mxArray_base *
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3249 mxArray::create_rep (bool interleaved, const octave_value& ov)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3250 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3251 return new mxArray_octave_value (interleaved, ov);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3252 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3253
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3254 mxArray_base *
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3255 mxArray::create_rep (bool interleaved, mxClassID id, mwSize ndims,
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3256 const mwSize *dims, mxComplexity flag, bool init)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3257 {
30224 8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	3258 if (interleaved)
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	3259 return new mxArray_interleaved_full (id, ndims, dims, flag, init);
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	3260 else
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	3261 return new mxArray_separate_full (id, ndims, dims, flag, init);
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3262 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3263
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3264 mxArray_base *
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3265 mxArray::create_rep (bool interleaved, mxClassID id, const dim_vector& dv,
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3266 mxComplexity flag)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3267 {
30224 8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	3268 if (interleaved)
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	3269 return new mxArray_interleaved_full (id, dv, flag);
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	3270 else
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	3271 return new mxArray_separate_full (id, dv, flag);
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3272 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3273
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3274 mxArray_base *
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3275 mxArray::create_rep (bool interleaved, mxClassID id, mwSize m, mwSize n,
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3276 mxComplexity flag, bool init)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3277 {
30224 8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	3278 if (interleaved)
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	3279 return new mxArray_interleaved_full (id, m, n, flag, init);
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	3280 else
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	3281 return new mxArray_separate_full (id, m, n, flag, init);
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3282 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3283
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3284 mxArray_base *
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3285 mxArray::create_rep (bool interleaved, mxClassID id, double val)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3286 {
30224 8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	3287 if (interleaved)
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	3288 return new mxArray_interleaved_full (id, val);
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	3289 else
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	3290 return new mxArray_separate_full (id, val);
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3291 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3292
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3293 mxArray_base *
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3294 mxArray::create_rep (bool interleaved, mxClassID id, mxLogical val)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3295 {
30224 8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	3296 if (interleaved)
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	3297 return new mxArray_interleaved_full (id, val);
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	3298 else
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	3299 return new mxArray_separate_full (id, val);
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3300 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3301
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3302 mxArray_base *
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3303 mxArray::create_rep (bool interleaved, const char *str)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3304 {
30224 8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	3305 if (interleaved)
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	3306 return new mxArray_interleaved_full (str);
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	3307 else
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	3308 return new mxArray_separate_full (str);
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3309 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3310
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3311 mxArray_base *
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3312 mxArray::create_rep (bool interleaved, mwSize m, const char **str)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3313 {
30224 8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	3314 if (interleaved)
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	3315 return new mxArray_interleaved_full (m, str);
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	3316 else
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	3317 return new mxArray_separate_full (m, str);
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3318 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3319
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3320 mxArray_base *
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3321 mxArray::create_rep (bool interleaved, mxClassID id, mwSize m, mwSize n,
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3322 mwSize nzmax, mxComplexity flag)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3323 {
30224 8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	3324 if (interleaved)
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	3325 return new mxArray_interleaved_sparse (id, m, n, nzmax, flag);
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	3326 else
8670f5165430 use distinct classes for interleaved and separate numeric mxarray objects John W. Eaton <jwe@octave.org> parents: 30223 diff changeset	3327 return new mxArray_separate_sparse (id, m, n, nzmax, flag);
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3328 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3329
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3330 void
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3331 mxArray::maybe_mutate (void) const
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3332 {
30122 8418f99cfcd0 maint: use "m_" prefix for member variables in class mxArray_base. Rik <rik@octave.org> parents: 30088 diff changeset	3333 if (m_rep->is_octave_value ())
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3334 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3335 // 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	3336 // 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	3337 // 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	3338
30122 8418f99cfcd0 maint: use "m_" prefix for member variables in class mxArray_base. Rik <rik@octave.org> parents: 30088 diff changeset	3339 mxArray *new_val = m_rep->mutate ();
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 if (new_val)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3342 {
30122 8418f99cfcd0 maint: use "m_" prefix for member variables in class mxArray_base. Rik <rik@octave.org> parents: 30088 diff changeset	3343 delete m_rep;
8418f99cfcd0 maint: use "m_" prefix for member variables in class mxArray_base. Rik <rik@octave.org> parents: 30088 diff changeset	3344 m_rep = new_val->m_rep;
8418f99cfcd0 maint: use "m_" prefix for member variables in class mxArray_base. Rik <rik@octave.org> parents: 30088 diff changeset	3345 new_val->m_rep = nullptr;
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3346 delete new_val;
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3347 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3348 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3349 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3350
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3351 // ------------------------------------------------------------------
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3352
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	3353 // 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	3354 // management.
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3355
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3356 class mex
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3357 {
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3358 public:
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3359
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3360 mex (octave_mex_function& f)
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3361 : m_curr_mex_fcn (f), m_memlist (), m_arraylist (), m_fname (nullptr) { }
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3362
22869 f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	3363 // No copying!
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	3364
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	3365 mex (const mex&) = delete;
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	3366
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	3367 mex& operator = (const mex&) = delete;
f75d289645ec make deleted functions public John W. Eaton <jwe@octave.org> parents: 22865 diff changeset	3368
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3369 ~mex (void)
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3370 {
20771 ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	3371 // We can't use mex::free here because it modifies memlist.
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3372 while (! m_memlist.empty ())
20771 ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	3373 {
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3374 auto p = m_memlist.begin ();
20771 ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	3375 xfree (*p);
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3376 m_memlist.erase (p);
20771 ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	3377 }
ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	3378
ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	3379 // We can't use mex::free_value here because it modifies arraylist.
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3380 while (! m_arraylist.empty ())
20771 ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	3381 {
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3382 auto p = m_arraylist.begin ();
20771 ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	3383 delete *p;
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3384 m_arraylist.erase (p);
20771 ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	3385 }
ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	3386
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3387 if (! (m_memlist.empty () && m_arraylist.empty ()))
5905 e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	3388 error ("mex: %s: cleanup failed", function_name ());
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3389
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3390 mxFree (m_fname);
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3391 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3392
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	3393 const char * function_name (void) const
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3394 {
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3395 if (! m_fname)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3396 {
27206 4e4a9d7b436e eliminate direct access to call stack in mex functions John W. Eaton <jwe@octave.org> parents: 27083 diff changeset	3397 octave::tree_evaluator& tw
4e4a9d7b436e eliminate direct access to call stack in mex functions John W. Eaton <jwe@octave.org> parents: 27083 diff changeset	3398 = 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	3399
4e4a9d7b436e eliminate direct access to call stack in mex functions John W. Eaton <jwe@octave.org> parents: 27083 diff changeset	3400 octave_function *fcn = tw.current_function ();
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3401
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3402 if (fcn)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3403 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3404 std::string nm = fcn->name ();
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3405 m_fname = mxArray::strsave (nm.c_str ());
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3406 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3407 else
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3408 m_fname = mxArray::strsave ("unknown");
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3409 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3410
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3411 return m_fname;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3412 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3413
6071 950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	3414 // Allocate memory.
29654 d13d090cb03a use std::size_t and std::ptrdiff_t in C++ code (bug #60471) John W. Eaton <jwe@octave.org> parents: 29358 diff changeset	3415 void * malloc_unmarked (std::size_t n)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3416 {
30428 2ac26917bdec mex.cc: allow for tracing malloc/realloc/free calls John W. Eaton <jwe@octave.org> parents: 30390 diff changeset	3417 void *ptr = xmalloc (n);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3418
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3419 if (! ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3420 {
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	3421 // 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	3422 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	3423 function_name (), n);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3424 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3425
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3426 global_mark (ptr);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3427
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3428 return ptr;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3429 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3430
6071 950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	3431 // Allocate memory to be freed on exit.
29654 d13d090cb03a use std::size_t and std::ptrdiff_t in C++ code (bug #60471) John W. Eaton <jwe@octave.org> parents: 29358 diff changeset	3432 void * malloc (std::size_t n)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3433 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3434 void *ptr = malloc_unmarked (n);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3435
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3436 mark (ptr);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3437
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3438 return ptr;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3439 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3440
6071 950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	3441 // Allocate memory and initialize to 0.
29654 d13d090cb03a use std::size_t and std::ptrdiff_t in C++ code (bug #60471) John W. Eaton <jwe@octave.org> parents: 29358 diff changeset	3442 void * calloc_unmarked (std::size_t n, std::size_t t)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3443 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3444 void ptr = malloc_unmarked (nt);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3445
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3446 memset (ptr, 0, n*t);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3447
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3448 return ptr;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3449 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3450
6071 950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	3451 // Allocate memory to be freed on exit and initialize to 0.
29654 d13d090cb03a use std::size_t and std::ptrdiff_t in C++ code (bug #60471) John W. Eaton <jwe@octave.org> parents: 29358 diff changeset	3452 void * calloc (std::size_t n, std::size_t t)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3453 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3454 void *ptr = calloc_unmarked (n, t);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3455
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3456 mark (ptr);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3457
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3458 return ptr;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3459 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3460
21751 b571fc85953f maint: Use two spaces after period to indicate sentence break. Rik <rik@octave.org> parents: 21743 diff changeset	3461 // 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	3462 // 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	3463 // We don't need an "unmarked" version of this.
29654 d13d090cb03a use std::size_t and std::ptrdiff_t in C++ code (bug #60471) John W. Eaton <jwe@octave.org> parents: 29358 diff changeset	3464 void * realloc (void *ptr, std::size_t n)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3465 {
10225 477d05b0a739 mxRealloc: Allocate new memory on NULL argument David Grundberg <davidg@cs.umu.se> parents: 10127 diff changeset	3466 void *v;
477d05b0a739 mxRealloc: Allocate new memory on NULL argument David Grundberg <davidg@cs.umu.se> parents: 10127 diff changeset	3467
477d05b0a739 mxRealloc: Allocate new memory on NULL argument David Grundberg <davidg@cs.umu.se> parents: 10127 diff changeset	3468 if (ptr)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3469 {
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3470 auto p_local = m_memlist.find (ptr);
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3471 auto p_global = s_global_memlist.find (ptr);
26438 c048a6ac0f79 mex.cc: Fix static analyzer detected issues (bug #55347). Rik <rik@octave.org> parents: 26376 diff changeset	3472
30428 2ac26917bdec mex.cc: allow for tracing malloc/realloc/free calls John W. Eaton <jwe@octave.org> parents: 30390 diff changeset	3473 v = xrealloc (ptr, n);
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	3474
26438 c048a6ac0f79 mex.cc: Fix static analyzer detected issues (bug #55347). Rik <rik@octave.org> parents: 26376 diff changeset	3475 if (v)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3476 {
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3477 if (p_local != m_memlist.end ())
26438 c048a6ac0f79 mex.cc: Fix static analyzer detected issues (bug #55347). Rik <rik@octave.org> parents: 26376 diff changeset	3478 {
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3479 m_memlist.erase (p_local);
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3480 m_memlist.insert (v);
26438 c048a6ac0f79 mex.cc: Fix static analyzer detected issues (bug #55347). Rik <rik@octave.org> parents: 26376 diff changeset	3481 }
c048a6ac0f79 mex.cc: Fix static analyzer detected issues (bug #55347). Rik <rik@octave.org> parents: 26376 diff changeset	3482
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3483 if (p_global != s_global_memlist.end ())
26438 c048a6ac0f79 mex.cc: Fix static analyzer detected issues (bug #55347). Rik <rik@octave.org> parents: 26376 diff changeset	3484 {
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3485 s_global_memlist.erase (p_global);
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3486 s_global_memlist.insert (v);
26438 c048a6ac0f79 mex.cc: Fix static analyzer detected issues (bug #55347). Rik <rik@octave.org> parents: 26376 diff changeset	3487 }
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3488 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3489 }
10225 477d05b0a739 mxRealloc: Allocate new memory on NULL argument David Grundberg <davidg@cs.umu.se> parents: 10127 diff changeset	3490 else
477d05b0a739 mxRealloc: Allocate new memory on NULL argument David Grundberg <davidg@cs.umu.se> parents: 10127 diff changeset	3491 v = malloc (n);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3492
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3493 return v;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3494 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3495
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3496 // Free a pointer obtained from malloc or calloc.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3497 void free (void *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3498 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3499 if (ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3500 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3501 unmark (ptr);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3502
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3503 auto p = s_global_memlist.find (ptr);
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3504
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3505 if (p != s_global_memlist.end ())
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3506 {
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3507 s_global_memlist.erase (p);
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3508
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3509 xfree (ptr);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3510 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3511 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3512 {
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3513 p = m_foreign_memlist.find (ptr);
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3514
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3515 if (p != m_foreign_memlist.end ())
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3516 m_foreign_memlist.erase (p);
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21660 diff changeset	3517 #if defined (DEBUG)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3518 else
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3519 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	3520 #endif
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3521 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3522 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3523 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3524
7172 e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	3525 // Mark a pointer to be freed on exit.
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	3526 void mark (void *ptr)
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	3527 {
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21660 diff changeset	3528 #if defined (DEBUG)
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3529 if (m_memlist.find (ptr) != m_memlist.end ())
7172 e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	3530 warning ("%s: double registration ignored", function_name ());
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	3531 #endif
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	3532
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3533 m_memlist.insert (ptr);
7172 e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	3534 }
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	3535
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	3536 // 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	3537 // made persistent, or because it was already freed.
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	3538 void unmark (void *ptr)
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	3539 {
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3540 auto p = m_memlist.find (ptr);
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3541
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3542 if (p != m_memlist.end ())
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3543 m_memlist.erase (p);
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21660 diff changeset	3544 #if defined (DEBUG)
7172 e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	3545 else
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	3546 warning ("%s: value not marked", function_name ());
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	3547 #endif
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	3548 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3549
23446 cd4e1ee28716 maint: Use convention 'void * fcn ()' for functions which return pointers. Rik <rik@octave.org> parents: 23432 diff changeset	3550 mxArray * mark_array (mxArray *ptr)
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	3551 {
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3552 m_arraylist.insert (ptr);
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	3553 return ptr;
814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	3554 }
814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	3555
6071 950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	3556 void unmark_array (mxArray *ptr)
950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	3557 {
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3558 auto p = m_arraylist.find (ptr);
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3559
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3560 if (p != m_arraylist.end ())
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3561 m_arraylist.erase (p);
6071 950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	3562 }
950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	3563
7179 32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	3564 // Mark a pointer as one we allocated.
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	3565 void mark_foreign (void *ptr)
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	3566 {
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21660 diff changeset	3567 #if defined (DEBUG)
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3568 if (m_foreign_memlist.find (ptr) != m_foreign_memlist.end ())
7179 32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	3569 warning ("%s: double registration ignored", function_name ());
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	3570 #endif
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	3571
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3572 m_foreign_memlist.insert (ptr);
7179 32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	3573 }
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	3574
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	3575 // Unmark a pointer as one we allocated.
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	3576 void unmark_foreign (void *ptr)
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	3577 {
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3578 auto p = m_foreign_memlist.find (ptr);
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3579
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3580 if (p != m_foreign_memlist.end ())
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3581 m_foreign_memlist.erase (p);
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21660 diff changeset	3582 #if defined (DEBUG)
7179 32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	3583 else
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	3584 warning ("%s: value not marked", function_name ());
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	3585 #endif
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	3586
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	3587 }
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	3588
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3589 // 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	3590 // 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	3591 mxArray * make_value (const octave_value& ov)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3592 {
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3593 bool interleaved = m_curr_mex_fcn.use_interleaved_complex ();
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3594
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3595 return mark_array (new mxArray (interleaved, ov));
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3596 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3597
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3598 // Free an array and its contents.
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	3599 bool free_value (mxArray *ptr)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3600 {
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	3601 bool inlist = false;
814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	3602
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3603 auto p = m_arraylist.find (ptr);
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3604
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3605 if (p != m_arraylist.end ())
5905 e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	3606 {
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3607 inlist = true;
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3608 m_arraylist.erase (p);
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	3609 delete ptr;
5905 e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	3610 }
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21660 diff changeset	3611 #if defined (DEBUG)
5905 e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	3612 else
e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	3613 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	3614 #endif
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	3615
814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	3616 return inlist;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3617 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3618
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3619 octave_mex_function& current_mex_function (void) const
6068 c9f0839c583f [project @ 2006-10-20 16:54:30 by jwe] jwe parents: 6065 diff changeset	3620 {
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3621 return m_curr_mex_fcn;
6068 c9f0839c583f [project @ 2006-10-20 16:54:30 by jwe] jwe parents: 6065 diff changeset	3622 }
c9f0839c583f [project @ 2006-10-20 16:54:30 by jwe] jwe parents: 6065 diff changeset	3623
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3624 // 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	3625 int trap_feval_error = 0;
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3626
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3627 // Mark a pointer as one we allocated.
5905 e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	3628 void global_mark (void *ptr)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3629 {
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21660 diff changeset	3630 #if defined (DEBUG)
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3631 if (s_global_memlist.find (ptr) != s_global_memlist.end ())
5905 e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	3632 warning ("%s: double registration ignored", function_name ());
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3633 #endif
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3634
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3635 s_global_memlist.insert (ptr);
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3636 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3637
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3638 // Unmark a pointer as one we allocated.
5905 e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	3639 void global_unmark (void *ptr)
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3640 {
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3641 auto p = s_global_memlist.find (ptr);
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3642
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3643 if (p != s_global_memlist.end ())
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3644 s_global_memlist.erase (p);
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21660 diff changeset	3645 #if defined (DEBUG)
5905 e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	3646 else
e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	3647 warning ("%s: value not marked", function_name ());
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3648 #endif
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3649 }
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3650
30226 f3ffb4596bd8 move ptr to imag data in mxArray to separate_full and separate_sparse classes John W. Eaton <jwe@octave.org> parents: 30225 diff changeset	3651 private:
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3652
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3653 // Pointer to the mex function that corresponds to this mex context.
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3654 octave_mex_function& m_curr_mex_fcn;
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3655
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3656 // List of memory resources that need to be freed upon exit.
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3657 std::set<void *> m_memlist;
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3658
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3659 // List of mxArray objects that need to be freed upon exit.
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3660 std::set<mxArray *> m_arraylist;
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3661
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3662 // List of memory resources we know about, but that were allocated
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3663 // elsewhere.
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3664 std::set<void *> m_foreign_memlist;
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3665
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3666 // The name of the currently executing function.
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3667 mutable char *m_fname;
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3668
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3669 // List of memory resources we allocated.
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3670 static std::set<void *> s_global_memlist;
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3671
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3672 };
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3673
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3674 // List of memory resources we allocated.
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3675 std::set<void *> mex::s_global_memlist;
5900 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 // Current context.
23457 21baad6b35c4 maint: Use C++11 nullptr rather than 0 or NULL when possible. Rik <rik@octave.org> parents: 23455 diff changeset	3678 mex *mex_context = nullptr;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3679
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3680 void *
29654 d13d090cb03a use std::size_t and std::ptrdiff_t in C++ code (bug #60471) John W. Eaton <jwe@octave.org> parents: 29358 diff changeset	3681 mxArray::malloc (std::size_t n)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3682 {
30428 2ac26917bdec mex.cc: allow for tracing malloc/realloc/free calls John W. Eaton <jwe@octave.org> parents: 30390 diff changeset	3683 return mex_context ? mex_context->malloc_unmarked (n) : xmalloc (n);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3684 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3685
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3686 void *
29654 d13d090cb03a use std::size_t and std::ptrdiff_t in C++ code (bug #60471) John W. Eaton <jwe@octave.org> parents: 29358 diff changeset	3687 mxArray::calloc (std::size_t n, std::size_t t)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3688 {
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	3689 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	3690 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3691
30223 b8841fcd28c8 combine calls to mxArray::malloc and mxArray::calloc in wrapper function John W. Eaton <jwe@octave.org> parents: 30213 diff changeset	3692 void *
b8841fcd28c8 combine calls to mxArray::malloc and mxArray::calloc in wrapper function John W. Eaton <jwe@octave.org> parents: 30213 diff changeset	3693 mxArray::alloc (bool init, std::size_t n, std::size_t t)
b8841fcd28c8 combine calls to mxArray::malloc and mxArray::calloc in wrapper function John W. Eaton <jwe@octave.org> parents: 30213 diff changeset	3694 {
b8841fcd28c8 combine calls to mxArray::malloc and mxArray::calloc in wrapper function John W. Eaton <jwe@octave.org> parents: 30213 diff changeset	3695 return init ? mxArray::calloc (n, t) : mxArray::malloc (n * t);
b8841fcd28c8 combine calls to mxArray::malloc and mxArray::calloc in wrapper function John W. Eaton <jwe@octave.org> parents: 30213 diff changeset	3696 }
b8841fcd28c8 combine calls to mxArray::malloc and mxArray::calloc in wrapper function John W. Eaton <jwe@octave.org> parents: 30213 diff changeset	3697
7179 32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	3698 static inline void *
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	3699 maybe_mark_foreign (void *ptr)
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	3700 {
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	3701 if (mex_context)
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	3702 mex_context->mark_foreign (ptr);
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	3703
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	3704 return ptr;
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	3705 }
32abf21b21e9 [project @ 2007-11-15 02:44:05 by jwe] jwe parents: 7177 diff changeset	3706
30227 b00ff462e0f2 improve efficiency of mxArray -> octave_value conversion John W. Eaton <jwe@octave.org> parents: 30226 diff changeset	3707 static inline void
b00ff462e0f2 improve efficiency of mxArray -> octave_value conversion John W. Eaton <jwe@octave.org> parents: 30226 diff changeset	3708 maybe_disown_ptr (void *ptr)
b00ff462e0f2 improve efficiency of mxArray -> octave_value conversion John W. Eaton <jwe@octave.org> parents: 30226 diff changeset	3709 {
b00ff462e0f2 improve efficiency of mxArray -> octave_value conversion John W. Eaton <jwe@octave.org> parents: 30226 diff changeset	3710 if (mex_context)
b00ff462e0f2 improve efficiency of mxArray -> octave_value conversion John W. Eaton <jwe@octave.org> parents: 30226 diff changeset	3711 {
b00ff462e0f2 improve efficiency of mxArray -> octave_value conversion John W. Eaton <jwe@octave.org> parents: 30226 diff changeset	3712 mex_context->unmark (ptr);
b00ff462e0f2 improve efficiency of mxArray -> octave_value conversion John W. Eaton <jwe@octave.org> parents: 30226 diff changeset	3713 mex_context->global_unmark (ptr);
b00ff462e0f2 improve efficiency of mxArray -> octave_value conversion John W. Eaton <jwe@octave.org> parents: 30226 diff changeset	3714 mex_context->mark_foreign (ptr);
b00ff462e0f2 improve efficiency of mxArray -> octave_value conversion John W. Eaton <jwe@octave.org> parents: 30226 diff changeset	3715 }
b00ff462e0f2 improve efficiency of mxArray -> octave_value conversion John W. Eaton <jwe@octave.org> parents: 30226 diff changeset	3716 }
b00ff462e0f2 improve efficiency of mxArray -> octave_value conversion John W. Eaton <jwe@octave.org> parents: 30226 diff changeset	3717
6071 950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	3718 static inline mxArray *
950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	3719 maybe_unmark_array (mxArray *ptr)
950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	3720 {
950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	3721 if (mex_context)
950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	3722 mex_context->unmark_array (ptr);
950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	3723
950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	3724 return ptr;
950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	3725 }
950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	3726
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3727 template <typename T>
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3728 static inline T *
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3729 maybe_unmark (T *ptr)
7172 e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	3730 {
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	3731 if (mex_context)
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	3732 mex_context->unmark (ptr);
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	3733
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	3734 return ptr;
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	3735 }
e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	3736
6071 950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	3737 void
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	3738 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	3739 {
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3740 if (key_num >= 0 && key_num < m_nfields)
b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3741 m_data[m_nfields * index + key_num] = maybe_unmark_array (val);
6071 950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	3742 }
950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	3743
950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	3744 void
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	3745 mxArray_cell::set_cell (mwIndex idx, mxArray *val)
6071 950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	3746 {
6187 2a8922007c12 [project @ 2006-11-29 01:59:59 by jwe] jwe parents: 6071 diff changeset	3747 if (idx >= 0 && idx < get_number_of_elements ())
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3748 m_data[idx] = maybe_unmark_array (val);
6071 950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	3749 }
950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	3750
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3751 // ------------------------------------------------------------------
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3752
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3753 // C interface to mxArray objects:
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3754
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3755 // Floating point predicates.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3756
22465 6149f6b34cbc Change all mxIs* functions in MEX API to return bool rather than int. Rik <rik@octave.org> parents: 22464 diff changeset	3757 bool
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3758 mxIsFinite (const double v)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3759 {
30088 fca57eaad2d4 maint: deprecate lo_ieee_finite and replace with lo_ieee_isfinite. Rik <rik@octave.org> parents: 29993 diff changeset	3760 return lo_ieee_isfinite (v) != 0;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3761 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3762
22465 6149f6b34cbc Change all mxIs* functions in MEX API to return bool rather than int. Rik <rik@octave.org> parents: 22464 diff changeset	3763 bool
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3764 mxIsInf (const double v)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3765 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3766 return lo_ieee_isinf (v) != 0;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3767 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3768
22465 6149f6b34cbc Change all mxIs* functions in MEX API to return bool rather than int. Rik <rik@octave.org> parents: 22464 diff changeset	3769 bool
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3770 mxIsNaN (const double v)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3771 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3772 return lo_ieee_isnan (v) != 0;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3773 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3774
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3775 double
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3776 mxGetEps (void)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3777 {
15220 61822c866ba1 use std::numeric_limits<T>::epsilon in C++ code John W. Eaton <jwe@octave.org> parents: 15195 diff changeset	3778 return std::numeric_limits<double>::epsilon ();
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3779 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3780
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3781 double
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3782 mxGetInf (void)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3783 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3784 return lo_ieee_inf_value ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3785 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3786
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3787 double
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3788 mxGetNaN (void)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3789 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3790 return lo_ieee_nan_value ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3791 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3792
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3793 // Memory management.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3794 void *
29654 d13d090cb03a use std::size_t and std::ptrdiff_t in C++ code (bug #60471) John W. Eaton <jwe@octave.org> parents: 29358 diff changeset	3795 mxCalloc (std::size_t n, std::size_t size)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3796 {
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	3797 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	3798 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3799
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3800 void *
29654 d13d090cb03a use std::size_t and std::ptrdiff_t in C++ code (bug #60471) John W. Eaton <jwe@octave.org> parents: 29358 diff changeset	3801 mxMalloc (std::size_t n)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3802 {
30428 2ac26917bdec mex.cc: allow for tracing malloc/realloc/free calls John W. Eaton <jwe@octave.org> parents: 30390 diff changeset	3803 return mex_context ? mex_context->malloc (n) : xmalloc (n);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3804 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3805
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3806 void *
29654 d13d090cb03a use std::size_t and std::ptrdiff_t in C++ code (bug #60471) John W. Eaton <jwe@octave.org> parents: 29358 diff changeset	3807 mxRealloc (void *ptr, std::size_t size)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3808 {
30428 2ac26917bdec mex.cc: allow for tracing malloc/realloc/free calls John W. Eaton <jwe@octave.org> parents: 30390 diff changeset	3809 return (mex_context
2ac26917bdec mex.cc: allow for tracing malloc/realloc/free calls John W. Eaton <jwe@octave.org> parents: 30390 diff changeset	3810 ? mex_context->realloc (ptr, size) : xrealloc (ptr, size));
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3811 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3812
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3813 void
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3814 mxFree (void *ptr)
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3815 {
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3816 if (mex_context)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3817 mex_context->free (ptr);
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3818 else
6071 950d8cb39617 [project @ 2006-10-23 19:30:28 by jwe] jwe parents: 6069 diff changeset	3819 xfree (ptr);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3820 }
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	3821
814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	3822 static inline mxArray *
814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	3823 maybe_mark_array (mxArray *ptr)
814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	3824 {
814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	3825 return mex_context ? mex_context->mark_array (ptr) : ptr;
814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	3826 }
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	3827
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3828 // Constructors.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3829 mxArray *
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3830 mxCreateCellArray_interleaved (mwSize ndims, const mwSize *dims)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3831 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3832 return maybe_mark_array (new mxArray (true, ndims, dims));
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3833 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3834
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3835 mxArray *
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	3836 mxCreateCellArray (mwSize ndims, const mwSize *dims)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3837 {
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3838 return maybe_mark_array (new mxArray (false, ndims, dims));
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3839 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3840
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3841 mxArray *
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3842 mxCreateCellMatrix_interleaved (mwSize m, mwSize n)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3843 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3844 return maybe_mark_array (new mxArray (true, m, n));
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3845 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3846
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3847 mxArray *
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	3848 mxCreateCellMatrix (mwSize m, mwSize n)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3849 {
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3850 return maybe_mark_array (new mxArray (false, m, n));
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3851 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3852
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3853 mxArray *
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3854 mxCreateCharArray_interleaved (mwSize ndims, const mwSize *dims)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3855 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3856 return maybe_mark_array (new mxArray (true, mxCHAR_CLASS, ndims, dims));
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3857 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3858
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3859 mxArray *
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	3860 mxCreateCharArray (mwSize ndims, const mwSize *dims)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3861 {
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3862 return maybe_mark_array (new mxArray (false, mxCHAR_CLASS, ndims, dims));
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3863 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3864
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3865 mxArray *
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3866 mxCreateCharMatrixFromStrings_interleaved (mwSize m, const char **str)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3867 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3868 return maybe_mark_array (new mxArray (true, m, str));
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3869 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3870
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3871 mxArray *
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	3872 mxCreateCharMatrixFromStrings (mwSize m, const char **str)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3873 {
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3874 return maybe_mark_array (new mxArray (false, m, str));
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3875 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3876
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3877 mxArray *
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3878 mxCreateDoubleMatrix_interleaved (mwSize m, mwSize n, mxComplexity flag)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3879 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3880 return maybe_mark_array (new mxArray (true, mxDOUBLE_CLASS, m, n, flag));
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3881 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3882
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3883 mxArray *
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	3884 mxCreateDoubleMatrix (mwSize m, mwSize n, mxComplexity flag)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3885 {
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3886 return maybe_mark_array (new mxArray (false, mxDOUBLE_CLASS, m, n, flag));
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3887 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3888
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3889 mxArray *
30212 c27b9ba4c9bd * mex.cc: Don't use m_ prefix for function arguments and local variables. John W. Eaton <jwe@octave.org> parents: 30129 diff changeset	3890 mxCreateDoubleScalar_interleaved (double val)
c27b9ba4c9bd * mex.cc: Don't use m_ prefix for function arguments and local variables. John W. Eaton <jwe@octave.org> parents: 30129 diff changeset	3891 {
c27b9ba4c9bd * mex.cc: Don't use m_ prefix for function arguments and local variables. John W. Eaton <jwe@octave.org> parents: 30129 diff changeset	3892 return maybe_mark_array (new mxArray (true, mxDOUBLE_CLASS, val));
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3893 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3894
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3895 mxArray *
30212 c27b9ba4c9bd * mex.cc: Don't use m_ prefix for function arguments and local variables. John W. Eaton <jwe@octave.org> parents: 30129 diff changeset	3896 mxCreateDoubleScalar (double val)
c27b9ba4c9bd * mex.cc: Don't use m_ prefix for function arguments and local variables. John W. Eaton <jwe@octave.org> parents: 30129 diff changeset	3897 {
c27b9ba4c9bd * mex.cc: Don't use m_ prefix for function arguments and local variables. John W. Eaton <jwe@octave.org> parents: 30129 diff changeset	3898 return maybe_mark_array (new mxArray (false, mxDOUBLE_CLASS, val));
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3899 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3900
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3901 mxArray *
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3902 mxCreateLogicalArray_interleaved (mwSize ndims, const mwSize *dims)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3903 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3904 return maybe_mark_array (new mxArray (true, mxLOGICAL_CLASS, ndims, dims));
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3905 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3906
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3907 mxArray *
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	3908 mxCreateLogicalArray (mwSize ndims, const mwSize *dims)
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3909 {
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3910 return maybe_mark_array (new mxArray (false, mxLOGICAL_CLASS, ndims, dims));
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3911 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3912
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3913 mxArray *
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3914 mxCreateLogicalMatrix_interleaved (mwSize m, mwSize n)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3915 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3916 return maybe_mark_array (new mxArray (true, mxLOGICAL_CLASS, m, n));
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3917 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3918
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3919 mxArray *
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	3920 mxCreateLogicalMatrix (mwSize m, mwSize n)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3921 {
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3922 return maybe_mark_array (new mxArray (false, mxLOGICAL_CLASS, m, n));
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3923 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3924
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3925 mxArray *
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3926 mxCreateLogicalScalar_interleaved (mxLogical val)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3927 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3928 return maybe_mark_array (new mxArray (true, mxLOGICAL_CLASS, val));
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3929 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3930
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3931 mxArray *
7577 ba8fcc115fee mex.cc: arg to mxCreateLogicalScalar is now mxLogical John W. Eaton <jwe@octave.org> parents: 7357 diff changeset	3932 mxCreateLogicalScalar (mxLogical val)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3933 {
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3934 return maybe_mark_array (new mxArray (false, mxLOGICAL_CLASS, val));
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3935 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3936
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3937 mxArray *
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3938 mxCreateNumericArray_interleaved (mwSize ndims, const mwSize *dims,
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3939 mxClassID class_id, mxComplexity flag)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3940 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3941 return maybe_mark_array (new mxArray (true, class_id, ndims, dims, flag));
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3942 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3943
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3944 mxArray *
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3945 mxCreateNumericArray (mwSize ndims, const mwSize *dims,
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	3946 mxClassID class_id, mxComplexity flag)
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3947 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3948 return maybe_mark_array (new mxArray (false, class_id, ndims, dims, flag));
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3949 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3950
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3951 mxArray *
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3952 mxCreateNumericMatrix_interleaved (mwSize m, mwSize n, mxClassID class_id,
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3953 mxComplexity flag)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3954 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3955 return maybe_mark_array (new mxArray (true, class_id, m, n, flag));
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3956 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	3957
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3958 mxArray *
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	3959 mxCreateNumericMatrix (mwSize m, mwSize n, mxClassID class_id,
30390 a61e1a0f6024 maint: style check C++ files in libinterp/ ahead of 7.1 release. Rik <rik@octave.org> parents: 30349 diff changeset	3960 mxComplexity flag)
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3961 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3962 return maybe_mark_array (new mxArray (false, class_id, m, n, flag));
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3963 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3964
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3965 mxArray *
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3966 mxCreateUninitNumericArray_interleaved (mwSize ndims, const mwSize *dims,
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3967 mxClassID class_id, mxComplexity flag)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3968 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3969 return maybe_mark_array (new mxArray (true, class_id, ndims, dims, flag,
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3970 false));
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3971 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3972
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	3973 mxArray *
22464 1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	3974 mxCreateUninitNumericArray (mwSize ndims, const mwSize *dims,
30390 a61e1a0f6024 maint: style check C++ files in libinterp/ ahead of 7.1 release. Rik <rik@octave.org> parents: 30349 diff changeset	3975 mxClassID class_id, mxComplexity flag)
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3976 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3977 return maybe_mark_array (new mxArray (false, class_id, ndims, dims, flag,
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3978 false));
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3979 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3980
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3981 mxArray *
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3982 mxCreateUninitNumericMatrix_interleaved (mwSize m, mwSize n,
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3983 mxClassID class_id, mxComplexity flag)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3984 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3985 return maybe_mark_array (new mxArray (true, class_id, m, n, flag, false));
22464 1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	3986 }
1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	3987
1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	3988 mxArray *
1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	3989 mxCreateUninitNumericMatrix (mwSize m, mwSize n, mxClassID class_id,
30390 a61e1a0f6024 maint: style check C++ files in libinterp/ ahead of 7.1 release. Rik <rik@octave.org> parents: 30349 diff changeset	3990 mxComplexity flag)
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3991 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3992 return maybe_mark_array (new mxArray (false, class_id, m, n, flag, false));
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3993 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3994
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3995 mxArray *
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3996 mxCreateSparse_interleaved (mwSize m, mwSize n, mwSize nzmax, mxComplexity flag)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3997 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3998 return maybe_mark_array (new mxArray (true, mxDOUBLE_CLASS, m, n, nzmax,
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	3999 flag));
22464 1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	4000 }
1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	4001
1d2960b5efe6 Add new MEX fcns mxCreateUninitNumericArray, mxCreateUninitNumericMatrix. Rik <rik@octave.org> parents: 22462 diff changeset	4002 mxArray *
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	4003 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	4004 {
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4005 return maybe_mark_array (new mxArray (false, mxDOUBLE_CLASS, m, n, nzmax,
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4006 flag));
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4007 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4008
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4009 mxArray *
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4010 mxCreateSparseLogicalMatrix_interleaved (mwSize m, mwSize n, mwSize nzmax)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4011 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4012 return maybe_mark_array (new mxArray (true, mxLOGICAL_CLASS, m, n, nzmax));
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4013 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4014
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4015 mxArray *
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	4016 mxCreateSparseLogicalMatrix (mwSize m, mwSize n, mwSize nzmax)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4017 {
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4018 return maybe_mark_array (new mxArray (false, mxLOGICAL_CLASS, m, n, nzmax));
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4019 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4020
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4021 mxArray *
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4022 mxCreateString_interleaved (const char *str)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4023 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4024 return maybe_mark_array (new mxArray (true, str));
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4025 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4026
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4027 mxArray *
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4028 mxCreateString (const char *str)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4029 {
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4030 return maybe_mark_array (new mxArray (false, str));
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4031 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4032
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4033 mxArray *
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4034 mxCreateStructArray_interleaved (mwSize ndims, const mwSize *dims,
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4035 int num_keys, const char **keys)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4036 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4037 return maybe_mark_array (new mxArray (true, ndims, dims, num_keys, keys));
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4038 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4039
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4040 mxArray *
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	4041 mxCreateStructArray (mwSize ndims, const mwSize *dims, int num_keys,
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	4042 const char **keys)
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4043 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4044 return maybe_mark_array (new mxArray (false, ndims, dims, num_keys, keys));
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4045 }
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	4046
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	4047 mxArray *
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4048 mxCreateStructMatrix_interleaved (mwSize m, mwSize n, int num_keys,
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4049 const char **keys)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4050 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4051 return maybe_mark_array (new mxArray (true, m, n, num_keys, keys));
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4052 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4053
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4054 mxArray *
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4055 mxCreateStructMatrix (mwSize m, mwSize n, int num_keys,
30129 b7c04a5036d3 maint: use "m_" prefix for member variables in file mex.cc. Rik <rik@octave.org> parents: 30122 diff changeset	4056 const char **keys)
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4057 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4058 return maybe_mark_array (new mxArray (false, m, n, num_keys, keys));
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4059 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4060
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4061 // Copy constructor.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4062 mxArray *
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4063 mxDuplicateArray (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4064 {
11277 7d5351fc575a mex.cc: convert mxArray_octave_value to matlab style representation when duplicating John W. Eaton <jwe@octave.org> parents: 11276 diff changeset	4065 return maybe_mark_array (ptr->dup ());
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4066 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4067
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4068 // Destructor.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4069 void
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4070 mxDestroyArray (mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4071 {
6065 814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	4072 if (! (mex_context && mex_context->free_value (ptr)))
814f20da2cdb [project @ 2006-10-20 03:01:43 by jwe] jwe parents: 6062 diff changeset	4073 delete ptr;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4074 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4075
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4076 // 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	4077 bool
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4078 mxIsCell (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4079 {
23576 00e518162fda maint: Deprecate is_cell and replace with iscell. Rik <rik@octave.org> parents: 23553 diff changeset	4080 return ptr->iscell ();
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4081 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4082
22465 6149f6b34cbc Change all mxIs* functions in MEX API to return bool rather than int. Rik <rik@octave.org> parents: 22464 diff changeset	4083 bool
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4084 mxIsChar (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4085 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4086 return ptr->is_char ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4087 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4088
22465 6149f6b34cbc Change all mxIs* functions in MEX API to return bool rather than int. Rik <rik@octave.org> parents: 22464 diff changeset	4089 bool
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4090 mxIsClass (const mxArray ptr, const char name)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4091 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4092 return ptr->is_class (name);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4093 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4094
22465 6149f6b34cbc Change all mxIs* functions in MEX API to return bool rather than int. Rik <rik@octave.org> parents: 22464 diff changeset	4095 bool
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4096 mxIsComplex (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4097 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4098 return ptr->is_complex ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4099 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4100
22465 6149f6b34cbc Change all mxIs* functions in MEX API to return bool rather than int. Rik <rik@octave.org> parents: 22464 diff changeset	4101 bool
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4102 mxIsDouble (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4103 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4104 return ptr->is_double ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4105 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4106
22465 6149f6b34cbc Change all mxIs* functions in MEX API to return bool rather than int. Rik <rik@octave.org> parents: 22464 diff changeset	4107 bool
11100 cdf940db26a0 provide mxIsFunctionHandle MEX interface function John W. Eaton <jwe@octave.org> parents: 11073 diff changeset	4108 mxIsFunctionHandle (const mxArray *ptr)
cdf940db26a0 provide mxIsFunctionHandle MEX interface function John W. Eaton <jwe@octave.org> parents: 11073 diff changeset	4109 {
cdf940db26a0 provide mxIsFunctionHandle MEX interface function John W. Eaton <jwe@octave.org> parents: 11073 diff changeset	4110 return ptr->is_function_handle ();
cdf940db26a0 provide mxIsFunctionHandle MEX interface function John W. Eaton <jwe@octave.org> parents: 11073 diff changeset	4111 }
cdf940db26a0 provide mxIsFunctionHandle MEX interface function John W. Eaton <jwe@octave.org> parents: 11073 diff changeset	4112
22465 6149f6b34cbc Change all mxIs* functions in MEX API to return bool rather than int. Rik <rik@octave.org> parents: 22464 diff changeset	4113 bool
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4114 mxIsInt16 (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4115 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4116 return ptr->is_int16 ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4117 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4118
22465 6149f6b34cbc Change all mxIs* functions in MEX API to return bool rather than int. Rik <rik@octave.org> parents: 22464 diff changeset	4119 bool
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4120 mxIsInt32 (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4121 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4122 return ptr->is_int32 ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4123 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4124
22465 6149f6b34cbc Change all mxIs* functions in MEX API to return bool rather than int. Rik <rik@octave.org> parents: 22464 diff changeset	4125 bool
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4126 mxIsInt64 (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4127 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4128 return ptr->is_int64 ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4129 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4130
22465 6149f6b34cbc Change all mxIs* functions in MEX API to return bool rather than int. Rik <rik@octave.org> parents: 22464 diff changeset	4131 bool
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4132 mxIsInt8 (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4133 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4134 return ptr->is_int8 ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4135 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4136
22465 6149f6b34cbc Change all mxIs* functions in MEX API to return bool rather than int. Rik <rik@octave.org> parents: 22464 diff changeset	4137 bool
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4138 mxIsLogical (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4139 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4140 return ptr->is_logical ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4141 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4142
22465 6149f6b34cbc Change all mxIs* functions in MEX API to return bool rather than int. Rik <rik@octave.org> parents: 22464 diff changeset	4143 bool
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4144 mxIsNumeric (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4145 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4146 return ptr->is_numeric ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4147 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4148
22465 6149f6b34cbc Change all mxIs* functions in MEX API to return bool rather than int. Rik <rik@octave.org> parents: 22464 diff changeset	4149 bool
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4150 mxIsSingle (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4151 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4152 return ptr->is_single ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4153 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4154
22465 6149f6b34cbc Change all mxIs* functions in MEX API to return bool rather than int. Rik <rik@octave.org> parents: 22464 diff changeset	4155 bool
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4156 mxIsSparse (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4157 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4158 return ptr->is_sparse ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4159 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4160
22465 6149f6b34cbc Change all mxIs* functions in MEX API to return bool rather than int. Rik <rik@octave.org> parents: 22464 diff changeset	4161 bool
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4162 mxIsStruct (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4163 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4164 return ptr->is_struct ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4165 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4166
22465 6149f6b34cbc Change all mxIs* functions in MEX API to return bool rather than int. Rik <rik@octave.org> parents: 22464 diff changeset	4167 bool
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4168 mxIsUint16 (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4169 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4170 return ptr->is_uint16 ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4171 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4172
22465 6149f6b34cbc Change all mxIs* functions in MEX API to return bool rather than int. Rik <rik@octave.org> parents: 22464 diff changeset	4173 bool
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4174 mxIsUint32 (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4175 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4176 return ptr->is_uint32 ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4177 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4178
22465 6149f6b34cbc Change all mxIs* functions in MEX API to return bool rather than int. Rik <rik@octave.org> parents: 22464 diff changeset	4179 bool
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4180 mxIsUint64 (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4181 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4182 return ptr->is_uint64 ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4183 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4184
22465 6149f6b34cbc Change all mxIs* functions in MEX API to return bool rather than int. Rik <rik@octave.org> parents: 22464 diff changeset	4185 bool
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4186 mxIsUint8 (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4187 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4188 return ptr->is_uint8 ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4189 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4190
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4191 // 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	4192 bool
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4193 mxIsLogicalScalar (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4194 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4195 return ptr->is_logical_scalar ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4196 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4197
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4198 // 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	4199 bool
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4200 mxIsLogicalScalarTrue (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4201 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4202 return ptr->is_logical_scalar_true ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4203 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4204
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4205 // 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	4206 bool
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4207 mxIsEmpty (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4208 {
23577 80c42f4cca13 maint: Deprecate is_empty and replace with isempty. Rik <rik@octave.org> parents: 23576 diff changeset	4209 return ptr->isempty ();
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4210 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4211
22462 6cb7813e5b2f Add new mxIsScalar function for MEX API. Rik <rik@octave.org> parents: 22454 diff changeset	4212 bool
6cb7813e5b2f Add new mxIsScalar function for MEX API. Rik <rik@octave.org> parents: 22454 diff changeset	4213 mxIsScalar (const mxArray *ptr)
6cb7813e5b2f Add new mxIsScalar function for MEX API. Rik <rik@octave.org> parents: 22454 diff changeset	4214 {
6cb7813e5b2f Add new mxIsScalar function for MEX API. Rik <rik@octave.org> parents: 22454 diff changeset	4215 return ptr->is_scalar ();
6cb7813e5b2f Add new mxIsScalar function for MEX API. Rik <rik@octave.org> parents: 22454 diff changeset	4216 }
6cb7813e5b2f Add new mxIsScalar function for MEX API. Rik <rik@octave.org> parents: 22454 diff changeset	4217
20527 2d9ec16fa960 Print error, rather than aborting, if mex function mxIsFromGlobalWS is used (bug #46070). Rik <rik@octave.org> parents: 20362 diff changeset	4218 // 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	4219 // 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	4220 bool
20527 2d9ec16fa960 Print error, rather than aborting, if mex function mxIsFromGlobalWS is used (bug #46070). Rik <rik@octave.org> parents: 20362 diff changeset	4221 mxIsFromGlobalWS (const mxArray * /ptr/)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4222 {
20527 2d9ec16fa960 Print error, rather than aborting, if mex function mxIsFromGlobalWS is used (bug #46070). Rik <rik@octave.org> parents: 20362 diff changeset	4223 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	4224
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4225 return 0;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4226 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4227
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4228 // Dimension extractors.
29654 d13d090cb03a use std::size_t and std::ptrdiff_t in C++ code (bug #60471) John W. Eaton <jwe@octave.org> parents: 29358 diff changeset	4229 std::size_t
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4230 mxGetM (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4231 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4232 return ptr->get_m ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4233 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4234
29654 d13d090cb03a use std::size_t and std::ptrdiff_t in C++ code (bug #60471) John W. Eaton <jwe@octave.org> parents: 29358 diff changeset	4235 std::size_t
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4236 mxGetN (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4237 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4238 return ptr->get_n ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4239 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4240
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	4241 const mwSize *
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4242 mxGetDimensions (const mxArray *ptr)
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	4243 {
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4244 return ptr->get_dimensions ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4245 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4246
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	4247 mwSize
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4248 mxGetNumberOfDimensions (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4249 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4250 return ptr->get_number_of_dimensions ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4251 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4252
29654 d13d090cb03a use std::size_t and std::ptrdiff_t in C++ code (bug #60471) John W. Eaton <jwe@octave.org> parents: 29358 diff changeset	4253 std::size_t
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4254 mxGetNumberOfElements (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4255 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4256 return ptr->get_number_of_elements ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4257 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4258
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4259 // Dimension setters.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4260 void
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	4261 mxSetM (mxArray *ptr, mwSize m)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4262 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4263 ptr->set_m (m);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4264 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4265
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4266 void
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	4267 mxSetN (mxArray *ptr, mwSize n)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4268 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4269 ptr->set_n (n);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4270 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4271
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	4272 int
30212 c27b9ba4c9bd * mex.cc: Don't use m_ prefix for function arguments and local variables. John W. Eaton <jwe@octave.org> parents: 30129 diff changeset	4273 mxSetDimensions (mxArray ptr, const mwSize dims, mwSize ndims)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4274 {
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	4275 return (ptr->set_dimensions (static_cast<mwSize *>
30212 c27b9ba4c9bd * mex.cc: Don't use m_ prefix for function arguments and local variables. John W. Eaton <jwe@octave.org> parents: 30129 diff changeset	4276 (maybe_unmark (const_cast<mwSize *> (dims))),
c27b9ba4c9bd * mex.cc: Don't use m_ prefix for function arguments and local variables. John W. Eaton <jwe@octave.org> parents: 30129 diff changeset	4277 ndims));
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4278 }
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	4279
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4280 // Data extractors.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4281 double *
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4282 mxGetPr (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4283 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4284 return static_cast<double *> (ptr->get_data ());
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4285 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4286
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4287 double
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4288 mxGetScalar (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4289 {
6332 debb662eab07 [project @ 2007-02-20 20:41:35 by jwe] jwe parents: 6271 diff changeset	4290 return ptr->get_scalar ();
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4291 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4292
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4293 mxChar *
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4294 mxGetChars (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4295 {
22471 667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	4296 if (mxIsChar (ptr))
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	4297 return static_cast<mxChar *> (ptr->get_data ());
667d353d1ab8 Clean up MEX API prototypes to match Matlab. Rik <rik@octave.org> parents: 22465 diff changeset	4298 else
23457 21baad6b35c4 maint: Use C++11 nullptr rather than 0 or NULL when possible. Rik <rik@octave.org> parents: 23455 diff changeset	4299 return nullptr;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4300 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4301
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4302 mxLogical *
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4303 mxGetLogicals (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4304 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4305 return static_cast<mxLogical *> (ptr->get_data ());
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4306 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4307
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4308 void *
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4309 mxGetData (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4310 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4311 return ptr->get_data ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4312 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4313
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4314 double *
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4315 mxGetPi (const mxArray *ptr)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4316 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4317 return static_cast<double *> (ptr->get_imag_data ());
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4318 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4319
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4320 void *
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4321 mxGetImagData (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4322 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4323 return ptr->get_imag_data ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4324 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4325
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4326 mxDouble * mxGetDoubles (const mxArray *ptr)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4327 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4328 return ptr->get_doubles ();
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4329 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4330
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4331 mxSingle * mxGetSingles (const mxArray *ptr)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4332 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4333 return ptr->get_singles ();
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4334 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4335
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4336 mxInt8 * mxGetInt8s (const mxArray *ptr)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4337 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4338 return ptr->get_int8s ();
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4339 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4340
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4341 mxInt16 * mxGetInt16s (const mxArray *ptr)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4342 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4343 return ptr->get_int16s ();
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4344 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4345
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4346 mxInt32 * mxGetInt32s (const mxArray *ptr)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4347 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4348 return ptr->get_int32s ();
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4349 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4350
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4351 mxInt64 * mxGetInt64s (const mxArray *ptr)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4352 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4353 return ptr->get_int64s ();
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4354 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4355
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4356 mxUint8 * mxGetUint8s (const mxArray *ptr)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4357 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4358 return ptr->get_uint8s ();
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4359 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4360
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4361 mxUint16 * mxGetUint16s (const mxArray *ptr)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4362 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4363 return ptr->get_uint16s ();
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4364 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4365
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4366 mxUint32 * mxGetUint32s (const mxArray *ptr)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4367 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4368 return ptr->get_uint32s ();
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4369 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4370
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4371 mxUint64 * mxGetUint64s (const mxArray *ptr)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4372 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4373 return ptr->get_uint64s ();
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4374 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4375
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4376 mxComplexDouble * mxGetComplexDoubles (const mxArray *ptr)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4377 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4378 return ptr->get_complex_doubles ();
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4379 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4380
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4381 mxComplexSingle * mxGetComplexSingles (const mxArray *ptr)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4382 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4383 return ptr->get_complex_singles ();
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4384 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4385
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4386 #if 0
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4387 /* We don't have these yet. */
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4388 mxComplexInt8 * mxGetComplexInt8s (const mxArray *ptr)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4389 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4390 return ptr->get_complex_int8s ();
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4391 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4392
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4393 mxComplexInt16 * mxGetComplexInt16s (const mxArray *ptr)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4394 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4395 return ptr->get_complex_int16s ();
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4396 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4397
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4398 mxComplexInt32 * mxGetComplexInt32s (const mxArray *ptr)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4399 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4400 return ptr->get_complex_int32s ();
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4401 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4402
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4403 mxComplexInt64 * mxGetComplexInt64s (const mxArray *ptr)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4404 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4405 return ptr->get_complex_int64s ();
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4406 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4407
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4408 mxComplexUint8 * mxGetComplexUint8s (const mxArray *ptr)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4409 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4410 return ptr->get_complex_uint8s ();
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4411 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4412
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4413 mxComplexUint16 * mxGetComplexUint16s (const mxArray *ptr)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4414 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4415 return ptr->get_complex_uint16s ();
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4416 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4417
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4418 mxComplexUint32 * mxGetComplexUint32s (const mxArray *ptr)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4419 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4420 return ptr->get_complex_uint32s ();
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4421 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4422
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4423 mxComplexUint64 * mxGetComplexUint64s (const mxArray *ptr)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4424 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4425 return ptr->get_complex_uint64s ();
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4426 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4427 #endif
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4428
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4429 // Data setters.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4430 void
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4431 mxSetPr (mxArray ptr, double pr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4432 {
7172 e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	4433 ptr->set_data (maybe_unmark (pr));
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4434 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4435
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4436 void
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4437 mxSetData (mxArray ptr, void pr)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4438 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4439 ptr->set_data (maybe_unmark (pr));
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4440 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4441
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4442 int mxSetDoubles (mxArray ptr, mxDouble data)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4443 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4444 return ptr->set_doubles (maybe_unmark (data));
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4445 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4446
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4447 int mxSetSingles (mxArray ptr, mxSingle data)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4448 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4449 return ptr->set_singles (maybe_unmark (data));
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4450 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4451
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4452 int mxSetInt8s (mxArray ptr, mxInt8 data)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4453 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4454 return ptr->set_int8s (maybe_unmark (data));
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4455 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4456
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4457 int mxSetInt16s (mxArray ptr, mxInt16 data)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4458 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4459 return ptr->set_int16s (maybe_unmark (data));
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4460 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4461
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4462 int mxSetInt32s (mxArray ptr, mxInt32 data)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4463 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4464 return ptr->set_int32s (maybe_unmark (data));
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4465 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4466
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4467 int mxSetInt64s (mxArray ptr, mxInt64 data)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4468 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4469 return ptr->set_int64s (maybe_unmark (data));
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4470 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4471
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4472 int mxSetUint8s (mxArray ptr, mxUint8 data)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4473 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4474 return ptr->set_uint8s (maybe_unmark (data));
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4475 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4476
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4477 int mxSetUint16s (mxArray ptr, mxUint16 data)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4478 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4479 return ptr->set_uint16s (maybe_unmark (data));
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4480 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4481
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4482 int mxSetUint32s (mxArray ptr, mxUint32 data)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4483 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4484 return ptr->set_uint32s (maybe_unmark (data));
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4485 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4486
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4487 int mxSetUint64s (mxArray ptr, mxUint64 data)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4488 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4489 return ptr->set_uint64s (maybe_unmark (data));
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4490 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4491
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4492 int mxSetComplexDoubles (mxArray ptr, mxComplexDouble data)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4493 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4494 return ptr->set_complex_doubles (maybe_unmark (data));
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4495 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4496
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4497 int mxSetComplexSingles (mxArray ptr, mxComplexSingle data)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4498 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4499 return ptr->set_complex_singles (maybe_unmark (data));
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4500 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4501
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4502 #if 0
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4503 /* We don't have these yet. */
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4504 int mxSetComplexInt8s (mxArray ptr, mxComplexInt8 data)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4505 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4506 return ptr->set_complex_int8s (maybe_unmark (data));
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4507 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4508
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4509 int mxSetComplexInt16s (mxArray ptr, mxComplexInt16 data)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4510 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4511 return ptr->set_complex_int16s (maybe_unmark (data));
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4512 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4513
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4514 int mxSetComplexInt32s (mxArray ptr, mxComplexInt32 data)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4515 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4516 return ptr->set_complex_int32s (maybe_unmark (data));
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4517 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4518
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4519 int mxSetComplexInt64s (mxArray ptr, mxComplexInt64 data)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4520 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4521 return ptr->set_complex_int64s (maybe_unmark (data));
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4522 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4523
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4524 int mxSetComplexUint8s (mxArray ptr, mxComplexUint8 data)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4525 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4526 return ptr->set_complex_uint8s (maybe_unmark (data));
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4527 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4528
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4529 int mxSetComplexUint16s (mxArray ptr, mxComplexUint16 data)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4530 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4531 return ptr->set_complex_uint16s (maybe_unmark (data));
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4532 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4533
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4534 int mxSetComplexUint32s (mxArray ptr, mxComplexUint32 data)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4535 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4536 return ptr->set_complex_uint32s (maybe_unmark (data));
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4537 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4538
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4539 int mxSetComplexUint64s (mxArray ptr, mxComplexUint64 data)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4540 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4541 return ptr->set_complex_uint64s (maybe_unmark (data));
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4542 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4543 #endif
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4544
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4545 void
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4546 mxSetPi (mxArray ptr, double pi)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4547 {
7172 e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	4548 ptr->set_imag_data (maybe_unmark (pi));
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	4549 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	4550
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4551 void
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4552 mxSetImagData (mxArray ptr, void pi)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4553 {
7172 e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	4554 ptr->set_imag_data (maybe_unmark (pi));
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4555 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4556
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4557 // Classes.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4558 mxClassID
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4559 mxGetClassID (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4560 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4561 return ptr->get_class_id ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4562 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4563
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4564 const char *
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4565 mxGetClassName (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4566 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4567 return ptr->get_class_name ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4568 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4569
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4570 void
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4571 mxSetClassName (mxArray ptr, const char name)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4572 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4573 ptr->set_class_name (name);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4574 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4575
23893 75eff5b667b3 new mxSetProperty function for MEX API John W. Eaton <jwe@octave.org> parents: 23891 diff changeset	4576 void
75eff5b667b3 new mxSetProperty function for MEX API John W. Eaton <jwe@octave.org> parents: 23891 diff changeset	4577 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	4578 const mxArray *property_value)
75eff5b667b3 new mxSetProperty function for MEX API John W. Eaton <jwe@octave.org> parents: 23891 diff changeset	4579 {
75eff5b667b3 new mxSetProperty function for MEX API John W. Eaton <jwe@octave.org> parents: 23891 diff changeset	4580 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	4581 }
75eff5b667b3 new mxSetProperty function for MEX API John W. Eaton <jwe@octave.org> parents: 23891 diff changeset	4582
23891 142a9c7e403a Avoid CamelCase in variables names in mxGetProperty cset (bd9e719f04cc). Rik <rik@octave.org> parents: 23884 diff changeset	4583 mxArray *
142a9c7e403a Avoid CamelCase in variables names in mxGetProperty cset (bd9e719f04cc). Rik <rik@octave.org> parents: 23884 diff changeset	4584 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	4585 {
23891 142a9c7e403a Avoid CamelCase in variables names in mxGetProperty cset (bd9e719f04cc). Rik <rik@octave.org> parents: 23884 diff changeset	4586 return ptr->get_property (idx, property_name);
23884 bd9e719f04cc new mxGetProperty function for MEX API Piotr Held <pjheld@gmail.com> parents: 23795 diff changeset	4587 }
bd9e719f04cc new mxGetProperty function for MEX API Piotr Held <pjheld@gmail.com> parents: 23795 diff changeset	4588
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4589 // Cell support.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4590 mxArray *
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	4591 mxGetCell (const mxArray *ptr, mwIndex idx)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4592 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4593 return ptr->get_cell (idx);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4594 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4595
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4596 void
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	4597 mxSetCell (mxArray ptr, mwIndex idx, mxArray val)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4598 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4599 ptr->set_cell (idx, val);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4600 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4601
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4602 // Sparse support.
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	4603 mwIndex *
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4604 mxGetIr (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4605 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4606 return ptr->get_ir ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4607 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4608
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	4609 mwIndex *
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4610 mxGetJc (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4611 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4612 return ptr->get_jc ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4613 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4614
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	4615 mwSize
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4616 mxGetNzmax (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4617 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4618 return ptr->get_nzmax ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4619 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4620
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4621 void
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	4622 mxSetIr (mxArray ptr, mwIndex ir)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4623 {
19739 3fa35defe495 Adjust spacing of static_cast<> calls to follow Octave coding conventions. Rik <rik@octave.org> parents: 19697 diff changeset	4624 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	4625 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4626
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4627 void
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	4628 mxSetJc (mxArray ptr, mwIndex jc)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4629 {
7172 e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	4630 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	4631 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4632
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4633 void
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	4634 mxSetNzmax (mxArray *ptr, mwSize nzmax)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4635 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4636 ptr->set_nzmax (nzmax);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4637 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4638
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4639 // Structure support.
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4640 int
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4641 mxAddField (mxArray ptr, const char key)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4642 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4643 return ptr->add_field (key);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4644 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4645
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4646 void
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4647 mxRemoveField (mxArray *ptr, int key_num)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4648 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4649 ptr->remove_field (key_num);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4650 }
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	4651
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	4652 mxArray *
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	4653 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	4654 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4655 int key_num = mxGetFieldNumber (ptr, key);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4656 return mxGetFieldByNumber (ptr, index, key_num);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4657 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4658
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4659 mxArray *
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	4660 mxGetFieldByNumber (const mxArray *ptr, mwIndex index, int key_num)
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	4661 {
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4662 return ptr->get_field_by_number (index, key_num);
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	4663 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	4664
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4665 void
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	4666 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	4667 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4668 int key_num = mxGetFieldNumber (ptr, key);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4669 mxSetFieldByNumber (ptr, index, key_num, val);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4670 }
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	4671
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	4672 void
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	4673 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	4674 {
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4675 ptr->set_field_by_number (index, key_num, val);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4676 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4677
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4678 int
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4679 mxGetNumberOfFields (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4680 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4681 return ptr->get_number_of_fields ();
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	4682 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	4683
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4684 const char *
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4685 mxGetFieldNameByNumber (const mxArray *ptr, int key_num)
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	4686 {
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4687 return ptr->get_field_name_by_number (key_num);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4688 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4689
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4690 int
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4691 mxGetFieldNumber (const mxArray ptr, const char key)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4692 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4693 return ptr->get_field_number (key);
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	4694 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	4695
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4696 int
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	4697 mxGetString (const mxArray ptr, char buf, mwSize buflen)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4698 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4699 return ptr->get_string (buf, buflen);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4700 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4701
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4702 char *
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4703 mxArrayToString (const mxArray *ptr)
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	4704 {
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4705 return ptr->array_to_string ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4706 }
11586 12df7854fa7c strip trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 11523 diff changeset	4707
6686 2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	4708 mwIndex
2aad75fcc93a [project @ 2007-06-03 20:58:28 by dbateman] dbateman parents: 6601 diff changeset	4709 mxCalcSingleSubscript (const mxArray ptr, mwSize nsubs, mwIndex subs)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4710 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4711 return ptr->calc_single_subscript (nsubs, subs);
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	4712 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4713
29654 d13d090cb03a use std::size_t and std::ptrdiff_t in C++ code (bug #60471) John W. Eaton <jwe@octave.org> parents: 29358 diff changeset	4714 std::size_t
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4715 mxGetElementSize (const mxArray *ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4716 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4717 return ptr->get_element_size ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4718 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4719
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4720 // ------------------------------------------------------------------
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	4721
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	4722 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	4723 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	4724 F77_INT& nrhs, mxArray **prhs);
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	4725
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	4726 octave_value_list
23499 7d89f815d78e modernize octave_mex_function John W. Eaton <jwe@octave.org> parents: 23498 diff changeset	4727 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	4728 int nargout_arg)
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	4729 {
20771 ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	4730 octave_quit ();
ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	4731
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4732 // 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	4733 // still want to be able to return an ans.
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	4734
8806 c7864bb74914 avoid some GCC warnings John W. Eaton <jwe@octave.org> parents: 8377 diff changeset	4735 volatile int nargout = nargout_arg;
c7864bb74914 avoid some GCC warnings John W. Eaton <jwe@octave.org> parents: 8377 diff changeset	4736
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	4737 int nargin = args.length ();
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4738 OCTAVE_LOCAL_BUFFER (mxArray *, argin, nargin);
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	4739 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	4740 argin[i] = nullptr;
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	4741
23450 855122b993da maint: Wrap tertiary operator in parentheses "(COND ? x : y)". Rik <rik@octave.org> parents: 23446 diff changeset	4742 int nout = (nargout == 0 ? 1 : nargout);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4743 OCTAVE_LOCAL_BUFFER (mxArray *, argout, nout);
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	4744 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	4745 argout[i] = nullptr;
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	4746
5905 e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	4747 // Save old mex pointer.
28823 26cfccfee9a0 Replace unwind_protect with more efficient constructs (bug #59192). Rik <rik@octave.org> parents: 28370 diff changeset	4748 octave::unwind_protect_var<mex *> restore_var (mex_context);
5905 e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	4749
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4750 mex context (mex_fcn);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4751
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	4752 for (int i = 0; i < nargin; i++)
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	4753 argin[i] = context.make_value (args(i));
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	4754
20771 ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	4755 mex_context = &context;
ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	4756
23499 7d89f815d78e modernize octave_mex_function John W. Eaton <jwe@octave.org> parents: 23498 diff changeset	4757 void *mex_fcn_ptr = mex_fcn.mex_fcn_ptr ();
7d89f815d78e modernize octave_mex_function John W. Eaton <jwe@octave.org> parents: 23498 diff changeset	4758
7d89f815d78e modernize octave_mex_function John W. Eaton <jwe@octave.org> parents: 23498 diff changeset	4759 if (mex_fcn.is_fmex ())
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	4760 {
23499 7d89f815d78e modernize octave_mex_function John W. Eaton <jwe@octave.org> parents: 23498 diff changeset	4761 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	4762
23498 647705ffb110 use F77_INT type for integer args to Fortran MEX functions John W. Eaton <jwe@octave.org> parents: 23457 diff changeset	4763 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	4764 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	4765
ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	4766 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	4767 }
ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	4768 else
ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	4769 {
23499 7d89f815d78e modernize octave_mex_function John W. Eaton <jwe@octave.org> parents: 23498 diff changeset	4770 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	4771
ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	4772 fcn (nargout, argout, nargin, argin);
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	4773 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	4774
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	4775 // Convert returned array entries back into octave values.
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	4776
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	4777 octave_value_list retval;
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	4778
20555 f90c8372b7ba eliminate many more simple uses of error_state John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	4779 if (nargout == 0 && argout[0])
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	4780 {
20555 f90c8372b7ba eliminate many more simple uses of error_state John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	4781 // We have something for ans.
f90c8372b7ba eliminate many more simple uses of error_state John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	4782 nargout = 1;
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	4783 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	4784
20555 f90c8372b7ba eliminate many more simple uses of error_state John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	4785 retval.resize (nargout);
f90c8372b7ba eliminate many more simple uses of error_state John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	4786
f90c8372b7ba eliminate many more simple uses of error_state John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	4787 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	4788 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	4789
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	4790 return retval;
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	4791 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	4792
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	4793 // C interface to mex functions:
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	4794
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	4795 const char *
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	4796 mexFunctionName (void)
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	4797 {
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4798 return mex_context ? mex_context->function_name () : "unknown";
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4799 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4800
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4801 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	4802 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	4803 mxArray argin[], const char fname)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4804 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4805 octave_value_list args;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4806
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	4807 // 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	4808 // 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	4809 // 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	4810 // handling is implemented.
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4811
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	4812 // 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	4813 // Can this code be re-factored?
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4814 args.resize (nargin);
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4815
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4816 for (int i = 0; i < nargin; i++)
5907 288c341438f9 [project @ 2006-07-27 03:21:02 by jwe] jwe parents: 5905 diff changeset	4817 args(i) = mxArray::as_octave_value (argin[i]);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4818
27474 3fec8e9fa2aa make recover_from_exception a member function John W. Eaton <jwe@octave.org> parents: 27471 diff changeset	4819 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	4820
20535 b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20527 diff changeset	4821 bool execution_error = false;
b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20527 diff changeset	4822
b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20527 diff changeset	4823 octave_value_list retval;
b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20527 diff changeset	4824
b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20527 diff changeset	4825 try
b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20527 diff changeset	4826 {
29172 32fdcf67a683 don't propagate prevailing isargout info through mexCallMATLAB (bug #59597) John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4827 octave::tree_evaluator& tw = interp.get_evaluator ();
32fdcf67a683 don't propagate prevailing isargout info through mexCallMATLAB (bug #59597) John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4828
32fdcf67a683 don't propagate prevailing isargout info through mexCallMATLAB (bug #59597) John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4829 octave::unwind_action act
32fdcf67a683 don't propagate prevailing isargout info through mexCallMATLAB (bug #59597) John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4830 ([&tw] (const std::list<octave::octave_lvalue> *lvl)
32fdcf67a683 don't propagate prevailing isargout info through mexCallMATLAB (bug #59597) John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4831 {
32fdcf67a683 don't propagate prevailing isargout info through mexCallMATLAB (bug #59597) John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4832 tw.set_lvalue_list (lvl);
32fdcf67a683 don't propagate prevailing isargout info through mexCallMATLAB (bug #59597) John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4833 }, tw.lvalue_list ());
32fdcf67a683 don't propagate prevailing isargout info through mexCallMATLAB (bug #59597) John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4834
32fdcf67a683 don't propagate prevailing isargout info through mexCallMATLAB (bug #59597) John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4835 tw.set_lvalue_list (nullptr);
32fdcf67a683 don't propagate prevailing isargout info through mexCallMATLAB (bug #59597) John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	4836
23075 4e3d47dc7e25 move parse tree classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 23052 diff changeset	4837 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	4838 }
22327 d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22323 diff changeset	4839 catch (const octave::execution_exception&)
20535 b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20527 diff changeset	4840 {
20771 ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	4841 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	4842 {
27471 fd32c1a9b1bd revamp error handling John W. Eaton <jwe@octave.org> parents: 27277 diff changeset	4843 // FIXME: is there a way to indicate what error occurred?
fd32c1a9b1bd revamp error handling John W. Eaton <jwe@octave.org> parents: 27277 diff changeset	4844 // 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	4845 // save the exception info for lasterror?
fd32c1a9b1bd revamp error handling John W. Eaton <jwe@octave.org> parents: 27277 diff changeset	4846
27474 3fec8e9fa2aa make recover_from_exception a member function John W. Eaton <jwe@octave.org> parents: 27471 diff changeset	4847 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	4848
2fb86778f78d Return correct status from mexCallMATLAB when mexSetTrapFlag is 1 (bug #48949). Rik <rik@octave.org> parents: 22449 diff changeset	4849 execution_error = true;
2fb86778f78d Return correct status from mexCallMATLAB when mexSetTrapFlag is 1 (bug #48949). Rik <rik@octave.org> parents: 22449 diff changeset	4850 }
20771 ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	4851 else
ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	4852 {
ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	4853 args.resize (0);
ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	4854 retval.resize (0);
ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	4855
ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	4856 throw;
ed708a7ce0a2 simplify memory management for mex files (bug #46559) John W. Eaton <jwe@octave.org> parents: 20756 diff changeset	4857 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4858 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4859
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4860 int num_to_copy = retval.length ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4861
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4862 if (nargout < retval.length ())
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4863 num_to_copy = nargout;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4864
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4865 for (int i = 0; i < num_to_copy; i++)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4866 {
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	4867 // 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	4868 // 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	4869 // 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	4870 // 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	4871 argout[i] = mex_context->make_value (retval(i));
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4872 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4873
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4874 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	4875 argout[num_to_copy++] = nullptr;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4876
20535 b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20527 diff changeset	4877 return execution_error ? 1 : 0;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4878 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4879
22451 ad5439817753 Add mexCallMATLABWithTrap to MEX API (bug #48949). Rik <rik@octave.org> parents: 22450 diff changeset	4880 mxArray *
ad5439817753 Add mexCallMATLABWithTrap to MEX API (bug #48949). Rik <rik@octave.org> parents: 22450 diff changeset	4881 mexCallMATLABWithTrap (int nargout, mxArray *argout[], int nargin,
ad5439817753 Add mexCallMATLABWithTrap to MEX API (bug #48949). Rik <rik@octave.org> parents: 22450 diff changeset	4882 mxArray argin[], const char fname)
ad5439817753 Add mexCallMATLABWithTrap to MEX API (bug #48949). Rik <rik@octave.org> parents: 22450 diff changeset	4883 {
23457 21baad6b35c4 maint: Use C++11 nullptr rather than 0 or NULL when possible. Rik <rik@octave.org> parents: 23455 diff changeset	4884 mxArray *mx = nullptr;
22451 ad5439817753 Add mexCallMATLABWithTrap to MEX API (bug #48949). Rik <rik@octave.org> parents: 22450 diff changeset	4885
23450 855122b993da maint: Wrap tertiary operator in parentheses "(COND ? x : y)". Rik <rik@octave.org> parents: 23446 diff changeset	4886 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	4887 mexSetTrapFlag (1);
ad5439817753 Add mexCallMATLABWithTrap to MEX API (bug #48949). Rik <rik@octave.org> parents: 22450 diff changeset	4888 if (mexCallMATLAB (nargout, argout, nargin, argin, fname))
ad5439817753 Add mexCallMATLABWithTrap to MEX API (bug #48949). Rik <rik@octave.org> parents: 22450 diff changeset	4889 {
22454 8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	4890 const char *field_names[] = {"identifier", "message", "case", "stack"};
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	4891 mx = mxCreateStructMatrix (1, 1, 4, field_names);
22451 ad5439817753 Add mexCallMATLABWithTrap to MEX API (bug #48949). Rik <rik@octave.org> parents: 22450 diff changeset	4892 mxSetFieldByNumber (mx, 0, 0, mxCreateString ("Octave:MEX"));
ad5439817753 Add mexCallMATLABWithTrap to MEX API (bug #48949). Rik <rik@octave.org> parents: 22450 diff changeset	4893 std::string msg = "mexCallMATLABWithTrap: function call <"
ad5439817753 Add mexCallMATLABWithTrap to MEX API (bug #48949). Rik <rik@octave.org> parents: 22450 diff changeset	4894 + std::string (fname) + "> failed";
ad5439817753 Add mexCallMATLABWithTrap to MEX API (bug #48949). Rik <rik@octave.org> parents: 22450 diff changeset	4895 mxSetFieldByNumber (mx, 0, 1, mxCreateString (msg.c_str ()));
ad5439817753 Add mexCallMATLABWithTrap to MEX API (bug #48949). Rik <rik@octave.org> parents: 22450 diff changeset	4896 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	4897 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	4898 }
ad5439817753 Add mexCallMATLABWithTrap to MEX API (bug #48949). Rik <rik@octave.org> parents: 22450 diff changeset	4899 mexSetTrapFlag (old_flag);
ad5439817753 Add mexCallMATLABWithTrap to MEX API (bug #48949). Rik <rik@octave.org> parents: 22450 diff changeset	4900
ad5439817753 Add mexCallMATLABWithTrap to MEX API (bug #48949). Rik <rik@octave.org> parents: 22450 diff changeset	4901 return mx;
ad5439817753 Add mexCallMATLABWithTrap to MEX API (bug #48949). Rik <rik@octave.org> parents: 22450 diff changeset	4902 }
ad5439817753 Add mexCallMATLABWithTrap to MEX API (bug #48949). Rik <rik@octave.org> parents: 22450 diff changeset	4903
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4904 void
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4905 mexSetTrapFlag (int flag)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4906 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4907 if (mex_context)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4908 mex_context->trap_feval_error = flag;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4909 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4910
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4911 int
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4912 mexEvalString (const char *s)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4913 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4914 int retval = 0;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4915
27474 3fec8e9fa2aa make recover_from_exception a member function John W. Eaton <jwe@octave.org> parents: 27471 diff changeset	4916 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	4917
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4918 int parse_status;
22454 8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	4919 bool execution_error = false;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4920
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4921 octave_value_list ret;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4922
20535 b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20527 diff changeset	4923 try
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	4924 {
26113 8a15f3bace49 move eval_string inside interpreter/evaluator class John W. Eaton <jwe@octave.org> parents: 25922 diff changeset	4925 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	4926 }
22327 d0562b3159c7 move more classes inside octave namespace John W. Eaton <jwe@octave.org> parents: 22323 diff changeset	4927 catch (const octave::execution_exception&)
20535 b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20527 diff changeset	4928 {
27474 3fec8e9fa2aa make recover_from_exception a member function John W. Eaton <jwe@octave.org> parents: 27471 diff changeset	4929 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	4930
20535 b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20527 diff changeset	4931 execution_error = true;
b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20527 diff changeset	4932 }
b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20527 diff changeset	4933
b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20527 diff changeset	4934 if (parse_status \|\| execution_error)
b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20527 diff changeset	4935 retval = 1;
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	4936
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	4937 return retval;
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	4938 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	4939
22454 8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	4940 mxArray *
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	4941 mexEvalStringWithTrap (const char *s)
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	4942 {
23457 21baad6b35c4 maint: Use C++11 nullptr rather than 0 or NULL when possible. Rik <rik@octave.org> parents: 23455 diff changeset	4943 mxArray *mx = nullptr;
22454 8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	4944
27474 3fec8e9fa2aa make recover_from_exception a member function John W. Eaton <jwe@octave.org> parents: 27471 diff changeset	4945 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	4946
22454 8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	4947 int parse_status;
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	4948 bool execution_error = false;
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	4949
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	4950 octave_value_list ret;
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	4951
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	4952 try
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	4953 {
26113 8a15f3bace49 move eval_string inside interpreter/evaluator class John W. Eaton <jwe@octave.org> parents: 25922 diff changeset	4954 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	4955 }
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	4956 catch (const octave::execution_exception&)
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	4957 {
27474 3fec8e9fa2aa make recover_from_exception a member function John W. Eaton <jwe@octave.org> parents: 27471 diff changeset	4958 interp.recover_from_exception ();
22454 8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	4959
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	4960 execution_error = true;
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	4961 }
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	4962
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	4963 if (parse_status \|\| execution_error)
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	4964 {
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	4965 const char *field_names[] = {"identifier", "message", "case", "stack"};
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	4966 mx = mxCreateStructMatrix (1, 1, 4, field_names);
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	4967 mxSetFieldByNumber (mx, 0, 0, mxCreateString ("Octave:MEX"));
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	4968 std::string msg = "mexEvalStringWithTrap: eval of <"
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	4969 + std::string (s) + "> failed";
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	4970 mxSetFieldByNumber (mx, 0, 1, mxCreateString (msg.c_str ()));
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	4971 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	4972 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	4973 }
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	4974
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	4975 return mx;
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	4976 }
8445f67a8123 Add function mexEvalStringWithTrap to MEX API. Rik <rik@octave.org> parents: 22452 diff changeset	4977
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	4978 void
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	4979 mexErrMsgTxt (const char *s)
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	4980 {
29654 d13d090cb03a use std::size_t and std::ptrdiff_t in C++ code (bug #60471) John W. Eaton <jwe@octave.org> parents: 29358 diff changeset	4981 std::size_t len;
25751 4bd60c9c6169 Suppress backtrace when MexErrMsgTxt message ends with newline (bug #54454). Rik <rik@octave.org> parents: 25688 diff changeset	4982
4bd60c9c6169 Suppress backtrace when MexErrMsgTxt message ends with newline (bug #54454). Rik <rik@octave.org> parents: 25688 diff changeset	4983 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	4984 {
4bd60c9c6169 Suppress backtrace when MexErrMsgTxt message ends with newline (bug #54454). Rik <rik@octave.org> parents: 25688 diff changeset	4985 if (s[len - 1] == '\n')
4bd60c9c6169 Suppress backtrace when MexErrMsgTxt message ends with newline (bug #54454). Rik <rik@octave.org> parents: 25688 diff changeset	4986 {
4bd60c9c6169 Suppress backtrace when MexErrMsgTxt message ends with newline (bug #54454). Rik <rik@octave.org> parents: 25688 diff changeset	4987 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	4988 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	4989 }
4bd60c9c6169 Suppress backtrace when MexErrMsgTxt message ends with newline (bug #54454). Rik <rik@octave.org> parents: 25688 diff changeset	4990 else
4bd60c9c6169 Suppress backtrace when MexErrMsgTxt message ends with newline (bug #54454). Rik <rik@octave.org> parents: 25688 diff changeset	4991 error ("%s: %s", mexFunctionName (), s);
4bd60c9c6169 Suppress backtrace when MexErrMsgTxt message ends with newline (bug #54454). Rik <rik@octave.org> parents: 25688 diff changeset	4992 }
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	4993 else
16851 209f0db3c32b mexErrMsgTxt should abort when called with an empty string (bug #39343). Rik <rik@octave.org> parents: 16708 diff changeset	4994 {
209f0db3c32b mexErrMsgTxt should abort when called with an empty string (bug #39343). Rik <rik@octave.org> parents: 16708 diff changeset	4995 // 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	4996 // 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	4997 error (" ");
209f0db3c32b mexErrMsgTxt should abort when called with an empty string (bug #39343). Rik <rik@octave.org> parents: 16708 diff changeset	4998 }
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	4999 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	5000
5879 4f1112bfafce [project @ 2006-07-05 23:50:44 by jwe] jwe parents: 5864 diff changeset	5001 void
30212 c27b9ba4c9bd * mex.cc: Don't use m_ prefix for function arguments and local variables. John W. Eaton <jwe@octave.org> parents: 30129 diff changeset	5002 mexErrMsgIdAndTxt (const char id, const char fmt, ...)
5879 4f1112bfafce [project @ 2006-07-05 23:50:44 by jwe] jwe parents: 5864 diff changeset	5003 {
6338 ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	5004 if (fmt && strlen (fmt) > 0)
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	5005 {
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	5006 const char *fname = mexFunctionName ();
29654 d13d090cb03a use std::size_t and std::ptrdiff_t in C++ code (bug #60471) John W. Eaton <jwe@octave.org> parents: 29358 diff changeset	5007 std::size_t len = strlen (fname) + 2 + strlen (fmt) + 1;
6338 ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	5008 OCTAVE_LOCAL_BUFFER (char, tmpfmt, len);
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	5009 sprintf (tmpfmt, "%s: %s", fname, fmt);
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	5010 va_list args;
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	5011 va_start (args, fmt);
30212 c27b9ba4c9bd * mex.cc: Don't use m_ prefix for function arguments and local variables. John W. Eaton <jwe@octave.org> parents: 30129 diff changeset	5012 verror_with_id (id, tmpfmt, args);
6338 ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	5013 va_end (args);
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	5014 }
5879 4f1112bfafce [project @ 2006-07-05 23:50:44 by jwe] jwe parents: 5864 diff changeset	5015 else
16851 209f0db3c32b mexErrMsgTxt should abort when called with an empty string (bug #39343). Rik <rik@octave.org> parents: 16708 diff changeset	5016 {
209f0db3c32b mexErrMsgTxt should abort when called with an empty string (bug #39343). Rik <rik@octave.org> parents: 16708 diff changeset	5017 // 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	5018 // 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	5019 error (" ");
209f0db3c32b mexErrMsgTxt should abort when called with an empty string (bug #39343). Rik <rik@octave.org> parents: 16708 diff changeset	5020 }
5879 4f1112bfafce [project @ 2006-07-05 23:50:44 by jwe] jwe parents: 5864 diff changeset	5021 }
4f1112bfafce [project @ 2006-07-05 23:50:44 by jwe] jwe parents: 5864 diff changeset	5022
4f1112bfafce [project @ 2006-07-05 23:50:44 by jwe] jwe parents: 5864 diff changeset	5023 void
4f1112bfafce [project @ 2006-07-05 23:50:44 by jwe] jwe parents: 5864 diff changeset	5024 mexWarnMsgTxt (const char *s)
4f1112bfafce [project @ 2006-07-05 23:50:44 by jwe] jwe parents: 5864 diff changeset	5025 {
29654 d13d090cb03a use std::size_t and std::ptrdiff_t in C++ code (bug #60471) John W. Eaton <jwe@octave.org> parents: 29358 diff changeset	5026 std::size_t len;
25751 4bd60c9c6169 Suppress backtrace when MexErrMsgTxt message ends with newline (bug #54454). Rik <rik@octave.org> parents: 25688 diff changeset	5027
4bd60c9c6169 Suppress backtrace when MexErrMsgTxt message ends with newline (bug #54454). Rik <rik@octave.org> parents: 25688 diff changeset	5028 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	5029 {
4bd60c9c6169 Suppress backtrace when MexErrMsgTxt message ends with newline (bug #54454). Rik <rik@octave.org> parents: 25688 diff changeset	5030 if (s[len - 1] == '\n')
4bd60c9c6169 Suppress backtrace when MexErrMsgTxt message ends with newline (bug #54454). Rik <rik@octave.org> parents: 25688 diff changeset	5031 {
4bd60c9c6169 Suppress backtrace when MexErrMsgTxt message ends with newline (bug #54454). Rik <rik@octave.org> parents: 25688 diff changeset	5032 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	5033 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	5034 }
4bd60c9c6169 Suppress backtrace when MexErrMsgTxt message ends with newline (bug #54454). Rik <rik@octave.org> parents: 25688 diff changeset	5035 else
4bd60c9c6169 Suppress backtrace when MexErrMsgTxt message ends with newline (bug #54454). Rik <rik@octave.org> parents: 25688 diff changeset	5036 warning ("%s", s);
4bd60c9c6169 Suppress backtrace when MexErrMsgTxt message ends with newline (bug #54454). Rik <rik@octave.org> parents: 25688 diff changeset	5037 }
4bd60c9c6169 Suppress backtrace when MexErrMsgTxt message ends with newline (bug #54454). Rik <rik@octave.org> parents: 25688 diff changeset	5038 else
4bd60c9c6169 Suppress backtrace when MexErrMsgTxt message ends with newline (bug #54454). Rik <rik@octave.org> parents: 25688 diff changeset	5039 {
4bd60c9c6169 Suppress backtrace when MexErrMsgTxt message ends with newline (bug #54454). Rik <rik@octave.org> parents: 25688 diff changeset	5040 // 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	5041 // 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	5042 warning (" ");
4bd60c9c6169 Suppress backtrace when MexErrMsgTxt message ends with newline (bug #54454). Rik <rik@octave.org> parents: 25688 diff changeset	5043 }
5879 4f1112bfafce [project @ 2006-07-05 23:50:44 by jwe] jwe parents: 5864 diff changeset	5044 }
4f1112bfafce [project @ 2006-07-05 23:50:44 by jwe] jwe parents: 5864 diff changeset	5045
4f1112bfafce [project @ 2006-07-05 23:50:44 by jwe] jwe parents: 5864 diff changeset	5046 void
30212 c27b9ba4c9bd * mex.cc: Don't use m_ prefix for function arguments and local variables. John W. Eaton <jwe@octave.org> parents: 30129 diff changeset	5047 mexWarnMsgIdAndTxt (const char id, const char fmt, ...)
5879 4f1112bfafce [project @ 2006-07-05 23:50:44 by jwe] jwe parents: 5864 diff changeset	5048 {
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	5049 // 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	5050 // an empty string?
6338 ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	5051
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	5052 if (fmt && strlen (fmt) > 0)
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	5053 {
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	5054 const char *fname = mexFunctionName ();
29654 d13d090cb03a use std::size_t and std::ptrdiff_t in C++ code (bug #60471) John W. Eaton <jwe@octave.org> parents: 29358 diff changeset	5055 std::size_t len = strlen (fname) + 2 + strlen (fmt) + 1;
6338 ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	5056 OCTAVE_LOCAL_BUFFER (char, tmpfmt, len);
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	5057 sprintf (tmpfmt, "%s: %s", fname, fmt);
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	5058 va_list args;
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	5059 va_start (args, fmt);
30212 c27b9ba4c9bd * mex.cc: Don't use m_ prefix for function arguments and local variables. John W. Eaton <jwe@octave.org> parents: 30129 diff changeset	5060 vwarning_with_id (id, tmpfmt, args);
6338 ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	5061 va_end (args);
ec88b4ab6d10 [project @ 2007-02-22 07:07:19 by jwe] jwe parents: 6332 diff changeset	5062 }
5879 4f1112bfafce [project @ 2006-07-05 23:50:44 by jwe] jwe parents: 5864 diff changeset	5063 }
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	5064
10127 f21fdff5c906 Change signature of mexPrintf. David Grundberg <davidg@cs.umu.se> parents: 10126 diff changeset	5065 int
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	5066 mexPrintf (const char *fmt, ...)
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	5067 {
10127 f21fdff5c906 Change signature of mexPrintf. David Grundberg <davidg@cs.umu.se> parents: 10126 diff changeset	5068 int retval;
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	5069 va_list args;
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	5070 va_start (args, fmt);
25646 4d565baa475e move libinterp/utils functions inside octave namespace John W. Eaton <jwe@octave.org> parents: 25452 diff changeset	5071 retval = octave::vformat (octave_stdout, fmt, args);
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	5072 va_end (args);
10127 f21fdff5c906 Change signature of mexPrintf. David Grundberg <davidg@cs.umu.se> parents: 10126 diff changeset	5073 return retval;
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	5074 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	5075
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	5076 mxArray *
5879 4f1112bfafce [project @ 2006-07-05 23:50:44 by jwe] jwe parents: 5864 diff changeset	5077 mexGetVariable (const char space, const char name)
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	5078 {
23457 21baad6b35c4 maint: Use C++11 nullptr rather than 0 or NULL when possible. Rik <rik@octave.org> parents: 23455 diff changeset	5079 mxArray *retval = nullptr;
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	5080
7752 40c428ea3408 initial implementation of dbup and dbdown John W. Eaton <jwe@octave.org> parents: 7577 diff changeset	5081 octave_value val;
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	5082
26661 cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: 26438 diff changeset	5083 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	5084
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	5085 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	5086 val = interp.global_varval (name);
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	5087 else
7752 40c428ea3408 initial implementation of dbup and dbdown John W. Eaton <jwe@octave.org> parents: 7577 diff changeset	5088 {
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	5089 // 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	5090
21743 f4d7d0eb5b0c use namespace for unwind_protect class John W. Eaton <jwe@octave.org> parents: 21724 diff changeset	5091 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	5092
7901 3e4c9b69069d call stack changes John W. Eaton <jwe@octave.org> parents: 7752 diff changeset	5093 bool caller = ! strcmp (space, "caller");
3e4c9b69069d call stack changes John W. Eaton <jwe@octave.org> parents: 7752 diff changeset	5094 bool base = ! strcmp (space, "base");
3e4c9b69069d call stack changes John W. Eaton <jwe@octave.org> parents: 7752 diff changeset	5095
3e4c9b69069d call stack changes John W. Eaton <jwe@octave.org> parents: 7752 diff changeset	5096 if (caller \|\| base)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	5097 {
16708 08f0f274de36 use correct "caller" workspace for mexputvariable and mexgetvariable John W. Eaton <jwe@octave.org> parents: 16442 diff changeset	5098 // 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	5099 // 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	5100
08f0f274de36 use correct "caller" workspace for mexputvariable and mexgetvariable John W. Eaton <jwe@octave.org> parents: 16442 diff changeset	5101 if (base)
08f0f274de36 use correct "caller" workspace for mexputvariable and mexgetvariable John W. Eaton <jwe@octave.org> parents: 16442 diff changeset	5102 {
27206 4e4a9d7b436e eliminate direct access to call stack in mex functions John W. Eaton <jwe@octave.org> parents: 27083 diff changeset	5103 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	5104
29253 28913793f678 prefer unwind_action over unwind_protect in more places John W. Eaton <jwe@octave.org> parents: 29173 diff changeset	5105 frame.add (&octave::tree_evaluator::restore_frame, &tw,
28913793f678 prefer unwind_action over unwind_protect in more places John W. Eaton <jwe@octave.org> parents: 29173 diff changeset	5106 tw.current_call_stack_frame_number ());
27206 4e4a9d7b436e eliminate direct access to call stack in mex functions John W. Eaton <jwe@octave.org> parents: 27083 diff changeset	5107
4e4a9d7b436e eliminate direct access to call stack in mex functions John W. Eaton <jwe@octave.org> parents: 27083 diff changeset	5108 tw.goto_base_frame ();
16708 08f0f274de36 use correct "caller" workspace for mexputvariable and mexgetvariable John W. Eaton <jwe@octave.org> parents: 16442 diff changeset	5109 }
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	5110
26661 cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: 26438 diff changeset	5111 val = interp.varval (name);
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	5112 }
7752 40c428ea3408 initial implementation of dbup and dbdown John W. Eaton <jwe@octave.org> parents: 7577 diff changeset	5113 else
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	5114 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	5115 }
7336 745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe] jwe parents: 7179 diff changeset	5116
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe] jwe parents: 7179 diff changeset	5117 if (val.is_defined ())
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	5118 {
7336 745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe] jwe parents: 7179 diff changeset	5119 retval = mex_context->make_value (val);
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe] jwe parents: 7179 diff changeset	5120
745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe] jwe parents: 7179 diff changeset	5121 retval->set_name (name);
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	5122 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	5123
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	5124 return retval;
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	5125 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	5126
5879 4f1112bfafce [project @ 2006-07-05 23:50:44 by jwe] jwe parents: 5864 diff changeset	5127 const mxArray *
4f1112bfafce [project @ 2006-07-05 23:50:44 by jwe] jwe parents: 5864 diff changeset	5128 mexGetVariablePtr (const char space, const char name)
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	5129 {
5879 4f1112bfafce [project @ 2006-07-05 23:50:44 by jwe] jwe parents: 5864 diff changeset	5130 return mexGetVariable (space, name);
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	5131 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	5132
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	5133 int
15353 5f3a69a309a7 fix decl of mexPutVariable John W. Eaton <jwe@octave.org> parents: 15351 diff changeset	5134 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	5135 {
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	5136 if (! ptr)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	5137 return 1;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	5138
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	5139 if (! name)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	5140 return 1;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	5141
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	5142 if (name[0] == '\0')
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	5143 name = ptr->get_name ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	5144
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	5145 if (! name \|\| name[0] == '\0')
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	5146 return 1;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	5147
26661 cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: 26438 diff changeset	5148 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	5149
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	5150 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	5151 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	5152 else
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	5153 {
17787 175b392e91fe Use GNU style coding conventions for code in libinterp/ Rik <rik@octave.org> parents: 17744 diff changeset	5154 // FIXME: should this be in variables.cc?
7336 745a8299c2b5 [project @ 2007-12-28 20:56:55 by jwe] jwe parents: 7179 diff changeset	5155
21743 f4d7d0eb5b0c use namespace for unwind_protect class John W. Eaton <jwe@octave.org> parents: 21724 diff changeset	5156 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	5157
7901 3e4c9b69069d call stack changes John W. Eaton <jwe@octave.org> parents: 7752 diff changeset	5158 bool caller = ! strcmp (space, "caller");
3e4c9b69069d call stack changes John W. Eaton <jwe@octave.org> parents: 7752 diff changeset	5159 bool base = ! strcmp (space, "base");
3e4c9b69069d call stack changes John W. Eaton <jwe@octave.org> parents: 7752 diff changeset	5160
3e4c9b69069d call stack changes John W. Eaton <jwe@octave.org> parents: 7752 diff changeset	5161 if (caller \|\| base)
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	5162 {
16708 08f0f274de36 use correct "caller" workspace for mexputvariable and mexgetvariable John W. Eaton <jwe@octave.org> parents: 16442 diff changeset	5163 // 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	5164 // 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	5165
08f0f274de36 use correct "caller" workspace for mexputvariable and mexgetvariable John W. Eaton <jwe@octave.org> parents: 16442 diff changeset	5166 if (base)
08f0f274de36 use correct "caller" workspace for mexputvariable and mexgetvariable John W. Eaton <jwe@octave.org> parents: 16442 diff changeset	5167 {
27206 4e4a9d7b436e eliminate direct access to call stack in mex functions John W. Eaton <jwe@octave.org> parents: 27083 diff changeset	5168 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	5169
29253 28913793f678 prefer unwind_action over unwind_protect in more places John W. Eaton <jwe@octave.org> parents: 29173 diff changeset	5170 frame.add (&octave::tree_evaluator::restore_frame, &tw,
28913793f678 prefer unwind_action over unwind_protect in more places John W. Eaton <jwe@octave.org> parents: 29173 diff changeset	5171 tw.current_call_stack_frame_number ());
27206 4e4a9d7b436e eliminate direct access to call stack in mex functions John W. Eaton <jwe@octave.org> parents: 27083 diff changeset	5172
4e4a9d7b436e eliminate direct access to call stack in mex functions John W. Eaton <jwe@octave.org> parents: 27083 diff changeset	5173 tw.goto_base_frame ();
16708 08f0f274de36 use correct "caller" workspace for mexputvariable and mexgetvariable John W. Eaton <jwe@octave.org> parents: 16442 diff changeset	5174 }
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	5175
26661 cf9e10ce3351 move variable values from symbol_record objects to stack_frame objects John W. Eaton <jwe@octave.org> parents: 26438 diff changeset	5176 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	5177 }
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	5178 else
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	5179 mexErrMsgTxt ("mexPutVariable: symbol table does not exist");
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	5180 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	5181
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	5182 return 0;
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	5183 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	5184
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	5185 void
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	5186 mexMakeArrayPersistent (mxArray *ptr)
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	5187 {
7172 e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	5188 maybe_unmark_array (ptr);
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	5189 }
5879 4f1112bfafce [project @ 2006-07-05 23:50:44 by jwe] jwe parents: 5864 diff changeset	5190
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	5191 void
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	5192 mexMakeMemoryPersistent (void *ptr)
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	5193 {
7172 e9a590a137d8 [project @ 2007-11-14 16:17:10 by jwe] jwe parents: 7016 diff changeset	5194 maybe_unmark (ptr);
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	5195 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	5196
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	5197 int
6068 c9f0839c583f [project @ 2006-10-20 16:54:30 by jwe] jwe parents: 6065 diff changeset	5198 mexAtExit (void (*f) (void))
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	5199 {
6068 c9f0839c583f [project @ 2006-10-20 16:54:30 by jwe] jwe parents: 6065 diff changeset	5200 if (mex_context)
c9f0839c583f [project @ 2006-10-20 16:54:30 by jwe] jwe parents: 6065 diff changeset	5201 {
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	5202 octave_mex_function& curr_mex_fcn = mex_context->current_mex_function ();
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	5203
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	5204 curr_mex_fcn.atexit (f);
6068 c9f0839c583f [project @ 2006-10-20 16:54:30 by jwe] jwe parents: 6065 diff changeset	5205 }
c9f0839c583f [project @ 2006-10-20 16:54:30 by jwe] jwe parents: 6065 diff changeset	5206
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	5207 return 0;
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	5208 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	5209
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	5210 const mxArray *
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	5211 mexGet_interleaved (double handle, const char *property)
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	5212 {
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	5213 mxArray *m = nullptr;
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	5214
29993 b5fae48ad807 move classes for graphics objects and properties inside octave namespace John W. Eaton <jwe@octave.org> parents: 29870 diff changeset	5215 octave_value ret
b5fae48ad807 move classes for graphics objects and properties inside octave namespace John W. Eaton <jwe@octave.org> parents: 29870 diff changeset	5216 = octave::get_property_from_handle (handle, property, "mexGet");
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	5217
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	5218 if (ret.is_defined ())
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	5219 m = ret.as_mxArray (true);
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	5220
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	5221 return m;
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	5222 }
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	5223
4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	5224 const mxArray *
6595 55586d763de1 [project @ 2007-04-27 15:31:10 by dbateman] dbateman parents: 6493 diff changeset	5225 mexGet (double handle, const char *property)
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	5226 {
23457 21baad6b35c4 maint: Use C++11 nullptr rather than 0 or NULL when possible. Rik <rik@octave.org> parents: 23455 diff changeset	5227 mxArray *m = nullptr;
20555 f90c8372b7ba eliminate many more simple uses of error_state John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	5228
29993 b5fae48ad807 move classes for graphics objects and properties inside octave namespace John W. Eaton <jwe@octave.org> parents: 29870 diff changeset	5229 octave_value ret
b5fae48ad807 move classes for graphics objects and properties inside octave namespace John W. Eaton <jwe@octave.org> parents: 29870 diff changeset	5230 = octave::get_property_from_handle (handle, property, "mexGet");
6595 55586d763de1 [project @ 2007-04-27 15:31:10 by dbateman] dbateman parents: 6493 diff changeset	5231
20555 f90c8372b7ba eliminate many more simple uses of error_state John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	5232 if (ret.is_defined ())
28126 4c21f99b4ad5 handle interleaved complex data and new typed data access functions for mex John W. Eaton <jwe@octave.org> parents: 27932 diff changeset	5233 m = ret.as_mxArray (false);
20555 f90c8372b7ba eliminate many more simple uses of error_state John W. Eaton <jwe@octave.org> parents: 20535 diff changeset	5234
6595 55586d763de1 [project @ 2007-04-27 15:31:10 by dbateman] dbateman parents: 6493 diff changeset	5235 return m;
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	5236 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	5237
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	5238 int
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	5239 mexIsGlobal (const mxArray *ptr)
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	5240 {
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	5241 return mxIsFromGlobalWS (ptr);
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	5242 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	5243
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	5244 int
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	5245 mexIsLocked (void)
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	5246 {
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	5247 int retval = 0;
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	5248
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	5249 if (mex_context)
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	5250 {
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	5251 const char *fname = mexFunctionName ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	5252
23703 6eb5f6199a5a move mlock, munlock, and mislocked to interpreter class John W. Eaton <jwe@octave.org> parents: 23699 diff changeset	5253 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	5254
6eb5f6199a5a move mlock, munlock, and mislocked to interpreter class John W. Eaton <jwe@octave.org> parents: 23699 diff changeset	5255 retval = interp.mislocked (fname);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	5256 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	5257
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	5258 return retval;
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	5259 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	5260
30390 a61e1a0f6024 maint: style check C++ files in libinterp/ ahead of 7.1 release. Rik <rik@octave.org> parents: 30349 diff changeset	5261 std::map<std::string, int> mex_lock_count;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	5262
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	5263 void
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	5264 mexLock (void)
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	5265 {
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	5266 if (mex_context)
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	5267 {
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	5268 const char *fname = mexFunctionName ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	5269
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	5270 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	5271 mex_lock_count[fname] = 1;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	5272 else
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	5273 mex_lock_count[fname]++;
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	5274
23703 6eb5f6199a5a move mlock, munlock, and mislocked to interpreter class John W. Eaton <jwe@octave.org> parents: 23699 diff changeset	5275 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	5276
6eb5f6199a5a move mlock, munlock, and mislocked to interpreter class John W. Eaton <jwe@octave.org> parents: 23699 diff changeset	5277 interp.mlock ();
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	5278 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	5279 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	5280
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	5281 int
6595 55586d763de1 [project @ 2007-04-27 15:31:10 by dbateman] dbateman parents: 6493 diff changeset	5282 mexSet (double handle, const char property, mxArray val)
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	5283 {
29993 b5fae48ad807 move classes for graphics objects and properties inside octave namespace John W. Eaton <jwe@octave.org> parents: 29870 diff changeset	5284 bool ret = octave::set_property_in_handle (handle, property,
b5fae48ad807 move classes for graphics objects and properties inside octave namespace John W. Eaton <jwe@octave.org> parents: 29870 diff changeset	5285 mxArray::as_octave_value (val),
b5fae48ad807 move classes for graphics objects and properties inside octave namespace John W. Eaton <jwe@octave.org> parents: 29870 diff changeset	5286 "mexSet");
6595 55586d763de1 [project @ 2007-04-27 15:31:10 by dbateman] dbateman parents: 6493 diff changeset	5287 return (ret ? 0 : 1);
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	5288 }
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	5289
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	5290 void
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	5291 mexUnlock (void)
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	5292 {
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	5293 if (mex_context)
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	5294 {
5900 c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	5295 const char *fname = mexFunctionName ();
c20eb7330d13 [project @ 2006-07-22 08:31:16 by jwe] jwe parents: 5879 diff changeset	5296
25337 3ff9192b676e use auto keyword to declare iterator variables where possible John W. Eaton <jwe@octave.org> parents: 25103 diff changeset	5297 auto p = mex_lock_count.find (fname);
5905 e5c0831a48bd [project @ 2006-07-26 19:27:48 by jwe] jwe parents: 5903 diff changeset	5298
6062 a813714cb04b [project @ 2006-10-18 23:30:22 by jwe] jwe parents: 6018 diff changeset	5299 if (p != mex_lock_count.end ())
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	5300 {
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	5301 int count = --mex_lock_count[fname];
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	5302
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	5303 if (count == 0)
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	5304 {
23703 6eb5f6199a5a move mlock, munlock, and mislocked to interpreter class John W. Eaton <jwe@octave.org> parents: 23699 diff changeset	5305 octave::interpreter& interp
6eb5f6199a5a move mlock, munlock, and mislocked to interpreter class John W. Eaton <jwe@octave.org> parents: 23699 diff changeset	5306 = octave::__get_interpreter__ ("mexUnLock");
6eb5f6199a5a move mlock, munlock, and mislocked to interpreter class John W. Eaton <jwe@octave.org> parents: 23699 diff changeset	5307
6eb5f6199a5a move mlock, munlock, and mislocked to interpreter class John W. Eaton <jwe@octave.org> parents: 23699 diff changeset	5308 interp.munlock (fname);
10315 57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	5309
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	5310 mex_lock_count.erase (p);
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	5311 }
57a59eae83cc untabify src C++ source files John W. Eaton <jwe@octave.org> parents: 10225 diff changeset	5312 }
5864 e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	5313 }
e884ab4f29ee [project @ 2006-06-22 00:57:27 by jwe] jwe parents: diff changeset	5314 }

Mercurial > octave

annotate libinterp/corefcn/mex.cc @ 30565:83f9f8bda883