Packages

midas

0.2.0
3.0.0 2.1.0 2.0.0 1.7.0 1.6.0 1.5.0 1.4.2 1.4.1 1.4.0 1.3.1 1.3.0 1.2.0 1.1.0 1.0.0 0.4.7 0.4.6 0.4.5 0.4.4 0.4.3 0.4.2 0.4.1 0.4.0 0.3.0 0.2.0 0.1.0

Task definition and runners for Gleam

HexDocs

Current section

Files

Jump to
Readme
25 Versions
1 Dependency
Dependants
Files
Activity
midas src net net_http_native.erl
Raw

src/net/net_http_native.erl 

-module(net_http_native).

-export([atom_or_binary_to_string/1, listen/1, read_body/3, read_http/2, send/2]).



atom_or_binary_to_string(Atom) when is_atom(Atom) -> erlang:atom_to_binary(Atom, utf8);

atom_or_binary_to_string(Binary) when is_binary(Binary) -> Binary.



listen(Port) ->

  TcpOptions = [{mode, binary}, {packet, http_bin}, {active, false}, {reuseaddr, true}],

  gen_tcp:listen(Port, TcpOptions).





read_body(Socket, Length, Timeout) when Length > 0 ->

  inet:setopts(Socket, [{packet, raw}]),

  gen_tcp:recv(Socket, Length, Timeout).



read_http(Socket, Timeout) ->

  gen_tcp:recv(Socket, 0, Timeout).



send(Socket, String) ->

  case gen_tcp:send(Socket, String) of

    ok -> {ok, nil};

    {error, reason} -> {error, reason}

  end.