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