teitoku/rust-mal
1
0
Fork 0
mirror of https://github.com/teo3300/rust-mal.git synced 2026-01-12 01:05:32 +01:00
Code Issues Packages Projects Releases Wiki Activity

Adding requests

Browse Source 
Should be a small library to write http1 requests
This commit is contained in:
teo3300
2024-10-22 16:36:41 +09:00
parent e17c4d5eae
commit d053a1d854
1 changed files with 28 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
libs/requests.mal Normal file
View File

@ -0,0 +1,28 @@
(module "string")
(def! +http-version+ "HTTP/1.1")
(def! #r (char "\r"))
(def! headers->string (fn* [headers]
(if (list? headers)
(join (map header->string headers) "")
(if (string? headers) headers))))
(def! header->string (fn* [header]
(str (car header) ":" (car (cdr header)) #r #n)))
(def! make-http-req (fn* [method target headers content]
(str method #s target #s +http-version+
#r #n
(or (headers->string headers) "")
#r #n
(or content ""))))
(def! make-http-res (fn* [status-code reason-phrase headers data]
(str +http-version+ #s status-code #s reason-phrase
#r #n
(or (headers->string headers) "")
#r #n
(or data ""))))