Add support for embedding VCS info into the version data

1 files changed, 5 insertions, 1 deletions

diff --git a/bootstrap b/bootstrap
index cbd17c3..d9327ba 100755
--- a/bootstrap
+++ b/bootstrap
@@ -6,6 +6,9 @@ main(Args) ->
     %% Get a string repr of build time
     Built = build_time(),
 
+    %% Get a string repr of hg changeset
+    HgInfo = "hg " ++ string:strip(os:cmd("hg identify -i"), both, $\n),
+
     %% Check for force=1 flag to force a rebuild
     case lists:member("force=1", Args) of
         true ->
@@ -17,7 +20,8 @@ main(Args) ->
 
     %% Compile all src/*.erl to ebin
     case make:files(filelib:wildcard("src/*.erl"), [{outdir, "ebin"}, {i, "include"},
-                                                    {d, 'BUILD_TIME', Built}]) of
+                                                    {d, 'BUILD_TIME', Built},
+                                                    {d, 'VCS_INFO', HgInfo}]) of
         up_to_date ->
             ok;
         error ->