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