Add support for minimum OTP versions.

Since you can't really do math with regexps and it's a pain to
repeatedly update the config for each new version or erlang, I wanted
to add support for minium OTP versions.  This is a fix for
https://github.com/basho/riaknostic/issues/38
This commit is contained in:
Evan Vigil-McClanahan 2012-06-07 11:57:03 -07:00
parent 4fc3e9bfb6
commit a78e6cd740

View file

@ -67,4 +67,33 @@ check_versions(Config) ->
nomatch -> nomatch ->
?ABORT("OTP release ~s does not match required regex ~s\n", ?ABORT("OTP release ~s does not match required regex ~s\n",
[erlang:system_info(otp_release), OtpRegex]) [erlang:system_info(otp_release), OtpRegex])
end,
case rebar_config:get(Config, require_min_otp_vsn, undefined) of
undefined -> ?DEBUG("Min OTP version unconfigured~n", []);
MinOtpVsn ->
{MinMaj, MinMin} = version_tuple(MinOtpVsn, "configured"),
{OtpMaj, OtpMin} = version_tuple(erlang:system_info(otp_release),
"OTP Release"),
case {OtpMaj, OtpMin} >= {MinMaj, MinMin} of
true ->
?DEBUG("~s satisfies the requirement for vsn ~s~n",
[erlang:system_info(otp_release),
MinOtpVsn]);
false ->
?ABORT("OTP release ~s or later is required, you have: ~s~n",
[MinOtpVsn,
erlang:system_info(otp_release)])
end
end.
version_tuple(OtpRelease, Type) ->
case re:run(OtpRelease, "R(\\d+)B?-?(\\d+)?", [{capture, all, list}]) of
{match, [_Full, Maj, Min]} ->
{list_to_integer(Maj), list_to_integer(Min)};
{match, [_Full, Maj]} ->
{list_to_integer(Maj), 0};
nomatch ->
?ABORT("Cannot parse ~s version string: ~s~n",
[Type, OtpRelease])
end. end.