feat(http): complete rewrite of the http module to better support all verbs

Deleted the server creation to only focus on queries, as this feels much
more important than creating servers using the language.
Also adds a lot of long awaited tests.

Closes #26, #50, #58

Author: SuperFola

.github/workflows/ci.yml

@@ -20,8 +20,7 @@ jobs:
     name: "Ubuntu Clang 16"
 
     steps:
-      - uses: actions/checkout@v2
-        if: contains(github.event.head_commit.message, '[skip ci]') == false
+      - uses: actions/checkout@v4
         with:
           repository: ArkScript-lang/Ark
           path: '.'
@@ -30,7 +29,7 @@ jobs:
       - shell: bash
         run: rm -r lib/modules
 
-      - uses: actions/checkout@v2
+      - uses: actions/checkout@v4
         with:
           submodules: recursive
           path: lib/modules
@@ -53,6 +52,10 @@ jobs:
         shell: bash
         run: cmake --build build --config $BUILD_TYPE -j $(nproc)
 
+      - uses: actions/setup-python@v5
+        with:
+          python-version: '3.13'
+
       - name: Run src module tests
         shell: bash
         run: ./lib/modules/.github/run-tests src

README.md

@@ -27,7 +27,7 @@ Main repository: **[ArkScript](https://github.com/ArkScript-lang/Ark)**
 
 ### Network related
 
-* `http` to create http clients and servers
+* `http` to make web requests (get, post, put, patch, delete)
 
 ## Dependencies
 
@@ -38,6 +38,6 @@ Main repository: **[ArkScript](https://github.com/ArkScript-lang/Ark)**
 
 ## Copyright and Licence information
 
-Copyright (c) 2019-2024 Alexandre Plateau. All rights reserved.
+Copyright (c) 2019-2025 Alexandre Plateau. All rights reserved.
 
 This ArkScript distribution contains no GNU GPL code, which means it can be used in proprietary projects.

draft/http/bulk_req.py

@@ -1,15 +1,103 @@
 @page http_module HTTP module
 
-A module to play with HTTP requests and create web servers, using [cpp-httplib](https://github.com/yhirose/cpp-httplib) (MIT License).
-
-* @subpage http_server
-* @subpage http_client
+A module to play with HTTP requests, using [cpp-httplib](https://github.com/yhirose/cpp-httplib) (MIT License).
 
 Disclaimer: this module does not handle
 * multipart/form-data POST requests
 * content received with content receiver
 * content sent with content receiver
 * chunked transfer encoding
-* server-sent events
-* multiple servers per program
 * digest authentication (needs OpenSSL and libcrypto for that)
+
+## http:headers
+
+Create a header map to use with the http client.
+
+**Parameters**
+They work as pairs with:
+- `name`: string
+- `value`: string
+
+**Return value** `UserType<httpHeaders>`
+
+**Author**
+- [@SuperFola](https://github.com/SuperFola)
+
+**Example**
+~~~~{.lisp}
+(let headers (http:headers
+    # pair 0
+    "Accept-Encoding" "gzip, deflate"
+    # pair 1
+    "Content-Type" "application/json"))
+~~~~
+
+## http:client
+
+Create a http client to query a server.
+
+**Parameters**
+- `host`: string, you must not put the protocol `http://` nor `https://`
+- `port`: number
+
+**Return value** `List` if the request succeeded: `[status, body]`, otherwise `nil`
+
+**Author**
+- [@SuperFola](https://github.com/SuperFola)
+
+**Example**
+~~~~{.lisp}
+(let cli (http:client "localhost" 1234))
+~~~~
+
+## http:get
+
+Get content from an online resource.
+
+**Parameters**
+- `client`: `UserType<httpClient>`
+- `route`: string
+- `headers`: `UserType<httpHeaders>`, optional, always come last
+
+**Return value** `List` if the request succeeded: `[status, body]`, otherwise `nil`
+
+**Author**
+- [@SuperFola](https://github.com/SuperFola)
+
+**Example**
+~~~~{.lisp}
+(let headers (http:headers:create
+    "Accept-Encoding" "gzip, deflate"))
+(let cli (http:client "localhost" 1234))
+
+(mut output (http:get cli "/hi" headers))
+(if (nil? output)
+    (print "couldn't reach the server")
+    (print (@ output 0)))  # print the status
+~~~~
+
+## http:post, http:put, http:patch, http:delete
+
+Make a POST / PUT / PATCH / DELETE request with a String as the request's body.
+
+**Parameters**
+- `client`: `UserType<httpClient>`
+- `route`: string
+- `body`: string (request body)
+- `mimetype`: string, optional (defaults to `text/plain`)
+- `headers`: `UserType<httpHeaders>`, optional, always come last
+
+**Return value** `List` if the request succeeded: `[status, body]`, otherwise `nil`
+
+**Author**
+- [@SuperFola](https://github.com/SuperFola)
+
+**Example**
+~~~~{.lisp}
+(let cli (http:client "localhost" 1234))
+
+(mut output (http:post cli "/hi" "{\"key\": 5}" "application/json" headers))
+(if (nil? output)
+    (print "couldn't reach the server")
+    (print (@ output 0)))  # print the status
+~~~~