This commit is contained in:
Ethan Ferguson 2024-01-26 10:43:19 -05:00 committed by GitHub
commit 98f40a2633
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
1 changed files with 8 additions and 2 deletions

10
1991.fs
View File

@ -347,11 +347,17 @@ s" image/x-icon" filetype: ico
0
then ;
: substring-to-end ( index c-addr u -- c-addr u )
rot dup rot swap - rot rot + swap ;
: read-request-body ( socket u -- )
\ Takes the socket and the length of the
\ body (Content-Length).
here swap aligned read-socket
set-request-body ;
2over swap drop swap -
2over substring-to-end
set-request-body
drop ;
: read-request ( socket -- addr u )
\ Returns the request header
\ but also collects the request body.