gforth/proxy.fs - diff

Return to proxy.fs CVS log

Up to [gforth] / gforth

version 1.5, 2001/11/11 22:33:31	version 1.7, 2002/09/14 08:20:19
Line 132 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" compare 0= IF	Transfer-Encoding $@ s" chunked" str= 0= IF
r> read-chunked EXIT THEN THEN	r> read-chunked EXIT THEN THEN
r> read-to-end ;	r> read-to-end ;

Line 186 DOES> ( -- addr u )	Line 186 DOES> ( -- addr u )
I c@ '/ = IF #lf I c! THEN LOOP	I c@ '/ = IF #lf I c! THEN LOOP
redirects 1 set-order redir$ $off	redirects 1 set-order redir$ $off
htmldir $@ ['] evaluate catch	htmldir $@ ['] evaluate catch
IF false ELSE redir$ @ 0<> THEN ;	IF 2drop false ELSE redir$ @ 0<> THEN ;

: (redirect) ( -- )	: (redirect) ( -- )
host$ $@ redir$ $@ proxy-open handle-request maxnum off ;	host$ $@ redir$ $@ proxy-open handle-request maxnum off ;