Function chdirx

sys/vms/vmsmain.c:344–370

#ifdef CHDIR
void
chdirx(const char *dir, boolean wr)
{
#ifndef HACKDIR
    static const char *defdir = ".";
#else
    static const char *defdir = HACKDIR;

    if (dir == (const char *) 0)
        dir = defdir;
    else if (wr && !same_dir(HACKDIR, dir))
        /* If we're playing anywhere other than HACKDIR, turn off any
           privs we may have been installed with. */
        privoff();
#endif

    if (dir && chdir(dir) < 0) {
        perror(dir);
        error("Cannot chdir to %s.", dir);
    }

    /* warn the player if we can't write the record file */
    if (wr)
        check_recordfile(dir);

    defdir = dir;
}
#endif /* CHDIR */

static void