456 lines
10 KiB
C
456 lines
10 KiB
C
/* NetHack 3.5 unixtty.c $Date$ $Revision$ */
|
|
/* SCCS Id: @(#)unixtty.c 3.5 1990/22/02 */
|
|
/* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
|
|
/* NetHack may be freely redistributed. See license for details. */
|
|
|
|
/* tty.c - (Unix) version */
|
|
|
|
/* With thanks to the people who sent code for SYSV - hpscdi!jon,
|
|
* arnold@ucsf-cgl, wcs@bo95b, cbcephus!pds and others.
|
|
*/
|
|
|
|
#define NEED_VARARGS
|
|
#include "hack.h"
|
|
|
|
/*
|
|
* The distinctions here are not BSD - rest but rather USG - rest, as
|
|
* BSD still has the old sgttyb structure, but SYSV has termio. Thus:
|
|
*/
|
|
#if (defined(BSD) || defined(ULTRIX)) && !defined(POSIX_TYPES)
|
|
# define V7
|
|
#else
|
|
# define USG
|
|
#endif
|
|
|
|
#ifdef USG
|
|
|
|
# ifdef POSIX_TYPES
|
|
# include <termios.h>
|
|
# include <unistd.h>
|
|
# define termstruct termios
|
|
# else
|
|
# include <termio.h>
|
|
# if defined(TCSETS) && !defined(AIX_31)
|
|
# define termstruct termios
|
|
# else
|
|
# define termstruct termio
|
|
# endif
|
|
# endif /* POSIX_TYPES */
|
|
# ifdef LINUX
|
|
# include <sys/ioctl.h>
|
|
# undef delay_output /* curses redefines this */
|
|
# include <curses.h>
|
|
# endif
|
|
# define kill_sym c_cc[VKILL]
|
|
# define erase_sym c_cc[VERASE]
|
|
# define intr_sym c_cc[VINTR]
|
|
# ifdef TAB3 /* not a POSIX flag, but some have it anyway */
|
|
# define EXTABS TAB3
|
|
# else
|
|
# define EXTABS 0
|
|
# endif
|
|
# define tabflgs c_oflag
|
|
# define echoflgs c_lflag
|
|
# define cbrkflgs c_lflag
|
|
# define CBRKMASK ICANON
|
|
# define CBRKON ! /* reverse condition */
|
|
# ifdef POSIX_TYPES
|
|
# define OSPEED(x) (speednum(cfgetospeed(&x)))
|
|
# else
|
|
# ifndef CBAUD
|
|
# define CBAUD _CBAUD /* for POSIX nitpickers (like RS/6000 cc) */
|
|
# endif
|
|
# define OSPEED(x) ((x).c_cflag & CBAUD)
|
|
# endif
|
|
# define IS_7BIT(x) ((x).c_cflag & CS7)
|
|
# define inputflags c_iflag
|
|
# define STRIPHI ISTRIP
|
|
# ifdef POSIX_TYPES
|
|
# define GTTY(x) (tcgetattr(0, x))
|
|
# define STTY(x) (tcsetattr(0, TCSADRAIN, x))
|
|
# else
|
|
# if defined(TCSETS) && !defined(AIX_31)
|
|
# define GTTY(x) (ioctl(0, TCGETS, x))
|
|
# define STTY(x) (ioctl(0, TCSETSW, x))
|
|
# else
|
|
# define GTTY(x) (ioctl(0, TCGETA, x))
|
|
# define STTY(x) (ioctl(0, TCSETAW, x))
|
|
# endif
|
|
# endif /* POSIX_TYPES */
|
|
# define GTTY2(x) 1
|
|
# define STTY2(x) 1
|
|
# ifdef POSIX_TYPES
|
|
# if defined(BSD) && !defined(__DGUX__)
|
|
# define nonesuch _POSIX_VDISABLE
|
|
# else
|
|
# define nonesuch (fpathconf(0, _PC_VDISABLE))
|
|
# endif
|
|
# else
|
|
# define nonesuch 0
|
|
# endif
|
|
# define inittyb2 inittyb
|
|
# define curttyb2 curttyb
|
|
|
|
#else /* V7 */
|
|
|
|
# include <sgtty.h>
|
|
# define termstruct sgttyb
|
|
# define kill_sym sg_kill
|
|
# define erase_sym sg_erase
|
|
# define intr_sym t_intrc
|
|
# define EXTABS XTABS
|
|
# define tabflgs sg_flags
|
|
# define echoflgs sg_flags
|
|
# define cbrkflgs sg_flags
|
|
# define CBRKMASK CBREAK
|
|
# define CBRKON /* empty */
|
|
# define inputflags sg_flags /* don't know how enabling meta bits */
|
|
# define IS_7BIT(x) (FALSE)
|
|
# define STRIPHI 0 /* should actually be done on BSD */
|
|
# define OSPEED(x) (x).sg_ospeed
|
|
# if defined(bsdi) || defined(__386BSD) || defined(SUNOS4)
|
|
# define GTTY(x) (ioctl(0, TIOCGETP, (char *)x))
|
|
# define STTY(x) (ioctl(0, TIOCSETP, (char *)x))
|
|
# else
|
|
# define GTTY(x) (gtty(0, x))
|
|
# define STTY(x) (stty(0, x))
|
|
# endif
|
|
# define GTTY2(x) (ioctl(0, TIOCGETC, (char *)x))
|
|
# define STTY2(x) (ioctl(0, TIOCSETC, (char *)x))
|
|
# define nonesuch -1
|
|
struct tchars inittyb2, curttyb2;
|
|
|
|
#endif /* V7 */
|
|
|
|
#if defined(TTY_GRAPHICS) && ((!defined(SYSV) && !defined(HPUX)) || defined(UNIXPC) || defined(SVR4))
|
|
# ifndef LINT
|
|
extern /* it is defined in libtermlib (libtermcap) */
|
|
# endif
|
|
short ospeed; /* terminal baudrate; set by gettty */
|
|
#else
|
|
short ospeed = 0; /* gets around "not defined" error message */
|
|
#endif
|
|
|
|
#if defined(POSIX_TYPES) && defined(BSD)
|
|
unsigned
|
|
#endif
|
|
char erase_char, intr_char, kill_char;
|
|
static boolean settty_needed = FALSE;
|
|
struct termstruct inittyb, curttyb;
|
|
|
|
#ifdef POSIX_TYPES
|
|
static int
|
|
speednum(speed)
|
|
speed_t speed;
|
|
{
|
|
switch (speed) {
|
|
case B0: return 0;
|
|
case B50: return 1;
|
|
case B75: return 2;
|
|
case B110: return 3;
|
|
case B134: return 4;
|
|
case B150: return 5;
|
|
case B200: return 6;
|
|
case B300: return 7;
|
|
case B600: return 8;
|
|
case B1200: return 9;
|
|
case B1800: return 10;
|
|
case B2400: return 11;
|
|
case B4800: return 12;
|
|
case B9600: return 13;
|
|
case B19200: return 14;
|
|
case B38400: return 15;
|
|
}
|
|
|
|
return 0;
|
|
}
|
|
#endif
|
|
|
|
static void
|
|
setctty()
|
|
{
|
|
if(STTY(&curttyb) < 0 || STTY2(&curttyb2) < 0)
|
|
perror("NetHack (setctty)");
|
|
}
|
|
|
|
/*
|
|
* Get initial state of terminal, set ospeed (for termcap routines)
|
|
* and switch off tab expansion if necessary.
|
|
* Called by startup() in termcap.c and after returning from ! or ^Z
|
|
*/
|
|
void
|
|
gettty()
|
|
{
|
|
if(GTTY(&inittyb) < 0 || GTTY2(&inittyb2) < 0)
|
|
perror("NetHack (gettty)");
|
|
curttyb = inittyb;
|
|
curttyb2 = inittyb2;
|
|
ospeed = OSPEED(inittyb);
|
|
erase_char = inittyb.erase_sym;
|
|
kill_char = inittyb.kill_sym;
|
|
intr_char = inittyb2.intr_sym;
|
|
getioctls();
|
|
|
|
/* do not expand tabs - they might be needed inside a cm sequence */
|
|
if(curttyb.tabflgs & EXTABS) {
|
|
curttyb.tabflgs &= ~EXTABS;
|
|
setctty();
|
|
}
|
|
settty_needed = TRUE;
|
|
}
|
|
|
|
/* reset terminal to original state */
|
|
void
|
|
settty(s)
|
|
const char *s;
|
|
{
|
|
end_screen();
|
|
if(s) raw_print(s);
|
|
if(STTY(&inittyb) < 0 || STTY2(&inittyb2) < 0)
|
|
perror("NetHack (settty)");
|
|
iflags.echo = (inittyb.echoflgs & ECHO) ? ON : OFF;
|
|
iflags.cbreak = (CBRKON(inittyb.cbrkflgs & CBRKMASK)) ? ON : OFF;
|
|
curttyb.inputflags |= STRIPHI;
|
|
setioctls();
|
|
}
|
|
|
|
void
|
|
setftty()
|
|
{
|
|
register int ef = 0; /* desired value of flags & ECHO */
|
|
#ifdef LINT /* cf = CBRKON(CBRKMASK); const expr to initialize is ok */
|
|
register int cf = 0;
|
|
#else
|
|
register int cf = CBRKON(CBRKMASK); /* desired value of flags & CBREAK */
|
|
#endif
|
|
register int change = 0;
|
|
iflags.cbreak = ON;
|
|
iflags.echo = OFF;
|
|
/* Should use (ECHO|CRMOD) here instead of ECHO */
|
|
if((curttyb.echoflgs & ECHO) != ef){
|
|
curttyb.echoflgs &= ~ECHO;
|
|
/* curttyb.echoflgs |= ef; */
|
|
change++;
|
|
}
|
|
if((curttyb.cbrkflgs & CBRKMASK) != cf){
|
|
curttyb.cbrkflgs &= ~CBRKMASK;
|
|
curttyb.cbrkflgs |= cf;
|
|
#ifdef USG
|
|
/* be satisfied with one character; no timeout */
|
|
curttyb.c_cc[VMIN] = 1; /* was VEOF */
|
|
curttyb.c_cc[VTIME] = 0; /* was VEOL */
|
|
# ifdef POSIX_JOB_CONTROL
|
|
/* turn off system suspend character
|
|
* due to differences in structure layout, this has to be
|
|
* here instead of in ioctl.c:getioctls() with the BSD
|
|
* equivalent
|
|
*/
|
|
# ifdef VSUSP /* real POSIX */
|
|
curttyb.c_cc[VSUSP] = nonesuch;
|
|
# else /* other later SYSV */
|
|
curttyb.c_cc[VSWTCH] = nonesuch;
|
|
# endif
|
|
# endif
|
|
# ifdef VDSUSP /* SunOS Posix extensions */
|
|
curttyb.c_cc[VDSUSP] = nonesuch;
|
|
# endif
|
|
# ifdef VREPRINT
|
|
curttyb.c_cc[VREPRINT] = nonesuch;
|
|
# endif
|
|
# ifdef VDISCARD
|
|
curttyb.c_cc[VDISCARD] = nonesuch;
|
|
# endif
|
|
# ifdef VWERASE
|
|
curttyb.c_cc[VWERASE] = nonesuch;
|
|
# endif
|
|
# ifdef VLNEXT
|
|
curttyb.c_cc[VLNEXT] = nonesuch;
|
|
# endif
|
|
#endif
|
|
change++;
|
|
}
|
|
if(!IS_7BIT(inittyb)) curttyb.inputflags &=~ STRIPHI;
|
|
/* If an interrupt character is used, it will be overriden and
|
|
* set to ^C.
|
|
*/
|
|
if(intr_char != nonesuch && curttyb2.intr_sym != '\003') {
|
|
curttyb2.intr_sym = '\003';
|
|
change++;
|
|
}
|
|
|
|
if(change) setctty();
|
|
start_screen();
|
|
}
|
|
|
|
void
|
|
intron() /* enable kbd interupts if enabled when game started */
|
|
{
|
|
#ifdef TTY_GRAPHICS
|
|
/* Ugly hack to keep from changing tty modes for non-tty games -dlc */
|
|
if (!strcmp(windowprocs.name, "tty") &&
|
|
intr_char != nonesuch && curttyb2.intr_sym != '\003') {
|
|
curttyb2.intr_sym = '\003';
|
|
setctty();
|
|
}
|
|
#endif
|
|
}
|
|
|
|
void
|
|
introff() /* disable kbd interrupts if required*/
|
|
{
|
|
#ifdef TTY_GRAPHICS
|
|
/* Ugly hack to keep from changing tty modes for non-tty games -dlc */
|
|
if (!strcmp(windowprocs.name, "tty") &&
|
|
curttyb2.intr_sym != nonesuch) {
|
|
curttyb2.intr_sym = nonesuch;
|
|
setctty();
|
|
}
|
|
#endif
|
|
}
|
|
|
|
#ifdef _M_UNIX /* SCO UNIX (3.2.4), from Andreas Arens */
|
|
# include <sys/console.h>
|
|
|
|
# define BSIZE (E_TABSZ*2)
|
|
# define LDIOC ('D'<<8) /* POSIX prevents definition */
|
|
|
|
# include <sys/emap.h>
|
|
|
|
int sco_flag_console = 0;
|
|
int sco_map_valid = -1;
|
|
unsigned char sco_chanmap_buf[BSIZE];
|
|
|
|
void NDECL(sco_mapon);
|
|
void NDECL(sco_mapoff);
|
|
void NDECL(check_sco_console);
|
|
void NDECL(init_sco_cons);
|
|
|
|
void
|
|
sco_mapon()
|
|
{
|
|
# ifdef TTY_GRAPHICS
|
|
if (!strcmp(windowprocs.name, "tty") && sco_flag_console) {
|
|
if (sco_map_valid != -1) {
|
|
ioctl(0,LDSMAP,sco_chanmap_buf);
|
|
}
|
|
sco_map_valid = -1;
|
|
}
|
|
# endif
|
|
}
|
|
|
|
void
|
|
sco_mapoff()
|
|
{
|
|
# ifdef TTY_GRAPHICS
|
|
if (!strcmp(windowprocs.name, "tty") && sco_flag_console) {
|
|
sco_map_valid = ioctl(0,LDGMAP,sco_chanmap_buf);
|
|
if (sco_map_valid != -1) {
|
|
ioctl(0,LDNMAP,(char *)0);
|
|
}
|
|
}
|
|
# endif
|
|
}
|
|
|
|
void
|
|
check_sco_console()
|
|
{
|
|
if (isatty(0) && ioctl(0,CONS_GET,0) != -1) {
|
|
sco_flag_console = 1;
|
|
}
|
|
}
|
|
|
|
void
|
|
init_sco_cons()
|
|
{
|
|
# ifdef TTY_GRAPHICS
|
|
if (!strcmp(windowprocs.name, "tty") && sco_flag_console) {
|
|
atexit(sco_mapon);
|
|
sco_mapoff();
|
|
# ifdef LOADSYMSETS
|
|
load_symset("IBMGraphics", PRIMARY);
|
|
load_symset("RogueIBM", ROGUESET);
|
|
switch_symbols(TRUE);
|
|
# endif
|
|
# ifdef TEXTCOLOR
|
|
if (has_colors())
|
|
iflags.use_color = TRUE;
|
|
# endif
|
|
}
|
|
# endif
|
|
}
|
|
#endif /* _M_UNIX */
|
|
|
|
|
|
#ifdef __linux__ /* via Jesse Thilo and Ben Gertzfield */
|
|
# include <sys/vt.h>
|
|
|
|
int linux_flag_console = 0;
|
|
|
|
void NDECL(linux_mapon);
|
|
void NDECL(linux_mapoff);
|
|
void NDECL(check_linux_console);
|
|
void NDECL(init_linux_cons);
|
|
|
|
void
|
|
linux_mapon()
|
|
{
|
|
# ifdef TTY_GRAPHICS
|
|
if (!strcmp(windowprocs.name, "tty") && linux_flag_console) {
|
|
write(1, "\033(B", 3);
|
|
}
|
|
# endif
|
|
}
|
|
|
|
void
|
|
linux_mapoff()
|
|
{
|
|
# ifdef TTY_GRAPHICS
|
|
if (!strcmp(windowprocs.name, "tty") && linux_flag_console) {
|
|
write(1, "\033(U", 3);
|
|
}
|
|
# endif
|
|
}
|
|
|
|
void
|
|
check_linux_console()
|
|
{
|
|
struct vt_mode vtm;
|
|
|
|
if (isatty(0) && ioctl(0,VT_GETMODE,&vtm) >= 0) {
|
|
linux_flag_console = 1;
|
|
}
|
|
}
|
|
|
|
void
|
|
init_linux_cons()
|
|
{
|
|
# ifdef TTY_GRAPHICS
|
|
if (!strcmp(windowprocs.name, "tty") && linux_flag_console) {
|
|
atexit(linux_mapon);
|
|
linux_mapoff();
|
|
# ifdef TEXTCOLOR
|
|
if (has_colors())
|
|
iflags.use_color = TRUE;
|
|
# endif
|
|
}
|
|
# endif
|
|
}
|
|
#endif /* __linux__ */
|
|
|
|
|
|
#ifndef __begui__ /* the Be GUI will define its own error proc */
|
|
/* fatal error */
|
|
/*VARARGS1*/
|
|
void
|
|
error VA_DECL(const char *,s)
|
|
VA_START(s);
|
|
VA_INIT(s, const char *);
|
|
if(settty_needed)
|
|
settty((char *)0);
|
|
Vprintf(s,VA_ARGS);
|
|
(void) putchar('\n');
|
|
VA_END();
|
|
exit(EXIT_FAILURE);
|
|
}
|
|
#endif /* !__begui__ */
|