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: 3397 $ $Date: 2012-11-13 07:02:02 +0400 (Tue, 13 Nov 2012) $ 43------------------------------------------------------------------------------ 44-- This file is generated, don't edit it. 45------------------------------------------------------------------------------ 46with AMF.UMLDI.UML_Activity_Diagrams; 47with AMF.UMLDI.UML_Association_End_Labels; 48with AMF.UMLDI.UML_Association_Or_Connector_Or_Link_Shapes; 49with AMF.UMLDI.UML_Class_Diagrams; 50with AMF.UMLDI.UML_Classifier_Shapes; 51with AMF.UMLDI.UML_Compartmentable_Shapes; 52with AMF.UMLDI.UML_Compartments; 53with AMF.UMLDI.UML_Component_Diagrams; 54with AMF.UMLDI.UML_Composite_Structure_Diagrams; 55with AMF.UMLDI.UML_Deployment_Diagrams; 56with AMF.UMLDI.UML_Edges; 57with AMF.UMLDI.UML_Interaction_Diagrams; 58with AMF.UMLDI.UML_Interaction_Table_Labels; 59with AMF.UMLDI.UML_Keyword_Labels; 60with AMF.UMLDI.UML_Labels; 61with AMF.UMLDI.UML_Multiplicity_Labels; 62with AMF.UMLDI.UML_Name_Labels; 63with AMF.UMLDI.UML_Object_Diagrams; 64with AMF.UMLDI.UML_Package_Diagrams; 65with AMF.UMLDI.UML_Profile_Diagrams; 66with AMF.UMLDI.UML_Redefines_Labels; 67with AMF.UMLDI.UML_Shapes; 68with AMF.UMLDI.UML_State_Machine_Diagrams; 69with AMF.UMLDI.UML_State_Shapes; 70with AMF.UMLDI.UML_Stereotype_Property_Value_Labels; 71with AMF.UMLDI.UML_Styles; 72with AMF.UMLDI.UML_Typed_Element_Labels; 73with AMF.UMLDI.UML_Use_Case_Diagrams; 74 75package AMF.Visitors.UMLDI_Iterators is 76 77 pragma Preelaborate; 78 79 type UMLDI_Iterator is limited interface and AMF.Visitors.Abstract_Iterator; 80 81 not overriding procedure Visit_UML_Activity_Diagram 82 (Self : in out UMLDI_Iterator; 83 Visitor : in out AMF.Visitors.Abstract_Visitor'Class; 84 Element : not null AMF.UMLDI.UML_Activity_Diagrams.UMLDI_UML_Activity_Diagram_Access; 85 Control : in out AMF.Visitors.Traverse_Control) is null; 86 87 not overriding procedure Visit_UML_Association_End_Label 88 (Self : in out UMLDI_Iterator; 89 Visitor : in out AMF.Visitors.Abstract_Visitor'Class; 90 Element : not null AMF.UMLDI.UML_Association_End_Labels.UMLDI_UML_Association_End_Label_Access; 91 Control : in out AMF.Visitors.Traverse_Control) is null; 92 93 not overriding procedure Visit_UML_Association_Or_Connector_Or_Link_Shape 94 (Self : in out UMLDI_Iterator; 95 Visitor : in out AMF.Visitors.Abstract_Visitor'Class; 96 Element : not null AMF.UMLDI.UML_Association_Or_Connector_Or_Link_Shapes.UMLDI_UML_Association_Or_Connector_Or_Link_Shape_Access; 97 Control : in out AMF.Visitors.Traverse_Control) is null; 98 99 not overriding procedure Visit_UML_Class_Diagram 100 (Self : in out UMLDI_Iterator; 101 Visitor : in out AMF.Visitors.Abstract_Visitor'Class; 102 Element : not null AMF.UMLDI.UML_Class_Diagrams.UMLDI_UML_Class_Diagram_Access; 103 Control : in out AMF.Visitors.Traverse_Control) is null; 104 105 not overriding procedure Visit_UML_Classifier_Shape 106 (Self : in out UMLDI_Iterator; 107 Visitor : in out AMF.Visitors.Abstract_Visitor'Class; 108 Element : not null AMF.UMLDI.UML_Classifier_Shapes.UMLDI_UML_Classifier_Shape_Access; 109 Control : in out AMF.Visitors.Traverse_Control) is null; 110 111 not overriding procedure Visit_UML_Compartment 112 (Self : in out UMLDI_Iterator; 113 Visitor : in out AMF.Visitors.Abstract_Visitor'Class; 114 Element : not null AMF.UMLDI.UML_Compartments.UMLDI_UML_Compartment_Access; 115 Control : in out AMF.Visitors.Traverse_Control) is null; 116 117 not overriding procedure Visit_UML_Compartmentable_Shape 118 (Self : in out UMLDI_Iterator; 119 Visitor : in out AMF.Visitors.Abstract_Visitor'Class; 120 Element : not null AMF.UMLDI.UML_Compartmentable_Shapes.UMLDI_UML_Compartmentable_Shape_Access; 121 Control : in out AMF.Visitors.Traverse_Control) is null; 122 123 not overriding procedure Visit_UML_Component_Diagram 124 (Self : in out UMLDI_Iterator; 125 Visitor : in out AMF.Visitors.Abstract_Visitor'Class; 126 Element : not null AMF.UMLDI.UML_Component_Diagrams.UMLDI_UML_Component_Diagram_Access; 127 Control : in out AMF.Visitors.Traverse_Control) is null; 128 129 not overriding procedure Visit_UML_Composite_Structure_Diagram 130 (Self : in out UMLDI_Iterator; 131 Visitor : in out AMF.Visitors.Abstract_Visitor'Class; 132 Element : not null AMF.UMLDI.UML_Composite_Structure_Diagrams.UMLDI_UML_Composite_Structure_Diagram_Access; 133 Control : in out AMF.Visitors.Traverse_Control) is null; 134 135 not overriding procedure Visit_UML_Deployment_Diagram 136 (Self : in out UMLDI_Iterator; 137 Visitor : in out AMF.Visitors.Abstract_Visitor'Class; 138 Element : not null AMF.UMLDI.UML_Deployment_Diagrams.UMLDI_UML_Deployment_Diagram_Access; 139 Control : in out AMF.Visitors.Traverse_Control) is null; 140 141 not overriding procedure Visit_UML_Edge 142 (Self : in out UMLDI_Iterator; 143 Visitor : in out AMF.Visitors.Abstract_Visitor'Class; 144 Element : not null AMF.UMLDI.UML_Edges.UMLDI_UML_Edge_Access; 145 Control : in out AMF.Visitors.Traverse_Control) is null; 146 147 not overriding procedure Visit_UML_Interaction_Diagram 148 (Self : in out UMLDI_Iterator; 149 Visitor : in out AMF.Visitors.Abstract_Visitor'Class; 150 Element : not null AMF.UMLDI.UML_Interaction_Diagrams.UMLDI_UML_Interaction_Diagram_Access; 151 Control : in out AMF.Visitors.Traverse_Control) is null; 152 153 not overriding procedure Visit_UML_Interaction_Table_Label 154 (Self : in out UMLDI_Iterator; 155 Visitor : in out AMF.Visitors.Abstract_Visitor'Class; 156 Element : not null AMF.UMLDI.UML_Interaction_Table_Labels.UMLDI_UML_Interaction_Table_Label_Access; 157 Control : in out AMF.Visitors.Traverse_Control) is null; 158 159 not overriding procedure Visit_UML_Keyword_Label 160 (Self : in out UMLDI_Iterator; 161 Visitor : in out AMF.Visitors.Abstract_Visitor'Class; 162 Element : not null AMF.UMLDI.UML_Keyword_Labels.UMLDI_UML_Keyword_Label_Access; 163 Control : in out AMF.Visitors.Traverse_Control) is null; 164 165 not overriding procedure Visit_UML_Label 166 (Self : in out UMLDI_Iterator; 167 Visitor : in out AMF.Visitors.Abstract_Visitor'Class; 168 Element : not null AMF.UMLDI.UML_Labels.UMLDI_UML_Label_Access; 169 Control : in out AMF.Visitors.Traverse_Control) is null; 170 171 not overriding procedure Visit_UML_Multiplicity_Label 172 (Self : in out UMLDI_Iterator; 173 Visitor : in out AMF.Visitors.Abstract_Visitor'Class; 174 Element : not null AMF.UMLDI.UML_Multiplicity_Labels.UMLDI_UML_Multiplicity_Label_Access; 175 Control : in out AMF.Visitors.Traverse_Control) is null; 176 177 not overriding procedure Visit_UML_Name_Label 178 (Self : in out UMLDI_Iterator; 179 Visitor : in out AMF.Visitors.Abstract_Visitor'Class; 180 Element : not null AMF.UMLDI.UML_Name_Labels.UMLDI_UML_Name_Label_Access; 181 Control : in out AMF.Visitors.Traverse_Control) is null; 182 183 not overriding procedure Visit_UML_Object_Diagram 184 (Self : in out UMLDI_Iterator; 185 Visitor : in out AMF.Visitors.Abstract_Visitor'Class; 186 Element : not null AMF.UMLDI.UML_Object_Diagrams.UMLDI_UML_Object_Diagram_Access; 187 Control : in out AMF.Visitors.Traverse_Control) is null; 188 189 not overriding procedure Visit_UML_Package_Diagram 190 (Self : in out UMLDI_Iterator; 191 Visitor : in out AMF.Visitors.Abstract_Visitor'Class; 192 Element : not null AMF.UMLDI.UML_Package_Diagrams.UMLDI_UML_Package_Diagram_Access; 193 Control : in out AMF.Visitors.Traverse_Control) is null; 194 195 not overriding procedure Visit_UML_Profile_Diagram 196 (Self : in out UMLDI_Iterator; 197 Visitor : in out AMF.Visitors.Abstract_Visitor'Class; 198 Element : not null AMF.UMLDI.UML_Profile_Diagrams.UMLDI_UML_Profile_Diagram_Access; 199 Control : in out AMF.Visitors.Traverse_Control) is null; 200 201 not overriding procedure Visit_UML_Redefines_Label 202 (Self : in out UMLDI_Iterator; 203 Visitor : in out AMF.Visitors.Abstract_Visitor'Class; 204 Element : not null AMF.UMLDI.UML_Redefines_Labels.UMLDI_UML_Redefines_Label_Access; 205 Control : in out AMF.Visitors.Traverse_Control) is null; 206 207 not overriding procedure Visit_UML_Shape 208 (Self : in out UMLDI_Iterator; 209 Visitor : in out AMF.Visitors.Abstract_Visitor'Class; 210 Element : not null AMF.UMLDI.UML_Shapes.UMLDI_UML_Shape_Access; 211 Control : in out AMF.Visitors.Traverse_Control) is null; 212 213 not overriding procedure Visit_UML_State_Machine_Diagram 214 (Self : in out UMLDI_Iterator; 215 Visitor : in out AMF.Visitors.Abstract_Visitor'Class; 216 Element : not null AMF.UMLDI.UML_State_Machine_Diagrams.UMLDI_UML_State_Machine_Diagram_Access; 217 Control : in out AMF.Visitors.Traverse_Control) is null; 218 219 not overriding procedure Visit_UML_State_Shape 220 (Self : in out UMLDI_Iterator; 221 Visitor : in out AMF.Visitors.Abstract_Visitor'Class; 222 Element : not null AMF.UMLDI.UML_State_Shapes.UMLDI_UML_State_Shape_Access; 223 Control : in out AMF.Visitors.Traverse_Control) is null; 224 225 not overriding procedure Visit_UML_Stereotype_Property_Value_Label 226 (Self : in out UMLDI_Iterator; 227 Visitor : in out AMF.Visitors.Abstract_Visitor'Class; 228 Element : not null AMF.UMLDI.UML_Stereotype_Property_Value_Labels.UMLDI_UML_Stereotype_Property_Value_Label_Access; 229 Control : in out AMF.Visitors.Traverse_Control) is null; 230 231 not overriding procedure Visit_UML_Style 232 (Self : in out UMLDI_Iterator; 233 Visitor : in out AMF.Visitors.Abstract_Visitor'Class; 234 Element : not null AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access; 235 Control : in out AMF.Visitors.Traverse_Control) is null; 236 237 not overriding procedure Visit_UML_Typed_Element_Label 238 (Self : in out UMLDI_Iterator; 239 Visitor : in out AMF.Visitors.Abstract_Visitor'Class; 240 Element : not null AMF.UMLDI.UML_Typed_Element_Labels.UMLDI_UML_Typed_Element_Label_Access; 241 Control : in out AMF.Visitors.Traverse_Control) is null; 242 243 not overriding procedure Visit_UML_Use_Case_Diagram 244 (Self : in out UMLDI_Iterator; 245 Visitor : in out AMF.Visitors.Abstract_Visitor'Class; 246 Element : not null AMF.UMLDI.UML_Use_Case_Diagrams.UMLDI_UML_Use_Case_Diagram_Access; 247 Control : in out AMF.Visitors.Traverse_Control) is null; 248 249end AMF.Visitors.UMLDI_Iterators; 250