Mercurial > octave-nkf

annotate examples/myprop.c @ 11542:695141f1c05c ss-3-3-55

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
snapshot 3.3.55
author John W. Eaton <jwe@octave.org>
date Sat, 15 Jan 2011 04:53:04 -0500
parents 4295d634797d
children 1b48b209a8d6
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");
55586d763de1 [project @ 2007-04-27 15:31:10 by dbateman]
dbateman
parents:
diff changeset
11 if (!mxIsDouble(prhs[0]))
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