From 7a3c12e5269ae762cfd6b5fc12c1959274cc0f21 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 5 Jan 1997 23:45:13 +0000
Subject: [PATCH] Add new file to customize Win32 directory reader.  Extend
 Win32 file attributes vector to include the mode bits.  This version of the
 runtime system requires microcode 11.156 or later.

---
 v7/src/runtime/ntprm.scm   | 30 +++++++++++++++---------------
 v7/src/runtime/runtime.pkg |  9 ++++++---
 v7/src/runtime/version.scm |  4 ++--
 v8/src/runtime/runtime.pkg |  9 ++++++---
 4 files changed, 29 insertions(+), 23 deletions(-)

diff --git a/v7/src/runtime/ntprm.scm b/v7/src/runtime/ntprm.scm
index e0ad84329..9153dd65e 100644
--- a/v7/src/runtime/ntprm.scm
+++ b/v7/src/runtime/ntprm.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: ntprm.scm,v 1.10 1997/01/02 04:37:46 cph Exp $
+$Id: ntprm.scm,v 1.11 1997/01/05 23:43:59 cph Exp $
 
 Copyright (c) 1992-97 Massachusetts Institute of Technology
 
@@ -121,20 +121,20 @@ MIT in each case. |#
 (define file-attributes-direct file-attributes)
 (define file-attributes-indirect file-attributes)
 
-(define-structure (file-attributes
-		   (type vector)
-		   (constructor false)
-		   (conc-name file-attributes/))
-  (type false read-only true)
-  (n-links false read-only true)
-  (uid false read-only true)
-  (gid false read-only true)
-  (access-time false read-only true)
-  (modification-time false read-only true)
-  (change-time false read-only true)
-  (length false read-only true)
-  (mode-string false read-only true)
-  (inode-number false read-only true))
+(define-structure (file-attributes (type vector)
+				   (constructor #f)
+				   (conc-name file-attributes/))
+  (type #f read-only #t)
+  (n-links #f read-only #t)
+  (uid #f read-only #t)
+  (gid #f read-only #t)
+  (access-time #f read-only #t)
+  (modification-time #f read-only #t)
+  (change-time #f read-only #t)
+  (length #f read-only #t)
+  (mode-string #f read-only #t)
+  (inode-number #f read-only #t)
+  (modes #f read-only #t))
 
 (define (file-length namestring)
   (let ((attr (file-attributes namestring)))
diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 85e882f7c..f99123eb0 100644
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.273 1996/10/09 15:43:00 cph Exp $
+$Id: runtime.pkg,v 14.274 1997/01/05 23:45:13 cph Exp $
 
-Copyright (c) 1988-96 Massachusetts Institute of Technology
+Copyright (c) 1988-97 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -472,7 +472,8 @@ MIT in each case. |#
   (file-case os-type
     ((unix) "unxdir")
     ((dos) "dosdir")
-    ((os/2 nt) "os2dir")
+    ((os/2) "os2dir")
+    ((nt) "ntdir")
     ;;(else "unkdir")
     (else))
   (parent ())
@@ -1791,6 +1792,8 @@ MIT in each case. |#
 	  have-select?)
   (export (runtime thread)
 	  have-select?)
+  (export (runtime directory)
+	  directory-channel/descriptor)
   (initialization (initialize-package!)))
 
 (define-package (runtime program-copier)
diff --git a/v7/src/runtime/version.scm b/v7/src/runtime/version.scm
index 66f674186..b73966241 100644
--- a/v7/src/runtime/version.scm
+++ b/v7/src/runtime/version.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: version.scm,v 14.171 1997/01/02 04:37:53 cph Exp $
+$Id: version.scm,v 14.172 1997/01/05 23:44:06 cph Exp $
 
 Copyright (c) 1988-97 Massachusetts Institute of Technology
 
@@ -45,7 +45,7 @@ MIT in each case. |#
 		     '()))
   (add-system! microcode-system)
   (add-event-receiver! event:after-restore snarf-microcode-version!)
-  (add-identification! "Runtime" 14 171))
+  (add-identification! "Runtime" 14 172))
 
 (define microcode-system)
 
diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg
index 5c5b45e9f..93bd7227a 100644
--- a/v8/src/runtime/runtime.pkg
+++ b/v8/src/runtime/runtime.pkg
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.280 1996/10/09 15:43:24 cph Exp $
+$Id: runtime.pkg,v 14.281 1997/01/05 23:45:04 cph Exp $
 
-Copyright (c) 1988-96 Massachusetts Institute of Technology
+Copyright (c) 1988-97 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -470,7 +470,8 @@ MIT in each case. |#
   (file-case os-type
     ((unix) "unxdir")
     ((dos) "dosdir")
-    ((os/2 nt) "os2dir")
+    ((os/2) "os2dir")
+    ((nt) "ntdir")
     ;;(else "unkdir")
     (else))
   (parent ())
@@ -1791,6 +1792,8 @@ MIT in each case. |#
 	  have-select?)
   (export (runtime thread)
 	  have-select?)
+  (export (runtime directory)
+	  directory-channel/descriptor)
   (initialization (initialize-package!)))
 
 (define-package (runtime program-copier)
-- 
2.25.1