[svn-r335] Changes since 19980330

----------------------

./MANIFEST
./src/Makefile.in
./test/Makefile.in
        Added new files.

./config/linux
./src/H5HL.c
./src/H5HLprivate.h
./src/H5MF.c
./src/H5MFprivate.h
        Added `-DH5HL_DEBUG -DH5MF_DEBUG' to the debug list.

./html/H5.format.html
        Updated shared object message information.

./src/H5D.c
        Datasets can now share data types.

./src/H5F.c
        Updated a comment that referred to H5ACC_WRITE.

./src/H5HG.c
./src/H5HGprivate.h
        Moved a few things around.  Made debugging better so you can
        now give a collection address to ./src/debug and it shows some
        useful stuff.

./src/H5O.c
./src/H5Ocont.c
./src/H5Odtype.c
./src/H5Oefl.c
./src/H5Olayout.c
./src/H5Oname.c
./src/H5Onull.c
./src/H5Oprivate.h
./src/H5Osdspace.c
./src/H5Oshared.c       [NEW]
./src/H5Ostab.c
        Supports shared messages.

./src/H5T.c
./src/H5Tpkg.h
./src/H5Tprivate.h
./src/H5Tpublic.h
        The H5Tshare() function allows the user to give the library
        hints about how a data type will be used.

./test/shtype.c
        Tests the H5Tshare() function.

./test/gheap.c
        Tests the global heap.

./configure.in
./config/BlankForm      [NEW]
./config/alpha-dec
./config/freebsd2.2.1
./config/hpux10.20
./config/irix6.2
./config/irix64
./config/linux
./config/powerpc-ibm-aix4.2.1.0
./config/rs6000-ibm-aix4.1.4.0
./config/solaris2.5
        Cleaned up lots of configuration stuff and made the site
        configuration files lots easier and more uniform.  To make a
        new file grab the BlankForm and modify it.

        By default, debugging is turned on for most packages.  Within
        a package one can use `#ifdef H5AC_DEBUG' to wrap debugging
        code.  Other options are:

           --enable-debug
           --enable-debug=yes
               The default, most but not all packages.

           --disable-debug
           --enable-debug=no
           --enable-debug=none
               The symbol NDEBUG is defined and none of the package
               debug symbols.

           --enable-debug=all
               Debugging is turned on for all packages.  This might
               produce lots of output.

           --enable-debug=g,d
               Debugging is turned on for H5G and H5D.

        A compile mode is also now supported

           --enable-production
           --enable-production=yes
               The library is compiled with optimizations turned on.
               The compiler flags are augmented by adding PROD_CFLAGS
               and PROD_CPPFLAGS which are defined in the site config
               file.

           --disable-production
           --enable-production=no
               The default.  The library is compiled for development
               by including DEBUG_CFLAGS and DEBUG_CPPFLAGS defined in
               the site config file.  This is usually just `-g'.

           --enable-production=profile
           --enable-production=pg
               Builds a library for profiling by including the flags
               from PROFILE_CFLAGS and PROFILE_CPPFLAGS defined in the
               site config file.  This is usullay just `-pg' but it
               could include optimization flags as well depending on
               the type of profile one wants.

        In summary, configure by saying `./configure' and you'll get a
        development version of the library.  Configure by saying
        `./configure --enable-production --disable-debug' and you'll
        get a production version with no debugging code.

1 files changed, 66 insertions, 27 deletions

diff --git a/src/H5Odtype.c b/src/H5Odtype.c
index fe30d00..c3b46cd 100644
--- a/src/H5Odtype.c
+++ b/src/H5Odtype.c
@@ -28,29 +28,28 @@ static char             RcsId[] = "@(#)$Revision$";
 #define PABLO_MASK      H5O_dtype_mask
 
 /* PRIVATE PROTOTYPES */
-static herr_t           H5O_dtype_encode(H5F_t *f, size_t raw_size, uint8 *p,
-                                         const void *mesg);
-static void            *H5O_dtype_decode(H5F_t *f, size_t raw_size, const uint8 *p);
-static void            *H5O_dtype_copy(const void *_mesg, void *_dest);
-static size_t           H5O_dtype_size(H5F_t *f, const void *_mesg);
-static herr_t           H5O_dtype_reset(void *_mesg);
-static herr_t           H5O_dtype_debug(H5F_t *f, const void *_mesg,
-                                   FILE * stream, intn indent, intn fwidth);
+static herr_t H5O_dtype_encode (H5F_t *f, uint8 *p, const void *mesg);
+static void *H5O_dtype_decode (H5F_t *f, const uint8 *p, H5HG_t *hobj);
+static void *H5O_dtype_copy (const void *_mesg, void *_dest);
+static size_t H5O_dtype_size (H5F_t *f, const void *_mesg);
+static herr_t H5O_dtype_reset (void *_mesg);
+static herr_t H5O_dtype_debug (H5F_t *f, const void *_mesg,
+			       FILE * stream, intn indent, intn fwidth);
+static herr_t H5O_dtype_share (H5F_t *f, const void *_mesg, H5HG_t *hobj);
 
 /* This message derives from H5O */
