gforth/httpd.fs - diff

Return to httpd.fs CVS log

Up to [gforth] / gforth

Diff for /gforth/httpd.fs between versions 1.14 and 1.17

version 1.14, 2003/08/25 14:17:45	version 1.17, 2004/12/24 14:08:43
Line 94 Variable maxnum	Line 94 Variable maxnum

: ?cr ( -- )	: ?cr ( -- )
#tib @ 1 >= IF source 1- + c@ #cr = #tib +! THEN ;	#tib @ 1 >= IF source 1- + c@ #cr = #tib +! THEN ;
: refill-loop ( -- flag )	: refill-loop ( -- flag ) base @ >r base off
BEGIN refill ?cr WHILE ['] interpret catch drop >in @ 0= UNTIL	BEGIN refill ?cr WHILE ['] interpret catch drop >in @ 0= UNTIL
true ELSE maxnum off false THEN ;	true ELSE maxnum off false THEN r> base ! ;
: get-input ( -- flag ior )	: get-input ( -- flag ior )
s" /nosuchfile" url $! s" HTTP/1.0" protocol $!	s" /nosuchfile" url $! s" HTTP/1.0" protocol $!
s" close" connection $!	s" close" connection $!
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]

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

Removed from v.1.14
changed lines
	Added in v.1.17