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/paths/abspath.sml
ViewVC logotype

Diff of /sml/trunk/src/cm/paths/abspath.sml

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

revision 345, Sun Jun 20 11:55:26 1999 UTC revision 349, Tue Jun 22 06:17:47 1999 UTC
# Line 37  Line 37 
37      val exists : t -> bool      val exists : t -> bool
38      val tstamp : t -> TStamp.t      val tstamp : t -> TStamp.t
39      val setTime : t * TStamp.t -> unit      val setTime : t * TStamp.t -> unit
40        val delete : t -> unit
41    
42      (* The open?Out functions automagically create any necessary directories      (* The open?Out functions automagically create any necessary directories
43       * and announce this activity via their string consumer argument. *)       * and announce this activity via their string consumer argument. *)
# Line 314  Line 315 
315          fun setTime (p, TStamp.NOTSTAMP) = ()          fun setTime (p, TStamp.NOTSTAMP) = ()
316            | setTime (p, TStamp.TSTAMP t) = OS.FileSys.setTime (name p, SOME t)            | setTime (p, TStamp.TSTAMP t) = OS.FileSys.setTime (name p, SOME t)
317    
318            fun delete p = OS.FileSys.remove (name p) handle _ => ()
319    
320          fun openOut fileopener ap = let          fun openOut fileopener ap = let
321              val p = name ap              val p = name ap
322              fun generic (maker, pmaker, p) =              fun generic (maker, pmaker, p) =

Legend:
Removed from v.345  
changed lines
  Added in v.349

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