Paste: http serv

Author: middayc
Mode: factor
Date: Thu, 11 Dec 2008 04:39:24
Plain Text | 
TUPLE: simple-responder ;

: <simple-responder> ( -- T ) simple-responder new ;
 
M: simple-responder call-responder*
    drop drop
    <response>
        200 >>code
        "Document follows" >>message
        "text/html" >>content-type
        "raww" >>body ;

: run-bbee ( -- )
        <simple-responder>
        main-responder set-global
        t development? set-global 
    80   httpd ;

New Annotation

Summary:
Author:
Mode:
Body: