0b97c1be42
I don't think this is useful enough to recommend ordinary users enable it, but it's close enough to being useful that I don't want to leave it to become subject to bit rot like umpteen other unfinished patches. Anyone running in wizard mode who has a panic already gets pushed into the debugger on VMS, although it doesn't work for what might be considered the most important configuration (a secure playground, as opposed to the wide-open one I've always been content to leave mine at).
89 lines
2.6 KiB
C
89 lines
2.6 KiB
C
/* NetHack 3.5 vmsmisc.c $Date$ $Revision$ */
|
|
/* NetHack may be freely redistributed. See license for details. */
|
|
|
|
#include "config.h"
|
|
#undef exit
|
|
#include <ssdef.h>
|
|
#include <stsdef.h>
|
|
|
|
void FDECL(vms_exit, (int));
|
|
void NDECL(vms_abort);
|
|
|
|
extern int FDECL(vms_define, (const char *,const char *,int));
|
|
|
|
extern void lib$signal( /*_ unsigned long,... _*/ );
|
|
|
|
void
|
|
vms_exit(status)
|
|
int status;
|
|
{
|
|
exit(status ? (SS$_ABORT | STS$M_INHIB_MSG) : SS$_NORMAL);
|
|
}
|
|
|
|
void
|
|
vms_abort()
|
|
{
|
|
lib$signal(SS$_DEBUG);
|
|
}
|
|
|
|
#ifdef PANICTRACE
|
|
void
|
|
vms_traceback(how)
|
|
int how; /* 1: exit after traceback; 2: stay in debugger */
|
|
{
|
|
/* signal handler expects first byte to hold length of the rest */
|
|
char dbgcmd[1+255];
|
|
|
|
dbgcmd[0] = dbgcmd[1] = '\0';
|
|
if (how == 2) {
|
|
/* limit output to 18 stack frames to avoid longer output causing
|
|
nethack's panic prolog from scrolling off conventional sized
|
|
screen; perhaps we should adapt to termcap LI here... */
|
|
(void)strcpy(dbgcmd, "#set Module/Calls; show Calls 18");
|
|
} else if (how == 1) {
|
|
/*
|
|
* Suppress most of debugger's initial feedback to avoid scaring users.
|
|
*/
|
|
/* start up with output going to /dev/null instead of stdout */
|
|
(void)vms_define("DBG$OUTPUT", "_NL:", 0);
|
|
/* bypass any debugger initialization file the user might have */
|
|
(void)vms_define("DBG$INIT", "_NL:", 0);
|
|
/* force tty interface by suppressing DECwindows/Motif interface */
|
|
(void)vms_define("DBG$DECW$DISPLAY", " ", 0);
|
|
/* once started, send output to log file on stdout */
|
|
(void)strcpy(dbgcmd, "#set Log SYS$OUTPUT:; set output Log,noTerminal");
|
|
/* FIXME: the trailing exit command here is actually being ignored,
|
|
leaving us at the DBG> prompt contrary to our intent... */
|
|
(void)strcat(dbgcmd, "; set Module/Calls; show Calls 18; exit");
|
|
}
|
|
|
|
if (dbgcmd[1]) {
|
|
/* plug in command's length; debugger's signal handler expects ASCIC
|
|
counted string rather than C-style ASCIZ 0-terminated string */
|
|
dbgcmd[0] = (char)strlen(&dbgcmd[1]);
|
|
/*
|
|
* This won't work if we've been linked /noTraceback, and
|
|
* we have to link /noTraceback if nethack.exe is going
|
|
* to be installed with privileges, so this is of dubious
|
|
* value for a SECURE multi-user playground installation.
|
|
*
|
|
* TODO: What's worse, we need to add a condition handler
|
|
* to trap the resulting "improperly handled condition"
|
|
* and the annoying and/or frightening (and in this case,
|
|
* useless) register dump given when the debugger can't be
|
|
* activated for a noTraceback executable.
|
|
*/
|
|
(void)lib$signal(SS$_DEBUG, 1, dbgcmd);
|
|
}
|
|
|
|
vms_exit(2); /* don't return to caller */
|
|
/* NOT REACHED */
|
|
}
|
|
#endif
|
|
|
|
#ifdef VERYOLD_VMS
|
|
#include "oldcrtl.c"
|
|
#endif
|
|
|
|
/*vmsmisc.c*/
|