| \ along with this program. If not, see http://www.gnu.org/licenses/. |
\ along with this program. If not, see http://www.gnu.org/licenses/. |
| |
|
| require unix/socket.fs |
require unix/socket.fs |
| |
require string.fs |
| |
|
| Create crlf #cr c, #lf c, |
Create crlf #cr c, #lf c, |
| |
|
| Content-Length @ IF |
Content-Length @ IF |
| Content-Length $@ s>number drop r> read-sized EXIT THEN |
Content-Length $@ s>number drop r> read-sized EXIT THEN |
| Transfer-Encoding @ IF |
Transfer-Encoding @ IF |
| Transfer-Encoding $@ s" chunked" str= 0= IF |
Transfer-Encoding $@ s" chunked" str= IF |
| r> read-chunked EXIT THEN THEN |
r> read-chunked EXIT THEN THEN |
| r> read-to-end ; |
r> read-to-end ; |
| |
|
