Current section
Files
Jump to
Current section
Files
src/net/net_tcp_native.erl
-module(net_tcp_native).
-export([listen/1, send/2, read_line/2, read_blob/3]).
listen(Port) ->
TcpOptions = [{mode, binary}, {packet, line}, {active, false}, {reuseaddr, true}],
gen_tcp:listen(Port, TcpOptions).
send(Socket, String) ->
case gen_tcp:send(Socket, String) of
ok -> {ok, nil};
{error, reason} -> {error, reason}
end.
read_line(Socket, Timeout) ->
inet:setopts(Socket, [{packet, line}]),
gen_tcp:recv(Socket, 0, Timeout).
read_blob(Socket, Length, Timeout) ->
inet:setopts(Socket, [{packet, raw}]),
gen_tcp:recv(Socket, Length, Timeout).