version 1.12, 2002/09/14 08:20:19
|
version 1.15, 2004/04/10 00:16:55
|
Line 1
|
Line 1
|
#! /usr/local/bin/gforth |
#! /usr/local/bin/gforth |
|
|
\ Copyright (C) 2000 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 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] |
|
|