[u/mrichter/AliRoot.git] / MINICERN / packlib / kernlib / kerngen / ccgen / dosgs / intrac.c

/*
 * $Id$
 *
 * $Log$
 * Revision 1.1.1.1  1996/02/15 17:49:31  mclareni
 * Kernlib
 *
 */
/*>    ROUTINE INTRAC
  CERN PROGLIB# Z044    INTRAC          .VERSION KERNFOR  4.38  931108
*/
#ifdef WIN32
#include <io.h>
#endif
#if defined(CERNLIB_QX_SC)
int intrac_()
#endif
#if defined(CERNLIB_QXNO_SC)
int intrac()
#endif
#if defined(CERNLIB_QXCAPT)
int INTRAC()
#endif
{
#ifdef WIN32
    return (((int) isatty(0)!=0) ? 1 : 0) ;
#else
    return ((int) isatty(0));
#endif
}
/*> END <----------------------------------------------------------*/
Commit	Line	Data
fe4da5cc	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 <----------------------------------------------------------/