fprintf (rep_file,"\n\r.
--------------------
ГОСТ Р ИСО/ТС 10303-26—2015
-------------------------------------------------------------------------••) ;
dataset - H5Dopen(file_id, "/Geometry_population/Lir.e_objects/
Line_ir>stances", H5P_DEE’AL’LT);
if(mystatus - dump_dataset(dataset)) GOTO_ERR;
if(mystatus - H5Dclose(dataset)) GOTO_ERR;
----------------------------------------------------------------------- «);
--
-
----
-------
-
-----------
dataset - H5Dopen(file_id, "/Geometry_population/Land_survey_objects/
Land_survey_instances", H5P_DEFAULT);
if(mystatus - dump_dataset(dataset)) GOTO_ERR;
if(mystatus - HSDclose(dataset)) GOTO_ERR;
if(mystatus - HSE’close(file id)) GOTO_£RR;
goto ret;
err:
fprintf(rep_file,"\n\nERR0R caught");
mystatus - H5Eprint2(H5E_DEFAULT, rep_file);
ret:
fprintf (rep_file,"\n\r.Closing report file");
fclose(rep_file);
return(mystatus);
n
............................
// Oump dataset
/ / - ..........................
long dump_dataset(hid_t mydataset)
herr_trstat;
hid_tmydataset_datatype;
H5T_class_t mydataset_datatype_class;
hsize_ tmvdataset_datatype_size;
hid_tmydataset_filespace;
h3size_t mydataset_noel;
hvl_tmyvlen;
longix;
charvmybuffer;
long myinteger;
doublemyreal;
class, space and size
- H5Dget_type(mydataset);
- H5Tget_class(mydataset_datatype);
- H5Tget_size(mydataset_datatype);
- H5Dget_space(mydataset);
/ /
/ /
Get the datasets datatype,
/ /
mydataset_datatype
mydataset_datatype_class
mydataset_datatype_size
mydataset_filespace
/ /
/ /
Read the dataset
/ /
mydataset_noel - H5Sget_simple_extent_npoints(mydataset filespace) ;
mybuffer - (char*) malioc((sizet)
<mydataset_dacatype_size*mydataset_noel));
if(mydataset_datatype_class — H5T_STR1NG)(
if(rstat - H5Dread(mydataset, mydataset_datatype,
mydataset_filespace, mydataset_filespace, H5P_DEFAL’LT, imybuffer))
57