Packages
geas
2.11.1
2.11.1
2.11.0
retired
2.10.1
2.10.0
retired
2.9.9
2.9.8
2.9.7
2.9.6
2.9.5
2.9.4
2.9.2
2.9.1
2.9.0
2.8.1
2.8.0
2.7.14
2.7.13
2.7.12
2.7.11
2.7.10
2.7.9
2.7.8
2.7.7
2.7.6
2.7.5
2.7.4
2.7.3
2.7.2
2.7.1
2.7.0
2.6.2
2.6.1
2.6.0
retired
2.5.1
2.5.0
retired
2.4.6
2.4.5
retired
2.4.4
retired
2.4.3
retired
2.4.2
retired
2.4.1
retired
2.4.0
2.3.0
2.2.0
Guess Erlang Application Scattering
Current section
Files
Jump to
Current section
Files
src/geas_plugins.hrl
%%-------------------------------------------------------------------------
%% @doc rebar plugin call function
%% @since 2.0.2
%% @end
%%-------------------------------------------------------------------------
geas(_, _ ) ->
put(geas_exit_code, 0),
put(geas_caller, 'rebar'),
{ok, Dir} = file:get_cwd(),
compat(Dir),
case get(geas_exit_code) of
0 -> guilty(Dir);
_ -> skip
end,
geas:log().
%%-------------------------------------------------------------------------
%% @doc erlang.mk plugin call function
%% @since 2.5
%% @end
%%-------------------------------------------------------------------------
geas_check(Dir) ->
put(geas_exit_code, 0),
try
put(geas_caller, 'erlang.mk'),
put(geas_exit_code, 0), % bug ? put does not work outside try catch
compat(Dir),
case get(geas_exit_code) of
0 -> guilty(Dir);
_ -> skip
end,
geas:log()
catch
%_:Exit1:Stack -> put(geas_exit_code, Exit1), io:format("~p", [Stack])
_:Exit1 -> put(geas_exit_code, Exit1)
after
Exit = get(geas_exit_code),
Msg = case Exit of
1 -> "Current version is incompatible with release window";
2 -> "Release window do not match required semver version range";
3 -> "Incompatible BEAM file, may need recompilation";
4 -> "Incompatible BEAM maximum opcode, may need recompilation";
5 -> "Release window do not match required semver version range";
6 -> "The release window cannot be found or appears to be invalid";
_ -> "Unexpected geas exit code"
end,
case Exit of
0 -> do_log({notice, compat, "Success"}) ;
_ -> do_log({error, compat, Msg})
end,
geas:log(),
halt(Exit)
end.