root/ompi/mca/io/romio321/romio/adio/ad_zoidfs/ad_zoidfs_delete.c

DEFINITIONS

1. ADIOI_ZOIDFS_Delete

   1 /* -*- Mode: C; c-basic-offset:4 ; indent-tabs-mode:nil ; -*- */
   2 /* 
   3  *
   4  *   Copyright (C) 2003 University of Chicago. 
   5  *   See COPYRIGHT notice in top-level directory.
   6  */
   7 
   8 #include "ad_zoidfs.h"
   9 #include "adio.h"
  10 
  11 #include "ad_zoidfs_common.h"
  12 
  13 void ADIOI_ZOIDFS_Delete(char *filename, int *error_code)
  14 {
  15     int ret;
  16     static char myname[] = "ADIOI_ZOIDFS_DELETE";
  17 
  18     ADIOI_ZOIDFS_Init(0, error_code);
  19     /* --BEGIN ERROR HANDLING-- */
  20     if (*error_code != MPI_SUCCESS) 
  21     {
  22         /* ADIOI_ZOIDFS_INIT handles creating error codes itself */
  23         return;
  24     }
  25     /* --END ERROR HANDLING-- */
  26 
  27     ret = zoidfs_remove(NULL, NULL, filename, NULL, ZOIDFS_NO_OP_HINT);
  28     /* --BEGIN ERROR HANDLING-- */
  29     if (ret != ZFS_OK) {
  30         *error_code = MPIO_Err_create_code(MPI_SUCCESS,
  31                                            MPIR_ERR_RECOVERABLE,
  32                                            myname, __LINE__,
  33                                            ADIOI_ZOIDFS_error_convert(ret),
  34                                            "Error in zoidfs_remove", 0);
  35         return;
  36     }
  37     /* --END ERROR HANDLING-- */
  38 
  39     *error_code = MPI_SUCCESS;
  40     return;
  41 }
  42 
  43 /* 
  44  * vim: ts=8 sts=4 sw=4 noexpandtab 
  45  */