diff options
| -rw-r--r-- | vms/ChangeLog | 4 | ||||
| -rw-r--r-- | vms/gawkmisc.vms | 6 |
2 files changed, 10 insertions, 0 deletions
diff --git a/vms/ChangeLog b/vms/ChangeLog index 3a3b74a1..39381a81 100644 --- a/vms/ChangeLog +++ b/vms/ChangeLog @@ -1,3 +1,7 @@ +Fri Apr 29 18:10:49 2011 Pat Rankin <rankin@pactechdata.com> + + * gawkmisc.vms (os_isatty): New routine. + Sat Feb 26 18:35:01 2011 Pat Rankin <rankin@pactechdata.com> * vms_gawk.c, gawk.cld: Add support for new command qualifiers: diff --git a/vms/gawkmisc.vms b/vms/gawkmisc.vms index afff3b8c..346a1e88 100644 --- a/vms/gawkmisc.vms +++ b/vms/gawkmisc.vms @@ -188,3 +188,9 @@ files_are_same(char *newfile, SRCFILE *oldfile) && f1->st_ino[1] == f2->st_ino[1] && f1->st_ino[2] == f2->st_ino[2]); } + +int +os_isatty(int fd) +{ + return (isatty(fd) > 0); +} |