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/util/tstamp.sml
ViewVC logotype

Diff of /sml/trunk/src/cm/util/tstamp.sml

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

revision 345, Sun Jun 20 11:55:26 1999 UTC revision 354, Fri Jun 25 08:36:12 1999 UTC
# Line 21  Line 21 
21        | needsUpdate { source = NOTSTAMP, ... } = false        | needsUpdate { source = NOTSTAMP, ... } = false
22        | needsUpdate { source = TSTAMP st, target = TSTAMP tt } =        | needsUpdate { source = TSTAMP st, target = TSTAMP tt } =
23          Time.compare (st, tt) <> EQUAL          Time.compare (st, tt) <> EQUAL
24    
25        fun fmodTime f = TSTAMP (OS.FileSys.modTime f) handle _ => NOTSTAMP
26        fun setTime (f, NOTSTAMP) = ()
27          | setTime (f, TSTAMP t) = OS.FileSys.setTime (f, SOME t)
28  end  end

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

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