From e6c7c0d3b951b174e942f98375c9752b4a938bd2 Mon Sep 17 00:00:00 2001
From: Eddie Runia <eddie@runia.com>
Date: Sat, 12 Jun 1999 12:53:34 +0000
Subject: [PATCH] see changelog

---
 harbour/ChangeLog          |  5 +++++
 harbour/source/rtl/files.c | 19 +++++++++++--------
 2 files changed, 16 insertions(+), 8 deletions(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 762047e3b7..d61a857e87 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,8 @@
+19990612-13:45 CET Eddie Runia
+  * source/rtl/files.c
+    read-only file creation resolved. The permission should be passed as
+    the third parameter to open.
+
 19990612-11:22 CET Patrick Mast
   * Release of Build #26
   * version.h, updated build version
diff --git a/harbour/source/rtl/files.c b/harbour/source/rtl/files.c
index 321c371034..f035d7a2d5 100644
--- a/harbour/source/rtl/files.c
+++ b/harbour/source/rtl/files.c
@@ -168,23 +168,22 @@ static int convert_seek_flags( int flags )
         return result_flags;
 }
 
-static int convert_create_flags( int flags )
+static convert_create_flags( int flags, int *result_flags, int *result_pmode )
 {
         /* by default FC_NORMAL is set */
-        int result_flags=S_IWUSR;
 
-        result_flags |= O_BINARY | O_CREAT | O_TRUNC | O_RDWR;
+        *result_flags = O_BINARY | O_CREAT | O_TRUNC | O_RDWR;
+        *result_pmode = S_IWUSR;
 
         if( flags & FC_READONLY )
-                result_flags = result_flags & ~(S_IWUSR);
+                *result_pmode = S_IREAD;
 
         if( flags & FC_HIDDEN )
-                result_flags |= 0;
+                *result_flags |= 0;
 
         if( flags & FC_SYSTEM )
-                result_flags |= 0;
+                *result_flags |= 0;
 
-        return result_flags;
 }
 
 #endif
@@ -211,9 +210,13 @@ FHANDLE hb_fsOpen   ( BYTEP name, USHORT flags )
 FHANDLE hb_fsCreate ( BYTEP name, USHORT flags )
 {
         FHANDLE handle;
+        int oflag;
+        int pmode;
+
 #if defined(HAVE_POSIX_IO)
         errno = 0;
-        handle = open(name,convert_create_flags(flags));
+        convert_create_flags( flags, &oflag, &pmode );
+        handle = open(name,oflag,pmode);
         last_error = errno;
 #else
         handle = FS_ERROR;