[svn-r8121] Purpose:

bug fix

Description:
avoid reading and writing data when one of the dimensions is 0 (attributes case )

Solution:
linux
solaris
AIX

Platforms tested:

Misc. update:
This commit is contained in:
Pedro Vicente Nunes 2004-01-28 14:07:21 -05:00
parent 500292582f
commit 48c7a5e35e
3 changed files with 124 additions and 138 deletions

View File

@ -166,8 +166,6 @@ int do_copy_refobjs(hid_t fidin,
void read_info(const char *filename,pack_opt_t *options);
void close_obj(H5G_obj_t obj_type, hid_t obj_id);
void init_packobject(pack_info_t *obj);
int print_filters(hid_t dcpl_id);

View File

@ -50,7 +50,7 @@ int main(int argc, char **argv)
}
else if (strcmp(argv[i], "-f") == 0) {
/* add the -t option */
/* add the -f filter option */
h5repack_addfilter(argv[i+1],&options);
/* jump to next */
@ -58,7 +58,7 @@ int main(int argc, char **argv)
}
else if (strcmp(argv[i], "-l") == 0) {
/* parse the -c option */
/* parse the -l layout option */
h5repack_addlayout(argv[i+1],&options);
/* jump to next */
@ -75,7 +75,7 @@ int main(int argc, char **argv)
++i;
}
else if (strcmp(argv[i], "-f") == 0) {
else if (strcmp(argv[i], "-e") == 0) {
read_info(argv[++i],&options);
}

View File

@ -22,6 +22,9 @@
static const char* MapIdToName(hid_t refobj_id,
trav_table_t *travt);
static void close_obj(H5G_obj_t obj_type, hid_t obj_id);
static int copy_refs_attr(hid_t loc_in,
hid_t loc_out,
pack_opt_t *options,
@ -64,8 +67,6 @@ int do_copy_refobjs(hid_t fidin,
hsize_t dims[H5S_MAX_RANK];/* dimensions of dataset */
int i, j;
/* initialize to test for non reference cases */
/*-------------------------------------------------------------------------
* browse
*-------------------------------------------------------------------------
@ -73,7 +74,6 @@ int do_copy_refobjs(hid_t fidin,
for ( i = 0; i < travt->nobjs; i++)
{
switch ( travt->objs[i].type )
{
/*-------------------------------------------------------------------------
@ -181,13 +181,12 @@ int do_copy_refobjs(hid_t fidin,
/* create the reference, -1 parameter for objects */
if (H5Rcreate(&refbuf[u],fidout,refname,H5R_OBJECT,-1)<0)
goto error;
if (options->verbose)
printf("object <%s> object reference created to <%s>\n",
travt->objs[i].name,
refname);
close_obj(obj_type,refobj_id);
}/*refname*/
close_obj(obj_type,refobj_id);
}/* u */
}/*nelmts*/
@ -260,23 +259,19 @@ int do_copy_refobjs(hid_t fidin,
if ((refname=MapIdToName(refobj_id,travt))!=NULL)
{
hid_t region_id; /* region id of the referenced dataset */
if ((region_id = H5Rget_region(dset_in,H5R_DATASET_REGION,&buf[u]))<0)
goto error;
/* create the reference, we need the space_id */
if (H5Rcreate(&refbuf[u],fidout,refname,H5R_DATASET_REGION,region_id)<0)
goto error;
if (H5Sclose(region_id)<0)
goto error;
if (options->verbose)
printf("object <%s> region reference created to <%s>\n",
travt->objs[i].name,
refname);
close_obj(obj_type,refobj_id);
}/*refname*/
close_obj(obj_type,refobj_id);
}/* u */
}/*nelmts*/
@ -518,16 +513,18 @@ static int copy_refs_attr(hid_t loc_in,
{
H5G_obj_t obj_type;
hid_t refobj_id;
hobj_ref_t *refbuf;
hobj_ref_t *refbuf=NULL;
unsigned k;
const char* refname;
hobj_ref_t *buf;
hobj_ref_t *buf=NULL;
/*-------------------------------------------------------------------------
* read input to memory
*-------------------------------------------------------------------------
*/
if (nelmts)
{
buf=(void *) HDmalloc((unsigned)(nelmts*msize));
if ( buf==NULL){
printf( "cannot read into memory\n" );
@ -545,9 +542,10 @@ static int copy_refs_attr(hid_t loc_in,
}
for ( k=0; k<nelmts; k++)
{
H5E_BEGIN_TRY {
if ((refobj_id = H5Rdereference(attr_id,H5R_OBJECT,&buf[k]))<0)
goto error;
} H5E_END_TRY;
/* get the name. a valid name could only occur in the
second traversal of the file */
if ((refname=MapIdToName(refobj_id,travt))!=NULL)
@ -555,13 +553,12 @@ static int copy_refs_attr(hid_t loc_in,
/* create the reference */
if (H5Rcreate(&refbuf[k],fidout,refname,H5R_OBJECT,-1)<0)
goto error;
if (options->verbose)
printf("object <%s> reference created to <%s>\n",name,refname);
}
close_obj(obj_type,refobj_id);
}/* i */
}/* k */
}/*nelmts*/
/*-------------------------------------------------------------------------
* copy
@ -570,13 +567,17 @@ static int copy_refs_attr(hid_t loc_in,
if ((attr_out=H5Acreate(loc_out,name,ftype_id,space_id,H5P_DEFAULT))<0)
goto error;
if (nelmts) {
if(H5Awrite(attr_out,mtype_id,refbuf)<0)
goto error;
}
if (H5Aclose(attr_out)<0)
goto error;
if (refbuf)
free(refbuf);
if (buf)
free(buf);
}/*H5T_STD_REF_OBJ*/
@ -589,16 +590,18 @@ static int copy_refs_attr(hid_t loc_in,
{
H5G_obj_t obj_type;
hid_t refobj_id;
hdset_reg_ref_t *refbuf; /* input buffer for region references */
hdset_reg_ref_t *buf; /* output buffer */
hdset_reg_ref_t *refbuf=NULL; /* input buffer for region references */
hdset_reg_ref_t *buf=NULL; /* output buffer */
const char* refname;
unsigned u;
unsigned k;
/*-------------------------------------------------------------------------
* read input to memory
*-------------------------------------------------------------------------
*/
if (nelmts)
{
buf=(void *) HDmalloc((unsigned)(nelmts*msize));
if ( buf==NULL){
printf( "cannot read into memory\n" );
@ -606,7 +609,6 @@ static int copy_refs_attr(hid_t loc_in,
}
if (H5Aread(attr_id,mtype_id,buf)<0)
goto error;
if ((obj_type = H5Rget_obj_type(attr_id,H5R_DATASET_REGION,buf))<0)
goto error;
@ -620,34 +622,30 @@ static int copy_refs_attr(hid_t loc_in,
printf( "cannot allocate memory\n" );
goto error;
}
for ( u=0; u<nelmts; u++)
for ( k=0; k<nelmts; k++)
{
H5E_BEGIN_TRY {
if ((refobj_id = H5Rdereference(attr_id,H5R_DATASET_REGION,&buf[u]))<0)
if ((refobj_id = H5Rdereference(attr_id,H5R_DATASET_REGION,&buf[k]))<0)
continue;
} H5E_END_TRY;
/* get the name. a valid name could only occur in the
second traversal of the file */
if ((refname=MapIdToName(refobj_id,travt))!=NULL)
{
hid_t region_id; /* region id of the referenced dataset */
if ((region_id = H5Rget_region(attr_id,H5R_DATASET_REGION,&buf[u]))<0)
if ((region_id = H5Rget_region(attr_id,H5R_DATASET_REGION,&buf[k]))<0)
goto error;
/* create the reference, we need the space_id */
if (H5Rcreate(&refbuf[u],fidout,refname,H5R_DATASET_REGION,region_id)<0)
if (H5Rcreate(&refbuf[k],fidout,refname,H5R_DATASET_REGION,region_id)<0)
goto error;
if (H5Sclose(region_id)<0)
goto error;
if (options->verbose)
printf("object <%s> region reference created to <%s>\n",name,refname);
}
close_obj(obj_type,refobj_id);
}/* u */
}/* k */
}/*nelmts */
/*-------------------------------------------------------------------------
* copy
@ -656,18 +654,18 @@ static int copy_refs_attr(hid_t loc_in,
if ((attr_out=H5Acreate(loc_out,name,ftype_id,space_id,H5P_DEFAULT))<0)
goto error;
if (nelmts) {
if(H5Awrite(attr_out,mtype_id,refbuf)<0)
goto error;
}
if (H5Aclose(attr_out)<0)
goto error;
if (refbuf)
free(refbuf);
if (buf)
free(buf);
} /* H5T_STD_REF_DSETREG */
/*-------------------------------------------------------------------------
* close
*-------------------------------------------------------------------------
@ -700,10 +698,12 @@ error:
*-------------------------------------------------------------------------
*/
void close_obj(H5G_obj_t obj_type, hid_t obj_id)
static void close_obj(H5G_obj_t obj_type, hid_t obj_id)
{
switch (obj_type) {
H5E_BEGIN_TRY
{
switch (obj_type)
{
case H5G_GROUP:
H5Gclose(obj_id);
break;
@ -714,9 +714,9 @@ void close_obj(H5G_obj_t obj_type, hid_t obj_id)
H5Tclose(obj_id);
break;
default:
assert(0);
break;
}
} H5E_END_TRY;
}
/*-------------------------------------------------------------------------
@ -737,7 +737,6 @@ static const char* MapIdToName(hid_t refobj_id,
/* obtains the file ID given an object ID. This ID must be closed */
if ((fid = H5Iget_file_id(refobj_id))<0)
{
assert(0);
return NULL;
}
@ -747,11 +746,6 @@ static const char* MapIdToName(hid_t refobj_id,
switch ( travt->objs[i].type )
{
default:
assert(0);
break;
case H5G_GROUP:
case H5G_TYPE:
case H5G_LINK:
break;
/*-------------------------------------------------------------------------
@ -762,15 +756,9 @@ static const char* MapIdToName(hid_t refobj_id,
case H5G_DATASET:
if ((id = H5Dopen(fid,travt->objs[i].name))<0)
{
assert(0);
return NULL;
}
if (H5Dclose(id)<0)
{
assert(0);
return NULL;
}
if (id==refobj_id)
{
H5Fclose(fid);