xref: /csrg-svn/lib/libc/gen/isatty.c (revision 1970)
1*1970Swnj /* @(#)isatty.c	4.1 (Berkeley) 12/21/80 */
2*1970Swnj /*
3*1970Swnj  * Returns 1 iff file is a tty
4*1970Swnj  */
5*1970Swnj 
6*1970Swnj #include <sgtty.h>
7*1970Swnj 
8*1970Swnj isatty(f)
9*1970Swnj {
10*1970Swnj 	struct sgttyb ttyb;
11*1970Swnj 
12*1970Swnj 	if (gtty(f, &ttyb) < 0)
13*1970Swnj 		return(0);
14*1970Swnj 	return(1);
15*1970Swnj }
16