8858a76bd7152c7ec85538351168c079873f43fb
[unix-history] / usr / src / usr.bin / telnet / sys_bsd.c
/*
* Copyright (c) 1988 Regents of the University of California.
* All rights reserved.
*
* Redistribution and use in source and binary forms are permitted
* provided that the above copyright notice and this paragraph are
* duplicated in all such forms and that any documentation,
* advertising materials, and other materials related to such
* distribution and use acknowledge that the software was developed
* by the University of California, Berkeley. The name of the
* University may not be used to endorse or promote products derived
* from this software without specific prior written permission.
* THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
* IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
* WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
*/
#ifndef lint
static char sccsid[] = "@(#)sys_bsd.c 1.20 (Berkeley) %G%";
#endif /* not lint */
/*
* The following routines try to encapsulate what is system dependent
* (at least between 4.x and dos) which is used in telnet.c.
*/
#if defined(unix)
#include <fcntl.h>
#include <sys/types.h>
#include <sys/time.h>
#include <sys/socket.h>
#include <signal.h>
#include <errno.h>
#include <arpa/telnet.h>
#include "ring.h"
#include "fdset.h"
#include "defines.h"
#include "externs.h"
#include "types.h"
int
tout, /* Output file descriptor */
tin, /* Input file descriptor */
net;
#ifndef USE_TERMIO
struct tchars otc = { 0 }, ntc = { 0 };
struct ltchars oltc = { 0 }, nltc = { 0 };
struct sgttyb ottyb = { 0 }, nttyb = { 0 };
#define ISPEED ottyb.sg_ispeed
#define OSPEED ottyb.sg_ospeed
#else /* USE_TERMIO */
struct termio old_tc = { 0 };
extern struct termio new_tc;
#define ISPEED (old_tc.c_cflag&CBAUD)
#define OSPEED ISPEED
#endif /* USE_TERMIO */
static fd_set ibits, obits, xbits;
init_sys()
{
tout = fileno(stdout);
tin = fileno(stdin);
FD_ZERO(&ibits);
FD_ZERO(&obits);
FD_ZERO(&xbits);
errno = 0;
}
TerminalWrite(buf, n)
char *buf;
int n;
{
return write(tout, buf, n);
}
TerminalRead(buf, n)
char *buf;
int n;
{
return read(tin, buf, n);
}
/*
*
*/
int
TerminalAutoFlush()
{
#if defined(LNOFLSH)
int flush;
ioctl(0, TIOCLGET, (char *)&flush);
return !(flush&LNOFLSH); /* if LNOFLSH, no autoflush */
#else /* LNOFLSH */
return 1;
#endif /* LNOFLSH */
}
#ifdef KLUDGELINEMODE
extern int kludgelinemode;
#endif
/*
* TerminalSpecialChars()
*
* Look at an input character to see if it is a special character
* and decide what to do.
*
* Output:
*
* 0 Don't add this character.
* 1 Do add this character
*/
int
TerminalSpecialChars(c)
int c;
{
void xmitAO(), xmitEL(), xmitEC(), intp(), sendbrk();
if (c == termIntChar) {
intp();
return 0;
} else if (c == termQuitChar) {
#ifdef KLUDGELINEMODE
if (kludgelinemode)
sendbrk();
else
#endif
sendabort();
return 0;
} else if (c == termEofChar) {
if (my_want_state_is_will(TELOPT_LINEMODE)) {
sendeof();
return 0;
}
return 1;
} else if (c == termSuspChar) {
sendsusp();
return(0);
} else if (c == termFlushChar) {
xmitAO(); /* Transmit Abort Output */
return 0;
} else if (!MODE_LOCAL_CHARS(globalmode)) {
if (c == termKillChar) {
xmitEL();
return 0;
} else if (c == termEraseChar) {
xmitEC(); /* Transmit Erase Character */
return 0;
}
}
return 1;
}
/*
* Flush output to the terminal
*/
void
TerminalFlushOutput()
{
#ifndef USE_TERMIO
(void) ioctl(fileno(stdout), TIOCFLUSH, (char *) 0);
#else
(void) ioctl(fileno(stdout), TCFLSH, (char *) 0);
#endif
}
void
TerminalSaveState()
{
#ifndef USE_TERMIO
ioctl(0, TIOCGETP, (char *)&ottyb);
ioctl(0, TIOCGETC, (char *)&otc);
ioctl(0, TIOCGLTC, (char *)&oltc);
ntc = otc;
nltc = oltc;
nttyb = ottyb;
#else /* USE_TERMIO */
ioctl(0, TCGETA, &old_tc);
new_tc = old_tc;
termFlushChar = 'O'&0x37;
termWerasChar = 'W'&0x37;
termRprntChar = 'R'&0x37;
termLiteralNextChar = 'V'&0x37;
termStartChar = 'Q'&0x37;
termStopChar = 'S'&0x37;
#endif /* USE_TERMIO */
}
char *
tcval(func)
register int func;
{
switch(func) {
case SLC_IP: return(&termIntChar);
case SLC_ABORT: return(&termQuitChar);
case SLC_EOF: return(&termEofChar);
case SLC_EC: return(&termEraseChar);
case SLC_EL: return(&termKillChar);
case SLC_XON: return(&termStartChar);
case SLC_XOFF: return(&termStopChar);
#ifndef CRAY
case SLC_AO: return(&termFlushChar);
case SLC_SUSP: return(&termSuspChar);
case SLC_EW: return(&termWerasChar);
case SLC_RP: return(&termRprntChar);
case SLC_LNEXT: return(&termLiteralNextChar);
#endif /* CRAY */
case SLC_SYNCH:
case SLC_BRK:
case SLC_AYT:
case SLC_EOR:
case SLC_FORW1:
case SLC_FORW2:
default:
return((char *)0);
}
}
void
TerminalDefaultChars()
{
#ifndef USE_TERMIO
ntc = otc;
nltc = oltc;
nttyb.sg_kill = ottyb.sg_kill;
nttyb.sg_erase = ottyb.sg_erase;
#else /* USE_TERMIO */
memcpy(new_tc.c_cc, old_tc.c_cc, sizeof(old_tc.c_cc));
termFlushChar = 'O'&0x37;
termWerasChar = 'W'&0x37;
termRprntChar = 'R'&0x37;
termLiteralNextChar = 'V'&0x37;
termStartChar = 'Q'&0x37;
termStopChar = 'S'&0x37;
#endif /* USE_TERMIO */
}
void
TerminalRestoreState()
{
}
/*
* TerminalNewMode - set up terminal to a specific mode.
* MODE_ECHO: do local terminal echo
* MODE_FLOW: do local flow control
* MODE_TRAPSIG: do local mapping to TELNET IAC sequences
* MODE_EDIT: do local line editing
*
* Command mode:
* MODE_ECHO|MODE_EDIT|MODE_FLOW|MODE_TRAPSIG
* local echo
* local editing
* local xon/xoff
* local signal mapping
*
* Linemode:
* local/no editing
* Both Linemode and Single Character mode:
* local/remote echo
* local/no xon/xoff
* local/no signal mapping
*/
void
TerminalNewMode(f)
register int f;
{
static int prevmode = 0;
#ifndef USE_TERMIO
struct tchars tc;
struct ltchars ltc;
struct sgttyb sb;
#else /* USE_TERMIO */
struct termio tmp_tc;
#endif /* USE_TERMIO */
int onoff;
int old;
globalmode = f&~MODE_FORCE;
if (prevmode == f)
return;
/*
* Write any outstanding data before switching modes
* ttyflush() returns 0 only when there is no more data
* left to write out, it returns -1 if it couldn't do
* anything at all, otherwise it returns 1 + the number
* of characters left to write.
*/
old = ttyflush(SYNCHing|flushout);
if (old < 0 || old > 1) {
#ifndef USE_TERMIO
ioctl(tin, TIOCGETP, (char *)&sb);
#else /* USE_TERMIO */
ioctl(tin, TCGETA, (char *)&tmp_tc);
#endif /* USE_TERMIO */
do {
/*
* Wait for data to drain, then flush again.
*/
#ifndef USE_TERMIO
ioctl(tin, TIOCSETP, (char *)&sb);
#else /* USE_TERMIO */
ioctl(tin, TCSETAW, (char *)&tmp_tc);
#endif /* USE_TERMIO */
old = ttyflush(SYNCHing|flushout);
} while (old < 0 || old > 1);
}
old = prevmode;
prevmode = f&~MODE_FORCE;
#ifndef USE_TERMIO
sb = nttyb;
tc = ntc;
ltc = nltc;
#else
tmp_tc = new_tc;
#endif
if (f&MODE_ECHO) {
#ifndef USE_TERMIO
sb.sg_flags |= ECHO;
#else
tmp_tc.c_lflag |= ECHO;
tmp_tc.c_oflag |= ONLCR;
tmp_tc.c_iflag |= ICRNL;
#endif
} else {
#ifndef USE_TERMIO
sb.sg_flags &= ~ECHO;
#else
tmp_tc.c_lflag &= ~ECHO;
tmp_tc.c_oflag &= ~ONLCR;
tmp_tc.c_iflag &= ~ICRNL;
#endif
}
if ((f&MODE_FLOW) == 0) {
#ifndef USE_TERMIO
tc.t_startc = -1;
tc.t_stopc = -1;
#else
tmp_tc.c_iflag &= ~(IXANY|IXOFF|IXON);
} else {
tmp_tc.c_iflag |= IXANY|IXOFF|IXON;
#endif
}
if ((f&MODE_TRAPSIG) == 0) {
#ifndef USE_TERMIO
tc.t_intrc = -1;
tc.t_quitc = -1;
tc.t_eofc = -1;
ltc.t_suspc = -1;
ltc.t_dsuspc = -1;
#else
tmp_tc.c_lflag &= ~ISIG;
#endif
localchars = 0;
} else {
#ifdef USE_TERMIO
tmp_tc.c_lflag |= ISIG;
#endif
localchars = 1;
}
if (f&MODE_EDIT) {
#ifndef USE_TERMIO
sb.sg_flags &= ~CBREAK;
sb.sg_flags |= CRMOD;
#else
tmp_tc.c_lflag |= ICANON;
#endif
} else {
#ifndef USE_TERMIO
sb.sg_flags |= CBREAK;
if (f&MODE_ECHO)
sb.sg_flags |= CRMOD;
else
sb.sg_flags &= ~CRMOD;
#else
tmp_tc.c_lflag &= ~ICANON;
tmp_tc.c_iflag &= ~ICRNL;
tmp_tc.c_cc[VMIN] = 1;
tmp_tc.c_cc[VTIME] = 0;
#endif
}
if (f == -1) {
onoff = 0;
} else {
onoff = 1;
}
#ifndef USE_TERMIO
if (f != -1) {
if (f&MODE_EDIT) {
void doescape();
ltc.t_suspc = escape;
(void) signal(SIGTSTP, (int (*)())doescape);
} else if (old&MODE_EDIT) {
(void) signal(SIGTSTP, SIG_DFL);
sigsetmask(sigblock(0) & ~(1<<(SIGTSTP-1)));
}
ioctl(tin, TIOCSLTC, (char *)&ltc);
ioctl(tin, TIOCSETC, (char *)&tc);
ioctl(tin, TIOCSETP, (char *)&sb);
} else {
(void) signal(SIGTSTP, SIG_DFL);
sigsetmask(sigblock(0) & ~(1<<(SIGTSTP-1)));
ioctl(tin, TIOCSLTC, (char *)&oltc);
ioctl(tin, TIOCSETC, (char *)&otc);
ioctl(tin, TIOCSETP, (char *)&ottyb);
}
#if (!defined(TN3270)) || ((!defined(NOT43)) || defined(PUTCHAR))
ioctl(tin, FIONBIO, (char *)&onoff);
ioctl(tout, FIONBIO, (char *)&onoff);
#endif /* (!defined(TN3270)) || ((!defined(NOT43)) || defined(PUTCHAR)) */
#if defined(TN3270)
if (noasynchtty == 0) {
ioctl(tin, FIOASYNC, (char *)&onoff);
}
#endif /* defined(TN3270) */
#else /* USE_TERMIO */
if (ioctl(tin, TCSETAW, &tmp_tc) < 0)
ioctl(tin, TCSETA, &tmp_tc);
#endif /* USE_TERMIO */
}
void
TerminalSpeeds(ispeed, ospeed)
long *ispeed;
long *ospeed;
{
/*
* The order here is important. The index of each speed needs to
* correspond with the sgtty structure value for that speed.
*
* Additionally, the search algorithm assumes the table is in
* ascending sequence.
*/
static int ttyspeeds[] = {
0, 50, 75, 110, 134, 150, 200, 300,
600, 1200, 1800, 2400, 4800, 9600, 19200, 38400 };
#define NUMSPEEDS sizeof ttyspeeds/sizeof ttyspeeds[0]
if ((OSPEED < 0) || (OSPEED > NUMSPEEDS) ||
(ISPEED < 0) || (ISPEED > NUMSPEEDS)) {
ExitString("Invalid terminal speed.");
/*NOTREACHED*/
} else {
*ispeed = ttyspeeds[ISPEED];
*ospeed = ttyspeeds[OSPEED];
}
}
int
TerminalWindowSize(rows, cols)
long *rows, *cols;
{
#ifdef TIOCGWINSZ
struct winsize ws;
if (ioctl(fileno(stdin), TIOCGWINSZ, (char *)&ws) >= 0) {
*rows = ws.ws_row;
*cols = ws.ws_col;
return 1;
}
#endif /* TIOCGWINSZ */
return 0;
}
int
NetClose(fd)
int fd;
{
return close(fd);
}
void
NetNonblockingIO(fd, onoff)
int
fd,
onoff;
{
ioctl(fd, FIONBIO, (char *)&onoff);
}
#if defined(TN3270)
void
NetSigIO(fd, onoff)
int
fd,
onoff;
{
ioctl(fd, FIOASYNC, (char *)&onoff); /* hear about input */
}
void
NetSetPgrp(fd)
int fd;
{
int myPid;
myPid = getpid();
fcntl(fd, F_SETOWN, myPid);
}
#endif /*defined(TN3270)*/
\f
/*
* Various signal handling routines.
*/
static void
deadpeer()
{
setcommandmode();
longjmp(peerdied, -1);
}
static void
intr()
{
if (localchars) {
intp();
return;
}
setcommandmode();
longjmp(toplevel, -1);
}
static void
intr2()
{
if (localchars) {
#ifdef KLUDGELINEMODE
if (kludgelinemode)
sendbrk();
else
#endif
sendabort();
return;
}
}
static void
sendwin()
{
if (connected) {
sendnaws();
}
}
static void
doescape()
{
command(0, 0, 0);
}
\f
void
sys_telnet_init()
{
#ifndef CRAY
(void) signal(SIGINT, (int (*)())intr);
(void) signal(SIGQUIT, (int (*)())intr2);
(void) signal(SIGPIPE, (int (*)())deadpeer);
#else
(void) signal(SIGINT, (void (*)())intr);
(void) signal(SIGQUIT, (void (*)())intr2);
(void) signal(SIGPIPE, (void (*)())deadpeer);
#endif
#ifdef SIGWINCH
(void) signal(SIGWINCH, (int (*)())sendwin);
#endif
setconnmode(0);
NetNonblockingIO(net, 1);
#if defined(TN3270)
if (noasynchnet == 0) { /* DBX can't handle! */
NetSigIO(net, 1);
NetSetPgrp(net);
}
#endif /* defined(TN3270) */
#if defined(SO_OOBINLINE)
if (SetSockOpt(net, SOL_SOCKET, SO_OOBINLINE, 1) == -1) {
perror("SetSockOpt");
}
#endif /* defined(SO_OOBINLINE) */
}
/*
* Process rings -
*
* This routine tries to fill up/empty our various rings.
*
* The parameter specifies whether this is a poll operation,
* or a block-until-something-happens operation.
*
* The return value is 1 if something happened, 0 if not.
*/
int
process_rings(netin, netout, netex, ttyin, ttyout, poll)
int poll; /* If 0, then block until something to do */
{
register int c;
/* One wants to be a bit careful about setting returnValue
* to one, since a one implies we did some useful work,
* and therefore probably won't be called to block next
* time (TN3270 mode only).
*/
int returnValue = 0;
static struct timeval TimeValue = { 0 };
if (netout) {
FD_SET(net, &obits);
}
if (ttyout) {
FD_SET(tout, &obits);
}
#if defined(TN3270)
if (ttyin) {
FD_SET(tin, &ibits);
}
#else /* defined(TN3270) */
if (ttyin) {
FD_SET(tin, &ibits);
}
#endif /* defined(TN3270) */
#if defined(TN3270)
if (netin) {
FD_SET(net, &ibits);
}
# else /* !defined(TN3270) */
if (netin) {
FD_SET(net, &ibits);
}
# endif /* !defined(TN3270) */
if (netex) {
FD_SET(net, &xbits);
}
if ((c = select(16, &ibits, &obits, &xbits,
(poll == 0)? (struct timeval *)0 : &TimeValue)) < 0) {
if (c == -1) {
/*
* we can get EINTR if we are in line mode,
* and the user does an escape (TSTP), or
* some other signal generator.
*/
if (errno == EINTR) {
return 0;
}
# if defined(TN3270)
/*
* we can get EBADF if we were in transparent
* mode, and the transcom process died.
*/
if (errno == EBADF) {
/*
* zero the bits (even though kernel does it)
* to make sure we are selecting on the right
* ones.
*/
FD_ZERO(&ibits);
FD_ZERO(&obits);
FD_ZERO(&xbits);
return 0;
}
# endif /* defined(TN3270) */
/* I don't like this, does it ever happen? */
printf("sleep(5) from telnet, after select\r\n");
sleep(5);
}
return 0;
}
/*
* Any urgent data?
*/
if (FD_ISSET(net, &xbits)) {
FD_CLR(net, &xbits);
SYNCHing = 1;
ttyflush(1); /* flush already enqueued data */
}
/*
* Something to read from the network...
*/
if (FD_ISSET(net, &ibits)) {
int canread;
FD_CLR(net, &ibits);
canread = ring_empty_consecutive(&netiring);
#if !defined(SO_OOBINLINE)
/*
* In 4.2 (and some early 4.3) systems, the
* OOB indication and data handling in the kernel
* is such that if two separate TCP Urgent requests
* come in, one byte of TCP data will be overlaid.
* This is fatal for Telnet, but we try to live
* with it.
*
* In addition, in 4.2 (and...), a special protocol
* is needed to pick up the TCP Urgent data in
* the correct sequence.
*
* What we do is: if we think we are in urgent
* mode, we look to see if we are "at the mark".
* If we are, we do an OOB receive. If we run
* this twice, we will do the OOB receive twice,
* but the second will fail, since the second
* time we were "at the mark", but there wasn't
* any data there (the kernel doesn't reset
* "at the mark" until we do a normal read).
* Once we've read the OOB data, we go ahead
* and do normal reads.
*
* There is also another problem, which is that
* since the OOB byte we read doesn't put us
* out of OOB state, and since that byte is most
* likely the TELNET DM (data mark), we would
* stay in the TELNET SYNCH (SYNCHing) state.
* So, clocks to the rescue. If we've "just"
* received a DM, then we test for the
* presence of OOB data when the receive OOB
* fails (and AFTER we did the normal mode read
* to clear "at the mark").
*/
if (SYNCHing) {
int atmark;
ioctl(net, SIOCATMARK, (char *)&atmark);
if (atmark) {
c = recv(net, netiring.supply, canread, MSG_OOB);
if ((c == -1) && (errno == EINVAL)) {
c = recv(net, netiring.supply, canread, 0);
if (clocks.didnetreceive < clocks.gotDM) {
SYNCHing = stilloob(net);
}
}
} else {
c = recv(net, netiring.supply, canread, 0);
}
} else {
c = recv(net, netiring.supply, canread, 0);
}
settimer(didnetreceive);
#else /* !defined(SO_OOBINLINE) */
c = recv(net, netiring.supply, canread, 0);
#endif /* !defined(SO_OOBINLINE) */
if (c < 0 && errno == EWOULDBLOCK) {
c = 0;
} else if (c <= 0) {
return -1;
}
if (netdata) {
Dump('<', netiring.supply, c);
}
if (c)
ring_supplied(&netiring, c);
returnValue = 1;
}
/*
* Something to read from the tty...
*/
if (FD_ISSET(tin, &ibits)) {
FD_CLR(tin, &ibits);
c = TerminalRead(ttyiring.supply, ring_empty_consecutive(&ttyiring));
if (c < 0 && errno == EWOULDBLOCK) {
c = 0;
} else {
/* EOF detection for line mode!!!! */
if ((c == 0) && MODE_LOCAL_CHARS(globalmode) && isatty(tin)) {
/* must be an EOF... */
*ttyiring.supply = termEofChar;
c = 1;
}
if (c <= 0) {
return -1;
}
if (termdata) {
Dump('<', ttyiring.supply, c);
}
ring_supplied(&ttyiring, c);
}
returnValue = 1; /* did something useful */
}
if (FD_ISSET(net, &obits)) {
FD_CLR(net, &obits);
returnValue |= netflush();
}
if (FD_ISSET(tout, &obits)) {
FD_CLR(tout, &obits);
returnValue |= (ttyflush(SYNCHing|flushout) > 0);
}
return returnValue;
}
#endif /* defined(unix) */