Mercurial > hg > octave-nkf
diff examples/myfeval.c @ 5864:e884ab4f29ee
[project @ 2006-06-22 00:57:27 by jwe]
author | jwe |
---|---|
date | Thu, 22 Jun 2006 00:57:28 +0000 |
parents | |
children | 4270ded9ddc6 |
line wrap: on
line diff
new file mode 100644 --- /dev/null +++ b/examples/myfeval.c @@ -0,0 +1,22 @@ +#include "mex.h" + +void +mexFunction (int nlhs, mxArray* plhs[], int nrhs, const mxArray* prhs[]) +{ + char *str; + + mexPrintf ("Hello, World!\n"); + + mexPrintf ("I have %d inputs and %d outputs\n", nrhs, nlhs); + + if (nrhs < 1 || ! mxIsString (prhs[0])) + mexErrMsgTxt ("function name expected"); + + str = mxArrayToString (prhs[0]); + + mexPrintf ("I'm going to call the interpreter function %s\n", str); + + mexCallMATLAB (nlhs, plhs, nrhs-1, prhs+1, str); + + mxFree (str); +}