Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /sml/trunk/src/cm/main/cm-boot.sml
ViewVC logotype

Diff of /sml/trunk/src/cm/main/cm-boot.sml

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

revision 379, Thu Jul 8 02:12:11 1999 UTC revision 380, Fri Jul 9 05:22:18 1999 UTC
# Line 26  Line 26 
26        structure CoerceEnv = GenericVC.CoerceEnv        structure CoerceEnv = GenericVC.CoerceEnv
27        structure EM = GenericVC.ErrorMsg        structure EM = GenericVC.ErrorMsg
28        structure BF = HostMachDepVC.Binfile        structure BF = HostMachDepVC.Binfile
29          structure P = OS.Path
30          structure F = OS.FileSys
31    
32        val os = SMLofNJ.SysInfo.getOSKind ()        val os = SMLofNJ.SysInfo.getOSKind ()
33    
# Line 222  Line 224 
224                val _ = let                val _ = let
225                    fun listDir ds = let                    fun listDir ds = let
226                        fun loop l =                        fun loop l =
227                            case OS.FileSys.readDir ds of                            case F.readDir ds of
228                                "" => l                                "" => l
229                              | x => loop (x :: l)                              | x => loop (x :: l)
230                    in                    in
231                        loop []                        loop []
232                    end                    end
233                    val fileList = SafeIO.perform                    val fileList = SafeIO.perform
234                        { openIt = fn () => OS.FileSys.openDir bootdir,                        { openIt = fn () => F.openDir bootdir,
235                          closeIt = OS.FileSys.closeDir,                          closeIt = F.closeDir,
236                          work = listDir,                          work = listDir,
237                          cleanup = fn () => () }                          cleanup = fn () => () }
238                    fun isDir x =                    fun isDir x = F.isDir x handle _ => false
                       OS.FileSys.isDir x handle _ => false  
239                    fun subDir x = let                    fun subDir x = let
240                        val d = OS.Path.concat (bootdir, x)                        val d = P.concat (bootdir, x)
241                    in                    in
242                        if isDir d then SOME (x, d) else NONE                        if isDir d then SOME (x, d) else NONE
243                    end                    end

Legend:
Removed from v.379  
changed lines
  Added in v.380

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