ГОСТ Р ИСО/ТС 10303-26—2015
char‘mybuffer;
mysize - H5Tget_size(ls_tid);
mybuffer - (char*) malloc(mysize);
buffer - mybuffer;
if(rstat - create_many_points(group_id, p_tid)) goto err;
obj_group - H5Gcreate(group_id, ”Land_survey_objects", H5P_DEFAULT,
H5P_DE FAULT, H5P_DEFAULT);
vlen_of_vlen_double_tid -•define_nested_real_aggr();
vlen_of_vlen_ref_tid - define_nested_ref_aggr();
if(rstat - create_nested_real_aggr(obj_group,
vlen_of_vlen_double_tid,Avlen_data)) goto err;
if(rstat - create_nested_point_aggr(obj_group,vlen_of_vlen_ref_tid>)
goto err;
memset(mybuffer,0,mysize);
myinteger - 15;
memcpy(mybuffer,smyinteger,sizeof(long));
mybuffer +- sizeof(long);
myinteger - 25;
memcpy(mybuffer,fimyinteger,sizeof(long));
mybuffer +- sizeof(long);
memcpy(mybuffer,inorway,sizeof(char*));
mybuffer +- sizeof(char*);
mychar - (char)l;
memcpy(mybuffer,imychar,sizeof(char));
mybuffersizeof(char);
if(rstat - H5Rcreate(Sobjref, obj_group, ’’/Geometry_population/
Land_3urvey_objects/Aggr-propertie3-l", H5R_0BJECT, -1>) goto err;
memcpy(mybuffer,iobjref,sizeof <hobj_ref_t));
mybuffer +- sizeof(hcbj_ref_t);
mybuffer +- sizeof(hvl_t) ;
mychar - (char)0;
memcpy(mybuffer,imychar,sizeof(char));
mybuffer +- sizeof(char);
mybuffer +- sizeof(hobj_ref_t);
memcpy(mybuffer,vlen_data,sizeof(hvlt));
/ /
// Create the LAND SURVEY dataset
/ /
mydim(0j - 1;
myspace - H5Screate_simple(1, mydim, NULL);
ls_dataset - H5Dcreatel(obj_group, "Land_survey_instances”, ls_tid,
myspace, H5P_DEFAULT);
//
// Write lines to file
/ /
if(rstat - HSDwrite(ls_dataset, ls_tid, H5S_ALL, H5SALL,
H5P_DEFAULT, buffer)) goto err;
err:
free(mybuffer);
return(rstat);
39