ГОСТ Р ИСО/ТС 10303-26—2015
p_myvlen +- sizeof(long);
fprintf(repfile," %lu ”,myinteger);
break;
case H5T_FL0AT:
memcpy(imyreal,p_myvlen,sizeof(double));
p_myvlen +- sizeof(double);
fprintf(repfile," %f ”,myreal);
break;
case H5T_VLEN:
memcpy(imyvlen,p_myvlen,sizeof(hvl_t));
iflrstat - dump_vlen_data(super_tid,myvlen.ler.,myvlen.p))
GOTO_£RR;
p_myvlensizeof (hvl_t);
break;
case H5T_C0MP0UND:
indent();
if(rstat - dump_compound(super_tid,0,p_myvlen)) G0TG_ERR;
p_myvlen +- super_size;
break;
case H5T_R£fc’ERENCE:
if(H5Tequal(obj_ref_tid,super_tid>){
indent();
memcpy(&obj_ref,p_myvlen,sizeof(hobj_ref_t));
if(rstat - dump_aggr_by_reference(super_tid,obj_ref))
G0?0_ERR;
p_myvlen *•-super_size;
)
break;
case H5T_£Nl)M:
memcpy(imycolor,p_myvlen, sizeof (er.um colors_t)) ;
p_myvlen +- sizeof(enum colors_t);
if(rstat - H57er.um_nameof(super_tid,amycolor,enum_name, 10))
G0T0_£RR;
if(rstat - H5Tenum_valueof(super_tid,enum_name, fimyer.umval))
GOTO_£RR;
fprintf(repfile,"%d : %s”,myenumval,enum_name);
break;
default:
fprintf(rep_file,”\nOOPS! Ur.handeled datatype”);
indent();
fprintf(rep_file,")*);
— level;— level;
err:
return(rstat) ;
)
/ /
// Get dataset index
/ /
long get_dataset_ir.dex(char *entity_name)
I
long dataset_index,i;
dataset_index - -1;
for(i-0; i<KUMBER_OF_ENTlT
1
£S; +*i){
if<!strcmp(defined_entity_names[i],entity_name
) )
i
return(i);
>
\
63