OS/2 directory-listing procedures must canonicalize filename case,

because filename completion code depends on case-sensitive string
matching operations.

diff --git a/v7/src/edwin/os2.scm b/v7/src/edwin/os2.scm
index d359dbe7d986a80e0d79677828b2a0da6affc73b..e3e795ae72483042ab93728f87c334193f5320cb 100644 (file)
--- a/v7/src/edwin/os2.scm
+++ b/v7/src/edwin/os2.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Id: os2.scm,v 1.16 1995/05/05 22:32:33 cph Exp $
+;;;    $Id: os2.scm,v 1.17 1995/05/12 09:30:55 cph Exp $
 ;;;
 ;;;    Copyright (c) 1994-95 Massachusetts Institute of Technology
 ;;;
@@ -121,6 +121,26 @@ Includes the new backup.  Must be > 0."
          (string-set! result 0 #\$)
          result)
        filename)))
+
+(define (os/directory-list directory)
+  (let ((channel (directory-channel-open directory)))
+    (let loop ((result '()))
+      (let ((name (directory-channel-read channel)))
+       (if name
+           (loop (cons (begin (string-downcase! name) name) result))
+           (begin
+             (directory-channel-close channel)
+             result))))))
+
+(define (os/directory-list-completions directory prefix)
+  (let ((channel (directory-channel-open directory)))
+    (let loop ((result '()))
+      (let ((name (directory-channel-read-matching channel prefix)))
+       (if name
+           (loop (cons (begin (string-downcase! name) name) result))
+           (begin
+             (directory-channel-close channel)
+             result))))))
 \f
 ;;;; Backup and Auto-Save Filenames
 
@@ -725,28 +745,4 @@ Otherwise, messages remain on the server and will be re-fetched later."
 (add-event-receiver! event:after-restore
   (lambda ()
     (set! os2/cached-hostname #f)
-    unspecific))
-\f
-;;;; Generic Stuff
-;;; These definitions are OS-independent and references to them should
-;;; be replaced in order to reduce the number of OS-dependent defs.
-
-(define (os/directory-list directory)
-  (let ((channel (directory-channel-open directory)))
-    (let loop ((result '()))
-      (let ((name (directory-channel-read channel)))
-       (if name
-           (loop (cons name result))
-           (begin
-             (directory-channel-close channel)
-             result))))))
-
-(define (os/directory-list-completions directory prefix)
-  (let ((channel (directory-channel-open directory)))
-    (let loop ((result '()))
-      (let ((name (directory-channel-read-matching channel prefix)))
-       (if name
-           (loop (cons name result))
-           (begin
-             (directory-channel-close channel)
-             result))))))
\ No newline at end of file
+    unspecific))
\ No newline at end of file