ГОСТ Р ИСО/ТС 10303-26—2015
: %s",myenumval, er.um_name);
GOTO_ERR;
fprintf(rep_file,"Sd
break;
case H5T_VLEN:
memcpy(&myvlen,mybuffer - myoffset,sizeof(hvl_t>);
if<rstat - dump_vlen_data<mymember_type,myvlen.len,myvlen.p))
GOTO_ERR;
break;
default:
fprintf{rep_file,"\nOOPS! Unhandeled datatype");
— level;
err:
return<rstat>;
)
/ / .....................................................................................................................................................
// Dump referenced aggregate
/ / .....................................................................................................................................................
long dump_aggr_by reference(hid_t obj_tid, hobj_ref_t myref)
(
longmystatus;
hid_tdataset_reg;
mystatus - 0;
dump_in_aggr_mode - 1;
+*level;
/ /
// Get the reference
/ /
dataset_reg - H5Rdereference(obj_tid, H5R_OBJECT,imyref);
if(dataset_reg < 0>{
mystatus - -1;
GOTO_LRR;
1
//
// Dump the refered aggregate
/ /
mystatus - dump_dataset(dataset_reg);
--level;
err:
dump_in_aggr_mode - 0;
return <mystatus);
\
/ / .................................................................................................................
..
...............................-
// Dump referenced instance
//...........................................................................
.......
......................................
long dump_instance_by_reference(hid_t dataset_tid, long dataset_index,
long instance_index)
I
longrstat;
hid_tmydataset_filespace;
hid_tdatasetdatatype;
size_tdataset_datatype_size;
hsize tmydim[1);
hid_t~mymem_space;
hsize_tmycoord’1]*1];
char •dataset buffer;
//
// Read the selected instance
61