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/branches/blume-private-devel/src/system/smlnj/internal/version.template
ViewVC logotype

View of /sml/branches/blume-private-devel/src/system/smlnj/internal/version.template

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1657 - (download) (annotate)
Wed Oct 20 20:05:45 2004 UTC (15 years, 9 months ago)
File size: 687 byte(s)
This commit was manufactured by cvs2svn to create branch
'blume-private-devel'.
(* -*- 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

    val version = {
	    system = "Standard ML of New Jersey",
	    version_id = [%V],
	    date = "%D"
	  }

    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