SCM Repository
View of /sml/branches/SMLNJ/src/compiler/TopLevel/main/version.sml
Parent Directory
|
Revision Log
Revision 100 -
(download)
(annotate)
Thu May 14 04:56:46 1998 UTC (24 years, 3 months ago) by monnier
File size: 810 byte(s)
Thu May 14 04:56:46 1998 UTC (24 years, 3 months ago) by monnier
File size: 810 byte(s)
110.5.1 from Zhong
(* 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,5,1], date = "May 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 (* * $Log: version.sml,v $ * Revision 1.1.1.1 1998/04/08 18:39:15 george * Version 110.5 * *)
root@smlnj-gforge.cs.uchicago.edu | ViewVC Help |
Powered by ViewVC 1.0.0 |