mirror of
https://github.com/AdaCore/aws.git
synced 2026-02-12 12:29:46 -08:00
3dbceb8b09
First the tool ada2wsdl does not generate targetNamespace in elements inside the schema as this is not valid. When there is multiple schema used, ada2wsdl generates multiple schema one for each targetNamespace. At the same time the wsdl2aws has been fixed to support multiple schema definition. This change was needed to properly support derived types for which the base type are found in different packages. So have different targetNamespace. Some tests expected output have been changed due to the change above, the new output are better as the original namespace is kept. Add corresponding regression tests. For Q309-017 and Q301-031.
37 lines
1.8 KiB
Ada
37 lines
1.8 KiB
Ada
------------------------------------------------------------------------------
|
|
-- Ada Web Server --
|
|
-- --
|
|
-- Copyright (C) 2017, AdaCore --
|
|
-- --
|
|
-- This is free software; you can redistribute it and/or modify it --
|
|
-- under terms of the GNU General Public License as published by the --
|
|
-- Free Software Foundation; either version 3, or (at your option) any --
|
|
-- later version. This software 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 --
|
|
-- distributed with this software; see file COPYING3. If not, go --
|
|
-- to http://www.gnu.org/licenses for a complete copy of the license. --
|
|
------------------------------------------------------------------------------
|
|
|
|
with Ada.Strings.Unbounded;
|
|
with Ada.Text_IO;
|
|
|
|
package body API_Imp is
|
|
|
|
use Ada.Strings.Unbounded;
|
|
|
|
procedure Call (O : API.Child_Service.Types.Rec_Type) is
|
|
begin
|
|
Ada.Text_IO.Put_Line ("API.Call : " & To_String (O.V));
|
|
Ada.Text_IO.Put_Line (" : " & O.C'Img);
|
|
Ada.Text_IO.Put_Line (" : " & O.D'Img);
|
|
exception
|
|
when others =>
|
|
Ada.Text_IO.Put_Line ("API.Call!!!!!");
|
|
end Call;
|
|
|
|
end API_Imp;
|