remove unneeded portions of bootstrap script

1 files changed, 1 insertions, 90 deletions

diff --git a/bootstrap/bootstrap b/bootstrap/bootstrap
index e34f033..4e3d304 100755
--- a/bootstrap/bootstrap
+++ b/bootstrap/bootstrap
@@ -11,14 +11,6 @@ main(Args) ->
             ok
     end,
 
-    %% Get a string repr of build time
-    Built = build_time(),
-
-    %% Get a string repr of first matching VCS changeset
-    VcsInfo = vcs_info([{hg, ".hg", "hg identify -i", "hg status"},
-                        {git, ".git", "git describe --always --tags",
-                         "git status -s"}]),
-
     %% Check for force=1 flag to force a rebuild
     case lists:member("force=1", Args) of
         true ->
@@ -27,62 +19,9 @@ main(Args) ->
             rm("ebin/rebar.beam")
     end,
 
-    %% Add check for debug flag
-    DebugFlag = case lists:member("debug", Args) of
-                    true -> debug_info;
-                    false -> undefined
-                end,
-
     %% Extract the system info of the version of OTP we use to compile rebar
-    OtpInfo = string:strip(erlang:system_info(otp_release), both, $\n),
-
-    %% Types dict:dict() and digraph:digraph() have been introduced in
-    %% Erlang 17.
-    %% At the same time, their counterparts dict() and digraph() are to be
-    %% deprecated in Erlang 18. namespaced_types option is used to select
-    %% proper type name depending on the OTP version used.
-    NamespacedTypes = case is_otp(OtpInfo, "^[0-9]+") of
-                          true -> {d, namespaced_types};
-                          false -> undefined
-                      end,
-
-    os:cmd("./bootstrap/rebar get-deps compile"),
-
-    %% Compile all src/*.erl to ebin
-    %% To not accidentally try to compile files like Mac OS X resource forks,
-    %% we only look for rebar source files that start with a letter.
-    case make:files(filelib:wildcard("src/[a-zA-Z]*.erl"),
-                    [{outdir, "ebin"}, {i, "include"},
-                     DebugFlag,
-                     NamespacedTypes,
-                     {d, 'BUILD_TIME', Built},
-                     {d, 'VCS_INFO', VcsInfo},
-                     {d, 'OTP_INFO', OtpInfo}]) of
-        up_to_date ->
-            ok;
-        error ->
-            io:format("Failed to compile rebar files!\n"),
-            halt(1)
-    end,
-
-    %% Make sure file:consult can parse the .app file
-    case file:consult("ebin/rebar.app") of
-        {ok, _} ->
-            ok;
-        {error, Reason} ->
-            io:format("Invalid syntax in ebin/rebar.app: ~p\n", [Reason]),
-            halt(1)
-    end,
-
-    %% Add ebin/ to our path
-    true = code:add_path("ebin"),
 
-    %% Run rebar compile to do proper .app validation etc.
-    %% and rebar escriptize to create the rebar script
-    %RebarArgs = Args -- ["debug"], %% Avoid trying to run 'debug' command
-    %rebar:main(["compile", "escriptize"] ++ RebarArgs),
-
-    os:cmd("./bootstrap/rebar compile escriptize"),
+    os:cmd("./bootstrap/rebar get-deps compile escriptize"),
 
     %% Finally, update executable perms for our script on *nix,
     %%  or write out script files on win32.
@@ -109,12 +48,6 @@ usage() ->
   io:format("    force=1   unconditional build~n"),
   io:format("    debug     add debug information~n").
 
-is_otp(OtpInfo, Regex) ->
-     case re:run(OtpInfo, Regex, [{capture, none}]) of
-          match -> true;
-          nomatch -> false
-     end.
-
 rm(Path) ->
     NativePath = filename:nativename(Path),
     Cmd = case os:type() of
@@ -124,28 +57,6 @@ rm(Path) ->
     [] = os:cmd(Cmd ++ NativePath),
     ok.
 
-build_time() ->
-    {{Y, M, D}, {H, Min, S}} = calendar:now_to_universal_time(now()),
-    lists:flatten(io_lib:format("~4..0w~2..0w~2..0w_~2..0w~2..0w~2..0w",
-                                [Y, M, D, H, Min, S])).
-
-vcs_info([]) ->
-    "No VCS info available.";
-vcs_info([{Id, Dir, VsnCmd, StatusCmd} | Rest]) ->
-    case filelib:is_dir(Dir) of
-        true ->
-            Vsn = string:strip(os:cmd(VsnCmd), both, $\n),
-            Status = case string:strip(os:cmd(StatusCmd), both, $\n) of
-                         [] ->
-                             "";
-                         _ ->
-                             "-dirty"
-                     end,
-            lists:concat([Id, " ", Vsn, Status]);
-        false ->
-            vcs_info(Rest)
-    end.
-
 write_windows_scripts() ->
     CmdScript=
         "@echo off\r\n"