gforth/httpd.fs - diff

Return to httpd.fs CVS log

Up to [gforth] / gforth

version 1.13, 2003/03/09 15:16:50	version 1.16, 2004/05/16 21:16:36
Line 1	Line 1
#! /usr/local/bin/gforth	#! /usr/local/bin/gforth

\ Copyright (C) 2000,2002 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 112 Variable maxnum	Line 112 Variable maxnum
Variable htmldir	Variable htmldir

: rework-htmldir ( addr u -- addr' u' / ior )	: rework-htmldir ( addr u -- addr' u' / ior )
htmldir $! htmldir $@ compact.. htmldir $!len drop	htmldir $! htmldir $@ compact-filename htmldir $!len drop
htmldir $@ s" ../" string-prefix?	htmldir $@ s" ../" string-prefix?
IF -1 EXIT THEN \ can't access below current directory	IF -1 EXIT THEN \ can't access below current directory
htmldir $@ s" ~" string-prefix?	htmldir $@ s" ~" string-prefix?
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]