Current section
Files
Jump to
Current section
Files
src/tcpea_ffi.erl
-module(tcpea_ffi).
-export([connect/4, send/2, shutdown/2, controlling_process/2]).
% client
connect(Host, Port, Options, Timeout) ->
gen_tcp:connect(unicode:characters_to_list(Host), Port, Options, Timeout).
send(Socket, Packet) ->
normalize(gen_tcp:send(Socket, Packet)).
shutdown(Socket, How) ->
normalize(gen_tcp:shutdown(Socket, How)).
controlling_process(Socket, Pid) ->
normalize(gen_tcp:controlling_process(Socket, Pid)).
normalize(ok) -> {ok, nil};
normalize({error, _} = E) -> E.