packaging for obs.osmocom.org, based on https://salsa.debian.org/erlang-team/packages/rebar3
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
rebar3/src/r3.erl

66 lines
2.3 KiB

%%% @doc external alias for `rebar_agent' for more convenient
%%% calls from a shell.
-module(r3).
-export([do/1, do/2, do/3, async_do/1, async_do/2, async_do/3, break/0, resume/0]).
-export(['$handle_undefined_function'/2]).
-include("rebar.hrl").
%% @doc alias for `rebar_agent:do/1'
-spec do(atom() | string()) -> ok | {error, term()}.
do(Command) -> rebar_agent:do(Command).
%% @doc alias for `rebar_agent:do/2'
-spec do(atom(), atom() | string()) -> ok | {error, term()}.
do(Namespace, Command) -> rebar_agent:do(Namespace, Command).
%% @doc alias for `rebar_agent:do/3'
-spec do(atom(), atom(), string()) -> ok | {error, term()}.
do(Namespace, Command, Args) -> rebar_agent:do(Namespace, Command, Args).
%% @doc alias for `rebar_agent:async_do/1'
-spec async_do(atom()) -> ok.
async_do(Command) -> rebar_agent:async_do(Command).
%% @doc alias for `rebar_agent:async_do/2'
-spec async_do(atom(), atom()) -> ok.
async_do(Namespace, Command) -> rebar_agent:async_do(Namespace, Command).
%% @doc alias for `rebar_agent:async_do/3'
-spec async_do(atom(), atom(), string()) -> ok.
async_do(Namespace, Command, Args) -> rebar_agent:async_do(Namespace, Command, Args).
break() ->
case whereis(rebar_agent) of % is the shell running
undefined ->
ok;
Pid ->
{dictionary, Dict} = process_info(Pid, dictionary),
case lists:keyfind(cmd_type, 1, Dict) of
{cmd_type, async} ->
Self = self(),
Ref = make_ref(),
spawn_link(fun() ->
register(r3_breakpoint_handler, self()),
receive
resume ->
Self ! Ref
end
end),
io:format(user, "~n=== BREAK ===~n", []),
receive
Ref -> ok
end;
_ ->
?DEBUG("ignoring breakpoint since command is not run "
"in async mode", []),
ok
end
end.
resume() ->
r3_breakpoint_handler ! resume,
ok.
%% @private defer to rebar_agent
'$handle_undefined_function'(Cmd, Args) ->
rebar_agent:'$handle_undefined_function'(Cmd, Args).