ba5356603a
A number of C compiler suites have a math.h library that includes a yn() function name that conflicts with NetHack's yn() macro: "The y0(), y1(), and yn() functions are Bessel functions of the second kind, for orders 0, 1, and n, respectively. The argument x must be positive. The argument n should be greater than or equal to zero. If n is less than zero, there will be a negative exponent in the result." At one point, isaac64.h included math.h, although that has since been removed. Some libraries used in NetHack (Qt for one) do include math.h and that required build work-arounds to avoid the conflict. Rename the NetHack macro from yn() to y_n() and avoid the math.h conflict altogether, eliminating the need for that particular work-around.
495 lines
14 KiB
C
495 lines
14 KiB
C
/* NetHack 3.7 vmsmain.c $NHDT-Date: 1596498307 2020/08/03 23:45:07 $ $NHDT-Branch: NetHack-3.7 $:$NHDT-Revision: 1.45 $ */
|
|
/* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
|
|
/*-Copyright (c) Robert Patrick Rankin, 2011. */
|
|
/* NetHack may be freely redistributed. See license for details. */
|
|
/* main.c - VMS NetHack */
|
|
|
|
#include "hack.h"
|
|
#include "dlb.h"
|
|
|
|
#include <signal.h>
|
|
|
|
static void whoami(void);
|
|
static void process_options(int, char **);
|
|
static void byebye(void);
|
|
#ifndef SAVE_ON_FATAL_ERROR
|
|
#ifndef __DECC
|
|
#define vms_handler_type int
|
|
#else
|
|
#define vms_handler_type unsigned int
|
|
#endif
|
|
extern void VAXC$ESTABLISH(vms_handler_type (*) (genericptr_t,
|
|
genericptr_t));
|
|
static vms_handler_type vms_handler(genericptr_t, genericptr_t);
|
|
#include <ssdef.h> /* system service status codes */
|
|
#endif
|
|
|
|
static void wd_message(void);
|
|
static boolean wiz_error_flag = FALSE;
|
|
|
|
int
|
|
main(int argc, char *argv[])
|
|
{
|
|
NHFILE *nhfp;
|
|
#ifdef CHDIR
|
|
register char *dir;
|
|
#endif
|
|
boolean resuming = FALSE; /* assume new game */
|
|
|
|
#ifdef SECURE /* this should be the very first code executed */
|
|
privoff();
|
|
fflush((FILE *) 0); /* force stdio to init itself */
|
|
privon();
|
|
#endif
|
|
|
|
early_init();
|
|
|
|
atexit(byebye);
|
|
gh.hname = argv[0];
|
|
gh.hname = vms_basename(gh.hname); /* name used in 'usage' type messages */
|
|
gh.hackpid = getpid();
|
|
(void) umask(0);
|
|
|
|
choose_windows(DEFAULT_WINDOW_SYS);
|
|
|
|
#ifdef CHDIR /* otherwise no chdir() */
|
|
/*
|
|
* See if we must change directory to the playground.
|
|
* (Perhaps hack is installed with privs and playground is
|
|
* inaccessible for the player.)
|
|
* The logical name HACKDIR is overridden by a
|
|
* -d command line option (must be the first option given)
|
|
*/
|
|
dir = nh_getenv("NETHACKDIR");
|
|
if (!dir)
|
|
dir = nh_getenv("HACKDIR");
|
|
#endif
|
|
if (argc > 1) {
|
|
if (argcheck(argc, argv, ARG_VERSION) == 2)
|
|
exit(EXIT_SUCCESS);
|
|
|
|
if (argcheck(argc, argv, ARG_SHOWPATHS) == 2) {
|
|
#ifdef CHDIR
|
|
chdirx((char *) 0, 0);
|
|
#endif
|
|
iflags.initoptions_noterminate = TRUE;
|
|
initoptions();
|
|
iflags.initoptions_noterminate = FALSE;
|
|
reveal_paths();
|
|
exit(EXIT_SUCCESS);
|
|
}
|
|
if (argcheck(argc, argv, ARG_DEBUG) == 1) {
|
|
argc--;
|
|
argv++;
|
|
}
|
|
#ifdef CHDIR
|
|
if (argc > 1 && !strncmp(argv[1], "-d", 2) && argv[1][2] != 'e') {
|
|
/* avoid matching "-dec" for DECgraphics; since the man page
|
|
* says -d directory, hope nobody's using -desomething_else
|
|
*/
|
|
argc--;
|
|
argv++;
|
|
dir = argv[0] + 2;
|
|
if (*dir == '=' || *dir == ':')
|
|
dir++;
|
|
if (!*dir && argc > 1) {
|
|
argc--;
|
|
argv++;
|
|
dir = argv[0];
|
|
}
|
|
if (!*dir)
|
|
error("Flag -d must be followed by a directory name.");
|
|
}
|
|
if (argc > 1)
|
|
#endif /* CHDIR */
|
|
|
|
/*
|
|
* Now we know the directory containing 'record' and
|
|
* may do a prscore().
|
|
*/
|
|
if (!strncmp(argv[1], "-s", 2)) {
|
|
#ifdef CHDIR
|
|
chdirx(dir, FALSE);
|
|
#endif
|
|
#ifdef SYSCF
|
|
initoptions();
|
|
#endif
|
|
prscore(argc, argv);
|
|
exit(EXIT_SUCCESS);
|
|
}
|
|
}
|
|
|
|
#ifdef CHDIR
|
|
/* move to the playground directory; 'termcap' might be found there */
|
|
chdirx(dir, TRUE);
|
|
#endif
|
|
|
|
#ifdef SECURE
|
|
/* disable installed privs while loading nethack.cnf and termcap,
|
|
and also while initializing terminal [$assign("TT:")]. */
|
|
privoff();
|
|
#endif
|
|
initoptions();
|
|
init_nhwindows(&argc, argv);
|
|
whoami();
|
|
#ifdef SECURE
|
|
privon();
|
|
#endif
|
|
|
|
/*
|
|
* It seems you really want to play.
|
|
*/
|
|
u.uhp = 1; /* prevent RIP on early quits */
|
|
#ifndef SAVE_ON_FATAL_ERROR
|
|
/* used to clear hangup stuff while still giving standard traceback */
|
|
VAXC$ESTABLISH(vms_handler);
|
|
#endif
|
|
sethanguphandler(hangup);
|
|
|
|
process_options(argc, argv); /* command line options */
|
|
|
|
/* wizard mode access is deferred until here */
|
|
set_playmode(); /* sets plname to "wizard" for wizard mode */
|
|
/* strip role,race,&c suffix; calls askname() if plname[] is empty
|
|
or holds a generic user name like "player" or "games" */
|
|
plnamesuffix();
|
|
|
|
if (wizard) {
|
|
/* use character name rather than lock letter for file names */
|
|
gl.locknum = 0;
|
|
} else {
|
|
/* suppress interrupts while processing lock file */
|
|
(void) signal(SIGQUIT, SIG_IGN);
|
|
(void) signal(SIGINT, SIG_IGN);
|
|
}
|
|
/*
|
|
* getlock() complains and quits if there is already a game
|
|
* in progress for current character name (when gl.locknum == 0)
|
|
* or if there are too many active games (when gl.locknum > 0).
|
|
* When proceeding, it creates an empty <lockname>.0 file to
|
|
* designate the current game.
|
|
* getlock() constructs <lockname> based on the character
|
|
* name (for !gl.locknum) or on first available of alock, block,
|
|
* clock, &c not currently in use in the playground directory
|
|
* (for gl.locknum > 0).
|
|
*/
|
|
getlock();
|
|
|
|
dlb_init(); /* must be before newgame() */
|
|
|
|
/*
|
|
* Initialize the vision system. This must be before mklev() on a
|
|
* new game or before a level restore on a saved game.
|
|
*/
|
|
vision_init();
|
|
|
|
display_gamewindows();
|
|
|
|
/*
|
|
* First, try to find and restore a save file for specified character.
|
|
* We'll return here if new game player_selection() renames the hero.
|
|
*/
|
|
attempt_restore:
|
|
if ((nhfp = restore_saved_game()) != 0) {
|
|
const char *fq_save = fqname(gs.SAVEF, SAVEPREFIX, 1);
|
|
|
|
(void) chmod(fq_save, 0); /* disallow parallel restores */
|
|
(void) signal(SIGINT, (SIG_RET_TYPE) done1);
|
|
#ifdef NEWS
|
|
if (iflags.news) {
|
|
display_file(NEWS, FALSE);
|
|
iflags.news = FALSE; /* in case dorecover() fails */
|
|
}
|
|
#endif
|
|
pline("Restoring save file...");
|
|
mark_synch(); /* flush output */
|
|
if (dorecover(nhfp)) {
|
|
resuming = TRUE; /* not starting new game */
|
|
wd_message();
|
|
if (discover || wizard) {
|
|
if (y_n("Do you want to keep the save file?") == 'n')
|
|
(void) delete_savefile();
|
|
else
|
|
(void) chmod(fq_save, FCMASK); /* back to readable */
|
|
}
|
|
}
|
|
}
|
|
|
|
if (!resuming) {
|
|
/* new game: start by choosing role, race, etc;
|
|
player might change the hero's name while doing that,
|
|
in which case we try to restore under the new name
|
|
and skip selection this time if that didn't succeed */
|
|
if (!iflags.renameinprogress) {
|
|
player_selection();
|
|
if (iflags.renameinprogress) {
|
|
/* player has renamed the hero while selecting role;
|
|
if locking alphabetically, the existing lock file
|
|
can still be used; otherwise, discard current one
|
|
and create another for the new character name */
|
|
if (!gl.locknum) {
|
|
delete_levelfile(0); /* remove empty lock file */
|
|
getlock();
|
|
}
|
|
goto attempt_restore;
|
|
}
|
|
}
|
|
newgame();
|
|
wd_message();
|
|
}
|
|
|
|
moveloop(resuming);
|
|
exit(EXIT_SUCCESS);
|
|
/*NOTREACHED*/
|
|
return 0;
|
|
}
|
|
|
|
static void
|
|
process_options(int argc, char *argv[])
|
|
{
|
|
int i;
|
|
|
|
/*
|
|
* Process options.
|
|
*/
|
|
while (argc > 1 && argv[1][0] == '-') {
|
|
argv++;
|
|
argc--;
|
|
switch (argv[0][1]) {
|
|
case 'D':
|
|
wizard = TRUE, discover = FALSE;
|
|
break;
|
|
case 'X':
|
|
case 'x':
|
|
discover = TRUE, wizard = FALSE;
|
|
break;
|
|
#ifdef NEWS
|
|
case 'n':
|
|
iflags.news = FALSE;
|
|
break;
|
|
#endif
|
|
case 'u':
|
|
if (argv[0][2])
|
|
(void) strncpy(gp.plname, argv[0] + 2, sizeof(gp.plname) - 1);
|
|
else if (argc > 1) {
|
|
argc--;
|
|
argv++;
|
|
(void) strncpy(gp.plname, argv[0], sizeof(gp.plname) - 1);
|
|
} else
|
|
raw_print("Player name expected after -u");
|
|
break;
|
|
case 'I':
|
|
case 'i':
|
|
if (!strncmpi(argv[0] + 1, "IBM", 3)) {
|
|
load_symset("IBMGraphics", PRIMARYSET);
|
|
load_symset("RogueIBM", ROGUESET);
|
|
switch_symbols(TRUE);
|
|
}
|
|
break;
|
|
/* case 'D': */
|
|
case 'd':
|
|
if (!strncmpi(argv[0] + 1, "DEC", 3)) {
|
|
load_symset("DECGraphics", PRIMARYSET);
|
|
switch_symbols(TRUE);
|
|
}
|
|
break;
|
|
case 'p': /* profession (role) */
|
|
if (argv[0][2]) {
|
|
if ((i = str2role(&argv[0][2])) >= 0)
|
|
flags.initrole = i;
|
|
} else if (argc > 1) {
|
|
argc--;
|
|
argv++;
|
|
if ((i = str2role(argv[0])) >= 0)
|
|
flags.initrole = i;
|
|
}
|
|
break;
|
|
case 'r': /* race */
|
|
if (argv[0][2]) {
|
|
if ((i = str2race(&argv[0][2])) >= 0)
|
|
flags.initrace = i;
|
|
} else if (argc > 1) {
|
|
argc--;
|
|
argv++;
|
|
if ((i = str2race(argv[0])) >= 0)
|
|
flags.initrace = i;
|
|
}
|
|
break;
|
|
case '@':
|
|
flags.randomall = 1;
|
|
break;
|
|
default:
|
|
if ((i = str2role(&argv[0][1])) >= 0) {
|
|
flags.initrole = i;
|
|
break;
|
|
}
|
|
/* else raw_printf("Unknown option: %s", *argv); */
|
|
}
|
|
}
|
|
|
|
if (argc > 1)
|
|
gl.locknum = atoi(argv[1]);
|
|
#ifdef MAX_NR_OF_PLAYERS
|
|
if (!gl.locknum || gl.locknum > MAX_NR_OF_PLAYERS)
|
|
gl.locknum = MAX_NR_OF_PLAYERS;
|
|
#endif
|
|
}
|
|
|
|
#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
|
|
whoami(void)
|
|
{
|
|
/*
|
|
* Who am i? Algorithm: 1. Use name as specified in NETHACKOPTIONS;
|
|
* 2. Use lowercase of $USER (if 1. fails).
|
|
* The resulting name is overridden by command line options.
|
|
* If everything fails, or if the resulting name is some generic
|
|
* account like "games" then eventually we'll ask him.
|
|
* Note that we trust the user here; it is possible to play under
|
|
* somebody else's name.
|
|
*/
|
|
register char *s;
|
|
|
|
if (!*gp.plname && (s = nh_getenv("USER")))
|
|
(void) lcase(strncpy(gp.plname, s, sizeof(gp.plname) - 1));
|
|
}
|
|
|
|
static void
|
|
byebye(void)
|
|
{
|
|
void (*hup)(int) ;
|
|
#ifdef SHELL
|
|
extern unsigned long dosh_pid, mail_pid;
|
|
extern unsigned long sys$delprc(unsigned long *, const genericptr_t);
|
|
|
|
/* clean up any subprocess we've spawned that may still be hanging around
|
|
*/
|
|
if (dosh_pid)
|
|
(void) sys$delprc(&dosh_pid, (genericptr_t) 0), dosh_pid = 0;
|
|
if (mail_pid)
|
|
(void) sys$delprc(&mail_pid, (genericptr_t) 0), mail_pid = 0;
|
|
#endif
|
|
|
|
/* SIGHUP doesn't seem to do anything on VMS, so we fudge it here... */
|
|
hup = (void (*)(int) ) signal(SIGHUP, SIG_IGN);
|
|
if (!gp.program_state.exiting++ && hup != (void (*)(int) ) SIG_DFL
|
|
&& hup != (void (*)(int) ) SIG_IGN) {
|
|
(*hup)(SIGHUP);
|
|
}
|
|
|
|
#ifdef CHDIR
|
|
(void) chdir(getenv("PATH"));
|
|
#endif
|
|
}
|
|
|
|
#ifndef SAVE_ON_FATAL_ERROR
|
|
/* Condition handler to prevent byebye's hangup simulation
|
|
from saving the game after a fatal error has occurred. */
|
|
/*ARGSUSED*/
|
|
static vms_handler_type /* should be `unsigned long', but the -*/
|
|
vms_handler( /*+ prototype in <signal.h> is screwed */
|
|
genericptr_t sigargs,
|
|
genericptr_t mechargs) /* [0] is argc, [1..argc] are the real args */
|
|
{
|
|
unsigned long condition = ((unsigned long *) sigargs)[1];
|
|
|
|
if (condition == SS$_ACCVIO /* access violation */
|
|
|| (condition >= SS$_ASTFLT && condition <= SS$_TBIT)
|
|
|| (condition >= SS$_ARTRES && condition <= SS$_INHCHME)) {
|
|
gp.program_state.done_hup = TRUE; /* pretend hangup has been attempted */
|
|
#if (NH_DEVEL_STATUS == NH_STATUS_RELEASED)
|
|
if (wizard)
|
|
#endif
|
|
abort(); /* enter the debugger */
|
|
}
|
|
return SS$_RESIGNAL;
|
|
}
|
|
#endif
|
|
|
|
void
|
|
sethanguphandler(void (*handler)(int))
|
|
{
|
|
(void) signal(SIGHUP, (SIG_RET_TYPE) handler);
|
|
}
|
|
|
|
#ifdef PORT_HELP
|
|
void
|
|
port_help(void)
|
|
{
|
|
/*
|
|
* Display VMS-specific help. Just show contents of the helpfile
|
|
* named by PORT_HELP.
|
|
*/
|
|
display_file(PORT_HELP, TRUE);
|
|
}
|
|
#endif /* PORT_HELP */
|
|
|
|
/* validate wizard mode if player has requested access to it */
|
|
boolean
|
|
authorize_wizard_mode(void)
|
|
{
|
|
if (!strcmpi(nh_getenv("USER"), WIZARD_NAME))
|
|
return TRUE;
|
|
wiz_error_flag = TRUE; /* not being allowed into wizard mode */
|
|
return FALSE;
|
|
}
|
|
|
|
static void
|
|
wd_message(void)
|
|
{
|
|
if (wiz_error_flag) {
|
|
pline("Only user \"%s\" may access debug (wizard) mode.",
|
|
WIZARD_NAME);
|
|
pline("Entering explore/discovery mode instead.");
|
|
wizard = 0, discover = 1; /* (paranoia) */
|
|
} else if (discover)
|
|
You("are in non-scoring explore/discovery mode.");
|
|
}
|
|
|
|
unsigned long
|
|
sys_random_seed(void)
|
|
{
|
|
unsigned long seed;
|
|
unsigned long pid = (unsigned long) getpid();
|
|
|
|
seed = (unsigned long) getnow(); /* time((TIME_type) 0) */
|
|
/* Quick dirty band-aid to prevent PRNG prediction */
|
|
if (pid) {
|
|
if (!(pid & 3L))
|
|
pid -= 1L;
|
|
seed *= pid;
|
|
}
|
|
return seed;
|
|
}
|
|
|
|
/*vmsmain.c*/
|