Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Tracker SCM

SCM Repository

[smlnj] Diff of /sml/trunk/src/system/Basis/Implementation/Win32/os-filesys.sml
ViewVC logotype

Diff of /sml/trunk/src/system/Basis/Implementation/Win32/os-filesys.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1349, Wed Sep 3 22:22:18 2003 UTC revision 1350, Fri Sep 5 21:34:27 2003 UTC
# Line 57  Line 57 
57    
58          fun readDir (DS{isOpen=ref false,...}) =          fun readDir (DS{isOpen=ref false,...}) =
59              rse "readDir" "stream not open"              rse "readDir" "stream not open"
60            | readDir (DS{nextFile=ref NONE,...}) = ""            | readDir (DS{nextFile=ref NONE,...}) = NONE
61            | readDir (DS{hndlptr,nextFile=nF as ref (SOME name),...}) =            | readDir (DS{hndlptr,nextFile=nF as ref (SOME name),...}) =
62              (nF := W32FS.findNextFile (!hndlptr);              (nF := W32FS.findNextFile (!hndlptr);
63               name)               case name of
64                     "" => NONE
65                   | _ => SOME name)
66          val readDir = (* OSPath.mkCanonical o *) readDir          val readDir = (* OSPath.mkCanonical o *) readDir
67    
68          fun closeDir (DS{isOpen=ref false,...}) = ()          fun closeDir (DS{isOpen=ref false,...}) = ()

Legend:
Removed from v.1349  
changed lines
  Added in v.1350

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0