Mercurial > octave-nkf
view examples/myset.c @ 14171:2ced2f59f523 stable
doc: miscellaneous documentation improvements
* aspell-octave.en.pws: Add new words to spelling dictionary.
* expr.txi: Use hyphens in "element-by-element" construction.
* install.txi: Miscellaneous docstring improvements.
* mk_undocumented_list: Update script.
* xlim.m: Add ylim and zlim to function index.
* data.cc: Add inf and nan to to function index.
* file-io.cc: Add octave_tmp_file_name to function index.
Expand docstring for SEEK_CUR and SEEK_END.
* help.cc: Miscellaneous docstring improvements.
* syscalls.cc: Improve docstrings for F_XXXX series of functions.
author | Rik <octave@nomad.inbox5.com> |
---|---|
date | Sun, 08 Jan 2012 13:39:44 -0800 |
parents | 4295d634797d |
children | be41c30bcb44 |
line wrap: on
line source
#include "mex.h" void mexFunction (int nlhs, mxArray* plhs[], int nrhs, const mxArray* prhs[]) { char *str; mxArray *v; if (nrhs != 2 || ! mxIsString (prhs[0])) mexErrMsgTxt ("expects symbol name and value"); str = mxArrayToString (prhs[0]); v = mexGetArray (str, "global"); if (v) { mexPrintf ("%s is a global variable with the following value:\n", str); mexCallMATLAB (0, 0, 1, &v, "disp"); } v = mexGetArray (str, "caller"); if (v) { mexPrintf ("%s is a caller variable with the following value:\n", str); mexCallMATLAB (0, 0, 1, &v, "disp"); } // WARNING!! Can't do this in MATLAB! Must copy variable first. mxSetName (prhs[1], str); mexPutArray (prhs[1], "caller"); }