/usr/share/ada/adainclude/aws/aws-status-set.ads is in libaws2.10.2-dev 2.10.2-4.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 | ------------------------------------------------------------------------------
-- Ada Web Server --
-- --
-- Copyright (C) 2000-2009, AdaCore --
-- --
-- This library is free software; you can redistribute it and/or modify --
-- it under the terms of the GNU General Public License as published by --
-- the Free Software Foundation; either version 2 of the License, or (at --
-- your option) any later version. --
-- --
-- This library is distributed in the hope that it will be useful, but --
-- WITHOUT ANY WARRANTY; without even the implied warranty of --
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU --
-- General Public License for more details. --
-- --
-- You should have received a copy of the GNU General Public License --
-- along with this library; if not, write to the Free Software Foundation, --
-- Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. --
-- --
------------------------------------------------------------------------------
-- This package is used when parsing the HTTP protocol from the client. It is
-- used to keep the values for the currently handled HTTP parameters.
package AWS.Status.Set is
procedure Reset (D : in out Data);
-- Reset the status data for a new use
procedure Connection_Data
(D : in out Data;
Host : String;
Port : Positive;
Security : Boolean);
-- Set the connection data as used by the server
procedure Free (D : in out Data);
-- Free all allocated memory
procedure Read_Header (Socket : Net.Socket_Type'Class; D : in out Data);
-- Read all header data from the socket and fill the appropriate
-- data's fields.
procedure Read_Body
(Socket : Net.Socket_Type'Class;
D : in out Data;
Boundary : String := "");
-- Read message body from the socket and fill the appropriate data's field
procedure Append_Body
(D : in out Data;
Buffer : Stream_Element_Array;
Trim : Boolean := False);
-- Append data to the message body. If Trim is set to True the unused
-- memory space in body's buffer is released. Ideally Trim should be
-- set to True only when appending the last chunk of data.
procedure Keep_Alive (D : in out Data; Flag : Boolean);
-- Set the Keep-Alive flag for the current HTTP connection
procedure Session (D : in out Data);
-- Generate new Session ID
procedure Delete_Idle_Session (D : in out Data);
-- If session just created and user callback has not used it to store data,
-- this routine delete it. Need to avoid too many idle sessions created
-- by the clients ignoring Set-Cookie header field.
procedure Request
(D : in out Data;
Method : String;
URI : String;
HTTP_Version : String);
-- Set values for the request line:
--
-- GET URI[?parametrers] [HTTP/1.0 or HTTP/1.1]
-- POST URI [HTTP/1.0 or HTTP/1.1]
--
-- Save the calendar time of the request.
procedure Parameters (D : in out Data; Set : AWS.Parameters.List);
-- Associate the parameters in Set to the status data
procedure Parameters_From_Body (D : in out Data);
pragma Inline (Parameters_From_Body);
-- Get HTTP parameters from message body for POST form processing.
-- This routine allow to move big message body into HTTP parameters set
-- with low stack usage.
procedure Case_Sensitive_Parameters (D : in out Data; Mode : Boolean);
pragma Inline (Case_Sensitive_Parameters);
procedure Add_Parameter
(D : in out Data;
Name, Value : String;
Decode : Boolean := True;
Replace : Boolean := False);
pragma Inline (Add_Parameter);
-- Add or replace one parameter into the internal parameters list.
-- The Name and Value should be already decoded.
-- If Decode is true, decodes Name and Value. This is used when handling
-- multipart/form-data for example. If Replace is True the paramater named
-- Name will be set with Value (or added if not already present).
procedure Add_Parameters (D : in out Data; Parameters : String);
pragma Inline (Add_Parameters);
-- Parse and add parameters into the internal parameters list
procedure Binary (D : in out Data; Parameter : Stream_Element_Array);
-- This procedure is used to store any binary data sent with the
-- request. For example this will be used by the PUT method if a binary
-- file is sent to the server.
procedure Socket (D : in out Data; Sock : Net.Socket_Access);
-- Set the Socket for the status. User callback can then retrieve the
-- Socket for whatever it want. For example for passing it to the 'push'
-- server.
procedure Attachments
(D : in out Data; Attachments : AWS.Attachments.List);
-- Adds a list of Attachments to D
procedure Authenticate
(D : in out Data;
Authorization_Mode : Authorization_Type;
Authorization_Name : String;
Authorization_Password : String);
-- Set the authentication parameters associated with the request. This is
-- mostly intended for automatic testsuite, since AWS will properly
-- set those from the headers of the request as read from the socket.
procedure Uploaded (D : in out Data);
-- Server calls this on complete upload
end AWS.Status.Set;
|