examples/myfeval.c
Go to the documentation of this file.00001 /* 00002 00003 Copyright (C) 2006, 2007 John W. Eaton 00004 00005 This file is part of Octave. 00006 00007 Octave is free software; you can redistribute it and/or 00008 modify it under the terms of the GNU General Public License 00009 as published by the Free Software Foundation; either 00010 version 3 of the License, or (at your option) any later 00011 version. 00012 00013 Octave is distributed in the hope that it will be useful, 00014 but WITHOUT ANY WARRANTY; without even the implied warranty 00015 of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. 00016 See the GNU General Public License for more details. 00017 00018 You should have received a copy of the GNU General Public 00019 License along with Octave; see the file COPYING. If not, 00020 see <http://www.gnu.org/licenses/>. 00021 00022 */ 00023 00024 #include "mex.h" 00025 00026 void 00027 mexFunction (int nlhs, mxArray* plhs[], int nrhs, 00028 const mxArray* prhs[]) 00029 { 00030 char *str; 00031 00032 mexPrintf ("Hello, World!\n"); 00033 00034 mexPrintf ("I have %d inputs and %d outputs\n", nrhs, 00035 nlhs); 00036 00037 if (nrhs < 1 || ! mxIsString (prhs[0])) 00038 mexErrMsgTxt ("function name expected"); 00039 00040 str = mxArrayToString (prhs[0]); 00041 00042 mexPrintf ("I'm going to call the function %s\n", str); 00043 00044 mexCallMATLAB (nlhs, plhs, nrhs-1, prhs+1, str); 00045 00046 mxFree (str); 00047 }