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 9 - (download) (annotate)
Sun Jan 18 01:01:29 1998 UTC (21 years, 6 months ago) by monnier
File size: 574 byte(s)
This commit was generated by cvs2svn to compensate for changes in r8,
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, 10],
	    date = "September 15, 1997"
	  }

    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