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/compiler/TopLevel/main/versiontool.sml
ViewVC logotype

Diff of /sml/trunk/src/compiler/TopLevel/main/versiontool.sml

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

revision 1637, Wed Sep 29 18:50:52 2004 UTC revision 1638, Wed Sep 29 19:07:58 2004 UTC
# Line 63  Line 63 
63                | month Date.Dec = "December"                | month Date.Dec = "December"
64              val i = Int.toString              val i = Int.toString
65              fun si x = if x >= 0 then "+" ^ i x else "-" ^ i (~x)              fun si x = if x >= 0 then "+" ^ i x else "-" ^ i (~x)
66                fun dd x =
67                    if x < 10 then "0" ^ i x else i x
68          in          in
69              concat [month (Date.month d), " ",              concat [month (Date.month d), " ",
70                      i (Date.day d), ", ",                      i (Date.day d), ", ",
71                      i (Date.year d), " ",                      i (Date.year d), " ",
72                      i (Date.hour d), ":",                      dd (Date.hour d), ":",
73                      i (Date.minute d), ":",                      dd (Date.minute d), ":",
74                      i (Date.second d), " (",                      dd (Date.second d), " (",
75                      si (LargeInt.toInt (Time.toSeconds (Date.localOffset ()))                      si (LargeInt.toInt (Time.toSeconds (Date.localOffset ()))
76                          div 3600), ")"]                          div 3600), ")"]
77          end          end

Legend:
Removed from v.1637  
changed lines
  Added in v.1638

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