This repository has been archived on 2024-04-08. You can view files and clone it, but cannot push or open issues or pull requests.
deb-mbse/mbsebbs/openport.c
2004-11-30 21:08:21 +00:00

380 lines
9.4 KiB
C

/*****************************************************************************
*
* $Id$
*
*****************************************************************************
* Copyright (C) 1997-2004
*
* Michiel Broek FIDO: 2:280/2802
* Beekmansbos 10
* 1971 BV IJmuiden
* the Netherlands
*
* This file is part of MBSE BBS.
*
* This BBS is free software; you can redistribute it and/or modify it
* under the terms of the GNU General Public License as published by the
* Free Software Foundation; either version 2, or (at your option) any
* later version.
*
* MBSE BBS is distributed in the hope that it will be useful, but
* WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
* General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with MBSE BBS; see the file COPYING. If not, write to the Free
* Software Foundation, 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA.
*****************************************************************************/
#include "../config.h"
#include "../lib/mbselib.h"
#include "ttyio.h"
#include "openport.h"
#include "zmmisc.h"
#ifdef USE_SGTTY
# ifdef LLITOUT
long Locmode; /* Saved "local mode" for 4.x BSD "new driver" */
long Locbit = LLITOUT; /* Bit SUPPOSED to disable output translations */
# endif
#endif
#ifdef USE_TERMIOS
struct termios oldtty, tty;
#else
# if defined(USE_TERMIO)
struct termio oldtty, tty;
# else
struct sgttyb oldtty, tty;
struct tchars oldtch, tch;
# endif
#endif
int hanged_up = 0;
unsigned Baudrate = 2400;
/* Next is on compile commandline in lrzsz */
#define NFGVMIN 1
#define HOWMANY 255
#if defined(HOWMANY) && HOWMANY > 255
#ifndef NFGVMIN
Howmany must be 255 or less
#endif
#endif
static struct {
unsigned baudr;
speed_t speedcode;
} speeds[] = {
{110, B110},
{300, B300},
{600, B600},
{1200, B1200},
{2400, B2400},
{4800, B4800},
{9600, B9600},
#ifdef B12000
{12000, B12000},
#endif
#ifdef B14400
{14400, B14400},
#endif
#ifdef B19200
{19200, B19200},
#endif
#ifdef B38400
{38400, B38400},
#endif
#ifdef B57600
{57600, B57600},
#endif
#ifdef B115200
{115200, B115200},
#endif
#ifdef B230400
{230400, B230400},
#endif
#ifdef B460800
{460800, B460800},
#endif
#ifdef B500000
{500000, B500000},
#endif
#ifdef EXTA
{19200, EXTA},
#endif
#ifdef EXTB
{38400, EXTB},
#endif
{0, 0}
};
unsigned getspeed(speed_t);
unsigned getspeed(speed_t code)
{
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 */
}
/*
* Set port to local, hangup using DTR drop.
*/
void hangup(void)
{
struct termios Tios;
tcflag_t cflag;
speed_t ispeed, ospeed;
int rc;
Syslog('t', "hangup()");
if (isatty(0)) {
if ((rc = tcgetattr(0,&Tios))) {
WriteError("$tcgetattr(0,save) return %d",rc);
return;
}
Syslog('+', "Lowering DTR to hangup");
cflag = Tios.c_cflag | CLOCAL;
ispeed = cfgetispeed(&tty);
ospeed = cfgetospeed(&tty);
cfsetispeed(&Tios,0);
cfsetospeed(&Tios,0);
if ((rc = tcsetattr(0,TCSADRAIN,&Tios)))
WriteError("$tcsetattr(0,TCSADRAIN,hangup) return %d",rc);
sleep(1); /* as far as I notice, DTR goes back high on next op. */
Tios.c_cflag = cflag;
cfsetispeed(&Tios,ispeed);
cfsetospeed(&Tios,ospeed);
if ((rc = tcsetattr(0,TCSADRAIN,&Tios)))
Syslog('t', "$tcsetattr(0,TCSADRAIN,clocal) return %d",rc);
} else {
Syslog('t', "Not at a tty");
}
return;
}
/*
* 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 io_mode(int fd, int n)
{
static int did0 = FALSE;
Syslog('t', "io_mode(%d, %d)", fd, n);
switch(n) {
#ifdef USE_TERMIOS
case 2:
if (!did0) {
did0 = TRUE;
tcgetattr(fd,&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 */
#ifdef READCHECK
tty.c_lflag = protocol==ZM_ZMODEM ? 0 : ISIG;
tty.c_cc[VINTR] = protocol==ZM_ZMODEM ? -1 : 030; /* Interrupt char */
#else
tty.c_lflag = 0;
tty.c_cc[VINTR] = protocol==ZM_ZMODEM ? 03 : 030; /* Interrupt char */
#endif
#ifdef _POSIX_VDISABLE
if (((int) _POSIX_VDISABLE)!=(-1)) {
tty.c_cc[VQUIT] = _POSIX_VDISABLE; /* Quit char */
} else {
tty.c_cc[VQUIT] = -1; /* Quit char */
}
#else
tty.c_cc[VQUIT] = -1; /* Quit char */
#endif
#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 */
tcsetattr(fd,TCSADRAIN,&tty);
return 0;
case 1:
case 3:
if (!did0) {
did0 = TRUE;
tcgetattr(fd,&oldtty);
Syslog('t', "iflag%s%s%s%s%s%s%s%s%s%s%s%s%s",
(oldtty.c_iflag & IGNBRK) ? " IGNBRK":"",
(oldtty.c_iflag & BRKINT) ? " BRKINT":"",
(oldtty.c_iflag & IGNPAR) ? " IGNPAR":"",
(oldtty.c_iflag & PARMRK) ? " PARMRK":"",
(oldtty.c_iflag & INPCK) ? " INPCK":"",
(oldtty.c_iflag & ISTRIP) ? " ISTRIP":"",
(oldtty.c_iflag & INLCR) ? " INLCR":"",
(oldtty.c_iflag & IGNCR) ? " IGNCR":"",
(oldtty.c_iflag & ICRNL) ? " ICRNL":"",
(oldtty.c_iflag & IXON) ? " IXON":"",
(oldtty.c_iflag & IXOFF) ? " IXOFF":"",
(oldtty.c_iflag & IXANY) ? " IXANY":"",
(oldtty.c_iflag & IMAXBEL)? " IMAXBEL":"");
Syslog('t', "oflag%s%s%s%s%s%s%s",
(oldtty.c_oflag & OPOST) ? " OPOST":"",
(oldtty.c_oflag & ONLCR) ? " ONLCR":"",
(oldtty.c_oflag & OCRNL) ? " OCRNL":"",
(oldtty.c_oflag & OXTABS) ? " OXTABS":"",
(oldtty.c_oflag & ONOEOT) ? " ONOEOT":"",
(oldtty.c_oflag & ONOCR) ? " ONOCR":"",
(oldtty.c_oflag & ONLRET) ? " ONLRET":"");
Syslog('t', "cflag%s%s%s%s%s%s%s%s%s%s%s%s%s%s",
(oldtty.c_cflag & CS5) ? " CS5":"",
(oldtty.c_cflag & CS6) ? " CS6":"",
(oldtty.c_cflag & CS7) ? " CS7":"",
(oldtty.c_cflag & CS8) ? " CS8":"",
(oldtty.c_cflag & CSTOPB) ? " CSTOPB":"",
(oldtty.c_cflag & CREAD) ? " CREAD":"",
(oldtty.c_cflag & PARENB) ? " PARENB":"",
(oldtty.c_cflag & PARODD) ? " PARODD":"",
(oldtty.c_cflag & HUPCL) ? " HUPCL":"",
(oldtty.c_cflag & CLOCAL) ? " CLOCAL":"",
(oldtty.c_cflag & CCTS_OFLOW) ? " CCTS_OFLOW":"",
(oldtty.c_cflag & CRTSCTS) ? " CRTSCTS":"",
(oldtty.c_cflag & CRTS_IFLOW) ? " CRTS_IFLOW":"",
(oldtty.c_cflag & MDMBUF) ? " MDMBUF":"");
Syslog('t', "lflag%s%s%s%s%s%s%s%s%s%s%s%s%s%s%s%s",
(oldtty.c_lflag & ECHOKE) ? " ECHOKE":"",
(oldtty.c_lflag & ECHOE) ? " ECHOE":"",
(oldtty.c_lflag & ECHO) ? " ECHO":"",
(oldtty.c_lflag & ECHONL) ? " ECHONL":"",
(oldtty.c_lflag & ECHOPRT)? " ECHOPRT":"",
(oldtty.c_lflag & ECHOCTL)? " ECHOCTL":"",
(oldtty.c_lflag & ISIG) ? " ISIG":"",
(oldtty.c_lflag & ICANON) ? " ICANON":"",
(oldtty.c_lflag & ALTWERASE)? " ALTWERASE":"",
(oldtty.c_lflag & IEXTEN) ? " IEXTEN":"",
(oldtty.c_lflag & EXTPROC)? " EXTPROC":"",
(oldtty.c_lflag & TOSTOP) ? " TOSTOP":"",
(oldtty.c_lflag & FLUSHO) ? " FLUSHO":"",
(oldtty.c_lflag & NOKERNINFO)? " NOKERNINFO":"",
(oldtty.c_lflag & PENDIN) ? " PENDIN":"",
(oldtty.c_lflag & NOFLSH) ? " NOFLSH":"");
}
tty = oldtty;
tty.c_iflag = IGNBRK;
if (n == 3) /* with flow control */
tty.c_iflag |= IXOFF;
/*
* Setup raw mode: no echo, noncanonical (no edit chars),
* no signal generating chars, and no extended chars (^V,
* ^O, ^R, ^W).
*/
tty.c_lflag &= ~(ECHO | ICANON | ISIG | IEXTEN);
tty.c_oflag = 0; /* Transparent output */
tty.c_cflag &= ~(PARENB); /* Same baud rate, disable parity */
/* Set character size = 8 */
tty.c_cflag &= ~(CSIZE);
tty.c_cflag |= CS8;
#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 */
tcsetattr(fd,TCSADRAIN,&tty);
Baudrate = getspeed(cfgetospeed(&tty));
Syslog('t', "Baudrate = %d", Baudrate);
return 0;
case 0:
if (!did0)
return -1;
tcdrain (fd); /* wait until everything is sent */
tcflush (fd,TCIOFLUSH); /* flush input queue */
tcsetattr (fd,TCSADRAIN,&oldtty);
tcflow (fd,TCOON); /* restart output */
return 0;
#endif
#ifdef USE_TERMIO
#error USE_TERMIO driver not coded
#endif
#ifdef USE_SGTTY
#error USE_SGTTY driver not coded
#endif
}
return -1;
}
int rawport(void)
{
Syslog('t', "rawport()");
return io_mode(0, 1);
}
int cookedport(void)
{
Syslog('t', "cookedport()");
return io_mode(0, 0);
}
void sendbrk(void)
{
Syslog('t', "Send break");
if (isatty(0)) {
#ifdef USE_TERMIOS
tcsendbreak(0, 0);
#endif
#ifdef USE_TERMIO
ioctl(0, TCSBRK, 0);
#endif
#ifdef USE_SGTTY
#ifdef TIOCSBRK
sleep(1);
ioctl(0, TIOCSBRK, 0);
sleep(1);
ioctl(0, TIOCCBRK, 0);
#endif
#endif
}
}