diff options
| author | Arnold D. Robbins <arnold@skeeve.com> | 2012-07-29 16:33:00 +0300 |
|---|---|---|
| committer | Arnold D. Robbins <arnold@skeeve.com> | 2012-07-29 16:33:00 +0300 |
| commit | 82816b279615b27f7c4f87349a8c830a96939d8c (patch) | |
| tree | cf30bf71692e090ca6ca4934e65184aa990a3055 /vms/gawkmisc.vms | |
| parent | 207fc1458c7f168822e454a89f23428c64163427 (diff) | |
| download | egawk-82816b279615b27f7c4f87349a8c830a96939d8c.tar.gz egawk-82816b279615b27f7c4f87349a8c830a96939d8c.tar.bz2 egawk-82816b279615b27f7c4f87349a8c830a96939d8c.zip | |
Finish work on iop management. New readdir test.
Diffstat (limited to 'vms/gawkmisc.vms')
| -rw-r--r-- | vms/gawkmisc.vms | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/vms/gawkmisc.vms b/vms/gawkmisc.vms index f373b5f2..773b3556 100644 --- a/vms/gawkmisc.vms +++ b/vms/gawkmisc.vms @@ -147,10 +147,12 @@ int fd; /* os_isreadable --- fd can be read from */ int -os_isreadable(int fd) +os_isreadable(int fd, bool *isdir) { struct stat sbuf; + *isdir = false; + if (fstat(fd, &sbuf) != 0) return false; @@ -164,6 +166,9 @@ os_isreadable(int fd) case S_IFIFO: #endif return true; + case S_IFDIR: + *isdir = true; + /* fall through */ default: return false; } |