ГОСТ Р ИСОГГС 10303-26—2015
hid_t attr_type_tid;
hid_t native_type_tid;
obj_ref_tid - HSTcopy(H5T_STD_REF_OBJ);
rep_file - fopen(REPORT_FILL,"w");
fprintf <rep_file,"\nWriting %s",REPGRT_F1LE>;
/ /
// Create HDF5 file
/ /
file_id - H5Fcreate(HDF5_F1LE, H5F_ACC_TRUNC, H5P_DEFA(JLT,
H5P_DEFAULT>;
/ /
// Create group for schemata
/ /
if(mystatus - create_schema_group(file_id, "Geometry_encoding",
"Geometry_schema"f &group_id)> G0TC_ERR;
/ /
// Create group for the population
/ /
if(mystatus - create_pop_group(file_id, "Geometry_populatior.",
"Georoetry_schema", &pop_id>) GOTC_ERR;
/ /
// HDF5 definitions
/ /
if(mystatus - define_instance_reference(groupid)) GOTO_ERR;
if(mystatus - define_compound_point(group_id,&p_tid)) GOTO_ERR;
if(mystatus - define_colour_er.umeratior.(group_id, &eenum_col_tid)
)
GOTO_ERR ;
if(mystatus - define_compound_colour(group_id, eenum_col_tid,
&cc_tid)> GOTO_ERR;
if(mystatus - define_compound_line<group_id,cc_tid,£l_tid)) G0T0_ERR;
if(mystatus - define_compound_land_survey(group_id, &lls_tid))
GOTO_ERR;
/ /
// HDF5 population
/ /
if(mystatus - create_ppoints(pop_id, p_tid)) GOTO_ERR;
if(mystatus - create_llines(pop_id, l_tid>) GOTO_ERR;
if(mystatus - create_survey(pop_id, lls_tid, p_tid>) GOTOERR;
/ /
// Dump HDF5 population
/ /
attr_tid - H5Aopen_name(popid, "_10303_26_data_set_names");
if(attr_tid > 0)(
attr_type_tid - H5Aget_type(attr_tid);
native_type_tid - H5Tget_native_type(attr_type_tid,H5T_DIR_A3CEND);
if(mystatus - H5Aread(attr_tid, native_type_tid, er.tity_r.ames)}
goto err;
if(mystatus - H5Aclose<attr_tid)> goto err;
if(mystatus - H5Tclose<attr_type_tid)> goto err;
if(mystatus - H5Tclose(native_type_tid)) goto err;
) else 1
mystatus *--1;
goto err;
>
fprintf(rep_file,"\n\n-----------------------------------------------
56