[BACK]Return to proxy.fs CVS log [TXT] [DIR] Up to [gforth] / gforth

Diff for /gforth/proxy.fs between versions 1.4 and 1.6

version 1.4, 2000/11/19 23:03:24 version 1.6, 2001/12/01 20:33:14
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" localhost" proxy $!  Variable proxy          s" proxy" proxy $! \ replace that with your proxy host
 Variable proxy-port     3128 proxy-port !  Variable proxy-port     3128 proxy-port !  \ replace that with your proxy port
   
 : proxy-open ( host u request u -- fid )  : proxy-open ( host u request u -- fid )
     proxy $@ proxy-port @ request ;      proxy $@ proxy-port @ request ;
Line 158  Variable data-buffer Line 158  Variable data-buffer
   
 \ handle proxy request  \ handle proxy request
   
 : proxy-request ( host u request u -- )  : handle-request ( fid -- )
     proxy-open  
     dup >r get-response throw  
     r@ read-data r> close-file throw  
     convert-data write-response write-data ;  
   
 : http-request ( host u request u -- )  
     http-open  
     dup >r get-response throw      dup >r get-response throw
     r@ read-data r> close-file throw      r@ read-data r> close-file throw
     convert-data write-response write-data ;      convert-data write-response write-data ;
Line 191  DOES> ( -- addr u ) Line 184  DOES> ( -- addr u )
 : (redirect?) ( addr u -- addr' u' t / f )  : (redirect?) ( addr u -- addr' u' t / f )
     htmldir $! htmldir $@ bounds ?DO      htmldir $! htmldir $@ bounds ?DO
         I c@ '/ = IF  #lf I c!  THEN  LOOP          I c@ '/ = IF  #lf I c!  THEN  LOOP
     redirects 1 set-order      redirects 1 set-order redir$ $off
     htmldir $@ ['] evaluate catch      htmldir $@ ['] evaluate catch
     IF  2drop false  ELSE  true  THEN ;      IF  2drop false  ELSE  redir$ @ 0<>  THEN ;
   
 : (redirect) ( addr u -- )  : (redirect) ( -- )
     host$ $@ 2swap proxy-request maxnum off ;      host$ $@ redir$ $@ proxy-open handle-request maxnum off ;
   
 ' (redirect?) IS redirect?  ' (redirect?) IS redirect?
 ' (redirect) IS redirect  ' (redirect) IS redirect
Line 210  Vocabulary systems Line 203  Vocabulary systems
   
 also systems definitions  also systems definitions
   
 redirect: bigforth www.jwdt.com"http://www.jwdt.com/~paysan/"  redirect: bigforth bigforth.sourceforge.net"http://bigforth.sourceforge.net/"
   
 previous previous definitions  previous previous definitions
Removed from v.1.4  
changed lines
  Added in v.1.6

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>