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 | -- wsdl2aws SOAP Generator v1.4
--
-- AWS 2.1w - SOAP 1.3
-- This file was generated on Sunday 31 October 2004 at 10:58:27
--
-- $ wsdl2aws -f -cvs -cb -types soap_hotplug_pack.ads soap_hotplug_pack.ads.wsdl
pragma Warnings (Off);
with Ada.Exceptions;
with SOAP.Client;
with SOAP.Message.Payload;
with SOAP.Message.Response;
with SOAP.Name_Space;
with SOAP.Parameters;
with SOAP.Utils;
package body SOAP_Hotplug_Pack_Service.Client is
use SOAP.Types;
use type SOAP.Parameters.List;
pragma Style_Checks (Off);
----------
-- Job1 --
----------
function Job1
(X : Integer;
Y : Integer;
Endpoint : String := SOAP_Hotplug_Pack_Service.URL)
return Integer
is
P_Set : SOAP.Parameters.List;
Payload : SOAP.Message.Payload.Object;
begin
-- Set parameters
P_Set := +SOAP.Types.I (X, "X")
& SOAP.Types.I (Y, "Y");
Payload := SOAP.Message.Payload.Build
("Job1", P_Set,
SOAP.Name_Space.Create ("awsns", "urn:aws:SOAP_Hotplug_Pack"));
declare
Response : constant SOAP.Message.Response.Object'Class
:= SOAP.Client.Call
(Endpoint, Payload, "Job1");
R_Param : constant SOAP.Parameters.List
:= SOAP.Message.Parameters (Response);
begin
if SOAP.Message.Response.Is_Error (Response) then
Ada.Exceptions.Raise_Exception
(SOAP.SOAP_Error'Identity,
SOAP.Parameters.Get (R_Param, "faultstring"));
else
declare
Result : constant Integer
:= SOAP.Parameters.Get (R_Param, "Result");
begin
return Result;
end;
end if;
end;
end Job1;
----------
-- Job2 --
----------
function Job2
(X : Integer;
Y : Integer;
Endpoint : String := SOAP_Hotplug_Pack_Service.URL)
return Integer
is
P_Set : SOAP.Parameters.List;
Payload : SOAP.Message.Payload.Object;
begin
-- Set parameters
P_Set := +SOAP.Types.I (X, "X")
& SOAP.Types.I (Y, "Y");
Payload := SOAP.Message.Payload.Build
("Job2", P_Set,
SOAP.Name_Space.Create ("awsns", "urn:aws:SOAP_Hotplug_Pack"));
declare
Response : constant SOAP.Message.Response.Object'Class
:= SOAP.Client.Call
(Endpoint, Payload, "Job2");
R_Param : constant SOAP.Parameters.List
:= SOAP.Message.Parameters (Response);
begin
if SOAP.Message.Response.Is_Error (Response) then
Ada.Exceptions.Raise_Exception
(SOAP.SOAP_Error'Identity,
SOAP.Parameters.Get (R_Param, "faultstring"));
else
declare
Result : constant Integer
:= SOAP.Parameters.Get (R_Param, "Result");
begin
return Result;
end;
end if;
end;
end Job2;
end SOAP_Hotplug_Pack_Service.Client;
|