| 533 | } |
| 534 | |
| 535 | static FILE *open_wrapper(void) |
| 536 | { |
| 537 | char filename[MAX_PARMSIZE + 8]; |
| 538 | FILE *stream; |
| 539 | |
| 540 | snprintf(filename, MAX_PARMSIZE + 7, "WRAP_%s.c", g_parm[NAME_INDEX]); |
| 541 | filename[MAX_PARMSIZE + 7] = '\0'; |
| 542 | |
| 543 | stream = fopen(filename, "w"); |
| 544 | |
| 545 | if (stream == NULL) |
| 546 | { |
| 547 | fprintf(stderr, "Failed to open %s: %s\n", filename, strerror(errno)); |
| 548 | exit(10); |
| 549 | } |
| 550 | |
| 551 | return stream; |
| 552 | } |
| 553 | |
| 554 | static void generate_wrapper(int nfixed, int nparms) |
| 555 | { |