mirror of
https://github.com/HDFGroup/hdf5.git
synced 2024-11-27 02:10:55 +08:00
78 lines
1.8 KiB
C
78 lines
1.8 KiB
C
|
/*-------------------------------------------------------------------------
|
|||
|
|
* Copyright (C) 1997 National Center for Supercomputing Applications.
|
|||
|
|
* All rights reserved.
|
|||
|
|
*
|
|||
|
|
*-------------------------------------------------------------------------
|
|||
|
|
*
|
|||
|
|
* Created: tstab.c
|
|||
|
|
* Aug 7 1997
|
|||
|
|
* Robb Matzke <matzke@llnl.gov>
|
|||
|
|
*
|
|||
|
|
* Purpose:
|
|||
|
|
*
|
|||
|
|
* Modifications:
|
|||
|
|
*
|
|||
|
|
*-------------------------------------------------------------------------
|
|||
|
|
*/
|
|||
|
|
#include "testhdf5.h"
|
|||
|
|
|
|||
|
|
#include "H5ACprivate.h"
|
|||
|
|
#include "H5Fprivate.h"
|
|||
|
|
#include "H5Gprivate.h"
|
|||
|
|
|
|||
|
|
|
|||
|
|
/*-------------------------------------------------------------------------
|
|||
|
|
* Function: test_stab
|
|||
|
|
*
|
|||
|
|
* Purpose: Test symbol tables
|
|||
|
|
*
|
|||
|
|
* Return: void
|
|||
|
|
*
|
|||
|
|
* Programmer: Robb Matzke
|
|||
|
|
* matzke@viper.llnl.gov
|
|||
|
|
* Aug 7 1997
|
|||
|
|
*
|
|||
|
|
* Modifications:
|
|||
|
|
*
|
|||
|
|
*-------------------------------------------------------------------------
|
|||
|
|
*/
|
|||
|
|
void
|
|||
|
|
test_stab (void)
|
|||
|
|
{
|
|||
|
|
hatom_t fid;
|
|||
|
|
hdf5_file_t *f;
|
|||
|
|
haddr_t addr;
|
|||
|
|
H5G_entry_t root, sub;
|
|||
|
|
int i;
|
|||
|
|
char name[256];
|
|||
|
|
herr_t status;
|
|||
|
|
|
|||
|
|
MESSAGE (5, print_func("Testing Symbol Tables\n"););
|
|||
|
|
|
|||
|
|
/* create the file */
|
|||
|
|
fid = H5Fcreate ("tstab.h5", H5ACC_OVERWRITE, 0, 0);
|
|||
|
|
CHECK (fid, FAIL, "H5Fcreate");
|
|||
|
|
f = H5Aatom_object (fid);
|
|||
|
|
CHECK (f, NULL, "H5Aatom_object");
|
|||
|
|
|
|||
|
|
/* create a new symbol table */
|
|||
|
|
addr = H5G_stab_new (f, &root, 100);
|
|||
|
|
CHECK_I (addr, "H5G_stab_new");
|
|||
|
|
MESSAGE (8, print_func ("Root address is %lu\n", (unsigned long)addr););
|
|||
|
|
|
|||
|
|
/* create some empty symbol tables as objects in the root stab */
|
|||
|
|
for (i=0; i<16384; i++) {
|
|||
|
|
addr = H5G_stab_new (f, &sub, 0);
|
|||
|
|
CHECK_I (addr, "H5G_stab_new");
|
|||
|
|
|
|||
|
|
sprintf (name, "sub%05d", i);
|
|||
|
|
MESSAGE (8, print_func ("%s\n", name););
|
|||
|
|
status = H5G_stab_insert (f, &root, name, &sub);
|
|||
|
|
CHECK_I (status, "H5G_stab_insert");
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/* close the file */
|
|||
|
|
H5Fclose (fid);
|
|||
|
|
}
|