summaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rwxr-xr-xsrc/H5lite.c548
-rwxr-xr-xsrc/H5lite.h63
2 files changed, 0 insertions, 611 deletions
diff --git a/src/H5lite.c b/src/H5lite.c
deleted file mode 100755
index 3f68850..0000000
--- a/src/H5lite.c
+++ /dev/null
@@ -1,548 +0,0 @@
-/****************************************************************************
- * NCSA HDF *
- * Scientific Data Technologies *
- * National Center for Supercomputing Applications *
- * University of Illinois at Urbana-Champaign *
- * 605 E. Springfield, Champaign IL 61820 *
- * *
- * For conditions of distribution and use, see the accompanying *
- * hdf/COPYING file. *
- * *
- ****************************************************************************/
-
-
-
-#include "H5Lite.h"
-
-/*local operator functions */
-
-static herr_t count_groups( hid_t loc_id, const char *name, void *op_data);
-static herr_t get_name_group( hid_t loc_id, const char *name, void *op_data);
-
-
-
-/*-------------------------------------------------------------------------
- * Function: H5Lmake_dataset
- *
- * Purpose:
- *
- * Return: Success: 0, Failure: -1
- *
- * Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu
- *
- * Date: March 19, 2001
- *
- * List of arguments:
- *
- * hid_t loc_id
- * IN: Identifier of the file or group to create the dataset within.
- *
- * const char *dset_name
- * IN: The name of the dataset to create.
- *
- * int rank
- * IN: Number of dimensions of dataspace.
- *
- * const hsize_t * dims
- * IN: An array of the size of each dimension.
- *
- * hid_t file_type_id
- * IN: Identifier of the datatype to use when creating the dataset.
- *
- * hid_t mem_space_id
- * IN: Identifier of the memory dataspace.
- *
- * const void * buffer
- * IN: Buffer with data to be written to the datsset.
- *
- * Comments:
- *
- * The specified datatype and dataspace are the datatype and dataspace of the dataset
- * as it will exist in the file, which may be different than in application memory
- *
- * Modifications:
- *
- *
- *-------------------------------------------------------------------------
- */
-
-herr_t H5Lmake_dataset( hid_t loc_id,
- const char *dset_name,
- int rank,
- const hsize_t *dims,
- hid_t file_type_id,
- hid_t mem_type_id,
- const void *buffer )
-{
-
- hid_t dataset_id, space_id; /* identifiers */
- herr_t status;
- hid_t plist;
-
- /* Create the data space for the dataset. */
- space_id = H5Screate_simple( rank, dims, NULL );
-
- /* Create the dataset. */
-#if defined (RELEASE)
- dataset_id = H5Dcreate( loc_id, dset_name, file_type_id, space_id, H5P_DEFAULT );
-#else
- plist = H5Pcreate(H5P_DATASET_CREATE);
- dataset_id = H5Dcreate( loc_id, dset_name, file_type_id, space_id, plist );
-#endif
-
- /* Write the dataset only if there is data to write */
-
- if ( buffer )
-
- status = H5Dwrite( dataset_id, mem_type_id, H5S_ALL, H5S_ALL, H5P_DEFAULT, buffer );
-
- /* End access to the dataset and release resources used by it. */
- status = H5Dclose( dataset_id );
-
- /* Terminate access to the data space. */
- status = H5Sclose( space_id );
-
- return status;
-}
-
-
-
-/*-------------------------------------------------------------------------
- * Function: H5Lattach_attribute
- *
- * Purpose: This function attaches a string attribute to an existing object
- *
- * Return: Success: 0, Failure: -1
- *
- * Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu
- *
- * Date: April 18, 2001
- *
- * Comments:
- *
- * Modifications:
- *
- *-------------------------------------------------------------------------
- */
-
-
-herr_t H5Lattach_attribute( hid_t loc_id,
- const char *obj_name,
- const char *attr_name,
- const char *attr_data )
-{
-
- /* identifiers */
- hid_t attr_type;
- hid_t attr_size;
- hid_t attr_space_id;
- hid_t attr_id;
- hid_t obj_id;
- herr_t status;
- H5I_type_t type;
-
- type = H5Iget_type( loc_id );
-
- switch ( type )
- {
- case H5I_DATASET:
- case H5I_FILE:
-
- /* Open the dataset. */
- obj_id = H5Dopen( loc_id, obj_name );
- break;
-
- case H5I_GROUP:
-
- /* Open the group. */
- obj_id = H5Gopen( loc_id, obj_name );
- break;
-
- default:
- return FAIL;
-
- }
-
- /* Create the attribute */
-
- attr_type = H5Tcopy( H5T_C_S1 );
-
- attr_size = strlen( attr_data );
-
- status = H5Tset_size( attr_type, (size_t)attr_size);
-
- status = H5Tset_strpad( attr_type, H5T_STR_SPACEPAD );
-
- attr_space_id = H5Screate( H5S_SCALAR );
-
- attr_id = H5Acreate( obj_id, attr_name, attr_type, attr_space_id, H5P_DEFAULT );
-
- status = H5Awrite( attr_id, attr_type, attr_data );
-
- status = H5Sclose( attr_space_id );
-
- status = H5Aclose( attr_id );
-
-
- switch ( type )
- {
- case H5I_DATASET:
- case H5I_FILE:
-
- /* Close the dataset. */
- status = H5Dclose( obj_id );
- break;
-
- case H5I_GROUP:
-
- /* Close the group. */
- status = H5Gclose( obj_id );
- break;
-
- }
-
- return status;
-}
-
-
-
-/*-------------------------------------------------------------------------
- * Function: H5Lattach_attribute_numerical
- *
- * Purpose: This function attaches a numerical 1D attribute to an existing object (dataset or group)
- *
- * Return: Success: 0, Failure: -1
- *
- * Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu
- *
- * Date: March 19, 2001
- *
- * Comments:
- *
- * The attribute is one dimensional
- *
- * Modifications:
- *
- *-------------------------------------------------------------------------
- */
-
-
-herr_t H5Lattach_attribute_numerical( hid_t loc_id,
- const char *obj_name,
- const char *attr_name,
- hsize_t size,
- hid_t file_type_id,
- hid_t mem_type_id,
- void *buffer )
-{
-
- hid_t obj_id, space_id, attr_id; /* identifiers */
- herr_t status;
- H5I_type_t type;
-
- type = H5Iget_type( loc_id );
-
- switch ( type )
- {
- case H5I_DATASET:
- case H5I_FILE:
-
- /* Open the dataset. */
- obj_id = H5Dopen( loc_id, obj_name );
- break;
-
- case H5I_GROUP:
-
- /* Open the group. */
- obj_id = H5Gopen( loc_id, obj_name );
- break;
-
- default:
- return -1;
-
- }
-
- /* Create the data space for the attribute. */
- space_id = H5Screate_simple( 1, &size, NULL );
-
- /* Create the attribute. */
- attr_id = H5Acreate( obj_id, attr_name, file_type_id, space_id, H5P_DEFAULT );
-
- /* Write the attribute data. */
- status = H5Awrite( attr_id, mem_type_id, buffer );
-
- /* Close the attribute. */
- status = H5Aclose( attr_id );
-
- /* Close the dataspace. */
- status = H5Sclose( space_id );
-
- switch ( type )
- {
- case H5I_DATASET:
- case H5I_FILE:
-
- /* Close the dataset. */
- status = H5Dclose( obj_id );
- break;
-
- case H5I_GROUP:
-
- /* Close the group. */
- status = H5Gclose( obj_id );
- break;
-
- }
-
- return status;
-}
-
-
-
-
-/*-------------------------------------------------------------------------
- * Function: H5Lmake_groups
- *
- * Purpose:
- *
- * Return: Success: 0, Failure: -1
- *
- * Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu
- *
- * Date: May 24, 2001
- *
- * Comments:
- *
- * Modifications:
- *
- *-------------------------------------------------------------------------
- */
-
-
-herr_t H5Lmake_groups( hid_t loc_id,
- int ngroups,
- const char *names[] )
-{
-
- herr_t status;
- hid_t group_id;
- int i;
-
- for ( i = 0; i < ngroups; i++)
- {
-
- /* Create the group */
- group_id = H5Gcreate( loc_id, names[i], 0);
-
- /* Close the group. */
- status = H5Gclose( group_id );
-
- }
-
- return status;
-}
-
-
-
-/*-------------------------------------------------------------------------
- * Function: H5Lget_groups
- *
- * Purpose:
- *
- * Return: Success: 0, Failure: -1
- *
- * Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu
- *
- * Date: May 24, 2001
- *
- * Comments:
- *
- * Modifications:
- *
- *-------------------------------------------------------------------------
- */
-
-herr_t H5Lget_groups( hid_t loc_id,
- const char *group_name )
-{
-
- herr_t status;
- char name[255];
- int i, j;
- int ngroups;
-
- ngroups = 0;
-
- /* Get the number of groups */
- status = H5Giterate( loc_id, group_name, 0, count_groups, (void *)&ngroups );
-
- for ( i = 0; i < ngroups; i++)
- {
-
- j = i;
-
- /* Get name */
- status = H5Giterate( loc_id, group_name, &j, get_name_group, (void *)name );
-
- printf("Name : %s\n", name);
-
- }
-
- return status;
-}
-
-
-/*-------------------------------------------------------------------------
- * Function: count_groups
- *
- * Purpose: operator function used by H5Lget_groups
- *
- * Return:
- *
- * Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu
- *
- * Date: May 28, 2001
- *
- * Comments:
- *
- * Modifications:
- *
- *-------------------------------------------------------------------------
- */
-
-static herr_t count_groups( hid_t loc_id, const char *name, void *op_data)
-{
-
- /* Define a default zero value for return. This will cause the iterator to continue */
-
- int ret = 0;
-
- /* Get information about object */
-
- H5G_stat_t statbuf;
- herr_t status;
-
- status = H5Gget_objinfo( loc_id, name, 0, &statbuf );
- if ( status < 0)
- {
- return 1; /* iterator will stop */
- }
-
- if ( statbuf.type == H5G_GROUP )
- {
- (*(int *)op_data)++;
- }
-
- return ret;
-
-}
-
-/*-------------------------------------------------------------------------
- * Function: get_name_group
- *
- * Purpose: operator function used by H5Lget_groups
- *
- * Return:
- *
- * Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu
- *
- * Date: May 28, 2001
- *
- * Comments:
- *
- * Modifications:
- *
- *-------------------------------------------------------------------------
- */
-
-static herr_t get_name_group( hid_t loc_id, const char *name, void *op_data)
-{
-
- /* Define a default 1 value for return. This will cause the iterator to break */
-
- int ret = 1;
-
- /* Get information about object */
-
- H5G_stat_t statbuf;
- herr_t status;
-
- status = H5Gget_objinfo( loc_id, name, 0, &statbuf );
-
- if ( statbuf.type == H5G_GROUP )
- {
- strcpy( (char *)op_data, name );
- }
-
- return ret;
-}
-
-
-
-
-
-/*-------------------------------------------------------------------------
- * Function: H5L_get_attributes
- *
- * Purpose:
- *
- * Return:
- *
- * Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu
- *
- * Date: May 28, 2001
- *
- * Comments:
- *
- * Modifications:
- *
- *-------------------------------------------------------------------------
- */
-
-herr_t H5Lget_attributes( hid_t loc_id )
-{
-
- hid_t attr_id;
- hid_t type_id;
- H5T_class_t class_type;
- char name[255];
- int status;
- int n, i;
-
- n = H5Aget_num_attrs( loc_id );
-
- for ( i = 0; i < n; i++)
- {
-
- /*open id */
- attr_id = H5Aopen_idx( loc_id, i );
-
- /*get name */
- H5Aget_name( attr_id, 255, name );
-
- /*open type id */
- type_id = H5Aget_type( attr_id );
-
- /*get class */
- class_type = H5Tget_class( type_id );
-
- printf("%s\n", name );
-
-
- /*close type id */
- status = H5Tclose( type_id );
-
- /*close attr id */
- status = H5Aclose( attr_id );
-
- }
-
-
- return n;
-
-}
-
-
-
-
-
diff --git a/src/H5lite.h b/src/H5lite.h
deleted file mode 100755
index 30a3639..0000000
--- a/src/H5lite.h
+++ /dev/null
@@ -1,63 +0,0 @@
-
-/****************************************************************************
- * NCSA HDF *
- * Scientific Data Technologies *
- * National Center for Supercomputing Applications *
- * University of Illinois at Urbana-Champaign *
- * 605 E. Springfield, Champaign IL 61820 *
- * *
- * For conditions of distribution and use, see the accompanying *
- * hdf/COPYING file. *
- * *
- ****************************************************************************/
-
-
-#ifndef _H5Lite_H
-#define _H5Lite_H
-
-#include "H5private.h"
-#include "H5Ipublic.h"
-#include "H5Fpublic.h"
-#include "H5Tpublic.h"
-#include "H5Ppublic.h"
-#include "H5Spublic.h"
-#include "H5Gpublic.h"
-#include "H5Apublic.h"
-
-
-herr_t H5Lmake_dataset( hid_t loc_id,
- const char *dset_name,
- int rank,
- const hsize_t *dims,
- hid_t file_type_id,
- hid_t mem_type_id,
- const void *buffer );
-
-herr_t H5Lattach_attribute( hid_t loc_id,
- const char *dset_name,
- const char *attr_name,
- const char *attr_data );
-
-
-herr_t H5Lattach_attribute_numerical( hid_t loc_id,
- const char *dset_name,
- const char *attr_name,
- hsize_t dim,
- hid_t file_type_id,
- hid_t mem_type_id,
- void *buffer );
-
-herr_t H5Lmake_groups( hid_t loc_id,
- int ngroups,
- const char *names[] );
-
-herr_t H5Lget_groups( hid_t loc_id,
- const char *group_name );
-
-herr_t H5Lget_attributes( hid_t loc_id );
-
-
-
-
-
-#endif
generated by cgit v0.12 at 2024-11-07 20:01:45 (GMT)