OpenSolaris_b135/lib/libcurses/screen/draino.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 1997 Sun Microsystems, Inc.  All rights reserved.
 * Use is subject to license terms.
 */

/*	Copyright (c) 1988 AT&T	*/
/*	  All Rights Reserved	*/

/*
 * University Copyright- Copyright (c) 1982, 1986, 1988
 * The Regents of the University of California
 * All Rights Reserved
 *
 * University Acknowledgment- Portions of this document are derived from
 * software developed by the University of California, Berkeley, and its
 * contributors.
 */

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

/*LINTLIBRARY*/

#include	<unistd.h>
#include	<sys/types.h>
#include	"curses_inc.h"

/*
 * Code for various kinds of delays.  Most of this is nonportable and
 * requires various enhancements to the operating system, so it won't
 * work on all systems.  It is included in curses to provide a portable
 * interface, and so curses itself can use it for function keys.
 */

#define	NAPINTERVAL	100
/*
 * Wait until the output has drained enough that it will only take
 * ms more milliseconds to drain completely.
 * Needs Berkeley TIOCOUTQ ioctl.  Returns ERR if impossible.
 */

int
draino(int ms)
{
#ifdef	TIOCOUTQ
#define	_DRAINO
	/* number of chars = that many ms */
	long	ncneeded;

	/* 10 bits/char, 1000 ms/sec, baudrate in bits/sec */
	ncneeded = SP->baud * ms / (10 * 1000);
	/*CONSTCOND*/
	while (TRUE) {
		int	rv;		/* ioctl return value */
		int	ncthere = 0;	/* number of chars actually in */
					/* output queue */

		rv = ioctl(cur_term->Filedes, TIOCOUTQ, &ncthere);
#ifdef	DEBUG
		if (outf)
			fprintf(outf, "draino: rv %d, ncneeded %d, "
			    "ncthere %d\n", rv, ncneeded, ncthere);
#endif	/* DEBUG */
		if (rv < 0)
			return (ERR);	/* ioctl didn't work */
		if (ncthere <= ncneeded)
			return (OK);
		(void) napms(NAPINTERVAL);
	}
#else	/* TIOCOUTQ */

#ifdef	TCSETAW
#define	_DRAINO
	/*
	 * SYSV simulation - waits until the entire queue is empty,
	 * then sets the state to what it already is (e.g. no-op).
	 * Unfortunately this only works if ms is zero.
	 */
	if (ms <= 0) {
#ifdef SYSV
		if (prog_istermios < 0) {
			int i;

			PROGTTY.c_lflag = PROGTTYS.c_lflag;
			PROGTTY.c_oflag = PROGTTYS.c_oflag;
			PROGTTY.c_iflag = PROGTTYS.c_iflag;
			PROGTTY.c_cflag = PROGTTYS.c_cflag;
			for (i = 0; i < NCC; i++)
				PROGTTY.c_cc[i] = PROGTTYS.c_cc[i];
			(void) ioctl(cur_term->Filedes, TCSETAW, &PROGTTY);
		} else
			(void) ioctl(cur_term->Filedes, TCSETSW, &PROGTTYS);
#else	/* SYSV */
			(void) ioctl(cur_term->Filedes, TCSETAW, &PROGTTY);
#endif	/* SYSV */
		return (OK);
	} else
		return (ERR);
#endif	/* TCSETAW */
#endif	/* TIOCOUTQ */

#ifndef	_DRAINO
	/*
	 * No way to fake it, so we return failure.
	 * Used #else to avoid warning from compiler about unreached stmt
	 */
	return (ERR);
#endif	/* _DRAINO */
/*NOTREACHED*/
}