1987-03-31 10:45:53 +00:00
|
|
|
/* $Header$ */
|
1987-01-27 15:57:55 +00:00
|
|
|
isatty(f)
|
|
|
|
|
{
|
1987-01-29 13:01:28 +00:00
|
|
|
char buf[128];
|
|
|
|
|
/* not a sgttyb struct; it might not be large enough;
|
|
|
|
|
I know for a fact that it is'nt large enough on PC/IX,
|
|
|
|
|
where gtty is an ioctl(..., TCGETA, ...)
|
|
|
|
|
*/
|
1987-01-27 15:57:55 +00:00
|
|
|
|
1987-02-02 20:54:56 +00:00
|
|
|
if (gtty(f, buf) < 0) return 0;
|
1987-01-27 15:57:55 +00:00
|
|
|
return 1;
|
|
|
|
|
}
|
