version 1.5, 2001/11/11 22:33:31
|
version 1.9, 2003/08/25 14:17:47
|
Line 1
|
Line 1
|
\ a http proxy |
\ a http proxy |
|
|
\ Copyright (C) 2000 Free Software Foundation, Inc. |
\ Copyright (C) 2000,2002,2003 Free Software Foundation, Inc. |
|
|
\ This file is part of Gforth. |
\ This file is part of Gforth. |
|
|
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 ; |