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/cml/src/core-cml/version.sml
ViewVC logotype

View of /sml/trunk/src/cml/src/core-cml/version.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 168 - (download) (annotate)
Sat Nov 7 20:11:41 1998 UTC (21 years, 3 months ago) by monnier
File size: 572 byte(s)
This commit was generated by cvs2svn to compensate for changes in r167,
which included commits to RCS files with non-trunk default branches.
(* version.sml
 *
 * COPYRIGHT (c) 1996 AT&T Research.
 *)

structure Version : sig

    val version : {system : string, version_id : int list, date : string}
    val banner : string

  end = struct


    val version = {
	    system = "Concurrent ML",
	    version_id = [1, 0, 13],
	    date = "October 16, 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 :: ", Version " ::
	    f (#version_id version, [", ", #date version]))

  end;


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