From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 5 Jan 1997 23:38:50 +0000 (+0000)
Subject: Add new procedure to get all of the information from the directory
X-Git-Tag: 20090517-FFI~5273
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=45547e156dbc4c6a05af358b92658c5077c528f1;p=mit-scheme.git

Add new procedure to get all of the information from the directory
reader.
---

diff --git a/v7/src/microcode/ntfs.c b/v7/src/microcode/ntfs.c
index e739d0c28..6adc6e0de 100644
--- a/v7/src/microcode/ntfs.c
+++ b/v7/src/microcode/ntfs.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: ntfs.c,v 1.13 1997/01/01 22:57:24 cph Exp $
+$Id: ntfs.c,v 1.14 1997/01/05 23:38:50 cph Exp $
 
 Copyright (c) 1992-97 Massachusetts Institute of Technology
 
@@ -307,6 +307,17 @@ DEFUN (OS_directory_read_matching, (index, prefix),
     }
 }
 
+int
+win32_directory_read (unsigned int index, WIN32_FIND_DATA * info)
+{
+  nt_dir * dir = (REFERENCE_DIRECTORY (index));
+  if ((dir == 0) || (! (dir -> more)))
+    return (0);
+  (*info) = (dir -> entry);
+  (dir -> more) = (FindNextFile ((dir -> handle), (& (dir -> entry))));
+  return (1);
+}
+
 void
 DEFUN (OS_directory_close, (index), unsigned int index)
 {