C++ (Cpp) EAF_Delete Examples

Example #1

File: eaf_f2c.c Project: wadejong/NWChem-Json

Integer FATR eaf_delete_(char *fname, int flen)
{
    char buf[1024];

    ga_f2cstring(fname, flen, buf, sizeof(buf));
    /* return (Integer) EAF_ERR_TOO_LONG; TODO errcheck? */

    return (Integer) EAF_Delete(buf);
}

Example #2

File: util_file_unlink.c Project: 000Justin000/nwchem

void util_file_unlink(const char *filename)
/*
  Delete the file.  If the file does not exist, quietly return.
  If the file exists and the unlink fails then abort.
  */
{
  /*
    if (access(filename, F_OK) == 0) {
	if (unlink(filename)) {
	    fprintf(stderr,"util_file_unlink: failed unlinking %s\n",
		    filename);
	    GA_Error("util_file_unlink",0);
	}
    }
  */
  if (EAF_Delete(filename) != 0)
    GA_Error("util_file_unlink",0);
}