[svn-r4482] Purpose:

    Kludge
Description:
    Since we're only about halfway through converting the internal use of
    property lists from the "old way" to the generic property lists, we turned
    off snapshots to avoid exposing lots of API changes to users, until the
    APIs settled down.

    Getting the snapshots rolling again seems to have become a priority, so
    some changes are going to have to be made now that were going to be
    postponed until we were completely finished with the conversion.  This
    requires that the old API functions be able to deal with both the old
    and new property lists smoothly.

Solution:
    Kludge together the property list code so that they can transparently handle
    dealing with both the old and new property lists

Platforms tested:
    FreeBSD 4.4 (hawkwind)

1 files changed, 6 insertions, 20 deletions

diff --git a/fortran/src/H5Pf.c b/fortran/src/H5Pf.c
index fed1249..bac381c 100644
--- a/fortran/src/H5Pf.c
+++ b/fortran/src/H5Pf.c
@@ -15,12 +15,12 @@
 int_f 
 nh5pcreate_c ( int_f *classtype, hid_t_f *prp_id )
 {
-  H5P_class_t c_classtype;
+  hid_t c_classtype;
   int CASE;
   int ret_value = 0;
   hid_t c_prp_id;
   /*CASE = (int)*classtype; */
-  c_classtype = (H5P_class_t)*classtype;
+  c_classtype = (hid_t)*classtype;
 /*
 
   switch (CASE) {
@@ -50,10 +50,7 @@ nh5pcreate_c ( int_f *classtype, hid_t_f *prp_id )
        return ret_value;
  }
 */
-   if (H5I_GENPROP_CLS == H5Iget_type((hid_t)*classtype))
-       c_prp_id = H5Pcreate_list((hid_t)*classtype); 
-   else
-       c_prp_id = H5Pcreate(c_classtype); 
+   c_prp_id = H5Pcreate(c_classtype); 
 
   if ( c_prp_id  < 0  ) ret_value = -1;
   *prp_id = (hid_t_f)c_prp_id;
@@ -76,11 +73,7 @@ nh5pclose_c ( hid_t_f *prp_id )
   int ret_value = 0;
   hid_t c_prp_id=(*prp_id);
 
-   if (H5I_GENPROP_LST == H5Iget_type(c_prp_id)) {
-      if ( H5Pclose_list(c_prp_id) < 0  ) ret_value = -1;
-   } else {
-      if ( H5Pclose(c_prp_id) < 0  ) ret_value = -1;
-   }
+  if ( H5Pclose(c_prp_id) < 0  ) ret_value = -1;
   return ret_value;
 }
 
@@ -133,24 +126,17 @@ nh5pget_class_c ( hid_t_f *prp_id , int_f *classtype)
 {
   int ret_value = 0;
   hid_t c_prp_id;
-  H5P_class_t c_classtype; 
+  hid_t c_classtype; 
 
   c_prp_id = *prp_id;
   c_classtype = H5Pget_class(c_prp_id);
   if (c_classtype == H5P_NO_CLASS ) {
- /*     *classtype = H5P_NO_CLASS_F; */
       *classtype = H5P_NO_CLASS; 
        ret_value = -1;
        return ret_value;
   }
   *classtype = (int_f)c_classtype;
-/*
-  if (c_classtype == H5P_FILE_CREATE)    *classtype = H5P_FILE_CREATE_F;
-  if (c_classtype == H5P_FILE_ACCESS)    *classtype = H5P_FILE_ACCESS_F; 
-  if (c_classtype == H5P_DATASET_CREATE) *classtype = H5P_DATASET_CREATE_F; 
-  if (c_classtype == H5P_DATASET_XFER)   *classtype = H5P_DATASET_XFER_F; 
-  if (c_classtype == H5P_MOUNT_F)        *classtype = H5P_MOUNT_F; 
-*/
+
   return ret_value;
 }