Function fopen_wizkit_file

src/files.c:2464–2533

/* ----------  BEGIN WIZKIT FILE HANDLING ----------- */

staticfn FILE *
fopen_wizkit_file(void)
{
    FILE *fp;
#if defined(VMS) || defined(UNIX)
    char tmp_wizkit[BUFSZ];
#endif
    char *envp;

    envp = nh_getenv("WIZKIT");
    if (envp && *envp)
        (void) strncpy(gw.wizkit, envp, WIZKIT_MAX - 1);
    if (!gw.wizkit[0])
        return (FILE *) 0;

#ifdef UNIX
    if (access(gw.wizkit, 4) == -1) {
        /* 4 is R_OK on newer systems */
        /* nasty sneaky attempt to read file through
         * NetHack's setuid permissions -- this is a
         * place a file name may be wholly under the player's
         * control
         */
        raw_printf("Access to %s denied (%d).", gw.wizkit, errno);
        wait_synch();
        /* fall through to standard names */
    } else
#endif
        if ((fp = fopen(gw.wizkit, "r")) != (FILE *) 0) {
        return fp;
#if defined(UNIX) || defined(VMS)
    } else {
        /* access() above probably caught most problems for UNIX */
        raw_printf("Couldn't open requested wizkit file %s (%d).", gw.wizkit,
                   errno);
        wait_synch();
#endif
    }

#if defined(MICRO) || defined(MACOS9) || defined(__BEOS__) || defined(WIN32)
    if ((fp = fopen(fqname(gw.wizkit, CONFIGPREFIX, 0), "r")) != (FILE *) 0)
        return fp;
#else
#ifdef VMS
    envp = nh_getenv("HOME");
    if (envp)
        Sprintf(tmp_wizkit, "%s%s", envp, gw.wizkit);
    else
        Sprintf(tmp_wizkit, "%s%s", "sys$login:", gw.wizkit);
    if ((fp = fopen(tmp_wizkit, "r")) != (FILE *) 0)
        return fp;
#else /* should be only UNIX left */
    envp = nh_getenv("HOME");
    if (envp)
        Sprintf(tmp_wizkit, "%s/%s", envp, gw.wizkit);
    else
        Strcpy(tmp_wizkit, gw.wizkit);
    if ((fp = fopen(tmp_wizkit, "r")) != (FILE *) 0)