tttryfetch.cpp

来自「一个很棒的网络控制系统仿真软件」· C++ 代码 · 共 54 行

#define KERNEL_MATLAB
#include "../ttkernel.h" 

RTsys *rtsys;

#include "../tryfetch.cpp"
#include "getrtsys.cpp"

void mexFunction( int nlhs, mxArray *plhs[],
                  int nrhs, const mxArray *prhs[] )
{
  mxArray *lhs[1];

  rtsys = getrtsys() ; // Get pointer to rtsys 

  // Check number and type of arguments. 
  if (nrhs != 1) {
    mexErrMsgTxt("ttTryFetch: Wrong number of input arguments!\nUsage: ttTryFetch(mailboxname)");
  }

  if (mxIsChar(prhs[0]) != 1) {
    mexErrMsgTxt("ttTryFetch: mailboxname must be a string");
  }
  
  char mailboxname[100];
  mxGetString(prhs[0], mailboxname, 100);
  
  int i = ttTryFetchMATLAB(mailboxname);

  if (i==0) {
    // Buffer empty
    plhs[0] = mxCreateDoubleMatrix(0,0,mxREAL); // Return empty matrix
  } else {
    
    char msgname[125];
    char blockhandle[16];
    char msgnbr[16];
    
    // Creating data string: gcbh + mailboxname + "_mail_" + msgNbr
    mexCallMATLAB(1, lhs, 0, NULL, "gcbh"); // Get block handle
    sprintf(blockhandle, "%f", *(mxGetPr(lhs[0])));
    strcpy(msgname, blockhandle);
    strcat(msgname, mailboxname);
    strcat(msgname, "_mail_");
    sprintf(msgnbr, "%d", i);
    strcat(msgname, msgnbr);

    // Read message data from global workspace
    mxArray* msg = mexGetVariable("global", msgname);
    plhs[0] = msg;
  }
  
}