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

version 1.2, 2000/04/02 20:18:27 version 1.3, 2000/04/02 21:48:54
Line 56  value: Referer: Line 56  value: Referer:
   
 definitions  definitions
   
 s" HTTP/1.0" protocol $!  
   
 Variable maxnum  Variable maxnum
   
Line 66  Variable maxnum Line 65  Variable maxnum
   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  s" text/plain" transparent: txt Line 185  s" text/plain" transparent: txt
         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]

Removed from v.1.2  
changed lines
  Added in v.1.3


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