1------------------------------------------------------------------------------
2--                                                                          --
3--                            Matreshka Project                             --
4--                                                                          --
5--                          Ada Modeling Framework                          --
6--                                                                          --
7--                        Runtime Library Component                         --
8--                                                                          --
9------------------------------------------------------------------------------
10--                                                                          --
11-- Copyright © 2011-2012, Vadim Godunko <vgodunko@gmail.com>                --
12-- All rights reserved.                                                     --
13--                                                                          --
14-- Redistribution and use in source and binary forms, with or without       --
15-- modification, are permitted provided that the following conditions       --
16-- are met:                                                                 --
17--                                                                          --
18--  * Redistributions of source code must retain the above copyright        --
19--    notice, this list of conditions and the following disclaimer.         --
20--                                                                          --
21--  * Redistributions in binary form must reproduce the above copyright     --
22--    notice, this list of conditions and the following disclaimer in the   --
23--    documentation and/or other materials provided with the distribution.  --
24--                                                                          --
25--  * Neither the name of the Vadim Godunko, IE nor the names of its        --
26--    contributors may be used to endorse or promote products derived from  --
27--    this software without specific prior written permission.              --
28--                                                                          --
29-- THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS      --
30-- "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT        --
31-- LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR    --
32-- A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT     --
33-- HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,   --
34-- SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED --
35-- TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR   --
36-- PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF   --
37-- LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING     --
38-- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS       --
39-- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.             --
40--                                                                          --
41------------------------------------------------------------------------------
42--  $Revision: 2973 $ $Date: 2012-05-13 10:51:25 +0400 (Sun, 13 May 2012) $
43------------------------------------------------------------------------------
44with AMF.CMOF.Classifiers.Collections;
45with AMF.CMOF.Classes.Collections;
46with AMF.CMOF.Elements.Collections;
47with AMF.CMOF.Features.Collections;
48with AMF.CMOF.Named_Elements.Collections;
49with AMF.CMOF.Namespaces;
50with AMF.CMOF.Operations.Collections;
51with AMF.CMOF.Packageable_Elements.Collections;
52with AMF.CMOF.Packages;
53with AMF.CMOF.Properties.Collections;
54with AMF.Internals.CMOF_Classifiers;
55with AMF.String_Collections;
56with AMF.Visitors;
57
58package AMF.Internals.CMOF_Classes is
59
60   type CMOF_Class_Proxy is
61     limited new AMF.Internals.CMOF_Classifiers.CMOF_Classifier_Proxy
62       and AMF.CMOF.Classes.CMOF_Class
63         with null record;
64
65   --  XXX These subprograms are stubs
66
67   overriding function All_Owned_Elements
68    (Self : not null access constant CMOF_Class_Proxy)
69       return AMF.CMOF.Elements.Collections.Set_Of_CMOF_Element;
70
71   overriding function Get_Qualified_Name
72    (Self : not null access constant CMOF_Class_Proxy)
73       return Optional_String;
74
75   overriding function Is_Distinguishable_From
76    (Self : not null access constant CMOF_Class_Proxy;
77     N : AMF.CMOF.Named_Elements.CMOF_Named_Element_Access;
78     Ns : AMF.CMOF.Namespaces.CMOF_Namespace_Access)
79       return Boolean;
80
81   overriding procedure Set_Package
82    (Self : not null access CMOF_Class_Proxy;
83     To   : AMF.CMOF.Packages.CMOF_Package_Access);
84
85   overriding function Imported_Member
86    (Self : not null access constant CMOF_Class_Proxy)
87       return AMF.CMOF.Packageable_Elements.Collections.Set_Of_CMOF_Packageable_Element;
88
89   overriding function Get_Names_Of_Member
90    (Self : not null access constant CMOF_Class_Proxy;
91     Element : AMF.CMOF.Named_Elements.CMOF_Named_Element_Access)
92       return AMF.String_Collections.Set_Of_String;
93
94   overriding function Import_Members
95    (Self : not null access constant CMOF_Class_Proxy;
96     Imps : AMF.CMOF.Packageable_Elements.Collections.Set_Of_CMOF_Packageable_Element)
97       return AMF.CMOF.Packageable_Elements.Collections.Set_Of_CMOF_Packageable_Element;
98
99   overriding function Exclude_Collisions
100    (Self : not null access constant CMOF_Class_Proxy;
101     Imps : AMF.CMOF.Packageable_Elements.Collections.Set_Of_CMOF_Packageable_Element)
102       return AMF.CMOF.Packageable_Elements.Collections.Set_Of_CMOF_Packageable_Element;
103
104   overriding function Members_Are_Distinguishable
105    (Self : not null access constant CMOF_Class_Proxy)
106       return Boolean;
107
108   overriding procedure Set_Is_Final_Specialization
109    (Self : not null access CMOF_Class_Proxy;
110     To   : Boolean);
111
112   overriding function Conforms_To
113    (Self : not null access constant CMOF_Class_Proxy;
114     Other : AMF.CMOF.Classifiers.CMOF_Classifier_Access)
115       return Boolean;
116
117   overriding function All_Features
118    (Self : not null access constant CMOF_Class_Proxy)
119       return AMF.CMOF.Features.Collections.Set_Of_CMOF_Feature;
120
121   overriding function General
122    (Self : not null access constant CMOF_Class_Proxy)
123       return AMF.CMOF.Classifiers.Collections.Set_Of_CMOF_Classifier;
124
125   overriding function Parents
126    (Self : not null access constant CMOF_Class_Proxy)
127       return AMF.CMOF.Classifiers.Collections.Set_Of_CMOF_Classifier;
128
129   overriding function Inherited_Member
130    (Self : not null access constant CMOF_Class_Proxy)
131       return AMF.CMOF.Named_Elements.Collections.Set_Of_CMOF_Named_Element;
132
133   overriding function All_Parents
134    (Self : not null access constant CMOF_Class_Proxy)
135       return AMF.CMOF.Classifiers.Collections.Set_Of_CMOF_Classifier;
136
137   overriding function Inheritable_Members
138    (Self : not null access constant CMOF_Class_Proxy;
139     C : AMF.CMOF.Classifiers.CMOF_Classifier_Access)
140       return AMF.CMOF.Named_Elements.Collections.Set_Of_CMOF_Named_Element;
141
142   overriding function Has_Visibility_Of
143    (Self : not null access constant CMOF_Class_Proxy;
144     N : AMF.CMOF.Named_Elements.CMOF_Named_Element_Access)
145       return Boolean;
146
147   overriding function Inherit
148    (Self : not null access constant CMOF_Class_Proxy;
149     Inhs : AMF.CMOF.Named_Elements.Collections.Set_Of_CMOF_Named_Element)
150       return AMF.CMOF.Named_Elements.Collections.Set_Of_CMOF_Named_Element;
151
152   overriding function May_Specialize_Type
153    (Self : not null access constant CMOF_Class_Proxy;
154     C : AMF.CMOF.Classifiers.CMOF_Classifier_Access)
155       return Boolean;
156
157   overriding function Get_Is_Abstract
158    (Self : not null access constant CMOF_Class_Proxy)
159       return Boolean;
160
161   overriding procedure Set_Is_Abstract
162    (Self : not null access CMOF_Class_Proxy;
163     To   : Boolean);
164
165   overriding function Get_Owned_Attribute
166    (Self : not null access constant CMOF_Class_Proxy)
167       return AMF.CMOF.Properties.Collections.Ordered_Set_Of_CMOF_Property;
168
169   overriding function Get_Owned_Operation
170    (Self : not null access constant CMOF_Class_Proxy)
171       return AMF.CMOF.Operations.Collections.Ordered_Set_Of_CMOF_Operation;
172
173   overriding function Get_Super_Class
174    (Self : not null access constant CMOF_Class_Proxy)
175       return AMF.CMOF.Classes.Collections.Set_Of_CMOF_Class;
176
177   overriding procedure Enter_Element
178    (Self    : not null access constant CMOF_Class_Proxy;
179     Visitor : in out AMF.Visitors.Abstract_Visitor'Class;
180     Control : in out AMF.Visitors.Traverse_Control);
181   --  Dispatch call to corresponding subprogram of visitor interface.
182
183   overriding procedure Leave_Element
184    (Self    : not null access constant CMOF_Class_Proxy;
185     Visitor : in out AMF.Visitors.Abstract_Visitor'Class;
186     Control : in out AMF.Visitors.Traverse_Control);
187   --  Dispatch call to corresponding subprogram of visitor interface.
188
189   overriding procedure Visit_Element
190    (Self     : not null access constant CMOF_Class_Proxy;
191     Iterator : in out AMF.Visitors.Abstract_Iterator'Class;
192     Visitor  : in out AMF.Visitors.Abstract_Visitor'Class;
193     Control  : in out AMF.Visitors.Traverse_Control);
194   --  Dispatch call to corresponding subprogram of iterator interface.
195
196end AMF.Internals.CMOF_Classes;
197