gforth/httpd.fs - diff

Return to httpd.fs CVS log

Up to [gforth] / gforth

version 1.14, 2003/08/25 14:17:45	version 1.15, 2004/04/10 00:16:55
Line 228 Defer redirect ( addr u -- )	Line 228 Defer redirect ( addr u -- )
THEN THEN THEN THEN outfile-id flush-file throw ;	THEN THEN THEN THEN outfile-id flush-file throw ;

: httpd ( n -- ) dup maxnum ! 0 <# #S #> Keep-Alive $!	: httpd ( n -- ) dup maxnum ! 0 <# #S #> Keep-Alive $!
BEGIN ['] http catch maxnum @ 0= or UNTIL ;	maxnum @ 0 DO ['] http catch maxnum @ 0= or ?LEAVE LOOP ;

script? [IF] :noname &100 httpd bye ; is bootmessage [THEN]	script? [IF] :noname &100 httpd bye ; is bootmessage [THEN]