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 */
|
|
|
|
|
/****************/
|
|
|
|
|
|
2005-11-15 10:55:39 +08:00
|
|
|
|
#define H5G_PACKAGE /*suppress error about including H5Gpkg */
|
2000-10-10 15:43:38 +08:00
|
|
|
|
|
2004-06-23 23:36:35 +08:00
|
|
|
|
/* Interface initialization */
|
|
|
|
|
#define H5_INTERFACE_INIT_FUNC H5G_init_interface
|
|
|
|
|
|
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
|
|
|
|
|
[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 */
|
|
|
|
|
}};
|
|
|
|
|
|
2002-08-29 02:34:12 +08:00
|
|
|
|
|
2012-02-10 10:16:52 +08:00
|
|
|
|
|
|
|
|
|
/*-------------------------------------------------------------------------
|
|
|
|
|
* Function: H5G__init
|
|
|
|
|
*
|
|
|
|
|
* Purpose: Initialize the interface from some other package.
|
|
|
|
|
*
|
|
|
|
|
* Return: Success: non-negative
|
|
|
|
|
* Failure: negative
|
|
|
|
|
*
|
|
|
|
|
* Programmer: Quincey Koziol
|
|
|
|
|
* Saturday, November 11, 2006
|
|
|
|
|
*
|
|
|
|
|
*-------------------------------------------------------------------------
|
|
|
|
|
*/
|
|
|
|
|
herr_t
|
|
|
|
|
H5G__init(void)
|
|
|
|
|
{
|
|
|
|
|
herr_t ret_value = SUCCEED; /* Return value */
|
|
|
|
|
|
|
|
|
|
FUNC_ENTER_NOAPI(FAIL)
|
|
|
|
|
/* FUNC_ENTER() does all the work */
|
|
|
|
|
|
|
|
|
|
done:
|
|
|
|
|
FUNC_LEAVE_NOAPI(ret_value)
|
|
|
|
|
} /* end H5G__init() */
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/*-------------------------------------------------------------------------
|
|
|
|
|
* Function: H5G_init_interface
|
|
|
|
|
*
|
|
|
|
|
* 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
|
|
|
|
|
* list interface initialization routine (H5P_init_interface)
|
|
|
|
|
* 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
|
|
|
|
|
*
|
|
|
|
|
*-------------------------------------------------------------------------
|
|
|
|
|
*/
|
|
|
|
|
static herr_t
|
|
|
|
|
H5G_init_interface(void)
|
|
|
|
|
{
|
|
|
|
|
herr_t ret_value = SUCCEED; /* Return value */
|
|
|
|
|
|
|
|
|
|
FUNC_ENTER_NOAPI_NOINIT
|
|
|
|
|
|
|
|
|
|
/* 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")
|
|
|
|
|
|
|
|
|
|
done:
|
|
|
|
|
FUNC_LEAVE_NOAPI(ret_value)
|
|
|
|
|
} /* end H5G_init_interface() */
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/*-------------------------------------------------------------------------
|
|
|
|
|
* Function: H5G_term_interface
|
|
|
|
|
*
|
|
|
|
|
* Purpose: Terminates the H5G interface
|
|
|
|
|
*
|
|
|
|
|
* 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_interface(void)
|
|
|
|
|
{
|
|
|
|
|
int n = 0;
|
|
|
|
|
|
|
|
|
|
FUNC_ENTER_NOAPI_NOINIT_NOERR
|
|
|
|
|
|
|
|
|
|
if(H5_interface_initialize_g) {
|
2014-04-09 13:08:21 +08:00
|
|
|
|
if((n = H5I_nmembers(H5I_GROUP)))
|
|
|
|
|
H5I_clear_type(H5I_GROUP, FALSE, FALSE);
|
|
|
|
|
else {
|
|
|
|
|
/* Close deprecated interface */
|
|
|
|
|
n += H5G__term_deprec_interface();
|
|
|
|
|
|
|
|
|
|
/* Destroy the group object id group */
|
|
|
|
|
H5I_dec_type_ref(H5I_GROUP);
|
|
|
|
|
|
|
|
|
|
/* Mark closed */
|
|
|
|
|
H5_interface_initialize_g = 0;
|
|
|
|
|
n = 1; /*H5I*/
|
|
|
|
|
} /* end else */
|
2012-02-10 10:16:52 +08:00
|
|
|
|
} /* end if */
|
|
|
|
|
|
|
|
|
|
FUNC_LEAVE_NOAPI(n)
|
|
|
|
|
} /* end H5G_term_interface() */
|
|
|
|
|
|
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 */
|
|
|
|
|
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
|
|
|
|
|
2007-04-12 00:22:16 +08:00
|
|
|
|
/* Check the group access property list */
|
|
|
|
|
if(H5P_DEFAULT == gapl_id)
|
|
|
|
|
gapl_id = H5P_GROUP_ACCESS_DEFAULT;
|
|
|
|
|
else
|
|
|
|
|
if(TRUE != H5P_isa_class(gapl_id, H5P_GROUP_ACCESS))
|
|
|
|
|
HGOTO_ERROR(H5E_ARGS, H5E_BADTYPE, FAIL, "not group access property list")
|
2005-09-12 22:29:54 +08:00
|
|
|
|
|
2007-04-12 00:22:16 +08:00
|
|
|
|
/* Create the new group & get its ID */
|
2012-02-10 10:16:52 +08:00
|
|
|
|
if(NULL == (grp = H5G__create_named(&loc, name, lcpl_id, gcpl_id, gapl_id, H5AC_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 */
|
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")
|
|
|
|
|
|
|
|
|
|
/* Check the group access property list */
|
|
|
|
|
if(H5P_DEFAULT == gapl_id)
|
|
|
|
|
gapl_id = H5P_GROUP_ACCESS_DEFAULT;
|
|
|
|
|
else
|
|
|
|
|
if(TRUE != H5P_isa_class(gapl_id, H5P_GROUP_ACCESS))
|
|
|
|
|
HGOTO_ERROR(H5E_ARGS, H5E_BADTYPE, FAIL, "not group access property list")
|
|
|
|
|
|
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 */
|
2012-02-10 10:16:52 +08:00
|
|
|
|
if(NULL == (grp = H5G__create(loc.oloc->file, &gcrt_info, H5AC_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 */
|
|
|
|
|
if(H5O_dec_rc_by_loc(oloc, H5AC_dxpl_id) < 0)
|
|
|
|
|
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 */
|
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")
|
|
|
|
|
|
|
|
|
|
/* Check the group access property list */
|
|
|
|
|
if(H5P_DEFAULT == gapl_id)
|
|
|
|
|
gapl_id = H5P_GROUP_ACCESS_DEFAULT;
|
|
|
|
|
else
|
|
|
|
|
if(TRUE != H5P_isa_class(gapl_id, H5P_GROUP_ACCESS))
|
|
|
|
|
HGOTO_ERROR(H5E_ARGS, H5E_BADTYPE, FAIL, "not group access property list")
|
|
|
|
|
|
|
|
|
|
/* Open the group */
|
2012-02-10 10:16:52 +08:00
|
|
|
|
if((grp = H5G__open_name(&loc, name, gapl_id, H5AC_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() */
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/*-------------------------------------------------------------------------
|
|
|
|
|
* Function: H5G_get_create_plist
|
|
|
|
|
*
|
|
|
|
|
* Purpose: Private function for H5Gget_create_plist
|
|
|
|
|
*
|
|
|
|
|
* 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
|
|
|
|
|
H5G_get_create_plist(H5G_t *grp)
|
|
|
|
|
{
|
|
|
|
|
H5O_linfo_t linfo; /* Link info message */
|
|
|
|
|
htri_t ginfo_exists;
|
|
|
|
|
htri_t linfo_exists;
|
|
|
|
|
htri_t pline_exists;
|
|
|
|
|
H5P_genplist_t *gcpl_plist;
|
|
|
|
|
H5P_genplist_t *new_plist;
|
|
|
|
|
hid_t new_gcpl_id = FAIL;
|
|
|
|
|
hid_t ret_value = FAIL;
|
|
|
|
|
|
|
|
|
|
FUNC_ENTER_NOAPI(FAIL)
|
|
|
|
|
|
2005-11-15 10:55:39 +08:00
|
|
|
|
/* Copy the default group creation property list */
|
2014-04-24 00:30:25 +08:00
|
|
|
|
if(NULL == (gcpl_plist = (H5P_genplist_t *)H5I_object(H5P_LST_GROUP_CREATE_ID_g)))
|
2005-11-15 10:55:39 +08:00
|
|
|
|
HGOTO_ERROR(H5E_ARGS, H5E_BADTYPE, FAIL, "can't get default group creation property list")
|
2008-08-20 00:35:16 +08:00
|
|
|
|
if((new_gcpl_id = H5P_copy_plist(gcpl_plist, TRUE)) < 0)
|
2005-11-15 10:55:39 +08:00
|
|
|
|
HGOTO_ERROR(H5E_SYM, H5E_CANTGET, FAIL, "unable to copy the creation property list")
|
2008-08-22 04:30:19 +08:00
|
|
|
|
if(NULL == (new_plist = (H5P_genplist_t *)H5I_object(new_gcpl_id)))
|
2005-11-15 10:55:39 +08:00
|
|
|
|
HGOTO_ERROR(H5E_ARGS, H5E_BADTYPE, FAIL, "can't get property list")
|
|
|
|
|
|
2006-11-29 12:13:02 +08:00
|
|
|
|
/* Retrieve any object creation properties */
|
|
|
|
|
if(H5O_get_create_plist(&grp->oloc, H5AC_ind_dxpl_id, new_plist) < 0)
|
|
|
|
|
HGOTO_ERROR(H5E_SYM, H5E_CANTGET, FAIL, "can't get object creation info")
|
|
|
|
|
|
2005-11-15 10:55:39 +08:00
|
|
|
|
/* Check for the group having a group info message */
|
2007-02-06 06:26:44 +08:00
|
|
|
|
if((ginfo_exists = H5O_msg_exists(&(grp->oloc), H5O_GINFO_ID, H5AC_ind_dxpl_id)) < 0)
|
2005-11-15 10:55:39 +08:00
|
|
|
|
HGOTO_ERROR(H5E_SYM, H5E_CANTINIT, FAIL, "unable to read object header")
|
|
|
|
|
if(ginfo_exists) {
|
|
|
|
|
H5O_ginfo_t ginfo; /* Group info message */
|
|
|
|
|
|
|
|
|
|
/* Read the group info */
|
2007-02-06 06:26:44 +08:00
|
|
|
|
if(NULL == H5O_msg_read(&(grp->oloc), H5O_GINFO_ID, &ginfo, H5AC_ind_dxpl_id))
|
2005-11-15 10:55:39 +08:00
|
|
|
|
HGOTO_ERROR(H5E_SYM, H5E_BADMESG, FAIL, "can't get group info")
|
|
|
|
|
|
|
|
|
|
/* Set the group info for the property list */
|
|
|
|
|
if(H5P_set(new_plist, H5G_CRT_GROUP_INFO_NAME, &ginfo) < 0)
|
|
|
|
|
HGOTO_ERROR(H5E_PLIST, H5E_CANTSET, FAIL, "can't set group info")
|
|
|
|
|
} /* end if */
|
|
|
|
|
|
2006-10-30 22:33:14 +08:00
|
|
|
|
/* Check for the group having a link info message */
|
2012-02-10 10:16:52 +08:00
|
|
|
|
if((linfo_exists = H5G__obj_get_linfo(&(grp->oloc), &linfo, H5AC_ind_dxpl_id)) < 0)
|
2006-10-30 22:33:14 +08:00
|
|
|
|
HGOTO_ERROR(H5E_SYM, H5E_CANTINIT, FAIL, "unable to read object header")
|
|
|
|
|
if(linfo_exists) {
|
|
|
|
|
/* Set the link info for the property list */
|
|
|
|
|
if(H5P_set(new_plist, H5G_CRT_LINK_INFO_NAME, &linfo) < 0)
|
|
|
|
|
HGOTO_ERROR(H5E_PLIST, H5E_CANTSET, FAIL, "can't set link info")
|
|
|
|
|
} /* end if */
|
|
|
|
|
|
[svn-r17623] Description:
Bring "compress group's fractal heap" feature from branch back to
trunk.
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 (smirom) 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-ia64 2.4 (tg-login3) w/parallel, w/FORTRAN, in debug mode
Linux/64-amd64 2.6 (abe) w/parallel, w/FORTRAN, in production mode
Mac OS X/32 10.6.1 (amazon) in debug mode
Mac OS X/32 10.6.1 (amazon) w/C++ & FORTRAN, w/threadsafe,
in production mode
2009-10-09 09:31:36 +08:00
|
|
|
|
/* Check for the group having a pipeline message */
|
|
|
|
|
if((pline_exists = H5O_msg_exists(&(grp->oloc), H5O_PLINE_ID, H5AC_ind_dxpl_id)) < 0)
|
|
|
|
|
HGOTO_ERROR(H5E_SYM, H5E_CANTGET, FAIL, "unable to read object header")
|
|
|
|
|
if(pline_exists) {
|
|
|
|
|
H5O_pline_t pline; /* Pipeline message */
|
|
|
|
|
|
|
|
|
|
/* Read the pipeline */
|
|
|
|
|
if(NULL == H5O_msg_read(&(grp->oloc), H5O_PLINE_ID, &pline, H5AC_ind_dxpl_id))
|
|
|
|
|
HGOTO_ERROR(H5E_SYM, H5E_BADMESG, FAIL, "can't get link pipeline")
|
|
|
|
|
|
|
|
|
|
/* Set the pipeline for the property list */
|
|
|
|
|
if(H5P_set(new_plist, H5O_CRT_PIPELINE_NAME, &pline) < 0)
|
|
|
|
|
HGOTO_ERROR(H5E_PLIST, H5E_CANTSET, FAIL, "can't set link pipeline")
|
|
|
|
|
} /* end if */
|
|
|
|
|
|
2005-11-15 10:55:39 +08:00
|
|
|
|
/* Set the return value */
|
|
|
|
|
ret_value = new_gcpl_id;
|
|
|
|
|
|
|
|
|
|
done:
|
|
|
|
|
if(ret_value < 0) {
|
|
|
|
|
if(new_gcpl_id > 0)
|
[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(new_gcpl_id) < 0)
|
|
|
|
|
HDONE_ERROR(H5E_SYM, H5E_CANTDEC, FAIL, "can't free")
|
2005-11-15 10:55:39 +08:00
|
|
|
|
} /* end if */
|
|
|
|
|
|
2013-04-30 03:23:04 +08:00
|
|
|
|
FUNC_LEAVE_NOAPI(ret_value)
|
|
|
|
|
} /* end H5G_get_create_plist() */
|
1998-07-21 05:01:32 +08:00
|
|
|
|
|
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 */
|
2012-02-10 10:16:52 +08:00
|
|
|
|
if(H5G__obj_info(loc.oloc, grp_info/*out*/, H5AC_ind_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 */
|
|
|
|
|
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")
|
|
|
|
|
if(H5P_DEFAULT == lapl_id)
|
|
|
|
|
lapl_id = H5P_LINK_ACCESS_DEFAULT;
|
|
|
|
|
else
|
|
|
|
|
if(TRUE != H5P_isa_class(lapl_id, H5P_LINK_ACCESS))
|
|
|
|
|
HGOTO_ERROR(H5E_ARGS, H5E_BADTYPE, FAIL, "not link access property list ID")
|
|
|
|
|
|
|
|
|
|
/* 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 */
|
|
|
|
|
if(H5G_loc_find(&loc, name, &grp_loc/*out*/, lapl_id, H5AC_ind_dxpl_id) < 0)
|
|
|
|
|
HGOTO_ERROR(H5E_SYM, H5E_NOTFOUND, FAIL, "group not found")
|
|
|
|
|
loc_found = TRUE;
|
|
|
|
|
|
|
|
|
|
/* Retrieve the group's information */
|
2012-02-10 10:16:52 +08:00
|
|
|
|
if(H5G__obj_info(grp_loc.oloc, grp_info/*out*/, H5AC_ind_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 */
|
|
|
|
|
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")
|
|
|
|
|
if(H5P_DEFAULT == lapl_id)
|
|
|
|
|
lapl_id = H5P_LINK_ACCESS_DEFAULT;
|
|
|
|
|
else
|
|
|
|
|
if(TRUE != H5P_isa_class(lapl_id, H5P_LINK_ACCESS))
|
|
|
|
|
HGOTO_ERROR(H5E_ARGS, H5E_BADTYPE, FAIL, "not link access property list ID")
|
|
|
|
|
|
|
|
|
|
/* 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 */
|
|
|
|
|
if(H5G_loc_find_by_idx(&loc, group_name, idx_type, order, n, &grp_loc/*out*/, lapl_id, H5AC_ind_dxpl_id) < 0)
|
|
|
|
|
HGOTO_ERROR(H5E_SYM, H5E_NOTFOUND, FAIL, "group not found")
|
|
|
|
|
loc_found = TRUE;
|
|
|
|
|
|
|
|
|
|
/* Retrieve the group's information */
|
2012-02-10 10:16:52 +08:00
|
|
|
|
if(H5G__obj_info(grp_loc.oloc, grp_info/*out*/, H5AC_ind_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() */
|
|
|
|
|
|