matlab_gs_cancel.c

Go to the documentation of this file.

/* $Id: matlab_gs_cancel.c,v 1.7 2007/07/24 19:24:32 yarkhan Exp $ */
/* $UTK_Copyright: $ */

#include <stdio.h>
#include <string.h>

#include <matrix.h>
#include <mex.h>

#ifdef HAVE_CONFIG_H
#include "config.h"
#endif /* HAVE_CONFIG_H */

#include "grpc.h"
#include "matlab_gs.h"


void 
matlab_gs_cancel(int nlhs, mxArray *plhs[], int nrhs, const mxArray *prhs[])
{
  int i;
  grpc_sessionid_t sessionID;
  int retval;

  /* reset global error setting */
  matlab_gs_error_num = 0;  

  /* Check arguments */
  if (nrhs != 2 || nlhs != 1) {
    mexErrMsgTxt("Usage: status = gs_cancel(sessionId)\n");
    DO_ERROR_MACRO(GRPC_OTHER_ERROR_CODE);
  }

  /* Get sessionid from rhs */
  sessionID = (int)mxGetPr(prhs[1])[0];
  if (sessionID < 0) {
    matlab_gs_error_num = GRPC_OTHER_ERROR_CODE;
    DO_ERROR_MACRO(GRPC_OTHER_ERROR_CODE);
  }

  /* Call cancel */
  retval = grpc_cancel(sessionID);
  if (retval != GRPC_NO_ERROR) DO_ERROR_MACRO(grpc_errno);

  /* If OK, output result, else error */
  plhs[0] = mxCreateDoubleMatrix(1,1,mxREAL);
  mxGetPr(plhs[0])[0] = (double)retval;

  return; 



 error:
  /* Create blank output for left hand side */ 
  plhs[0] = mxCreateDoubleMatrix(1,1,mxREAL);
  mxGetPr(plhs[0])[0] = (double)-1;
  for (i=1;i<nlhs;i++) plhs[i] = mxCreateDoubleMatrix(0,0,mxREAL);

  mexPrintf("Warning: GridSolve call failed: %d:%d: %s; %s\n", grpc_errno, grpc_minor_errno, grpc_error_string(grpc_errno), grpc_minor_error_string(grpc_minor_errno));  

  return;

}