2010-03-13 01:06:41 -05:00
|
|
|
! Copyright (C) 2008, 2010 Slava Pestov.
|
2008-06-02 16:00:03 -04:00
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
2016-07-10 18:44:54 -04:00
|
|
|
USING: accessors http io.encodings.utf8 io.streams.string kernel
|
|
|
|
|
xml.syntax xml.writer ;
|
2008-06-02 16:00:03 -04:00
|
|
|
IN: http.server.responses
|
|
|
|
|
|
|
|
|
|
: <content> ( body content-type -- response )
|
|
|
|
|
<response>
|
|
|
|
|
200 >>code
|
|
|
|
|
"Document follows" >>message
|
2010-03-13 01:06:41 -05:00
|
|
|
utf8 >>content-encoding
|
2008-06-02 16:00:03 -04:00
|
|
|
swap >>content-type
|
|
|
|
|
swap >>body ;
|
2014-03-28 18:17:06 -04:00
|
|
|
|
|
|
|
|
: <text-content> ( body -- response )
|
|
|
|
|
"text/plain" <content> ;
|
2014-04-22 16:47:25 -04:00
|
|
|
|
|
|
|
|
: <html-content> ( body -- response )
|
|
|
|
|
"text/html" <content> ;
|
|
|
|
|
|
2008-06-02 16:00:03 -04:00
|
|
|
: trivial-response-body ( code message -- )
|
2009-01-30 20:28:16 -05:00
|
|
|
<XML
|
|
|
|
|
<html>
|
|
|
|
|
<body>
|
|
|
|
|
<h1><-> <-></h1>
|
|
|
|
|
</body>
|
|
|
|
|
</html>
|
|
|
|
|
XML> write-xml ;
|
2008-06-02 16:00:03 -04:00
|
|
|
|
|
|
|
|
: <trivial-response> ( code message -- response )
|
|
|
|
|
2dup [ trivial-response-body ] with-string-writer
|
2014-04-22 16:47:25 -04:00
|
|
|
<html-content>
|
2008-06-02 16:00:03 -04:00
|
|
|
swap >>message
|
|
|
|
|
swap >>code ;
|
|
|
|
|
|
2016-07-10 18:44:54 -04:00
|
|
|
: <100> ( -- response ) "100" "Continue" <trivial-response> ;
|
|
|
|
|
: <101> ( -- response ) "101" "Switching Protocols" <trivial-response> ;
|
|
|
|
|
: <102> ( -- response ) "102" "Processing" <trivial-response> ;
|
|
|
|
|
: <200> ( -- response ) "200" "OK" <trivial-response> ;
|
|
|
|
|
: <201> ( -- response ) "201" "Created" <trivial-response> ;
|
|
|
|
|
: <202> ( -- response ) "202" "Accepted" <trivial-response> ;
|
|
|
|
|
: <203> ( -- response ) "203" "Non-Authoritative Information" <trivial-response> ;
|
|
|
|
|
: <204> ( -- response ) "204" "No Content" <trivial-response> ;
|
|
|
|
|
: <205> ( -- response ) "205" "Reset Content" <trivial-response> ;
|
|
|
|
|
: <206> ( -- response ) "206" "Partial Content" <trivial-response> ;
|
|
|
|
|
: <207> ( -- response ) "207" "Multi-Status" <trivial-response> ;
|
|
|
|
|
: <208> ( -- response ) "208" "Already Reported" <trivial-response> ;
|
|
|
|
|
: <226> ( -- response ) "226" "IM Used" <trivial-response> ;
|
|
|
|
|
: <300> ( -- response ) "300" "Multiple Choices" <trivial-response> ;
|
|
|
|
|
: <301> ( -- response ) "301" "Moved Permanently" <trivial-response> ;
|
|
|
|
|
: <302> ( -- response ) "302" "Found" <trivial-response> ;
|
|
|
|
|
: <303> ( -- response ) "303" "See Other" <trivial-response> ;
|
|
|
|
|
: <304> ( -- response ) "304" "Not Modified" <trivial-response> ;
|
|
|
|
|
: <305> ( -- response ) "305" "Use Proxy" <trivial-response> ;
|
|
|
|
|
: <306> ( -- response ) "306" "(Unused)" <trivial-response> ;
|
|
|
|
|
: <307> ( -- response ) "307" "Temporary Redirect" <trivial-response> ;
|
|
|
|
|
: <308> ( -- response ) "308" "Permanent Redirect" <trivial-response> ;
|
|
|
|
|
: <400> ( -- response ) "400" "Bad Request" <trivial-response> ;
|
|
|
|
|
: <401> ( -- response ) "401" "Unauthorized" <trivial-response> ;
|
|
|
|
|
: <402> ( -- response ) "402" "Payment Required" <trivial-response> ;
|
|
|
|
|
: <403> ( -- response ) "403" "Forbidden" <trivial-response> ;
|
|
|
|
|
: <404> ( -- response ) "404" "Not Found" <trivial-response> ;
|
|
|
|
|
: <405> ( -- response ) "405" "Method Not Allowed" <trivial-response> ;
|
|
|
|
|
: <406> ( -- response ) "406" "Not Acceptable" <trivial-response> ;
|
|
|
|
|
: <407> ( -- response ) "407" "Proxy Authentication Required" <trivial-response> ;
|
|
|
|
|
: <408> ( -- response ) "408" "Request Timeout" <trivial-response> ;
|
|
|
|
|
: <409> ( -- response ) "409" "Conflict" <trivial-response> ;
|
|
|
|
|
: <410> ( -- response ) "410" "Gone" <trivial-response> ;
|
|
|
|
|
: <411> ( -- response ) "411" "Length Required" <trivial-response> ;
|
|
|
|
|
: <412> ( -- response ) "412" "Precondition Failed" <trivial-response> ;
|
|
|
|
|
: <413> ( -- response ) "413" "Payload Too Large" <trivial-response> ;
|
|
|
|
|
: <414> ( -- response ) "414" "URI Too Long" <trivial-response> ;
|
|
|
|
|
: <415> ( -- response ) "415" "Unsupported Media Type" <trivial-response> ;
|
|
|
|
|
: <416> ( -- response ) "416" "Range Not Satisfiable" <trivial-response> ;
|
|
|
|
|
: <417> ( -- response ) "417" "Expectation Failed" <trivial-response> ;
|
|
|
|
|
: <421> ( -- response ) "421" "Misdirected Request" <trivial-response> ;
|
|
|
|
|
: <422> ( -- response ) "422" "Unprocessable Entity" <trivial-response> ;
|
|
|
|
|
: <423> ( -- response ) "423" "Locked" <trivial-response> ;
|
|
|
|
|
: <424> ( -- response ) "424" "Failed Dependency" <trivial-response> ;
|
|
|
|
|
: <426> ( -- response ) "426" "Upgrade Required" <trivial-response> ;
|
|
|
|
|
: <428> ( -- response ) "428" "Precondition Required" <trivial-response> ;
|
|
|
|
|
: <429> ( -- response ) "429" "Too Many Requests" <trivial-response> ;
|
|
|
|
|
: <431> ( -- response ) "431" "Request Header Fields Too Large" <trivial-response> ;
|
|
|
|
|
: <451> ( -- response ) "451" "Unavailable For Legal Reasons" <trivial-response> ;
|
|
|
|
|
: <500> ( -- response ) "500" "Internal Server Error" <trivial-response> ;
|
|
|
|
|
: <501> ( -- response ) "501" "Not Implemented" <trivial-response> ;
|
|
|
|
|
: <502> ( -- response ) "502" "Bad Gateway" <trivial-response> ;
|
|
|
|
|
: <503> ( -- response ) "503" "Service Unavailable" <trivial-response> ;
|
|
|
|
|
: <504> ( -- response ) "504" "Gateway Timeout" <trivial-response> ;
|
|
|
|
|
: <505> ( -- response ) "505" "HTTP Version Not Supported" <trivial-response> ;
|
|
|
|
|
: <506> ( -- response ) "506" "Variant Also Negotiates" <trivial-response> ;
|
|
|
|
|
: <507> ( -- response ) "507" "Insufficient Storage" <trivial-response> ;
|
|
|
|
|
: <508> ( -- response ) "508" "Loop Detected" <trivial-response> ;
|
|
|
|
|
: <510> ( -- response ) "510" "Not Extended" <trivial-response> ;
|
|
|
|
|
: <511> ( -- response ) "511" "Network Authentication Required" <trivial-response> ;
|
