diff options
Diffstat (limited to 'contrib/libf2c/libU77/isatty_.c')
-rw-r--r-- | contrib/libf2c/libU77/isatty_.c | 16 |
1 files changed, 5 insertions, 11 deletions
diff --git a/contrib/libf2c/libU77/isatty_.c b/contrib/libf2c/libU77/isatty_.c index 92c3346..fa2f56d 100644 --- a/contrib/libf2c/libU77/isatty_.c +++ b/contrib/libf2c/libU77/isatty_.c @@ -25,20 +25,14 @@ Boston, MA 02111-1307, USA. */ #include "f2c.h" #include "fio.h" -#ifdef KR_headers -extern integer G77_fnum_0 (); - -logical G77_isatty_0 (lunit) - integer *lunit; -#else extern integer G77_fnum_0 (integer *); -logical G77_isatty_0 (integer *lunit) -#endif +logical +G77_isatty_0 (integer * lunit) { - if (*lunit>=MXUNIT || *lunit<0) - err(1,101,"isatty"); + if (*lunit >= MXUNIT || *lunit < 0) + err (1, 101, "isatty"); /* f__units is a table of descriptions for the unit numbers (defined in io.h) with file descriptors rather than streams */ - return (isatty(G77_fnum_0 (lunit)) ? TRUE_ : FALSE_); + return (isatty (G77_fnum_0 (lunit)) ? TRUE_ : FALSE_); } |