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 344, Sun Jun 20 03:14:57 1999 UTC revision 345, Sun Jun 20 11:55:26 1999 UTC
# Line 36  Line 36 
36    
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
40    
41      (* The open?Out functions automagically create any necessary directories      (* The open?Out functions automagically create any necessary directories
42       * and announce this activity via their string consumer argument. *)       * and announce this activity via their string consumer argument. *)
# Line 310  Line 311 
311              else TStamp.NOTSTAMP              else TStamp.NOTSTAMP
312          end          end
313    
314            fun setTime (p, TStamp.NOTSTAMP) = ()
315              | setTime (p, TStamp.TSTAMP t) = OS.FileSys.setTime (name p, SOME t)
316    
317          fun openOut fileopener ap = let          fun openOut fileopener ap = let
318              val p = name ap              val p = name ap
319              fun generic (maker, pmaker, p) =              fun generic (maker, pmaker, p) =

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

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