From 73b637bcf352918395b56cfb0952c4776d41ec5e Mon Sep 17 00:00:00 2001 From: Pedro Vicente Nunes Date: Fri, 8 Jun 2001 22:49:38 -0500 Subject: [svn-r3976] modified lite files --- src/H5lite.c | 548 ----------------------------------------------------------- src/H5lite.h | 63 ------- 2 files changed, 611 deletions(-) delete mode 100755 src/H5lite.c delete mode 100755 src/H5lite.h 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 -- cgit v0.12