F5private.h

Go to the documentation of this file.

/*
 $Id: F5private.h,v 1.17 2008/02/15 20:09:45 werner Exp $
*/
 
#ifndef __F5private_H
#define __F5private_H
 
#include "hdf5inc.h"
#include "F5F.h"
 
#if _MSC_VER
#define __PRETTY_FUNCTION__ __FUNCTION__
#endif
 
#ifdef  __cplusplus
extern "C"
{
#endif
 
/**\defgroup Internal Private F5 functions.
   Internal functions that are not intended to be used by
   application code.
  */
 
hid_t   F5Acreate(hid_t loc_id, const char *name, hid_t type_id, hid_t space_id, hid_t create_plist );
 
void    F5T_save_perm_vector(hid_t location, int rank, int perm_vector[]);
 
hid_t   F5I_create_contents(hid_t File_id);
 
/*
  An error-silent version of H5Glink() with F5 verbosity information.
 */
herr_t  F5Glink(hid_t loc_id, H5G_link_t link_type, const char *current_name, const char *new_name);
 
herr_t  F5Glink_soft_to_id(hid_t loc_id, hid_t existing_id, const char*linkname);
 
/*char*F5I_timegroup(const double*time, char*destbuf, size_t len);*/
 
/* Saves information per grid, at which time steps does this grid exist?
   Uses only ContentsGroup_hid  from the F5Path structure.
 */
void F5I_add_grid(F5Path*fpath, const char*gridname, const double*time);
 
/* Given some path, add save information per field (on which grids does this field reside?)
   Uses ContentsGroup_hid and Grid_hid from the F5Path structure.
   @param gridname optional explicit name of the grid, if NULL, then the
                   name is retrieved from the Grid_hid within the fpath.
 */
void F5I_add_field(F5Path*fpath, const char*fieldname);
 
extern int F5printf_indent;
F5_API void F5printf(int verbosity, const char *fmt,...);
 
F5_API void F5printx(int verbosity, const char*sourcefilename, int lineNo, const char*FunctionName, const char *fmt,...);
 
/**
   http://gcc.gnu.org/onlinedocs/cpp/Variadic-Macros.html
 */
#define F5printf(verbosity, ...) F5printx(verbosity, __FILE__, __LINE__, __PRETTY_FUNCTION__, __VA_ARGS__)
 
 
F5_API void F5print_dimensions(int verbosity, const char*prefix, int rank, const hsize_t dims[]);
 
 
 
F5_API herr_t F_H5Aread(hid_t attr_id, hid_t mem_type_id, void *buf, const char*name );
 
F5_API herr_t F5Aread2( hid_t attr_id, hid_t mem_type_id, void *buf, const char*name );
 
#define F5check(HDF5call) {herr_t err = HDF5call; if (err<0) \
                     F5printf(1, "** %s returned error in %s:%d\n",\
                              #HDF5call, __FILE__, __LINE__ ); }
 
#if     0
#ifndef H5_USE_16_API
/* don't override if hdf5 (1.8.0 e.g.) uses backwards compat layer */
  #ifndef       NDEBUG
    #define H5Acreate(loc,name,type,space,plist) ( F5printf(50,"H5Acreate(%s)", name), \
                                               H5Acreate(loc, name, type, space, plist) )
    #define H5Gcreate(loc,name,hint)         (F5printf(50,"H5Gcreate(%s)", name), \
                                              H5Gcreate(loc, name, hint) )
  #endif
#endif
#endif
 
 
#define CASEITEM(x, i, refs, name)                      \
case x:\
        printf( " [%ld] %s, open references: %d:\t %s\n", i, #x, refs, name ); \
        break;  \
 
        F5_API void F5print_OpenHandles( hid_t file_id );
 
 
#ifdef  __cplusplus
}    /* extern "C" */
#endif
 
#endif  /* __F5private_H */