2003-02-17 23:54:15 +08:00
|
|
|
|
/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
|
2007-02-07 22:56:24 +08:00
|
|
|
|
* Copyright by The HDF Group. *
|
2003-02-17 23:54:15 +08:00
|
|
|
|
* 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 *
|
2007-02-07 22:56:24 +08:00
|
|
|
|
* http://hdfgroup.org/HDF5/doc/Copyright.html. If you do not have *
|
|
|
|
|
* access to either file, you may request a copy from help@hdfgroup.org. *
|
2003-02-17 23:54:15 +08:00
|
|
|
|
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
|
|
|
|
|
|
1997-07-31 05:17:56 +08:00
|
|
|
|
/*-------------------------------------------------------------------------
|
|
|
|
|
*
|
1998-03-25 07:18:34 +08:00
|
|
|
|
* Created: H5G.c
|
|
|
|
|
* Jul 18 1997
|
|
|
|
|
* Robb Matzke <matzke@llnl.gov>
|
|
|
|
|
*
|
|
|
|
|
* Purpose: Symbol table functions. The functions that begin with
|
|
|
|
|
* `H5G_stab_' don't understand the naming system; they operate
|
|
|
|
|
* on a single symbol table at a time.
|
|
|
|
|
*
|
|
|
|
|
* The functions that begin with `H5G_node_' operate on the leaf
|
|
|
|
|
* nodes of a symbol table B-tree. They should be defined in
|
2005-08-14 04:53:35 +08:00
|
|
|
|
* the H5Gnode.c file.
|
1998-03-25 07:18:34 +08:00
|
|
|
|
*
|
|
|
|
|
* The remaining functions know how to traverse the group
|
|
|
|
|
* directed graph.
|
|
|
|
|
*
|
|
|
|
|
* Names: Object names are a slash-separated list of components. If
|
|
|
|
|
* the name begins with a slash then it's absolute, otherwise
|
|
|
|
|
* it's relative ("/foo/bar" is absolute while "foo/bar" is
|
|
|
|
|
* relative). Multiple consecutive slashes are treated as
|
|
|
|
|
* single slashes and trailing slashes are ignored. The special
|
|
|
|
|
* case `/' is the root group. Every file has a root group.
|
|
|
|
|
*
|
|
|
|
|
* API functions that look up names take a location ID and a
|
|
|
|
|
* name. The location ID can be a file ID or a group ID and the
|
|
|
|
|
* name can be relative or absolute.
|
|
|
|
|
*
|
|
|
|
|
* +--------------+----------- +--------------------------------+
|
|
|
|
|
* | Location ID | Name | Meaning |
|
|
|
|
|
* +--------------+------------+--------------------------------+
|
|
|
|
|
* | File ID | "/foo/bar" | Find `foo' within `bar' within |
|
|
|
|
|
* | | | the root group of the specified|
|
|
|
|
|
* | | | file. |
|
|
|
|
|
* +--------------+------------+--------------------------------+
|
|
|
|
|
* | File ID | "foo/bar" | Find `foo' within `bar' within |
|
2006-10-02 18:24:03 +08:00
|
|
|
|
* | | | the root group of the specified|
|
|
|
|
|
* | | | file. |
|
1998-03-25 07:18:34 +08:00
|
|
|
|
* +--------------+------------+--------------------------------+
|
|
|
|
|
* | File ID | "/" | The root group of the specified|
|
|
|
|
|
* | | | file. |
|
|
|
|
|
* +--------------+------------+--------------------------------+
|
2006-10-02 18:24:03 +08:00
|
|
|
|
* | File ID | "." | The root group of the specified|
|
1998-03-25 07:18:34 +08:00
|
|
|
|
* | | | the specified file. |
|
|
|
|
|
* +--------------+------------+--------------------------------+
|
|
|
|
|
* | Group ID | "/foo/bar" | Find `foo' within `bar' within |
|
|
|
|
|
* | | | the root group of the file |
|
|
|
|
|
* | | | containing the specified group.|
|
|
|
|
|
* +--------------+------------+--------------------------------+
|
|
|
|
|
* | Group ID | "foo/bar" | File `foo' within `bar' within |
|
|
|
|
|
* | | | the specified group. |
|
|
|
|
|
* +--------------+------------+--------------------------------+
|
|
|
|
|
* | Group ID | "/" | The root group of the file |
|
|
|
|
|
* | | | containing the specified group.|
|
|
|
|
|
* +--------------+------------+--------------------------------+
|
|
|
|
|
* | Group ID | "." | The specified group. |
|
|
|
|
|
* +--------------+------------+--------------------------------+
|
1997-07-31 05:17:56 +08:00
|
|
|
|
*
|
|
|
|
|
*
|
|
|
|
|
*-------------------------------------------------------------------------
|
|
|
|
|
*/
|
2000-10-10 15:43:38 +08:00
|
|
|
|
|
2011-07-20 06:47:59 +08:00
|
|
|
|
/****************/
|
|
|
|
|
/* Module Setup */
|
|
|
|
|
/****************/
|
|
|
|
|
|
2015-09-14 11:58:59 +08:00
|
|
|
|
#include "H5Gmodule.h" /* This source code file is part of the H5G module */
|
2004-06-23 23:36:35 +08:00
|
|
|
|
|
2011-07-20 06:47:59 +08:00
|
|
|
|
|
|
|
|
|
/***********/
|
|
|
|
|
/* Headers */
|
|
|
|
|
/***********/
|
2003-05-09 04:09:07 +08:00
|
|
|
|
#include "H5private.h" /* Generic Functions */
|
[svn-r18702] Description:
Bring r18672 from metadata journaling "merging" branch to trunk:
Mostly changes to move to only using one 'user data' parameter for
calls to H5AC_protect(), along with some minor reformatting code cleanups.
Tested on:
FreeBSD/32 6.3 (duty) in debug mode
FreeBSD/64 6.3 (liberty) w/C++ & FORTRAN, in debug mode
Linux/32 2.6 (jam) w/PGI compilers, w/default API=1.8.x,
w/C++ & FORTRAN, w/threadsafe, in debug mode
Linux/64-amd64 2.6 (amani) w/Intel compilers, w/default API=1.6.x,
w/C++ & FORTRAN, in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Linux/64-amd64 2.6 (abe) w/parallel, w/FORTRAN, in production mode
Mac OS X/32 10.6.3 (amazon) in debug mode
Mac OS X/32 10.6.3 (amazon) w/C++ & FORTRAN, w/threadsafe,
in production mode
2010-05-05 21:39:56 +08:00
|
|
|
|
#include "H5ACprivate.h" /* Metadata cache */
|
2003-05-09 04:09:07 +08:00
|
|
|
|
#include "H5Eprivate.h" /* Error handling */
|
|
|
|
|
#include "H5Gpkg.h" /* Groups */
|
|
|
|
|
#include "H5Iprivate.h" /* IDs */
|
2005-06-21 02:11:57 +08:00
|
|
|
|
#include "H5Pprivate.h" /* Property lists */
|
1997-08-08 03:23:00 +08:00
|
|
|
|
|
2011-07-20 06:47:59 +08:00
|
|
|
|
|
|
|
|
|
/****************/
|
|
|
|
|
/* Local Macros */
|
|
|
|
|
/****************/
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/******************/
|
|
|
|
|
/* Local Typedefs */
|
|
|
|
|
/******************/
|
1997-09-22 10:08:54 +08:00
|
|
|
|
|
[svn-r14284] Description:
Add H5Lvisit_by_name() API routine to library.
Eliminated all (five!) other group traversal routines and changed them
all to use the new API routine.
Cleaned up output of h5ls & h5stat:
- Issue error when requesting recursive traversal of a file
with the "group info" flag, but no group given
- Print info about root group in all(?) appropriate situations
- Don't print "verbose" information about root group until the
root group is in the list of objects to display
(mostly because h5ls & h5stat had a different twist on traversing the
groups in a file that the other utilities)
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (liberty) w/C++ & FORTRAN, in debug mode
Linux/32 2.6 (kagiso) w/PGI compilers, w/C++ & FORTRAN, w/threadsafe,
in debug mode
Linux/64-amd64 2.6 (smirom) w/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
Linux/64-ia64 2.4 (tg-login3) w/parallel, w/FORTRAN, in production mode
2007-11-25 00:49:36 +08:00
|
|
|
|
|
2011-07-20 06:47:59 +08:00
|
|
|
|
/********************/
|
|
|
|
|
/* Package Typedefs */
|
|
|
|
|
/********************/
|
|
|
|
|
|
2005-11-07 11:13:53 +08:00
|
|
|
|
|
2011-07-20 06:47:59 +08:00
|
|
|
|
/********************/
|
|
|
|
|
/* Local Prototypes */
|
|
|
|
|
/********************/
|
[svn-r14284] Description:
Add H5Lvisit_by_name() API routine to library.
Eliminated all (five!) other group traversal routines and changed them
all to use the new API routine.
Cleaned up output of h5ls & h5stat:
- Issue error when requesting recursive traversal of a file
with the "group info" flag, but no group given
- Print info about root group in all(?) appropriate situations
- Don't print "verbose" information about root group until the
root group is in the list of objects to display
(mostly because h5ls & h5stat had a different twist on traversing the
groups in a file that the other utilities)
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (liberty) w/C++ & FORTRAN, in debug mode
Linux/32 2.6 (kagiso) w/PGI compilers, w/C++ & FORTRAN, w/threadsafe,
in debug mode
Linux/64-amd64 2.6 (smirom) w/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
Linux/64-ia64 2.4 (tg-login3) w/parallel, w/FORTRAN, in production mode
2007-11-25 00:49:36 +08:00
|
|
|
|
|
2011-07-20 06:47:59 +08:00
|
|
|
|
|
|
|
|
|
/*********************/
|
|
|
|
|
/* Package Variables */
|
|
|
|
|
/*********************/
|
[svn-r6252] Purpose:
Lots of performance improvements & a couple new internal API interfaces.
Description:
Performance Improvements:
- Cached file offset & length sizes in shared file struct, to avoid
constantly looking them up in the FCPL.
- Generic property improvements:
- Added "revision" number to generic property classes to speed
up comparisons.
- Changed method of storing properties from using a hash-table
to the TBBT routines in the library.
- Share the propery names between classes and the lists derived
from them.
- Removed redundant 'def_value' buffer from each property.
- Switching code to use a "copy on write" strategy for
properties in each list, where the properties in each list
are shared with the properties in the class, until a
property's value is changed in a list.
- Fixed error in layout code which was allocating too many buffers.
- Redefined public macros of the form (H5open()/H5check, <variable>)
internally to only be (<variable>), avoiding innumerable useless
calls to H5open() and H5check_version().
- Reuse already zeroed buffers in H5F_contig_fill instead of
constantly re-zeroing them.
- Don't write fill values if writing entire dataset.
- Use gettimeofday() system call instead of time() system when
checking the modification time of a dataset.
- Added reference counted string API and use it for tracking the
names of objects opening in a file (for the ID->name code).
- Removed redundant H5P_get() calls in B-tree routines.
- Redefine H5T datatype macros internally to the library, to avoid
calling H5check redundantly.
- Keep dataspace information for dataset locally instead of reading
from disk each time. Added new module to track open objects
in a file, to allow this (which will be useful eventually for
some FPH5 metadata caching issues).
- Remove H5AC_find macro which was inlining metadata cache lookups,
and call function instead.
- Remove redundant memset() calls from H5G_namei() routine.
- Remove redundant checking of object type when locating objects
in metadata cache and rely on the address only.
- Create default dataset object to use when default dataset creation
property list is used to create datasets, bypassing querying
for all the property list values.
- Use default I/O vector size when performing raw data with the
default dataset transfer property list, instead of querying for
I/O vector size.
- Remove H5P_DEFAULT internally to the library, replacing it with
more specific default property list based on the type of
property list needed.
- Remove redundant memset() calls in object header message (H5O*)
routines.
- Remove redunant memset() calls in data I/O routines.
- Split free-list allocation routines into malloc() and calloc()-
like routines, instead of one combined routine.
- Remove lots of indirection in H5O*() routines.
- Simplify metadata cache entry comparison routine (used when
flushing entire cache out).
- Only enable metadata cache statistics when H5AC_DEBUG is turned
on, instead of always tracking them.
- Simplify address comparison macro (H5F_addr_eq).
- Remove redundant metadata cache entry protections during dataset
creation by protecting the object header once and making all
the modifications necessary for the dataset creation before
unprotecting it.
- Reduce # of "number of element in extent" computations performed
by computing and storing the value during dataspace creation.
- Simplify checking for group location's file information, when file
has not been involving in file-mounting operations.
- Use binary encoding for modification time, instead of ASCII.
- Hoist H5HL_peek calls (to get information in a local heap)
out of loops in many group routine.
- Use static variable for iterators of selections, instead of
dynamically allocation them each time.
- Lookup & insert new entries in one step, avoiding traversing
group's B-tree twice.
- Fixed memory leak in H5Gget_objname_idx() routine (tangential to
performance improvements, but fixed along the way).
- Use free-list for reference counted strings.
- Don't bother copying object names into cached group entries,
since they are re-created when an object is opened.
The benchmark I used to measure these results created several thousand
small (2K) datasets in a file and wrote out the data for them. This is
Elena's "regular.c" benchmark.
These changes resulted in approximately ~4.3x speedup of the
development branch when compared to the previous code in the
development branch and ~1.4x speedup compared to the release
branch.
Additionally, these changes reduce the total memory used (code and
data) by the development branch by ~800KB, bringing the development
branch back into the same ballpark as the release branch.
I'll send out a more detailed description of the benchmark results
as a followup note.
New internal API routines:
Added "reference counted strings" API for tracking strings that get
used by multiple owners without duplicating the strings.
Added "ternary search tree" API for text->object mappings.
Platforms tested:
Tested h5committest {arabica (fortran), eirene (fortran, C++)
modi4 (parallel, fortran)}
Other platforms/configurations tested?
FreeBSD 4.7 (sleipnir) serial & parallel
Solaris 2.6 (baldric) serial
2003-01-10 01:20:03 +08:00
|
|
|
|
|
2015-09-14 11:58:59 +08:00
|
|
|
|
/* Package initialization variable */
|
|
|
|
|
hbool_t H5_PKG_INIT_VAR = FALSE;
|
|
|
|
|
|
[svn-r14284] Description:
Add H5Lvisit_by_name() API routine to library.
Eliminated all (five!) other group traversal routines and changed them
all to use the new API routine.
Cleaned up output of h5ls & h5stat:
- Issue error when requesting recursive traversal of a file
with the "group info" flag, but no group given
- Print info about root group in all(?) appropriate situations
- Don't print "verbose" information about root group until the
root group is in the list of objects to display
(mostly because h5ls & h5stat had a different twist on traversing the
groups in a file that the other utilities)
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (liberty) w/C++ & FORTRAN, in debug mode
Linux/32 2.6 (kagiso) w/PGI compilers, w/C++ & FORTRAN, w/threadsafe,
in debug mode
Linux/64-amd64 2.6 (smirom) w/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
Linux/64-ia64 2.4 (tg-login3) w/parallel, w/FORTRAN, in production mode
2007-11-25 00:49:36 +08:00
|
|
|
|
|
2011-07-20 06:47:59 +08:00
|
|
|
|
/*****************************/
|
|
|
|
|
/* Library Private Variables */
|
|
|
|
|
/*****************************/
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/*******************/
|
|
|
|
|
/* Local Variables */
|
|
|
|
|
/*******************/
|
|
|
|
|
|
2012-07-17 03:54:26 +08:00
|
|
|
|
/* Group ID class */
|
|
|
|
|
static const H5I_class_t H5I_GROUP_CLS[1] = {{
|
|
|
|
|
H5I_GROUP, /* ID class value */
|
|
|
|
|
0, /* Class flags */
|
|
|
|
|
0, /* # of reserved IDs for class */
|
|
|
|
|
(H5I_free_t)H5G_close /* Callback routine for closing objects of this class */
|
|
|
|
|
}};
|
|
|
|
|
|
2015-09-14 11:58:59 +08:00
|
|
|
|
/* Flag indicating "top" of interface has been initialized */
|
|
|
|
|
static hbool_t H5G_top_package_initialize_s = FALSE;
|
2002-08-29 02:34:12 +08:00
|
|
|
|
|
2012-02-10 10:16:52 +08:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/*-------------------------------------------------------------------------
|
2015-09-14 11:58:59 +08:00
|
|
|
|
* Function: H5G__init_package
|
2012-02-10 10:16:52 +08:00
|
|
|
|
*
|
|
|
|
|
* Purpose: Initializes the H5G interface.
|
|
|
|
|
*
|
|
|
|
|
* Return: Non-negative on success/Negative on failure
|
|
|
|
|
*
|
|
|
|
|
* Programmer: Robb Matzke
|
|
|
|
|
* Monday, January 5, 1998
|
|
|
|
|
*
|
|
|
|
|
* Notes: The group creation properties are registered in the property
|
2015-09-14 11:58:59 +08:00
|
|
|
|
* list interface initialization routine (H5P_init_package)
|
2012-02-10 10:16:52 +08:00
|
|
|
|
* so that the file creation property class can inherit from it
|
|
|
|
|
* correctly. (Which allows the file creation property list to
|
|
|
|
|
* control the group creation properties of the root group of
|
|
|
|
|
* a file) QAK - 24/10/2005
|
|
|
|
|
*
|
|
|
|
|
*-------------------------------------------------------------------------
|
|
|
|
|
*/
|
2015-09-14 11:58:59 +08:00
|
|
|
|
herr_t
|
|
|
|
|
H5G__init_package(void)
|
2012-02-10 10:16:52 +08:00
|
|
|
|
{
|
|
|
|
|
herr_t ret_value = SUCCEED; /* Return value */
|
|
|
|
|
|
2015-09-14 11:58:59 +08:00
|
|
|
|
FUNC_ENTER_PACKAGE
|
2012-02-10 10:16:52 +08:00
|
|
|
|
|
|
|
|
|
/* Initialize the atom group for the group IDs */
|
2012-07-17 03:54:26 +08:00
|
|
|
|
if(H5I_register_type(H5I_GROUP_CLS) < 0)
|
2012-02-10 10:16:52 +08:00
|
|
|
|
HGOTO_ERROR(H5E_SYM, H5E_CANTINIT, FAIL, "unable to initialize interface")
|
|
|
|
|
|
2015-09-14 11:58:59 +08:00
|
|
|
|
/* Mark "top" of interface as initialized, too */
|
|
|
|
|
H5G_top_package_initialize_s = TRUE;
|
|
|
|
|
|
2012-02-10 10:16:52 +08:00
|
|
|
|
done:
|
|
|
|
|
FUNC_LEAVE_NOAPI(ret_value)
|
2015-09-14 11:58:59 +08:00
|
|
|
|
} /* end H5G__init_package() */
|
2012-02-10 10:16:52 +08:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/*-------------------------------------------------------------------------
|
2015-09-14 11:58:59 +08:00
|
|
|
|
* Function: H5G_top_term_package
|
2012-02-10 10:16:52 +08:00
|
|
|
|
*
|
2015-09-14 11:58:59 +08:00
|
|
|
|
* Purpose: Close the "top" of the interface, releasing IDs, etc.
|
2012-02-10 10:16:52 +08:00
|
|
|
|
*
|
|
|
|
|
* Return: Success: Positive if anything is done that might
|
|
|
|
|
* affect other interfaces; zero otherwise.
|
|
|
|
|
* Failure: Negative.
|
|
|
|
|
*
|
2015-09-14 11:58:59 +08:00
|
|
|
|
* Programmer: Quincey Koziol
|
|
|
|
|
* Sunday, September 13, 2015
|
2012-02-10 10:16:52 +08:00
|
|
|
|
*
|
|
|
|
|
*-------------------------------------------------------------------------
|
|
|
|
|
*/
|
|
|
|
|
int
|
2015-09-14 11:58:59 +08:00
|
|
|
|
H5G_top_term_package(void)
|
2012-02-10 10:16:52 +08:00
|
|
|
|
{
|
|
|
|
|
int n = 0;
|
|
|
|
|
|
|
|
|
|
FUNC_ENTER_NOAPI_NOINIT_NOERR
|
|
|
|
|
|
2015-09-14 11:58:59 +08:00
|
|
|
|
if(H5G_top_package_initialize_s) {
|
2014-07-31 04:55:14 +08:00
|
|
|
|
if(H5I_nmembers(H5I_GROUP) > 0) {
|
|
|
|
|
(void)H5I_clear_type(H5I_GROUP, FALSE, FALSE);
|
|
|
|
|
n++; /*H5I*/
|
|
|
|
|
} /* end if */
|
2014-04-09 13:08:21 +08:00
|
|
|
|
|
2015-09-14 11:58:59 +08:00
|
|
|
|
/* Mark closed */
|
|
|
|
|
if(0 == n)
|
|
|
|
|
H5G_top_package_initialize_s = FALSE;
|
|
|
|
|
} /* end if */
|
|
|
|
|
|
|
|
|
|
FUNC_LEAVE_NOAPI(n)
|
|
|
|
|
} /* end H5G_top_term_package() */
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/*-------------------------------------------------------------------------
|
|
|
|
|
* Function: H5G_term_package
|
|
|
|
|
*
|
|
|
|
|
* Purpose: Terminates the H5G interface
|
|
|
|
|
*
|
|
|
|
|
* Note: Finishes shutting down the interface, after
|
|
|
|
|
* H5G_top_term_package() is called
|
|
|
|
|
*
|
|
|
|
|
* Return: Success: Positive if anything is done that might
|
|
|
|
|
* affect other interfaces; zero otherwise.
|
|
|
|
|
* Failure: Negative.
|
|
|
|
|
*
|
|
|
|
|
* Programmer: Robb Matzke
|
|
|
|
|
* Monday, January 5, 1998
|
|
|
|
|
*
|
|
|
|
|
*-------------------------------------------------------------------------
|
|
|
|
|
*/
|
|
|
|
|
int
|
|
|
|
|
H5G_term_package(void)
|
|
|
|
|
{
|
|
|
|
|
int n = 0;
|
|
|
|
|
|
|
|
|
|
FUNC_ENTER_NOAPI_NOINIT_NOERR
|
|
|
|
|
|
|
|
|
|
if(H5_PKG_INIT_VAR) {
|
|
|
|
|
/* Sanity checks */
|
|
|
|
|
HDassert(0 == H5I_nmembers(H5I_GROUP));
|
|
|
|
|
HDassert(FALSE == H5G_top_package_initialize_s);
|
|
|
|
|
|
|
|
|
|
/* Destroy the group object id group */
|
|
|
|
|
n += (H5I_dec_type_ref(H5I_GROUP) > 0);
|
2014-04-09 13:08:21 +08:00
|
|
|
|
|
2015-09-14 11:58:59 +08:00
|
|
|
|
/* Mark closed */
|
|
|
|
|
if(0 == n)
|
|
|
|
|
H5_PKG_INIT_VAR = FALSE;
|
2012-02-10 10:16:52 +08:00
|
|
|
|
} /* end if */
|
|
|
|
|
|
|
|
|
|
FUNC_LEAVE_NOAPI(n)
|
2015-09-14 11:58:59 +08:00
|
|
|
|
} /* end H5G_term_package() */
|
2012-02-10 10:16:52 +08:00
|
|
|
|
|
1997-10-21 07:14:35 +08:00
|
|
|
|
|
|
|
|
|
/*-------------------------------------------------------------------------
|
2007-04-12 00:22:16 +08:00
|
|
|
|
* Function: H5Gcreate2
|
1997-10-21 07:14:35 +08:00
|
|
|
|
*
|
2007-04-12 00:22:16 +08:00
|
|
|
|
* Purpose: Creates a new group relative to LOC_ID, giving it the
|
|
|
|
|
* specified creation property list GCPL_ID and access
|
|
|
|
|
* property list GAPL_ID. The link to the new group is
|
|
|
|
|
* created with the LCPL_ID.
|
1997-10-21 07:14:35 +08:00
|
|
|
|
*
|
2007-04-12 00:22:16 +08:00
|
|
|
|
* Usage: H5Gcreate2(loc_id, char *name, lcpl_id, gcpl_id, gapl_id)
|
|
|
|
|
* hid_t loc_id; IN: File or group identifier
|
|
|
|
|
* const char *name; IN: Absolute or relative name of the new group
|
|
|
|
|
* hid_t lcpl_id; IN: Property list for link creation
|
|
|
|
|
* hid_t gcpl_id; IN: Property list for group creation
|
|
|
|
|
* hid_t gapl_id; IN: Property list for group access
|
1997-10-21 07:14:35 +08:00
|
|
|
|
*
|
1998-01-28 13:47:19 +08:00
|
|
|
|
* Return: Success: The object ID of a new, empty group open for
|
|
|
|
|
* writing. Call H5Gclose() when finished with
|
|
|
|
|
* the group.
|
1997-10-21 07:14:35 +08:00
|
|
|
|
*
|
1998-01-28 13:47:19 +08:00
|
|
|
|
* Failure: FAIL
|
1997-10-21 07:14:35 +08:00
|
|
|
|
*
|
2007-04-12 00:22:16 +08:00
|
|
|
|
* Programmer: Quincey Koziol
|
|
|
|
|
* April 5, 2007
|
1997-10-21 07:14:35 +08:00
|
|
|
|
*
|
|
|
|
|
*-------------------------------------------------------------------------
|
|
|
|
|
*/
|
1998-01-06 11:07:15 +08:00
|
|
|
|
hid_t
|
2007-04-12 00:22:16 +08:00
|
|
|
|
H5Gcreate2(hid_t loc_id, const char *name, hid_t lcpl_id, hid_t gcpl_id,
|
|
|
|
|
hid_t gapl_id)
|
1997-10-21 07:14:35 +08:00
|
|
|
|
{
|
2007-04-12 00:22:16 +08:00
|
|
|
|
H5G_loc_t loc; /* Location to create group */
|
|
|
|
|
H5G_t *grp = NULL; /* New group created */
|
2016-01-14 12:29:58 +08:00
|
|
|
|
hid_t dxpl_id = H5AC_dxpl_id; /* dxpl used by library */
|
2007-04-12 00:22:16 +08:00
|
|
|
|
hid_t ret_value; /* Return value */
|
1998-01-17 06:23:43 +08:00
|
|
|
|
|
2012-02-09 11:13:27 +08:00
|
|
|
|
FUNC_ENTER_API(FAIL)
|
2007-04-19 04:15:58 +08:00
|
|
|
|
H5TRACE5("i", "i*siii", loc_id, name, lcpl_id, gcpl_id, gapl_id);
|
1998-01-17 06:23:43 +08:00
|
|
|
|
|
|
|
|
|
/* Check arguments */
|
2005-11-15 10:55:39 +08:00
|
|
|
|
if(H5G_loc(loc_id, &loc) < 0)
|
|
|
|
|
HGOTO_ERROR(H5E_ARGS, H5E_BADTYPE, FAIL, "not a location")
|
|
|
|
|
if(!name || !*name)
|
2007-04-12 00:22:16 +08:00
|
|
|
|
HGOTO_ERROR(H5E_ARGS, H5E_BADVALUE, FAIL, "no name")
|
2005-08-14 04:53:35 +08:00
|
|
|
|
|
2007-04-12 00:22:16 +08:00
|
|
|
|
/* Get correct property list */
|
|
|
|
|
if(H5P_DEFAULT == lcpl_id)
|
|
|
|
|
lcpl_id = H5P_LINK_CREATE_DEFAULT;
|
|
|
|
|
else
|
|
|
|
|
if(TRUE != H5P_isa_class(lcpl_id, H5P_LINK_CREATE))
|
|
|
|
|
HGOTO_ERROR(H5E_ARGS, H5E_BADTYPE, FAIL, "not link creation property list")
|
2005-09-12 22:29:54 +08:00
|
|
|
|
|
2007-04-12 00:22:16 +08:00
|
|
|
|
/* Check group creation property list */
|
|
|
|
|
if(H5P_DEFAULT == gcpl_id)
|
|
|
|
|
gcpl_id = H5P_GROUP_CREATE_DEFAULT;
|
|
|
|
|
else
|
|
|
|
|
if(TRUE != H5P_isa_class(gcpl_id, H5P_GROUP_CREATE))
|
|
|
|
|
HGOTO_ERROR(H5E_ARGS, H5E_BADTYPE, FAIL, "not group create property list")
|
2005-09-12 22:29:54 +08:00
|
|
|
|
|
2016-01-16 07:08:10 +08:00
|
|
|
|
/* Verify access property list and get correct dxpl */
|
2016-01-22 06:31:15 +08:00
|
|
|
|
if(H5P_verify_apl_and_dxpl(&gapl_id, H5P_CLS_GACC, &dxpl_id, loc_id, TRUE) < 0)
|
2016-01-16 07:08:10 +08:00
|
|
|
|
HGOTO_ERROR(H5E_SYM, H5E_CANTSET, FAIL, "can't set access and transfer property lists")
|
2005-09-12 22:29:54 +08:00
|
|
|
|
|
2007-04-12 00:22:16 +08:00
|
|
|
|
/* Create the new group & get its ID */
|
2016-01-14 12:29:58 +08:00
|
|
|
|
if(NULL == (grp = H5G__create_named(&loc, name, lcpl_id, gcpl_id, gapl_id, dxpl_id)))
|
2007-04-12 00:22:16 +08:00
|
|
|
|
HGOTO_ERROR(H5E_SYM, H5E_CANTINIT, FAIL, "unable to create group")
|
2008-08-20 00:35:16 +08:00
|
|
|
|
if((ret_value = H5I_register(H5I_GROUP, grp, TRUE)) < 0)
|
2007-04-12 00:22:16 +08:00
|
|
|
|
HGOTO_ERROR(H5E_ATOM, H5E_CANTREGISTER, FAIL, "unable to register group")
|
2005-09-12 22:29:54 +08:00
|
|
|
|
|
2007-04-12 00:22:16 +08:00
|
|
|
|
done:
|
|
|
|
|
if(ret_value < 0)
|
|
|
|
|
if(grp && H5G_close(grp) < 0)
|
|
|
|
|
HDONE_ERROR(H5E_SYM, H5E_CLOSEERROR, FAIL, "unable to release group")
|
2005-09-12 22:29:54 +08:00
|
|
|
|
|
2007-04-12 00:22:16 +08:00
|
|
|
|
FUNC_LEAVE_API(ret_value)
|
|
|
|
|
} /* end H5Gcreate2() */
|
2006-07-06 03:01:50 +08:00
|
|
|
|
|
2005-06-21 02:11:57 +08:00
|
|
|
|
|
|
|
|
|
/*-------------------------------------------------------------------------
|
2007-04-12 00:22:16 +08:00
|
|
|
|
* Function: H5Gcreate_anon
|
2005-06-21 02:11:57 +08:00
|
|
|
|
*
|
2006-07-06 03:01:50 +08:00
|
|
|
|
* Purpose: Creates a new group relative to LOC_ID, giving it the
|
|
|
|
|
* specified creation property list GCPL_ID and access
|
2005-08-14 04:53:35 +08:00
|
|
|
|
* property list GAPL_ID.
|
2005-06-21 02:11:57 +08:00
|
|
|
|
*
|
2006-07-06 03:01:50 +08:00
|
|
|
|
* The resulting ID should be linked into the file with
|
[svn-r14228] Description:
Change H5Llink to H5Olink, which makes more sense.
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (liberty) w/C++ & FORTRAN, in debug mode
Linux/32 2.6 (kagiso) w/PGI compilers, w/C++ & FORTRAN, w/threadsafe,
in debug mode
Linux/64-amd64 2.6 (smirom) w/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-11-02 01:32:49 +08:00
|
|
|
|
* H5Olink or it will be deleted when closed.
|
2006-07-06 03:01:50 +08:00
|
|
|
|
*
|
2007-04-12 00:22:16 +08:00
|
|
|
|
* Given the default setting, H5Gcreate_anon() followed by
|
[svn-r14228] Description:
Change H5Llink to H5Olink, which makes more sense.
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (liberty) w/C++ & FORTRAN, in debug mode
Linux/32 2.6 (kagiso) w/PGI compilers, w/C++ & FORTRAN, w/threadsafe,
in debug mode
Linux/64-amd64 2.6 (smirom) w/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-11-02 01:32:49 +08:00
|
|
|
|
* H5Olink() will have the same function as H5Gcreate2().
|
2005-06-21 02:11:57 +08:00
|
|
|
|
*
|
2007-04-12 00:22:16 +08:00
|
|
|
|
* Usage: H5Gcreate_anon(loc_id, char *name, gcpl_id, gapl_id)
|
|
|
|
|
* hid_t loc_id; IN: File or group identifier
|
|
|
|
|
* const char *name; IN: Absolute or relative name of the new group
|
|
|
|
|
* hid_t gcpl_id; IN: Property list for group creation
|
|
|
|
|
* hid_t gapl_id; IN: Property list for group access
|
2006-04-02 04:14:11 +08:00
|
|
|
|
*
|
|
|
|
|
* Example: To create missing groups "A" and "B01" along the given path "/A/B01/grp"
|
|
|
|
|
* hid_t create_id = H5Pcreate(H5P_GROUP_CREATE);
|
|
|
|
|
* int status = H5Pset_create_intermediate_group(create_id, TRUE);
|
2007-04-12 00:22:16 +08:00
|
|
|
|
* hid_t gid = H5Gcreate_anon(file_id, "/A/B01/grp", create_id, H5P_DEFAULT);
|
2005-06-21 02:11:57 +08:00
|
|
|
|
*
|
|
|
|
|
* Return: Success: The object ID of a new, empty group open for
|
|
|
|
|
* writing. Call H5Gclose() when finished with
|
|
|
|
|
* the group.
|
|
|
|
|
*
|
|
|
|
|
* Failure: FAIL
|
|
|
|
|
*
|
2005-08-14 04:53:35 +08:00
|
|
|
|
* Programmer: Peter Cao
|
|
|
|
|
* May 08, 2005
|
2007-04-12 00:22:16 +08:00
|
|
|
|
*
|
2005-06-21 02:11:57 +08:00
|
|
|
|
*-------------------------------------------------------------------------
|
|
|
|
|
*/
|
|
|
|
|
hid_t
|
2007-04-12 00:22:16 +08:00
|
|
|
|
H5Gcreate_anon(hid_t loc_id, hid_t gcpl_id, hid_t gapl_id)
|
2005-06-21 02:11:57 +08:00
|
|
|
|
{
|
2005-11-15 10:55:39 +08:00
|
|
|
|
H5G_loc_t loc;
|
|
|
|
|
H5G_t *grp = NULL;
|
2010-09-22 01:52:12 +08:00
|
|
|
|
H5G_obj_create_t gcrt_info; /* Information for group creation */
|
2016-01-14 12:29:58 +08:00
|
|
|
|
hid_t dxpl_id = H5AC_dxpl_id; /* dxpl used by library */
|
2005-11-15 10:55:39 +08:00
|
|
|
|
hid_t ret_value;
|
2005-06-21 02:11:57 +08:00
|
|
|
|
|
2012-02-09 11:13:27 +08:00
|
|
|
|
FUNC_ENTER_API(FAIL)
|
2006-12-19 03:16:17 +08:00
|
|
|
|
H5TRACE3("i", "iii", loc_id, gcpl_id, gapl_id);
|
2005-06-21 02:11:57 +08:00
|
|
|
|
|
|
|
|
|
/* Check arguments */
|
2005-11-15 10:55:39 +08:00
|
|
|
|
if(H5G_loc(loc_id, &loc) < 0)
|
|
|
|
|
HGOTO_ERROR(H5E_ARGS, H5E_BADTYPE, FAIL, "not a location")
|
2005-08-14 04:53:35 +08:00
|
|
|
|
|
2005-06-21 02:11:57 +08:00
|
|
|
|
/* Check group creation property list */
|
|
|
|
|
if(H5P_DEFAULT == gcpl_id)
|
|
|
|
|
gcpl_id = H5P_GROUP_CREATE_DEFAULT;
|
|
|
|
|
else
|
|
|
|
|
if(TRUE != H5P_isa_class(gcpl_id, H5P_GROUP_CREATE))
|
|
|
|
|
HGOTO_ERROR(H5E_ARGS, H5E_BADTYPE, FAIL, "not group create property list")
|
|
|
|
|
|
2016-01-16 07:08:10 +08:00
|
|
|
|
/* Verify access property list and get correct dxpl */
|
2016-01-22 06:31:15 +08:00
|
|
|
|
if(H5P_verify_apl_and_dxpl(&gapl_id, H5P_CLS_GACC, &dxpl_id, loc_id, TRUE) < 0)
|
2016-01-16 07:08:10 +08:00
|
|
|
|
HGOTO_ERROR(H5E_SYM, H5E_CANTSET, FAIL, "can't set access and transfer property lists")
|
2005-06-21 02:11:57 +08:00
|
|
|
|
|
2010-09-22 01:52:12 +08:00
|
|
|
|
/* Set up group creation info */
|
|
|
|
|
gcrt_info.gcpl_id = gcpl_id;
|
|
|
|
|
gcrt_info.cache_type = H5G_NOTHING_CACHED;
|
|
|
|
|
HDmemset(&gcrt_info.cache, 0, sizeof(gcrt_info.cache));
|
|
|
|
|
|
2006-10-02 18:24:03 +08:00
|
|
|
|
/* Create the new group & get its ID */
|
2016-01-14 12:29:58 +08:00
|
|
|
|
if(NULL == (grp = H5G__create(loc.oloc->file, &gcrt_info, dxpl_id)))
|
2005-06-21 02:11:57 +08:00
|
|
|
|
HGOTO_ERROR(H5E_SYM, H5E_CANTINIT, FAIL, "unable to create group")
|
2008-08-20 00:35:16 +08:00
|
|
|
|
if((ret_value = H5I_register(H5I_GROUP, grp, TRUE)) < 0)
|
2005-06-21 02:11:57 +08:00
|
|
|
|
HGOTO_ERROR(H5E_ATOM, H5E_CANTREGISTER, FAIL, "unable to register group")
|
|
|
|
|
|
|
|
|
|
done:
|
[svn-r19587] Description:
Address issue with object headers being created getting evicted from
the metadata cache cache before they are completely initialized. This is
done by pinning the object header in the cache until it is completely
initialized and attached to a group.
Tested on:
FreeBSD/32 6.3 (duty) in debug mode
FreeBSD/64 6.3 (liberty) w/C++ & FORTRAN, in debug mode
Linux/32 2.6 (jam) w/PGI compilers, w/default API=1.8.x,
w/C++ & FORTRAN, w/threadsafe, in debug mode
Linux/64-amd64 2.6 (amani) w/Intel compilers, w/default API=1.6.x,
w/C++ & FORTRAN, in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, w/threadsafe, in production mode
Linux/PPC 2.6 (heiwa) w/C++ & FORTRAN, w/threadsafe, in debug mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Linux/64-amd64 2.6 (abe) w/parallel, w/FORTRAN, in debug mode
Mac OS X/32 10.6.4 (amazon) in debug mode
Mac OS X/32 10.6.4 (amazon) w/C++ & FORTRAN, w/threadsafe,
in production mode
Mac OS X/32 10.6.4 (amazon) w/parallel, in debug mode
2010-10-13 23:42:01 +08:00
|
|
|
|
/* Release the group's object header, if it was created */
|
|
|
|
|
if(grp) {
|
|
|
|
|
H5O_loc_t *oloc; /* Object location for group */
|
|
|
|
|
|
|
|
|
|
/* Get the new group's object location */
|
|
|
|
|
if(NULL == (oloc = H5G_oloc(grp)))
|
|
|
|
|
HDONE_ERROR(H5E_SYM, H5E_CANTGET, FAIL, "unable to get object location of group")
|
|
|
|
|
|
|
|
|
|
/* Decrement refcount on group's object header in memory */
|
2016-01-14 12:29:58 +08:00
|
|
|
|
if(H5O_dec_rc_by_loc(oloc, dxpl_id) < 0)
|
[svn-r19587] Description:
Address issue with object headers being created getting evicted from
the metadata cache cache before they are completely initialized. This is
done by pinning the object header in the cache until it is completely
initialized and attached to a group.
Tested on:
FreeBSD/32 6.3 (duty) in debug mode
FreeBSD/64 6.3 (liberty) w/C++ & FORTRAN, in debug mode
Linux/32 2.6 (jam) w/PGI compilers, w/default API=1.8.x,
w/C++ & FORTRAN, w/threadsafe, in debug mode
Linux/64-amd64 2.6 (amani) w/Intel compilers, w/default API=1.6.x,
w/C++ & FORTRAN, in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, w/threadsafe, in production mode
Linux/PPC 2.6 (heiwa) w/C++ & FORTRAN, w/threadsafe, in debug mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Linux/64-amd64 2.6 (abe) w/parallel, w/FORTRAN, in debug mode
Mac OS X/32 10.6.4 (amazon) in debug mode
Mac OS X/32 10.6.4 (amazon) w/C++ & FORTRAN, w/threadsafe,
in production mode
Mac OS X/32 10.6.4 (amazon) w/parallel, in debug mode
2010-10-13 23:42:01 +08:00
|
|
|
|
HDONE_ERROR(H5E_SYM, H5E_CANTDEC, FAIL, "unable to decrement refcount on newly created object")
|
|
|
|
|
} /* end if */
|
|
|
|
|
|
|
|
|
|
/* Cleanup on failure */
|
2007-04-12 00:22:16 +08:00
|
|
|
|
if(ret_value < 0)
|
|
|
|
|
if(grp && H5G_close(grp) < 0)
|
|
|
|
|
HDONE_ERROR(H5E_SYM, H5E_CLOSEERROR, FAIL, "unable to release group")
|
2002-08-09 00:52:55 +08:00
|
|
|
|
|
2005-11-15 10:55:39 +08:00
|
|
|
|
FUNC_LEAVE_API(ret_value)
|
2007-04-12 00:22:16 +08:00
|
|
|
|
} /* end H5Gcreate_anon() */
|
1998-03-25 07:18:34 +08:00
|
|
|
|
|
2006-08-03 07:41:53 +08:00
|
|
|
|
|
|
|
|
|
/*-------------------------------------------------------------------------
|
2007-04-12 00:22:16 +08:00
|
|
|
|
* Function: H5Gopen2
|
2006-08-03 07:41:53 +08:00
|
|
|
|
*
|
|
|
|
|
* Purpose: Opens an existing group for modification. When finished,
|
|
|
|
|
* call H5Gclose() to close it and release resources.
|
|
|
|
|
*
|
|
|
|
|
* This function allows the user the pass in a Group Access
|
2007-08-28 23:02:54 +08:00
|
|
|
|
* Property List, which H5Gopen1() does not.
|
2006-08-03 07:41:53 +08:00
|
|
|
|
*
|
|
|
|
|
* Return: Success: Object ID of the group.
|
|
|
|
|
* Failure: FAIL
|
|
|
|
|
*
|
|
|
|
|
* Programmer: James Laird
|
|
|
|
|
* Thursday, July 27, 2006
|
|
|
|
|
*
|
|
|
|
|
*-------------------------------------------------------------------------
|
|
|
|
|
*/
|
|
|
|
|
hid_t
|
2007-04-12 00:22:16 +08:00
|
|
|
|
H5Gopen2(hid_t loc_id, const char *name, hid_t gapl_id)
|
2006-08-03 07:41:53 +08:00
|
|
|
|
{
|
2007-08-28 23:02:54 +08:00
|
|
|
|
H5G_t *grp = NULL; /* Group opened */
|
|
|
|
|
H5G_loc_t loc; /* Location of parent for group */
|
2016-01-22 06:31:15 +08:00
|
|
|
|
hid_t dxpl_id = H5AC_dxpl_id; /* dxpl used by library */
|
2006-11-22 04:22:11 +08:00
|
|
|
|
hid_t ret_value; /* Return value */
|
2006-08-03 07:41:53 +08:00
|
|
|
|
|
2012-02-09 11:13:27 +08:00
|
|
|
|
FUNC_ENTER_API(FAIL)
|
2007-03-09 00:57:36 +08:00
|
|
|
|
H5TRACE3("i", "i*si", loc_id, name, gapl_id);
|
2006-08-03 07:41:53 +08:00
|
|
|
|
|
|
|
|
|
/* Check args */
|
|
|
|
|
if(H5G_loc(loc_id, &loc) < 0)
|
|
|
|
|
HGOTO_ERROR(H5E_ARGS, H5E_BADTYPE, FAIL, "not a location")
|
|
|
|
|
if(!name || !*name)
|
|
|
|
|
HGOTO_ERROR(H5E_ARGS, H5E_BADVALUE, FAIL, "no name")
|
|
|
|
|
|
2016-01-16 07:08:10 +08:00
|
|
|
|
/* Verify access property list and get correct dxpl */
|
2016-01-22 06:31:15 +08:00
|
|
|
|
if(H5P_verify_apl_and_dxpl(&gapl_id, H5P_CLS_GACC, &dxpl_id, loc_id, FALSE) < 0)
|
2016-01-16 07:08:10 +08:00
|
|
|
|
HGOTO_ERROR(H5E_SYM, H5E_CANTSET, FAIL, "can't set access and transfer property lists")
|
2006-08-03 07:41:53 +08:00
|
|
|
|
|
|
|
|
|
/* Open the group */
|
2016-01-14 12:29:58 +08:00
|
|
|
|
if((grp = H5G__open_name(&loc, name, gapl_id, dxpl_id)) == NULL)
|
2006-08-03 07:41:53 +08:00
|
|
|
|
HGOTO_ERROR(H5E_SYM, H5E_CANTOPENOBJ, FAIL, "unable to open group")
|
|
|
|
|
|
[svn-r14284] Description:
Add H5Lvisit_by_name() API routine to library.
Eliminated all (five!) other group traversal routines and changed them
all to use the new API routine.
Cleaned up output of h5ls & h5stat:
- Issue error when requesting recursive traversal of a file
with the "group info" flag, but no group given
- Print info about root group in all(?) appropriate situations
- Don't print "verbose" information about root group until the
root group is in the list of objects to display
(mostly because h5ls & h5stat had a different twist on traversing the
groups in a file that the other utilities)
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (liberty) w/C++ & FORTRAN, in debug mode
Linux/32 2.6 (kagiso) w/PGI compilers, w/C++ & FORTRAN, w/threadsafe,
in debug mode
Linux/64-amd64 2.6 (smirom) w/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
Linux/64-ia64 2.4 (tg-login3) w/parallel, w/FORTRAN, in production mode
2007-11-25 00:49:36 +08:00
|
|
|
|
/* Register an ID for the group */
|
2008-08-20 00:35:16 +08:00
|
|
|
|
if((ret_value = H5I_register(H5I_GROUP, grp, TRUE)) < 0)
|
2006-08-03 07:41:53 +08:00
|
|
|
|
HGOTO_ERROR(H5E_ATOM, H5E_CANTREGISTER, FAIL, "unable to register group")
|
|
|
|
|
|
|
|
|
|
done:
|
|
|
|
|
if(ret_value < 0) {
|
2007-08-28 23:02:54 +08:00
|
|
|
|
if(grp && H5G_close(grp) < 0)
|
|
|
|
|
HDONE_ERROR(H5E_SYM, H5E_CLOSEERROR, FAIL, "unable to release group")
|
2006-08-03 07:41:53 +08:00
|
|
|
|
} /* end if */
|
|
|
|
|
|
|
|
|
|
FUNC_LEAVE_API(ret_value)
|
2007-04-12 00:22:16 +08:00
|
|
|
|
} /* end H5Gopen2() */
|
2002-11-26 01:59:14 +08:00
|
|
|
|
|
2005-11-15 10:55:39 +08:00
|
|
|
|
|
|
|
|
|
/*-------------------------------------------------------------------------
|
|
|
|
|
* Function: H5Gget_create_plist
|
|
|
|
|
*
|
|
|
|
|
* Purpose: Returns a copy of the group creation property list.
|
|
|
|
|
*
|
|
|
|
|
* Return: Success: ID for a copy of the group creation
|
|
|
|
|
* property list. The property list ID should be
|
|
|
|
|
* released by calling H5Pclose().
|
|
|
|
|
*
|
|
|
|
|
* Failure: FAIL
|
|
|
|
|
*
|
|
|
|
|
* Programmer: Quincey Koziol
|
|
|
|
|
* Tuesday, October 25, 2005
|
|
|
|
|
*
|
|
|
|
|
*-------------------------------------------------------------------------
|
|
|
|
|
*/
|
|
|
|
|
hid_t
|
|
|
|
|
H5Gget_create_plist(hid_t group_id)
|
|
|
|
|
{
|
2013-04-30 03:23:04 +08:00
|
|
|
|
H5G_t *group = NULL;
|
2005-11-15 10:55:39 +08:00
|
|
|
|
hid_t ret_value = FAIL;
|
|
|
|
|
|
2012-02-09 11:13:27 +08:00
|
|
|
|
FUNC_ENTER_API(FAIL)
|
2006-12-19 03:16:17 +08:00
|
|
|
|
H5TRACE1("i", "i", group_id);
|
2005-11-15 10:55:39 +08:00
|
|
|
|
|
|
|
|
|
/* Check args */
|
2013-04-30 03:23:04 +08:00
|
|
|
|
if(NULL == (group = (H5G_t *)H5I_object_verify(group_id, H5I_GROUP)))
|
2005-11-15 10:55:39 +08:00
|
|
|
|
HGOTO_ERROR(H5E_ARGS, H5E_BADTYPE, FAIL, "not a group")
|
|
|
|
|
|
2013-04-30 03:23:04 +08:00
|
|
|
|
if((ret_value = H5G_get_create_plist(group)) < 0)
|
|
|
|
|
HGOTO_ERROR(H5E_ARGS, H5E_BADTYPE, FAIL, "not a group")
|
|
|
|
|
|
|
|
|
|
done:
|
|
|
|
|
FUNC_LEAVE_API(ret_value)
|
|
|
|
|
} /* end H5Gget_create_plist() */
|
|
|
|
|
|
2006-11-28 02:00:08 +08:00
|
|
|
|
|
|
|
|
|
/*-------------------------------------------------------------------------
|
|
|
|
|
* Function: H5Gget_info
|
|
|
|
|
*
|
|
|
|
|
* Purpose: Retrieve information about a group.
|
|
|
|
|
*
|
|
|
|
|
* Return: Success: Non-negative
|
|
|
|
|
* Failure: Negative
|
|
|
|
|
*
|
|
|
|
|
* Programmer: Quincey Koziol
|
|
|
|
|
* November 27 2006
|
|
|
|
|
*
|
|
|
|
|
*-------------------------------------------------------------------------
|
|
|
|
|
*/
|
|
|
|
|
herr_t
|
[svn-r14223] Description:
Change existing H5Gget_info -> H5Gget_info_by_name and add new version
of H5Gget_info, with simpler parameters, to better match new API routines.
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (liberty) w/C++ & FORTRAN, in debug mode
Linux/32 2.6 (kagiso) w/PGI compilers, w/C++ & FORTRAN, w/threadsafe,
in debug mode
Linux/64-amd64 2.6 (smirom) w/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-31 05:57:50 +08:00
|
|
|
|
H5Gget_info(hid_t grp_id, H5G_info_t *grp_info)
|
|
|
|
|
{
|
|
|
|
|
H5I_type_t id_type; /* Type of ID */
|
|
|
|
|
H5G_loc_t loc; /* Location of group */
|
|
|
|
|
herr_t ret_value = SUCCEED; /* Return value */
|
|
|
|
|
|
2012-02-09 11:13:27 +08:00
|
|
|
|
FUNC_ENTER_API(FAIL)
|
[svn-r14223] Description:
Change existing H5Gget_info -> H5Gget_info_by_name and add new version
of H5Gget_info, with simpler parameters, to better match new API routines.
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (liberty) w/C++ & FORTRAN, in debug mode
Linux/32 2.6 (kagiso) w/PGI compilers, w/C++ & FORTRAN, w/threadsafe,
in debug mode
Linux/64-amd64 2.6 (smirom) w/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-31 05:57:50 +08:00
|
|
|
|
H5TRACE2("e", "i*x", grp_id, grp_info);
|
|
|
|
|
|
|
|
|
|
/* Check args */
|
|
|
|
|
id_type = H5I_get_type(grp_id);
|
|
|
|
|
if(!(H5I_GROUP == id_type || H5I_FILE == id_type))
|
|
|
|
|
HGOTO_ERROR(H5E_ARGS, H5E_BADVALUE, FAIL, "invalid argument")
|
|
|
|
|
if(!grp_info)
|
|
|
|
|
HGOTO_ERROR(H5E_ARGS, H5E_BADVALUE, FAIL, "no info struct")
|
|
|
|
|
|
|
|
|
|
/* Get group location */
|
|
|
|
|
if(H5G_loc(grp_id, &loc) < 0)
|
|
|
|
|
HGOTO_ERROR(H5E_ARGS, H5E_BADTYPE, FAIL, "not a location")
|
|
|
|
|
|
|
|
|
|
/* Retrieve the group's information */
|
2016-01-22 06:31:15 +08:00
|
|
|
|
if(H5G__obj_info(loc.oloc, grp_info/*out*/, H5AC_dxpl_id) < 0)
|
[svn-r14223] Description:
Change existing H5Gget_info -> H5Gget_info_by_name and add new version
of H5Gget_info, with simpler parameters, to better match new API routines.
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (liberty) w/C++ & FORTRAN, in debug mode
Linux/32 2.6 (kagiso) w/PGI compilers, w/C++ & FORTRAN, w/threadsafe,
in debug mode
Linux/64-amd64 2.6 (smirom) w/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-31 05:57:50 +08:00
|
|
|
|
HGOTO_ERROR(H5E_SYM, H5E_CANTGET, FAIL, "can't retrieve group info")
|
|
|
|
|
|
|
|
|
|
done:
|
|
|
|
|
FUNC_LEAVE_API(ret_value)
|
|
|
|
|
} /* end H5Gget_info() */
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/*-------------------------------------------------------------------------
|
|
|
|
|
* Function: H5Gget_info_by_name
|
|
|
|
|
*
|
|
|
|
|
* Purpose: Retrieve information about a group.
|
|
|
|
|
*
|
|
|
|
|
* Return: Success: Non-negative
|
|
|
|
|
* Failure: Negative
|
|
|
|
|
*
|
|
|
|
|
* Programmer: Quincey Koziol
|
|
|
|
|
* November 27 2006
|
|
|
|
|
*
|
|
|
|
|
*-------------------------------------------------------------------------
|
|
|
|
|
*/
|
|
|
|
|
herr_t
|
|
|
|
|
H5Gget_info_by_name(hid_t loc_id, const char *name, H5G_info_t *grp_info,
|
|
|
|
|
hid_t lapl_id)
|
2006-11-28 02:00:08 +08:00
|
|
|
|
{
|
|
|
|
|
H5G_loc_t loc; /* Location of group */
|
|
|
|
|
H5G_loc_t grp_loc; /* Location used to open group */
|
|
|
|
|
H5G_name_t grp_path; /* Opened object group hier. path */
|
|
|
|
|
H5O_loc_t grp_oloc; /* Opened object object location */
|
|
|
|
|
hbool_t loc_found = FALSE; /* Location at 'name' found */
|
2016-01-22 06:31:15 +08:00
|
|
|
|
hid_t dxpl_id = H5AC_dxpl_id; /* dxpl used by library */
|
2006-11-28 02:00:08 +08:00
|
|
|
|
herr_t ret_value = SUCCEED; /* Return value */
|
|
|
|
|
|
2012-02-09 11:13:27 +08:00
|
|
|
|
FUNC_ENTER_API(FAIL)
|
2007-03-09 00:57:36 +08:00
|
|
|
|
H5TRACE4("e", "i*s*xi", loc_id, name, grp_info, lapl_id);
|
2006-11-28 02:00:08 +08:00
|
|
|
|
|
|
|
|
|
/* Check args */
|
|
|
|
|
if(H5G_loc(loc_id, &loc) < 0)
|
|
|
|
|
HGOTO_ERROR(H5E_ARGS, H5E_BADTYPE, FAIL, "not a location")
|
|
|
|
|
if(!name || !*name)
|
|
|
|
|
HGOTO_ERROR(H5E_ARGS, H5E_BADVALUE, FAIL, "no name")
|
|
|
|
|
if(!grp_info)
|
|
|
|
|
HGOTO_ERROR(H5E_ARGS, H5E_BADVALUE, FAIL, "no info struct")
|
2016-01-16 07:08:10 +08:00
|
|
|
|
|
|
|
|
|
/* Verify access property list and get correct dxpl */
|
2016-01-22 06:31:15 +08:00
|
|
|
|
if(H5P_verify_apl_and_dxpl(&lapl_id, H5P_CLS_LACC, &dxpl_id, loc_id, FALSE) < 0)
|
2016-01-16 07:08:10 +08:00
|
|
|
|
HGOTO_ERROR(H5E_SYM, H5E_CANTSET, FAIL, "can't set access and transfer property lists")
|
2006-11-28 02:00:08 +08:00
|
|
|
|
|
|
|
|
|
/* Set up opened group location to fill in */
|
|
|
|
|
grp_loc.oloc = &grp_oloc;
|
|
|
|
|
grp_loc.path = &grp_path;
|
|
|
|
|
H5G_loc_reset(&grp_loc);
|
|
|
|
|
|
|
|
|
|
/* Find the group object */
|
2016-01-14 12:29:58 +08:00
|
|
|
|
if(H5G_loc_find(&loc, name, &grp_loc/*out*/, lapl_id, dxpl_id) < 0)
|
2006-11-28 02:00:08 +08:00
|
|
|
|
HGOTO_ERROR(H5E_SYM, H5E_NOTFOUND, FAIL, "group not found")
|
|
|
|
|
loc_found = TRUE;
|
|
|
|
|
|
|
|
|
|
/* Retrieve the group's information */
|
2016-01-14 12:29:58 +08:00
|
|
|
|
if(H5G__obj_info(grp_loc.oloc, grp_info/*out*/, dxpl_id) < 0)
|
2006-11-28 02:00:08 +08:00
|
|
|
|
HGOTO_ERROR(H5E_SYM, H5E_CANTGET, FAIL, "can't retrieve group info")
|
|
|
|
|
|
|
|
|
|
done:
|
|
|
|
|
if(loc_found && H5G_loc_free(&grp_loc) < 0)
|
|
|
|
|
HDONE_ERROR(H5E_SYM, H5E_CANTRELEASE, FAIL, "can't free location")
|
|
|
|
|
|
|
|
|
|
FUNC_LEAVE_API(ret_value)
|
[svn-r14223] Description:
Change existing H5Gget_info -> H5Gget_info_by_name and add new version
of H5Gget_info, with simpler parameters, to better match new API routines.
Tested on:
FreeBSD/32 6.2 (duty) in debug mode
FreeBSD/64 6.2 (liberty) w/C++ & FORTRAN, in debug mode
Linux/32 2.6 (kagiso) w/PGI compilers, w/C++ & FORTRAN, w/threadsafe,
in debug mode
Linux/64-amd64 2.6 (smirom) w/default API=1.6.x, w/C++ & FORTRAN,
in production mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, in production mode
Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-31 05:57:50 +08:00
|
|
|
|
} /* end H5Gget_info_by_name() */
|
2006-11-28 02:00:08 +08:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/*-------------------------------------------------------------------------
|
|
|
|
|
* Function: H5Gget_info_by_idx
|
|
|
|
|
*
|
|
|
|
|
* Purpose: Retrieve information about a group, according to the order
|
|
|
|
|
* of an index.
|
|
|
|
|
*
|
|
|
|
|
* Return: Success: Non-negative
|
|
|
|
|
* Failure: Negative
|
|
|
|
|
*
|
|
|
|
|
* Programmer: Quincey Koziol
|
|
|
|
|
* November 27 2006
|
|
|
|
|
*
|
|
|
|
|
*-------------------------------------------------------------------------
|
|
|
|
|
*/
|
|
|
|
|
herr_t
|
2006-12-12 08:42:19 +08:00
|
|
|
|
H5Gget_info_by_idx(hid_t loc_id, const char *group_name, H5_index_t idx_type,
|
2006-11-28 02:00:08 +08:00
|
|
|
|
H5_iter_order_t order, hsize_t n, H5G_info_t *grp_info, hid_t lapl_id)
|
|
|
|
|
{
|
|
|
|
|
H5G_loc_t loc; /* Location of group */
|
|
|
|
|
H5G_loc_t grp_loc; /* Location used to open group */
|
|
|
|
|
H5G_name_t grp_path; /* Opened object group hier. path */
|
|
|
|
|
H5O_loc_t grp_oloc; /* Opened object object location */
|
|
|
|
|
hbool_t loc_found = FALSE; /* Entry at 'name' found */
|
2016-01-22 06:31:15 +08:00
|
|
|
|
hid_t dxpl_id = H5AC_dxpl_id; /* dxpl used by library */
|
2006-11-28 02:00:08 +08:00
|
|
|
|
herr_t ret_value = SUCCEED; /* Return value */
|
|
|
|
|
|
2012-02-09 11:13:27 +08:00
|
|
|
|
FUNC_ENTER_API(FAIL)
|
2007-03-09 00:57:36 +08:00
|
|
|
|
H5TRACE7("e", "i*sIiIoh*xi", loc_id, group_name, idx_type, order, n, grp_info,
|
|
|
|
|
lapl_id);
|
2006-11-28 02:00:08 +08:00
|
|
|
|
|
|
|
|
|
/* Check args */
|
|
|
|
|
if(H5G_loc(loc_id, &loc) < 0)
|
|
|
|
|
HGOTO_ERROR(H5E_ARGS, H5E_BADTYPE, FAIL, "not a location")
|
|
|
|
|
if(!group_name || !*group_name)
|
|
|
|
|
HGOTO_ERROR(H5E_ARGS, H5E_BADVALUE, FAIL, "no name specified")
|
2006-12-12 08:42:19 +08:00
|
|
|
|
if(idx_type <= H5_INDEX_UNKNOWN || idx_type >= H5_INDEX_N)
|
2006-11-28 02:00:08 +08:00
|
|
|
|
HGOTO_ERROR(H5E_ARGS, H5E_BADVALUE, FAIL, "invalid index type specified")
|
|
|
|
|
if(order <= H5_ITER_UNKNOWN || order >= H5_ITER_N)
|
|
|
|
|
HGOTO_ERROR(H5E_ARGS, H5E_BADVALUE, FAIL, "invalid iteration order specified")
|
|
|
|
|
if(!grp_info)
|
|
|
|
|
HGOTO_ERROR(H5E_ARGS, H5E_BADVALUE, FAIL, "no info struct")
|
2016-01-16 07:08:10 +08:00
|
|
|
|
|
|
|
|
|
/* Verify access property list and get correct dxpl */
|
2016-01-22 06:31:15 +08:00
|
|
|
|
if(H5P_verify_apl_and_dxpl(&lapl_id, H5P_CLS_LACC, &dxpl_id, loc_id, FALSE) < 0)
|
2016-01-16 07:08:10 +08:00
|
|
|
|
HGOTO_ERROR(H5E_SYM, H5E_CANTSET, FAIL, "can't set access and transfer property lists")
|
2006-11-28 02:00:08 +08:00
|
|
|
|
|
|
|
|
|
/* Set up opened group location to fill in */
|
|
|
|
|
grp_loc.oloc = &grp_oloc;
|
|
|
|
|
grp_loc.path = &grp_path;
|
|
|
|
|
H5G_loc_reset(&grp_loc);
|
|
|
|
|
|
|
|
|
|
/* Find the object's location, according to the order in the index */
|
2016-01-14 12:29:58 +08:00
|
|
|
|
if(H5G_loc_find_by_idx(&loc, group_name, idx_type, order, n, &grp_loc/*out*/,
|
|
|
|
|
lapl_id, dxpl_id) < 0)
|
2006-11-28 02:00:08 +08:00
|
|
|
|
HGOTO_ERROR(H5E_SYM, H5E_NOTFOUND, FAIL, "group not found")
|
|
|
|
|
loc_found = TRUE;
|
|
|
|
|
|
|
|
|
|
/* Retrieve the group's information */
|
2016-01-14 12:29:58 +08:00
|
|
|
|
if(H5G__obj_info(grp_loc.oloc, grp_info/*out*/, dxpl_id) < 0)
|
2006-11-28 02:00:08 +08:00
|
|
|
|
HGOTO_ERROR(H5E_SYM, H5E_CANTGET, FAIL, "can't retrieve group info")
|
|
|
|
|
|
|
|
|
|
done:
|
|
|
|
|
/* Release the object location */
|
|
|
|
|
if(loc_found && H5G_loc_free(&grp_loc) < 0)
|
|
|
|
|
HDONE_ERROR(H5E_SYM, H5E_CANTRELEASE, FAIL, "can't free location")
|
|
|
|
|
|
|
|
|
|
FUNC_LEAVE_API(ret_value)
|
|
|
|
|
} /* end H5Gget_info_by_idx() */
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/*-------------------------------------------------------------------------
|
|
|
|
|
* Function: H5Gclose
|
|
|
|
|
*
|
|
|
|
|
* Purpose: Closes the specified group. The group ID will no longer be
|
|
|
|
|
* valid for accessing the group.
|
|
|
|
|
*
|
|
|
|
|
* Return: Non-negative on success/Negative on failure
|
|
|
|
|
*
|
|
|
|
|
* Programmer: Robb Matzke
|
|
|
|
|
* Wednesday, December 31, 1997
|
|
|
|
|
*
|
|
|
|
|
*-------------------------------------------------------------------------
|
|
|
|
|
*/
|
|
|
|
|
herr_t
|
|
|
|
|
H5Gclose(hid_t group_id)
|
|
|
|
|
{
|
|
|
|
|
herr_t ret_value = SUCCEED; /* Return value */
|
|
|
|
|
|
2012-02-09 11:13:27 +08:00
|
|
|
|
FUNC_ENTER_API(FAIL)
|
2006-12-19 03:16:17 +08:00
|
|
|
|
H5TRACE1("e", "i", group_id);
|
2006-11-28 02:00:08 +08:00
|
|
|
|
|
|
|
|
|
/* Check args */
|
|
|
|
|
if(NULL == H5I_object_verify(group_id,H5I_GROUP))
|
|
|
|
|
HGOTO_ERROR(H5E_ARGS, H5E_BADTYPE, FAIL, "not a group")
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
* Decrement the counter on the group atom. It will be freed if the count
|
|
|
|
|
* reaches zero.
|
|
|
|
|
*/
|
[svn-r19398] Descriptino:
Clean up the internal usage H5I_dec_ref() to eliminate the sequence of
flags that has been creeping in.
Tested on:
FreeBSD/32 6.3 (duty) in debug mode
FreeBSD/64 6.3 (liberty) w/C++ & FORTRAN, in debug mode
Linux/32 2.6 (jam) w/PGI compilers, w/default API=1.8.x,
w/C++ & FORTRAN, w/threadsafe, in debug mode
Linux/64-amd64 2.6 (amani) w/Intel compilers, w/default API=1.6.x,
w/C++ & FORTRAN, in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, w/threadsafe, in production mode
Linux/PPC 2.6 (heiwa) w/C++ & FORTRAN, w/threadsafe, in debug mode
Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN,
in production mode
Linux/64-amd64 2.6 (abe) w/parallel, w/FORTRAN, in debug mode
Mac OS X/32 10.6.4 (amazon) in debug mode
Mac OS X/32 10.6.4 (amazon) w/C++ & FORTRAN, w/threadsafe,
in production mode
Mac OS X/32 10.6.4 (amazon) w/parallel, in debug mode
2010-09-16 22:02:19 +08:00
|
|
|
|
if(H5I_dec_app_ref(group_id) < 0)
|
2006-11-28 02:00:08 +08:00
|
|
|
|
HGOTO_ERROR(H5E_SYM, H5E_CANTRELEASE, FAIL, "unable to close group")
|
|
|
|
|
|
|
|
|
|
done:
|
|
|
|
|
FUNC_LEAVE_API(ret_value)
|
|
|
|
|
} /* end H5Gclose() */
|
|
|
|
|
|