From 66c44914cc582da845571768161302b1b18b26bd Mon Sep 17 00:00:00 2001
From: Quincey Koziol <koziol@hdfgroup.org>
Date: Thu, 9 Nov 2000 18:00:19 -0500
Subject: [svn-r2850] Purpose:     Added new function. Description:     It's
 often convenient to query the class of a compound datatype's member     to
 determine if it's an array and the previous way required you to open     the
 member type to query it's class. Solution:     Added new H5Tget_member_class
 function to directly ask for the member type's     class. Platforms tested:  
   FreeBSD 4.1.1 (hawkwind)

---
 src/H5T.c       | 38 ++++++++++++++++++++++++++++++++++++++
 src/H5Tpublic.h | 10 +---------
 2 files changed, 39 insertions(+), 9 deletions(-)

diff --git a/src/H5T.c b/src/H5T.c
index 10b0521..2b8d35f 100644
--- a/src/H5T.c
+++ b/src/H5T.c
@@ -3313,6 +3313,44 @@ H5Tget_member_offset(hid_t type_id, int membno)
 
 
 /*-------------------------------------------------------------------------
+ * Function:	H5Tget_member_class
+ *
+ * Purpose:	Returns the datatype class of a member of a compound datatype.
+ *
+ * Return:	Success: Non-negative
+ *
+ *		Failure: H5T_NO_CLASS
+ *
+ * Programmer:	Quincey Koziol
+ *		Thursday, November  9, 2000
+ *
+ * Modifications:
+ *
+ *-------------------------------------------------------------------------
+ */
+H5T_class_t
+H5Tget_member_class(hid_t type_id, int membno)
+{
+    H5T_t	*dt = NULL;
+    H5T_class_t	ret_value = H5T_NO_CLASS;
+
+    FUNC_ENTER(H5Tget_member_class, H5T_NO_CLASS);
+
+    /* Check args */
+    if (H5I_DATATYPE != H5I_get_type(type_id) ||
+            NULL == (dt = H5I_object(type_id)) || H5T_COMPOUND != dt->type)
+        HRETURN_ERROR(H5E_ARGS, H5E_BADTYPE, H5T_NO_CLASS, "not a compound data type");
+    if (membno < 0 || membno >= dt->u.compnd.nmembs)
+        HRETURN_ERROR(H5E_ARGS, H5E_BADVALUE, H5T_NO_CLASS, "invalid member number");
+
+    /* Value */
+    ret_value = dt->u.compnd.memb[membno].type->type;
+
+    FUNC_LEAVE(ret_value);
+} /* end H5Tget_member_class() */
+
+
+/*-------------------------------------------------------------------------
  * Function:	H5Tget_member_type
  *
  * Purpose:	Returns the data type of the specified member.	The caller
diff --git a/src/H5Tpublic.h b/src/H5Tpublic.h
index 95fa939..1d534d8 100644
--- a/src/H5Tpublic.h
+++ b/src/H5Tpublic.h
@@ -458,11 +458,6 @@ __DLL__ htri_t H5Tcommitted(hid_t type_id);
 /* Operations defined on compound data types */
 __DLL__ herr_t H5Tinsert(hid_t parent_id, const char *name, size_t offset,
 			 hid_t member_id);
-#ifdef QAK
-__DLL__ herr_t H5Tinsert_array(hid_t parent_id, const char *name,
-			       size_t offset, int ndims, const size_t dim[],
-			       const int *perm, hid_t member_id);
-#endif /* QAK */
 __DLL__ herr_t H5Tpack(hid_t type_id);
 
 /* Operations defined on enumeration data types */
@@ -506,10 +501,7 @@ __DLL__ H5T_str_t H5Tget_strpad(hid_t type_id);
 __DLL__ int H5Tget_nmembers(hid_t type_id);
 __DLL__ char *H5Tget_member_name(hid_t type_id, int membno);
 __DLL__ size_t H5Tget_member_offset(hid_t type_id, int membno);
-#ifdef QAK
-__DLL__ int H5Tget_member_dims(hid_t type_id, int membno, size_t dims[]/*out*/,
-			       int perm[]/*out*/);
-#endif /* QAK */
+__DLL__ H5T_class_t H5Tget_member_class(hid_t type_id, int membno);
 __DLL__ hid_t H5Tget_member_type(hid_t type_id, int membno);
 __DLL__ herr_t H5Tget_member_value(hid_t type_id, int membno,
 				   void *value/*out*/);
-- 
cgit v0.12