gforth/proxy.fs - diff

Return to proxy.fs CVS log

Up to [gforth] / gforth

version 1.13, 2007/12/31 19:02:24	version 1.15, 2010/12/31 18:09:02
Line 1	Line 1
\ a http proxy	\ a http proxy

\ Copyright (C) 2000,2002,2003,2006,2007 Free Software Foundation, Inc.	\ Copyright (C) 2000,2002,2003,2006,2007,2010 Free Software Foundation, Inc.

\ This file is part of Gforth.	\ This file is part of Gforth.

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 ;