mirror of
https://github.com/AdaCore/aws.git
synced 2026-02-12 12:29:46 -08:00
22815aa1f4
This new implementation is based on LaL and do not use ASIS anymore. The -I options has been removed as not supported anymore. The LaL parser is project based exclusively. Some expected output have been updated as the new implementation does better work with the name-space by avoiding generating some NS that are not used. So the NS prefix may be different. We disable the check on routines ordering in ada2wsdl-parser.adb as some generics make it impossible to follow this rule. Note that this new implementation does far better job as computing the range (range <low> .. <high>) and array indexes. The new parser walk up the tree and do proper computation of the values instead of relying on some simple format checked by regexp. So for example a range like: range 1 + 6 - 4 .. integer'last - 7 Will be properly computed avoiding some restriction on the specs. For S415-009.
29 lines
1.6 KiB
Ada
29 lines
1.6 KiB
Ada
------------------------------------------------------------------------------
|
|
-- Ada Web Server --
|
|
-- --
|
|
-- Copyright (C) 2003-2020, 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. --
|
|
------------------------------------------------------------------------------
|
|
|
|
package Ada2WSDL.Parser is
|
|
|
|
Fatal_Error : exception renames Ada2WSDL.Fatal_Error;
|
|
Parameter_Error : exception renames Ada2WSDL.Parameter_Error;
|
|
|
|
procedure Start;
|
|
-- If Is_Initialized, generates the sample body. This procedure is a
|
|
-- LibAdaLang application
|
|
|
|
end Ada2WSDL.Parser;
|