revord.c

这是机械工业张德丰《MATLAB与外部程序接口编程》随书源码

/* revord.c */
#include "mex.h"
void revord(char *input_buf,int buflen,char *output_buf)
{
	int i;
	//将输入字符串的顺序颠倒
	for(i=0;i<buflen-1;i++)
		*(output_buf+i)=*(input_buf+buflen-i-2);
}
void mexFunction(int nlhs,mxArray *plhs[ ],int nrhs,const mxArray *prhs[ ])
{
	char *input_buf, *output_buf;
	int buflen,status;
	//检查参数个数是否正确
	if(nrhs!=1)
		mexErrMsTxt("One input required.");
	else if(nlhs>1)
		mexErrMsTxt("Too many output arguments.");
	//确保输入参数为字符串
	if(mxIsChar(prhs[0])!=1)
		mexErrMsTxt("Too many output string.");
	//输入参数必须是行向量
	if(mxGetM(prhs[0])!=1)
		mexErrMsTxt("Input must be a row vector.");
	//获取输入字符串长度
	buflen=(mxGetM(prhs[0]) *mxGetN(prhs[0]))+1;
	//为输入输出字符串分配内存
	buflen=mxCalloc(buflen, sizeof(char));
	output_buf=mxCalloc(buflen,sizeof(char));
	//将字符串数据从prhs[0]复制到c字符串input_buf中
	status=mxGetString(prhs[0], input_buf,buflen);
	if(status!=0)
		mexWarnMsgTxt("Not enough space. String is truncated.");
	//调用C子函数
	revord(input_buf, buflen, output_buf);
	//将C格式的字符串output_buf转换为MATLAB字符串并作为mexFunction
	//输出
	plhs[0]=mxCreateString(out_buf);
	return;
}