SWZ: centralize mex changes, remove unused functions

mex/sources/ms-sbvar/modify_for_mex.cc

 /*
- * Copyright (C) 2010 Dynare Team
+ * Copyright (C) 2010-2011 Dynare Team
  *
  * This file is part of Dynare.
  *
@@ -17,51 +17,23 @@
  * along with Dynare.  If not, see <http://www.gnu.org/licenses/>.
  */
 
+#if defined(MATLAB_MEX_FILE) || defined(OCTAVE_MEX_FILE)
 #ifdef __cplusplus
 extern "C"
 {
 #endif
 
-#include <stdio.h>
-#include <stdlib.h>
-#include <stdarg.h>
-#include <stdarg.h>
-#include <string.h>
-
-
-#if defined(MATLAB_MEX_FILE) || defined(OCTAVE_MEX_FILE)
 #include <dynmex.h>
-#endif
 
   int constant_seed;
 
-  void
-  ms_fprintf_err(char *str, ...)
-  {
-    va_list ap;
-    va_start(ap, str);
-
-#if defined(MATLAB_MEX_FILE) || defined(OCTAVE_MEX_FILE)
-    mexPrintf(str, ap);
-#else
-    vfprintf(stderr, str, ap);
-#endif
-
-    va_end(ap);
-  }
-
-
-
   void
   msExit(int status)
   {
-#if defined(MATLAB_MEX_FILE) || defined(OCTAVE_MEX_FILE)
     throw "Error in MS-SBVAR MEX file.\n";
-#else
-    exit(status);
-#endif
   }
 
 #ifdef __cplusplus
 }
 #endif
+#endif

mex/sources/ms-sbvar/modify_for_mex.h

@@ -20,42 +20,26 @@
 #ifndef _MEXMOD
 #define _MEXMOD
 
-void ms_exit(int status);
-void ms_fprintf_err(const char * str, ...);
-extern int constant_seed;
-
-#endif
-
-
 #if defined(MATLAB_MEX_FILE) || defined(OCTAVE_MEX_FILE)
 
 #include <dynmex.h>
 #include <dynblas.h>
 #include <dynlapack.h>
-#include <mat.h>
-
-#define msMalloc mxMalloc
-#define msCalloc mxCalloc
-#define msRealloc mxRealloc
-#define msFree mxFree
 
-mxArray *globalMatlabStruct;
+#define dw_malloc(n) mxMalloc(n)
+#define dw_calloc(n) mxCalloc(n)
+#define dw_realloc(buffer,n) mxRealloc(buffer,n)
+#define dw_free(buffer) mxFree(buffer)
+#define dw_exit(n) msExit(n)
 
-#ifndef _MEXWRITE
-#define _MEXWRITE
+void msExit(int status);
+extern int constant_seed;
 
+/* Write Matlab Output */
+mxArray *globalMatlabStruct;
 void mex_write_to_matlab_matfile(double *, int, int, const char *, const char *);
 void mex_write_to_matlab_global_struct(double *, int, int, const char *);
 mxArray *getMxArray(double *, int, int);
 
 #endif
-
-#else
-
-#define ms_fprintf_stdout printf
-#define msMalloc malloc
-#define msCalloc calloc
-#define msRealloc realloc
-#define msFree free
-
 #endif