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_Visitors is 76 77 pragma Preelaborate; 78 79 type UMLDI_Visitor is limited interface and AMF.Visitors.Abstract_Visitor; 80 81 not overriding procedure Enter_UML_Activity_Diagram 82 (Self : in out UMLDI_Visitor; 83 Element : not null AMF.UMLDI.UML_Activity_Diagrams.UMLDI_UML_Activity_Diagram_Access; 84 Control : in out AMF.Visitors.Traverse_Control) is null; 85 86 not overriding procedure Leave_UML_Activity_Diagram 87 (Self : in out UMLDI_Visitor; 88 Element : not null AMF.UMLDI.UML_Activity_Diagrams.UMLDI_UML_Activity_Diagram_Access; 89 Control : in out AMF.Visitors.Traverse_Control) is null; 90 91 not overriding procedure Enter_UML_Association_End_Label 92 (Self : in out UMLDI_Visitor; 93 Element : not null AMF.UMLDI.UML_Association_End_Labels.UMLDI_UML_Association_End_Label_Access; 94 Control : in out AMF.Visitors.Traverse_Control) is null; 95 96 not overriding procedure Leave_UML_Association_End_Label 97 (Self : in out UMLDI_Visitor; 98 Element : not null AMF.UMLDI.UML_Association_End_Labels.UMLDI_UML_Association_End_Label_Access; 99 Control : in out AMF.Visitors.Traverse_Control) is null; 100 101 not overriding procedure Enter_UML_Association_Or_Connector_Or_Link_Shape 102 (Self : in out UMLDI_Visitor; 103 Element : not null AMF.UMLDI.UML_Association_Or_Connector_Or_Link_Shapes.UMLDI_UML_Association_Or_Connector_Or_Link_Shape_Access; 104 Control : in out AMF.Visitors.Traverse_Control) is null; 105 106 not overriding procedure Leave_UML_Association_Or_Connector_Or_Link_Shape 107 (Self : in out UMLDI_Visitor; 108 Element : not null AMF.UMLDI.UML_Association_Or_Connector_Or_Link_Shapes.UMLDI_UML_Association_Or_Connector_Or_Link_Shape_Access; 109 Control : in out AMF.Visitors.Traverse_Control) is null; 110 111 not overriding procedure Enter_UML_Class_Diagram 112 (Self : in out UMLDI_Visitor; 113 Element : not null AMF.UMLDI.UML_Class_Diagrams.UMLDI_UML_Class_Diagram_Access; 114 Control : in out AMF.Visitors.Traverse_Control) is null; 115 116 not overriding procedure Leave_UML_Class_Diagram 117 (Self : in out UMLDI_Visitor; 118 Element : not null AMF.UMLDI.UML_Class_Diagrams.UMLDI_UML_Class_Diagram_Access; 119 Control : in out AMF.Visitors.Traverse_Control) is null; 120 121 not overriding procedure Enter_UML_Classifier_Shape 122 (Self : in out UMLDI_Visitor; 123 Element : not null AMF.UMLDI.UML_Classifier_Shapes.UMLDI_UML_Classifier_Shape_Access; 124 Control : in out AMF.Visitors.Traverse_Control) is null; 125 126 not overriding procedure Leave_UML_Classifier_Shape 127 (Self : in out UMLDI_Visitor; 128 Element : not null AMF.UMLDI.UML_Classifier_Shapes.UMLDI_UML_Classifier_Shape_Access; 129 Control : in out AMF.Visitors.Traverse_Control) is null; 130 131 not overriding procedure Enter_UML_Compartment 132 (Self : in out UMLDI_Visitor; 133 Element : not null AMF.UMLDI.UML_Compartments.UMLDI_UML_Compartment_Access; 134 Control : in out AMF.Visitors.Traverse_Control) is null; 135 136 not overriding procedure Leave_UML_Compartment 137 (Self : in out UMLDI_Visitor; 138 Element : not null AMF.UMLDI.UML_Compartments.UMLDI_UML_Compartment_Access; 139 Control : in out AMF.Visitors.Traverse_Control) is null; 140 141 not overriding procedure Enter_UML_Compartmentable_Shape 142 (Self : in out UMLDI_Visitor; 143 Element : not null AMF.UMLDI.UML_Compartmentable_Shapes.UMLDI_UML_Compartmentable_Shape_Access; 144 Control : in out AMF.Visitors.Traverse_Control) is null; 145 146 not overriding procedure Leave_UML_Compartmentable_Shape 147 (Self : in out UMLDI_Visitor; 148 Element : not null AMF.UMLDI.UML_Compartmentable_Shapes.UMLDI_UML_Compartmentable_Shape_Access; 149 Control : in out AMF.Visitors.Traverse_Control) is null; 150 151 not overriding procedure Enter_UML_Component_Diagram 152 (Self : in out UMLDI_Visitor; 153 Element : not null AMF.UMLDI.UML_Component_Diagrams.UMLDI_UML_Component_Diagram_Access; 154 Control : in out AMF.Visitors.Traverse_Control) is null; 155 156 not overriding procedure Leave_UML_Component_Diagram 157 (Self : in out UMLDI_Visitor; 158 Element : not null AMF.UMLDI.UML_Component_Diagrams.UMLDI_UML_Component_Diagram_Access; 159 Control : in out AMF.Visitors.Traverse_Control) is null; 160 161 not overriding procedure Enter_UML_Composite_Structure_Diagram 162 (Self : in out UMLDI_Visitor; 163 Element : not null AMF.UMLDI.UML_Composite_Structure_Diagrams.UMLDI_UML_Composite_Structure_Diagram_Access; 164 Control : in out AMF.Visitors.Traverse_Control) is null; 165 166 not overriding procedure Leave_UML_Composite_Structure_Diagram 167 (Self : in out UMLDI_Visitor; 168 Element : not null AMF.UMLDI.UML_Composite_Structure_Diagrams.UMLDI_UML_Composite_Structure_Diagram_Access; 169 Control : in out AMF.Visitors.Traverse_Control) is null; 170 171 not overriding procedure Enter_UML_Deployment_Diagram 172 (Self : in out UMLDI_Visitor; 173 Element : not null AMF.UMLDI.UML_Deployment_Diagrams.UMLDI_UML_Deployment_Diagram_Access; 174 Control : in out AMF.Visitors.Traverse_Control) is null; 175 176 not overriding procedure Leave_UML_Deployment_Diagram 177 (Self : in out UMLDI_Visitor; 178 Element : not null AMF.UMLDI.UML_Deployment_Diagrams.UMLDI_UML_Deployment_Diagram_Access; 179 Control : in out AMF.Visitors.Traverse_Control) is null; 180 181 not overriding procedure Enter_UML_Edge 182 (Self : in out UMLDI_Visitor; 183 Element : not null AMF.UMLDI.UML_Edges.UMLDI_UML_Edge_Access; 184 Control : in out AMF.Visitors.Traverse_Control) is null; 185 186 not overriding procedure Leave_UML_Edge 187 (Self : in out UMLDI_Visitor; 188 Element : not null AMF.UMLDI.UML_Edges.UMLDI_UML_Edge_Access; 189 Control : in out AMF.Visitors.Traverse_Control) is null; 190 191 not overriding procedure Enter_UML_Interaction_Diagram 192 (Self : in out UMLDI_Visitor; 193 Element : not null AMF.UMLDI.UML_Interaction_Diagrams.UMLDI_UML_Interaction_Diagram_Access; 194 Control : in out AMF.Visitors.Traverse_Control) is null; 195 196 not overriding procedure Leave_UML_Interaction_Diagram 197 (Self : in out UMLDI_Visitor; 198 Element : not null AMF.UMLDI.UML_Interaction_Diagrams.UMLDI_UML_Interaction_Diagram_Access; 199 Control : in out AMF.Visitors.Traverse_Control) is null; 200 201 not overriding procedure Enter_UML_Interaction_Table_Label 202 (Self : in out UMLDI_Visitor; 203 Element : not null AMF.UMLDI.UML_Interaction_Table_Labels.UMLDI_UML_Interaction_Table_Label_Access; 204 Control : in out AMF.Visitors.Traverse_Control) is null; 205 206 not overriding procedure Leave_UML_Interaction_Table_Label 207 (Self : in out UMLDI_Visitor; 208 Element : not null AMF.UMLDI.UML_Interaction_Table_Labels.UMLDI_UML_Interaction_Table_Label_Access; 209 Control : in out AMF.Visitors.Traverse_Control) is null; 210 211 not overriding procedure Enter_UML_Keyword_Label 212 (Self : in out UMLDI_Visitor; 213 Element : not null AMF.UMLDI.UML_Keyword_Labels.UMLDI_UML_Keyword_Label_Access; 214 Control : in out AMF.Visitors.Traverse_Control) is null; 215 216 not overriding procedure Leave_UML_Keyword_Label 217 (Self : in out UMLDI_Visitor; 218 Element : not null AMF.UMLDI.UML_Keyword_Labels.UMLDI_UML_Keyword_Label_Access; 219 Control : in out AMF.Visitors.Traverse_Control) is null; 220 221 not overriding procedure Enter_UML_Label 222 (Self : in out UMLDI_Visitor; 223 Element : not null AMF.UMLDI.UML_Labels.UMLDI_UML_Label_Access; 224 Control : in out AMF.Visitors.Traverse_Control) is null; 225 226 not overriding procedure Leave_UML_Label 227 (Self : in out UMLDI_Visitor; 228 Element : not null AMF.UMLDI.UML_Labels.UMLDI_UML_Label_Access; 229 Control : in out AMF.Visitors.Traverse_Control) is null; 230 231 not overriding procedure Enter_UML_Multiplicity_Label 232 (Self : in out UMLDI_Visitor; 233 Element : not null AMF.UMLDI.UML_Multiplicity_Labels.UMLDI_UML_Multiplicity_Label_Access; 234 Control : in out AMF.Visitors.Traverse_Control) is null; 235 236 not overriding procedure Leave_UML_Multiplicity_Label 237 (Self : in out UMLDI_Visitor; 238 Element : not null AMF.UMLDI.UML_Multiplicity_Labels.UMLDI_UML_Multiplicity_Label_Access; 239 Control : in out AMF.Visitors.Traverse_Control) is null; 240 241 not overriding procedure Enter_UML_Name_Label 242 (Self : in out UMLDI_Visitor; 243 Element : not null AMF.UMLDI.UML_Name_Labels.UMLDI_UML_Name_Label_Access; 244 Control : in out AMF.Visitors.Traverse_Control) is null; 245 246 not overriding procedure Leave_UML_Name_Label 247 (Self : in out UMLDI_Visitor; 248 Element : not null AMF.UMLDI.UML_Name_Labels.UMLDI_UML_Name_Label_Access; 249 Control : in out AMF.Visitors.Traverse_Control) is null; 250 251 not overriding procedure Enter_UML_Object_Diagram 252 (Self : in out UMLDI_Visitor; 253 Element : not null AMF.UMLDI.UML_Object_Diagrams.UMLDI_UML_Object_Diagram_Access; 254 Control : in out AMF.Visitors.Traverse_Control) is null; 255 256 not overriding procedure Leave_UML_Object_Diagram 257 (Self : in out UMLDI_Visitor; 258 Element : not null AMF.UMLDI.UML_Object_Diagrams.UMLDI_UML_Object_Diagram_Access; 259 Control : in out AMF.Visitors.Traverse_Control) is null; 260 261 not overriding procedure Enter_UML_Package_Diagram 262 (Self : in out UMLDI_Visitor; 263 Element : not null AMF.UMLDI.UML_Package_Diagrams.UMLDI_UML_Package_Diagram_Access; 264 Control : in out AMF.Visitors.Traverse_Control) is null; 265 266 not overriding procedure Leave_UML_Package_Diagram 267 (Self : in out UMLDI_Visitor; 268 Element : not null AMF.UMLDI.UML_Package_Diagrams.UMLDI_UML_Package_Diagram_Access; 269 Control : in out AMF.Visitors.Traverse_Control) is null; 270 271 not overriding procedure Enter_UML_Profile_Diagram 272 (Self : in out UMLDI_Visitor; 273 Element : not null AMF.UMLDI.UML_Profile_Diagrams.UMLDI_UML_Profile_Diagram_Access; 274 Control : in out AMF.Visitors.Traverse_Control) is null; 275 276 not overriding procedure Leave_UML_Profile_Diagram 277 (Self : in out UMLDI_Visitor; 278 Element : not null AMF.UMLDI.UML_Profile_Diagrams.UMLDI_UML_Profile_Diagram_Access; 279 Control : in out AMF.Visitors.Traverse_Control) is null; 280 281 not overriding procedure Enter_UML_Redefines_Label 282 (Self : in out UMLDI_Visitor; 283 Element : not null AMF.UMLDI.UML_Redefines_Labels.UMLDI_UML_Redefines_Label_Access; 284 Control : in out AMF.Visitors.Traverse_Control) is null; 285 286 not overriding procedure Leave_UML_Redefines_Label 287 (Self : in out UMLDI_Visitor; 288 Element : not null AMF.UMLDI.UML_Redefines_Labels.UMLDI_UML_Redefines_Label_Access; 289 Control : in out AMF.Visitors.Traverse_Control) is null; 290 291 not overriding procedure Enter_UML_Shape 292 (Self : in out UMLDI_Visitor; 293 Element : not null AMF.UMLDI.UML_Shapes.UMLDI_UML_Shape_Access; 294 Control : in out AMF.Visitors.Traverse_Control) is null; 295 296 not overriding procedure Leave_UML_Shape 297 (Self : in out UMLDI_Visitor; 298 Element : not null AMF.UMLDI.UML_Shapes.UMLDI_UML_Shape_Access; 299 Control : in out AMF.Visitors.Traverse_Control) is null; 300 301 not overriding procedure Enter_UML_State_Machine_Diagram 302 (Self : in out UMLDI_Visitor; 303 Element : not null AMF.UMLDI.UML_State_Machine_Diagrams.UMLDI_UML_State_Machine_Diagram_Access; 304 Control : in out AMF.Visitors.Traverse_Control) is null; 305 306 not overriding procedure Leave_UML_State_Machine_Diagram 307 (Self : in out UMLDI_Visitor; 308 Element : not null AMF.UMLDI.UML_State_Machine_Diagrams.UMLDI_UML_State_Machine_Diagram_Access; 309 Control : in out AMF.Visitors.Traverse_Control) is null; 310 311 not overriding procedure Enter_UML_State_Shape 312 (Self : in out UMLDI_Visitor; 313 Element : not null AMF.UMLDI.UML_State_Shapes.UMLDI_UML_State_Shape_Access; 314 Control : in out AMF.Visitors.Traverse_Control) is null; 315 316 not overriding procedure Leave_UML_State_Shape 317 (Self : in out UMLDI_Visitor; 318 Element : not null AMF.UMLDI.UML_State_Shapes.UMLDI_UML_State_Shape_Access; 319 Control : in out AMF.Visitors.Traverse_Control) is null; 320 321 not overriding procedure Enter_UML_Stereotype_Property_Value_Label 322 (Self : in out UMLDI_Visitor; 323 Element : not null AMF.UMLDI.UML_Stereotype_Property_Value_Labels.UMLDI_UML_Stereotype_Property_Value_Label_Access; 324 Control : in out AMF.Visitors.Traverse_Control) is null; 325 326 not overriding procedure Leave_UML_Stereotype_Property_Value_Label 327 (Self : in out UMLDI_Visitor; 328 Element : not null AMF.UMLDI.UML_Stereotype_Property_Value_Labels.UMLDI_UML_Stereotype_Property_Value_Label_Access; 329 Control : in out AMF.Visitors.Traverse_Control) is null; 330 331 not overriding procedure Enter_UML_Style 332 (Self : in out UMLDI_Visitor; 333 Element : not null AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access; 334 Control : in out AMF.Visitors.Traverse_Control) is null; 335 336 not overriding procedure Leave_UML_Style 337 (Self : in out UMLDI_Visitor; 338 Element : not null AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access; 339 Control : in out AMF.Visitors.Traverse_Control) is null; 340 341 not overriding procedure Enter_UML_Typed_Element_Label 342 (Self : in out UMLDI_Visitor; 343 Element : not null AMF.UMLDI.UML_Typed_Element_Labels.UMLDI_UML_Typed_Element_Label_Access; 344 Control : in out AMF.Visitors.Traverse_Control) is null; 345 346 not overriding procedure Leave_UML_Typed_Element_Label 347 (Self : in out UMLDI_Visitor; 348 Element : not null AMF.UMLDI.UML_Typed_Element_Labels.UMLDI_UML_Typed_Element_Label_Access; 349 Control : in out AMF.Visitors.Traverse_Control) is null; 350 351 not overriding procedure Enter_UML_Use_Case_Diagram 352 (Self : in out UMLDI_Visitor; 353 Element : not null AMF.UMLDI.UML_Use_Case_Diagrams.UMLDI_UML_Use_Case_Diagram_Access; 354 Control : in out AMF.Visitors.Traverse_Control) is null; 355 356 not overriding procedure Leave_UML_Use_Case_Diagram 357 (Self : in out UMLDI_Visitor; 358 Element : not null AMF.UMLDI.UML_Use_Case_Diagrams.UMLDI_UML_Use_Case_Diagram_Access; 359 Control : in out AMF.Visitors.Traverse_Control) is null; 360 361end AMF.Visitors.UMLDI_Visitors; 362