diff options
| author | Arnold D. Robbins <arnold@skeeve.com> | 2012-07-26 23:07:52 +0300 |
|---|---|---|
| committer | Arnold D. Robbins <arnold@skeeve.com> | 2012-07-26 23:07:52 +0300 |
| commit | e4945f9ecab4d2a143f9e41b6a112bb2d36fa7c1 (patch) | |
| tree | f8aa8492b90d2ed5bc3c44e5148e25621f1dd8b5 /posix | |
| parent | ce63a9b40865adeaa643208d9c645bd5ac5575e3 (diff) | |
| download | egawk-e4945f9ecab4d2a143f9e41b6a112bb2d36fa7c1.tar.gz egawk-e4945f9ecab4d2a143f9e41b6a112bb2d36fa7c1.tar.bz2 egawk-e4945f9ecab4d2a143f9e41b6a112bb2d36fa7c1.zip | |
Add os_isreadable function for future use.
Diffstat (limited to 'posix')
| -rw-r--r-- | posix/ChangeLog | 4 | ||||
| -rw-r--r-- | posix/gawkmisc.c | 25 |
2 files changed, 29 insertions, 0 deletions
diff --git a/posix/ChangeLog b/posix/ChangeLog index bf36414f..a3ee87db 100644 --- a/posix/ChangeLog +++ b/posix/ChangeLog @@ -1,3 +1,7 @@ +2012-07-26 Arnold D. Robbins <arnold@skeeve.com> + + * gawkmisc.c (os_isreadable): New function. + 2012-05-11 Arnold D. Robbins <arnold@skeeve.com> * gawkmisc.c: Use `bool', `true', and `false' everywhere. diff --git a/posix/gawkmisc.c b/posix/gawkmisc.c index 3baf852e..87a6747c 100644 --- a/posix/gawkmisc.c +++ b/posix/gawkmisc.c @@ -204,6 +204,31 @@ os_isdir(int fd) return (fstat(fd, &sbuf) == 0 && S_ISDIR(sbuf.st_mode)); } +/* os_isreadable --- fd can be read from */ + +int +os_isreadable(int fd) +{ + struct stat sbuf; + + if (fstat(fd, &sbuf) != 0) + return false; + + switch (sbuf.st_mode & S_IFMT) { + case S_IFREG: + case S_IFCHR: /* ttys, /dev/null, .. */ +#ifdef S_IFSOCK + case S_IFSOCK: +#endif +#ifdef S_IFIFO + case S_IFIFO: +#endif + return true; + default: + return false; + } +} + /* os_is_setuid --- true if running setuid root */ int |