diff options
Diffstat (limited to 'bootstrap')
| -rwxr-xr-x | bootstrap/bootstrap | 91 |
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" |