gforth/httpd.fs - diff

Return to httpd.fs CVS log

Up to [gforth] / gforth

version 1.16, 2004/05/16 21:16:36	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 $!