minix3/commands/zmodem/rbsb.c

421 lines
8.8 KiB
C
Raw Permalink Normal View History

2020-02-21 00:59:27 +05:30
/*
*
* 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 */