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

Parent Directory | Revision Log

---

Revision 928 - (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 :	blume	928	version_id = [110, 36],
19 :			date = "September 18, 2001"
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