dummyserver_1.0.0_9a6e8708/src/black/black-http.adb

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
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;