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/branches/SMLNJ/src/compiler/PervEnv/Unix/os-filesys.sml
ViewVC logotype

Diff of /sml/branches/SMLNJ/src/compiler/PervEnv/Unix/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 89  Line 89 
89    
90      fun realPath p = if (P.isAbsolute p)      fun realPath p = if (P.isAbsolute p)
91            then fullPath p            then fullPath p
92            else P.mkRelative (fullPath p, fullPath(getDir()))            else P.mkRelative {path=fullPath p, relativeTo=fullPath(getDir())}
93    
94      val fileSize = P_FSys.ST.size o P_FSys.stat      val fileSize = P_FSys.ST.size o P_FSys.stat
95      val modTime  = P_FSys.ST.mtime o P_FSys.stat      val modTime  = P_FSys.ST.mtime o P_FSys.stat
# Line 140  Line 140 
140    
141    end;    end;
142    
 (*  
  * $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