[gforth] / gforth / httpd.fs  

gforth: gforth/httpd.fs

Diff for /gforth/httpd.fs between version 1.2 and 1.3

version 1.2, Sun Apr 2 20:18:27 2000 UTC version 1.3, Sun Apr 2 21:48:54 2000 UTC
Line 56 
Line 56 
   
 definitions  definitions
   
 s" HTTP/1.0" protocol $!  
   
 Variable maxnum  Variable maxnum
   
Line 66 
Line 65 
   BEGIN  refill ?cr  WHILE  interpret  >in @ 0=  UNTIL    BEGIN  refill ?cr  WHILE  interpret  >in @ 0=  UNTIL
   true  ELSE  maxnum off false  THEN ;    true  ELSE  maxnum off false  THEN ;
 : get-input ( -- flag ior )  : get-input ( -- flag ior )
   s" /nosuchfile" url $!    s" /nosuchfile" url $!  s" HTTP/1.0" protocol $!
   s" close" connection $!    s" close" connection $!
   infile-id push-file loadfile !  0 loadline ! blk off    infile-id push-file loadfile !  loadline off  blk off
   commands 1 set-order  command? on  ['] refill-loop catch    commands 1 set-order  command? on  ['] refill-loop catch
   only forth also  pop-file ;    only forth also  pop-file ;
   
Line 186 
Line 185 
         THEN  THEN  THEN  outfile-id flush-file throw ;          THEN  THEN  THEN  outfile-id flush-file throw ;
   
 : httpd  ( n -- )  maxnum !  : httpd  ( n -- )  maxnum !
   BEGIN  http  maxnum @ 0=  UNTIL ;    BEGIN  ['] http catch  maxnum @ 0= or  UNTIL ;
   
 script? [IF]  &100 httpd bye  [THEN]  script? [IF]  &100 httpd bye  [THEN]

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help