-const H5O_class_t       H5O_DTYPE[1] =
-{
-    {
-        H5O_DTYPE_ID,           /* message id number            */
-        "data_type",            /* message name for debugging   */
-        sizeof(H5T_t),          /* native message size          */
-        H5O_dtype_decode,       /* decode message               */
-        H5O_dtype_encode,       /* encode message               */
-        H5O_dtype_copy,         /* copy the native value        */
-        H5O_dtype_size,         /* size of raw message          */
-        H5O_dtype_reset,        /* reset method                 */
-        H5O_dtype_debug,        /* debug the message            */
-    }};
+const H5O_class_t H5O_DTYPE[1] = {{
+    H5O_DTYPE_ID,		/* message id number            */
+    "data_type",		/* message name for debugging   */
+    sizeof(H5T_t),		/* native message size          */
+    H5O_dtype_decode,		/* decode message               */
+    H5O_dtype_encode,		/* encode message               */
+    H5O_dtype_copy,		/* copy the native value        */
+    H5O_dtype_size,		/* size of raw message          */
+    H5O_dtype_reset,		/* reset method                 */
+    H5O_dtype_share,		/* share method			*/
+    H5O_dtype_debug,		/* debug the message            */
+}};
 
 /* Interface initialization */
 static hbool_t          interface_initialize_g = FALSE;
@@ -436,8 +435,8 @@ H5O_dtype_encode_helper(uint8 **pp, const H5T_t *dt)
     into a struct in memory native format.  The struct is allocated within this
     function using malloc() and is returned to the caller.
 --------------------------------------------------------------------------*/
-static void            *
-H5O_dtype_decode(H5F_t *f, size_t raw_size, const uint8 *p)
+static void *
+H5O_dtype_decode(H5F_t *f, const uint8 *p, H5HG_t *hobj)
 {
     H5T_t                  *dt = NULL;
 
@@ -445,7 +444,6 @@ H5O_dtype_decode(H5F_t *f, size_t raw_size, const uint8 *p)
 
     /* check args */
     assert(f);
-    assert(raw_size > 0);
     assert(p);
 
     dt = H5MM_xcalloc(1, sizeof(H5T_t));
@@ -455,7 +453,10 @@ H5O_dtype_decode(H5F_t *f, size_t raw_size, const uint8 *p)
         HRETURN_ERROR(H5E_DATATYPE, H5E_CANTDECODE, NULL,
                       "can't decode type");
     }
-    assert(raw_size == H5O_ALIGN (H5O_dtype_size(f, (void *) dt)));
+    if (hobj) {
+	dt->sh_heap = *hobj;
+	dt->sh_file = f;
+    }
 
     FUNC_LEAVE(dt);
 }
@@ -478,7 +479,7 @@ H5O_dtype_decode(H5F_t *f, size_t raw_size, const uint8 *p)
     message in the "raw" disk form.
 --------------------------------------------------------------------------*/
 static herr_t
-H5O_dtype_encode(H5F_t *f, size_t raw_size, uint8 *p, const void *mesg)
+H5O_dtype_encode(H5F_t *f, uint8 *p, const void *mesg)
 {
     const H5T_t            *dt = (const H5T_t *) mesg;
 
@@ -486,7 +487,6 @@ H5O_dtype_encode(H5F_t *f, size_t raw_size, uint8 *p, const void *mesg)
 
     /* check args */
     assert(f);
-    assert(raw_size == H5O_ALIGN (H5O_dtype_size(f, mesg)));
     assert(p);
     assert(dt);
 
@@ -625,6 +625,45 @@ H5O_dtype_reset(void *_mesg)
     FUNC_LEAVE(SUCCEED);
 }
 
+
+/*-------------------------------------------------------------------------
+ * Function:	H5O_dtype_share
+ *
+ * Purpose:	Returns, through argument HOBJ, whether a data type is shared
+ *		in the specified file.
+ *
+ * Return:	Success:	SUCCEED if the data type is shared in file F,
+ *				and HOBJ is set to the global heap address.
+ *
+ *		Failure:	FAIL if the data type is not shared, or
+ *				shared but not in file F.  The value of HOBJ
+ *				is undefined.
+ *
+ * Programmer:	Robb Matzke
+ *              Thursday, April  2, 1998
+ *
+ * Modifications:
+ *
+ *-------------------------------------------------------------------------
+ */
+static herr_t
+H5O_dtype_share (H5F_t *f, const void *_mesg, H5HG_t *hobj/*out*/)
+{
+    const H5T_t		*dt = (const H5T_t *)_mesg;
+    
+    FUNC_ENTER (H5O_dtype_share, FAIL);
+    
+    if (!H5HG_defined (&(dt->sh_heap)) ||
+	NULL==dt->sh_file ||
+	dt->sh_file->shared != f->shared) {
+	HRETURN_ERROR (H5E_DATATYPE, H5E_CANTINIT, FAIL,
+		       "data type is not shared");
+    }
+    
+    *hobj = dt->sh_heap;
+    FUNC_LEAVE (SUCCEED);
+}
+	
 /*--------------------------------------------------------------------------
  NAME
     H5O_dtype_debug