version 1.13, 2007/12/31 19:02:24
|
version 1.14, 2010/09/25 20:29:25
|
Line 18
|
Line 18
|
\ 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, |
|
|
Line 131 Variable data-buffer
|
Line 132 Variable data-buffer
|
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 ; |
|
|