OpenSolaris_b135/cmd/bnu/line.c
/*
* CDDL HEADER START
*
* The contents of this file are subject to the terms of the
* Common Development and Distribution License (the "License").
* You may not use this file except in compliance with the License.
*
* You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
* or http://www.opensolaris.org/os/licensing.
* See the License for the specific language governing permissions
* and limitations under the License.
*
* When distributing Covered Code, include this CDDL HEADER in each
* file and include the License file at usr/src/OPENSOLARIS.LICENSE.
* If applicable, add the following below this CDDL HEADER, with the
* fields enclosed by brackets "[]" replaced with your own identifying
* information: Portions Copyright [yyyy] [name of copyright owner]
*
* CDDL HEADER END
*/
/*
* Copyright 2009 Sun Microsystems, Inc. All rights reserved.
* Use is subject to license terms.
*/
/* Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T */
/* All Rights Reserved */
/*
* This is a new line.c, which consists of line.c and culine.c
* merged together.
*/
#include "uucp.h"
static struct sg_spds {
int sp_val,
sp_name;
} spds[] = {
{ 50, B50},
{ 75, B75},
{ 110, B110},
{ 134, B134},
{ 150, B150},
{ 200, B200},
{ 300, B300},
{ 600, B600},
{1200, B1200},
{1800, B1800},
{2400, B2400},
{4800, B4800},
{9600, B9600},
#ifdef EXTA
{19200, EXTA},
#endif
#ifdef B19200
{19200, B19200},
#endif
#ifdef B38400
{38400, B38400},
#endif
{57600, B57600},
{76800, B76800},
{115200, B115200},
{153600, B153600},
{230400, B230400},
{307200, B307200},
{460800, B460800},
{921600, B921600},
{0, 0}
};
#define PACKSIZE 64
#define HEADERSIZE 6
GLOBAL int
packsize = PACKSIZE,
xpacksize = PACKSIZE;
#define SNDFILE 'S'
#define RCVFILE 'R'
#define RESET 'X'
#ifdef PKSPEEDUP
GLOBAL int linebaudrate; /* for speedup hook in pk1.c */
#endif /* PKSPEEDUP */
static int Saved_line; /* was savline() successful? */
static int Saved_termios; /* was termios saved? */
GLOBAL int
Oddflag = 0, /* Default is no parity */
Evenflag = 0, /* Default is no parity */
Duplex = 1, /* Default is full duplex */
Terminal = 0, /* Default is no terminal */
term_8bit = -1, /* Default to terminal setting or 8 bit */
line_8bit = -1; /* Default is same as terminal */
static char *P_PARITY = "Parity option error\r\n";
#ifdef ATTSVTTY
static struct termio Savettyb;
static struct termios Savettybs;
/*
* set speed/echo/mode...
* tty -> terminal name
* spwant -> speed
* type -> type
*
* if spwant == 0, speed is untouched
* type is unused, but needed for compatibility
*
* return:
* none
*/
/*ARGSUSED*/
GLOBAL void
fixline(tty, spwant, type)
int tty, spwant, type;
{
register struct sg_spds *ps;
struct termio ttbuf;
struct termios ttbufs;
int speed = -1;
int i, istermios, ospeed;
DEBUG(6, "fixline(%d, ", tty);
DEBUG(6, "%d)\n", spwant);
if ((istermios = (*Ioctl)(tty, TCGETS, &ttbufs)) < 0) {
if ((*Ioctl)(tty, TCGETA, &ttbuf) != 0) {
return;
} else {
ttbufs.c_lflag = ttbuf.c_lflag;
ttbufs.c_oflag = ttbuf.c_oflag;
ttbufs.c_iflag = ttbuf.c_iflag;
ttbufs.c_cflag = ttbuf.c_cflag;
for (i = 0; i < NCC; i++)
ttbufs.c_cc[i] = ttbuf.c_cc[i];
}
}
if (spwant > 0) {
for (ps = spds; ps->sp_val; ps++)
if (ps->sp_val == spwant) {
speed = ps->sp_name;
break;
}
if (speed < 0)
DEBUG(5, "speed (%d) not supported\n", spwant);
ASSERT(speed >= 0, "BAD SPEED", "", spwant);
ttbufs.c_cflag &= 0xffff0000;
cfsetospeed(&ttbufs, speed);
} else { /* determine the current speed setting */
ospeed = cfgetospeed(&ttbufs);
ttbufs.c_cflag &= 0xffff0000;
cfsetospeed(&ttbufs, ospeed);
for (ps = spds; ps->sp_val; ps++)
if (ps->sp_name == ospeed) {
spwant = ps->sp_val;
break;
}
}
/*
* In order to prevent attempts at split speed, all baud rate
* bitfields should be cleared. Thus cfsetispeed is used to
* set the speed to zero.
*/
(void) cfsetispeed(&ttbufs, 0);
ttbufs.c_iflag &= 0xffff0000;
ttbufs.c_oflag &= 0xffff0000;
ttbufs.c_lflag &= 0xffff0000;
#ifdef PKSPEEDUP
linebaudrate = spwant;
#endif /* PKSPEEDUP */
#ifdef NO_MODEM_CTRL
/* CLOCAL may cause problems on pdp11s with DHs */
if (type == D_DIRECT) {
DEBUG(4, "fixline - direct\n%s", "");
ttbufs.c_cflag |= CLOCAL;
} else
#endif /* NO_MODEM_CTRL */
ttbufs.c_cflag &= ~CLOCAL;
if (!EQUALS(Progname, "uucico")) {
/* set attributes associated with -h, -t, -e, and -o options */
ttbufs.c_iflag = (IGNPAR | IGNBRK | IXON | IXOFF);
ttbufs.c_cc[VEOF] = '\1';
ttbufs.c_cflag |= (CREAD | (speed ? HUPCL : 0));
if (line_8bit) {
ttbufs.c_cflag |= CS8;
ttbufs.c_iflag &= ~ISTRIP;
} else {
if (Evenflag) { /* even parity -e */
ttbufs.c_cflag &= ~PARODD;
} else if (Oddflag) { /* odd parity -o */
ttbufs.c_cflag |= PARODD;
}
ttbufs.c_cflag |= CS7|PARENB;
ttbufs.c_iflag |= ISTRIP;
}
if (!Duplex) /* half duplex -h */
ttbufs.c_iflag &= ~(IXON | IXOFF);
if (Terminal) /* -t */
ttbufs.c_oflag |= (OPOST | ONLCR);
} else { /* non-uucico */
ttbufs.c_cflag |= (CS8 | CREAD | (speed ? HUPCL : 0));
ttbufs.c_cc[VMIN] = HEADERSIZE;
ttbufs.c_cc[VTIME] = 1;
}
if (istermios < 0) {
ttbuf.c_lflag = ttbufs.c_lflag;
ttbuf.c_oflag = ttbufs.c_oflag;
ttbuf.c_iflag = ttbufs.c_iflag;
ttbuf.c_cflag = ttbufs.c_cflag;
for (i = 0; i < NCC; i++)
ttbuf.c_cc[i] = ttbufs.c_cc[i];
ASSERT((*Ioctl)(tty, TCSETAW, &ttbuf) >= 0,
"RETURN FROM fixline ioctl", "", errno);
} else {
ASSERT((*Ioctl)(tty, TCSETSW, &ttbufs) >= 0,
"RETURN FROM fixline ioctl", "", errno);
}
}
GLOBAL void
sethup(dcf)
int dcf;
{
struct termio ttbuf;
if ((*Ioctl)(dcf, TCGETA, &ttbuf) != 0)
return;
if (!(ttbuf.c_cflag & HUPCL)) {
ttbuf.c_cflag |= HUPCL;
(void) (*Ioctl)(dcf, TCSETAW, &ttbuf);
}
}
GLOBAL void
ttygenbrk(fn)
register int fn;
{
if (isatty(fn))
(void) (*Ioctl)(fn, TCSBRK, 0);
}
/*
* optimize line setting for sending or receiving files
* return:
* none
*/
GLOBAL void
setline(type)
register char type;
{
static struct termio tbuf;
static struct termios tbufs;
int i, vtime, istermios, ospeed;
DEBUG(2, "setline - %c\n", type);
if ((istermios = (*Ioctl)(Ifn, TCGETS, &tbufs)) < 0) {
if ((*Ioctl)(Ifn, TCGETA, &tbuf) != 0) {
return;
} else {
tbufs.c_lflag = tbuf.c_lflag;
tbufs.c_oflag = tbuf.c_oflag;
tbufs.c_iflag = tbuf.c_iflag;
tbufs.c_cflag = tbuf.c_cflag;
for (i = 0; i < NCC; i++)
tbufs.c_cc[i] = tbuf.c_cc[i];
}
}
switch (type) {
case RCVFILE:
ospeed = cfgetospeed(&tbufs);
switch (ospeed) {
#ifdef B19200
case B19200:
#else
#ifdef EXTA
case EXTA:
#endif
#endif
#ifdef B38400
case B38400:
#endif
case B57600:
case B76800:
case B115200:
case B153600:
case B230400:
case B307200:
case B460800:
case B921600:
case B9600:
vtime = 1;
break;
case B4800:
vtime = 4;
break;
default:
vtime = 8;
break;
}
if (tbufs.c_cc[VMIN] != packsize ||
tbufs.c_cc[VTIME] != vtime) {
tbufs.c_cc[VMIN] = packsize;
tbufs.c_cc[VTIME] = vtime;
if (istermios < 0) {
tbuf.c_lflag = tbufs.c_lflag;
tbuf.c_oflag = tbufs.c_oflag;
tbuf.c_iflag = tbufs.c_iflag;
tbuf.c_cflag = tbufs.c_cflag;
for (i = 0; i < NCC; i++)
tbuf.c_cc[i] = tbufs.c_cc[i];
if ((*Ioctl)(Ifn, TCSETAW, &tbuf) != 0)
DEBUG(4, "setline Ioctl failed errno=%d\n",
errno);
} else {
if ((*Ioctl)(Ifn, TCSETSW, &tbufs) != 0)
DEBUG(4,
"setline Ioctl failed errno=%d\n",
errno);
}
}
break;
case SNDFILE:
case RESET:
if (tbufs.c_cc[VMIN] != HEADERSIZE) {
tbufs.c_cc[VMIN] = HEADERSIZE;
if (istermios < 0) {
tbuf.c_lflag = tbufs.c_lflag;
tbuf.c_oflag = tbufs.c_oflag;
tbuf.c_iflag = tbufs.c_iflag;
tbuf.c_cflag = tbufs.c_cflag;
for (i = 0; i < NCC; i++)
tbuf.c_cc[i] = tbufs.c_cc[i];
if ((*Ioctl)(Ifn, TCSETAW, &tbuf) != 0)
DEBUG(4,
"setline Ioctl failed errno=%d\n",
errno);
} else {
if ((*Ioctl)(Ifn, TCSETSW, &tbufs) != 0)
DEBUG(4,
"setline Ioctl failed errno=%d\n",
errno);
}
}
break;
}
}
GLOBAL int
savline()
{
if ((Saved_termios = (*Ioctl)(0, TCGETS, &Savettybs)) < 0) {
if ((*Ioctl)(0, TCGETA, &Savettyb) != 0) {
Saved_line = FALSE;
} else {
Saved_line = TRUE;
Savettyb.c_cflag =
(Savettyb.c_cflag & ~CS8) | CS7 | PARENB;
Savettyb.c_oflag |= OPOST;
Savettyb.c_lflag |= (ISIG|ICANON|ECHO);
}
} else {
Saved_line = TRUE;
Savettybs.c_cflag = (Savettybs.c_cflag & ~CS8) | CS7 | PARENB;
Savettybs.c_oflag |= OPOST;
Savettybs.c_lflag |= (ISIG|ICANON|ECHO);
}
return (0);
}
#ifdef SYTEK
/*
* sytfixline(tty, spwant) set speed/echo/mode...
* int tty, spwant;
*
* return codes: none
*/
GLOBAL void
sytfixline(tty, spwant)
int tty, spwant;
{
struct termio ttbuf;
struct termios ttbufs;
struct sg_spds *ps;
int speed = -1;
int i, ret, istermios;
if ((istermios = (*Ioctl)(tty, TCGETS, &ttbufs)) < 0) {
if ((*Ioctl)(tty, TCGETA, &ttbuf) != 0) {
return;
} else {
ttbufs.c_lflag = ttbuf.c_lflag;
ttbufs.c_oflag = ttbuf.c_oflag;
ttbufs.c_iflag = ttbuf.c_iflag;
ttbufs.c_cflag = ttbuf.c_cflag;
for (i = 0; i < NCC; i++)
ttbufs.c_cc[i] = ttbuf.c_cc[i];
}
}
for (ps = spds; ps->sp_val >= 0; ps++)
if (ps->sp_val == spwant)
speed = ps->sp_name;
DEBUG(4, "sytfixline - speed= %d\n", speed);
ASSERT(speed >= 0, "BAD SPEED", "", spwant);
ttbufs.c_iflag &= 0xffff0000;
ttbufs.c_oflag &= 0xffff0000;
ttbufs.c_lflag &= 0xffff0000;
ttbufs.c_cflag &= 0xffff0000;
cfsetospeed(&ttbufs, speed);
ttbufs.c_cflag |= (CS8|CLOCAL);
ttbufs.c_cc[VMIN] = 6;
ttbufs.c_cc[VTIME] = 1;
if (istermios < 0) {
ttbuf.c_lflag = ttbufs.c_lflag;
ttbuf.c_oflag = ttbufs.c_oflag;
ttbuf.c_iflag = ttbufs.c_iflag;
ttbuf.c_cflag = ttbufs.c_cflag;
for (i = 0; i < NCC; i++)
ttbuf.c_cc[i] = ttbufs.c_cc[i];
ret = (*Ioctl)(tty, TCSETAW, &ttbuf);
} else
ret = (*Ioctl)(tty, TCSETAWS &ttbufs);
ASSERT(ret >= 0, "RETURN FROM sytfixline", "", ret);
}
GLOBAL void
sytfix2line(tty)
int tty;
{
struct termio ttbuf;
int ret;
if ((*Ioctl)(tty, TCGETA, &ttbuf) != 0)
return;
ttbuf.c_cflag &= ~CLOCAL;
ttbuf.c_cflag |= CREAD|HUPCL;
ret = (*Ioctl)(tty, TCSETAW, &ttbuf);
ASSERT(ret >= 0, "RETURN FROM sytfix2line", "", ret);
}
#endif /* SYTEK */
GLOBAL int
restline()
{
if (Saved_line == TRUE) {
if (Saved_termios < 0)
return ((*Ioctl)(0, TCSETAW, &Savettyb));
else
return ((*Ioctl)(0, TCSETSW, &Savettybs));
}
return (0);
}
#else /* !ATTSVTTY */
static struct sgttyb Savettyb;
/*
* fixline(tty, spwant, type) set speed/echo/mode...
* int tty, spwant;
*
* if spwant == 0, speed is untouched
* type is unused, but needed for compatibility
*
* return codes: none
*/
/*ARGSUSED*/
GLOBAL void
fixline(tty, spwant, type)
int tty, spwant, type;
{
struct sgttyb ttbuf;
struct sg_spds *ps;
int speed = -1;
DEBUG(6, "fixline(%d, ", tty);
DEBUG(6, "%d)\n", spwant);
if ((*Ioctl)(tty, TIOCGETP, &ttbuf) != 0)
return;
if (spwant > 0) {
for (ps = spds; ps->sp_val; ps++)
if (ps->sp_val == spwant) {
speed = ps->sp_name;
break;
}
ASSERT(speed >= 0, "BAD SPEED", "", spwant);
ttbuf.sg_ispeed = ttbuf.sg_ospeed = speed;
} else {
for (ps = spds; ps->sp_val; ps++)
if (ps->sp_name == ttbuf.sg_ispeed) {
spwant = ps->sp_val;
break;
}
ASSERT(spwant >= 0, "BAD SPEED", "", ttbuf.sg_ispeed);
}
ttbuf.sg_flags = (ANYP | RAW);
#ifdef PKSPEEDUP
linebaudrate = spwant;
#endif /* PKSPEEDUP */
(void) (*Ioctl)(tty, TIOCSETP, &ttbuf);
(void) (*Ioctl)(tty, TIOCHPCL, STBNULL);
(void) (*Ioctl)(tty, TIOCEXCL, STBNULL);
}
GLOBAL void
sethup(dcf)
int dcf;
{
if (isatty(dcf))
(void) (*Ioctl)(dcf, TIOCHPCL, STBNULL);
}
/*
* genbrk send a break
*
* return codes; none
*/
GLOBAL void
ttygenbrk(fn)
{
if (isatty(fn)) {
(void) (*Ioctl)(fn, TIOCSBRK, 0);
#ifndef V8
nap(HZ/10); /* 0.1 second break */
(void) (*Ioctl)(fn, TIOCCBRK, 0);
#endif
}
}
/*
* V7 and RT aren't smart enough for this -- linebaudrate is the best
* they can do.
*/
/*ARGSUSED*/
GLOBAL void
setline(dummy) { }
GLOBAL int
savline()
{
if ((*Ioctl)(0, TIOCGETP, &Savettyb) != 0)
Saved_line = FALSE;
else {
Saved_line = TRUE;
Savettyb.sg_flags |= ECHO;
Savettyb.sg_flags &= ~RAW;
}
return (0);
}
GLOBAL int
restline()
{
if (Saved_line == TRUE)
return ((*Ioctl)(0, TIOCSETP, &Savettyb));
return (0);
}
#endif