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