diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/H5Gname.c | 399 | ||||
| -rw-r--r-- | src/H5Gnode.c | 3 | ||||
| -rw-r--r-- | src/H5Gprivate.h | 2 | ||||
| -rw-r--r-- | src/H5I.c | 2 |
4 files changed, 131 insertions, 275 deletions
diff --git a/src/H5Gname.c b/src/H5Gname.c index faec337..ffcb530 100644 --- a/src/H5Gname.c +++ b/src/H5Gname.c @@ -47,19 +47,19 @@ typedef struct H5G_names_t { H5RS_str_t *dst_name; /* Name of object relative to destination location */ } H5G_names_t; -/* Info to pass to the iteration functions */ -typedef struct H5G_name_iter_t { - char *container; /* full name of the container object */ +/* Info to pass to the iteration function when building name */ +typedef struct H5G_ref_path_iter_t { + /* In */ hid_t file; /* File id where it came from */ + hid_t dxpl_id; /* DXPL for operations */ haddr_t obj; /* The address what we're looking for */ -} H5G_ref_path_iter_t; -typedef struct { - haddr_t objno; /* Object ID (i.e. address) */ - char *path; /* Object path */ -} H5G_ref_path_node_t; + /* In/Out */ + H5SL_t *ref_path_table; /* Skip list for tracking visited nodes */ -H5SL_t *ref_path_table = NULL; /* the "table" for path nodes */ + /* Out */ + char *container; /* full name of the container object */ +} H5G_ref_path_iter_t; /* Private macros */ @@ -68,6 +68,9 @@ H5SL_t *ref_path_table = NULL; /* the "table" for path nodes */ /* Declare extern the PQ free list for the wrapped strings */ H5FL_BLK_EXTERN(str_buf); +/* Declare the free list to manage haddr_t's */ +H5FL_DEFINE_STATIC(haddr_t); + /* PRIVATE PROTOTYPES */ static htri_t H5G_common_path(const H5RS_str_t *fullpath_r, const H5RS_str_t *prefix_r); static H5RS_str_t *H5G_build_fullpath(const char *prefix, const char *name); @@ -76,13 +79,10 @@ static H5RS_str_t *H5G_build_fullpath_refstr_str(H5RS_str_t *path_r, const char static herr_t H5G_name_move_path(H5RS_str_t **path_r_ptr, const char *full_suffix, const char *src_path, const char *dst_path); static int H5G_name_replace_cb(void *obj_ptr, hid_t obj_id, void *key); -static ssize_t H5G_get_refobj_name(haddr_t id, hid_t file, char* name, size_t size); static herr_t H5G_refname_iterator(hid_t group, const char *name, void *_iter); -static herr_t H5G_init_ref_path_table(hid_t fid); -static hbool_t H5G_ref_path_table_find(haddr_t objno); -static herr_t H5G_ref_path_table_put(char *path, haddr_t objno); -static herr_t H5G_free_ref_path_info(void *item, void UNUSED *key, void UNUSED *operator_data/*in,out*/); -static herr_t H5G_term_ref_path_table(void); +static herr_t H5G_free_ref_path_node(void *item, void *key, void *operator_data/*in,out*/); +static ssize_t H5G_get_refobj_name(haddr_t id, hid_t file, char* name, + size_t size, hid_t dxpl_it); /*------------------------------------------------------------------------- @@ -431,7 +431,7 @@ H5G_name_copy(H5G_name_t *dst, const H5G_name_t *src, H5_copy_depth_t depth) *------------------------------------------------------------------------- */ ssize_t -H5G_get_name(hid_t id, char *name/*out*/, size_t size) +H5G_get_name(hid_t id, char *name/*out*/, size_t size, hid_t dxpl_id) { H5G_loc_t loc; /* Object location */ ssize_t ret_value = FAIL; @@ -442,6 +442,7 @@ H5G_get_name(hid_t id, char *name/*out*/, size_t size) if(H5G_loc(id, &loc) >= 0) { ssize_t len; + /* If the user path is available and it's not "hidden", use it */ if(loc.path->user_path_r != NULL && loc.path->obj_hidden == 0) { len = H5RS_len(loc.path->user_path_r); @@ -459,7 +460,7 @@ H5G_get_name(hid_t id, char *name/*out*/, size_t size) HGOTO_ERROR(H5E_SYM, H5E_CANTGET, FAIL, "can't retrieve file ID") /* Search for name of object */ - if((len = H5G_get_refobj_name((loc.oloc)->addr, file, name, size)) < 0) + if((len = H5G_get_refobj_name((loc.oloc)->addr, file, name, size, dxpl_id)) < 0) HGOTO_ERROR(H5E_SYM, H5E_CANTGET, FAIL, "can't determine name") /* Close file ID used for search */ @@ -1031,104 +1032,100 @@ done: /*------------------------------------------------------------------------- - * Function: H5G_ref_path_table_put - * - * Purpose: Enter the 'obj' with 'path' in the table (assumes its not - * already there) - * - * Create an object reference, pte, and store them - * in the table. + * Function: H5G_refname_iterator * - * NOTE: Takes ownership of the path name string passed in! + * Purpose: The iterator which traverses all objects in a file looking for + * one that matches the object that is being looked for. * - * Return: Non-negative on success, negative on failure + * Return: 1 on success, 0 to continue searching, negative on failure. * - * Programmer: REMcG + * Programmer: Leon Arber, Nov 1, 2006. * * Modifications: - * Leon Arber, Oct. 25, 2006. Moved into H5G from h5ls - * tools lib for looking up path to reference. + * Quincey Koziol, Nov. 3, 2006 + * Cleaned up code. * *------------------------------------------------------------------------- */ static herr_t -H5G_ref_path_table_put(char *path, haddr_t objno) +H5G_refname_iterator(hid_t group, const char *name, void *_udata) { - H5G_ref_path_node_t *new_node; /* New path node for table */ - herr_t ret_value = SUCCEED; /* Return value */ - - FUNC_ENTER_NOAPI_NOINIT(H5G_ref_path_table_put) - - /* Sanity check */ - HDassert(ref_path_table); - HDassert(H5F_addr_defined(objno)); - HDassert(path); + H5G_ref_path_iter_t *udata = (H5G_ref_path_iter_t*)_udata; + H5G_stat_t sb; /* Stat buffer for object */ + H5G_loc_t loc; /* Group location of parent */ + haddr_t objno; /* Address of current object */ + herr_t ret_value = 0; /* Return value */ + + FUNC_ENTER_NOAPI_NOINIT(H5G_refname_iterator) + + /* Look up group location info */ + if(H5G_loc(group, &loc) < 0) + HGOTO_ERROR(H5E_ARGS, H5E_BADTYPE, FAIL, "not a location") - /* Allocate new path node */ - if((new_node = H5MM_malloc(sizeof(H5G_ref_path_node_t))) == NULL) - HGOTO_ERROR(H5E_SYM, H5E_NOSPACE, FAIL, "can't allocate path node") + /* Get information for object in group */ + if(H5G_get_objinfo(&loc, name, 0, &sb, udata->dxpl_id) < 0) + HGOTO_ERROR(H5E_ARGS, H5E_CANTINIT, FAIL, "cannot stat object") + objno = (haddr_t)sb.objno[0] | ((haddr_t)sb.objno[1] << (8 * sizeof(long))); - /* Set node information */ - new_node->objno = objno; - new_node->path = path; + /* Check for finding the object */ + if(udata->obj == objno) { + /* Build the object's full name */ + if(NULL == (udata->container = H5MM_realloc(udata->container, HDstrlen(udata->container) + HDstrlen(name) + 2))) + HGOTO_ERROR(H5E_SYM, H5E_NOSPACE, FAIL, "can't allocate path string") + HDstrcat(udata->container, name); - /* Insert into skip list */ - if(H5SL_insert(ref_path_table, new_node, &(new_node->objno)) < 0) - HGOTO_ERROR(H5E_SYM, H5E_CANTINSERT, FAIL, "can't insert path node into table") + /* We found a match so we return immediately */ + HGOTO_DONE(1) + } /* end if */ + else { + /* See if we've seen this object before */ + if(H5SL_search(udata->ref_path_table, &objno)) + HGOTO_DONE(0) + else { + /* If not, we add it to the list of visited objects if it's ref count is > 1 */ + if(sb.nlink > 1) { + haddr_t *new_node; /* New path node for table */ + + /* Allocate new path node */ + if((new_node = H5FL_MALLOC(haddr_t)) == NULL) + HGOTO_ERROR(H5E_SYM, H5E_NOSPACE, FAIL, "can't allocate path node") + + /* Set node information */ + *new_node = objno; + + /* Insert into skip list */ + if(H5SL_insert(udata->ref_path_table, new_node, new_node) < 0) + HGOTO_ERROR(H5E_SYM, H5E_CANTINSERT, FAIL, "can't insert path node into table") + } /* end if */ + } /* end else */ + + /* If it's a group, we recurse into it */ + if(sb.type == H5G_GROUP) { + int last_obj; + size_t len; + + /* Build full path name of group to recurse into */ + len = HDstrlen(udata->container); + if(NULL == (udata->container = H5MM_realloc(udata->container, HDstrlen(udata->container) + HDstrlen(name) + 2))) + HGOTO_ERROR(H5E_SYM, H5E_NOSPACE, FAIL, "can't allocate path string") + HDstrcat(udata->container, name); + HDstrcat(udata->container, "/"); + + ret_value = H5G_obj_iterate(udata->file, udata->container, H5_ITER_INC, 0, &last_obj, H5G_refname_iterator, udata, udata->dxpl_id); + + /* If we didn't find the object, truncate the name to not include group name anymore */ + if(!ret_value) + udata->container[len] = '\0'; + } /* end if */ + } /* end else */ done: FUNC_LEAVE_NOAPI(ret_value) -} /* end H5G_ref_path_table_put() */ - - -/*------------------------------------------------------------------------- - * Function: H5G_init_ref_path_table - * - * Purpose: Enter the root group ("/") into the path table - * - * Return: Non-negative on success, negative on failure - * - * Programmer: Quincey Koziol - * - * Modifications: - * Leon Arber, Oct. 25, 2006. Moved into H5G from h5ls - * tools lib for looking up path to reference. - * - *------------------------------------------------------------------------- - */ -static herr_t -H5G_init_ref_path_table(hid_t fid) -{ - H5G_stat_t sb; - haddr_t objno; /* Compact form of object's location */ - char *root_path; - herr_t ret_value = 0; - - FUNC_ENTER_NOAPI_NOINIT_NOFUNC(H5G_init_ref_path_table) - - /* Create skip list to store reference path information */ - if((ref_path_table = H5SL_create(H5SL_TYPE_HADDR, 0.5, (size_t)16))==NULL) - ret_value = -1; - - if((root_path = HDstrdup("/")) == NULL) - ret_value = -1; - - if(H5Gget_objinfo(fid, "/", TRUE, &sb)<0) { - /* fatal error? */ - HDfree(root_path); - ret_value = -1; - } - objno = (haddr_t)sb.objno[0] | ((haddr_t)sb.objno[1] << (8 * sizeof(long))); - - /* Insert into table (takes ownership of path) */ - H5G_ref_path_table_put(root_path, objno); - - FUNC_LEAVE_NOAPI(ret_value); -} +} /* end H5G_refname_iterator() */ /*------------------------------------------------------------------------- - * Function: H5G_free_ref_path_info + * Function: H5G_free_ref_path_node * * Purpose: Free the key for a reference path table node * @@ -1140,167 +1137,20 @@ H5G_init_ref_path_table(hid_t fid) * Leon Arber, Oct. 25, 2006. Moved into H5G from h5ls * tools lib for looking up path to reference. * - *------------------------------------------------------------------------- - */ -static herr_t -H5G_free_ref_path_info(void *item, void UNUSED *key, void UNUSED *operator_data/*in,out*/) -{ - H5G_ref_path_node_t *node = (H5G_ref_path_node_t *)item; - - FUNC_ENTER_NOAPI_NOINIT_NOFUNC(H5G_free_ref_path_info) - - H5MM_xfree(node->path); - H5MM_xfree(node); - - FUNC_LEAVE_NOAPI(SUCCEED) -} - - -/*------------------------------------------------------------------------- - * Function: H5G_term_ref_path_table - * - * Purpose: Terminate the reference path table - * - * Return: Non-negative on success, negative on failure - * - * Programmer: Quincey Koziol - * - * Modifications: - * Leon Arber, Oct. 25, 2006. Moved into H5G from h5ls - * tools lib for looking up path to reference. + * Quincey Koziol, Nov. 3, 2006 + * Cleaned up code. * *------------------------------------------------------------------------- */ static herr_t -H5G_term_ref_path_table(void) +H5G_free_ref_path_node(void *item, void UNUSED *key, void UNUSED *operator_data/*in,out*/) { - FUNC_ENTER_NOAPI_NOINIT_NOFUNC(H5G_term_ref_path_table) + FUNC_ENTER_NOAPI_NOINIT_NOFUNC(H5G_free_ref_path_node) - /* Destroy reference path table, freeing all memory */ - if(ref_path_table) - H5SL_destroy(ref_path_table, H5G_free_ref_path_info, NULL); + H5FL_FREE(haddr_t, item); FUNC_LEAVE_NOAPI(SUCCEED) -} - - -/*------------------------------------------------------------------------- - * Function: H5G_ref_path_table_find - * - * Purpose: Looks up a table entry given a object number. - * Used during construction of the table. - * - * Return: TRUE/FALSE on success, can't fail - * - * Programmer: Quincey Koziol - * - * Modifications: - * Leon Arber, Oct. 25, 2006. Moved into H5G from h5ls - * tools lib for looking up path to reference. - * - *------------------------------------------------------------------------- - */ -static hbool_t -H5G_ref_path_table_find(haddr_t objno) -{ - hbool_t ret_value; - - HDassert(ref_path_table); - - FUNC_ENTER_NOAPI_NOINIT_NOFUNC(H5G_ref_path_table_find) - - if(H5SL_search(ref_path_table, &objno) == NULL) - ret_value = FALSE; - else - ret_value = TRUE; - - FUNC_LEAVE_NOAPI(ret_value); -} - - -/*------------------------------------------------------------------------- - * Function: H5G_refname_iterator - * - * Purpose: The iterator which traverses all objects in a file looking for - * one that matches the object that is being looked for. - * - * Return: 1 on success, 0 to continue searching, negative on failure. - * - * Programmer: Leon Arber, Nov 1, 2006. - * - * Modifications: - * - *------------------------------------------------------------------------- - */ -static herr_t -H5G_refname_iterator(hid_t group, const char *name, void *_iter) -{ - H5G_stat_t sb; - H5G_ref_path_iter_t *iter = (H5G_ref_path_iter_t*)_iter; - H5G_loc_t loc; - int ret_value = 0, last_obj; - - FUNC_ENTER_NOAPI_NOINIT(H5G_refname_iterator) - - if(H5G_loc(group, &loc) < 0) - HGOTO_ERROR(H5E_ARGS, H5E_BADTYPE, FAIL, "not a location") - - if(H5G_get_objinfo(&loc, name, 0, &sb, H5AC_ind_dxpl_id) < 0) - HGOTO_ERROR(H5E_ARGS, H5E_CANTINIT, FAIL, "cannot stat object") - - /* We hit an unknown type during iteration. Let's continue anyway */ - if(sb.type < 0 || sb.type >= H5G_NTYPES) - ret_value = 0; - else - { - haddr_t objno = (haddr_t)sb.objno[0] | ((haddr_t)sb.objno[1] << (8 * sizeof(long))); - - /* See if we've seen this object before */ - if (H5G_ref_path_table_find(objno)) - HGOTO_DONE(ret_value) - else - { - /* If not, we add it to the list of visited objects if it's ref count is > 1*/ - if(H5I_get_ref(group) > 1) - { - /* We don't really care about the path to this object in the table, since we're only going - * to be matching on objno */ - if(H5G_ref_path_table_put(NULL, objno) < 0) - HGOTO_ERROR(H5E_ARGS, H5E_CANTINIT, FAIL, "couldn't insert object into ref path table") - } - - ret_value = 0; - } - - if(iter->obj == objno) - { - /* We found a match so we return immediately */ - iter->container = H5MM_realloc(iter->container, HDstrlen(iter->container)+HDstrlen(name)+2); - iter->container = HDstrcat(iter->container,name); - - ret_value = 1; - } - else if(sb.type == H5G_GROUP) - { - /* It's a group, so we recurse into it */ - int len = HDstrlen(iter->container); - iter->container = H5MM_realloc(iter->container, HDstrlen(iter->container)+HDstrlen(name)+2); - iter->container = HDstrcat(iter->container,name); - HDstrcpy(iter->container+HDstrlen(iter->container), "/"); - - ret_value = H5G_obj_iterate(iter->file, iter->container, H5_ITER_INC, 0, &last_obj, H5G_refname_iterator, _iter, H5AC_ind_dxpl_id); - - /* If we didn't find the object, truncate the name to not include it anymore */ - if(!ret_value) - iter->container[len] = '\0'; - } - } - - /* Close the object. */ - -done: - FUNC_LEAVE_NOAPI(ret_value) -} +} /* end H5G_free_ref_path_node() */ /*------------------------------------------------------------------------- @@ -1316,41 +1166,50 @@ done: * Programmer: Leon Arber, Nov 1, 2006. * * Modifications: + * Quincey Koziol, Nov. 3, 2006 + * Cleaned up code. * *------------------------------------------------------------------------- */ static ssize_t -H5G_get_refobj_name(haddr_t id, hid_t file, char* name, size_t size) +H5G_get_refobj_name(haddr_t addr, hid_t file, char *name, size_t size, hid_t dxpl_id) { - const char *oname = "/"; - H5G_ref_path_iter_t udata; - int last_obj = 0; - ssize_t ret_value = 0; + H5G_ref_path_iter_t udata; /* User data for iteration */ + int last_obj = 0; /* Start object for iteration */ + ssize_t ret_value; /* Return value */ FUNC_ENTER_NOAPI_NOINIT(H5G_get_refobj_name) - /* Initialize the ref path table for tracking visited objects */ - H5G_init_ref_path_table(file); - - udata.container = H5MM_malloc(strlen(oname)+1); - HDstrcpy(udata.container, oname); + /* Set up user data for iterator */ udata.file = file; - udata.obj = id; + udata.dxpl_id = dxpl_id; + if(NULL == (udata.container = H5MM_strdup("/"))) + HGOTO_ERROR(H5E_SYM, H5E_NOSPACE, FAIL, "can't allocate root group name") + udata.obj = addr; - if((ret_value = H5G_obj_iterate(file, oname, H5_ITER_INC, 0, &last_obj, H5G_refname_iterator, &udata, H5AC_ind_dxpl_id))< 0) + /* Create skip list to store reference path information */ + if((udata.ref_path_table = H5SL_create(H5SL_TYPE_HADDR, 0.5, (size_t)16)) == NULL) + HGOTO_ERROR(H5E_SYM, H5E_CANTCREATE, FAIL, "can't create skip list for path nodes") + + /* Iterate over all the objects in the file */ + if((ret_value = H5G_obj_iterate(file, "/", H5_ITER_INC, 0, &last_obj, H5G_refname_iterator, &udata, dxpl_id)) < 0) HGOTO_ERROR(H5E_SYM, H5E_BADITER, FAIL, "group iteration failed while looking for object name") - else if(ret_value == 0) - HGOTO_DONE(ret_value) - else if(HDstrlen(udata.container) >= size) - ret_value = HDstrlen(udata.container) + 1; - else { - HDstrncpy(name, udata.container, size); - ret_value = HDstrlen(udata.container) + 1; - } /* end else */ + else if(ret_value > 0) { + /* Set the length of the full path */ + ret_value = HDstrlen(udata.container) + 1; + + /* If there's a buffer provided, copy into it, up to the limit of its size */ + if(name) { + HDstrncpy(name, udata.container, size); + if((size_t)ret_value >= size) + name[size - 1] = '\0'; + } /* end if */ + } /* end if */ done: - H5G_term_ref_path_table(); H5MM_xfree(udata.container); + if(udata.ref_path_table) + H5SL_destroy(udata.ref_path_table, H5G_free_ref_path_node, NULL); FUNC_LEAVE_NOAPI(ret_value) } /* end H5G_get_refobj_name() */ diff --git a/src/H5Gnode.c b/src/H5Gnode.c index 9824a8c..ac74dfa 100644 --- a/src/H5Gnode.c +++ b/src/H5Gnode.c @@ -150,9 +150,6 @@ H5FL_SEQ_DEFINE_STATIC(size_t); /* Declare a free list to manage the raw page information */ H5FL_BLK_DEFINE_STATIC(grp_page); -/* Declare extern the free list to manage haddr_t's */ -H5FL_EXTERN(haddr_t); - /*------------------------------------------------------------------------- * Function: H5G_node_get_shared diff --git a/src/H5Gprivate.h b/src/H5Gprivate.h index 2bbc540..80a1df9 100644 --- a/src/H5Gprivate.h +++ b/src/H5Gprivate.h @@ -185,7 +185,7 @@ H5_DLL herr_t H5G_name_replace(H5G_obj_t type, H5G_loc_t *loc, H5_DLL herr_t H5G_name_reset(H5G_name_t *name); H5_DLL herr_t H5G_name_copy(H5G_name_t *dst, const H5G_name_t *src, H5_copy_depth_t depth); H5_DLL herr_t H5G_name_free(H5G_name_t *name); -H5_DLL ssize_t H5G_get_name(hid_t id, char *name/*out*/, size_t size); +H5_DLL ssize_t H5G_get_name(hid_t id, char *name/*out*/, size_t size, hid_t dxpl_id); /* * These functions operate on group "locations" @@ -2002,7 +2002,7 @@ H5Iget_name(hid_t id, char *name/*out*/, size_t size) H5TRACE3("Zs","ixz",id,name,size); /* Call internal group routine to retrieve object's name */ - if((ret_value = H5G_get_name(id, name, size)) < 0) + if((ret_value = H5G_get_name(id, name, size, H5AC_ind_dxpl_id)) < 0) HGOTO_ERROR(H5E_ATOM, H5E_CANTGET, FAIL, "can't retrieve object name") done: |