gs_error.c

Go to the documentation of this file.

/* $Id: gs_error.c,v 1.4 2007/03/01 22:52:31 seymour Exp $ */
/* $UTK_Copyright: $ */

#include <stdio.h>

#include "idl_export.h"
#include "grpc.h"

IDL_VPTR
gs_error_string(int argc, IDL_VPTR* argv_idl)
{
  grpc_error_t retval;
  int status;

  IDL_ENSURE_SCALAR(argv_idl[0]);

  status = IDL_LongScalar(argv_idl[0]);

  /* Initialize GridRPC system */
  retval = grpc_initialize(NULL);
  if((retval != GRPC_NO_ERROR) && (retval != GRPC_ALREADY_INITIALIZED)) {
    IDL_Message(IDL_M_GENERIC, IDL_MSG_INFO, "Error: cannot initialize!");
    return IDL_StrToSTRING("Init failed.");
  }
  
  return IDL_StrToSTRING(grpc_error_string((grpc_error_t)status));
}

IDL_VPTR
gs_get_last_error(int argc, IDL_VPTR* argv_idl)
{
  grpc_sessionid_t id;
  grpc_error_t retval;

  /* Initialize GridRPC system */
  retval = grpc_initialize(NULL);
  if((retval != GRPC_NO_ERROR) && (retval != GRPC_ALREADY_INITIALIZED)) {
    IDL_Message(IDL_M_GENERIC, IDL_MSG_INFO, "Error: cannot initialize!");
    return IDL_GettmpLong(retval);
  }

  if(grpc_get_failed_sessionid(&id) != GRPC_NO_ERROR) {
    IDL_Message(IDL_M_GENERIC, IDL_MSG_INFO, 
      "Error: could not get last failed session ID.");
    return IDL_GettmpLong(0);
  }

  return IDL_GettmpLong(grpc_get_error(id));
}