mirror of
https://github.com/HDFGroup/hdf5.git
synced 2025-01-18 15:15:56 +08:00
a1708eb023
New feature
Description:
Check in baseline for compact group revisions, which radically revises the
source code for managing groups and object headers.
WARNING!!!! WARNING!!!! WARNING!!!! WARNING!!!! WARNING!!!! WARNING!!!!
WARNING!!!! WARNING!!!! WARNING!!!! WARNING!!!! WARNING!!!! WARNING!!!!
This initiates the "unstable" phase of the 1.7.x branch, leading up
to the 1.8.0 release. Please test this code, but do _NOT_ keep files created
with it - the format will change again before the release and you will not
be able to read your old files!!!
WARNING!!!! WARNING!!!! WARNING!!!! WARNING!!!! WARNING!!!! WARNING!!!!
WARNING!!!! WARNING!!!! WARNING!!!! WARNING!!!! WARNING!!!! WARNING!!!!
Solution:
There's too many changes to really describe them all, but some of them
include:
- Stop abusing the H5G_entry_t structure and split it into two separate
structures for non-symbol table node use within the library: H5O_loc_t
for object locations in a file and H5G_name_t to store the path to
an opened object. H5G_entry_t is now only used for storing symbol
table entries on disk.
- Retire H5G_namei() in favor of a more general mechanism for traversing
group paths and issuing callbacks on objects located. This gets us out
of the business of hacking H5G_namei() for new features, generally.
- Revised H5O* routines to take a H5O_loc_t instead of H5G_entry_t
- Lots more...
Platforms tested:
h5committested and maybe another dozen configurations.... :-)
324 lines
11 KiB
C
324 lines
11 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: debug.c
|
||
* Jul 18 1997
|
||
* Robb Matzke <matzke@llnl.gov>
|
||
*
|
||
* Purpose: Debugs an existing HDF5 file at a low level.
|
||
*
|
||
* Modifications:
|
||
*
|
||
*-------------------------------------------------------------------------
|
||
*/
|
||
#define H5F_PACKAGE /*suppress error about including H5Fpkg */
|
||
#define H5O_PACKAGE /*suppress error about including H5Opkg */
|
||
#define H5B2_PACKAGE /*suppress error about including H5B2pkg */
|
||
#define H5B2_TESTING /*suppress warning about H5B2 testing funcs*/
|
||
#define H5BP_PACKAGE /*suppress error about including H5BPpkg */
|
||
#define H5BP_TESTING /*suppress warning about H5BP testing funcs*/
|
||
#define H5BT_PACKAGE /*suppress error about including H5BTpkg */
|
||
#define H5SH_PACKAGE /*suppress error about including H5SHpkg */
|
||
|
||
#include "H5private.h" /* Generic Functions */
|
||
#include "H5Bprivate.h"
|
||
#include "H5B2pkg.h" /* B-trees */
|
||
#include "H5BPpkg.h" /* B+ trees */
|
||
#include "H5BTpkg.h" /* Block tracker */
|
||
#include "H5Dprivate.h"
|
||
#include "H5Eprivate.h" /* Error handling */
|
||
#include "H5Fpkg.h"
|
||
#include "H5Gprivate.h"
|
||
#include "H5HGprivate.h"
|
||
#include "H5HLprivate.h"
|
||
#include "H5Iprivate.h"
|
||
#include "H5Opkg.h"
|
||
#include "H5Pprivate.h"
|
||
#include "H5SHpkg.h" /* Segmented heap */
|
||
|
||
/* File drivers */
|
||
#include "H5FDfamily.h"
|
||
|
||
#define INDENT 3
|
||
#define VCOL 50
|
||
|
||
|
||
/*-------------------------------------------------------------------------
|
||
* Function: main
|
||
*
|
||
* Usage: debug FILENAME [OFFSET]
|
||
*
|
||
* Return: Success: exit (0)
|
||
*
|
||
* Failure: exit (non-zero)
|
||
*
|
||
* Programmer: Robb Matzke
|
||
* matzke@llnl.gov
|
||
* Jul 18 1997
|
||
*
|
||
* Modifications:
|
||
*
|
||
*-------------------------------------------------------------------------
|
||
*/
|
||
int
|
||
main(int argc, char *argv[])
|
||
{
|
||
hid_t fid, fapl, dxpl;
|
||
H5F_t *f;
|
||
haddr_t addr=0, extra=0, extra2=0;
|
||
uint8_t sig[16];
|
||
int i;
|
||
herr_t status = SUCCEED;
|
||
|
||
if (argc == 1) {
|
||
fprintf(stderr,
|
||
"Usage: %s filename [signature-addr [extra]]\n", argv[0]);
|
||
HDexit(1);
|
||
}
|
||
|
||
/* Initialize the library */
|
||
if(H5open ()<0) {
|
||
fprintf(stderr, "cannot initialize the library\n");
|
||
HDexit(1);
|
||
}
|
||
|
||
/*
|
||
* Open the file and get the file descriptor.
|
||
*/
|
||
if((dxpl = H5Pcreate (H5P_DATASET_XFER))<0) {
|
||
fprintf(stderr, "cannot create dataset transfer property list\n");
|
||
HDexit(1);
|
||
}
|
||
if((fapl = H5Pcreate (H5P_FILE_ACCESS))<0) {
|
||
fprintf(stderr, "cannot create file access property list\n");
|
||
HDexit(1);
|
||
}
|
||
if (strchr (argv[1], '%')) {
|
||
H5Pset_fapl_family (fapl, (hsize_t)0, H5P_DEFAULT);
|
||
}
|
||
if ((fid = H5Fopen(argv[1], H5F_ACC_RDONLY, fapl)) < 0) {
|
||
fprintf(stderr, "cannot open file\n");
|
||
HDexit(1);
|
||
}
|
||
if (NULL == (f = H5I_object(fid))) {
|
||
fprintf(stderr, "cannot obtain H5F_t pointer\n");
|
||
HDexit(2);
|
||
}
|
||
|
||
/*
|
||
* Parse command arguments.
|
||
*/
|
||
if (argc > 2) {
|
||
/* printf("New address: %s\n", argv[2]); */
|
||
addr = HDstrtoll(argv[2], NULL, 0);
|
||
}
|
||
if (argc > 3) {
|
||
extra = HDstrtoll(argv[3], NULL, 0);
|
||
}
|
||
if (argc > 4) {
|
||
extra2 = HDstrtoll(argv[4], NULL, 0);
|
||
}
|
||
/*
|
||
* Read the signature at the specified file position.
|
||
*/
|
||
HDfprintf(stdout, "Reading signature at address %a (rel)\n", addr);
|
||
if (H5F_block_read(f, H5FD_MEM_SUPER, addr, sizeof(sig), dxpl, sig)<0) {
|
||
fprintf(stderr, "cannot read signature\n");
|
||
HDexit(3);
|
||
}
|
||
if (!HDmemcmp(sig, H5F_SIGNATURE, H5F_SIGNATURE_LEN)) {
|
||
/*
|
||
* Debug the boot block.
|
||
*/
|
||
status = H5F_debug(f, H5P_DATASET_XFER_DEFAULT, stdout, 0, VCOL);
|
||
|
||
} else if (!HDmemcmp(sig, H5HL_MAGIC, H5HL_SIZEOF_MAGIC)) {
|
||
/*
|
||
* Debug a local heap.
|
||
*/
|
||
status = H5HL_debug(f, H5P_DATASET_XFER_DEFAULT, addr, stdout, 0, VCOL);
|
||
|
||
} else if (!HDmemcmp (sig, H5HG_MAGIC, H5HG_SIZEOF_MAGIC)) {
|
||
/*
|
||
* Debug a global heap collection.
|
||
*/
|
||
status = H5HG_debug (f, H5P_DATASET_XFER_DEFAULT, addr, stdout, 0, VCOL);
|
||
|
||
} else if (!HDmemcmp(sig, H5G_NODE_MAGIC, H5G_NODE_SIZEOF_MAGIC)) {
|
||
/*
|
||
* Debug a symbol table node.
|
||
*/
|
||
status = H5G_node_debug(f, H5P_DATASET_XFER_DEFAULT, addr, stdout, 0, VCOL, extra);
|
||
|
||
} else if (!HDmemcmp(sig, H5B_MAGIC, H5B_SIZEOF_MAGIC)) {
|
||
/*
|
||
* Debug a B-tree. B-trees are debugged through the B-tree
|
||
* subclass. The subclass identifier is the byte immediately
|
||
* after the B-tree signature.
|
||
*/
|
||
H5B_subid_t subtype = (H5B_subid_t)sig[H5B_SIZEOF_MAGIC];
|
||
unsigned ndims;
|
||
|
||
switch (subtype) {
|
||
case H5B_SNODE_ID:
|
||
status = H5G_node_debug(f, H5P_DATASET_XFER_DEFAULT, addr, stdout, 0, VCOL, extra);
|
||
break;
|
||
|
||
case H5B_ISTORE_ID:
|
||
ndims = (unsigned)extra;
|
||
status = H5D_istore_debug (f, H5P_DATASET_XFER_DEFAULT, addr, stdout, 0, VCOL, ndims);
|
||
break;
|
||
|
||
default:
|
||
fprintf(stderr, "Unknown B-tree subtype %u\n", (unsigned)(subtype));
|
||
HDexit(4);
|
||
}
|
||
|
||
} else if (!HDmemcmp(sig, H5B2_HDR_MAGIC, H5B2_SIZEOF_MAGIC)) {
|
||
/*
|
||
* Debug a v2 B-tree. B-trees are debugged through the B-tree
|
||
* subclass. The subclass identifier is two bytes after the
|
||
* B-tree signature.
|
||
*/
|
||
H5B2_subid_t subtype = (H5B2_subid_t)sig[H5B2_SIZEOF_MAGIC+1];
|
||
|
||
switch (subtype) {
|
||
case H5B2_TEST_ID:
|
||
status = H5B2_hdr_debug(f, H5P_DATASET_XFER_DEFAULT, addr, stdout, 0, VCOL, H5B2_TEST);
|
||
break;
|
||
|
||
case H5B2_BLK_TRK_ID:
|
||
status = H5B2_hdr_debug(f, H5P_DATASET_XFER_DEFAULT, addr, stdout, 0, VCOL, H5B2_BLKTRK);
|
||
break;
|
||
|
||
default:
|
||
fprintf(stderr, "Unknown B-tree subtype %u\n", (unsigned)(subtype));
|
||
HDexit(4);
|
||
} /* end switch */
|
||
|
||
} else if (!HDmemcmp(sig, H5B2_INT_MAGIC, H5B2_SIZEOF_MAGIC)) {
|
||
/*
|
||
* Debug a v2 B-tree. B-trees are debugged through the B-tree
|
||
* subclass. The subclass identifier is two bytes after the
|
||
* B-tree signature.
|
||
*/
|
||
H5B2_subid_t subtype = (H5B2_subid_t)sig[H5B2_SIZEOF_MAGIC+1];
|
||
|
||
switch (subtype) {
|
||
case H5B2_TEST_ID:
|
||
status = H5B2_int_debug(f, H5P_DATASET_XFER_DEFAULT, addr, stdout, 0, VCOL, H5B2_TEST, extra, (unsigned)extra2);
|
||
break;
|
||
|
||
case H5B2_BLK_TRK_ID:
|
||
status = H5B2_int_debug(f, H5P_DATASET_XFER_DEFAULT, addr, stdout, 0, VCOL, H5B2_BLKTRK, extra, (unsigned)extra2);
|
||
break;
|
||
|
||
default:
|
||
fprintf(stderr, "Unknown B-tree subtype %u\n", (unsigned)(subtype));
|
||
HDexit(4);
|
||
} /* end switch */
|
||
|
||
} else if (!HDmemcmp(sig, H5B2_LEAF_MAGIC, H5B2_SIZEOF_MAGIC)) {
|
||
/*
|
||
* Debug a v2 B-tree. B-trees are debugged through the B-tree
|
||
* subclass. The subclass identifier is two bytes after the
|
||
* B-tree signature.
|
||
*/
|
||
H5B2_subid_t subtype = (H5B2_subid_t)sig[H5B2_SIZEOF_MAGIC+1];
|
||
|
||
switch (subtype) {
|
||
case H5B2_TEST_ID:
|
||
status = H5B2_leaf_debug(f, H5P_DATASET_XFER_DEFAULT, addr, stdout, 0, VCOL, H5B2_TEST, extra, (unsigned)extra2);
|
||
break;
|
||
|
||
case H5B2_BLK_TRK_ID:
|
||
status = H5B2_leaf_debug(f, H5P_DATASET_XFER_DEFAULT, addr, stdout, 0, VCOL, H5B2_BLKTRK, extra, (unsigned)extra2);
|
||
break;
|
||
|
||
default:
|
||
fprintf(stderr, "Unknown B-tree subtype %u\n", (unsigned)(subtype));
|
||
HDexit(4);
|
||
} /* end switch */
|
||
|
||
} else if (!HDmemcmp(sig, H5BT_MAGIC, H5BT_SIZEOF_MAGIC)) {
|
||
/*
|
||
* Debug a block tracker info
|
||
*/
|
||
status = H5BT_hdr_debug(f, H5P_DATASET_XFER_DEFAULT, addr, stdout, 0, VCOL);
|
||
|
||
} else if (!HDmemcmp(sig, H5SH_MAGIC, H5SH_SIZEOF_MAGIC)) {
|
||
/*
|
||
* Debug a segmented heap info
|
||
*/
|
||
status = H5SH_debug(f, H5P_DATASET_XFER_DEFAULT, addr, stdout, 0, VCOL);
|
||
|
||
} else if (!HDmemcmp(sig, H5BP_HDR_MAGIC, H5BP_SIZEOF_MAGIC)) {
|
||
/*
|
||
* Debug a B+ tree. B+ trees are debugged through the B+ tree
|
||
* subclass. The subclass identifier is two bytes after the
|
||
* B+ tree signature.
|
||
*/
|
||
H5BP_subid_t subtype = (H5BP_subid_t)sig[H5BP_SIZEOF_MAGIC+1];
|
||
|
||
switch (subtype) {
|
||
case H5BP_TEST_ID:
|
||
status = H5BP_hdr_debug(f, H5P_DATASET_XFER_DEFAULT, addr, stdout, 0, VCOL, H5BP_TEST);
|
||
break;
|
||
|
||
default:
|
||
fprintf(stderr, "Unknown B+ tree subtype %u\n", (unsigned)(subtype));
|
||
HDexit(4);
|
||
} /* end switch */
|
||
|
||
} else if (sig[0] == H5O_VERSION) {
|
||
/*
|
||
* This could be an object header. Since they don't have a signature
|
||
* it's a somewhat "ify" detection.
|
||
*/
|
||
status = H5O_debug(f, H5P_DATASET_XFER_DEFAULT, addr, stdout, 0, VCOL);
|
||
|
||
} else {
|
||
/*
|
||
* Got some other unrecognized signature.
|
||
*/
|
||
printf("%-*s ", VCOL, "Signature:");
|
||
for (i = 0; i < 8; i++) {
|
||
if (sig[i] > ' ' && sig[i] <= '~' && '\\' != sig[i]) {
|
||
HDputchar(sig[i]);
|
||
} else if ('\\' == sig[i]) {
|
||
HDputchar('\\');
|
||
HDputchar('\\');
|
||
} else {
|
||
printf("\\%03o", sig[i]);
|
||
}
|
||
}
|
||
HDputchar('\n');
|
||
|
||
fprintf(stderr, "unknown signature\n");
|
||
HDexit(4);
|
||
}
|
||
|
||
if (status < 0) {
|
||
fprintf(stderr, "An error occurred!\n");
|
||
H5Eprint(stderr);
|
||
HDexit(5);
|
||
}
|
||
H5Pclose(dxpl);
|
||
H5Pclose(fapl);
|
||
H5Fclose(fid);
|
||
return 0;
|
||
}
|