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 17, Wed Mar 11 21:00:18 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: os-filesys.sml,v $  
  * Revision 1.3  1997/06/07 15:27:51  jhr  
  *   SML'97 Basis Library changes (phase 3; Posix changes)  
  *  
  * Revision 1.2  1997/02/26  21:00:32  george  
  *    Defined a new top level Option structure. All 'a option related  
  *    functions have been moved out of General.  
  *  
  * Revision 1.1.1.1  1997/01/14  01:38:25  george  
  *   Version 109.24  
  *  
  *)  

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

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