-module(bpe_event).

-author('Maxim Sokhatsky').

-export([event_action/5, handle_event/3]).

-include("bpe.hrl").

event_action(Module, _Name, Event, _Target, Proc) ->
    bpe:constructResult(Module:action({event,
                        Event#messageEvent.name,
                        Event#messageEvent.payload},
                       Proc)).

handle_event(#beginEvent{}, Target, Proc) ->
    {reply, {complete, Target}, Proc};
handle_event(#endEvent{}, Target, Proc) ->
    {stop, {normal, Target}, Proc};
handle_event(#messageBeginEvent{}, Target, Proc) ->
    {stop, {normal, Target}, Proc};
handle_event(#messageEvent{name = Name} = Event, Target,
             #process{module = Module} = Proc) ->
    event_action(Module, Name, Event, Target, Proc);
handle_event(_, Target, Proc) ->
    {reply, {unknown_event, Target}, Proc}.