代码拉取完成,页面将自动刷新
%%-*- mode: erlang -*-
DEPS = case lists:keyfind(deps, 1, CONFIG) of
{_, Deps} -> Deps;
_ -> []
end,
ComparingFun = fun
_Fun([C1|R1], [C2|R2]) when is_list(C1), is_list(C2);
is_integer(C1), is_integer(C2) -> C1 < C2 orelse _Fun(R1, R2);
_Fun([C1|R1], [C2|R2]) when is_integer(C1), is_list(C2) -> _Fun(R1, R2);
_Fun([C1|R1], [C2|R2]) when is_list(C1), is_integer(C2) -> true;
_Fun(_, _) -> false
end,
SortFun = fun(T1, T2) ->
C = fun(T) ->
[case catch list_to_integer(E) of
I when is_integer(I) -> I;
_ -> E
end || E <- re:split(string:sub_string(T, 2), "[.-]", [{return, list}])]
end,
ComparingFun(C(T1), C(T2))
end,
VTags = string:tokens(os:cmd("git tag -l \"v*\" --points-at $(git rev-parse $(git describe --abbrev=0 --tags))"), "\n"),
Tags = case VTags of
[] -> string:tokens(os:cmd("git tag -l \"e*\" --points-at $(git rev-parse $(git describe --abbrev=0 --tags))"), "\n");
_ -> VTags
end,
LatestTag = lists:last(lists:sort(SortFun, Tags)),
Branch = case os:getenv("GITHUB_RUN_ID") of
false -> os:cmd("git branch | grep -e '^*' | cut -d' ' -f 2") -- "\n";
_ -> re:replace(os:getenv("GITHUB_REF"), "^refs/heads/|^refs/tags/", "", [global, {return ,list}])
end,
GitDescribe = case re:run(Branch, "master|^dev/|^hotfix/", [{capture, none}]) of
match -> {branch, Branch};
_ -> {tag, LatestTag}
end,
UrlPrefix = "https://github.com/emqx/",
EMQX_DEP = {emqx, {git, UrlPrefix ++ "emqx", GitDescribe}},
EMQX_MGMT_DEP = {emqx_management, {git, UrlPrefix ++ "emqx-management", GitDescribe}},
NewDeps = [EMQX_DEP, EMQX_MGMT_DEP | DEPS],
CONFIG1 = lists:keystore(deps, 1, CONFIG, {deps, NewDeps}),
CONFIG1.
此处可能存在不合适展示的内容,页面不予展示。您可通过相关编辑功能自查并修改。
如您确认内容无涉及 不当用语 / 纯广告导流 / 暴力 / 低俗色情 / 侵权 / 盗版 / 虚假 / 无价值内容或违法国家有关法律法规的内容,可点击提交进行申诉,我们将尽快为您处理。