SCM Repository
View of /sml/branches/SMLNJ/src/compiler/TopLevel/main/version.sml
Parent Directory
|
Revision Log
Revision 123 -
(download)
(annotate)
Mon Sep 7 16:19:55 1998 UTC (23 years, 9 months ago) by monnier
File size: 712 byte(s)
Mon Sep 7 16:19:55 1998 UTC (23 years, 9 months ago) by monnier
File size: 712 byte(s)
Release_110_7_1
(* COPYRIGHT (c) 1996 Bell Laboratories *) (* version.sml *) structure Version : sig val version : { system : string, (* the system title *) version_id : int list, (* the version number *) date : string (* date of creation *) } val banner : string end = struct val version = { system = "Standard ML of New Jersey ", version_id = [110, 7, 1], date = "June 5, 1998" } fun f ([], l) = l | f ([x : int], l) = (Int.toString x)::l | f (x::r, l) = (Int.toString x) :: "." :: f(r, l) val banner = concat ( #system version :: "v" :: f (#version_id version, [" [FLINT v1.41], ", #date version])) end
root@smlnj-gforge.cs.uchicago.edu | ViewVC Help |
Powered by ViewVC 1.0.0 |