Mercurial > forge

annotate extra/mex/myfeval.c @ 0:6b33357c7561 octave-forge

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Initial revision
author pkienzle
date Wed, 10 Oct 2001 19:54:49 +0000
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
6b33357c7561 Initial revision
pkienzle
parents:
diff changeset
1 #include "mex.h"
6b33357c7561 Initial revision
pkienzle
parents:
diff changeset
2
6b33357c7561 Initial revision
pkienzle
parents:
diff changeset
3 void mexFunction(int nlhs, mxArray* plhs[], int nrhs, const mxArray* prhs[])
6b33357c7561 Initial revision
pkienzle
parents:
diff changeset
4 {
6b33357c7561 Initial revision
pkienzle
parents:
diff changeset
5 char *str;
6b33357c7561 Initial revision
pkienzle
parents:
diff changeset
6 mexPrintf("Hello, World!\n");
6b33357c7561 Initial revision
pkienzle
parents:
diff changeset
7 mexPrintf("I have %d inputs and %d outputs\n", nrhs, nlhs);
6b33357c7561 Initial revision
pkienzle
parents:
diff changeset
8 if (nrhs < 1 || !mxIsString(prhs[0]))
6b33357c7561 Initial revision
pkienzle
parents:
diff changeset
9 mexErrMsgTxt("function name expected");
6b33357c7561 Initial revision
pkienzle
parents:
diff changeset
10 str = mxArrayToString (prhs[0]);
6b33357c7561 Initial revision
pkienzle
parents:
diff changeset
11 mexPrintf("I'm going to call the interpreter function %s\n", str);
6b33357c7561 Initial revision
pkienzle
parents:
diff changeset
12 mexCallMATLAB(nlhs, plhs, nrhs-1, prhs+1, str);
6b33357c7561 Initial revision
pkienzle
parents:
diff changeset
13 mxFree(str);
6b33357c7561 Initial revision
pkienzle
parents:
diff changeset
14 }