1/*
2  Copyright (c) 1990-2000 Info-ZIP.  All rights reserved.
3
4  See the accompanying file LICENSE, version 2000-Apr-09 or later
5  (the contents of which are also included in zip.h) for terms of use.
6  If, for some reason, all these files are missing, the Info-ZIP license
7  also may be found at:  ftp://ftp.info-zip.org/pub/infozip/license.html
8*/
9/* replace standard library function who needs a FILE* */
10
11#pragma library
12
13#include <stdio.h>
14#include <fcntl.h>
15#include <sc.h>
16#include <lub.h>
17
18short _isatty(int fd)
19{
20    register short lub;
21
22    lub = (int) _fcntl(&stdin[fd], 5, (size_t) 0);
23    return (lub >= CONIN && lub <= CONOUT)
24        || (lub >= COM1 && lub <= COM4)
25        || (lub >= COM5 && lub <= COM16);
26}
27