Packages
otpbp
7.20.0
8.1.0
8.0.0
7.20.0
7.19.3
7.19.2
7.18.0
7.16.1
7.15.0
7.14.0
7.13.0
7.12.0
7.11.0
7.10.2
7.9.3
7.9.2
7.9.1
7.8.7
7.8.6
7.8.5
7.8.4
7.7.1
7.7.0
7.6.3
7.6.2
7.6.1
7.6.0
7.5.1
7.5.0
7.4.0
7.3.4
7.3.3
7.3.2
7.3.1
7.3.0
7.2.0
7.1.1
7.1.0
7.0.4
7.0.3
7.0.2
7.0.1
6.28.0
6.27.1
6.27.0
6.26.2
6.26.1
6.26.0
6.25.0
6.24.0
6.23.0
6.22.2
6.21.3
6.21.2
6.21.1
6.20.2
6.19.1
6.19.0
6.18.3
6.18.2
6.18.1
6.18.0
6.17.1
6.17.0
6.16.0
6.15.4
6.15.3
6.15.2
6.15.1
6.15.0
6.14.0
6.13.5
6.13.4
6.13.3
6.13.2
6.13.1
6.13.0
6.12.0
6.11.2
6.11.1
6.10.0
6.9.2
6.9.1
6.9.0
6.8.0
6.7.1
6.7.0
6.6.4
6.6.3
6.6.2
6.6.1
6.6.0
6.5.0
6.4.0
6.3.3
6.3.2
6.3.1
6.3.0
6.2.1
6.2.0
6.1.0
6.0.0
5.41.0
5.40.1
5.40.0
5.39.1
5.39.0
5.38.0
5.37.0
5.36.0
5.35.2
5.34.3
5.34.2
5.34.1
5.33.1
5.32.1
5.32.0
5.31.3
5.31.2
5.31.1
5.31.0
5.30.1
5.30.0
5.29.0
5.28.4
5.28.3
5.28.2
5.28.1
5.28.0
5.27.0
5.26.5
5.26.4
5.26.3
5.26.2
5.26.1
5.26.0
5.25.0
5.24.2
5.24.1
5.23.0
5.22.2
5.22.1
5.22.0
5.21.0
5.20.1
5.20.0
5.19.4
5.19.3
5.19.2
5.19.1
5.19.0
5.18.0
5.17.0
5.16.3
5.16.1
5.16.0
5.15.1
5.15.0
5.14.0
5.13.1
5.13.0
5.12.1
5.12.0
5.11.2
5.11.1
5.10.1
5.10.0
5.9.0
5.8.0
5.7.0
5.6.1
5.6.0
5.5.0
5.4.2
5.4.1
5.4.0
5.3.0
5.2.2
5.2.1
5.2.0
5.1.2
5.1.1
4.81.0
4.80.1
4.80.0
4.79.1
4.79.0
4.78.0
4.77.0
4.76.2
4.75.3
4.75.2
4.75.1
4.74.0
4.73.1
4.73.0
4.72.3
4.72.2
4.72.1
4.72.0
4.71.1
4.71.0
4.70.0
4.69.4
4.69.3
4.69.2
4.69.1
4.69.0
4.68.0
4.67.5
4.67.4
4.67.3
4.67.2
4.67.0
4.66.0
4.65.2
4.65.1
4.64.0
4.63.2
4.63.1
4.63.0
4.62.0
4.61.1
4.61.0
4.60.4
4.60.3
4.60.2
4.60.1
4.60.0
4.59.0
4.58.0
4.57.2
4.57.1
4.57.0
4.56.2
4.56.1
4.56.0
4.55.0
4.54.0
4.53.0
4.52.1
4.52.0
4.51.3
4.51.2
4.51.0
4.50.0
4.49.3
4.49.2
OTP backports
Current section
Files
Jump to
Current section
Files
src/otpbp_versions.erl
-module(otpbp_versions).
-ifndef(HAVE_versions__branch_1).
-export([branch/1,
branch_base/1,
check/1,
compare/2,
list_check/1,
list_compare/2,
list_to_string/1,
string_to_list/1]).
branch(V) ->
try
case vs2vl(V) of
[_, _] -> <<"0.">>;
[_, _, _] -> <<"0.">>;
VL -> unicode:characters_to_binary([vl2vs(lists:reverse(tl(lists:reverse(VL))), true), $.])
end
catch
_:_ -> error(badarg, [V])
end.
branch_base(B) ->
try
case bsplit2bl(split(B), 0, []) of
[0] -> <<"0.0">>;
RBL ->
vl2vs(case lists:reverse(drop_zeros(RBL)) of
[X] -> [X, 0];
Xs -> Xs
end,
false)
end
catch
_:_ -> error(badarg, [B])
end.
check(V) ->
try vs2vl(V) of
_ -> true
catch
_:_ -> false
end.
compare(V1, V2) ->
try
cmp(vs2vl(V1), vs2vl(V2))
catch
_:_ -> error(badarg, [V1, V2])
end.
list_check(VL) ->
try chk_vl(VL) of
_ -> true
catch
_:_ -> false
end.
list_compare(VL1, VL2) ->
try
cmp(chk_vl(VL1), chk_vl(VL2))
catch
_:_ -> error(badarg, [VL1, VL2])
end.
list_to_string(VL) ->
try
vl2vs(VL, false)
catch
_:_ -> error(badarg, [VL])
end.
string_to_list(V) ->
try
vs2vl(V)
catch
_:_ -> error(badarg, [V])
end.
%%%
%%% Internal helper functions
%%%
bsplit2bl([X], N, RXs) ->
true = string:is_empty(X),
if
N == 1 -> [0] = RXs;
N == 2 -> error(invalid_branch_id);
true -> RXs
end;
bsplit2bl([X|Xs], N, RXs) ->
I = str2int(X),
true = I >= 0,
bsplit2bl(Xs, N + 1, [I|RXs]).
vs2vl(V) ->
case lists:map(fun str2int/1, split(V)) of
[X, Y] = VL when X >= 0, Y >= 0 -> VL;
[X, Y, Z] = VL when X >= 0, Y >= 0, Z > 0 -> VL;
[X, Y, Z|[_|_] = Vs] = VL when X >= 0, Y >= 0, Z >= 0 ->
chk_i(Vs),
VL
end.
str2int(S) ->
{I, R} = string:to_integer(case unicode:characters_to_binary(S) of
<<"0"/utf8, _/utf8, _/binary>> -> error(leading_zero_in_integer);
BS -> BS
end),
true = string:is_empty(R),
I.
chk_i([]) -> ok;
chk_i([0]) -> error(trailing_zero);
chk_i([X|Xs]) when X >= 0 -> chk_i(Xs).
cmp(V1, V2) -> cmp(V1, V2, 1).
cmp([XY|Xs], [XY|Ys], N) -> cmp(Xs, Ys, N+1);
cmp([], [], _N) -> same;
cmp([], [_Y|_Ys], _N) -> ancestor;
cmp([_X|_Xs], [], _N) -> descendant;
cmp([X, _X2], [Y|_Ys], 1) when X < Y -> ancestor;
cmp([X, _X2, _X3], [Y|_Ys], 1) when X < Y -> ancestor;
cmp([X], [Y|_Ys], 2) when X < Y -> ancestor;
cmp([X, _X2], [Y|_Ys], 2) when X < Y -> ancestor;
cmp([X|_Xs], [Y, _Y1], 1) when X > Y -> descendant;
cmp([X|_Xs], [Y, _Y1, _Y2], 1) when X > Y -> descendant;
cmp([X|_Xs], [Y], 2) when X > Y -> descendant;
cmp([X|_Xs], [Y, _Y1], 2) when X > Y -> descendant;
cmp([X], [Y|_Ys], N) when X < Y, N >= 3 -> ancestor;
cmp([X|_Xs], [Y], N) when X > Y, N >= 3 -> descendant;
cmp(_Xs, _Ys, _N) -> undefined.
chk_vl([V1, V2|Vs] = VL) when is_integer(V1), V1 >= 0, is_integer(V2), V2 >= 0 ->
true = chk_vl_tail(Vs),
VL.
chk_vl_tail([]) -> true;
chk_vl_tail([V]) -> true = (is_integer(V) andalso V > 0);
chk_vl_tail([V|Vs]) ->
true = (is_integer(V) andalso V >= 0),
chk_vl_tail(Vs).
vl2vs([V1, V2 | Vs], TZ) when is_integer(V1), V1 >= 0, is_integer(V2), V2 >= 0 ->
unicode:characters_to_binary([integer_to_binary(V1), $., integer_to_binary(V2)|vl2vs_tail(Vs,TZ)]).
vl2vs_tail([], _TZ) -> [];
vl2vs_tail([V], false) ->
true = (is_integer(V) andalso V > 0),
[$., integer_to_binary(V)];
vl2vs_tail([V], true) ->
true = (is_integer(V) andalso V >= 0),
[$., integer_to_binary(V)];
vl2vs_tail([V|Vs], TZ) ->
true = (is_integer(V) andalso V >= 0),
[$., integer_to_binary(V)|vl2vs_tail(Vs, TZ)].
drop_zeros([0|Xs]) -> drop_zeros(Xs);
drop_zeros(Xs) -> Xs.
split(V) -> string:split(V, <<$.>>, all).
-endif.