1----------------------------------------------------------------------
2--  Rules.Object_Declarations - Package specification              --
3--                                                                  --
4--  This  software  is  (c)  CSEE  and Adalog  2004-2007.  The  Ada --
5--  Controller  is  free software;  you can redistribute  it and/or --
6--  modify  it under  terms of  the GNU  General Public  License as --
7--  published by the Free Software Foundation; either version 2, or --
8--  (at your  option) any later version.  This  unit is distributed --
9--  in the hope  that it will be useful,  but WITHOUT ANY WARRANTY; --
10--  without even the implied warranty of MERCHANTABILITY or FITNESS --
11--  FOR A  PARTICULAR PURPOSE.  See the GNU  General Public License --
12--  for more details.   You should have received a  copy of the GNU --
13--  General Public License distributed  with this program; see file --
14--  COPYING.   If not, write  to the  Free Software  Foundation, 59 --
15--  Temple Place - Suite 330, Boston, MA 02111-1307, USA.           --
16--                                                                  --
17--  As  a special  exception, if  other files  instantiate generics --
18--  from the units  of this program, or if you  link this unit with --
19--  other files  to produce  an executable, this  unit does  not by --
20--  itself cause the resulting executable  to be covered by the GNU --
21--  General  Public  License.   This  exception  does  not  however --
22--  invalidate any  other reasons why the executable  file might be --
23--  covered by the GNU Public License.                              --
24--                                                                  --
25--  This  software is  distributed  in  the hope  that  it will  be --
26--  useful,  but WITHOUT  ANY  WARRANTY; without  even the  implied --
27--  warranty  of  MERCHANTABILITY   or  FITNESS  FOR  A  PARTICULAR --
28--  PURPOSE.                                                        --
29----------------------------------------------------------------------
30
31-- Asis
32with
33  Asis;
34
35package Rules.Object_Declarations is
36
37   Rule_Id : constant Wide_String := "OBJECT_DECLARATIONS";
38
39   procedure Process_Declaration           (Decl    : in Asis.Declaration);
40   procedure Process_Pragma                (Prgma   : in Asis.Pragma_Element);
41   procedure Process_Representation_Clause (Clause  : in Asis.Representation_Clause);
42   procedure Process_Scope_Exit;
43end Rules.Object_Declarations;
44