hdf5/test/theap.c
Robb Matzke a0ee2c57e9 [svn-r164] Changes since 19980122
----------------------

./src/*.h
	Fixed indentation where indent(1) screwed up.  This isn't by
	any means the final say, but it's better than it was.

./src/H5A.c
./src/H5Aprivate.h
./src/H5Apublic.h
./src/H5C.c
./src/H5D.c
./src/H5E.c
./src/H5F.c
./src/H5G.c
./src/H5M.c
./src/H5P.c
./src/H5T.c
./src/H5Tconv.c
./src/debug.c
./test/dtypes.c
./test/istore.c
./test/theap.c
./test/tohdr.c
./test/tstab.c
	Removed some atom functions from the API and made them
	library-scope. Also changed some names by removing the
	redundant `atom' from the name and by adding a `_' after the
	`H5A'.
1998-01-22 11:41:32 -05:00

90 lines
2.3 KiB
C
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

/*-------------------------------------------------------------------------
* Copyright (C) 1997 National Center for Supercomputing Applications.
* All rights reserved.
*
*-------------------------------------------------------------------------
*
* Created: theap.c
* Jul 17 1997
* Robb Matzke <robb@maya.nuance.com>
*
* Purpose:
*
* Modifications:
*
*-------------------------------------------------------------------------
*/
#include <testhdf5.h>
#include <H5private.h>
#include <H5Aprivate.h>
#include <H5ACprivate.h>
#include <H5Fprivate.h>
#include <H5Hprivate.h>
#define NOBJS 40
/*-------------------------------------------------------------------------
* Function: test_heap
*
* Purpose: Test name and object heaps.
*
* Return: void
*
* Programmer: Robb Matzke
* robb@maya.nuance.com
* Jul 17 1997
*
* Modifications:
*
*-------------------------------------------------------------------------
*/
void
test_heap(void)
{
int i, j;
hid_t fid;
H5F_t *f;
haddr_t heap_addr;
char buf[NOBJS + 8];
const char *s;
size_t obj[NOBJS];
herr_t status;
MESSAGE(5, ("Testing Heaps\n"));
/* Create the file */
fid = H5Fcreate("theap.h5", H5ACC_OVERWRITE, 0, 0);
CHECK(fid, FAIL, "H5Fcreate");
f = H5A_object(fid);
CHECK(f, NULL, "H5Aatom_object");
/* Create a new heap */
status = H5H_create(f, H5H_LOCAL, 0, &heap_addr /*out */ );
CHECK_I(status, "H5H_new");
/* Add stuff to the heap */
for (i = 0; i < NOBJS; i++) {
sprintf(buf, "%03d-", i);
for (j = 4; j < i; j++)
buf[j] = '0' + j % 10;
if (j > 4)
buf[j] = '\0';
obj[i] = H5H_insert(f, &heap_addr, strlen(buf) + 1, buf);
CHECK_I(obj[i], "H5H_insert");
}
/* Flush the cache and invalidate everything */
H5AC_flush(f, NULL, 0, TRUE);
/* Read the objects back out */
for (i = 0; i < NOBJS; i++) {
s = H5H_peek(f, &heap_addr, obj[i]);
MESSAGE(8, ("object is `%s'\n", s));
}
/* Close the file */
H5Fclose(fid);
}