c1df1b3ea4
Description: Removed PABLO from the source
Solution:
Platforms tested: arabica with 64-bit, copper with parallel,
heping with GNU C and C++ and PGI fortran (but
I disabled hl, there is some weird problem only
on heping: F9XMODFLAG is not
propagated to the Makefile files
Misc. update:
218 lines
6.7 KiB
C
218 lines
6.7 KiB
C
/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
|
||
* Copyright by the Board of Trustees of the University of Illinois. *
|
||
* All rights reserved. *
|
||
* *
|
||
* This file is part of HDF5. The full HDF5 copyright notice, including *
|
||
* terms governing use, modification, and redistribution, is contained in *
|
||
* the files COPYING and Copyright.html. COPYING can be found at the root *
|
||
* of the source code distribution tree; Copyright.html can be found at the *
|
||
* root level of an installed copy of the electronic HDF5 document set and *
|
||
* is linked from the top-level documents page. It can also be found at *
|
||
* http://hdf.ncsa.uiuc.edu/HDF5/doc/Copyright.html. If you do not have *
|
||
* access to either file, you may request a copy from hdfhelp@ncsa.uiuc.edu. *
|
||
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
|
||
|
||
/*-------------------------------------------------------------------------
|
||
*
|
||
* Created: H5Ocont.c
|
||
* Aug 6 1997
|
||
* Robb Matzke <matzke@llnl.gov>
|
||
*
|
||
* Purpose: The object header continuation message. This
|
||
* message is only generated and read from within
|
||
* the H5O package. Therefore, do not change
|
||
* any definitions in this file!
|
||
*
|
||
* Modifications:
|
||
*
|
||
*-------------------------------------------------------------------------
|
||
*/
|
||
|
||
#define H5O_PACKAGE /*suppress error about including H5Opkg */
|
||
|
||
#include "H5private.h"
|
||
#include "H5Eprivate.h"
|
||
#include "H5FLprivate.h" /* Free Lists */
|
||
#include "H5MMprivate.h"
|
||
#include "H5Opkg.h" /* Object header functions */
|
||
|
||
|
||
/* PRIVATE PROTOTYPES */
|
||
static void *H5O_cont_decode(H5F_t *f, hid_t dxpl_id, const uint8_t *p, H5O_shared_t *sh);
|
||
static herr_t H5O_cont_encode(H5F_t *f, uint8_t *p, const void *_mesg);
|
||
static herr_t H5O_cont_free (void *mesg);
|
||
static herr_t H5O_cont_debug(H5F_t *f, hid_t dxpl_id, const void *_mesg, FILE * stream,
|
||
int indent, int fwidth);
|
||
|
||
/* This message derives from H5O */
|
||
const H5O_class_t H5O_CONT[1] = {{
|
||
H5O_CONT_ID, /*message id number */
|
||
"hdr continuation", /*message name for debugging */
|
||
sizeof(H5O_cont_t), /*native message size */
|
||
H5O_cont_decode, /*decode message */
|
||
H5O_cont_encode, /*encode message */
|
||
NULL, /*no copy method */
|
||
NULL, /*no size method */
|
||
NULL, /*reset method */
|
||
H5O_cont_free, /* free method */
|
||
NULL, /* file delete method */
|
||
NULL, /* link method */
|
||
NULL, /*get share method */
|
||
NULL, /*set share method */
|
||
H5O_cont_debug, /*debugging */
|
||
}};
|
||
|
||
/* Declare the free list for H5O_cont_t's */
|
||
H5FL_DEFINE(H5O_cont_t);
|
||
|
||
|
||
/*-------------------------------------------------------------------------
|
||
* Function: H5O_cont_decode
|
||
*
|
||
* Purpose: Decode the raw header continuation message.
|
||
*
|
||
* Return: Success: Ptr to the new native message
|
||
*
|
||
* Failure: NULL
|
||
*
|
||
* Programmer: Robb Matzke
|
||
* matzke@llnl.gov
|
||
* Aug 6 1997
|
||
*
|
||
* Modifications:
|
||
*
|
||
*-------------------------------------------------------------------------
|
||
*/
|
||
static void *
|
||
H5O_cont_decode(H5F_t *f, hid_t UNUSED dxpl_id, const uint8_t *p, H5O_shared_t UNUSED *sh)
|
||
{
|
||
H5O_cont_t *cont = NULL;
|
||
void *ret_value;
|
||
|
||
FUNC_ENTER_NOAPI_NOINIT(H5O_cont_decode);
|
||
|
||
/* check args */
|
||
assert(f);
|
||
assert(p);
|
||
assert (!sh);
|
||
|
||
/* decode */
|
||
if (NULL==(cont = H5FL_MALLOC(H5O_cont_t)))
|
||
HGOTO_ERROR (H5E_RESOURCE, H5E_NOSPACE, NULL, "memory allocation failed");
|
||
H5F_addr_decode(f, &p, &(cont->addr));
|
||
H5F_DECODE_LENGTH(f, p, cont->size);
|
||
cont->chunkno=0;
|
||
|
||
/* Set return value */
|
||
ret_value=cont;
|
||
|
||
done:
|
||
FUNC_LEAVE_NOAPI(ret_value);
|
||
}
|
||
|
||
|
||
/*-------------------------------------------------------------------------
|
||
* Function: H5O_cont_encode
|
||
*
|
||
* Purpose: Encodes a continuation message.
|
||
*
|
||
* Return: Non-negative on success/Negative on failure
|
||
*
|
||
* Programmer: Robb Matzke
|
||
* matzke@llnl.gov
|
||
* Aug 7 1997
|
||
*
|
||
* Modifications:
|
||
*
|
||
*-------------------------------------------------------------------------
|
||
*/
|
||
static herr_t
|
||
H5O_cont_encode(H5F_t *f, uint8_t *p, const void *_mesg)
|
||
{
|
||
const H5O_cont_t *cont = (const H5O_cont_t *) _mesg;
|
||
|
||
FUNC_ENTER_NOAPI_NOINIT_NOFUNC(H5O_cont_encode);
|
||
|
||
/* check args */
|
||
assert(f);
|
||
assert(p);
|
||
assert(cont);
|
||
|
||
/* encode */
|
||
H5F_addr_encode(f, &p, cont->addr);
|
||
H5F_ENCODE_LENGTH(f, p, cont->size);
|
||
|
||
FUNC_LEAVE_NOAPI(SUCCEED);
|
||
}
|
||
|
||
|
||
/*-------------------------------------------------------------------------
|
||
* Function: H5O_cont_free
|
||
*
|
||
* Purpose: Free's the message
|
||
*
|
||
* Return: Non-negative on success/Negative on failure
|
||
*
|
||
* Programmer: Quincey Koziol
|
||
* Monday, November 15, 2004
|
||
*
|
||
* Modifications:
|
||
*
|
||
*-------------------------------------------------------------------------
|
||
*/
|
||
static herr_t
|
||
H5O_cont_free (void *mesg)
|
||
{
|
||
FUNC_ENTER_NOAPI_NOINIT_NOFUNC(H5O_cont_free);
|
||
|
||
assert (mesg);
|
||
|
||
H5FL_FREE(H5O_cont_t,mesg);
|
||
|
||
FUNC_LEAVE_NOAPI(SUCCEED);
|
||
} /* end H5O_cont_free() */
|
||
|
||
|
||
/*-------------------------------------------------------------------------
|
||
* Function: H5O_cont_debug
|
||
*
|
||
* Purpose: Prints debugging info.
|
||
*
|
||
* Return: Non-negative on success/Negative on failure
|
||
*
|
||
* Programmer: Robb Matzke
|
||
* matzke@llnl.gov
|
||
* Aug 6 1997
|
||
*
|
||
* Modifications:
|
||
*
|
||
*-------------------------------------------------------------------------
|
||
*/
|
||
static herr_t
|
||
H5O_cont_debug(H5F_t UNUSED *f, hid_t UNUSED dxpl_id, const void *_mesg, FILE * stream,
|
||
int indent, int fwidth)
|
||
{
|
||
const H5O_cont_t *cont = (const H5O_cont_t *) _mesg;
|
||
|
||
FUNC_ENTER_NOAPI_NOINIT_NOFUNC(H5O_cont_debug);
|
||
|
||
/* check args */
|
||
assert(f);
|
||
assert(cont);
|
||
assert(stream);
|
||
assert(indent >= 0);
|
||
assert(fwidth >= 0);
|
||
|
||
HDfprintf(stream, "%*s%-*s %a\n", indent, "", fwidth,
|
||
"Continuation address:", cont->addr);
|
||
|
||
HDfprintf(stream, "%*s%-*s %lu\n", indent, "", fwidth,
|
||
"Continuation size in bytes:",
|
||
(unsigned long) (cont->size));
|
||
HDfprintf(stream, "%*s%-*s %d\n", indent, "", fwidth,
|
||
"Points to chunk number:",
|
||
(int) (cont->chunkno));
|
||
|
||
FUNC_LEAVE_NOAPI(SUCCEED);
|
||
}
|