From 6df9d493655775677400ca0348de747d90305256 Mon Sep 17 00:00:00 2001
From: Tristan Sloughter <t@crashfast.com>
Date: Wed, 18 Sep 2013 22:32:42 -0500
Subject: add -v/--version cli option

---
 src/relx.erl | 14 +++++++++++---
 1 file changed, 11 insertions(+), 3 deletions(-)

(limited to 'src/relx.erl')

diff --git a/src/relx.erl b/src/relx.erl
index bc311f5..2aac8e4 100644
--- a/src/relx.erl
+++ b/src/relx.erl
@@ -47,11 +47,18 @@ main(Args) ->
     OptSpecList = opt_spec_list(),
     Result = case getopt:parse(OptSpecList, Args) of
                  {ok, {Options, NonOptions}} ->
-                     case lists:member(help, Options) of
+                     case lists:member(version, Options) of
                          true ->
-                             usage();
+                             application:load(relx),
+                             {ok, Vsn} = application:get_key(relx, vsn),
+                             io:format("~s~n", [Vsn]);
                          false ->
-                             do([{caller, command_line} | Options], NonOptions)
+                             case lists:member(help, Options) of
+                                 true ->
+                                     usage();
+                                 false ->
+                                     do([{caller, command_line} | Options], NonOptions)
+                             end
                      end;
                  {error, Detail} ->
                      ?RLX_ERROR({opt_parse, Detail})
@@ -193,6 +200,7 @@ opt_spec_list() ->
      {override_app, $a, "override_app", string,
       "Provide an app name and a directory to override in the form <appname>:<app directory>"},
      {config, $c, "config", {string, ""}, "The path to a config file"},
+     {version, $v, "version", undefined, "Print relx version"},
      {root_dir, $r, "root", string, "The project root directory"}].
 
 -spec format_error(Reason::term()) -> string().
-- 
cgit v1.2.3