[gforth] / gforth / proxy.fs  

gforth: gforth/proxy.fs

Diff for /gforth/proxy.fs between version 1.6 and 1.10

version 1.6, Sat Dec 1 20:33:14 2001 UTC version 1.10, Sat Oct 7 22:28:34 2006 UTC
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 36 
Line 36 
     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 132 
Line 132 
     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 189 
Line 189 
     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 
Line 200 
 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

Generate output suitable for use with a patch program
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.10
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help