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: 2806 $ $Date: 2012-04-07 01:12:01 +0400 (Sat, 07 Apr 2012) $
43------------------------------------------------------------------------------
44--  This file is generated, don't edit it.
45------------------------------------------------------------------------------
46with AMF.Utp.Coding_Rules;
47with AMF.Utp.Data_Partitions;
48with AMF.Utp.Data_Pools;
49with AMF.Utp.Data_Selectors;
50with AMF.Utp.Default_Applications;
51with AMF.Utp.Defaults;
52with AMF.Utp.Determ_Alts;
53with AMF.Utp.Finish_Actions;
54with AMF.Utp.Get_Timezone_Actions;
55with AMF.Utp.Literal_Anies;
56with AMF.Utp.Literal_Any_Or_Nulls;
57with AMF.Utp.Log_Actions;
58with AMF.Utp.Managed_Elements;
59with AMF.Utp.Read_Timer_Actions;
60with AMF.Utp.SUTs;
61with AMF.Utp.Set_Timezone_Actions;
62with AMF.Utp.Start_Timer_Actions;
63with AMF.Utp.Stop_Timer_Actions;
64with AMF.Utp.Test_Cases;
65with AMF.Utp.Test_Components;
66with AMF.Utp.Test_Contexts;
67with AMF.Utp.Test_Log_Applications;
68with AMF.Utp.Test_Logs;
69with AMF.Utp.Test_Objectives;
70with AMF.Utp.Test_Suites;
71with AMF.Utp.Time_Out_Actions;
72with AMF.Utp.Time_Out_Messages;
73with AMF.Utp.Time_Outs;
74with AMF.Utp.Timer_Running_Actions;
75with AMF.Utp.Validation_Actions;
76
77package AMF.Visitors.Utp_Iterators is
78
79   pragma Preelaborate;
80
81   type Utp_Iterator is limited interface and AMF.Visitors.Abstract_Iterator;
82
83   not overriding procedure Visit_Coding_Rule
84    (Self    : in out Utp_Iterator;
85     Visitor : in out AMF.Visitors.Abstract_Visitor'Class;
86     Element : not null AMF.Utp.Coding_Rules.Utp_Coding_Rule_Access;
87     Control : in out AMF.Visitors.Traverse_Control) is null;
88
89   not overriding procedure Visit_Data_Partition
90    (Self    : in out Utp_Iterator;
91     Visitor : in out AMF.Visitors.Abstract_Visitor'Class;
92     Element : not null AMF.Utp.Data_Partitions.Utp_Data_Partition_Access;
93     Control : in out AMF.Visitors.Traverse_Control) is null;
94
95   not overriding procedure Visit_Data_Pool
96    (Self    : in out Utp_Iterator;
97     Visitor : in out AMF.Visitors.Abstract_Visitor'Class;
98     Element : not null AMF.Utp.Data_Pools.Utp_Data_Pool_Access;
99     Control : in out AMF.Visitors.Traverse_Control) is null;
100
101   not overriding procedure Visit_Data_Selector
102    (Self    : in out Utp_Iterator;
103     Visitor : in out AMF.Visitors.Abstract_Visitor'Class;
104     Element : not null AMF.Utp.Data_Selectors.Utp_Data_Selector_Access;
105     Control : in out AMF.Visitors.Traverse_Control) is null;
106
107   not overriding procedure Visit_Default
108    (Self    : in out Utp_Iterator;
109     Visitor : in out AMF.Visitors.Abstract_Visitor'Class;
110     Element : not null AMF.Utp.Defaults.Utp_Default_Access;
111     Control : in out AMF.Visitors.Traverse_Control) is null;
112
113   not overriding procedure Visit_Default_Application
114    (Self    : in out Utp_Iterator;
115     Visitor : in out AMF.Visitors.Abstract_Visitor'Class;
116     Element : not null AMF.Utp.Default_Applications.Utp_Default_Application_Access;
117     Control : in out AMF.Visitors.Traverse_Control) is null;
118
119   not overriding procedure Visit_Determ_Alt
120    (Self    : in out Utp_Iterator;
121     Visitor : in out AMF.Visitors.Abstract_Visitor'Class;
122     Element : not null AMF.Utp.Determ_Alts.Utp_Determ_Alt_Access;
123     Control : in out AMF.Visitors.Traverse_Control) is null;
124
125   not overriding procedure Visit_Finish_Action
126    (Self    : in out Utp_Iterator;
127     Visitor : in out AMF.Visitors.Abstract_Visitor'Class;
128     Element : not null AMF.Utp.Finish_Actions.Utp_Finish_Action_Access;
129     Control : in out AMF.Visitors.Traverse_Control) is null;
130
131   not overriding procedure Visit_Get_Timezone_Action
132    (Self    : in out Utp_Iterator;
133     Visitor : in out AMF.Visitors.Abstract_Visitor'Class;
134     Element : not null AMF.Utp.Get_Timezone_Actions.Utp_Get_Timezone_Action_Access;
135     Control : in out AMF.Visitors.Traverse_Control) is null;
136
137   not overriding procedure Visit_Literal_Any
138    (Self    : in out Utp_Iterator;
139     Visitor : in out AMF.Visitors.Abstract_Visitor'Class;
140     Element : not null AMF.Utp.Literal_Anies.Utp_Literal_Any_Access;
141     Control : in out AMF.Visitors.Traverse_Control) is null;
142
143   not overriding procedure Visit_Literal_Any_Or_Null
144    (Self    : in out Utp_Iterator;
145     Visitor : in out AMF.Visitors.Abstract_Visitor'Class;
146     Element : not null AMF.Utp.Literal_Any_Or_Nulls.Utp_Literal_Any_Or_Null_Access;
147     Control : in out AMF.Visitors.Traverse_Control) is null;
148
149   not overriding procedure Visit_Log_Action
150    (Self    : in out Utp_Iterator;
151     Visitor : in out AMF.Visitors.Abstract_Visitor'Class;
152     Element : not null AMF.Utp.Log_Actions.Utp_Log_Action_Access;
153     Control : in out AMF.Visitors.Traverse_Control) is null;
154
155   not overriding procedure Visit_Managed_Element
156    (Self    : in out Utp_Iterator;
157     Visitor : in out AMF.Visitors.Abstract_Visitor'Class;
158     Element : not null AMF.Utp.Managed_Elements.Utp_Managed_Element_Access;
159     Control : in out AMF.Visitors.Traverse_Control) is null;
160
161   not overriding procedure Visit_Read_Timer_Action
162    (Self    : in out Utp_Iterator;
163     Visitor : in out AMF.Visitors.Abstract_Visitor'Class;
164     Element : not null AMF.Utp.Read_Timer_Actions.Utp_Read_Timer_Action_Access;
165     Control : in out AMF.Visitors.Traverse_Control) is null;
166
167   not overriding procedure Visit_SUT
168    (Self    : in out Utp_Iterator;
169     Visitor : in out AMF.Visitors.Abstract_Visitor'Class;
170     Element : not null AMF.Utp.SUTs.Utp_SUT_Access;
171     Control : in out AMF.Visitors.Traverse_Control) is null;
172
173   not overriding procedure Visit_Set_Timezone_Action
174    (Self    : in out Utp_Iterator;
175     Visitor : in out AMF.Visitors.Abstract_Visitor'Class;
176     Element : not null AMF.Utp.Set_Timezone_Actions.Utp_Set_Timezone_Action_Access;
177     Control : in out AMF.Visitors.Traverse_Control) is null;
178
179   not overriding procedure Visit_Start_Timer_Action
180    (Self    : in out Utp_Iterator;
181     Visitor : in out AMF.Visitors.Abstract_Visitor'Class;
182     Element : not null AMF.Utp.Start_Timer_Actions.Utp_Start_Timer_Action_Access;
183     Control : in out AMF.Visitors.Traverse_Control) is null;
184
185   not overriding procedure Visit_Stop_Timer_Action
186    (Self    : in out Utp_Iterator;
187     Visitor : in out AMF.Visitors.Abstract_Visitor'Class;
188     Element : not null AMF.Utp.Stop_Timer_Actions.Utp_Stop_Timer_Action_Access;
189     Control : in out AMF.Visitors.Traverse_Control) is null;
190
191   not overriding procedure Visit_Test_Case
192    (Self    : in out Utp_Iterator;
193     Visitor : in out AMF.Visitors.Abstract_Visitor'Class;
194     Element : not null AMF.Utp.Test_Cases.Utp_Test_Case_Access;
195     Control : in out AMF.Visitors.Traverse_Control) is null;
196
197   not overriding procedure Visit_Test_Component
198    (Self    : in out Utp_Iterator;
199     Visitor : in out AMF.Visitors.Abstract_Visitor'Class;
200     Element : not null AMF.Utp.Test_Components.Utp_Test_Component_Access;
201     Control : in out AMF.Visitors.Traverse_Control) is null;
202
203   not overriding procedure Visit_Test_Context
204    (Self    : in out Utp_Iterator;
205     Visitor : in out AMF.Visitors.Abstract_Visitor'Class;
206     Element : not null AMF.Utp.Test_Contexts.Utp_Test_Context_Access;
207     Control : in out AMF.Visitors.Traverse_Control) is null;
208
209   not overriding procedure Visit_Test_Log
210    (Self    : in out Utp_Iterator;
211     Visitor : in out AMF.Visitors.Abstract_Visitor'Class;
212     Element : not null AMF.Utp.Test_Logs.Utp_Test_Log_Access;
213     Control : in out AMF.Visitors.Traverse_Control) is null;
214
215   not overriding procedure Visit_Test_Log_Application
216    (Self    : in out Utp_Iterator;
217     Visitor : in out AMF.Visitors.Abstract_Visitor'Class;
218     Element : not null AMF.Utp.Test_Log_Applications.Utp_Test_Log_Application_Access;
219     Control : in out AMF.Visitors.Traverse_Control) is null;
220
221   not overriding procedure Visit_Test_Objective
222    (Self    : in out Utp_Iterator;
223     Visitor : in out AMF.Visitors.Abstract_Visitor'Class;
224     Element : not null AMF.Utp.Test_Objectives.Utp_Test_Objective_Access;
225     Control : in out AMF.Visitors.Traverse_Control) is null;
226
227   not overriding procedure Visit_Test_Suite
228    (Self    : in out Utp_Iterator;
229     Visitor : in out AMF.Visitors.Abstract_Visitor'Class;
230     Element : not null AMF.Utp.Test_Suites.Utp_Test_Suite_Access;
231     Control : in out AMF.Visitors.Traverse_Control) is null;
232
233   not overriding procedure Visit_Time_Out
234    (Self    : in out Utp_Iterator;
235     Visitor : in out AMF.Visitors.Abstract_Visitor'Class;
236     Element : not null AMF.Utp.Time_Outs.Utp_Time_Out_Access;
237     Control : in out AMF.Visitors.Traverse_Control) is null;
238
239   not overriding procedure Visit_Time_Out_Action
240    (Self    : in out Utp_Iterator;
241     Visitor : in out AMF.Visitors.Abstract_Visitor'Class;
242     Element : not null AMF.Utp.Time_Out_Actions.Utp_Time_Out_Action_Access;
243     Control : in out AMF.Visitors.Traverse_Control) is null;
244
245   not overriding procedure Visit_Time_Out_Message
246    (Self    : in out Utp_Iterator;
247     Visitor : in out AMF.Visitors.Abstract_Visitor'Class;
248     Element : not null AMF.Utp.Time_Out_Messages.Utp_Time_Out_Message_Access;
249     Control : in out AMF.Visitors.Traverse_Control) is null;
250
251   not overriding procedure Visit_Timer_Running_Action
252    (Self    : in out Utp_Iterator;
253     Visitor : in out AMF.Visitors.Abstract_Visitor'Class;
254     Element : not null AMF.Utp.Timer_Running_Actions.Utp_Timer_Running_Action_Access;
255     Control : in out AMF.Visitors.Traverse_Control) is null;
256
257   not overriding procedure Visit_Validation_Action
258    (Self    : in out Utp_Iterator;
259     Visitor : in out AMF.Visitors.Abstract_Visitor'Class;
260     Element : not null AMF.Utp.Validation_Actions.Utp_Validation_Action_Access;
261     Control : in out AMF.Visitors.Traverse_Control) is null;
262
263end AMF.Visitors.Utp_Iterators;
264