with
Ada.Characters.Handling;
package body Black.HTTP is
overriding
function "=" (Left, Right : in Header_Key) return Boolean is
use Ada.Characters.Handling;
begin
return To_Lower (String (Left)) = To_Lower (String (Right));
end "=";
function Status_Line (Status : in Statuses) return String is
begin
pragma Style_Checks ("M100"); -- Nice tabular format:
case Status is
when Switching_Protocols => return Version & " 101 Switching Protocols";
when OK => return Version & " 200 OK";
when No_Content => return Version & " 204 No Content";
when Moved_Permanently => return Version & " 301 Moved Permanently";
when Moved_Temporarily => return Version & " 302 Found";
when Bad_Request => return Version & " 400 Bad Request";
when Unauthorized => return Version & " 401 Not Authorized";
when Forbidden => return Version & " 403 Forbidden";
when Not_Found => return Version & " 404 Not Found";
when Server_Error => return Version & " 500 Internal Server Error";
end case;
end Status_Line;
end Black.HTTP;