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

Parent Directory | Revision Log

---

Revision 208 - (view) (download)

1 :	monnier	16	(* 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 :	monnier	69	system = "Standard ML of New Jersey ",
18 :	monnier	207	version_id = [110, 10],
19 :			date = "December 20, 1998"
20 :	monnier	16	}
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 :	monnier	69	#system version :: "v" ::
28 :	monnier	207	f (#version_id version, [" [FLINT v1.5], ", #date version]))
29 :	monnier	16
30 :			end
31 :
32 :	monnier	93

---

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