Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] View of /sml/trunk/src/system/smlnj/internal/version.template
ViewVC logotype

View of /sml/trunk/src/system/smlnj/internal/version.template

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1689 - (download) (annotate)
Sat Nov 13 06:25:04 2004 UTC (15 years, 6 months ago) by mblume
File size: 777 byte(s)
improved the version tool by simplifying it
(* -*- sml -*-
 * %F version.template
 *
 * Copyright (c) 2004 by The Fellowship of SML/NJ
 *
 * Author: Matthias Blume (blume@tti-c.org)
 *)
structure SMLNJVersion : 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

    (* generate date string at boot time *)
    val version = {
	    system = "Standard ML of New Jersey",
	    version_id = [%V],
	    date = Date.toString (Date.fromTimeLocal (Time.now ()))
        }

    val banner = concat
	  (#system version :: " v" ::
	   String.concatWith "." (map Int.toString (#version_id version)) ::
	   [" [built: ", #date version, "]"])
end

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