| 580 | // |
| 581 | |
| 582 | void FTN_fini() |
| 583 | { |
| 584 | if (!gpreGlob.global_db_count) |
| 585 | return; |
| 586 | |
| 587 | fprintf(gpreGlob.out_file, "\n"); |
| 588 | printa(COLUMN, "BLOCK DATA"); |
| 589 | |
| 590 | const dbd* db_list = gpreGlob.global_db_list; |
| 591 | for (const dbd* const end = gpreGlob.global_db_list + gpreGlob.global_db_count; |
| 592 | db_list < end; ++db_list) |
| 593 | { |
| 594 | const TEXT* name = db_list->dbd_name; |
| 595 | fprintf(gpreGlob.out_file, "%sINTEGER*4 %s %s{ database handle }\n", |
| 596 | COLUMN, name, INLINE_COMMENT); |
| 597 | fprintf(gpreGlob.out_file, "%sCOMMON /%s/ %s\n", COLUMN, name, name); |
| 598 | fprintf(gpreGlob.out_file, "%sDATA %s /0/ %s{ init database handle }\n", |
| 599 | COLUMN, name, INLINE_COMMENT); |
| 600 | } |
| 601 | printa(COLUMN, "END"); |
| 602 | } |
| 603 | |
| 604 | |
| 605 | //____________________________________________________________ |