Subversion Repositories Kolibri OS

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
6725 siemargl 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 
14
#include 
15
#include 
16
#include 
17
 
18
short _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
}