Current section

Files

Jump to
gpb build mk_version_hrl
Raw

build/mk_version_hrl

#!/usr/bin/env escript
%% -*- erlang -*-
-mode(compile).
-define(NOT_IN_GIT_ERR_MSG,
"ERROR: To build outside a git work tree, you must first create
a versioned archive, and then unpack it and build that.
This is for the version number to get correctly set.
Use helpers/mk-versioned-archive to create such an archive.
The helpers/mk-versioned-archive can be used from a git worktree
or from eg Github's automatically generated tar/zip files
or similar. If you use it from a (non-shallow) git work tree
with tags intact, the version will get picked up automatically,
otherwise you must know the proper version and specify it manually,
see mk-versioned-archive --help for further assistance.
For further info, see the README.md, the section section
named Building outside of a git work tree.").
file_err(FunName, FileName, Reason) ->
io:format(standard_error, "file:~p(~s) excute failed!, Reason :~s ~n",
[FunName, FileName, file:format_error(Reason)]),
halt(1).
main([InFile, OutFile]) ->
InGit = os:cmd("git rev-parse --is-inside-work-tree 2>&1"),
case InGit of
"true" ++ _ ->
next;
_ ->
io:format(standard_error, "~s~n", [?NOT_IN_GIT_ERR_MSG]),
halt(1)
end,
Vsn0 = os:cmd("git describe --always --tags --match [0-9]*.[0-9]*"),
Vsn = lists:sublist(Vsn0, length(Vsn0) - 1),
BaseStr = case file:read_file(InFile) of
{ok, S} ->
S;
{error, Reason} ->
file_err(read_file, InFile, Reason)
end,
SedList =
[
{<<"@vsn@">>, Vsn},
{<<"is expected to be">>, <<"was">>},
{<<"%% The version below">>, [<<"%% DO NOT EDIT -- generated ">>,
<<"from gpb_version.hrl.in\n%% The version below">>]},
{<<"%% NB: The build.mk_version_hrl depends.*">>, <<"">>}
],
VersionStr = lists:foldl(fun({Patten, Replacement}, Acc) ->
re:replace(Acc, Patten, Replacement, [{return, binary}])
end, BaseStr, SedList),
case file:write_file(OutFile, VersionStr) of
ok ->
ok;
{error, Reason2} ->
file_err(write_file, OutFile, Reason2)
end.