ГОСТ Р ИСО/ТС 10303-26—2015
char “mybuffer)
{
hsize_t
int
long
long
long
long
long
herr_t
char
hvl_t
hsize_t
hsize_t
hsize_t
hid_t
hid_t
H5T_class_t
long
double
shore
char
char
hobj_ref_t
enum colors_t
char
mycompound_type_size;
mycompound_type_members;
dataset_index;
instance_index;
obj_ref_or_vlen;
jx ;
len;
rstac;
*mymemberename;
rnyvlen;
mymember_offset;
myoffset;
mymember_type_size;
mymember_type;
datasec_tid;
mymember_class;
myinteger;
myreal;
myenumval;
’mystring;
enum_name
;
10
] ;
oЬj_ref ;
mycoior;
dataset_name
’1Q0
];
rstac - 0;
mymember_name- H5Tget_member_name(mycompour.d_type,0);
if(Istrcmp(mymember name,"_HDF5_dataset_index_’’)){
memepy(£dataset_index,mybuffer+curr_offset,sizeof(long));
memepy(Sinstar.ce_index,mybuf fer+curr_offset-*(sizeof(long)),sizeof(long));
strepy(dataset_name,"/Geometry_population/");
streat (dataset_name,entity_names{dataset_index]);
streat(dataset_name,"_objects/");
streat(dataset_name,entity_names|dataset_index]);
streat (dataset_name, "_instances") ;
dataset_tid H5Dopen(file_id, dataset_name, H5P_DEFAULT);
if(rstat - dump_instance_by_reference(dataset_tid,dataset_index,
instance_ir.dex)) GOTG_ERR;
if(rstat - H5Dclose(dataset_tid)) GOTO_ERR;
return(rstat) ;
if(!stremp(mymembername,"obj_ref_or_vlen"))(
obj_ref_or_vlen - (long)*(mybuffer *curr_offset);
if(obj_ref_or_vlen — 1)(
curr_offsetsizeof(char);
memepy(Sobj_ref,mybuffer curr_offset,sizeof(hobj_ref_t));
if(rstat - dump_aggr_by_reference(mycompoundtype,obj_ref))
G0T0_KRR;
return(rstat);
if(obj_ref_or_vlen — 0)(
curr_offset — sizeof(char) + sizeof(hobj_ref_t);
memepy(Smyvlen,mybuffer * curr_offset,sizeof(hvl_t));
mymember_type - H5Tget_member_type(mycompound_type,2);
if(rstat - dump_vlen_data(mymember_type,rnyvlen.len,myvler..p))
G0T0_ERR;
return(rstat);
59