Function check_panic_save

src/files.c:1311–1352

called if there is no save file for current character */

/* called if there is no save file for current character */
int
check_panic_save(void)
{
    int result = 0;
#ifdef CHECK_PANIC_SAVE
    FILE *cf;
    const char *savef;

    set_error_savefile();
    savef = fqname(gs.SAVEF, SAVEPREFIX, 0);

    /*
     * This duplicates part of docompress_file().
     * We don't want to start by uncompressing just to check for the
     * file's existence and then have to recompress it.
     */

#ifdef COMPRESS_EXTENSION
    unsigned ln = (unsigned) (strlen(savef) + strlen(COMPRESS_EXTENSION));
    char *cfn = (char *) alloc(ln + 1);

    Strcpy(cfn, savef);
    Strcat(cfn, COMPRESS_EXTENSION);
    if ((cf = fopen(cfn, RDBMODE)) != NULL) {
        (void) fclose(cf);
        result = 1;
    }
    free((genericptr_t) cfn);
#endif /* COMPRESS_EXTENSION */

    if (!result) {
        /* maybe it has already been manually uncompressed */
        if ((cf = fopen(savef, RDBMODE)) != NULL) {
            (void) fclose(cf);
            result = 1;
        }
    }

    set_savefile_name(TRUE); /* reset to normal */
#endif /* CHECK_PANIC_SAVE */
    return result;
}

#if defined(SELECTSAVED)