MINICERN/packlib/kernlib/kerngen/ccgen/dosgs/intrac.c

   1 /*
   2  * $Id$
   3  *
   4  * $Log$
   5  * Revision 1.1.1.1  1996/02/15 17:49:31  mclareni
   6  * Kernlib
   7  *
   8  */
   9 /*>    ROUTINE INTRAC
  10   CERN PROGLIB# Z044    INTRAC          .VERSION KERNFOR  4.38  931108
  11 */
  12 #ifdef WIN32
  13 #include <io.h>
  14 #endif
  15 #if defined(CERNLIB_QX_SC)
  16 int intrac_()
  17 #endif
  18 #if defined(CERNLIB_QXNO_SC)
  19 int intrac()
  20 #endif
  21 #if defined(CERNLIB_QXCAPT)
  22 int INTRAC()
  23 #endif
  24 {
  25 #ifdef WIN32
  26     return (((int) isatty(0)!=0) ? 1 : 0) ;
  27 #else
  28     return ((int) isatty(0));
  29 #endif
  30 }
  31 /*> END <----------------------------------------------------------*/