Mercurial > octave-nkf

annotate examples/myprop.c @ 16659:608e307b4914 ss-3-7-5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
snapshot 3.7.5 * configure.ac (OCTAVE_VERSION): Bump to 3.7.5.
author John W. Eaton <jwe@octave.org>
date Tue, 14 May 2013 05:23:45 -0400
parents 1b48b209a8d6
children be41c30bcb44
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
6595
55586d763de1 [project @ 2007-04-27 15:31:10 by dbateman]
dbateman
parents:
diff changeset
1 #include "mex.h"
55586d763de1 [project @ 2007-04-27 15:31:10 by dbateman]
dbateman
parents:
diff changeset
2
55586d763de1 [project @ 2007-04-27 15:31:10 by dbateman]
dbateman
parents:
diff changeset
3 void
55586d763de1 [project @ 2007-04-27 15:31:10 by dbateman]
dbateman
parents:
diff changeset
4 mexFunction (int nlhs, mxArray* plhs[], int nrhs, const mxArray* prhs[])
55586d763de1 [project @ 2007-04-27 15:31:10 by dbateman]
dbateman
parents:
diff changeset
5 {
55586d763de1 [project @ 2007-04-27 15:31:10 by dbateman]
dbateman
parents:
diff changeset
6 double handle;
55586d763de1 [project @ 2007-04-27 15:31:10 by dbateman]
dbateman
parents:
diff changeset
7 char property[256];
55586d763de1 [project @ 2007-04-27 15:31:10 by dbateman]
dbateman
parents:
diff changeset
8
55586d763de1 [project @ 2007-04-27 15:31:10 by dbateman]
dbateman
parents:
diff changeset
9 if (nrhs < 2 || nrhs > 3)
55586d763de1 [project @ 2007-04-27 15:31:10 by dbateman]
dbateman
parents:
diff changeset
10 mexErrMsgTxt ("incorrect number of arguments");
14855
1b48b209a8d6 maint: Use Octave coding conventions for coddling parentheses in examples directory
Rik <octave@nomad.inbox5.com>
parents: 9053
diff changeset
11 if (!mxIsDouble (prhs[0]))
6595
55586d763de1 [project @ 2007-04-27 15:31:10 by dbateman]
dbateman
parents:
diff changeset
12 mexErrMsgTxt ("handle expected to be a double scalar");
55586d763de1 [project @ 2007-04-27 15:31:10 by dbateman]
dbateman
parents:
diff changeset
13 if (!mxIsChar (prhs[1]))
55586d763de1 [project @ 2007-04-27 15:31:10 by dbateman]
dbateman
parents:
diff changeset
14 mexErrMsgTxt ("expected property to be a string");
55586d763de1 [project @ 2007-04-27 15:31:10 by dbateman]
dbateman
parents:
diff changeset
15
55586d763de1 [project @ 2007-04-27 15:31:10 by dbateman]
dbateman
parents:
diff changeset
16 handle = mxGetScalar (prhs[0]);
55586d763de1 [project @ 2007-04-27 15:31:10 by dbateman]
dbateman
parents:
diff changeset
17 mxGetString (prhs[1], property, 256);
55586d763de1 [project @ 2007-04-27 15:31:10 by dbateman]
dbateman
parents:
diff changeset
18 plhs[0] = mxDuplicateArray (mexGet (handle, property));
55586d763de1 [project @ 2007-04-27 15:31:10 by dbateman]
dbateman
parents:
diff changeset
19
55586d763de1 [project @ 2007-04-27 15:31:10 by dbateman]
dbateman
parents:
diff changeset
20 if (nrhs == 3)
55586d763de1 [project @ 2007-04-27 15:31:10 by dbateman]
dbateman
parents:
diff changeset
21 if (mexSet (handle, property, mxDuplicateArray (prhs[2])))
55586d763de1 [project @ 2007-04-27 15:31:10 by dbateman]
dbateman
parents:
diff changeset
22 mexErrMsgTxt ("failed to set property");
55586d763de1 [project @ 2007-04-27 15:31:10 by dbateman]
dbateman
parents:
diff changeset
23 }
55586d763de1 [project @ 2007-04-27 15:31:10 by dbateman]
dbateman
parents:
diff changeset
24
55586d763de1 [project @ 2007-04-27 15:31:10 by dbateman]
dbateman
parents:
diff changeset
25