4a2f2e8ab2
This makes it useful for users of the bindings. The naming is the same as the module to allow elixir to treat the records in much the same way as its native module/record hybrid.
125 lines
3.6 KiB
Erlang
125 lines
3.6 KiB
Erlang
%%%-------------------------------------------------------------------
|
|
%%% @author Carlos Martín Nieto <cmn@dwim.me>
|
|
%%% @copyright (C) 2013, Carlos Martín Nieto
|
|
%%% @doc
|
|
%%%
|
|
%%% @end
|
|
%%% Created : 6 Apr 2013 by Carlos Martín Nieto <cmn@dwim.me>
|
|
%%%-------------------------------------------------------------------
|
|
-module(geef_revwalk).
|
|
|
|
-behaviour(gen_server).
|
|
|
|
%% API
|
|
-export([start_link/1]).
|
|
-export([push/2, hide/2, next/1, sorting/2, stop/1]).
|
|
|
|
%% gen_server callbacks
|
|
-export([init/1, handle_call/3, handle_cast/2, handle_info/2,
|
|
terminate/2, code_change/3]).
|
|
|
|
-record(state, {handle}).
|
|
-include("geef_records.hrl").
|
|
|
|
%%%===================================================================
|
|
%%% API
|
|
%%%===================================================================
|
|
|
|
%% @doc Push a commit. This commit and its parents will be included in
|
|
%% the walk as long as they haven't been hidden. At least one commit
|
|
%% must be pushed before starting a walk.
|
|
-spec push(pid(), geef_oid() | iolist()) -> ok | {error, binary()}.
|
|
push(Pid, #geef_oid{oid=Oid}) ->
|
|
gen_server:call(Pid, {push, Oid});
|
|
push(Pid, Id) ->
|
|
#geef_oid{oid=Oid} = geef_oid:parse(Id),
|
|
gen_server:call(Pid, {push, Oid}).
|
|
|
|
|
|
%% @doc Hide a commit. Hide a commit and its parents. Any Parent of
|
|
%% this commit won't be included in the walk.
|
|
-spec hide(pid(), geef_oid() | iolist()) -> ok | {error, binary()}.
|
|
hide(Pid, #geef_oid{oid=Oid}) ->
|
|
gen_server:call(Pid, {hide, Oid});
|
|
hide(Pid, Id) ->
|
|
#geef_oid{oid=Oid} = geef_oid:parse(Id),
|
|
gen_server:call(Pid, {hide, Oid}).
|
|
|
|
|
|
%% @doc Select the sorting method
|
|
-spec sorting(pid, atom() | [atom()]) -> ok.
|
|
sorting(Pid, Opts) when is_list(Opts) ->
|
|
gen_server:call(Pid, {sort, Opts});
|
|
sorting(Pid, Opt) when is_atom(Opt) ->
|
|
gen_server:call(Pid, {sort, [Opt]}).
|
|
|
|
%% @doc Next commit in the walk
|
|
next(Pid) ->
|
|
gen_server:call(Pid, next).
|
|
|
|
%% @doc Stop the revwalk server
|
|
stop(Pid) ->
|
|
gen_server:call(Pid, stop).
|
|
|
|
%%--------------------------------------------------------------------
|
|
%% @doc
|
|
%% Starts the server
|
|
%%
|
|
%% @spec start_link() -> {ok, Pid} | ignore | {error, Error}
|
|
%% @end
|
|
%%--------------------------------------------------------------------
|
|
start_link(Handle) ->
|
|
gen_server:start_link(?MODULE, Handle, []).
|
|
|
|
%%%===================================================================
|
|
%%% gen_server callbacks
|
|
%%%===================================================================
|
|
|
|
%% @private
|
|
init(Handle) ->
|
|
{ok, #state{handle=Handle}}.
|
|
|
|
%% @private
|
|
handle_call({sort, Opts}, _From, State = #state{handle=Handle}) ->
|
|
geef_nif:revwalk_sorting(Handle, Opts),
|
|
{reply, ok, State};
|
|
handle_call({push, Oid}, _From, State = #state{handle=Handle}) ->
|
|
Reply = geef_nif:revwalk_push(Handle, Oid, false),
|
|
{reply, Reply, State};
|
|
handle_call({hide, Oid}, _From, State = #state{handle=Handle}) ->
|
|
Reply = geef_nif:revwalk_push(Handle, Oid, true),
|
|
{reply, Reply, State};
|
|
handle_call(next, _From, State = #state{handle=Handle}) ->
|
|
Reply = handle_next(Handle),
|
|
{reply, Reply, State};
|
|
handle_call(stop, _From, State) ->
|
|
{stop, normal, ok, State}.
|
|
|
|
%% @private
|
|
handle_cast(_Msg, State) ->
|
|
{noreply, State}.
|
|
|
|
%% @private
|
|
handle_info(_Info, State) ->
|
|
{noreply, State}.
|
|
|
|
%% @private
|
|
terminate(_Reason, _State) ->
|
|
ok.
|
|
|
|
%% @private
|
|
code_change(_OldVsn, State, _Extra) ->
|
|
{ok, State}.
|
|
|
|
%%%===================================================================
|
|
%%% Internal functions
|
|
%%%===================================================================
|
|
|
|
handle_next(Handle) ->
|
|
case geef_nif:revwalk_next(Handle) of
|
|
{ok, Oid} ->
|
|
{ok, #geef_oid{oid=Oid}};
|
|
Other ->
|
|
Other
|
|
end.
|