| 1339 | // |
| 1340 | |
| 1341 | static void gen_database() |
| 1342 | { |
| 1343 | if (global_first_flag) |
| 1344 | return; |
| 1345 | |
| 1346 | global_first_flag = true; |
| 1347 | |
| 1348 | sprintf(output_buffer, "\n%s **** GDS Preprocessor Definitions ****\n\n", COMMENT); |
| 1349 | FTN_print_buffer(output_buffer); |
| 1350 | |
| 1351 | gen_database_decls(); //(action); |
| 1352 | gen_database_data(); //(action); |
| 1353 | |
| 1354 | printa(COMMENT, "**** end of GPRE definitions ****\n"); |
| 1355 | } |
| 1356 | |
| 1357 | |
| 1358 | //____________________________________________________________ |
no test coverage detected