F5private.h

/*
 $Id: F5private.h,v 1.17 2008/02/15 20:09:45 werner Exp $
*/

#ifndef __F5private_H
#define __F5private_H

#include <F5/hdf5inc.h>
#include <F5/F5F.h>

#ifdef  __cplusplus
extern "C"
{
#endif

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);
        
/*
  Retrieve the name of the time slice assocciated with the given time.
  The time is specified as a pointer, such that it may be NULL to indicate
  a static dataset.
 */
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, const char*property);

extern int F5printf_indent;
F5_API void F5printf(int verbosity, const char *fmt,...);


F5_API herr_t F_H5Aread(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__ ); }

#ifndef H5_USE_16_API
/* don't overrid 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
        
#ifdef  __cplusplus
}    /* extern "C" */
#endif

#endif  /* __F5private_H */