Add simple http client

Add simple http client that can be used in different situations, such as
when performing updates, inspired to Mint Elixir http client.

Signed-off-by: Davide Bettio <[email protected]>

Author: bettio

CHANGELOG.md

@@ -11,6 +11,7 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0
 - Support for DragonFly BSD (generic_unix platform).
 - Added guards `is_even` and `is_odd` to the `Integer` module
 - Add a number of functions to proplists module, such as `delete/2`, `from/to_map/1`, etc...
+- Simple http client, that can be used for different use case such as downloading OTA updates
 
 ### Fixed
 

examples/erlang/CMakeLists.txt

@@ -40,3 +40,4 @@ pack_runnable(code_lock code_lock estdlib eavmlib)
 pack_runnable(mqtt_client mqtt_client estdlib eavmlib)
 pack_runnable(network_console network_console estdlib eavmlib alisp)
 pack_runnable(logging_example logging_example estdlib eavmlib)
+pack_runnable(http_client http_client estdlib eavmlib)

examples/erlang/http_client.erl

@@ -0,0 +1,65 @@
+%
+% This file is part of AtomVM.
+%
+% Copyright 2024 Davide Bettio <[email protected]>
+%
+% Licensed under the Apache License, Version 2.0 (the "License");
+% you may not use this file except in compliance with the License.
+% You may obtain a copy of the License at
+%
+%    http://www.apache.org/licenses/LICENSE-2.0
+%
+% Unless required by applicable law or agreed to in writing, software
+% distributed under the License is distributed on an "AS IS" BASIS,
+% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+% See the License for the specific language governing permissions and
+% limitations under the License.
+%
+% SPDX-License-Identifier: Apache-2.0 OR LGPL-2.1-or-later
+%
+
+-module(http_client).
+-export([start/0]).
+
+start() ->
+    ssl:start(),
+    {ok, Conn} = ahttp_client:connect(https, "atomvm.net", 443, [
+        {active, false}, {verify, verify_none}, {parse_headers, [<<"Location">>]}
+    ]),
+    {ok, Conn2, _Ref} = ahttp_client:request(Conn, <<"GET">>, <<"/">>, [], undefined),
+    loop(Conn2, {active, false}).
+
+loop(Conn, {active, false}) ->
+    case ahttp_client:recv(Conn, 0) of
+        {ok, _Conn, closed} ->
+            io:format("Connection closed.~n");
+        {ok, UpdatedConn, Responses} ->
+            io:format("Got: ~p~n", [Responses]),
+            case maybe_terminate(Responses, UpdatedConn) of
+                ok -> loop(UpdatedConn, {active, false});
+                closed -> ok
+            end;
+        Other ->
+            io:format("Unexpected reply: ~p~n", [Other])
+    end;
+loop(Conn, {active, true}) ->
+    receive
+        Message ->
+            case ahttp_client:stream(Conn, Message) of
+                {ok, _Conn, closed} ->
+                    io:format("Connection closed.~n");
+                {ok, UpdatedConn, Responses} ->
+                    io:format("Got: ~p~n", [Responses]),
+                    loop(UpdatedConn, {active, true});
+                unknown ->
+                    io:format("Unexpected message: ~p~n", [Message])
+            end
+    end.
+
+maybe_terminate([], _Conn) ->
+    ok;
+maybe_terminate([{done, _Ref}], Conn) ->
+    ahttp_client:close(Conn),
+    closed;
+maybe_terminate([_H | T], Conn) ->
+    maybe_terminate(T, Conn).

libs/eavmlib/src/CMakeLists.txt

@@ -23,6 +23,7 @@ project(eavmlib)
 include(BuildErlang)
 
 set(ERLANG_MODULES
+    ahttp_client
     atomvm
     avm_pubsub
     console