diff options
Diffstat (limited to 'src/core/ephraim.erl')
-rw-r--r-- | src/core/ephraim.erl | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/src/core/ephraim.erl b/src/core/ephraim.erl index 61c3c68..c0ab7ae 100644 --- a/src/core/ephraim.erl +++ b/src/core/ephraim.erl @@ -97,6 +97,24 @@ loop(State) -> end, loop(State2); + {send_message, To, Type, Message} -> + {State2, Conv} = get_conv(State, To), + case Conv of + undefined -> + io:format("ephraim: send_message: ~p~n", [Message]); + _ -> + Conv ! {send_message, Type, Message} + end, + loop(State2); + + {start_conversation, To} -> + {State2, _Conv} = get_conv(State, To), + loop(State2); + + {send_packet, Packet} -> + State#state.conn ! {send_packet, Packet}, + loop(State); + {receive_event, From, Packet} -> State#state.event ! {receive_event, From, Packet}, loop(State); |