421 lines
8.8 KiB
C
421 lines
8.8 KiB
C
|
/*
|
||
|
*
|
||
|
* Rev 05-05-1988
|
||
|
* This file contains Unix specific code for setting terminal modes,
|
||
|
* very little is specific to ZMODEM or YMODEM per se (that code is in
|
||
|
* sz.c and rz.c). The CRC-16 routines used by XMODEM, YMODEM, and ZMODEM
|
||
|
* are also in this file, a fast table driven macro version
|
||
|
*
|
||
|
* V7/BSD HACKERS: SEE NOTES UNDER mode(2) !!!
|
||
|
*
|
||
|
* This file is #included so the main file can set parameters such as HOWMANY.
|
||
|
* See the main files (rz.c/sz.c) for compile instructions.
|
||
|
*/
|
||
|
|
||
|
#ifdef V7
|
||
|
#include <sys/types.h>
|
||
|
#include <sys/stat.h>
|
||
|
#include <sgtty.h>
|
||
|
#define OS "V7/BSD"
|
||
|
#ifdef LLITOUT
|
||
|
long Locmode; /* Saved "local mode" for 4.x BSD "new driver" */
|
||
|
long Locbit = LLITOUT; /* Bit SUPPOSED to disable output translations */
|
||
|
#include <strings.h>
|
||
|
#endif
|
||
|
#endif
|
||
|
|
||
|
#ifdef POSIX
|
||
|
#include <sys/types.h>
|
||
|
#include <sys/stat.h>
|
||
|
#include <termios.h>
|
||
|
#define OS "POSIX"
|
||
|
#endif
|
||
|
|
||
|
#ifndef OS
|
||
|
#ifndef USG
|
||
|
#define USG
|
||
|
#endif
|
||
|
#endif
|
||
|
|
||
|
#ifdef USG
|
||
|
#include <sys/types.h>
|
||
|
#include <sys/stat.h>
|
||
|
#include <termio.h>
|
||
|
#include <sys/ioctl.h>
|
||
|
#define OS "SYS III/V"
|
||
|
#define MODE2OK
|
||
|
#include <string.h>
|
||
|
#endif
|
||
|
|
||
|
#include "zmodem.h"
|
||
|
|
||
|
static unsigned getspeed(int code );
|
||
|
|
||
|
#if HOWMANY > 255
|
||
|
Howmany must be 255 or less
|
||
|
#endif
|
||
|
|
||
|
/*
|
||
|
* return 1 iff stdout and stderr are different devices
|
||
|
* indicating this program operating with a modem on a
|
||
|
* different line
|
||
|
*/
|
||
|
int Fromcu; /* Were called from cu or yam */
|
||
|
|
||
|
void from_cu()
|
||
|
{
|
||
|
struct stat a, b;
|
||
|
|
||
|
fstat(1, &a); fstat(2, &b);
|
||
|
Fromcu = a.st_rdev != b.st_rdev;
|
||
|
return;
|
||
|
}
|
||
|
|
||
|
void cucheck()
|
||
|
{
|
||
|
if (Fromcu)
|
||
|
fprintf(stderr,"Please read the manual page BUGS chapter!\r\n");
|
||
|
}
|
||
|
|
||
|
|
||
|
struct {
|
||
|
unsigned baudr;
|
||
|
int speedcode;
|
||
|
} speeds[] = {
|
||
|
{110, B110, },
|
||
|
{300, B300, },
|
||
|
#ifdef B600
|
||
|
{600, B600, },
|
||
|
#endif
|
||
|
{1200, B1200, },
|
||
|
{2400, B2400, },
|
||
|
{4800, B4800, },
|
||
|
{9600, B9600, },
|
||
|
#ifdef EXTA
|
||
|
{19200, EXTA, },
|
||
|
{38400, EXTB, },
|
||
|
#endif
|
||
|
{0},
|
||
|
};
|
||
|
|
||
|
int Twostop; /* Use two stop bits */
|
||
|
|
||
|
|
||
|
#ifndef READCHECK
|
||
|
#ifdef FIONREAD
|
||
|
#define READCHECK
|
||
|
/*
|
||
|
* Return non 0 iff something to read from io descriptor f
|
||
|
*/
|
||
|
int rdchk(int f)
|
||
|
{
|
||
|
static long lf;
|
||
|
|
||
|
ioctl(f, FIONREAD, &lf);
|
||
|
return ((int) lf);
|
||
|
}
|
||
|
#endif
|
||
|
#ifdef SV
|
||
|
#define READCHECK
|
||
|
#include <fcntl.h>
|
||
|
|
||
|
char checked = '\0' ;
|
||
|
/*
|
||
|
* Nonblocking I/O is a bit different in System V, Release 2
|
||
|
*/
|
||
|
int rdchk(f)
|
||
|
{
|
||
|
int lf, savestat;
|
||
|
|
||
|
savestat = fcntl(f, F_GETFL) ;
|
||
|
fcntl(f, F_SETFL, savestat | O_NDELAY) ;
|
||
|
lf = read(f, &checked, 1) ;
|
||
|
fcntl(f, F_SETFL, savestat) ;
|
||
|
return(lf) ;
|
||
|
}
|
||
|
#endif
|
||
|
#endif
|
||
|
|
||
|
|
||
|
static unsigned
|
||
|
getspeed(int code)
|
||
|
{
|
||
|
register int n;
|
||
|
|
||
|
for (n=0; speeds[n].baudr; ++n)
|
||
|
if (speeds[n].speedcode == code)
|
||
|
return speeds[n].baudr;
|
||
|
return 38400; /* Assume fifo if ioctl failed */
|
||
|
}
|
||
|
|
||
|
|
||
|
|
||
|
#ifdef POSIX
|
||
|
struct termios oldtty, tty;
|
||
|
#else
|
||
|
#ifdef ICANON
|
||
|
struct termio oldtty, tty;
|
||
|
#else
|
||
|
struct sgttyb oldtty, tty;
|
||
|
struct tchars oldtch, tch;
|
||
|
#endif
|
||
|
#endif
|
||
|
|
||
|
int iofd = 0; /* File descriptor for ioctls & reads */
|
||
|
|
||
|
/*
|
||
|
* mode(n)
|
||
|
* 3: save old tty stat, set raw mode with flow control
|
||
|
* 2: set XON/XOFF for sb/sz with ZMODEM or YMODEM-g
|
||
|
* 1: save old tty stat, set raw mode
|
||
|
* 0: restore original tty mode
|
||
|
*/
|
||
|
int mode(n)
|
||
|
int n;
|
||
|
{
|
||
|
static int did0 = FALSE;
|
||
|
|
||
|
vfile("mode:%d", n);
|
||
|
switch(n) {
|
||
|
#ifdef POSIX
|
||
|
case 2: /* Un-raw mode used by sz, sb when -g detected */
|
||
|
if(!did0)
|
||
|
(void) tcgetattr(iofd, &oldtty);
|
||
|
tty = oldtty;
|
||
|
|
||
|
tty.c_iflag = BRKINT|IXON;
|
||
|
|
||
|
tty.c_oflag = 0; /* Transparent output */
|
||
|
|
||
|
tty.c_cflag &= ~PARENB; /* Disable parity */
|
||
|
tty.c_cflag |= CS8; /* Set character size = 8 */
|
||
|
if (Twostop)
|
||
|
tty.c_cflag |= CSTOPB; /* Set two stop bits */
|
||
|
|
||
|
|
||
|
tty.c_lflag = ISIG;
|
||
|
tty.c_cc[VINTR] = Zmodem ? 03:030; /* Interrupt char */
|
||
|
tty.c_cc[VQUIT] = -1; /* Quit char */
|
||
|
tty.c_cc[VMIN] = 3; /* This many chars satisfies reads */
|
||
|
tty.c_cc[VTIME] = 1; /* or in this many tenths of seconds */
|
||
|
|
||
|
(void) tcsetattr(iofd, TCSANOW, &tty);
|
||
|
did0 = TRUE;
|
||
|
return OK;
|
||
|
case 1:
|
||
|
case 3:
|
||
|
if(!did0)
|
||
|
(void) tcgetattr(iofd, &oldtty);
|
||
|
tty = oldtty;
|
||
|
|
||
|
tty.c_iflag = n==3 ? (IGNBRK|IXOFF) : IGNBRK;
|
||
|
|
||
|
/* No echo, crlf mapping, INTR, QUIT, delays, no erase/kill */
|
||
|
tty.c_lflag &= ~(ECHO | ECHONL | ICANON | ISIG | IEXTEN);
|
||
|
|
||
|
tty.c_oflag = 0; /* Transparent output */
|
||
|
|
||
|
tty.c_cflag &= ~PARENB; /* Same baud rate, disable parity */
|
||
|
tty.c_cflag |= CS8; /* Set character size = 8 */
|
||
|
if (Twostop)
|
||
|
tty.c_cflag |= CSTOPB; /* Set two stop bits */
|
||
|
tty.c_cc[VMIN] = HOWMANY; /* This many chars satisfies reads */
|
||
|
tty.c_cc[VTIME] = 1; /* or in this many tenths of seconds */
|
||
|
(void) tcsetattr(iofd, TCSANOW, &tty);
|
||
|
did0 = TRUE;
|
||
|
Baudrate = cfgetospeed(&tty);
|
||
|
return OK;
|
||
|
#endif
|
||
|
#ifdef USG
|
||
|
case 2: /* Un-raw mode used by sz, sb when -g detected */
|
||
|
if(!did0)
|
||
|
(void) ioctl(iofd, TCGETA, &oldtty);
|
||
|
tty = oldtty;
|
||
|
|
||
|
tty.c_iflag = BRKINT|IXON;
|
||
|
|
||
|
tty.c_oflag = 0; /* Transparent output */
|
||
|
|
||
|
tty.c_cflag &= ~PARENB; /* Disable parity */
|
||
|
tty.c_cflag |= CS8; /* Set character size = 8 */
|
||
|
if (Twostop)
|
||
|
tty.c_cflag |= CSTOPB; /* Set two stop bits */
|
||
|
|
||
|
|
||
|
#ifdef READCHECK
|
||
|
tty.c_lflag = Zmodem ? 0 : ISIG;
|
||
|
tty.c_cc[VINTR] = Zmodem ? -1:030; /* Interrupt char */
|
||
|
#else
|
||
|
tty.c_lflag = ISIG;
|
||
|
tty.c_cc[VINTR] = Zmodem ? 03:030; /* Interrupt char */
|
||
|
#endif
|
||
|
tty.c_cc[VQUIT] = -1; /* Quit char */
|
||
|
#ifdef NFGVMIN
|
||
|
tty.c_cc[VMIN] = 1;
|
||
|
#else
|
||
|
tty.c_cc[VMIN] = 3; /* This many chars satisfies reads */
|
||
|
#endif
|
||
|
tty.c_cc[VTIME] = 1; /* or in this many tenths of seconds */
|
||
|
|
||
|
(void) ioctl(iofd, TCSETAW, &tty);
|
||
|
did0 = TRUE;
|
||
|
return OK;
|
||
|
case 1:
|
||
|
case 3:
|
||
|
if(!did0)
|
||
|
(void) ioctl(iofd, TCGETA, &oldtty);
|
||
|
tty = oldtty;
|
||
|
|
||
|
tty.c_iflag = n==3 ? (IGNBRK|IXOFF) : IGNBRK;
|
||
|
|
||
|
/* No echo, crlf mapping, INTR, QUIT, delays, no erase/kill */
|
||
|
tty.c_lflag &= ~(ECHO | ICANON | ISIG);
|
||
|
|
||
|
tty.c_oflag = 0; /* Transparent output */
|
||
|
|
||
|
tty.c_cflag &= ~PARENB; /* Same baud rate, disable parity */
|
||
|
tty.c_cflag |= CS8; /* Set character size = 8 */
|
||
|
if (Twostop)
|
||
|
tty.c_cflag |= CSTOPB; /* Set two stop bits */
|
||
|
#ifdef NFGVMIN
|
||
|
tty.c_cc[VMIN] = 1; /* This many chars satisfies reads */
|
||
|
#else
|
||
|
tty.c_cc[VMIN] = HOWMANY; /* This many chars satisfies reads */
|
||
|
#endif
|
||
|
tty.c_cc[VTIME] = 1; /* or in this many tenths of seconds */
|
||
|
(void) ioctl(iofd, TCSETAW, &tty);
|
||
|
did0 = TRUE;
|
||
|
Baudrate = getspeed(tty.c_cflag & CBAUD);
|
||
|
return OK;
|
||
|
#endif
|
||
|
#ifdef V7
|
||
|
/*
|
||
|
* NOTE: this should transmit all 8 bits and at the same time
|
||
|
* respond to XOFF/XON flow control. If no FIONREAD or other
|
||
|
* READCHECK alternative, also must respond to INTRRUPT char
|
||
|
* This doesn't work with V7. It should work with LLITOUT,
|
||
|
* but LLITOUT was broken on the machine I tried it on.
|
||
|
*/
|
||
|
case 2: /* Un-raw mode used by sz, sb when -g detected */
|
||
|
if(!did0) {
|
||
|
#ifdef TIOCEXCL
|
||
|
ioctl(iofd, TIOCEXCL, 0);
|
||
|
#endif
|
||
|
ioctl(iofd, TIOCGETP, &oldtty);
|
||
|
ioctl(iofd, TIOCGETC, (struct sgttyb *) &oldtch);
|
||
|
#ifdef LLITOUT
|
||
|
ioctl(iofd, TIOCLGET, &Locmode);
|
||
|
#endif
|
||
|
}
|
||
|
tty = oldtty;
|
||
|
tch = oldtch;
|
||
|
#ifdef READCHECK
|
||
|
tch.t_intrc = Zmodem ? -1:030; /* Interrupt char */
|
||
|
#else
|
||
|
tch.t_intrc = Zmodem ? 03:030; /* Interrupt char */
|
||
|
#endif
|
||
|
#ifdef ODDP
|
||
|
tty.sg_flags |= ODDP;
|
||
|
#endif
|
||
|
#ifdef EVENP
|
||
|
tty.sg_flags |= EVENP;
|
||
|
#endif
|
||
|
#ifdef CBREAK
|
||
|
tty.sg_flags |= CBREAK;
|
||
|
#endif
|
||
|
#ifdef ALLDELAY
|
||
|
tty.sg_flags &= ~ALLDELAY;
|
||
|
#endif
|
||
|
#ifdef CRMOD
|
||
|
tty.sg_flags &= ~CRMOD;
|
||
|
#endif
|
||
|
#ifdef ECHO
|
||
|
tty.sg_flags &= ~ECHO;
|
||
|
#endif
|
||
|
#ifdef LCASE
|
||
|
tty.sg_flags &= ~LCASE;
|
||
|
#endif
|
||
|
|
||
|
ioctl(iofd, TIOCSETP, &tty);
|
||
|
ioctl(iofd, TIOCSETC, (struct sgttyb *) &tch);
|
||
|
#ifdef LLITOUT
|
||
|
ioctl(iofd, TIOCLBIS, &Locbit);
|
||
|
#endif
|
||
|
bibi(99); /* un-raw doesn't work w/o lit out */
|
||
|
did0 = TRUE;
|
||
|
return OK;
|
||
|
case 1:
|
||
|
case 3:
|
||
|
if(!did0) {
|
||
|
#ifdef TIOCEXCL
|
||
|
ioctl(iofd, TIOCEXCL, 0);
|
||
|
#endif
|
||
|
ioctl(iofd, TIOCGETP, &oldtty);
|
||
|
ioctl(iofd, TIOCGETC, (struct sgttyb *) &oldtch);
|
||
|
#ifdef LLITOUT
|
||
|
ioctl(iofd, TIOCLGET, &Locmode);
|
||
|
#endif
|
||
|
}
|
||
|
tty = oldtty;
|
||
|
tty.sg_flags |= RAW;
|
||
|
tty.sg_flags &= ~ECHO;
|
||
|
ioctl(iofd, TIOCSETP, &tty);
|
||
|
did0 = TRUE;
|
||
|
Baudrate = getspeed(tty.sg_ospeed);
|
||
|
return OK;
|
||
|
#endif
|
||
|
case 0:
|
||
|
if(!did0)
|
||
|
return ERROR;
|
||
|
#ifdef POSIX
|
||
|
/* Wait for output to drain, flush input queue, restore
|
||
|
* modes and restart output.
|
||
|
*/
|
||
|
(void) tcsetattr(iofd, TCSAFLUSH, &oldtty);
|
||
|
(void) tcflow(iofd, TCOON);
|
||
|
#endif
|
||
|
#ifdef USG
|
||
|
(void) ioctl(iofd, TCSBRK, 1); /* Wait for output to drain */
|
||
|
(void) ioctl(iofd, TCFLSH, 1); /* Flush input queue */
|
||
|
(void) ioctl(iofd, TCSETAW, &oldtty); /* Restore modes */
|
||
|
(void) ioctl(iofd, TCXONC,1); /* Restart output */
|
||
|
#endif
|
||
|
#ifdef V7
|
||
|
ioctl(iofd, TIOCSETP, &oldtty);
|
||
|
ioctl(iofd, TIOCSETC, (struct sgttyb *) &oldtch);
|
||
|
#ifdef TIOCNXCL
|
||
|
ioctl(iofd, TIOCNXCL, 0);
|
||
|
#endif
|
||
|
#ifdef LLITOUT
|
||
|
ioctl(iofd, TIOCLSET, &Locmode);
|
||
|
#endif
|
||
|
#endif
|
||
|
|
||
|
return OK;
|
||
|
default:
|
||
|
return ERROR;
|
||
|
}
|
||
|
}
|
||
|
|
||
|
void sendbrk()
|
||
|
{
|
||
|
#ifdef POSIX
|
||
|
tcsendbreak(iofd, 1);
|
||
|
#endif
|
||
|
#ifdef V7
|
||
|
#ifdef TIOCSBRK
|
||
|
#define CANBREAK
|
||
|
sleep(1);
|
||
|
ioctl(iofd, TIOCSBRK, 0);
|
||
|
sleep(1);
|
||
|
ioctl(iofd, TIOCCBRK, 0);
|
||
|
#endif
|
||
|
#endif
|
||
|
#ifdef USG
|
||
|
#define CANBREAK
|
||
|
ioctl(iofd, TCSBRK, 0);
|
||
|
#endif
|
||
|
}
|
||
|
|
||
|
/* End of rbsb.c */
|