mirror of
https://github.com/simh/simh.git
synced 2026-05-04 23:15:23 +00:00
simh v2.5
This commit is contained in:
Bob Supnik
Mark Pizzolato
357
scp_tty.c
Normal file
357
scp_tty.c
Normal file
@@ -0,0 +1,357 @@
|
||||
/* 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
|
||||
|
||||
Reference in New Issue
Block a user