357 lines
9.2 KiB
C
357 lines
9.2 KiB
C
/* scp_tty.c: Operating system-dependent terminal I/O routines.
|
||
|
||
Copyright (c) 1993-1999, Robert M Supnik
|
||
|
||
Permission is hereby granted, free of charge, to any person obtaining a
|
||
copy of this software and associated documentation files (the "Software"),
|
||
to deal in the Software without restriction, including without limitation
|
||
the rights to use, copy, modify, merge, publish, distribute, sublicense,
|
||
and/or sell copies of the Software, and to permit persons to whom the
|
||
Software is furnished to do so, subject to the following conditions:
|
||
|
||
The above copyright notice and this permission notice shall be included in
|
||
all copies or substantial portions of the Software.
|
||
|
||
THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
|
||
IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
|
||
FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
|
||
ROBERT M SUPNIK BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER
|
||
IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
|
||
CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
|
||
|
||
Except as contained in this notice, the name of Robert M Supnik shall not
|
||
be used in advertising or otherwise to promote the sale, use or other dealings
|
||
in this Software without prior written authorization from Robert M Supnik.
|
||
|
||
18-Aug-98 RMS Added BeOS support
|
||
13-Oct-97 RMS Added NetBSD terminal support
|
||
25-Jan-97 RMS Added POSIX terminal I/O support
|
||
02-Jan-97 RMS Fixed bug in sim_poll_kbd
|
||
|
||
ttinit - called once to get initial terminal state
|
||
ttrunstate - called to put terminal into run state
|
||
ttcmdstate - called to return terminal to command state
|
||
ttclose - called once before the simulator exits
|
||
sim_poll_kbd - poll for keyboard input
|
||
sim_putchar - output character to terminal
|
||
|
||
Versions are included for generic (BSD) UNIX and for VMS.
|
||
The generic UNIX version works with LINUX.
|
||
*/
|
||
|
||
#include "sim_defs.h"
|
||
int32 sim_int_char = 005; /* interrupt character */
|
||
|
||
/* VMS routines */
|
||
|
||
#ifdef VMS
|
||
#define __TTYROUTINES 0
|
||
#include <descrip.h>
|
||
#include <ttdef.h>
|
||
#include <tt2def.h>
|
||
#include <iodef.h>
|
||
#include <ssdef.h>
|
||
#include <starlet.h>
|
||
#define EFN 0
|
||
unsigned int32 tty_chan = 0;
|
||
typedef struct {
|
||
unsigned short sense_count;
|
||
unsigned char sense_first_char;
|
||
unsigned char sense_reserved;
|
||
unsigned int32 stat;
|
||
unsigned int32 stat2; } SENSE_BUF;
|
||
typedef struct {
|
||
unsigned int16 status;
|
||
unsigned int16 count;
|
||
unsigned int32 dev_status; } IOSB;
|
||
SENSE_BUF cmd_mode = { 0 };
|
||
SENSE_BUF run_mode = { 0 };
|
||
|
||
t_stat ttinit (void)
|
||
{
|
||
unsigned int32 status;
|
||
IOSB iosb;
|
||
$DESCRIPTOR (terminal_device, "tt");
|
||
|
||
status = sys$assign (&terminal_device, &tty_chan, 0, 0);
|
||
if (status != SS$_NORMAL) return SCPE_TTIERR;
|
||
status = sys$qiow (EFN, tty_chan, IO$_SENSEMODE, &iosb, 0, 0,
|
||
&cmd_mode, sizeof (cmd_mode), 0, 0, 0, 0);
|
||
if ((status != SS$_NORMAL) || (iosb.status != SS$_NORMAL)) return SCPE_TTIERR;
|
||
run_mode = cmd_mode;
|
||
run_mode.stat = cmd_mode.stat | TT$M_NOECHO & ~(TT$M_HOSTSYNC | TT$M_TTSYNC);
|
||
run_mode.stat2 = cmd_mode.stat2 | TT2$M_PASTHRU;
|
||
return SCPE_OK;
|
||
}
|
||
|
||
t_stat ttrunstate (void)
|
||
{
|
||
unsigned int status;
|
||
IOSB iosb;
|
||
|
||
status = sys$qiow (EFN, tty_chan, IO$_SETMODE, &iosb, 0, 0,
|
||
&run_mode, sizeof (run_mode), 0, 0, 0, 0);
|
||
if ((status != SS$_NORMAL) || (iosb.status != SS$_NORMAL)) return SCPE_TTIERR;
|
||
return SCPE_OK;
|
||
}
|
||
|
||
t_stat ttcmdstate (void)
|
||
{
|
||
unsigned int status;
|
||
IOSB iosb;
|
||
|
||
status = sys$qiow (EFN, tty_chan, IO$_SETMODE, &iosb, 0, 0,
|
||
&cmd_mode, sizeof (cmd_mode), 0, 0, 0, 0);
|
||
if ((status != SS$_NORMAL) || (iosb.status != SS$_NORMAL)) return SCPE_TTIERR;
|
||
return SCPE_OK;
|
||
}
|
||
|
||
t_stat ttclose (void)
|
||
{
|
||
return ttcmdstate ();
|
||
}
|
||
|
||
t_stat sim_poll_kbd (void)
|
||
{
|
||
unsigned int status, term[2];
|
||
unsigned char buf[4];
|
||
IOSB iosb;
|
||
SENSE_BUF sense;
|
||
|
||
term[0] = 0; term[1] = 0;
|
||
status = sys$qiow (EFN, tty_chan, IO$_SENSEMODE | IO$M_TYPEAHDCNT, &iosb,
|
||
0, 0, &sense, 8, 0, term, 0, 0);
|
||
if ((status != SS$_NORMAL) || (iosb.status != SS$_NORMAL)) return SCPE_TTIERR;
|
||
if (sense.sense_count == 0) return SCPE_OK;
|
||
term[0] = 0; term[1] = 0;
|
||
status = sys$qiow (EFN, tty_chan,
|
||
IO$_READLBLK | IO$M_NOECHO | IO$M_NOFILTR | IO$M_TIMED | IO$M_TRMNOECHO,
|
||
&iosb, 0, 0, buf, 1, 0, term, 0, 0);
|
||
if ((status != SS$_NORMAL) || (iosb.status != SS$_NORMAL)) return SCPE_OK;
|
||
if (buf[0] == sim_int_char) return SCPE_STOP;
|
||
return (buf[0] | SCPE_KFLAG);
|
||
}
|
||
|
||
t_stat sim_putchar (int32 out)
|
||
{
|
||
unsigned int status;
|
||
char c;
|
||
IOSB iosb;
|
||
|
||
c = out;
|
||
status = sys$qiow (EFN, tty_chan, IO$_WRITELBLK | IO$M_NOFORMAT,
|
||
&iosb, 0, 0, &c, 1, 0, 0, 0, 0);
|
||
if ((status != SS$_NORMAL) || (iosb.status != SS$_NORMAL)) return SCPE_TTOERR;
|
||
return SCPE_OK;
|
||
}
|
||
#endif
|
||
|
||
/* Win32 routines */
|
||
|
||
#ifdef _WIN32
|
||
#define __TTYROUTINES 0
|
||
#include <conio.h>
|
||
|
||
t_stat ttinit (void)
|
||
{
|
||
return SCPE_OK;
|
||
}
|
||
|
||
t_stat ttrunstate (void)
|
||
{
|
||
return SCPE_OK;
|
||
}
|
||
|
||
t_stat ttcmdstate (void)
|
||
{
|
||
return SCPE_OK;
|
||
}
|
||
|
||
t_stat ttclose (void)
|
||
{
|
||
return SCPE_OK;
|
||
}
|
||
|
||
t_stat sim_poll_kbd (void)
|
||
{
|
||
int c;
|
||
|
||
if (!kbhit ()) return SCPE_OK;
|
||
c = _getch ();
|
||
if ((c & 0177) == '\b') c = 0177;
|
||
if ((c & 0177) == sim_int_char) return SCPE_STOP;
|
||
return c | SCPE_KFLAG;
|
||
}
|
||
|
||
t_stat sim_putchar (int32 c)
|
||
{
|
||
_putch (c);
|
||
return SCPE_OK;
|
||
}
|
||
|
||
#endif
|
||
|
||
/* BSD UNIX routines */
|
||
|
||
#ifdef BSDTTY
|
||
#define __TTYROUTINES 0
|
||
#include <sgtty.h>
|
||
#include <fcntl.h>
|
||
|
||
struct sgttyb cmdtty,runtty; /* V6/V7 stty data */
|
||
struct tchars cmdtchars,runtchars; /* V7 editing */
|
||
struct ltchars cmdltchars,runltchars; /* 4.2 BSD editing */
|
||
int cmdfl,runfl; /* TTY flags */
|
||
|
||
t_stat ttinit (void)
|
||
{
|
||
cmdfl = fcntl (0, F_GETFL, 0); /* get old flags and status */
|
||
runfl = cmdfl | FNDELAY;
|
||
if (ioctl (0, TIOCGETP, &cmdtty) < 0) return SCPE_TTIERR;
|
||
if (ioctl (0, TIOCGETC, &cmdtchars) < 0) return SCPE_TTIERR;
|
||
if (ioctl (0, TIOCGLTC, &cmdltchars) < 0) return SCPE_TTIERR;
|
||
runtty = cmdtty; /* initial run state */
|
||
runtty.sg_flags = cmdtty.sg_flags & ~(ECHO|CRMOD) | CBREAK;
|
||
runtchars.t_intrc = sim_int_char; /* interrupt */
|
||
runtchars.t_quitc = 0xFF; /* no quit */
|
||
runtchars.t_startc = 0xFF; /* no host sync */
|
||
runtchars.t_stopc = 0xFF;
|
||
runtchars.t_eofc = 0xFF;
|
||
runtchars.t_brkc = 0xFF;
|
||
runltchars.t_suspc = 0xFF; /* no specials of any kind */
|
||
runltchars.t_dsuspc = 0xFF;
|
||
runltchars.t_rprntc = 0xFF;
|
||
runltchars.t_flushc = 0xFF;
|
||
runltchars.t_werasc = 0xFF;
|
||
runltchars.t_lnextc = 0xFF;
|
||
return SCPE_OK; /* return success */
|
||
}
|
||
|
||
t_stat ttrunstate (void)
|
||
{
|
||
runtchars.t_intrc = sim_int_char; /* in case changed */
|
||
fcntl (0, F_SETFL, runfl); /* non-block mode */
|
||
if (ioctl (0, TIOCSETP, &runtty) < 0) return SCPE_TTIERR;
|
||
if (ioctl (0, TIOCSETC, &runtchars) < 0) return SCPE_TTIERR;
|
||
if (ioctl (0, TIOCSLTC, &runltchars) < 0) return SCPE_TTIERR;
|
||
return SCPE_OK;
|
||
}
|
||
|
||
t_stat ttcmdstate (void)
|
||
{
|
||
fcntl (0, F_SETFL, cmdfl); /* block mode */
|
||
if (ioctl (0, TIOCSETP, &cmdtty) < 0) return SCPE_TTIERR;
|
||
if (ioctl (0, TIOCSETC, &cmdtchars) < 0) return SCPE_TTIERR;
|
||
if (ioctl (0, TIOCSLTC, &cmdltchars) < 0) return SCPE_TTIERR;
|
||
return SCPE_OK;
|
||
}
|
||
|
||
t_stat ttclose (void)
|
||
{
|
||
return ttcmdstate ();
|
||
}
|
||
|
||
t_stat sim_poll_kbd (void)
|
||
{
|
||
int status;
|
||
unsigned char buf[1];
|
||
|
||
status = read (0, buf, 1);
|
||
if (status != 1) return SCPE_OK;
|
||
else return (buf[0] | SCPE_KFLAG);
|
||
}
|
||
|
||
t_stat sim_putchar (int32 out)
|
||
{
|
||
char c;
|
||
|
||
c = out;
|
||
write (1, &c, 1);
|
||
return SCPE_OK;
|
||
}
|
||
#endif
|
||
|
||
/* POSIX UNIX routines */
|
||
|
||
#ifndef __TTYROUTINES
|
||
#include <termios.h>
|
||
|
||
struct termios cmdtty, runtty;
|
||
|
||
t_stat ttinit (void)
|
||
{
|
||
if (tcgetattr (0, &cmdtty) < 0) return SCPE_TTIERR; /* get old flags */
|
||
runtty = cmdtty;
|
||
runtty.c_lflag = runtty.c_lflag & ~(ECHO | ICANON); /* no echo or edit */
|
||
runtty.c_oflag = runtty.c_oflag & ~OPOST; /* no output edit */
|
||
runtty.c_iflag = runtty.c_iflag & ~ICRNL; /* no cr conversion */
|
||
runtty.c_cc[VINTR] = sim_int_char; /* interrupt */
|
||
runtty.c_cc[VQUIT] = 0; /* no quit */
|
||
runtty.c_cc[VERASE] = 0;
|
||
runtty.c_cc[VKILL] = 0;
|
||
runtty.c_cc[VEOF] = 0;
|
||
runtty.c_cc[VEOL] = 0;
|
||
runtty.c_cc[VSTART] = 0; /* no host sync */
|
||
runtty.c_cc[VSUSP] = 0;
|
||
runtty.c_cc[VSTOP] = 0;
|
||
#if defined (VREPRINT)
|
||
runtty.c_cc[VREPRINT] = 0; /* no specials */
|
||
#endif
|
||
#if defined (VDISCARD)
|
||
runtty.c_cc[VDISCARD] = 0;
|
||
#endif
|
||
#if defined (VWERASE)
|
||
runtty.c_cc[VWERASE] = 0;
|
||
#endif
|
||
#if defined (VLNEXT)
|
||
runtty.c_cc[VLNEXT] = 0;
|
||
#endif
|
||
runtty.c_cc[VMIN] = 0; /* no waiting */
|
||
runtty.c_cc[VTIME] = 0;
|
||
#if defined (VDSUSP)
|
||
runtty.c_cc[VDSUSP] = 0;
|
||
#endif
|
||
#if defined (VSTATUS)
|
||
runtty.c_cc[VSTATUS] = 0;
|
||
#endif
|
||
return SCPE_OK;
|
||
}
|
||
|
||
t_stat ttrunstate (void)
|
||
{
|
||
runtty.c_cc[VINTR] = sim_int_char; /* in case changed */
|
||
if (tcsetattr (0, TCSAFLUSH, &runtty) < 0) return SCPE_TTIERR;
|
||
return SCPE_OK;
|
||
}
|
||
|
||
t_stat ttcmdstate (void)
|
||
{
|
||
if (tcsetattr (0, TCSAFLUSH, &cmdtty) < 0) return SCPE_TTIERR;
|
||
return SCPE_OK;
|
||
}
|
||
|
||
t_stat ttclose (void)
|
||
{
|
||
return ttcmdstate ();
|
||
}
|
||
|
||
t_stat sim_poll_kbd (void)
|
||
{
|
||
int status;
|
||
unsigned char buf[1];
|
||
|
||
status = read (0, buf, 1);
|
||
if (status != 1) return SCPE_OK;
|
||
else return (buf[0] | SCPE_KFLAG);
|
||
}
|
||
|
||
t_stat sim_putchar (int32 out)
|
||
{
|
||
char c;
|
||
|
||
c = out;
|
||
write (1, &c, 1);
|
||
return SCPE_OK;
|
||
}
|
||
#endif
|
||
|