def,table.h

来自「著名的Sparco工具包。是matlab下解决线性约束」· C头文件 代码 · 共 34 行

/*
* def,table.h
*/

#ifndef Fail
#define Fail(msg) { \
	(void)fprintf(stderr, "FAIL %s %d: %s\n", __FILE__, __LINE__, msg); \
	(void)fflush(stderr); \
	return 0; }
#endif

#ifndef Call
#define Call(fun, arg)	{ if (!(fun arg)) Fail(#fun) }
#endif

#define mexFail(str) {mexEvalString("sprintf('fail: " #str "')"); return; }

#define mxIsInt32n(mx, n) \
	( (n == mxGetM(mx) * mxGetN(mx)) && mxIsInt32(mx) )
#define mxIsScalarInt32(mx) mxIsInt32n(mx, 1)

#define mxIsComplexSingle(mx) \
	(mxIsSingle(mx) && mxIsComplex(mx))
#define mxIsRealSingle(mx) \
	(mxIsSingle(mx) && !mxIsComplex(mx))
#define mxIsComplexDouble(mx) \
	(mxIsDouble(mx) && mxIsComplex(mx))
#define mxIsRealDouble(mx) \
	(mxIsDouble(mx) && !mxIsComplex(mx))
#define mxIsScalarSingle(mx) \
	( (1 == mxGetM(mx)) && (1 == mxGetN(mx)) && mxIsRealSingle(mx) )
#define mxIsScalarDouble(mx) \
	( (1 == mxGetM(mx)) && (1 == mxGetN(mx)) && mxIsRealDouble(mx) )