gen/common/posix_tty.c

/*
 * CDDL HEADER START
 *
 * The contents of this file are subject to the terms of the
 * Common Development and Distribution License, Version 1.0 only
 * (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 1995 Sun Microsystems, Inc.  All rights reserved.
 * Use is subject to license terms.
 */

#pragma ident   "%Z%%M% %I% %E% SMI"

/*
 * wrappers for posix tty manipulation functions
 */

#include <errno.h>
#include <termios.h>
#include <termio.h>
#include <sys/types.h>

/*
 * return the output speed from the struct
 */
speed_t
cfgetospeed(struct termios *termios_p)
{
    return (termios_p->c_cflag & CBAUDEXT ?
            (termios_p->c_cflag & CBAUD) + CBAUD + 1 :
            termios_p->c_cflag & CBAUD);
}

/*
 * set the speed in the struct
 */
int
cfsetospeed(struct termios *termios_p, speed_t speed)
{
    if (speed > (2*CBAUD + 1)) {
        errno = EINVAL;
        return (-1);
    }
    if (speed > CBAUD) {
        termios_p->c_cflag |= CBAUDEXT;
        speed -= (CBAUD + 1);
    } else
        termios_p->c_cflag &= ~CBAUDEXT;

    termios_p->c_cflag =
        (termios_p->c_cflag & ~CBAUD) | (speed & CBAUD);
    return (0);
}

/*
 * return the input speed from the struct
 */
speed_t
cfgetispeed(struct termios *termios_p)
{
    return (termios_p->c_cflag & CIBAUDEXT ?
        ((termios_p->c_cflag & CIBAUD) >> IBSHIFT)
        + (CIBAUD >> IBSHIFT) + 1 :
        (termios_p->c_cflag & CIBAUD) >> IBSHIFT);
}

/*
 * set the input speed in the struct
 */
int
cfsetispeed(struct termios *termios_p, speed_t speed)
{
    if (speed > (2*CBAUD + 1)) {
        errno = EINVAL;
        return (-1);
    }
    if ((speed << IBSHIFT) > CIBAUD) {
        termios_p->c_cflag |= CIBAUDEXT;
        speed -= ((CIBAUD >> IBSHIFT) + 1);
    } else
        termios_p->c_cflag &= ~CIBAUDEXT;
    termios_p->c_cflag =
        (termios_p->c_cflag & ~CIBAUD) | ((speed << IBSHIFT) & CIBAUD);
    return (0);
}

/*
 * grab the modes
 */
int
tcgetattr(int fd, struct termios *termios_p)
{
    return (ioctl(fd, TCGETS, termios_p));
}

/*
 * set the modes
 */
int
tcsetattr(int fd, int option, struct termios *termios_p)
{
    struct termios  work_area;

    /* If input speed is zero, set it to the output speed. */
    if ((((termios_p->c_cflag >> IBSHIFT) & CIBAUD) == 0) &&
        ((termios_p->c_cflag & CIBAUDEXT) == 0)) {
        work_area = *termios_p;
        work_area.c_cflag |= (work_area.c_cflag & CBAUD) << IBSHIFT;
        if (termios_p->c_cflag & CBAUDEXT)
            work_area.c_cflag |= CIBAUDEXT;
        termios_p = &work_area;
    }
    switch (option) {
    case TCSADRAIN:
        return (ioctl(fd, TCSETSW, termios_p));
    case TCSAFLUSH:
        return (ioctl(fd, TCSETSF, termios_p));
    case TCSANOW:
        return (ioctl(fd, TCSETS, termios_p));
    default:
        errno = EINVAL;
        return (-1);
    }
    /*NOTREACHED*/
}

/*
 * send a break
 * This is kludged for duration != 0; it should do something like crank the
 * baud rate down and then send the break if the duration != 0.
 */
int
tcsendbreak(int fd, int duration)
{
    unsigned d = (unsigned)duration;

    do
        if (ioctl(fd, TCSBRK, 0) == -1)
            return (-1);
    while (d--);
    return (0);
}

/*
 * wait for all output to drain from fd
 */
int
tcdrain(int fd)
{
    return (ioctl(fd, TCSBRK, !0));
}

/*
 * flow control
 */
int
tcflow(int fd, int action)
{
    switch (action) {
    default:
        errno = EINVAL;
        return (-1);
    case TCOOFF:
    case TCOON:
    case TCIOFF:
    case TCION:
        return (ioctl(fd, TCXONC, action));
    }
    /*NOTREACHED*/
}

/*
 * flush read/write/both
 */
int
tcflush(int fd, int queue)
{
    switch (queue) {
    default:
        errno = EINVAL;
        return (-1);
    case TCIFLUSH:
    case TCOFLUSH:
    case TCIOFLUSH:
        return (ioctl(fd, TCFLSH, queue));
    }
    /*NOTREACHED*/
}

/*
 * get the foreground process group id
 */
pid_t
tcgetpgrp(int fd)
{
    int grp_id;

    if (ioctl(fd, TIOCGETPGRP, &grp_id) == -1)
        return ((pid_t)-1);
    else
        return ((pid_t)grp_id);
}

/*
 * set the foreground process group id
 */
int
tcsetpgrp(int fd, int grp_id)
{
    return (ioctl(fd, TIOCSETPGRP, &grp_id));
}