fapid_sff_skipdata.cc

Go to the documentation of this file.

#define TF_FAPID_SFF_SKIPDATA_CC_VERSION \
  "TF_FAPID_SFF_SKIPDATA_CC   V1.0   "

#include <fapidxx/fapidsff.h>
#include <fapidxx/fileunit.h>
#include <fapidxx/helper.h>

using namespace fapidxx;

int sff_skipdata__(integer *lu, char *code, logical *last, integer *ierr,
                   ftnlen code_len)
{
  int retval=0;
  *ierr=0;
  try {
    datrw::ianystream &is=istreammanager(static_cast<int>(*lu));
    std::string ocode("");
    if (is.hasinfo()) 
    {
      ocode="I";
    }
    if (!is.last()) { ocode += "D"; }
    fillfstring(ocode, code, code_len);
    is.skipseries();
    *last = is.last() ? 1 : 0;
    if (is.last()) { istreammanager.close(static_cast<int>(*lu)); }
  }
  catch(...) {
    *ierr=1;
  }
  return retval;
} // int sff_skipdata__

/* ----- END OF fapid_sff_skipdata.cc ----- */