Ticket #1069: http-status-codes-rvdh.patch

intarweb.scm

@@ -756 +756 @@
                              'unknown-status 'status status))
     (values (car s) (cdr s))))
 
-;; XXX TODO: Include the full list of codes?  It can be found at
+;; List of HTTP status codes based on:
 ;; http://www.iana.org/assignments/http-status-codes/http-status-codes.xml
 (define http-status-codes
   (make-parameter 
    `((continue . (100 . "Continue"))
      (switching-protocols . (101 . "Switching Protocols"))
+     (processing . (102 . "Processing"))
      (ok . (200 . "OK"))
      (created . (201 . "Created"))
      (accepted . (202 . "Accepted"))
@@ -769 +770 @@
      (no-content . (204 . "No Content"))
      (reset-content . (205 . "Reset Content"))
      (partial-content . (206 . "Partial Content"))
+     (multi-status . (207 . "Multi-Status"))
+     (already-reported . (208 . "Already Reported"))
+     (im-used . (226 . "IM Used"))
      (multiple-choices . (300 . "Multiple Choices"))
      (moved-permanently . (301 . "Moved Permanently"))
      (found . (302 . "Found"))
@@ -792 +796 @@
      (request-entity-too-large . (413 . "Request Entity Too Large"))
      (request-uri-too-large . (414 . "Request-URI Too Large"))
      (unsupported-media-type . (415 . "Unsupported Media Type"))
-     (request-range-not-satisfiable . (416 . "Requested range not satisfiable"))
+     (requested-range-not-satisfiable . (416 . "Requested Range Not Satisfiable"))
      (expectation-failed . (417 . "Expectation Failed"))
+     (unprocessable-entity . (422 . "Unprocessable Entity"))
+     (locked . (423 . "Locked"))
+     (failed-dependency . (424 . "Failed Dependency"))
+     (upgrade-required . (426 . "Upgrade Required"))
+     (precondition-required . (428 . "Precondition Required"))
+     (too-many-requests . (429 . "Too Many Requests"))
+     (request-header-fields-too-large . (431 . "Request Header Fields Too Large"))
      (internal-server-error . (500 . "Internal Server Error"))
      (not-implemented . (501 . "Not Implemented"))
      (bad-gateway . (502 . "Bad Gateway"))
      (service-unavailable . (503 . "Service Unavailable"))
      (gateway-time-out . (504 . "Gateway Time-out"))
-     (http-version-not-supported . (505 . "HTTP Version not supported")))))
+     (http-version-not-supported . (505 . "HTTP Version Not Supported"))
+     (insufficient-storage . (507 . "Insufficient Storage"))
+     (loop-detected . (508 . "Loop Detected"))
+     (not-extended . (510 . "Not Extended"))
+     (network-authentication-required . (511 . "Network Authentication Required")))))
 
 (define (http-0.9-response-unparser response)
   response) ;; The response-body will just follow