view examples/myprop.c @ 18917:46df2c7b8f4d stable rc-3-8-2-2

3.8.2 release candidate 2 * configure.ac (OCTAVE_VERSION): Bump to 3.8.2-rc1. (OCTAVE_MINOR_VERSION): Bump to 2-rc2. (OCTAVE_RELEASE_DATE): Set to 2014-07-01.
author John W. Eaton <jwe@octave.org>
date Tue, 01 Jul 2014 04:48:33 -0400
parents 224e76250443
children
line wrap: on
line source

#include "mex.h"

void
mexFunction (int nlhs, mxArray* plhs[],
             int nrhs, const mxArray* prhs[])
{
  double handle;
  char property[256];

  if (nrhs < 2 || nrhs > 3)
    mexErrMsgTxt ("incorrect number of arguments");
  if (!mxIsDouble (prhs[0]))
    mexErrMsgTxt ("handle expected to be a double scalar");
  if (!mxIsChar (prhs[1]))
    mexErrMsgTxt ("expected property to be a string");

  handle = mxGetScalar (prhs[0]);
  mxGetString (prhs[1], property, 256);
  plhs[0] = mxDuplicateArray (mexGet (handle, property));

  if (nrhs == 3)
    if (mexSet (handle, property, mxDuplicateArray (prhs[2])))
      mexErrMsgTxt ("failed to set property");
}