ГОСТ Р ИСО/ТС 10303-26—2015
externhid_t file_id;
extern char ‘defined_entity_names[NUMBER_0F_ENT1TIES; -
|"Point","Mar.y_Poir.t","Line","Land_survey" );
extern char *entity_names ;NUMBER_0F_ENT1T1ES] ;
hid_t obj_ref_tid;
long level - 0;
long currentline;
char *currer.t_file;
long dump_in_aggr_mode - Gr
adefine GOTO_ERR\
{ \
current_file -
FILE
;
\
current_line *- LINE ;\
error_trap(current_file,current_line);\
goto err;\
I
/ /
/ / .....................................................................................................................................................
//
void error_trap(char ’*file_nairie, long liner.o)
{
fprintf(rep_file,"\nERR0R trapped in *%s’ at line: %lu",fiie_name,
lineno);
}
void indent(void)
l
long ix;
fprintf <rep_file,"\n");
for{ix - 0; ix< level;
i x-* *){
fprintf<rep_file," ">;
void indent_r.lf(void)
{
long ix;
for(ix - 0; ix< level; ix+*) {
fprintf(rep_file,"
/ / - .................................................................
// MAIN program
/ / ...................................................................
int main{int argc, char* argvf])
herr_t mystatus;
hid_t dataset;
hid t groupid;
hid_t p tid;
hid_t 1 tid;
hid_t lls_tid;
hid_t eenum_col_tid;
hid_t cc_tid;
hid_t pop_id;
hid t attr tid;
55