summaryrefslogtreecommitdiff
path: root/bootstrap
diff options
context:
space:
mode:
authorTristan Sloughter <t@crashfast.com>2014-11-23 14:11:01 -0600
committerTristan Sloughter <t@crashfast.com>2014-11-23 14:11:01 -0600
commit4f3c5fc68f651c03f60771e5c04bfe22ecd60646 (patch)
tree7d21a38af750f7c034fbe449bc487629595c548d /bootstrap
parentddee7ec046f6460e60459b0d09060db6dfc86923 (diff)
remove unneeded portions of bootstrap script
Diffstat (limited to 'bootstrap')
-rwxr-xr-xbootstrap/bootstrap91
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"