From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 7 Oct 1996 18:51:12 +0000 (+0000)
Subject: Adjust handling of file modes that are now Win32 attributes rather
X-Git-Tag: 20090517-FFI~5360
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=501985468cd35a4bd71253e4e233ba6043bfb0c2;p=mit-scheme.git

Adjust handling of file modes that are now Win32 attributes rather
than unix mode bits.
---

diff --git a/v7/src/edwin/dos.scm b/v7/src/edwin/dos.scm
index 7a012584f..d693a1467 100644
--- a/v7/src/edwin/dos.scm
+++ b/v7/src/edwin/dos.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: dos.scm,v 1.38 1996/10/07 18:21:20 cph Exp $
+;;;	$Id: dos.scm,v 1.39 1996/10/07 18:51:12 cph Exp $
 ;;;
 ;;;	Copyright (c) 1992-96 Massachusetts Institute of Technology
 ;;;
@@ -76,13 +76,11 @@
 		(loop (cdr pathnames))))))))
 
 (define (os/set-file-modes-writable! pathname)
-  (set-file-modes! pathname #o777))
+  (set-file-modes! pathname
+		   (fix:andc (file-modes pathname) nt-file-mode/read-only)))
 
-(define os/restore-modes-to-updated-file!
-  ;; **** If implementation is changed so that file modes are DOS
-  ;; attributes rather than an emulation of unix modes, this will have
-  ;; to be changed to work like the OS/2 code.  ****
-  set-file-modes!)
+(define (os/restore-modes-to-updated-file! pathname modes)
+  (set-file-modes! pathname (fix:or modes nt-file-mode/archive)))
 
 (define (os/scheme-can-quit?)
   #t)