Mercurial > octave-nkf
annotate examples/myfeval.c @ 14101:ff5588774680 stable ss-3-5-91
snapshot 3.5.91
* configure.ac (AC_INIT): Version is now 3.5.91.
(OCTAVE_RELEASE_DATE): Now 2011-12-23.
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Fri, 23 Dec 2011 19:24:41 -0500 |
parents | 6cb30a539481 |
children | be41c30bcb44 |
rev | line source |
---|---|
5864 | 1 #include "mex.h" |
2 | |
3 void | |
7081 | 4 mexFunction (int nlhs, mxArray* plhs[], int nrhs, |
9932
6cb30a539481
untabify files in examples directory
John W. Eaton <jwe@octave.org>
parents:
9053
diff
changeset
|
5 const mxArray* prhs[]) |
5864 | 6 { |
7 char *str; | |
8 | |
9 mexPrintf ("Hello, World!\n"); | |
10 | |
7081 | 11 mexPrintf ("I have %d inputs and %d outputs\n", nrhs, |
9932
6cb30a539481
untabify files in examples directory
John W. Eaton <jwe@octave.org>
parents:
9053
diff
changeset
|
12 nlhs); |
5864 | 13 |
14 if (nrhs < 1 || ! mxIsString (prhs[0])) | |
15 mexErrMsgTxt ("function name expected"); | |
16 | |
17 str = mxArrayToString (prhs[0]); | |
18 | |
7081 | 19 mexPrintf ("I'm going to call the function %s\n", str); |
5864 | 20 |
21 mexCallMATLAB (nlhs, plhs, nrhs-1, prhs+1, str); | |
22 | |
23 mxFree (str); | |
24 } |