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.

diff --git a/v7/src/runtime/ntprm.scm b/v7/src/runtime/ntprm.scm
index e0ad84329445278c358ed9b91e8fb4f33044197a..9153dd65ed3def436133e88444b183f9654bc03c 100644 (file)
--- 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 85e882f7cbca437c7e0dd7745a1a1de901ea0dfb..f99123eb021a981275ad0a4d3b3114d4bbee9e70 100644 (file)
--- 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 66f67418689cf0241d7efaab640d9863e522ef51..b73966241156eac72963eb1b54e06873d268f62b 100644 (file)
--- 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 5c5b45e9ff16146b66e7319e10193310bd1f19d5..93bd7227a54550200db7fee32f7761b2a8894697 100644 (file)
--- 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)