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: 2711 $ $Date: 2012-03-24 02:13:52 +0400 (Sat, 24 Mar 2012) $
43------------------------------------------------------------------------------
44--  This file is generated, don't edit it.
45------------------------------------------------------------------------------
46with AMF.Standard_Profile_L2.Auxiliaries;
47with AMF.Standard_Profile_L2.Calls;
48with AMF.Standard_Profile_L2.Creates;
49with AMF.Standard_Profile_L2.Derives;
50with AMF.Standard_Profile_L2.Destroies;
51with AMF.Standard_Profile_L2.Documents;
52with AMF.Standard_Profile_L2.Entities;
53with AMF.Standard_Profile_L2.Executables;
54with AMF.Standard_Profile_L2.Focuses;
55with AMF.Standard_Profile_L2.Frameworks;
56with AMF.Standard_Profile_L2.Implementation_Classes;
57with AMF.Standard_Profile_L2.Implements;
58with AMF.Standard_Profile_L2.Instantiates;
59with AMF.Standard_Profile_L2.Libraries;
60with AMF.Standard_Profile_L2.Metaclasses;
61with AMF.Standard_Profile_L2.Model_Libraries;
62with AMF.Standard_Profile_L2.Processes;
63with AMF.Standard_Profile_L2.Realizations;
64with AMF.Standard_Profile_L2.Refines;
65with AMF.Standard_Profile_L2.Responsibilities;
66with AMF.Standard_Profile_L2.Scripts;
67with AMF.Standard_Profile_L2.Sends;
68with AMF.Standard_Profile_L2.Services;
69with AMF.Standard_Profile_L2.Sources;
70with AMF.Standard_Profile_L2.Specifications;
71with AMF.Standard_Profile_L2.Subsystems;
72with AMF.Standard_Profile_L2.Traces;
73with AMF.Standard_Profile_L2.Types;
74with AMF.Standard_Profile_L2.Utilities;
75
76package AMF.Visitors.Standard_Profile_L2_Visitors is
77
78   pragma Preelaborate;
79
80   type Standard_Profile_L2_Visitor is limited interface and AMF.Visitors.Abstract_Visitor;
81
82   not overriding procedure Enter_Auxiliary
83    (Self    : in out Standard_Profile_L2_Visitor;
84     Element : not null AMF.Standard_Profile_L2.Auxiliaries.Standard_Profile_L2_Auxiliary_Access;
85     Control : in out AMF.Visitors.Traverse_Control) is null;
86
87   not overriding procedure Leave_Auxiliary
88    (Self    : in out Standard_Profile_L2_Visitor;
89     Element : not null AMF.Standard_Profile_L2.Auxiliaries.Standard_Profile_L2_Auxiliary_Access;
90     Control : in out AMF.Visitors.Traverse_Control) is null;
91
92   not overriding procedure Enter_Call
93    (Self    : in out Standard_Profile_L2_Visitor;
94     Element : not null AMF.Standard_Profile_L2.Calls.Standard_Profile_L2_Call_Access;
95     Control : in out AMF.Visitors.Traverse_Control) is null;
96
97   not overriding procedure Leave_Call
98    (Self    : in out Standard_Profile_L2_Visitor;
99     Element : not null AMF.Standard_Profile_L2.Calls.Standard_Profile_L2_Call_Access;
100     Control : in out AMF.Visitors.Traverse_Control) is null;
101
102   not overriding procedure Enter_Create
103    (Self    : in out Standard_Profile_L2_Visitor;
104     Element : not null AMF.Standard_Profile_L2.Creates.Standard_Profile_L2_Create_Access;
105     Control : in out AMF.Visitors.Traverse_Control) is null;
106
107   not overriding procedure Leave_Create
108    (Self    : in out Standard_Profile_L2_Visitor;
109     Element : not null AMF.Standard_Profile_L2.Creates.Standard_Profile_L2_Create_Access;
110     Control : in out AMF.Visitors.Traverse_Control) is null;
111
112   not overriding procedure Enter_Derive
113    (Self    : in out Standard_Profile_L2_Visitor;
114     Element : not null AMF.Standard_Profile_L2.Derives.Standard_Profile_L2_Derive_Access;
115     Control : in out AMF.Visitors.Traverse_Control) is null;
116
117   not overriding procedure Leave_Derive
118    (Self    : in out Standard_Profile_L2_Visitor;
119     Element : not null AMF.Standard_Profile_L2.Derives.Standard_Profile_L2_Derive_Access;
120     Control : in out AMF.Visitors.Traverse_Control) is null;
121
122   not overriding procedure Enter_Destroy
123    (Self    : in out Standard_Profile_L2_Visitor;
124     Element : not null AMF.Standard_Profile_L2.Destroies.Standard_Profile_L2_Destroy_Access;
125     Control : in out AMF.Visitors.Traverse_Control) is null;
126
127   not overriding procedure Leave_Destroy
128    (Self    : in out Standard_Profile_L2_Visitor;
129     Element : not null AMF.Standard_Profile_L2.Destroies.Standard_Profile_L2_Destroy_Access;
130     Control : in out AMF.Visitors.Traverse_Control) is null;
131
132   not overriding procedure Enter_Document
133    (Self    : in out Standard_Profile_L2_Visitor;
134     Element : not null AMF.Standard_Profile_L2.Documents.Standard_Profile_L2_Document_Access;
135     Control : in out AMF.Visitors.Traverse_Control) is null;
136
137   not overriding procedure Leave_Document
138    (Self    : in out Standard_Profile_L2_Visitor;
139     Element : not null AMF.Standard_Profile_L2.Documents.Standard_Profile_L2_Document_Access;
140     Control : in out AMF.Visitors.Traverse_Control) is null;
141
142   not overriding procedure Enter_Entity
143    (Self    : in out Standard_Profile_L2_Visitor;
144     Element : not null AMF.Standard_Profile_L2.Entities.Standard_Profile_L2_Entity_Access;
145     Control : in out AMF.Visitors.Traverse_Control) is null;
146
147   not overriding procedure Leave_Entity
148    (Self    : in out Standard_Profile_L2_Visitor;
149     Element : not null AMF.Standard_Profile_L2.Entities.Standard_Profile_L2_Entity_Access;
150     Control : in out AMF.Visitors.Traverse_Control) is null;
151
152   not overriding procedure Enter_Executable
153    (Self    : in out Standard_Profile_L2_Visitor;
154     Element : not null AMF.Standard_Profile_L2.Executables.Standard_Profile_L2_Executable_Access;
155     Control : in out AMF.Visitors.Traverse_Control) is null;
156
157   not overriding procedure Leave_Executable
158    (Self    : in out Standard_Profile_L2_Visitor;
159     Element : not null AMF.Standard_Profile_L2.Executables.Standard_Profile_L2_Executable_Access;
160     Control : in out AMF.Visitors.Traverse_Control) is null;
161
162   not overriding procedure Enter_Focus
163    (Self    : in out Standard_Profile_L2_Visitor;
164     Element : not null AMF.Standard_Profile_L2.Focuses.Standard_Profile_L2_Focus_Access;
165     Control : in out AMF.Visitors.Traverse_Control) is null;
166
167   not overriding procedure Leave_Focus
168    (Self    : in out Standard_Profile_L2_Visitor;
169     Element : not null AMF.Standard_Profile_L2.Focuses.Standard_Profile_L2_Focus_Access;
170     Control : in out AMF.Visitors.Traverse_Control) is null;
171
172   not overriding procedure Enter_Framework
173    (Self    : in out Standard_Profile_L2_Visitor;
174     Element : not null AMF.Standard_Profile_L2.Frameworks.Standard_Profile_L2_Framework_Access;
175     Control : in out AMF.Visitors.Traverse_Control) is null;
176
177   not overriding procedure Leave_Framework
178    (Self    : in out Standard_Profile_L2_Visitor;
179     Element : not null AMF.Standard_Profile_L2.Frameworks.Standard_Profile_L2_Framework_Access;
180     Control : in out AMF.Visitors.Traverse_Control) is null;
181
182   not overriding procedure Enter_Implement
183    (Self    : in out Standard_Profile_L2_Visitor;
184     Element : not null AMF.Standard_Profile_L2.Implements.Standard_Profile_L2_Implement_Access;
185     Control : in out AMF.Visitors.Traverse_Control) is null;
186
187   not overriding procedure Leave_Implement
188    (Self    : in out Standard_Profile_L2_Visitor;
189     Element : not null AMF.Standard_Profile_L2.Implements.Standard_Profile_L2_Implement_Access;
190     Control : in out AMF.Visitors.Traverse_Control) is null;
191
192   not overriding procedure Enter_Implementation_Class
193    (Self    : in out Standard_Profile_L2_Visitor;
194     Element : not null AMF.Standard_Profile_L2.Implementation_Classes.Standard_Profile_L2_Implementation_Class_Access;
195     Control : in out AMF.Visitors.Traverse_Control) is null;
196
197   not overriding procedure Leave_Implementation_Class
198    (Self    : in out Standard_Profile_L2_Visitor;
199     Element : not null AMF.Standard_Profile_L2.Implementation_Classes.Standard_Profile_L2_Implementation_Class_Access;
200     Control : in out AMF.Visitors.Traverse_Control) is null;
201
202   not overriding procedure Enter_Instantiate
203    (Self    : in out Standard_Profile_L2_Visitor;
204     Element : not null AMF.Standard_Profile_L2.Instantiates.Standard_Profile_L2_Instantiate_Access;
205     Control : in out AMF.Visitors.Traverse_Control) is null;
206
207   not overriding procedure Leave_Instantiate
208    (Self    : in out Standard_Profile_L2_Visitor;
209     Element : not null AMF.Standard_Profile_L2.Instantiates.Standard_Profile_L2_Instantiate_Access;
210     Control : in out AMF.Visitors.Traverse_Control) is null;
211
212   not overriding procedure Enter_Library
213    (Self    : in out Standard_Profile_L2_Visitor;
214     Element : not null AMF.Standard_Profile_L2.Libraries.Standard_Profile_L2_Library_Access;
215     Control : in out AMF.Visitors.Traverse_Control) is null;
216
217   not overriding procedure Leave_Library
218    (Self    : in out Standard_Profile_L2_Visitor;
219     Element : not null AMF.Standard_Profile_L2.Libraries.Standard_Profile_L2_Library_Access;
220     Control : in out AMF.Visitors.Traverse_Control) is null;
221
222   not overriding procedure Enter_Metaclass
223    (Self    : in out Standard_Profile_L2_Visitor;
224     Element : not null AMF.Standard_Profile_L2.Metaclasses.Standard_Profile_L2_Metaclass_Access;
225     Control : in out AMF.Visitors.Traverse_Control) is null;
226
227   not overriding procedure Leave_Metaclass
228    (Self    : in out Standard_Profile_L2_Visitor;
229     Element : not null AMF.Standard_Profile_L2.Metaclasses.Standard_Profile_L2_Metaclass_Access;
230     Control : in out AMF.Visitors.Traverse_Control) is null;
231
232   not overriding procedure Enter_Model_Library
233    (Self    : in out Standard_Profile_L2_Visitor;
234     Element : not null AMF.Standard_Profile_L2.Model_Libraries.Standard_Profile_L2_Model_Library_Access;
235     Control : in out AMF.Visitors.Traverse_Control) is null;
236
237   not overriding procedure Leave_Model_Library
238    (Self    : in out Standard_Profile_L2_Visitor;
239     Element : not null AMF.Standard_Profile_L2.Model_Libraries.Standard_Profile_L2_Model_Library_Access;
240     Control : in out AMF.Visitors.Traverse_Control) is null;
241
242   not overriding procedure Enter_Process
243    (Self    : in out Standard_Profile_L2_Visitor;
244     Element : not null AMF.Standard_Profile_L2.Processes.Standard_Profile_L2_Process_Access;
245     Control : in out AMF.Visitors.Traverse_Control) is null;
246
247   not overriding procedure Leave_Process
248    (Self    : in out Standard_Profile_L2_Visitor;
249     Element : not null AMF.Standard_Profile_L2.Processes.Standard_Profile_L2_Process_Access;
250     Control : in out AMF.Visitors.Traverse_Control) is null;
251
252   not overriding procedure Enter_Realization
253    (Self    : in out Standard_Profile_L2_Visitor;
254     Element : not null AMF.Standard_Profile_L2.Realizations.Standard_Profile_L2_Realization_Access;
255     Control : in out AMF.Visitors.Traverse_Control) is null;
256
257   not overriding procedure Leave_Realization
258    (Self    : in out Standard_Profile_L2_Visitor;
259     Element : not null AMF.Standard_Profile_L2.Realizations.Standard_Profile_L2_Realization_Access;
260     Control : in out AMF.Visitors.Traverse_Control) is null;
261
262   not overriding procedure Enter_Refine
263    (Self    : in out Standard_Profile_L2_Visitor;
264     Element : not null AMF.Standard_Profile_L2.Refines.Standard_Profile_L2_Refine_Access;
265     Control : in out AMF.Visitors.Traverse_Control) is null;
266
267   not overriding procedure Leave_Refine
268    (Self    : in out Standard_Profile_L2_Visitor;
269     Element : not null AMF.Standard_Profile_L2.Refines.Standard_Profile_L2_Refine_Access;
270     Control : in out AMF.Visitors.Traverse_Control) is null;
271
272   not overriding procedure Enter_Responsibility
273    (Self    : in out Standard_Profile_L2_Visitor;
274     Element : not null AMF.Standard_Profile_L2.Responsibilities.Standard_Profile_L2_Responsibility_Access;
275     Control : in out AMF.Visitors.Traverse_Control) is null;
276
277   not overriding procedure Leave_Responsibility
278    (Self    : in out Standard_Profile_L2_Visitor;
279     Element : not null AMF.Standard_Profile_L2.Responsibilities.Standard_Profile_L2_Responsibility_Access;
280     Control : in out AMF.Visitors.Traverse_Control) is null;
281
282   not overriding procedure Enter_Script
283    (Self    : in out Standard_Profile_L2_Visitor;
284     Element : not null AMF.Standard_Profile_L2.Scripts.Standard_Profile_L2_Script_Access;
285     Control : in out AMF.Visitors.Traverse_Control) is null;
286
287   not overriding procedure Leave_Script
288    (Self    : in out Standard_Profile_L2_Visitor;
289     Element : not null AMF.Standard_Profile_L2.Scripts.Standard_Profile_L2_Script_Access;
290     Control : in out AMF.Visitors.Traverse_Control) is null;
291
292   not overriding procedure Enter_Send
293    (Self    : in out Standard_Profile_L2_Visitor;
294     Element : not null AMF.Standard_Profile_L2.Sends.Standard_Profile_L2_Send_Access;
295     Control : in out AMF.Visitors.Traverse_Control) is null;
296
297   not overriding procedure Leave_Send
298    (Self    : in out Standard_Profile_L2_Visitor;
299     Element : not null AMF.Standard_Profile_L2.Sends.Standard_Profile_L2_Send_Access;
300     Control : in out AMF.Visitors.Traverse_Control) is null;
301
302   not overriding procedure Enter_Service
303    (Self    : in out Standard_Profile_L2_Visitor;
304     Element : not null AMF.Standard_Profile_L2.Services.Standard_Profile_L2_Service_Access;
305     Control : in out AMF.Visitors.Traverse_Control) is null;
306
307   not overriding procedure Leave_Service
308    (Self    : in out Standard_Profile_L2_Visitor;
309     Element : not null AMF.Standard_Profile_L2.Services.Standard_Profile_L2_Service_Access;
310     Control : in out AMF.Visitors.Traverse_Control) is null;
311
312   not overriding procedure Enter_Source
313    (Self    : in out Standard_Profile_L2_Visitor;
314     Element : not null AMF.Standard_Profile_L2.Sources.Standard_Profile_L2_Source_Access;
315     Control : in out AMF.Visitors.Traverse_Control) is null;
316
317   not overriding procedure Leave_Source
318    (Self    : in out Standard_Profile_L2_Visitor;
319     Element : not null AMF.Standard_Profile_L2.Sources.Standard_Profile_L2_Source_Access;
320     Control : in out AMF.Visitors.Traverse_Control) is null;
321
322   not overriding procedure Enter_Specification
323    (Self    : in out Standard_Profile_L2_Visitor;
324     Element : not null AMF.Standard_Profile_L2.Specifications.Standard_Profile_L2_Specification_Access;
325     Control : in out AMF.Visitors.Traverse_Control) is null;
326
327   not overriding procedure Leave_Specification
328    (Self    : in out Standard_Profile_L2_Visitor;
329     Element : not null AMF.Standard_Profile_L2.Specifications.Standard_Profile_L2_Specification_Access;
330     Control : in out AMF.Visitors.Traverse_Control) is null;
331
332   not overriding procedure Enter_Subsystem
333    (Self    : in out Standard_Profile_L2_Visitor;
334     Element : not null AMF.Standard_Profile_L2.Subsystems.Standard_Profile_L2_Subsystem_Access;
335     Control : in out AMF.Visitors.Traverse_Control) is null;
336
337   not overriding procedure Leave_Subsystem
338    (Self    : in out Standard_Profile_L2_Visitor;
339     Element : not null AMF.Standard_Profile_L2.Subsystems.Standard_Profile_L2_Subsystem_Access;
340     Control : in out AMF.Visitors.Traverse_Control) is null;
341
342   not overriding procedure Enter_Trace
343    (Self    : in out Standard_Profile_L2_Visitor;
344     Element : not null AMF.Standard_Profile_L2.Traces.Standard_Profile_L2_Trace_Access;
345     Control : in out AMF.Visitors.Traverse_Control) is null;
346
347   not overriding procedure Leave_Trace
348    (Self    : in out Standard_Profile_L2_Visitor;
349     Element : not null AMF.Standard_Profile_L2.Traces.Standard_Profile_L2_Trace_Access;
350     Control : in out AMF.Visitors.Traverse_Control) is null;
351
352   not overriding procedure Enter_Type
353    (Self    : in out Standard_Profile_L2_Visitor;
354     Element : not null AMF.Standard_Profile_L2.Types.Standard_Profile_L2_Type_Access;
355     Control : in out AMF.Visitors.Traverse_Control) is null;
356
357   not overriding procedure Leave_Type
358    (Self    : in out Standard_Profile_L2_Visitor;
359     Element : not null AMF.Standard_Profile_L2.Types.Standard_Profile_L2_Type_Access;
360     Control : in out AMF.Visitors.Traverse_Control) is null;
361
362   not overriding procedure Enter_Utility
363    (Self    : in out Standard_Profile_L2_Visitor;
364     Element : not null AMF.Standard_Profile_L2.Utilities.Standard_Profile_L2_Utility_Access;
365     Control : in out AMF.Visitors.Traverse_Control) is null;
366
367   not overriding procedure Leave_Utility
368    (Self    : in out Standard_Profile_L2_Visitor;
369     Element : not null AMF.Standard_Profile_L2.Utilities.Standard_Profile_L2_Utility_Access;
370     Control : in out AMF.Visitors.Traverse_Control) is null;
371
372end AMF.Visitors.Standard_Profile_L2_Visitors;
373