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_Iterators is
77
78   pragma Preelaborate;
79
80   type Standard_Profile_L2_Iterator is limited interface and AMF.Visitors.Abstract_Iterator;
81
82   not overriding procedure Visit_Auxiliary
83    (Self    : in out Standard_Profile_L2_Iterator;
84     Visitor : in out AMF.Visitors.Abstract_Visitor'Class;
85     Element : not null AMF.Standard_Profile_L2.Auxiliaries.Standard_Profile_L2_Auxiliary_Access;
86     Control : in out AMF.Visitors.Traverse_Control) is null;
87
88   not overriding procedure Visit_Call
89    (Self    : in out Standard_Profile_L2_Iterator;
90     Visitor : in out AMF.Visitors.Abstract_Visitor'Class;
91     Element : not null AMF.Standard_Profile_L2.Calls.Standard_Profile_L2_Call_Access;
92     Control : in out AMF.Visitors.Traverse_Control) is null;
93
94   not overriding procedure Visit_Create
95    (Self    : in out Standard_Profile_L2_Iterator;
96     Visitor : in out AMF.Visitors.Abstract_Visitor'Class;
97     Element : not null AMF.Standard_Profile_L2.Creates.Standard_Profile_L2_Create_Access;
98     Control : in out AMF.Visitors.Traverse_Control) is null;
99
100   not overriding procedure Visit_Derive
101    (Self    : in out Standard_Profile_L2_Iterator;
102     Visitor : in out AMF.Visitors.Abstract_Visitor'Class;
103     Element : not null AMF.Standard_Profile_L2.Derives.Standard_Profile_L2_Derive_Access;
104     Control : in out AMF.Visitors.Traverse_Control) is null;
105
106   not overriding procedure Visit_Destroy
107    (Self    : in out Standard_Profile_L2_Iterator;
108     Visitor : in out AMF.Visitors.Abstract_Visitor'Class;
109     Element : not null AMF.Standard_Profile_L2.Destroies.Standard_Profile_L2_Destroy_Access;
110     Control : in out AMF.Visitors.Traverse_Control) is null;
111
112   not overriding procedure Visit_Document
113    (Self    : in out Standard_Profile_L2_Iterator;
114     Visitor : in out AMF.Visitors.Abstract_Visitor'Class;
115     Element : not null AMF.Standard_Profile_L2.Documents.Standard_Profile_L2_Document_Access;
116     Control : in out AMF.Visitors.Traverse_Control) is null;
117
118   not overriding procedure Visit_Entity
119    (Self    : in out Standard_Profile_L2_Iterator;
120     Visitor : in out AMF.Visitors.Abstract_Visitor'Class;
121     Element : not null AMF.Standard_Profile_L2.Entities.Standard_Profile_L2_Entity_Access;
122     Control : in out AMF.Visitors.Traverse_Control) is null;
123
124   not overriding procedure Visit_Executable
125    (Self    : in out Standard_Profile_L2_Iterator;
126     Visitor : in out AMF.Visitors.Abstract_Visitor'Class;
127     Element : not null AMF.Standard_Profile_L2.Executables.Standard_Profile_L2_Executable_Access;
128     Control : in out AMF.Visitors.Traverse_Control) is null;
129
130   not overriding procedure Visit_Focus
131    (Self    : in out Standard_Profile_L2_Iterator;
132     Visitor : in out AMF.Visitors.Abstract_Visitor'Class;
133     Element : not null AMF.Standard_Profile_L2.Focuses.Standard_Profile_L2_Focus_Access;
134     Control : in out AMF.Visitors.Traverse_Control) is null;
135
136   not overriding procedure Visit_Framework
137    (Self    : in out Standard_Profile_L2_Iterator;
138     Visitor : in out AMF.Visitors.Abstract_Visitor'Class;
139     Element : not null AMF.Standard_Profile_L2.Frameworks.Standard_Profile_L2_Framework_Access;
140     Control : in out AMF.Visitors.Traverse_Control) is null;
141
142   not overriding procedure Visit_Implement
143    (Self    : in out Standard_Profile_L2_Iterator;
144     Visitor : in out AMF.Visitors.Abstract_Visitor'Class;
145     Element : not null AMF.Standard_Profile_L2.Implements.Standard_Profile_L2_Implement_Access;
146     Control : in out AMF.Visitors.Traverse_Control) is null;
147
148   not overriding procedure Visit_Implementation_Class
149    (Self    : in out Standard_Profile_L2_Iterator;
150     Visitor : in out AMF.Visitors.Abstract_Visitor'Class;
151     Element : not null AMF.Standard_Profile_L2.Implementation_Classes.Standard_Profile_L2_Implementation_Class_Access;
152     Control : in out AMF.Visitors.Traverse_Control) is null;
153
154   not overriding procedure Visit_Instantiate
155    (Self    : in out Standard_Profile_L2_Iterator;
156     Visitor : in out AMF.Visitors.Abstract_Visitor'Class;
157     Element : not null AMF.Standard_Profile_L2.Instantiates.Standard_Profile_L2_Instantiate_Access;
158     Control : in out AMF.Visitors.Traverse_Control) is null;
159
160   not overriding procedure Visit_Library
161    (Self    : in out Standard_Profile_L2_Iterator;
162     Visitor : in out AMF.Visitors.Abstract_Visitor'Class;
163     Element : not null AMF.Standard_Profile_L2.Libraries.Standard_Profile_L2_Library_Access;
164     Control : in out AMF.Visitors.Traverse_Control) is null;
165
166   not overriding procedure Visit_Metaclass
167    (Self    : in out Standard_Profile_L2_Iterator;
168     Visitor : in out AMF.Visitors.Abstract_Visitor'Class;
169     Element : not null AMF.Standard_Profile_L2.Metaclasses.Standard_Profile_L2_Metaclass_Access;
170     Control : in out AMF.Visitors.Traverse_Control) is null;
171
172   not overriding procedure Visit_Model_Library
173    (Self    : in out Standard_Profile_L2_Iterator;
174     Visitor : in out AMF.Visitors.Abstract_Visitor'Class;
175     Element : not null AMF.Standard_Profile_L2.Model_Libraries.Standard_Profile_L2_Model_Library_Access;
176     Control : in out AMF.Visitors.Traverse_Control) is null;
177
178   not overriding procedure Visit_Process
179    (Self    : in out Standard_Profile_L2_Iterator;
180     Visitor : in out AMF.Visitors.Abstract_Visitor'Class;
181     Element : not null AMF.Standard_Profile_L2.Processes.Standard_Profile_L2_Process_Access;
182     Control : in out AMF.Visitors.Traverse_Control) is null;
183
184   not overriding procedure Visit_Realization
185    (Self    : in out Standard_Profile_L2_Iterator;
186     Visitor : in out AMF.Visitors.Abstract_Visitor'Class;
187     Element : not null AMF.Standard_Profile_L2.Realizations.Standard_Profile_L2_Realization_Access;
188     Control : in out AMF.Visitors.Traverse_Control) is null;
189
190   not overriding procedure Visit_Refine
191    (Self    : in out Standard_Profile_L2_Iterator;
192     Visitor : in out AMF.Visitors.Abstract_Visitor'Class;
193     Element : not null AMF.Standard_Profile_L2.Refines.Standard_Profile_L2_Refine_Access;
194     Control : in out AMF.Visitors.Traverse_Control) is null;
195
196   not overriding procedure Visit_Responsibility
197    (Self    : in out Standard_Profile_L2_Iterator;
198     Visitor : in out AMF.Visitors.Abstract_Visitor'Class;
199     Element : not null AMF.Standard_Profile_L2.Responsibilities.Standard_Profile_L2_Responsibility_Access;
200     Control : in out AMF.Visitors.Traverse_Control) is null;
201
202   not overriding procedure Visit_Script
203    (Self    : in out Standard_Profile_L2_Iterator;
204     Visitor : in out AMF.Visitors.Abstract_Visitor'Class;
205     Element : not null AMF.Standard_Profile_L2.Scripts.Standard_Profile_L2_Script_Access;
206     Control : in out AMF.Visitors.Traverse_Control) is null;
207
208   not overriding procedure Visit_Send
209    (Self    : in out Standard_Profile_L2_Iterator;
210     Visitor : in out AMF.Visitors.Abstract_Visitor'Class;
211     Element : not null AMF.Standard_Profile_L2.Sends.Standard_Profile_L2_Send_Access;
212     Control : in out AMF.Visitors.Traverse_Control) is null;
213
214   not overriding procedure Visit_Service
215    (Self    : in out Standard_Profile_L2_Iterator;
216     Visitor : in out AMF.Visitors.Abstract_Visitor'Class;
217     Element : not null AMF.Standard_Profile_L2.Services.Standard_Profile_L2_Service_Access;
218     Control : in out AMF.Visitors.Traverse_Control) is null;
219
220   not overriding procedure Visit_Source
221    (Self    : in out Standard_Profile_L2_Iterator;
222     Visitor : in out AMF.Visitors.Abstract_Visitor'Class;
223     Element : not null AMF.Standard_Profile_L2.Sources.Standard_Profile_L2_Source_Access;
224     Control : in out AMF.Visitors.Traverse_Control) is null;
225
226   not overriding procedure Visit_Specification
227    (Self    : in out Standard_Profile_L2_Iterator;
228     Visitor : in out AMF.Visitors.Abstract_Visitor'Class;
229     Element : not null AMF.Standard_Profile_L2.Specifications.Standard_Profile_L2_Specification_Access;
230     Control : in out AMF.Visitors.Traverse_Control) is null;
231
232   not overriding procedure Visit_Subsystem
233    (Self    : in out Standard_Profile_L2_Iterator;
234     Visitor : in out AMF.Visitors.Abstract_Visitor'Class;
235     Element : not null AMF.Standard_Profile_L2.Subsystems.Standard_Profile_L2_Subsystem_Access;
236     Control : in out AMF.Visitors.Traverse_Control) is null;
237
238   not overriding procedure Visit_Trace
239    (Self    : in out Standard_Profile_L2_Iterator;
240     Visitor : in out AMF.Visitors.Abstract_Visitor'Class;
241     Element : not null AMF.Standard_Profile_L2.Traces.Standard_Profile_L2_Trace_Access;
242     Control : in out AMF.Visitors.Traverse_Control) is null;
243
244   not overriding procedure Visit_Type
245    (Self    : in out Standard_Profile_L2_Iterator;
246     Visitor : in out AMF.Visitors.Abstract_Visitor'Class;
247     Element : not null AMF.Standard_Profile_L2.Types.Standard_Profile_L2_Type_Access;
248     Control : in out AMF.Visitors.Traverse_Control) is null;
249
250   not overriding procedure Visit_Utility
251    (Self    : in out Standard_Profile_L2_Iterator;
252     Visitor : in out AMF.Visitors.Abstract_Visitor'Class;
253     Element : not null AMF.Standard_Profile_L2.Utilities.Standard_Profile_L2_Utility_Access;
254     Control : in out AMF.Visitors.Traverse_Control) is null;
255
256end AMF.Visitors.Standard_Profile_L2_Iterators;
257