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 1507 - (view) (download)

1 : monnier 249 (* COPYRIGHT (c) 1996 Bell Laboratories *)
2 :     (* version.sml *)
3 :    
4 : blume 879 structure CompilerVersion : sig
5 : monnier 249
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 : mblume 1507 version_id = [110, 46],
19 :     date = "June 17, 2004"
20 : monnier 249 }
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 : blume 773 f (#version_id version, [" [FLINT v1.5], ", #date version]))
29 : monnier 249
30 :     end
31 : blume 879
32 :     structure Version = CompilerVersion

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