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] |