Mercurial > octave-nkf
annotate examples/myfunc.c @ 15880:df1aceb8f0bc ss-3-7-1
snapshot version 3.7.1
* configure.ac (AC_INIT): Set version to 3.7.1.
(OCTAVE_RELEASE_DATE): Set to 2013-01-02.
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Wed, 02 Jan 2013 15:16:08 -0500 |
parents | 6cb30a539481 |
children | be41c30bcb44 |
rev | line source |
---|---|
6580 | 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[]) |
6580 | 6 { |
7 const char *nm; | |
8 nm = mexFunctionName (); | |
6581 | 9 mexPrintf ("You called function: %s\n", nm); |
6580 | 10 if (strcmp (nm, "myfunc") == 0) |
6581 | 11 mexPrintf ("This is the principal function\n", nm); |
6580 | 12 return; |
13 } |