version 1.8, 2003/03/09 15:16:52
|
version 1.10, 2006/10/07 22:28:34
|
Line 1
|
Line 1
|
\ a http proxy |
\ a http proxy |
|
|
\ Copyright (C) 2000,2002 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 36 Create crlf #cr c, #lf c,
|
Line 36 Create crlf #cr c, #lf c,
|
ELSE s" Gforth Proxy 0.1" THEN r@ writeln |
ELSE s" Gforth Proxy 0.1" THEN r@ writeln |
s" " r@ writeln r> ; |
s" " r@ writeln r> ; |
|
|
Variable proxy s" proxy" proxy $! \ replace that with your proxy host |
Variable proxy \ s" proxy" proxy $! \ replace that with your proxy host |
Variable proxy-port 3128 proxy-port ! \ replace that with your proxy port |
Variable proxy-port \ 8080 proxy-port ! \ replace that with your proxy port |
|
|
: proxy-open ( host u request u -- fid ) |
\ set proxy to your local proxy, and proxy-port to your local proxy port |
proxy $@ proxy-port @ request ; |
\ if you need any. |
|
|
: http-open ( host u request u -- fid ) |
: http-open ( host u request u -- fid ) |
2over 80 request ; |
proxy @ 0= IF 2over 80 ELSE proxy $@ proxy-port @ THEN request ; |
|
|
wordlist Constant response |
wordlist Constant response |
wordlist Constant response-values |
wordlist Constant response-values |
Line 189 DOES> ( -- addr u )
|
Line 189 DOES> ( -- addr u )
|
IF 2drop false ELSE redir$ @ 0<> THEN ; |
IF 2drop false ELSE redir$ @ 0<> THEN ; |
|
|
: (redirect) ( -- ) |
: (redirect) ( -- ) |
host$ $@ redir$ $@ proxy-open handle-request maxnum off ; |
host$ $@ redir$ $@ http-open handle-request maxnum off ; |
|
|
' (redirect?) IS redirect? |
' (redirect?) IS redirect? |
' (redirect) IS redirect |
' (redirect) IS redirect |
Line 200 redirects set-current
|
Line 200 redirects set-current
|
get-order redirects swap 1+ set-order |
get-order redirects swap 1+ set-order |
|
|
Vocabulary systems |
Vocabulary systems |
|
Vocabulary humor |
|
|
also systems definitions |
also systems definitions |
|
|
redirect: bigforth bigforth.sourceforge.net"http://bigforth.sourceforge.net/" |
redirect: bigforth bigforth.sourceforge.net"/" |
|
|
|
humor definitions |
|
|
|
redirect: bush www.jwdt.com"/~paysan/bush/" |
|
|
previous previous definitions |
previous previous definitions |