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

SCM Repository

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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 3351 - (view) (download)

1 : jhr 3351 (* version.sml
2 :     *
3 :     * This code is part of the Diderot Project (http://diderot-language.cs.uchicago.edu)
4 :     *
5 :     * COPYRIGHT (c) 2015 The University of Chicago
6 :     * All rights reserved.
7 :     *)
8 :    
9 :     structure Version =
10 :     struct
11 :    
12 :     (* name of version that characterizes the features of the compiler;
13 :     * e.g., "master", "vis12", etc.
14 :     *)
15 :     val name = "@BRANCH@"
16 :    
17 :     (* we expect the version string from configure.ac to have the form "major.minor"
18 :     * or "major.minor-patch".
19 :     *)
20 :     val (major, minor, patch) = (
21 :     case String.fields (fn #"." => true | #"-" => true | _ => false) "@PACKAGE_VERSION@"
22 :     of [a, b] => (valOf(Int.fromString a), valOf(Int.fromString b), "")
23 :     | [a, b, c] => (valOf(Int.fromString a), valOf(Int.fromString b), c)
24 :     (* end case *))
25 :    
26 :     (* date of latest feature update *)
27 :     val date = {year = 2015, month = 03, day = 07}
28 :    
29 :     val message = Format.format "%s:%4d-%02d-%02d" [
30 :     Format.STR name, Format.INT(#year date),
31 :     Format.INT (#month date), Format.INT (#day date)
32 :     ]
33 :    
34 :     end

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