workbench/network/stacks/AROSTCP/netlib/isatty.c

   1 /* $Id$
   2  *
   3  *      isatty.c - check is a file is a terminal (interactive) or not (SAS/C)
   4  *
   5  *      Copyright © 1994 AmiTCP/IP Group,
   6  *                       Network Solutions Development Inc.
   7  *                       All rights reserved.
   8  */
   9
  10 #include <ios1.h>
  11 #include <fcntl.h>
  12 #include <stdlib.h>
  13 #include <dos.h>
  14 #include <dos/dos.h>
  15 #include <proto/dos.h>
  16
  17 int
  18 isatty(int fd)
  19 {
  20   struct UFB *ufb;
  21
  22   /*
  23    * find the ufb *
  24    */
  25   if ((ufb = __chkufb(fd)) != NULL &&
  26       !(ufb->ufbflg & UFB_SOCK)) { /* A socket is not a tty */
  27     /*
  28      * Convert DOSBOOL to BOOL
  29      */
  30     return (IsInteractive(ufb->ufbfh) & 0x1);
  31   }
  32
  33   return 0;
  34 }