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