[unix-history] / usr / src / usr.bin / f77 / libU77 / isatty_.c

/*
char id_isatty[] = "@(#)isatty_.c	1.1";
 *
 * determine if stream is associated with a tty (async port)
 *
 * calling sequence:
 *	logical	isatty, val
 *	val = isatty (lunit)
 * where:
 *	val will be .TRUE. if lunit is associated with a 'tty'
 */

#include	"../libI77/fiodefs.h"

extern unit units[];	/* logical units table from iolib */

long isatty_(u)
long *u;
{
	int	i;
	unit	*lu;

	if (*u < 0 || *u >= MXUNIT)
		return(0);
	lu = &units[*u];
	if (!lu->ufd)
		return(0);
	return((long)(isatty(fileno(lu->ufd)) != 0));
}
Commit	Line	Data
d8cff725 DW	1	/*
	2	char id_isatty[] = "@(#)isatty_.c 1.1";
	3	*
	4	* determine if stream is associated with a tty (async port)
	5	*
	6	* calling sequence:
	7	* logical isatty, val
	8	* val = isatty (lunit)
	9	* where:
	10	* val will be .TRUE. if lunit is associated with a 'tty'
	11	*/
	12
	13	#include "../libI77/fiodefs.h"
	14
	15	extern unit units[]; /* logical units table from iolib */
	16
	17	long isatty_(u)
	18	long *u;
	19	{
	20	int i;
	21	unit *lu;
	22
	23	if (u < 0 \|\| u >= MXUNIT)
	24	return(0);
	25	lu = &units[*u];
	26	if (!lu->ufd)
	27	return(0);
	28	return((long)(isatty(fileno(lu->ufd)) != 0));
	29	}