Function do_dungeon

util/makedefs.c:2055–2104

 */

void
do_dungeon(void)
{
    char *line, greptmp[8 + 1 + 3 + 1];

    Sprintf(greptmp, "grep-%.3s.tmp", "dun");
    Sprintf(filename, DATA_IN_TEMPLATE, DGN_I_FILE);
    if (!(ifp = fopen(filename, RDTMODE))) {
        perror(filename);
        makedefs_exit(EXIT_FAILURE);
        /*NOTREACHED*/
    }
    filename[0] = '\0';
#ifdef FILE_PREFIX
    Strcat(filename, file_prefix);
#endif
    Sprintf(eos(filename), DGN_TEMPLATE, DGN_O_FILE);
    if (!(ofp = fopen(filename, WRTMODE))) {
        perror(filename);
        makedefs_exit(EXIT_FAILURE);
        /*NOTREACHED*/
    }
    Fprintf(ofp, "%s", Dont_Edit_Data);

    tfp = getfp(DATA_TEMPLATE, greptmp, WRTMODE, FLG_TEMPFILE);
    grep0(ifp, tfp, FLG_TEMPFILE);
#ifndef HAS_NO_MKSTEMP
    ifp = tfp;
#else
    ifp = getfp(DATA_TEMPLATE, greptmp, RDTMODE, 0);
#endif
    set_fgetline_context(NULL, FALSE, TRUE);
    while ((line = fgetline(ifp)) != 0) {
        SpinCursor(3);

        if (line[0] == '#') {
            free((genericptr_t) line);
            continue; /* discard comments */
        }
        (void) fputs(line, ofp);
        free((genericptr_t) line);
    }
    Fclose(ifp);
    Fclose(ofp);

#ifdef HAS_NO_MKSTEMP
    delete_file(DATA_TEMPLATE, greptmp);
#endif
    return;
}

/* obsolete */
void