/* * Copyright (C) 1997 NCSA * All rights reserved. * * Programmer: Robb Matzke * Wednesday, October 8, 1997 */ #include #include #include #include #define PABLO_MASK H5O_istore_mask /* PRIVATE PROTOTYPES */ static void *H5O_istore_decode (H5F_t *f, size_t raw_size, const uint8 *p); static herr_t H5O_istore_encode (H5F_t *f, size_t size, uint8 *p, const void *_mesg); static void *H5O_istore_copy (const void *_mesg, void *_dest); static size_t H5O_istore_size (H5F_t *f, const void *_mesg); static herr_t H5O_istore_debug (H5F_t *f, const void *_mesg, FILE *stream, intn indent, intn fwidth); /* This message derives from H5O */ const H5O_class_t H5O_ISTORE[1] = {{ H5O_ISTORE_ID, /*message id number */ "istore", /*message name for debugging */ sizeof(H5O_istore_t), /*native message size */ H5G_NOTHING_CACHED, /*symtab entry `type' field */ H5O_istore_decode, /*decode message */ H5O_istore_encode, /*encode message */ NULL, /*get messsage from stab entry */ NULL, /*put message into stab entry */ H5O_istore_copy, /*copy the native value */ H5O_istore_size, /*size of message on disk */ NULL, /*reset method */ H5O_istore_debug, /*debug the message */ }}; /* Interface initialization */ static hbool_t interface_initialize_g = FALSE; #define INTERFACE_INIT NULL /*------------------------------------------------------------------------- * Function: H5O_istore_decode * * Purpose: Decode an indexed storage message and return a pointer to a * new one created with malloc(). * * Return: Success: Ptr to new message in native order. * * Failure: NULL * * Programmer: Robb Matzke * Wednesday, October 8, 1997 * * Modifications: * *------------------------------------------------------------------------- */ static void * H5O_istore_decode (H5F_t *f, size_t raw_size, const uint8 *p) { H5O_istore_t *mesg = NULL; intn i; FUNC_ENTER (H5O_istore_decode, NULL); /* check args */ assert (f); assert (p); /* decode */ mesg = H5MM_xcalloc (1, sizeof(H5O_istore_t)); H5F_addr_decode (f, &p, &(mesg->btree_addr)); mesg->ndims = *p++; assert (raw_size == H5O_istore_size (f, mesg)); /* Reserved bytes */ p += 7; /* Read the min_corner, max_corner, and alignment values */ for (i=0; indims; i++) { UINT32DECODE (p, mesg->alignment[i]); } FUNC_LEAVE (mesg); } /*------------------------------------------------------------------------- * Function: H5O_istore_encode * * Purpose: Encodes a message. * * Return: Success: SUCCEED * * Failure: FAIL * * Programmer: Robb Matzke * Wednesday, October 8, 1997 * * Modifications: * *------------------------------------------------------------------------- */ static herr_t H5O_istore_encode (H5F_t *f, size_t raw_size, uint8 *p, const void *_mesg) { const H5O_istore_t *mesg = (const H5O_istore_t *)_mesg; int i; FUNC_ENTER (H5O_istore_encode, FAIL); /* check args */ assert (f); assert (mesg); assert (mesg->ndims>0 && mesg->ndims<=H5O_ISTORE_NDIMS); assert (raw_size == H5O_istore_size (f, _mesg)); assert (p); /* encode B-tree offset */ H5F_addr_encode (f, &p, &(mesg->btree_addr)); /* number of dimensions */ *p++ = mesg->ndims; /* reserved bytes should be zero */ for (i=0; i<7; i++) *p++ = 0; /* min_corner, max_corner, and alignment */ for (i=0; indims; i++) { UINT32ENCODE (p, mesg->alignment[i]); } FUNC_LEAVE (SUCCEED); } /*------------------------------------------------------------------------- * Function: H5O_istore_copy * * Purpose: Copies a message from _MESG to _DEST, allocating _DEST if * necessary. * * Return: Success: Ptr to _DEST * * Failure: NULL * * Programmer: Robb Matzke * Wednesday, October 8, 1997 * * Modifications: * *------------------------------------------------------------------------- */ static void * H5O_istore_copy (const void *_mesg, void *_dest) { const H5O_istore_t *mesg = (const H5O_istore_t *)_mesg; H5O_istore_t *dest = (H5O_istore_t *)_dest; FUNC_ENTER (H5O_istore_copy, NULL); /* check args */ assert (mesg); if (!dest) dest = H5MM_xcalloc (1, sizeof(H5O_istore_t)); /* copy */ *dest = *mesg; FUNC_LEAVE ((void*)dest); } /*------------------------------------------------------------------------- * Function: H5O_istore_size * * Purpose: Returns the size of the raw message in bytes not counting the * message type or size fields, but only the data fields. This * function doesn't take into account message alignment. * * Return: Success: Message data size in bytes * * Failure: FAIL * * Programmer: Robb Matzke * Wednesday, October 8, 1997 * * Modifications: * *------------------------------------------------------------------------- */ static size_t H5O_istore_size (H5F_t *f, const void *_mesg) { const H5O_istore_t *mesg = (const H5O_istore_t *)_mesg; size_t ret_value = FAIL; FUNC_ENTER (H5O_istore_size, FAIL); /* check args */ assert (f); assert (mesg); assert (mesg->ndims>0 && mesg->ndims<=H5O_ISTORE_NDIMS); ret_value = H5F_SIZEOF_ADDR (f) + /* B-tree address */ 1 + /* max dimension index */ 7 + /* reserved bytes */ mesg->ndims * 4; /* alignment */ FUNC_LEAVE (ret_value); } /*------------------------------------------------------------------------- * Function: H5O_istore_debug * * Purpose: Prints debugging info for a message. * * Return: Success: SUCCEED * * Failure: FAIL * * Programmer: Robb Matzke * Wednesday, October 8, 1997 * * Modifications: * *------------------------------------------------------------------------- */ static herr_t H5O_istore_debug (H5F_t *f, const void *_mesg, FILE *stream, intn indent, intn fwidth) { const H5O_istore_t *mesg = (const H5O_istore_t *)_mesg; intn i; FUNC_ENTER (H5O_istore_debug, FAIL); /* check args */ assert (f); assert (mesg); assert (stream); assert (indent>=0); assert (fwidth>=0); fprintf (stream, "%*s%-*s ", indent, "", fwidth, "B-tree address:"); H5F_addr_print (stream, &(mesg->btree_addr)); fprintf (stream, "\n"); fprintf (stream, "%*s%-*s %lu\n", indent, "", fwidth, "Number of dimensions:", (unsigned long)(mesg->ndims)); /* Alignment */ fprintf (stream, "%*s%-*s {", indent, "", fwidth, "Alignment:"); for (i=0; indims; i++) { fprintf (stream, "%s%lu", i?", ":"", (unsigned long)(mesg->alignment[i])); } fprintf (stream, "}\n"); FUNC_LEAVE (SUCCEED); }