helper.h

Go to the documentation of this file.

// include guard
#ifndef FAPIDXX_HELPER_H_VERSION

#define FAPIDXX_HELPER_H_VERSION \
  "FAPIDXX_HELPER_H   V1.4"

#include<string>
#include<iostream>
#include<libtime++.h>
#include<sffxx.h>
#include<fapidxx/fapidsff.h>

namespace fapidxx {

  std::string stringfromfstring(char *fstring, ftnlen slen);

  void fillfstring(const std::string& s, char *fstring, ftnlen slen);

  std::string trimws_end(std::string s);

  std::string trimws(std::string s);

  float maketanf(const libtime::TAbsoluteTime& time);

  libtime::TAbsoluteTime SRCEdate(char *date, char* time, 
                                  ftnlen date_len, ftnlen time_len);

  ::sff::FREE freeblock(integer *nline, char *lines, ftnlen lines_len);

  void freeblock(const ::sff::FREE& free,
                 integer *nline, char *lines, integer *lindim, 
                 integer *lenmax, ftnlen lines_len);

} // namespace fapidxx

/*======================================================================*/

#define FAPIDXX_debug(C,N,M) \
  if (C) { \
    std::cerr << "DEBUG (" << N << ", " \
    << __FILE__ << " line #" << __LINE__ << "):" << std::endl \
    << "      " << M << std::endl; \
      std::cerr.flush(); \
  }

/*======================================================================*/
// functions with Fortran interface

extern "C" {

extern int sff_helper_decode_wid2__(char *wid2in, char *wid2out, 
                                    ftnlen wid2in_len, ftnlen wid2out_len);

} // extern "C"

#endif // FAPIDXX_HELPER_H_VERSION (includeguard)

/* ----- END OF helper.h ----- */