Home My Page Projects Code Snippets Project Openings diderot
Summary Activity Tracker Tasks SCM

SCM Repository

[diderot] View of /branches/vis15/src/compiler/options/version_sml.in
ViewVC logotype

View of /branches/vis15/src/compiler/options/version_sml.in

Parent Directory Parent Directory | Revision Log Revision Log


Revision 3351 - (download) (annotate)
Wed Oct 28 16:14:29 2015 UTC (4 years, 1 month ago) by jhr
File size: 1013 byte(s)
  Working on merge.
(* version.sml
 *
 * This code is part of the Diderot Project (http://diderot-language.cs.uchicago.edu)
 *
 * COPYRIGHT (c) 2015 The University of Chicago
 * All rights reserved.
 *)

structure Version =
  struct

  (* name of version that characterizes the features of the compiler;
   * e.g., "master", "vis12", etc.
   *)
    val name = "@BRANCH@"

  (* we expect the version string from configure.ac to have the form "major.minor"
   * or "major.minor-patch".
   *)
    val (major, minor, patch) = (
	  case String.fields (fn #"." => true | #"-" => true | _ => false) "@PACKAGE_VERSION@"
	   of [a, b] => (valOf(Int.fromString a), valOf(Int.fromString b), "")
	    | [a, b, c] => (valOf(Int.fromString a), valOf(Int.fromString b), c)
	  (* end case *))

  (* date of latest feature update *)
    val date = {year = 2015, month = 03, day = 07}

    val message = Format.format "%s:%4d-%02d-%02d" [
	    Format.STR name, Format.INT(#year date),
	    Format.INT (#month date), Format.INT (#day date)
	  ]

  end

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