mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2025-03-31 17:10:47 +08:00
Code Issues Packages Projects Releases Wiki Activity

[svn-r58] Added H5Tget_type and a few minor bug-fixes.

Browse Source
This commit is contained in:
Quincey Koziol 1997-08-29 18:18:35 -05:00
parent ee40da82df
commit 38a4745563
2 changed files with 102 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

102
src/H5T.c
View File

@ -27,6 +27,7 @@ static char RcsId[] = "@(#)$Revision$";
H5Tis_field_atomic -- Check if a field is atomic
H5Tis_atomic/H5T_is_atomic -- Check if a datatype is atomic
H5Tset_type -- Set the base type of a user-defined datatype
H5Tget_type -- Get the base type of a datatype
H5Tadd_field -- Add a field to a compound datatype
H5Tsize -- Determine the size of a datatype
@ -263,7 +264,9 @@ hbool_t H5T_is_atomic(h5_datatype_t *type)
if(H5T_COMPOUND==type->dt.base)
ret_value=BFALSE;
#ifdef LATER
done:
#endif /* LATER */
if(ret_value == BFAIL)
{ /* Error condition cleanup */
@ -370,6 +373,62 @@ done:
FUNC_LEAVE(ret_value);
} /* end H5Tset_type() */
/*--------------------------------------------------------------------------
NAME
H5Tget_type
PURPOSE
Get the base type of a datatype
USAGE
herr_t H5Tget_type(tid, base, len, arch)
hatom_t tid; IN: Datatype object to modify
hatom_t *base; IN: Base type of the datatype
uint8 *len; IN: Length of the object in bytes
uint8 *arch; IN: Architecture format type stored with
RETURNS
SUCCEED/FAIL
DESCRIPTION
This function gets the basic type of a user-defined datatype. Each
datatype is either an atomic type (i.e. has no further divisions of the
type) or is a compound type (like a C structure). If the datatype is
to a compound type, the 'len' argument is not used.
--------------------------------------------------------------------------*/
herr_t H5Tget_type(hatom_t tid,hatom_t *base,uint8 *len,uint8 *arch)
{
h5_datatype_t *dt; /* new data-type object to create */
herr_t ret_value = SUCCEED;
FUNC_ENTER(H5Tget_type, H5T_init_interface, FAIL);
/* Clear errors and check args and all the boring stuff. */
H5ECLEAR;
if(H5Aatom_group(tid)!=H5_DATATYPE)
HGOTO_ERROR(H5E_ARGS, H5E_BADTYPE, FAIL);
/* Go get the object */
if((dt=H5Aatom_object(tid))==NULL)
HGOTO_ERROR(H5E_ATOM, H5E_BADATOM, FAIL);
if(dt->dt.base==0)
HGOTO_ERROR(H5E_FUNC, H5E_UNINITIALIZED, FAIL);
/* Set the basic datatype information */
if(base!=NULL)
*base=dt->dt.base;
if(len!=NULL)
*len=dt->dt.len;
if(arch!=NULL)
*arch=dt->dt.arch;
done:
if(ret_value == FAIL)
{ /* Error condition cleanup */
} /* end if */
/* Normal function cleanup */
FUNC_LEAVE(ret_value);
} /* end H5Tget_type() */
/*--------------------------------------------------------------------------
NAME
H5Tadd_field
@ -515,14 +574,15 @@ uintn H5Tsize(hatom_t tid, uint8 len, uint8 arch, hbool_t mem_flag)
} /* end if */
else
{
if(tid==H5T_COMPOUND)
h5_datatype_t *dt; /* datatype pointer */
/* Go get the object */
if((dt=H5Aatom_object(tid))==NULL)
HGOTO_ERROR(H5E_ATOM, H5E_BADATOM, FAIL);
if(dt->dt.base==H5T_COMPOUND)
{
intn i; /* local counting variable */
h5_datatype_t *dt; /* datatype pointer */
/* Go get the object */
if((dt=H5Aatom_object(tid))==NULL)
HGOTO_ERROR(H5E_ATOM, H5E_BADATOM, FAIL);
/* Check the base type of the datatype */
if(H5T_COMPOUND!=dt->dt.base)
@ -537,6 +597,36 @@ uintn H5Tsize(hatom_t tid, uint8 len, uint8 arch, hbool_t mem_flag)
ret_value+=H5Tsize(dt->ci->flist[i].dt.base, dt->ci->flist[i].dt.len,
dt->ci->flist[i].dt.arch,mem_flag)*H5Pnelem(dt->ci->flist[i].dim_id);
} /* end if */
else
{ /* Simple, user-defined datatypes */
switch(dt->dt.base)
{
case H5T_CHAR:
case H5T_INT:
case H5T_FLOAT: /* All three of thes types use the length as the number of bytes */
ret_value=dt->dt.len;
break;
case H5T_DATE:
ret_value=8; /* Number of characters for ISO 8601 format */
break;
case H5T_TIME:
ret_value=6; /* Number of characters for ISO 8601 format */
break;
case H5T_SPTR:
HGOTO_ERROR(H5E_INTERNAL, H5E_UNSUPPORTED, UFAIL);
break;
case H5T_PPTR:
HGOTO_ERROR(H5E_INTERNAL, H5E_UNSUPPORTED, UFAIL);
break;
default:
HGOTO_ERROR(H5E_ARGS, H5E_BADRANGE, UFAIL);
} /* end switch */
} /* end else */
} /* end else */
done:

7
src/H5Tpublic.h
View File

@ -23,7 +23,7 @@
#include <H5public.h>
#include <H5Apublic.h>
/* Define atomic datatypes */
/* Define atomic datatype bases */
#define H5T_CHAR MAKE_ATOM(H5_DATATYPE,0)
#define H5T_INT MAKE_ATOM(H5_DATATYPE,1)
#define H5T_FLOAT MAKE_ATOM(H5_DATATYPE,2)
@ -33,6 +33,10 @@
#define H5T_PPTR MAKE_ATOM(H5_DATATYPE,6)
#define H5T_COMPOUND MAKE_ATOM(H5_DATATYPE,7)
/* Define atomic datatype architectures */
#define H5T_BIGENDIAN 0
#define H5T_LITTLEENDIAN 1
typedef struct {
hatom_t base; /* Basic datatype */
uint8 len; /* Length of base-type, in bytes */
@ -48,6 +52,7 @@ uint32 H5Tget_num_fields(hatom_t tid);
hbool_t H5Tis_field_atomic(hatom_t tid,uintn fidx);
hbool_t H5Tis_atomic(hatom_t tid);
herr_t H5Tset_type(hatom_t tid,hatom_t base,uint8 len,uint8 arch);
herr_t H5Tget_type(hatom_t tid,hatom_t *base,uint8 *len,uint8 *arch);
uintn H5Tsize(hatom_t tid, uint8 len, uint8 arch, hbool_t mem_flag);
herr_t H5Tadd_field (hatom_t tid, const char *name, hatom_t base, uint8 len,
uint8 arch, hatom_t space);