dawn@0: /* 
dawn@0: * stuff to allow checking with mwrap
dawn@0: * 
dawn@0: */
dawn@0: 
dawn@0: #include "mwrap.h"
dawn@0: #include "string.h"
dawn@0: 
dawn@0: #define MACINTOSH	/* compiler (?) converts \n to \r: convert them back */
dawn@0: 
dawn@0: void checkin_matrix(mxArray *m);
dawn@0: void checkout_matrix(mxArray *m);
dawn@0: void mex_messagefunction(int level, char* message);
dawn@0: void mex_errorfunction(int level);
dawn@0: 
dawn@0: /* check matrix into mwrap's tree */
dawn@0: void checkin_matrix(mxArray *m) 
dawn@0: {
dawn@0: 	char *base, *top;
dawn@0: 	
dawn@0: 	base = (char *) mxGetPr(m);
dawn@0: 	top = base + mxGetN(m) * mxGetM(m) * sizeof(double);
dawn@0: 	/* mexPrintf("%d %d\n", base, top); */
dawn@0: 	CHECKIN(base, top); 
dawn@0: }
dawn@0: 
dawn@0: /* check matrix out of mwrap's tree */
dawn@0: void checkout_matrix(mxArray *m) 
dawn@0: {
dawn@0: 	char *base;
dawn@0: 	
dawn@0: 	base = (char *) mxGetPr(m);
dawn@0: 	CHECKOUT(base); 
dawn@0: }
dawn@0: 
dawn@0: /* message function to give to mwrap */
dawn@0: void mex_messagefunction(int level, char* message) {
dawn@0: #ifdef MACINTOSH
dawn@0: 	{char *c;
dawn@0: 		c = strchr(message, (int) '\r');
dawn@0: 	
dawn@0: 		while(c) {
dawn@0: 			*c = '\n';
dawn@0: 			c = strchr(c, (int) '\r');
dawn@0: 		}
dawn@0: 	}
dawn@0: #endif
dawn@0: 	mexPrintf(message); 
dawn@0: }
dawn@0: 
dawn@0: /* how to exit mex function */
dawn@0: void mex_errorfunction(int level) {
dawn@0: 	/* mexPrintf("\n"); */
dawn@0: 	mexErrMsgTxt(" "); 
dawn@0: }