Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Annotation of /sml/trunk/src/compiler/TopLevel/main/version.sml
ViewVC logotype

Annotation of /sml/trunk/src/compiler/TopLevel/main/version.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 249 - (view) (download)
Original Path: sml/branches/SMLNJ/src/compiler/TopLevel/main/version.sml

1 : monnier 249 (* COPYRIGHT (c) 1996 Bell Laboratories *)
2 :     (* version.sml *)
3 :    
4 :     structure Version : sig
5 :    
6 :     val version : {
7 :     system : string, (* the system title *)
8 :     version_id : int list, (* the version number *)
9 :     date : string (* date of creation *)
10 :     }
11 :    
12 :     val banner : string
13 :    
14 :     end = struct
15 :    
16 :     val version = {
17 :     system = "Standard ML of New Jersey ",
18 :     version_id = [110, 16],
19 :     date = "April 15, 1999"
20 :     }
21 :    
22 :     fun f ([], l) = l
23 :     | f ([x : int], l) = (Int.toString x)::l
24 :     | f (x::r, l) = (Int.toString x) :: "." :: f(r, l)
25 :    
26 :     val banner = concat (
27 :     #system version :: "v" ::
28 :     f (#version_id version, [" [FLINT v1.5], ", #date version]))
29 :    
30 :     end
31 :    
32 :    

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