mirror of
https://github.com/HDFGroup/hdf5.git
synced 2024-11-21 01:04:10 +08:00
bae16b355d
Added defn for int64 and uint64 on irix. It seems to be wrong, but at least things compile and run. This file will go away with autoconf anyway. ./test/testhdf5.c ./test/Makefile Added tstab.c ./test/testhdf5.h Added tstab.c Fixed bugs with CHECK_I() and CHECK_PTR().
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);
|
||
}
|