|
| 1 | +------------------------------------------------------------------------------ |
| 2 | +-- Ada Web Server -- |
| 3 | +-- -- |
| 4 | +-- Copyright (C) 2018, AdaCore -- |
| 5 | +-- -- |
| 6 | +-- This library is free software; you can redistribute it and/or modify -- |
| 7 | +-- it under terms of the GNU General Public License as published by the -- |
| 8 | +-- Free Software Foundation; either version 3, or (at your option) any -- |
| 9 | +-- later version. This library is distributed in the hope that it will be -- |
| 10 | +-- useful, but WITHOUT ANY WARRANTY; without even the implied warranty of -- |
| 11 | +-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. -- |
| 12 | +-- -- |
| 13 | +-- As a special exception under Section 7 of GPL version 3, you are -- |
| 14 | +-- granted additional permissions described in the GCC Runtime Library -- |
| 15 | +-- Exception, version 3.1, as published by the Free Software Foundation. -- |
| 16 | +-- -- |
| 17 | +-- You should have received a copy of the GNU General Public License and -- |
| 18 | +-- a copy of the GCC Runtime Library Exception along with this program; -- |
| 19 | +-- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see -- |
| 20 | +-- <http://www.gnu.org/licenses/>. -- |
| 21 | +-- -- |
| 22 | +-- As a special exception, if other files instantiate generics from this -- |
| 23 | +-- unit, or you link this unit with other files to produce an executable, -- |
| 24 | +-- this unit does not by itself cause the resulting executable to be -- |
| 25 | +-- covered by the GNU General Public License. This exception does not -- |
| 26 | +-- however invalidate any other reasons why the executable file might be -- |
| 27 | +-- covered by the GNU Public License. -- |
| 28 | +------------------------------------------------------------------------------ |
| 29 | + |
| 30 | +with SOAP.Message.Payload; |
| 31 | +with SOAP.Message.Response; |
| 32 | + |
| 33 | +package SOAP.Client.Callback is |
| 34 | + |
| 35 | + -- Callback routine types |
| 36 | + type Pre_Call_CB is not null access |
| 37 | + procedure (Connection : AWS.Client.HTTP_Connection; |
| 38 | + SOAPAction : String; |
| 39 | + Request : SOAP.Message.Payload.Object; |
| 40 | + Schema : SOAP.WSDL.Schema.Definition); |
| 41 | + |
| 42 | + type Post_Call_CB is not null access |
| 43 | + procedure (Connection : AWS.Client.HTTP_Connection; |
| 44 | + SOAPAction : String; |
| 45 | + Request : SOAP.Message.Payload.Object; |
| 46 | + Response : SOAP.Message.Response.Object'Class; |
| 47 | + Schema : SOAP.WSDL.Schema.Definition); |
| 48 | + |
| 49 | + -- Default callback routines |
| 50 | + procedure Null_Pre_Call_Callback |
| 51 | + (Connection : AWS.Client.HTTP_Connection; |
| 52 | + SOAPAction : String; |
| 53 | + Request : SOAP.Message.Payload.Object; |
| 54 | + Schema : SOAP.WSDL.Schema.Definition) is null; |
| 55 | + |
| 56 | + procedure Null_Post_Call_Callback |
| 57 | + (Connection : AWS.Client.HTTP_Connection; |
| 58 | + SOAPAction : String; |
| 59 | + Request : SOAP.Message.Payload.Object; |
| 60 | + Response : SOAP.Message.Response.Object'Class; |
| 61 | + Schema : SOAP.WSDL.Schema.Definition) is null; |
| 62 | + |
| 63 | +end SOAP.Client.Callback; |
0 commit comments