1------------------------------------------------------------------------------
2--                                                                          --
3--                            Matreshka Project                             --
4--                                                                          --
5--                          Ada Modeling Framework                          --
6--                                                                          --
7--                        Runtime Library Component                         --
8--                                                                          --
9------------------------------------------------------------------------------
10--                                                                          --
11-- Copyright © 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: 3397 $ $Date: 2012-11-13 07:02:02 +0400 (Tue, 13 Nov 2012) $
43------------------------------------------------------------------------------
44--  This file is generated, don't edit it.
45------------------------------------------------------------------------------
46with AMF.UMLDI.UML_Activity_Diagrams;
47with AMF.UMLDI.UML_Association_End_Labels;
48with AMF.UMLDI.UML_Association_Or_Connector_Or_Link_Shapes;
49with AMF.UMLDI.UML_Class_Diagrams;
50with AMF.UMLDI.UML_Classifier_Shapes;
51with AMF.UMLDI.UML_Compartmentable_Shapes;
52with AMF.UMLDI.UML_Compartments;
53with AMF.UMLDI.UML_Component_Diagrams;
54with AMF.UMLDI.UML_Composite_Structure_Diagrams;
55with AMF.UMLDI.UML_Deployment_Diagrams;
56with AMF.UMLDI.UML_Edges;
57with AMF.UMLDI.UML_Interaction_Diagrams;
58with AMF.UMLDI.UML_Interaction_Table_Labels;
59with AMF.UMLDI.UML_Keyword_Labels;
60with AMF.UMLDI.UML_Labels;
61with AMF.UMLDI.UML_Multiplicity_Labels;
62with AMF.UMLDI.UML_Name_Labels;
63with AMF.UMLDI.UML_Object_Diagrams;
64with AMF.UMLDI.UML_Package_Diagrams;
65with AMF.UMLDI.UML_Profile_Diagrams;
66with AMF.UMLDI.UML_Redefines_Labels;
67with AMF.UMLDI.UML_Shapes;
68with AMF.UMLDI.UML_State_Machine_Diagrams;
69with AMF.UMLDI.UML_State_Shapes;
70with AMF.UMLDI.UML_Stereotype_Property_Value_Labels;
71with AMF.UMLDI.UML_Styles;
72with AMF.UMLDI.UML_Typed_Element_Labels;
73with AMF.UMLDI.UML_Use_Case_Diagrams;
74
75package AMF.Visitors.UMLDI_Visitors is
76
77   pragma Preelaborate;
78
79   type UMLDI_Visitor is limited interface and AMF.Visitors.Abstract_Visitor;
80
81   not overriding procedure Enter_UML_Activity_Diagram
82    (Self    : in out UMLDI_Visitor;
83     Element : not null AMF.UMLDI.UML_Activity_Diagrams.UMLDI_UML_Activity_Diagram_Access;
84     Control : in out AMF.Visitors.Traverse_Control) is null;
85
86   not overriding procedure Leave_UML_Activity_Diagram
87    (Self    : in out UMLDI_Visitor;
88     Element : not null AMF.UMLDI.UML_Activity_Diagrams.UMLDI_UML_Activity_Diagram_Access;
89     Control : in out AMF.Visitors.Traverse_Control) is null;
90
91   not overriding procedure Enter_UML_Association_End_Label
92    (Self    : in out UMLDI_Visitor;
93     Element : not null AMF.UMLDI.UML_Association_End_Labels.UMLDI_UML_Association_End_Label_Access;
94     Control : in out AMF.Visitors.Traverse_Control) is null;
95
96   not overriding procedure Leave_UML_Association_End_Label
97    (Self    : in out UMLDI_Visitor;
98     Element : not null AMF.UMLDI.UML_Association_End_Labels.UMLDI_UML_Association_End_Label_Access;
99     Control : in out AMF.Visitors.Traverse_Control) is null;
100
101   not overriding procedure Enter_UML_Association_Or_Connector_Or_Link_Shape
102    (Self    : in out UMLDI_Visitor;
103     Element : not null AMF.UMLDI.UML_Association_Or_Connector_Or_Link_Shapes.UMLDI_UML_Association_Or_Connector_Or_Link_Shape_Access;
104     Control : in out AMF.Visitors.Traverse_Control) is null;
105
106   not overriding procedure Leave_UML_Association_Or_Connector_Or_Link_Shape
107    (Self    : in out UMLDI_Visitor;
108     Element : not null AMF.UMLDI.UML_Association_Or_Connector_Or_Link_Shapes.UMLDI_UML_Association_Or_Connector_Or_Link_Shape_Access;
109     Control : in out AMF.Visitors.Traverse_Control) is null;
110
111   not overriding procedure Enter_UML_Class_Diagram
112    (Self    : in out UMLDI_Visitor;
113     Element : not null AMF.UMLDI.UML_Class_Diagrams.UMLDI_UML_Class_Diagram_Access;
114     Control : in out AMF.Visitors.Traverse_Control) is null;
115
116   not overriding procedure Leave_UML_Class_Diagram
117    (Self    : in out UMLDI_Visitor;
118     Element : not null AMF.UMLDI.UML_Class_Diagrams.UMLDI_UML_Class_Diagram_Access;
119     Control : in out AMF.Visitors.Traverse_Control) is null;
120
121   not overriding procedure Enter_UML_Classifier_Shape
122    (Self    : in out UMLDI_Visitor;
123     Element : not null AMF.UMLDI.UML_Classifier_Shapes.UMLDI_UML_Classifier_Shape_Access;
124     Control : in out AMF.Visitors.Traverse_Control) is null;
125
126   not overriding procedure Leave_UML_Classifier_Shape
127    (Self    : in out UMLDI_Visitor;
128     Element : not null AMF.UMLDI.UML_Classifier_Shapes.UMLDI_UML_Classifier_Shape_Access;
129     Control : in out AMF.Visitors.Traverse_Control) is null;
130
131   not overriding procedure Enter_UML_Compartment
132    (Self    : in out UMLDI_Visitor;
133     Element : not null AMF.UMLDI.UML_Compartments.UMLDI_UML_Compartment_Access;
134     Control : in out AMF.Visitors.Traverse_Control) is null;
135
136   not overriding procedure Leave_UML_Compartment
137    (Self    : in out UMLDI_Visitor;
138     Element : not null AMF.UMLDI.UML_Compartments.UMLDI_UML_Compartment_Access;
139     Control : in out AMF.Visitors.Traverse_Control) is null;
140
141   not overriding procedure Enter_UML_Compartmentable_Shape
142    (Self    : in out UMLDI_Visitor;
143     Element : not null AMF.UMLDI.UML_Compartmentable_Shapes.UMLDI_UML_Compartmentable_Shape_Access;
144     Control : in out AMF.Visitors.Traverse_Control) is null;
145
146   not overriding procedure Leave_UML_Compartmentable_Shape
147    (Self    : in out UMLDI_Visitor;
148     Element : not null AMF.UMLDI.UML_Compartmentable_Shapes.UMLDI_UML_Compartmentable_Shape_Access;
149     Control : in out AMF.Visitors.Traverse_Control) is null;
150
151   not overriding procedure Enter_UML_Component_Diagram
152    (Self    : in out UMLDI_Visitor;
153     Element : not null AMF.UMLDI.UML_Component_Diagrams.UMLDI_UML_Component_Diagram_Access;
154     Control : in out AMF.Visitors.Traverse_Control) is null;
155
156   not overriding procedure Leave_UML_Component_Diagram
157    (Self    : in out UMLDI_Visitor;
158     Element : not null AMF.UMLDI.UML_Component_Diagrams.UMLDI_UML_Component_Diagram_Access;
159     Control : in out AMF.Visitors.Traverse_Control) is null;
160
161   not overriding procedure Enter_UML_Composite_Structure_Diagram
162    (Self    : in out UMLDI_Visitor;
163     Element : not null AMF.UMLDI.UML_Composite_Structure_Diagrams.UMLDI_UML_Composite_Structure_Diagram_Access;
164     Control : in out AMF.Visitors.Traverse_Control) is null;
165
166   not overriding procedure Leave_UML_Composite_Structure_Diagram
167    (Self    : in out UMLDI_Visitor;
168     Element : not null AMF.UMLDI.UML_Composite_Structure_Diagrams.UMLDI_UML_Composite_Structure_Diagram_Access;
169     Control : in out AMF.Visitors.Traverse_Control) is null;
170
171   not overriding procedure Enter_UML_Deployment_Diagram
172    (Self    : in out UMLDI_Visitor;
173     Element : not null AMF.UMLDI.UML_Deployment_Diagrams.UMLDI_UML_Deployment_Diagram_Access;
174     Control : in out AMF.Visitors.Traverse_Control) is null;
175
176   not overriding procedure Leave_UML_Deployment_Diagram
177    (Self    : in out UMLDI_Visitor;
178     Element : not null AMF.UMLDI.UML_Deployment_Diagrams.UMLDI_UML_Deployment_Diagram_Access;
179     Control : in out AMF.Visitors.Traverse_Control) is null;
180
181   not overriding procedure Enter_UML_Edge
182    (Self    : in out UMLDI_Visitor;
183     Element : not null AMF.UMLDI.UML_Edges.UMLDI_UML_Edge_Access;
184     Control : in out AMF.Visitors.Traverse_Control) is null;
185
186   not overriding procedure Leave_UML_Edge
187    (Self    : in out UMLDI_Visitor;
188     Element : not null AMF.UMLDI.UML_Edges.UMLDI_UML_Edge_Access;
189     Control : in out AMF.Visitors.Traverse_Control) is null;
190
191   not overriding procedure Enter_UML_Interaction_Diagram
192    (Self    : in out UMLDI_Visitor;
193     Element : not null AMF.UMLDI.UML_Interaction_Diagrams.UMLDI_UML_Interaction_Diagram_Access;
194     Control : in out AMF.Visitors.Traverse_Control) is null;
195
196   not overriding procedure Leave_UML_Interaction_Diagram
197    (Self    : in out UMLDI_Visitor;
198     Element : not null AMF.UMLDI.UML_Interaction_Diagrams.UMLDI_UML_Interaction_Diagram_Access;
199     Control : in out AMF.Visitors.Traverse_Control) is null;
200
201   not overriding procedure Enter_UML_Interaction_Table_Label
202    (Self    : in out UMLDI_Visitor;
203     Element : not null AMF.UMLDI.UML_Interaction_Table_Labels.UMLDI_UML_Interaction_Table_Label_Access;
204     Control : in out AMF.Visitors.Traverse_Control) is null;
205
206   not overriding procedure Leave_UML_Interaction_Table_Label
207    (Self    : in out UMLDI_Visitor;
208     Element : not null AMF.UMLDI.UML_Interaction_Table_Labels.UMLDI_UML_Interaction_Table_Label_Access;
209     Control : in out AMF.Visitors.Traverse_Control) is null;
210
211   not overriding procedure Enter_UML_Keyword_Label
212    (Self    : in out UMLDI_Visitor;
213     Element : not null AMF.UMLDI.UML_Keyword_Labels.UMLDI_UML_Keyword_Label_Access;
214     Control : in out AMF.Visitors.Traverse_Control) is null;
215
216   not overriding procedure Leave_UML_Keyword_Label
217    (Self    : in out UMLDI_Visitor;
218     Element : not null AMF.UMLDI.UML_Keyword_Labels.UMLDI_UML_Keyword_Label_Access;
219     Control : in out AMF.Visitors.Traverse_Control) is null;
220
221   not overriding procedure Enter_UML_Label
222    (Self    : in out UMLDI_Visitor;
223     Element : not null AMF.UMLDI.UML_Labels.UMLDI_UML_Label_Access;
224     Control : in out AMF.Visitors.Traverse_Control) is null;
225
226   not overriding procedure Leave_UML_Label
227    (Self    : in out UMLDI_Visitor;
228     Element : not null AMF.UMLDI.UML_Labels.UMLDI_UML_Label_Access;
229     Control : in out AMF.Visitors.Traverse_Control) is null;
230
231   not overriding procedure Enter_UML_Multiplicity_Label
232    (Self    : in out UMLDI_Visitor;
233     Element : not null AMF.UMLDI.UML_Multiplicity_Labels.UMLDI_UML_Multiplicity_Label_Access;
234     Control : in out AMF.Visitors.Traverse_Control) is null;
235
236   not overriding procedure Leave_UML_Multiplicity_Label
237    (Self    : in out UMLDI_Visitor;
238     Element : not null AMF.UMLDI.UML_Multiplicity_Labels.UMLDI_UML_Multiplicity_Label_Access;
239     Control : in out AMF.Visitors.Traverse_Control) is null;
240
241   not overriding procedure Enter_UML_Name_Label
242    (Self    : in out UMLDI_Visitor;
243     Element : not null AMF.UMLDI.UML_Name_Labels.UMLDI_UML_Name_Label_Access;
244     Control : in out AMF.Visitors.Traverse_Control) is null;
245
246   not overriding procedure Leave_UML_Name_Label
247    (Self    : in out UMLDI_Visitor;
248     Element : not null AMF.UMLDI.UML_Name_Labels.UMLDI_UML_Name_Label_Access;
249     Control : in out AMF.Visitors.Traverse_Control) is null;
250
251   not overriding procedure Enter_UML_Object_Diagram
252    (Self    : in out UMLDI_Visitor;
253     Element : not null AMF.UMLDI.UML_Object_Diagrams.UMLDI_UML_Object_Diagram_Access;
254     Control : in out AMF.Visitors.Traverse_Control) is null;
255
256   not overriding procedure Leave_UML_Object_Diagram
257    (Self    : in out UMLDI_Visitor;
258     Element : not null AMF.UMLDI.UML_Object_Diagrams.UMLDI_UML_Object_Diagram_Access;
259     Control : in out AMF.Visitors.Traverse_Control) is null;
260
261   not overriding procedure Enter_UML_Package_Diagram
262    (Self    : in out UMLDI_Visitor;
263     Element : not null AMF.UMLDI.UML_Package_Diagrams.UMLDI_UML_Package_Diagram_Access;
264     Control : in out AMF.Visitors.Traverse_Control) is null;
265
266   not overriding procedure Leave_UML_Package_Diagram
267    (Self    : in out UMLDI_Visitor;
268     Element : not null AMF.UMLDI.UML_Package_Diagrams.UMLDI_UML_Package_Diagram_Access;
269     Control : in out AMF.Visitors.Traverse_Control) is null;
270
271   not overriding procedure Enter_UML_Profile_Diagram
272    (Self    : in out UMLDI_Visitor;
273     Element : not null AMF.UMLDI.UML_Profile_Diagrams.UMLDI_UML_Profile_Diagram_Access;
274     Control : in out AMF.Visitors.Traverse_Control) is null;
275
276   not overriding procedure Leave_UML_Profile_Diagram
277    (Self    : in out UMLDI_Visitor;
278     Element : not null AMF.UMLDI.UML_Profile_Diagrams.UMLDI_UML_Profile_Diagram_Access;
279     Control : in out AMF.Visitors.Traverse_Control) is null;
280
281   not overriding procedure Enter_UML_Redefines_Label
282    (Self    : in out UMLDI_Visitor;
283     Element : not null AMF.UMLDI.UML_Redefines_Labels.UMLDI_UML_Redefines_Label_Access;
284     Control : in out AMF.Visitors.Traverse_Control) is null;
285
286   not overriding procedure Leave_UML_Redefines_Label
287    (Self    : in out UMLDI_Visitor;
288     Element : not null AMF.UMLDI.UML_Redefines_Labels.UMLDI_UML_Redefines_Label_Access;
289     Control : in out AMF.Visitors.Traverse_Control) is null;
290
291   not overriding procedure Enter_UML_Shape
292    (Self    : in out UMLDI_Visitor;
293     Element : not null AMF.UMLDI.UML_Shapes.UMLDI_UML_Shape_Access;
294     Control : in out AMF.Visitors.Traverse_Control) is null;
295
296   not overriding procedure Leave_UML_Shape
297    (Self    : in out UMLDI_Visitor;
298     Element : not null AMF.UMLDI.UML_Shapes.UMLDI_UML_Shape_Access;
299     Control : in out AMF.Visitors.Traverse_Control) is null;
300
301   not overriding procedure Enter_UML_State_Machine_Diagram
302    (Self    : in out UMLDI_Visitor;
303     Element : not null AMF.UMLDI.UML_State_Machine_Diagrams.UMLDI_UML_State_Machine_Diagram_Access;
304     Control : in out AMF.Visitors.Traverse_Control) is null;
305
306   not overriding procedure Leave_UML_State_Machine_Diagram
307    (Self    : in out UMLDI_Visitor;
308     Element : not null AMF.UMLDI.UML_State_Machine_Diagrams.UMLDI_UML_State_Machine_Diagram_Access;
309     Control : in out AMF.Visitors.Traverse_Control) is null;
310
311   not overriding procedure Enter_UML_State_Shape
312    (Self    : in out UMLDI_Visitor;
313     Element : not null AMF.UMLDI.UML_State_Shapes.UMLDI_UML_State_Shape_Access;
314     Control : in out AMF.Visitors.Traverse_Control) is null;
315
316   not overriding procedure Leave_UML_State_Shape
317    (Self    : in out UMLDI_Visitor;
318     Element : not null AMF.UMLDI.UML_State_Shapes.UMLDI_UML_State_Shape_Access;
319     Control : in out AMF.Visitors.Traverse_Control) is null;
320
321   not overriding procedure Enter_UML_Stereotype_Property_Value_Label
322    (Self    : in out UMLDI_Visitor;
323     Element : not null AMF.UMLDI.UML_Stereotype_Property_Value_Labels.UMLDI_UML_Stereotype_Property_Value_Label_Access;
324     Control : in out AMF.Visitors.Traverse_Control) is null;
325
326   not overriding procedure Leave_UML_Stereotype_Property_Value_Label
327    (Self    : in out UMLDI_Visitor;
328     Element : not null AMF.UMLDI.UML_Stereotype_Property_Value_Labels.UMLDI_UML_Stereotype_Property_Value_Label_Access;
329     Control : in out AMF.Visitors.Traverse_Control) is null;
330
331   not overriding procedure Enter_UML_Style
332    (Self    : in out UMLDI_Visitor;
333     Element : not null AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access;
334     Control : in out AMF.Visitors.Traverse_Control) is null;
335
336   not overriding procedure Leave_UML_Style
337    (Self    : in out UMLDI_Visitor;
338     Element : not null AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access;
339     Control : in out AMF.Visitors.Traverse_Control) is null;
340
341   not overriding procedure Enter_UML_Typed_Element_Label
342    (Self    : in out UMLDI_Visitor;
343     Element : not null AMF.UMLDI.UML_Typed_Element_Labels.UMLDI_UML_Typed_Element_Label_Access;
344     Control : in out AMF.Visitors.Traverse_Control) is null;
345
346   not overriding procedure Leave_UML_Typed_Element_Label
347    (Self    : in out UMLDI_Visitor;
348     Element : not null AMF.UMLDI.UML_Typed_Element_Labels.UMLDI_UML_Typed_Element_Label_Access;
349     Control : in out AMF.Visitors.Traverse_Control) is null;
350
351   not overriding procedure Enter_UML_Use_Case_Diagram
352    (Self    : in out UMLDI_Visitor;
353     Element : not null AMF.UMLDI.UML_Use_Case_Diagrams.UMLDI_UML_Use_Case_Diagram_Access;
354     Control : in out AMF.Visitors.Traverse_Control) is null;
355
356   not overriding procedure Leave_UML_Use_Case_Diagram
357    (Self    : in out UMLDI_Visitor;
358     Element : not null AMF.UMLDI.UML_Use_Case_Diagrams.UMLDI_UML_Use_Case_Diagram_Access;
359     Control : in out AMF.Visitors.Traverse_Control) is null;
360
361end AMF.Visitors.UMLDI_Visitors;
362