Mercurial > hg > octave-nkf > gnulib-hg

diff lib/freading.c @ 9280:a1f6fe4c68c1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add support for QNX (untested).
author Bruno Haible <bruno@clisp.org>
date Wed, 03 Oct 2007 22:16:40 +0200
parents 1d4c80b053f0
children bbbbbf4cd1c5
line wrap: on
line diff
--- a/lib/freading.c
+++ b/lib/freading.c
@@ -40,6 +40,9 @@
   return (fp->_flag & _IOREAD) != 0;
 #elif defined __UCLIBC__            /* uClibc */
   return (fp->__modeflags & (__FLAG_READONLY | __FLAG_READING)) != 0;
+#elif defined __QNX__               /* QNX */
+  return ((fp->_Mode & _MOPENW) == 0
+	  || (fp->_Mode & _MREAD) != 0);
 #else
  #error "Please port gnulib freading.c to your platform!"
 #endif