matlab_gs_error_string.c

Go to the documentation of this file.

/* $Id: matlab_gs_error_string.c,v 1.5 2006/05/09 20:19:44 yarkhan Exp $ */
/* $UTK_Copyright: $ */

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

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

#include "grpc.h"


void 
matlab_gs_error_string(int nlhs, mxArray *plhs[], int nrhs, const mxArray *prhs[])
{
  int i;
  grpc_error_t error_num;

  if ((nlhs != 1)||(nrhs != 2)) {
    mexErrMsgTxt("Usage: str = gs_error_string(error_code)\n");
    goto error;
  }

  error_num = (grpc_error_t)(*mxGetPr(prhs[0]));
  plhs[0] = mxCreateString(grpc_error_string(error_num));

  return; 


 error:
  for (i=0;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;

}