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/compiler/PervEnv/UnixNoPosix/os-filesys.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/PervEnv/UnixNoPosix/os-filesys.sml

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

revision 113, Fri Jun 5 19:41:21 1998 UTC revision 143, Mon Sep 7 21:46:44 1998 UTC
# Line 106  Line 106 
106    
107      fun realPath p = if (P.isAbsolute p)      fun realPath p = if (P.isAbsolute p)
108            then fullPath p            then fullPath p
109            else P.mkRelative (fullPath p, fullPath(getDir()))            else P.mkRelative {path=fullPath p, relativeTo=fullPath(getDir())}
110    
111      local      local
112        val modTime' : string -> int                      = osFunc "modTime"        val modTime' : string -> int                      = osFunc "modTime"
# Line 138  Line 138 
138    end; (* FILE_SYS *)    end; (* FILE_SYS *)
139    
140    
 (*  
  * $Log$  
  *)  

Legend:
Removed from v.113  
changed lines
  Added in v.143

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