Mercurial > octave-dspies
view examples/myset.c @ 18679:a142f35f3cb6
doc: Fix unbalanced parentheses in documentation.
* errors.txi, install.txi, sparse.txi, vectorize.txi: Fix unbalanced
parentheses.
* data.cc (Fall, Feye): Fix unbalanced parentheses.
* rand.cc (Frandn, Frande): Fix unbalanced parentheses.
* amd.cc (Famd): Fix unbalanced parentheses.
* ccolamd.cc (Fccolamd): Fix unbalanced parentheses.
* DASPK-opts.in: Fix unbalanced parentheses.
* cplxpair.m, javamem.m, glpk.m, area.m, peaks.m, hgload.m, hotelling_test_2.m,
hgsave.m: Fix unbalanced parentheses.
author | Rik <rik@octave.org> |
---|---|
date | Fri, 25 Apr 2014 15:49:03 -0700 |
parents | 224e76250443 |
children |
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, NULL, 1, &v, "disp"); } v = mexGetArray (str, "caller"); if (v) { mexPrintf ("%s is a caller variable with the following value:\n", str); mexCallMATLAB (0, NULL, 1, &v, "disp"); } // WARNING!! Can't do this in MATLAB! Must copy variable first. mxSetName (prhs[1], str); mexPutArray (prhs[1], "caller"); }