fapid_sff_new.cc

Go to the documentation of this file.

#define TF_FAPID_SFF_NEW_CC_VERSION \
  "TF_FAPID_SFF_NEW_CC   V1.1"

#include <string>
#include <cstdio>
#include <fapidxx/fapidsff.h>
#include <fapidxx/helper.h>
#include <fapidxx/error.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <unistd.h>

using namespace fapidxx;

int sff_new__(integer *lu, char *filename, integer *ierr, ftnlen filename_len)
{
  std::string name=stringfromfstring(filename, filename_len);
  struct stat buf;
  int status=lstat(name.c_str(), &buf);
  if (status==0)
  {
    int status=remove(name.c_str());
    if (status==0) { *ierr=0; } else { *ierr=1; }
  }
  else
  {
    *ierr=0;
  }
  int retval=0;
  return(retval);
} // int sff_new__

/* ----- END OF fapid_sff_new.cc ----- */