Marc Howison
581 lines
17 KiB
Python
Executable File
581 lines
17 KiB
Python
Executable File
#!/usr/bin/python
|
|
|
|
c_head = """
|
|
#include "h5core/h5_core.h"
|
|
"""
|
|
|
|
h_head = """
|
|
#ifndef __H5BLOCK_READWRITE_H
|
|
#define __H5BLOCK_READWRITE_H
|
|
"""
|
|
|
|
h_tail = """
|
|
#endif
|
|
"""
|
|
|
|
fc_head = """
|
|
#include <stdlib.h>
|
|
|
|
#include "h5core/h5_core.h"
|
|
#include "Underscore.h"
|
|
|
|
#if defined(F77_SINGLE_UNDERSCORE)
|
|
#define F77NAME(a,b) a
|
|
#elif defined(F77_CRAY_UNDERSCORE)
|
|
#define F77NAME(a,b) b
|
|
#elif defined(F77_NO_UNDERSCORE)
|
|
#else
|
|
#error Error, no way to determine how to construct fortran bindings
|
|
#endif
|
|
"""
|
|
|
|
write_scalar_h = """
|
|
h5_err_t
|
|
H5Block#DIM#dWriteScalarField#TYPE_ABV# (
|
|
h5_file_t *const f,
|
|
const char *name,
|
|
const h5_#TYPE_H5P#_t *buffer
|
|
);
|
|
"""
|
|
|
|
read_scalar_h = """
|
|
h5_err_t
|
|
H5Block#DIM#dReadScalarField#TYPE_ABV# (
|
|
h5_file_t *const f,
|
|
const char *name,
|
|
h5_#TYPE_H5P#_t *buffer
|
|
);
|
|
"""
|
|
|
|
write_scalar_c = """
|
|
/*!
|
|
\\ingroup h5block_data
|
|
|
|
Write a 3-dimensional field \\c name from the buffer starting at \\c data
|
|
to the current time-step using the defined field layout. Values are
|
|
#TYPE_FULL#.
|
|
|
|
You must use the Fortran indexing scheme to access items in \\c data.
|
|
|
|
\\return \\c H5_SUCCESS or error code
|
|
*/
|
|
h5_err_t
|
|
H5Block#DIM#dWriteScalarField#TYPE_ABV# (
|
|
h5_file_t *const f, /*!< IN: file handle */
|
|
const char *name, /*!< IN: name of dataset to write */
|
|
const h5_#TYPE_H5P#_t *buffer /*!< IN: pointer to write buffer */
|
|
) {
|
|
|
|
H5_API_ENTER3 (h5_err_t, "f=0x%p, name=\\"%s\\", buffer=0x%p",
|
|
f, name, buffer);
|
|
H5_API_RETURN (h5b_write_scalar_data(f, name, (void*)buffer, #TYPE_HDF5# ));
|
|
}
|
|
"""
|
|
|
|
read_scalar_c = """
|
|
/*!
|
|
\\ingroup h5block_data
|
|
|
|
Read a 3-dimensional field \\c name into the buffer starting at \\c data from
|
|
the current time-step using the defined field layout. Values are
|
|
#TYPE_FULL#.
|
|
|
|
You must use the Fortran indexing scheme to access items in \\c data.
|
|
|
|
\\return \\c H5_SUCCESS or error code
|
|
*/
|
|
h5_err_t
|
|
H5Block#DIM#dReadScalarField#TYPE_ABV# (
|
|
h5_file_t *const f, /*!< IN: file handle */
|
|
const char *name, /*!< IN: name of dataset to read */
|
|
h5_#TYPE_H5P#_t *buffer /*!< OUT: pointer to read buffer */
|
|
) {
|
|
|
|
H5_API_ENTER3 (h5_err_t, "f=0x%p, name=\\"%s\\", buffer=0x%p",
|
|
f, name, buffer);
|
|
H5_API_RETURN (h5b_read_scalar_data(f, name, (void*)buffer, #TYPE_HDF5#));
|
|
}
|
|
"""
|
|
|
|
write_scalar_fi = """
|
|
!> \\ingroup h5block_data_f
|
|
!! See \\ref H5Block#DIM#dWriteScalarField#TYPE_ABV#
|
|
!! \\return 0 on success or error code
|
|
!<
|
|
INTEGER*8 FUNCTION h5bl_#DIM#d_write_scalar_field_#TYPE_F90_ABV# ( filehandle, name, buffer )
|
|
INTEGER*8, INTENT(IN) :: filehandle !< the handle returned at file open
|
|
CHARACTER(LEN=*), INTENT(IN) :: name !< the name of the dataset
|
|
#TYPE_F90#, INTENT(IN) :: buffer(*) !< the array of data
|
|
END FUNCTION
|
|
"""
|
|
|
|
read_scalar_fi = """
|
|
!> \\ingroup h5block_data_f
|
|
!! See \\ref H5Block#DIM#dReadScalarField#TYPE_ABV#
|
|
!! \\return 0 on success or error code
|
|
!<
|
|
INTEGER*8 FUNCTION h5bl_#DIM#d_read_scalar_field_#TYPE_F90_ABV# ( filehandle, name, buffer )
|
|
INTEGER*8, INTENT(IN) :: filehandle !< the handle returned at file open
|
|
CHARACTER(LEN=*), INTENT(IN) :: name !< the name of the dataset
|
|
#TYPE_F90#, INTENT(OUT) :: buffer(*) !< buffer to read the data into
|
|
END FUNCTION
|
|
"""
|
|
|
|
write_scalar_fc = """
|
|
#if ! defined(F77_NO_UNDERSCORE)
|
|
#define h5bl_#DIM#d_write_scalar_field_#TYPE_F90_ABV# F77NAME ( \\
|
|
h5bl_#DIM#d_write_scalar_field_#TYPE_F90_ABV#_, \\
|
|
H5BL_#DIM#D_WRITE_SCALAR_FIELD_#TYPE_F90_ABVC# )
|
|
#endif
|
|
|
|
h5_err_t
|
|
h5bl_#DIM#d_write_scalar_field_#TYPE_F90_ABV# (
|
|
h5_int64_t *const f,
|
|
const char *name,
|
|
const h5_#TYPE_H5P#_t *buffer,
|
|
const int l_name
|
|
) {
|
|
|
|
h5_file_t *fh = h5_filehandlefor2c(f);
|
|
H5_API_ENTER4 (h5_err_t, "f=0x%p, name=\\"%s\\", buffer=0x%p, l_name=%d",
|
|
fh, name, buffer, l_name);
|
|
char *name2 = h5_strdupfor2c ( name, l_name );
|
|
h5_err_t herr = h5b_write_scalar_data (
|
|
fh, name2, (void*)buffer, #TYPE_HDF5# );
|
|
free ( name2 );
|
|
H5_API_RETURN(herr);
|
|
}
|
|
"""
|
|
|
|
read_scalar_fc = """
|
|
#if ! defined(F77_NO_UNDERSCORE)
|
|
#define h5bl_3d_read_scalar_field_#TYPE_F90_ABV# F77NAME ( \\
|
|
h5bl_3d_read_scalar_field_#TYPE_F90_ABV#_, \\
|
|
H5BL_#DIM#D_READ_SCALAR_FIELD_#TYPE_F90_ABVC# )
|
|
#endif
|
|
|
|
h5_err_t
|
|
h5bl_#DIM#d_read_scalar_field_#TYPE_F90_ABV# (
|
|
h5_int64_t *const f,
|
|
const char *name,
|
|
h5_#TYPE_H5P#_t *buffer,
|
|
const int l_name
|
|
) {
|
|
|
|
h5_file_t *fh = h5_filehandlefor2c(f);
|
|
H5_API_ENTER4 (h5_err_t, "f=0x%p, name=\\"%s\\", buffer=0x%p, l_name=%d",
|
|
fh, name, buffer, l_name);
|
|
char *name2 = h5_strdupfor2c ( name, l_name );
|
|
h5_err_t herr = h5b_read_scalar_data (
|
|
fh, name2, buffer, #TYPE_HDF5# );
|
|
free ( name2 );
|
|
H5_API_RETURN(herr);
|
|
}
|
|
"""
|
|
|
|
write_vector_h = """
|
|
h5_err_t
|
|
H5Block#DIM#dWriteVector3dField#TYPE_ABV# (
|
|
h5_file_t *const f,
|
|
const char *name,
|
|
const h5_#TYPE_H5P#_t *x_buf,
|
|
const h5_#TYPE_H5P#_t *y_buf,
|
|
const h5_#TYPE_H5P#_t *z_buf
|
|
);
|
|
"""
|
|
|
|
read_vector_h = """
|
|
h5_err_t
|
|
H5Block#DIM#dReadVector3dField#TYPE_ABV# (
|
|
h5_file_t *const f,
|
|
const char *name,
|
|
h5_#TYPE_H5P#_t *x_buf,
|
|
h5_#TYPE_H5P#_t *y_buf,
|
|
h5_#TYPE_H5P#_t *z_buf
|
|
);
|
|
"""
|
|
|
|
write_vector_c = """
|
|
/*!
|
|
\\ingroup h5block_data
|
|
*/
|
|
/*!
|
|
Write a 3-dimensional field \\c name with 3-dimensional vectors as values
|
|
from the buffers starting at \\c x_buf, \\c y_buf and \\c z_buf to the
|
|
current time-step using the defined field layout. Values are 3-dimensional
|
|
vectors with #TYPE_FULL# values.
|
|
|
|
You must use the Fortran indexing scheme to access items in \\c x_buf.
|
|
|
|
\\return \\c H5_SUCCESS or error code
|
|
*/
|
|
h5_err_t
|
|
H5Block#DIM#dWriteVector3dField#TYPE_ABV# (
|
|
h5_file_t *const f, /*!< IN: file handle */
|
|
const char *name, /*!< IN: name of dataset to write */
|
|
const h5_#TYPE_H5P#_t *x_buf, /*!< IN: pointer to X axis buffer */
|
|
const h5_#TYPE_H5P#_t *y_buf, /*!< IN: pointer to Y axis buffer */
|
|
const h5_#TYPE_H5P#_t *z_buf /*!< IN: pointer to Z axis buffer */
|
|
) {
|
|
|
|
H5_API_ENTER5 (h5_err_t, "f=0x%p, name=\\"%s\\", x_buf=0x%p, y_buf=0x%p, z_buf=0x%p",
|
|
f, name, x_buf, y_buf, z_buf);
|
|
H5_API_RETURN(h5b_write_vector3d_data(f, name,
|
|
(void*)x_buf, (void*)y_buf, (void*)z_buf, #TYPE_HDF5#));
|
|
}
|
|
"""
|
|
|
|
read_vector_c = """
|
|
/*!
|
|
\\ingroup h5block_data
|
|
*/
|
|
/*!
|
|
Read a 3-dimensional field \\c name with 3-dimensional vectors as values
|
|
from the buffers starting at \\c x_buf, \\c y_buf and \\c z_buf to the
|
|
current time-step using the defined field layout. Values are 3-dimensional
|
|
vectors with #TYPE_FULL# values.
|
|
|
|
You must use the Fortran indexing scheme to access items in \\c data.
|
|
|
|
\\return \\c H5_SUCCESS or error code
|
|
*/
|
|
h5_err_t
|
|
H5Block#DIM#dReadVector3dField#TYPE_ABV# (
|
|
h5_file_t *const f, /*!< IN: file handle */
|
|
const char *name, /*!< IN: name of dataset to write */
|
|
const h5_#TYPE_H5P#_t *x_buf, /*!< OUT: pointer to X axis buffer */
|
|
const h5_#TYPE_H5P#_t *y_buf, /*!< OUT: pointer to Y axis buffer */
|
|
const h5_#TYPE_H5P#_t *z_buf /*!< OUT: pointer to Z axis buffer */
|
|
) {
|
|
|
|
H5_API_ENTER5 (h5_err_t, "f=0x%p, name=\\"%s\\", x_buf=0x%p, y_buf=0x%p, z_buf=0x%p",
|
|
f, name, x_buf, y_buf, z_buf);
|
|
H5_API_RETURN(h5b_read_vector3d_data(f, name,
|
|
(void*)x_buf, (void*)y_buf, (void*)z_buf, #TYPE_HDF5#));
|
|
}
|
|
"""
|
|
|
|
write_vector_fi = """
|
|
!> \\ingroup h5block_data_f
|
|
!! See \\ref H5Block#DIM#dWriteVector3dField#TYPE_ABV#
|
|
!! \\return 0 on success or error code
|
|
!<
|
|
INTEGER*8 FUNCTION h5bl_#DIM#d_write_vector3d_field_#TYPE_F90_ABV# ( filehandle, name, x, y, z )
|
|
INTEGER*8, INTENT(IN) :: filehandle !< the handle returned at file open
|
|
CHARACTER(LEN=*), INTENT(IN) :: name !< the name of the dataset
|
|
#TYPE_F90#, INTENT(IN) :: x(*) !< the array of x data to write
|
|
#TYPE_F90#, INTENT(IN) :: y(*) !< the array of y data to write
|
|
#TYPE_F90#, INTENT(IN) :: z(*) !< the array of z data to write
|
|
END FUNCTION
|
|
"""
|
|
|
|
read_vector_fi = """
|
|
!> \\ingroup h5block_data_f
|
|
!! See \\ref H5Block#DIM#dReadVector3dField#TYPE_ABV#
|
|
!! \\return 0 on success or error code
|
|
!<
|
|
INTEGER*8 FUNCTION h5bl_#DIM#d_read_vector3d_field_#TYPE_F90_ABV# ( filehandle, name, x, y, z )
|
|
INTEGER*8, INTENT(IN) :: filehandle !< the handle returned at file open
|
|
CHARACTER(LEN=*), INTENT(IN) :: name !< the name of the dataset
|
|
#TYPE_F90#, INTENT(OUT) :: x(*) !< buffer to read the x data into
|
|
#TYPE_F90#, INTENT(OUT) :: y(*) !< buffer to read the y data into
|
|
#TYPE_F90#, INTENT(OUT) :: z(*) !< buffer to read the z data into
|
|
END FUNCTION
|
|
"""
|
|
|
|
write_vector_fc = """
|
|
#if ! defined(F77_NO_UNDERSCORE)
|
|
#define h5bl_#DIM#d_write_vector3d_field_#TYPE_F90_ABV# F77NAME ( \\
|
|
h5bl_#DIM#d_write_vector3d_field_#TYPE_F90_ABV#_, \\
|
|
H5BL_#DIM#D_WRITE_VECTOR3D_FIELD_#TYPE_F90_ABVC# )
|
|
#endif
|
|
|
|
h5_err_t
|
|
h5bl_#DIM#d_write_vector3d_field_#TYPE_F90_ABV# (
|
|
h5_int64_t *const f,
|
|
const char *name,
|
|
const h5_#TYPE_H5P#_t *x_buf,
|
|
const h5_#TYPE_H5P#_t *y_buf,
|
|
const h5_#TYPE_H5P#_t *z_buf,
|
|
const int l_name
|
|
) {
|
|
|
|
h5_file_t *fh = h5_filehandlefor2c(f);
|
|
H5_API_ENTER6 (h5_err_t, "f=0x%p, name=\\"%s\\", x_buf=0x%p, y_buf=0x%p, z_buf=0x%p, l_name=%d",
|
|
fh, name, x_buf, y_buf, z_buf, l_name);
|
|
char *name2 = h5_strdupfor2c ( name, l_name );
|
|
h5_err_t herr = h5b_write_vector3d_data (
|
|
fh, name2,
|
|
(void*)x_buf, (void*)y_buf, (void*)z_buf, #TYPE_HDF5# );
|
|
free ( name2 );
|
|
H5_API_RETURN(herr);
|
|
}
|
|
"""
|
|
|
|
read_vector_fc = """
|
|
#if ! defined(F77_NO_UNDERSCORE)
|
|
#define h5bl_#DIM#d_read_vector3d_field_#TYPE_F90_ABV# F77NAME ( \\
|
|
h5bl_#DIM#d_read_vector3d_field_#TYPE_F90_ABV#_, \\
|
|
H5BL_#DIM#D_READ_VECTOR3D_FIELD_#TYPE_F90_ABVC# )
|
|
#endif
|
|
|
|
h5_err_t
|
|
h5bl_#DIM#d_read_vector3d_field_#TYPE_F90_ABV# (
|
|
h5_int64_t *const f,
|
|
const char *name,
|
|
h5_#TYPE_H5P#_t *x_buf,
|
|
h5_#TYPE_H5P#_t *y_buf,
|
|
h5_#TYPE_H5P#_t *z_buf,
|
|
const int l_name
|
|
) {
|
|
|
|
h5_file_t *fh = h5_filehandlefor2c(f);
|
|
H5_API_ENTER6 (h5_err_t, "f=0x%p, name=\\"%s\\", x_buf=0x%p, y_buf=0x%p, z_buf=0x%p, l_name=%d",
|
|
fh, name, x_buf, y_buf, z_buf, l_name);
|
|
char *name2 = h5_strdupfor2c ( name, l_name );
|
|
h5_err_t herr = h5b_read_vector3d_data (
|
|
fh, name2,
|
|
(void*)x_buf, (void*)y_buf, (void*)z_buf, #TYPE_HDF5# );
|
|
free ( name2 );
|
|
H5_API_RETURN(herr);
|
|
}
|
|
"""
|
|
|
|
write_attr_h = """
|
|
h5_err_t
|
|
H5BlockWriteFieldAttrib#TYPE_ABV# (
|
|
h5_file_t *const f,
|
|
const char *field_name,
|
|
const char *attrib_name,
|
|
const h5_#TYPE_H5P#_t *buffer,
|
|
const h5_size_t nelems
|
|
);
|
|
"""
|
|
|
|
write_attr_c = """
|
|
/*!
|
|
\\ingroup h5block_attrib
|
|
|
|
Write #TYPE_H5P# \\c values as attribute \\c attrib_name of field
|
|
\\c field_name.
|
|
|
|
\\return \\c H5_SUCCESS or error code
|
|
*/
|
|
h5_err_t
|
|
H5BlockWriteFieldAttrib#TYPE_ABV# (
|
|
h5_file_t *const f, /*!< IN: file handle */
|
|
const char *field_name, /*!< IN: field name */
|
|
const char *attrib_name, /*!< IN: attribute name */
|
|
const h5_#TYPE_H5P#_t *buffer, /*!< IN: attribute values */
|
|
const h5_size_t nelems /*!< IN: number of elements */
|
|
) {
|
|
|
|
H5_API_ENTER5 (h5_err_t, "f=0x%p, field_name=\\"%s\\", attrib_name=\\"%s\\", "
|
|
"buffer=0x%p, nelems=%lld",
|
|
f, field_name, attrib_name, buffer, (long long)nelems);
|
|
H5_API_RETURN(h5_write_field_attrib (
|
|
f,
|
|
field_name,
|
|
attrib_name,
|
|
#TYPE_HDF5#,
|
|
buffer,
|
|
nelems ));
|
|
}
|
|
"""
|
|
|
|
write_attr_fi = """
|
|
!> \\ingroup h5block_attrib_f
|
|
!! See \\ref H5BlockWriteFieldAttrib#TYPE_ABV#
|
|
!! \\return 0 on success or error code
|
|
!<
|
|
INTEGER*8 FUNCTION h5bl_writefieldattrib_#TYPE_F90_ABV# ( filehandle, field_name, attrib_name, attrib_value, attrib_nelem)
|
|
INTEGER*8, INTENT(IN) :: filehandle !< the handle returned at file open
|
|
CHARACTER(LEN=*), INTENT(IN) :: field_name !< the name of the field
|
|
CHARACTER(LEN=*), INTENT(IN) :: attrib_name !< the name of the attribute
|
|
#TYPE_F90#, INTENT(IN) :: buffer(*) !< the array of data to write into the attribute
|
|
INTEGER*8, INTENT(IN) :: nelems !< the number of elements in the array
|
|
END FUNCTION
|
|
"""
|
|
|
|
write_attr_fc = """
|
|
#if ! defined(F77_NO_UNDERSCORE)
|
|
#define h5bl_writefieldattrib_#TYPE_F90_ABV# F77NAME ( \\
|
|
h5bl_writefieldattrib_#TYPE_F90_ABV#_, \\
|
|
H5BL_WRITEFIELDATTRIB_#TYPE_F90_ABVC# )
|
|
#endif
|
|
|
|
h5_err_t
|
|
h5bl_writefieldattrib_#TYPE_F90_ABV# (
|
|
h5_int64_t *const f,
|
|
const char *field_name,
|
|
const char *attrib_name,
|
|
const h5_#TYPE_H5P#_t *buffer,
|
|
const h5_size_t *nelems,
|
|
const int l_field_name,
|
|
const int l_attrib_name
|
|
) {
|
|
|
|
h5_file_t *fh = h5_filehandlefor2c(f);
|
|
H5_API_ENTER7 (h5_err_t, "f=0x%p, field_name=\\"%s\\", attrib_name=\\"%s\\", "
|
|
"buffer=0x%p, nelems=%lld, l_field_name=%d, l_attrib_name=%d",
|
|
fh, field_name, attrib_name, buffer, (long long)*nelems,
|
|
l_field_name, l_attrib_name);
|
|
char *field_name2 = h5_strdupfor2c ( field_name, l_field_name );
|
|
char *attrib_name2 = h5_strdupfor2c ( attrib_name, l_attrib_name );
|
|
h5_err_t herr = h5_write_field_attrib (
|
|
fh, field_name2, attrib_name2,
|
|
#TYPE_HDF5#, buffer, *nelems );
|
|
free ( field_name2 );
|
|
free ( attrib_name2 );
|
|
H5_API_RETURN(herr);
|
|
}
|
|
"""
|
|
|
|
read_attr_h = """
|
|
h5_err_t
|
|
H5BlockReadFieldAttrib#TYPE_ABV# (
|
|
h5_file_t *const f,
|
|
const char *field_name,
|
|
const char *attrib_name,
|
|
h5_#TYPE_H5P#_t *buffer
|
|
);
|
|
"""
|
|
|
|
read_attr_c = """
|
|
/*!
|
|
\\ingroup h5block_attrib
|
|
|
|
Read #TYPE_H5P# values from attribute \\c attrib_name of field
|
|
\\c field_name into a \\c buffer.
|
|
|
|
\\return \\c H5_SUCCESS or error code
|
|
*/
|
|
h5_err_t
|
|
H5BlockReadFieldAttrib#TYPE_ABV# (
|
|
h5_file_t *const f, /*!< IN: file handle */
|
|
const char *field_name, /*!< IN: field name */
|
|
const char *attrib_name, /*!< IN: attribute name */
|
|
h5_#TYPE_H5P#_t *buffer /*!< OUT: attribute values */
|
|
) {
|
|
|
|
H5_API_ENTER4 (h5_err_t, "f=%p, field_name=\\\"%s\\", attrib_name=\\"%s\\", buffer=0x%p",
|
|
f, field_name, attrib_name, buffer);
|
|
H5_API_RETURN(h5_read_field_attrib (
|
|
f,
|
|
field_name,
|
|
attrib_name,
|
|
#TYPE_HDF5#,
|
|
(void*)buffer ));
|
|
}
|
|
"""
|
|
|
|
read_attr_fi = """
|
|
!> \\ingroup h5block_attrib_f
|
|
!! See \\ref H5BlockReadFieldAttrib#TYPE_ABV#
|
|
!! \\return 0 on success or error code
|
|
!<
|
|
INTEGER*8 FUNCTION h5bl_readfieldattrib_#TYPE_F90_ABV# ( filehandle, field_name, attrib_name, attrib_value, attrib_nelem)
|
|
INTEGER*8, INTENT(IN) :: filehandle !< the handle returned at file open
|
|
CHARACTER(LEN=*), INTENT(IN) :: field_name !< the name of the field
|
|
CHARACTER(LEN=*), INTENT(IN) :: attrib_name !< the name of the attribute
|
|
#TYPE_F90#, INTENT(IN) :: buffer(*) !< the buffer to read into
|
|
END FUNCTION
|
|
"""
|
|
|
|
read_attr_fc = """
|
|
#if ! defined(F77_NO_UNDERSCORE)
|
|
#define h5bl_readfieldattrib_#TYPE_F90_ABV# F77NAME ( \\
|
|
h5bl_readfieldattrib_#TYPE_F90_ABV#_, \\
|
|
H5BL_READFIELDATTRIB_#TYPE_F90_ABVC# )
|
|
#endif
|
|
|
|
h5_err_t
|
|
h5bl_readfieldattrib_#TYPE_F90_ABV# (
|
|
h5_int64_t *const f,
|
|
const char *field_name,
|
|
const char *attrib_name,
|
|
h5_#TYPE_H5P#_t *buffer,
|
|
const int l_field_name,
|
|
const int l_attrib_name
|
|
) {
|
|
|
|
h5_file_t *fh = h5_filehandlefor2c(f);
|
|
H5_API_ENTER6 (h5_err_t, "f=0x%p, field_name=\\"%s\\", attrib_name=\\"%s\\", "
|
|
"values=0x%p, l_field_name=%d, l_attrib_name=%d",
|
|
fh, field_name, attrib_name, buffer,
|
|
l_field_name, l_attrib_name);
|
|
char *field_name2 = h5_strdupfor2c ( field_name, l_field_name );
|
|
char *attrib_name2 = h5_strdupfor2c ( attrib_name, l_attrib_name );
|
|
h5_err_t herr = h5_read_field_attrib (
|
|
fh, field_name2, attrib_name2, #TYPE_HDF5#, buffer );
|
|
free ( field_name2 );
|
|
free ( attrib_name2 );
|
|
H5_API_RETURN(herr);
|
|
}
|
|
"""
|
|
|
|
|
|
dims = ["3"]
|
|
types = [
|
|
["floating points (64-bit)", "Float64", "float64", "H5T_NATIVE_DOUBLE", "REAL*8", "r8", "R8"],
|
|
["floating points (32-bit)", "Float32", "float32", "H5T_NATIVE_FLOAT", "REAL*4", "r4", "R4"],
|
|
["integers (64-bit)", "Int64", "int64", "H5T_NATIVE_INT64", "INTEGER*8", "i8", "I8"],
|
|
["integers (32-bit)", "Int32", "int32", "H5T_NATIVE_INT32", "INTEGER*4", "i4", "I4"]
|
|
]
|
|
|
|
def create_call(template, type, dim):
|
|
fcn = template
|
|
fcn = fcn.replace('#DIM#',dim)\
|
|
.replace('#TYPE_FULL#',type[0])\
|
|
.replace('#TYPE_ABV#',type[1])\
|
|
.replace('#TYPE_H5P#',type[2])\
|
|
.replace('#TYPE_HDF5#',type[3])\
|
|
.replace('#TYPE_F90#',type[4])\
|
|
.replace('#TYPE_F90_ABV#',type[5])\
|
|
.replace('#TYPE_F90_ABVC#',type[6])
|
|
return fcn
|
|
|
|
def write_calls():
|
|
cfile = file('H5Block_readwrite.c','w')
|
|
cfile.write(c_head)
|
|
hfile = file('../include/H5Block_readwrite.h','w')
|
|
hfile.write(h_head)
|
|
fcfile = file('../Fortran/H5Block_readwrite_F.c','w')
|
|
fcfile.write(fc_head)
|
|
fifile = file('../Fortran/H5Block_readwrite.f90','w')
|
|
for dim in dims:
|
|
for type in types:
|
|
cfile.write(create_call(write_scalar_c,type,dim));
|
|
cfile.write(create_call(read_scalar_c,type,dim));
|
|
hfile.write(create_call(write_scalar_h,type,dim));
|
|
hfile.write(create_call(read_scalar_h,type,dim));
|
|
fcfile.write(create_call(write_scalar_fc,type,dim));
|
|
fcfile.write(create_call(read_scalar_fc,type,dim));
|
|
fifile.write(create_call(write_scalar_fi,type,dim));
|
|
fifile.write(create_call(read_scalar_fi,type,dim));
|
|
cfile.write(create_call(write_vector_c,type,dim));
|
|
cfile.write(create_call(read_vector_c,type,dim));
|
|
hfile.write(create_call(write_vector_h,type,dim));
|
|
hfile.write(create_call(read_vector_h,type,dim));
|
|
fcfile.write(create_call(write_vector_fc,type,dim));
|
|
fcfile.write(create_call(read_vector_fc,type,dim));
|
|
fifile.write(create_call(write_vector_fi,type,dim));
|
|
fifile.write(create_call(read_vector_fi,type,dim));
|
|
for type in types:
|
|
cfile.write(create_call(write_attr_c,type,""));
|
|
hfile.write(create_call(write_attr_h,type,""));
|
|
fifile.write(create_call(write_attr_fi,type,""));
|
|
fcfile.write(create_call(write_attr_fc,type,""));
|
|
cfile.write(create_call(read_attr_c,type,""));
|
|
hfile.write(create_call(read_attr_h,type,""));
|
|
fifile.write(create_call(read_attr_fi,type,""));
|
|
fcfile.write(create_call(read_attr_fc,type,""));
|
|
cfile.close()
|
|
hfile.write(h_tail)
|
|
hfile.close()
|
|
fcfile.close()
|
|
fifile.close()
|
|
|
|
write_calls()
|
|
|