summaryrefslogtreecommitdiffstats
path: root/src/H5T.c
diff options
context:
space:
mode:
authorQuincey Koziol <koziol@hdfgroup.org>1997-08-29 19:26:32 (GMT)
committerQuincey Koziol <koziol@hdfgroup.org>1997-08-29 19:26:32 (GMT)
commit39a94b2f538e6b4d1b13362e022141ba8cb599c0 (patch)
tree93c81660e0b8e423868bed0ca907bfe046b4c878 /src/H5T.c
parentc48f8b7590ed6bc334a6d62ab651cda8124ba90f (diff)
downloadhdf5-39a94b2f538e6b4d1b13362e022141ba8cb599c0.zip
hdf5-39a94b2f538e6b4d1b13362e022141ba8cb599c0.tar.gz
hdf5-39a94b2f538e6b4d1b13362e022141ba8cb599c0.tar.bz2
[svn-r53] Added datatype and dimensionality messages to dataset header, cleaned up more
code, etc.
Diffstat (limited to 'src/H5T.c')
-rw-r--r--src/H5T.c46
1 files changed, 42 insertions, 4 deletions
diff --git a/src/H5T.c b/src/H5T.c
index 1411247..da6de94 100644
--- a/src/H5T.c
+++ b/src/H5T.c
@@ -25,7 +25,7 @@ static char RcsId[] = "@(#)$Revision$";
EXPORTED ROUTINES
H5Tget_num_fields -- Get the number of fields in a compound datatype
H5Tis_field_atomic -- Check if a field is atomic
- H5Tis_atomic -- Check if a datatype is atomic
+ H5Tis_atomic/H5T_is_atomic -- Check if a datatype is atomic
H5Tset_type -- Set the base type of a user-defined datatype
H5Tadd_field -- Add a field to a compound datatype
H5Tsize -- Determine the size of a datatype
@@ -237,9 +237,48 @@ done:
/*--------------------------------------------------------------------------
NAME
+ H5T_is_atomic
+ PURPOSE
+ Check if a datatype is atomic (internal)
+ USAGE
+ hbool_t H5Tis_atomic(type)
+ h5_datatype_t *type; IN: Ptr to datatype object to query
+ RETURNS
+ BFAIL/BTRUE/BFALSE
+ DESCRIPTION
+ This function checks the basic type of a user-defined datatype. BTRUE
+ is returned if the datatype is atomic (i.e. not compound), BFALSE is
+ returned if the datatype is compound, BFAIL on error.
+--------------------------------------------------------------------------*/
+hbool_t H5T_is_atomic(h5_datatype_t *type)
+{
+ hbool_t ret_value = BTRUE;
+
+ FUNC_ENTER(H5T_is_atomic, H5T_init_interface, BFAIL);
+
+ /* Clear errors and check args and all the boring stuff. */
+ H5ECLEAR;
+
+ /* Check the base type of the datatype */
+ if(H5T_COMPOUND==type->dt.base)
+ ret_value=BFALSE;
+
+done:
+ if(ret_value == BFAIL)
+ { /* Error condition cleanup */
+
+ } /* end if */
+
+ /* Normal function cleanup */
+
+ FUNC_LEAVE(ret_value);
+} /* end H5T_is_atomic() */
+
+/*--------------------------------------------------------------------------
+ NAME
H5Tis_atomic
PURPOSE
- Check if a datatype is atomic
+ Check if a datatype is atomic (API)
USAGE
hbool_t H5Tis_atomic(tid)
hatom_t tid; IN: Datatype object to query
@@ -265,8 +304,7 @@ hbool_t H5Tis_atomic(hatom_t tid)
HGOTO_ERROR(H5E_ATOM, H5E_BADATOM, FAIL);
/* Check the base type of the datatype */
- if(H5T_COMPOUND==dt->dt.base)
- ret_value=BFALSE;
+ ret_value=H5T_is_atomic(dt);
done:
if(ret_value == BFAIL)