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/system/smlnj/internal/version.template
ViewVC logotype

Diff of /sml/trunk/src/system/smlnj/internal/version.template

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

revision 1688, Fri Nov 12 22:19:51 2004 UTC revision 1689, Sat Nov 13 06:25:04 2004 UTC
# Line 17  Line 17 
17    
18    end = struct    end = struct
19    
20        (* generate date string at boot time *)
21      val version = {      val version = {
22              system = "Standard ML of New Jersey",              system = "Standard ML of New Jersey",
23              version_id = [%V],              version_id = [%V],
24              date = "%D"              date = Date.toString (Date.fromTimeLocal (Time.now ()))
25            }            }
26    
27      val banner = concat      val banner = concat
28            (#system version :: " v" ::            (#system version :: " v" ::
29             String.concatWith "." (map Int.toString (#version_id version)) ::             String.concatWith "." (map Int.toString (#version_id version)) ::
30             [" [built: ", #date version, "]"])             [" [built: ", #date version, "]"])
   
31  end  end

Legend:
Removed from v.1688  
changed lines
  Added in v.1689

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