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: 2630 $ $Date: 2012-03-18 10:48:24 +0400 (Sun, 18 Mar 2012) $
43------------------------------------------------------------------------------
44--  This file is generated, don't edit it.
45------------------------------------------------------------------------------
46with AMF.UML.Abstractions;
47with AMF.UML.Accept_Call_Actions;
48with AMF.UML.Accept_Event_Actions;
49with AMF.UML.Action_Execution_Specifications;
50with AMF.UML.Action_Input_Pins;
51with AMF.UML.Activities;
52with AMF.UML.Activity_Final_Nodes;
53with AMF.UML.Activity_Parameter_Nodes;
54with AMF.UML.Activity_Partitions;
55with AMF.UML.Actors;
56with AMF.UML.Add_Structural_Feature_Value_Actions;
57with AMF.UML.Add_Variable_Value_Actions;
58with AMF.UML.Any_Receive_Events;
59with AMF.UML.Artifacts;
60with AMF.UML.Association_Classes;
61with AMF.UML.Associations;
62with AMF.UML.Behavior_Execution_Specifications;
63with AMF.UML.Broadcast_Signal_Actions;
64with AMF.UML.Call_Behavior_Actions;
65with AMF.UML.Call_Events;
66with AMF.UML.Call_Operation_Actions;
67with AMF.UML.Central_Buffer_Nodes;
68with AMF.UML.Change_Events;
69with AMF.UML.Classes;
70with AMF.UML.Classifier_Template_Parameters;
71with AMF.UML.Clauses;
72with AMF.UML.Clear_Association_Actions;
73with AMF.UML.Clear_Structural_Feature_Actions;
74with AMF.UML.Clear_Variable_Actions;
75with AMF.UML.Collaboration_Uses;
76with AMF.UML.Collaborations;
77with AMF.UML.Combined_Fragments;
78with AMF.UML.Comments;
79with AMF.UML.Communication_Paths;
80with AMF.UML.Component_Realizations;
81with AMF.UML.Components;
82with AMF.UML.Conditional_Nodes;
83with AMF.UML.Connectable_Element_Template_Parameters;
84with AMF.UML.Connection_Point_References;
85with AMF.UML.Connector_Ends;
86with AMF.UML.Connectors;
87with AMF.UML.Consider_Ignore_Fragments;
88with AMF.UML.Constraints;
89with AMF.UML.Continuations;
90with AMF.UML.Control_Flows;
91with AMF.UML.Create_Link_Actions;
92with AMF.UML.Create_Link_Object_Actions;
93with AMF.UML.Create_Object_Actions;
94with AMF.UML.Data_Store_Nodes;
95with AMF.UML.Data_Types;
96with AMF.UML.Decision_Nodes;
97with AMF.UML.Dependencies;
98with AMF.UML.Deployment_Specifications;
99with AMF.UML.Deployments;
100with AMF.UML.Destroy_Link_Actions;
101with AMF.UML.Destroy_Object_Actions;
102with AMF.UML.Destruction_Occurrence_Specifications;
103with AMF.UML.Devices;
104with AMF.UML.Duration_Constraints;
105with AMF.UML.Duration_Intervals;
106with AMF.UML.Duration_Observations;
107with AMF.UML.Durations;
108with AMF.UML.Element_Imports;
109with AMF.UML.Enumeration_Literals;
110with AMF.UML.Enumerations;
111with AMF.UML.Exception_Handlers;
112with AMF.UML.Execution_Environments;
113with AMF.UML.Execution_Occurrence_Specifications;
114with AMF.UML.Expansion_Nodes;
115with AMF.UML.Expansion_Regions;
116with AMF.UML.Expressions;
117with AMF.UML.Extends;
118with AMF.UML.Extension_Ends;
119with AMF.UML.Extension_Points;
120with AMF.UML.Extensions;
121with AMF.UML.Final_States;
122with AMF.UML.Flow_Final_Nodes;
123with AMF.UML.Fork_Nodes;
124with AMF.UML.Function_Behaviors;
125with AMF.UML.Gates;
126with AMF.UML.General_Orderings;
127with AMF.UML.Generalization_Sets;
128with AMF.UML.Generalizations;
129with AMF.UML.Images;
130with AMF.UML.Includes;
131with AMF.UML.Information_Flows;
132with AMF.UML.Information_Items;
133with AMF.UML.Initial_Nodes;
134with AMF.UML.Input_Pins;
135with AMF.UML.Instance_Specifications;
136with AMF.UML.Instance_Values;
137with AMF.UML.Interaction_Constraints;
138with AMF.UML.Interaction_Operands;
139with AMF.UML.Interaction_Uses;
140with AMF.UML.Interactions;
141with AMF.UML.Interface_Realizations;
142with AMF.UML.Interfaces;
143with AMF.UML.Interruptible_Activity_Regions;
144with AMF.UML.Interval_Constraints;
145with AMF.UML.Intervals;
146with AMF.UML.Join_Nodes;
147with AMF.UML.Lifelines;
148with AMF.UML.Link_End_Creation_Datas;
149with AMF.UML.Link_End_Datas;
150with AMF.UML.Link_End_Destruction_Datas;
151with AMF.UML.Literal_Booleans;
152with AMF.UML.Literal_Integers;
153with AMF.UML.Literal_Nulls;
154with AMF.UML.Literal_Reals;
155with AMF.UML.Literal_Strings;
156with AMF.UML.Literal_Unlimited_Naturals;
157with AMF.UML.Loop_Nodes;
158with AMF.UML.Manifestations;
159with AMF.UML.Merge_Nodes;
160with AMF.UML.Message_Occurrence_Specifications;
161with AMF.UML.Messages;
162with AMF.UML.Models;
163with AMF.UML.Nodes;
164with AMF.UML.Object_Flows;
165with AMF.UML.Occurrence_Specifications;
166with AMF.UML.Opaque_Actions;
167with AMF.UML.Opaque_Behaviors;
168with AMF.UML.Opaque_Expressions;
169with AMF.UML.Operation_Template_Parameters;
170with AMF.UML.Operations;
171with AMF.UML.Output_Pins;
172with AMF.UML.Package_Imports;
173with AMF.UML.Package_Merges;
174with AMF.UML.Packages;
175with AMF.UML.Parameter_Sets;
176with AMF.UML.Parameters;
177with AMF.UML.Part_Decompositions;
178with AMF.UML.Ports;
179with AMF.UML.Primitive_Types;
180with AMF.UML.Profile_Applications;
181with AMF.UML.Profiles;
182with AMF.UML.Properties;
183with AMF.UML.Protocol_Conformances;
184with AMF.UML.Protocol_State_Machines;
185with AMF.UML.Protocol_Transitions;
186with AMF.UML.Pseudostates;
187with AMF.UML.Qualifier_Values;
188with AMF.UML.Raise_Exception_Actions;
189with AMF.UML.Read_Extent_Actions;
190with AMF.UML.Read_Is_Classified_Object_Actions;
191with AMF.UML.Read_Link_Actions;
192with AMF.UML.Read_Link_Object_End_Actions;
193with AMF.UML.Read_Link_Object_End_Qualifier_Actions;
194with AMF.UML.Read_Self_Actions;
195with AMF.UML.Read_Structural_Feature_Actions;
196with AMF.UML.Read_Variable_Actions;
197with AMF.UML.Realizations;
198with AMF.UML.Receptions;
199with AMF.UML.Reclassify_Object_Actions;
200with AMF.UML.Redefinable_Template_Signatures;
201with AMF.UML.Reduce_Actions;
202with AMF.UML.Regions;
203with AMF.UML.Remove_Structural_Feature_Value_Actions;
204with AMF.UML.Remove_Variable_Value_Actions;
205with AMF.UML.Reply_Actions;
206with AMF.UML.Send_Object_Actions;
207with AMF.UML.Send_Signal_Actions;
208with AMF.UML.Sequence_Nodes;
209with AMF.UML.Signal_Events;
210with AMF.UML.Signals;
211with AMF.UML.Slots;
212with AMF.UML.Start_Classifier_Behavior_Actions;
213with AMF.UML.Start_Object_Behavior_Actions;
214with AMF.UML.State_Invariants;
215with AMF.UML.State_Machines;
216with AMF.UML.States;
217with AMF.UML.Stereotypes;
218with AMF.UML.String_Expressions;
219with AMF.UML.Structured_Activity_Nodes;
220with AMF.UML.Substitutions;
221with AMF.UML.Template_Bindings;
222with AMF.UML.Template_Parameter_Substitutions;
223with AMF.UML.Template_Parameters;
224with AMF.UML.Template_Signatures;
225with AMF.UML.Test_Identity_Actions;
226with AMF.UML.Time_Constraints;
227with AMF.UML.Time_Events;
228with AMF.UML.Time_Expressions;
229with AMF.UML.Time_Intervals;
230with AMF.UML.Time_Observations;
231with AMF.UML.Transitions;
232with AMF.UML.Triggers;
233with AMF.UML.Unmarshall_Actions;
234with AMF.UML.Usages;
235with AMF.UML.Use_Cases;
236with AMF.UML.Value_Pins;
237with AMF.UML.Value_Specification_Actions;
238with AMF.UML.Variables;
239
240package AMF.Visitors.UML_Visitors is
241
242   pragma Preelaborate;
243
244   type UML_Visitor is limited interface and AMF.Visitors.Abstract_Visitor;
245
246   not overriding procedure Enter_Abstraction
247    (Self    : in out UML_Visitor;
248     Element : not null AMF.UML.Abstractions.UML_Abstraction_Access;
249     Control : in out AMF.Visitors.Traverse_Control) is null;
250
251   not overriding procedure Leave_Abstraction
252    (Self    : in out UML_Visitor;
253     Element : not null AMF.UML.Abstractions.UML_Abstraction_Access;
254     Control : in out AMF.Visitors.Traverse_Control) is null;
255
256   not overriding procedure Enter_Accept_Call_Action
257    (Self    : in out UML_Visitor;
258     Element : not null AMF.UML.Accept_Call_Actions.UML_Accept_Call_Action_Access;
259     Control : in out AMF.Visitors.Traverse_Control) is null;
260
261   not overriding procedure Leave_Accept_Call_Action
262    (Self    : in out UML_Visitor;
263     Element : not null AMF.UML.Accept_Call_Actions.UML_Accept_Call_Action_Access;
264     Control : in out AMF.Visitors.Traverse_Control) is null;
265
266   not overriding procedure Enter_Accept_Event_Action
267    (Self    : in out UML_Visitor;
268     Element : not null AMF.UML.Accept_Event_Actions.UML_Accept_Event_Action_Access;
269     Control : in out AMF.Visitors.Traverse_Control) is null;
270
271   not overriding procedure Leave_Accept_Event_Action
272    (Self    : in out UML_Visitor;
273     Element : not null AMF.UML.Accept_Event_Actions.UML_Accept_Event_Action_Access;
274     Control : in out AMF.Visitors.Traverse_Control) is null;
275
276   not overriding procedure Enter_Action_Execution_Specification
277    (Self    : in out UML_Visitor;
278     Element : not null AMF.UML.Action_Execution_Specifications.UML_Action_Execution_Specification_Access;
279     Control : in out AMF.Visitors.Traverse_Control) is null;
280
281   not overriding procedure Leave_Action_Execution_Specification
282    (Self    : in out UML_Visitor;
283     Element : not null AMF.UML.Action_Execution_Specifications.UML_Action_Execution_Specification_Access;
284     Control : in out AMF.Visitors.Traverse_Control) is null;
285
286   not overriding procedure Enter_Action_Input_Pin
287    (Self    : in out UML_Visitor;
288     Element : not null AMF.UML.Action_Input_Pins.UML_Action_Input_Pin_Access;
289     Control : in out AMF.Visitors.Traverse_Control) is null;
290
291   not overriding procedure Leave_Action_Input_Pin
292    (Self    : in out UML_Visitor;
293     Element : not null AMF.UML.Action_Input_Pins.UML_Action_Input_Pin_Access;
294     Control : in out AMF.Visitors.Traverse_Control) is null;
295
296   not overriding procedure Enter_Activity
297    (Self    : in out UML_Visitor;
298     Element : not null AMF.UML.Activities.UML_Activity_Access;
299     Control : in out AMF.Visitors.Traverse_Control) is null;
300
301   not overriding procedure Leave_Activity
302    (Self    : in out UML_Visitor;
303     Element : not null AMF.UML.Activities.UML_Activity_Access;
304     Control : in out AMF.Visitors.Traverse_Control) is null;
305
306   not overriding procedure Enter_Activity_Final_Node
307    (Self    : in out UML_Visitor;
308     Element : not null AMF.UML.Activity_Final_Nodes.UML_Activity_Final_Node_Access;
309     Control : in out AMF.Visitors.Traverse_Control) is null;
310
311   not overriding procedure Leave_Activity_Final_Node
312    (Self    : in out UML_Visitor;
313     Element : not null AMF.UML.Activity_Final_Nodes.UML_Activity_Final_Node_Access;
314     Control : in out AMF.Visitors.Traverse_Control) is null;
315
316   not overriding procedure Enter_Activity_Parameter_Node
317    (Self    : in out UML_Visitor;
318     Element : not null AMF.UML.Activity_Parameter_Nodes.UML_Activity_Parameter_Node_Access;
319     Control : in out AMF.Visitors.Traverse_Control) is null;
320
321   not overriding procedure Leave_Activity_Parameter_Node
322    (Self    : in out UML_Visitor;
323     Element : not null AMF.UML.Activity_Parameter_Nodes.UML_Activity_Parameter_Node_Access;
324     Control : in out AMF.Visitors.Traverse_Control) is null;
325
326   not overriding procedure Enter_Activity_Partition
327    (Self    : in out UML_Visitor;
328     Element : not null AMF.UML.Activity_Partitions.UML_Activity_Partition_Access;
329     Control : in out AMF.Visitors.Traverse_Control) is null;
330
331   not overriding procedure Leave_Activity_Partition
332    (Self    : in out UML_Visitor;
333     Element : not null AMF.UML.Activity_Partitions.UML_Activity_Partition_Access;
334     Control : in out AMF.Visitors.Traverse_Control) is null;
335
336   not overriding procedure Enter_Actor
337    (Self    : in out UML_Visitor;
338     Element : not null AMF.UML.Actors.UML_Actor_Access;
339     Control : in out AMF.Visitors.Traverse_Control) is null;
340
341   not overriding procedure Leave_Actor
342    (Self    : in out UML_Visitor;
343     Element : not null AMF.UML.Actors.UML_Actor_Access;
344     Control : in out AMF.Visitors.Traverse_Control) is null;
345
346   not overriding procedure Enter_Add_Structural_Feature_Value_Action
347    (Self    : in out UML_Visitor;
348     Element : not null AMF.UML.Add_Structural_Feature_Value_Actions.UML_Add_Structural_Feature_Value_Action_Access;
349     Control : in out AMF.Visitors.Traverse_Control) is null;
350
351   not overriding procedure Leave_Add_Structural_Feature_Value_Action
352    (Self    : in out UML_Visitor;
353     Element : not null AMF.UML.Add_Structural_Feature_Value_Actions.UML_Add_Structural_Feature_Value_Action_Access;
354     Control : in out AMF.Visitors.Traverse_Control) is null;
355
356   not overriding procedure Enter_Add_Variable_Value_Action
357    (Self    : in out UML_Visitor;
358     Element : not null AMF.UML.Add_Variable_Value_Actions.UML_Add_Variable_Value_Action_Access;
359     Control : in out AMF.Visitors.Traverse_Control) is null;
360
361   not overriding procedure Leave_Add_Variable_Value_Action
362    (Self    : in out UML_Visitor;
363     Element : not null AMF.UML.Add_Variable_Value_Actions.UML_Add_Variable_Value_Action_Access;
364     Control : in out AMF.Visitors.Traverse_Control) is null;
365
366   not overriding procedure Enter_Any_Receive_Event
367    (Self    : in out UML_Visitor;
368     Element : not null AMF.UML.Any_Receive_Events.UML_Any_Receive_Event_Access;
369     Control : in out AMF.Visitors.Traverse_Control) is null;
370
371   not overriding procedure Leave_Any_Receive_Event
372    (Self    : in out UML_Visitor;
373     Element : not null AMF.UML.Any_Receive_Events.UML_Any_Receive_Event_Access;
374     Control : in out AMF.Visitors.Traverse_Control) is null;
375
376   not overriding procedure Enter_Artifact
377    (Self    : in out UML_Visitor;
378     Element : not null AMF.UML.Artifacts.UML_Artifact_Access;
379     Control : in out AMF.Visitors.Traverse_Control) is null;
380
381   not overriding procedure Leave_Artifact
382    (Self    : in out UML_Visitor;
383     Element : not null AMF.UML.Artifacts.UML_Artifact_Access;
384     Control : in out AMF.Visitors.Traverse_Control) is null;
385
386   not overriding procedure Enter_Association
387    (Self    : in out UML_Visitor;
388     Element : not null AMF.UML.Associations.UML_Association_Access;
389     Control : in out AMF.Visitors.Traverse_Control) is null;
390
391   not overriding procedure Leave_Association
392    (Self    : in out UML_Visitor;
393     Element : not null AMF.UML.Associations.UML_Association_Access;
394     Control : in out AMF.Visitors.Traverse_Control) is null;
395
396   not overriding procedure Enter_Association_Class
397    (Self    : in out UML_Visitor;
398     Element : not null AMF.UML.Association_Classes.UML_Association_Class_Access;
399     Control : in out AMF.Visitors.Traverse_Control) is null;
400
401   not overriding procedure Leave_Association_Class
402    (Self    : in out UML_Visitor;
403     Element : not null AMF.UML.Association_Classes.UML_Association_Class_Access;
404     Control : in out AMF.Visitors.Traverse_Control) is null;
405
406   not overriding procedure Enter_Behavior_Execution_Specification
407    (Self    : in out UML_Visitor;
408     Element : not null AMF.UML.Behavior_Execution_Specifications.UML_Behavior_Execution_Specification_Access;
409     Control : in out AMF.Visitors.Traverse_Control) is null;
410
411   not overriding procedure Leave_Behavior_Execution_Specification
412    (Self    : in out UML_Visitor;
413     Element : not null AMF.UML.Behavior_Execution_Specifications.UML_Behavior_Execution_Specification_Access;
414     Control : in out AMF.Visitors.Traverse_Control) is null;
415
416   not overriding procedure Enter_Broadcast_Signal_Action
417    (Self    : in out UML_Visitor;
418     Element : not null AMF.UML.Broadcast_Signal_Actions.UML_Broadcast_Signal_Action_Access;
419     Control : in out AMF.Visitors.Traverse_Control) is null;
420
421   not overriding procedure Leave_Broadcast_Signal_Action
422    (Self    : in out UML_Visitor;
423     Element : not null AMF.UML.Broadcast_Signal_Actions.UML_Broadcast_Signal_Action_Access;
424     Control : in out AMF.Visitors.Traverse_Control) is null;
425
426   not overriding procedure Enter_Call_Behavior_Action
427    (Self    : in out UML_Visitor;
428     Element : not null AMF.UML.Call_Behavior_Actions.UML_Call_Behavior_Action_Access;
429     Control : in out AMF.Visitors.Traverse_Control) is null;
430
431   not overriding procedure Leave_Call_Behavior_Action
432    (Self    : in out UML_Visitor;
433     Element : not null AMF.UML.Call_Behavior_Actions.UML_Call_Behavior_Action_Access;
434     Control : in out AMF.Visitors.Traverse_Control) is null;
435
436   not overriding procedure Enter_Call_Event
437    (Self    : in out UML_Visitor;
438     Element : not null AMF.UML.Call_Events.UML_Call_Event_Access;
439     Control : in out AMF.Visitors.Traverse_Control) is null;
440
441   not overriding procedure Leave_Call_Event
442    (Self    : in out UML_Visitor;
443     Element : not null AMF.UML.Call_Events.UML_Call_Event_Access;
444     Control : in out AMF.Visitors.Traverse_Control) is null;
445
446   not overriding procedure Enter_Call_Operation_Action
447    (Self    : in out UML_Visitor;
448     Element : not null AMF.UML.Call_Operation_Actions.UML_Call_Operation_Action_Access;
449     Control : in out AMF.Visitors.Traverse_Control) is null;
450
451   not overriding procedure Leave_Call_Operation_Action
452    (Self    : in out UML_Visitor;
453     Element : not null AMF.UML.Call_Operation_Actions.UML_Call_Operation_Action_Access;
454     Control : in out AMF.Visitors.Traverse_Control) is null;
455
456   not overriding procedure Enter_Central_Buffer_Node
457    (Self    : in out UML_Visitor;
458     Element : not null AMF.UML.Central_Buffer_Nodes.UML_Central_Buffer_Node_Access;
459     Control : in out AMF.Visitors.Traverse_Control) is null;
460
461   not overriding procedure Leave_Central_Buffer_Node
462    (Self    : in out UML_Visitor;
463     Element : not null AMF.UML.Central_Buffer_Nodes.UML_Central_Buffer_Node_Access;
464     Control : in out AMF.Visitors.Traverse_Control) is null;
465
466   not overriding procedure Enter_Change_Event
467    (Self    : in out UML_Visitor;
468     Element : not null AMF.UML.Change_Events.UML_Change_Event_Access;
469     Control : in out AMF.Visitors.Traverse_Control) is null;
470
471   not overriding procedure Leave_Change_Event
472    (Self    : in out UML_Visitor;
473     Element : not null AMF.UML.Change_Events.UML_Change_Event_Access;
474     Control : in out AMF.Visitors.Traverse_Control) is null;
475
476   not overriding procedure Enter_Class
477    (Self    : in out UML_Visitor;
478     Element : not null AMF.UML.Classes.UML_Class_Access;
479     Control : in out AMF.Visitors.Traverse_Control) is null;
480
481   not overriding procedure Leave_Class
482    (Self    : in out UML_Visitor;
483     Element : not null AMF.UML.Classes.UML_Class_Access;
484     Control : in out AMF.Visitors.Traverse_Control) is null;
485
486   not overriding procedure Enter_Classifier_Template_Parameter
487    (Self    : in out UML_Visitor;
488     Element : not null AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access;
489     Control : in out AMF.Visitors.Traverse_Control) is null;
490
491   not overriding procedure Leave_Classifier_Template_Parameter
492    (Self    : in out UML_Visitor;
493     Element : not null AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access;
494     Control : in out AMF.Visitors.Traverse_Control) is null;
495
496   not overriding procedure Enter_Clause
497    (Self    : in out UML_Visitor;
498     Element : not null AMF.UML.Clauses.UML_Clause_Access;
499     Control : in out AMF.Visitors.Traverse_Control) is null;
500
501   not overriding procedure Leave_Clause
502    (Self    : in out UML_Visitor;
503     Element : not null AMF.UML.Clauses.UML_Clause_Access;
504     Control : in out AMF.Visitors.Traverse_Control) is null;
505
506   not overriding procedure Enter_Clear_Association_Action
507    (Self    : in out UML_Visitor;
508     Element : not null AMF.UML.Clear_Association_Actions.UML_Clear_Association_Action_Access;
509     Control : in out AMF.Visitors.Traverse_Control) is null;
510
511   not overriding procedure Leave_Clear_Association_Action
512    (Self    : in out UML_Visitor;
513     Element : not null AMF.UML.Clear_Association_Actions.UML_Clear_Association_Action_Access;
514     Control : in out AMF.Visitors.Traverse_Control) is null;
515
516   not overriding procedure Enter_Clear_Structural_Feature_Action
517    (Self    : in out UML_Visitor;
518     Element : not null AMF.UML.Clear_Structural_Feature_Actions.UML_Clear_Structural_Feature_Action_Access;
519     Control : in out AMF.Visitors.Traverse_Control) is null;
520
521   not overriding procedure Leave_Clear_Structural_Feature_Action
522    (Self    : in out UML_Visitor;
523     Element : not null AMF.UML.Clear_Structural_Feature_Actions.UML_Clear_Structural_Feature_Action_Access;
524     Control : in out AMF.Visitors.Traverse_Control) is null;
525
526   not overriding procedure Enter_Clear_Variable_Action
527    (Self    : in out UML_Visitor;
528     Element : not null AMF.UML.Clear_Variable_Actions.UML_Clear_Variable_Action_Access;
529     Control : in out AMF.Visitors.Traverse_Control) is null;
530
531   not overriding procedure Leave_Clear_Variable_Action
532    (Self    : in out UML_Visitor;
533     Element : not null AMF.UML.Clear_Variable_Actions.UML_Clear_Variable_Action_Access;
534     Control : in out AMF.Visitors.Traverse_Control) is null;
535
536   not overriding procedure Enter_Collaboration
537    (Self    : in out UML_Visitor;
538     Element : not null AMF.UML.Collaborations.UML_Collaboration_Access;
539     Control : in out AMF.Visitors.Traverse_Control) is null;
540
541   not overriding procedure Leave_Collaboration
542    (Self    : in out UML_Visitor;
543     Element : not null AMF.UML.Collaborations.UML_Collaboration_Access;
544     Control : in out AMF.Visitors.Traverse_Control) is null;
545
546   not overriding procedure Enter_Collaboration_Use
547    (Self    : in out UML_Visitor;
548     Element : not null AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access;
549     Control : in out AMF.Visitors.Traverse_Control) is null;
550
551   not overriding procedure Leave_Collaboration_Use
552    (Self    : in out UML_Visitor;
553     Element : not null AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access;
554     Control : in out AMF.Visitors.Traverse_Control) is null;
555
556   not overriding procedure Enter_Combined_Fragment
557    (Self    : in out UML_Visitor;
558     Element : not null AMF.UML.Combined_Fragments.UML_Combined_Fragment_Access;
559     Control : in out AMF.Visitors.Traverse_Control) is null;
560
561   not overriding procedure Leave_Combined_Fragment
562    (Self    : in out UML_Visitor;
563     Element : not null AMF.UML.Combined_Fragments.UML_Combined_Fragment_Access;
564     Control : in out AMF.Visitors.Traverse_Control) is null;
565
566   not overriding procedure Enter_Comment
567    (Self    : in out UML_Visitor;
568     Element : not null AMF.UML.Comments.UML_Comment_Access;
569     Control : in out AMF.Visitors.Traverse_Control) is null;
570
571   not overriding procedure Leave_Comment
572    (Self    : in out UML_Visitor;
573     Element : not null AMF.UML.Comments.UML_Comment_Access;
574     Control : in out AMF.Visitors.Traverse_Control) is null;
575
576   not overriding procedure Enter_Communication_Path
577    (Self    : in out UML_Visitor;
578     Element : not null AMF.UML.Communication_Paths.UML_Communication_Path_Access;
579     Control : in out AMF.Visitors.Traverse_Control) is null;
580
581   not overriding procedure Leave_Communication_Path
582    (Self    : in out UML_Visitor;
583     Element : not null AMF.UML.Communication_Paths.UML_Communication_Path_Access;
584     Control : in out AMF.Visitors.Traverse_Control) is null;
585
586   not overriding procedure Enter_Component
587    (Self    : in out UML_Visitor;
588     Element : not null AMF.UML.Components.UML_Component_Access;
589     Control : in out AMF.Visitors.Traverse_Control) is null;
590
591   not overriding procedure Leave_Component
592    (Self    : in out UML_Visitor;
593     Element : not null AMF.UML.Components.UML_Component_Access;
594     Control : in out AMF.Visitors.Traverse_Control) is null;
595
596   not overriding procedure Enter_Component_Realization
597    (Self    : in out UML_Visitor;
598     Element : not null AMF.UML.Component_Realizations.UML_Component_Realization_Access;
599     Control : in out AMF.Visitors.Traverse_Control) is null;
600
601   not overriding procedure Leave_Component_Realization
602    (Self    : in out UML_Visitor;
603     Element : not null AMF.UML.Component_Realizations.UML_Component_Realization_Access;
604     Control : in out AMF.Visitors.Traverse_Control) is null;
605
606   not overriding procedure Enter_Conditional_Node
607    (Self    : in out UML_Visitor;
608     Element : not null AMF.UML.Conditional_Nodes.UML_Conditional_Node_Access;
609     Control : in out AMF.Visitors.Traverse_Control) is null;
610
611   not overriding procedure Leave_Conditional_Node
612    (Self    : in out UML_Visitor;
613     Element : not null AMF.UML.Conditional_Nodes.UML_Conditional_Node_Access;
614     Control : in out AMF.Visitors.Traverse_Control) is null;
615
616   not overriding procedure Enter_Connectable_Element_Template_Parameter
617    (Self    : in out UML_Visitor;
618     Element : not null AMF.UML.Connectable_Element_Template_Parameters.UML_Connectable_Element_Template_Parameter_Access;
619     Control : in out AMF.Visitors.Traverse_Control) is null;
620
621   not overriding procedure Leave_Connectable_Element_Template_Parameter
622    (Self    : in out UML_Visitor;
623     Element : not null AMF.UML.Connectable_Element_Template_Parameters.UML_Connectable_Element_Template_Parameter_Access;
624     Control : in out AMF.Visitors.Traverse_Control) is null;
625
626   not overriding procedure Enter_Connection_Point_Reference
627    (Self    : in out UML_Visitor;
628     Element : not null AMF.UML.Connection_Point_References.UML_Connection_Point_Reference_Access;
629     Control : in out AMF.Visitors.Traverse_Control) is null;
630
631   not overriding procedure Leave_Connection_Point_Reference
632    (Self    : in out UML_Visitor;
633     Element : not null AMF.UML.Connection_Point_References.UML_Connection_Point_Reference_Access;
634     Control : in out AMF.Visitors.Traverse_Control) is null;
635
636   not overriding procedure Enter_Connector
637    (Self    : in out UML_Visitor;
638     Element : not null AMF.UML.Connectors.UML_Connector_Access;
639     Control : in out AMF.Visitors.Traverse_Control) is null;
640
641   not overriding procedure Leave_Connector
642    (Self    : in out UML_Visitor;
643     Element : not null AMF.UML.Connectors.UML_Connector_Access;
644     Control : in out AMF.Visitors.Traverse_Control) is null;
645
646   not overriding procedure Enter_Connector_End
647    (Self    : in out UML_Visitor;
648     Element : not null AMF.UML.Connector_Ends.UML_Connector_End_Access;
649     Control : in out AMF.Visitors.Traverse_Control) is null;
650
651   not overriding procedure Leave_Connector_End
652    (Self    : in out UML_Visitor;
653     Element : not null AMF.UML.Connector_Ends.UML_Connector_End_Access;
654     Control : in out AMF.Visitors.Traverse_Control) is null;
655
656   not overriding procedure Enter_Consider_Ignore_Fragment
657    (Self    : in out UML_Visitor;
658     Element : not null AMF.UML.Consider_Ignore_Fragments.UML_Consider_Ignore_Fragment_Access;
659     Control : in out AMF.Visitors.Traverse_Control) is null;
660
661   not overriding procedure Leave_Consider_Ignore_Fragment
662    (Self    : in out UML_Visitor;
663     Element : not null AMF.UML.Consider_Ignore_Fragments.UML_Consider_Ignore_Fragment_Access;
664     Control : in out AMF.Visitors.Traverse_Control) is null;
665
666   not overriding procedure Enter_Constraint
667    (Self    : in out UML_Visitor;
668     Element : not null AMF.UML.Constraints.UML_Constraint_Access;
669     Control : in out AMF.Visitors.Traverse_Control) is null;
670
671   not overriding procedure Leave_Constraint
672    (Self    : in out UML_Visitor;
673     Element : not null AMF.UML.Constraints.UML_Constraint_Access;
674     Control : in out AMF.Visitors.Traverse_Control) is null;
675
676   not overriding procedure Enter_Continuation
677    (Self    : in out UML_Visitor;
678     Element : not null AMF.UML.Continuations.UML_Continuation_Access;
679     Control : in out AMF.Visitors.Traverse_Control) is null;
680
681   not overriding procedure Leave_Continuation
682    (Self    : in out UML_Visitor;
683     Element : not null AMF.UML.Continuations.UML_Continuation_Access;
684     Control : in out AMF.Visitors.Traverse_Control) is null;
685
686   not overriding procedure Enter_Control_Flow
687    (Self    : in out UML_Visitor;
688     Element : not null AMF.UML.Control_Flows.UML_Control_Flow_Access;
689     Control : in out AMF.Visitors.Traverse_Control) is null;
690
691   not overriding procedure Leave_Control_Flow
692    (Self    : in out UML_Visitor;
693     Element : not null AMF.UML.Control_Flows.UML_Control_Flow_Access;
694     Control : in out AMF.Visitors.Traverse_Control) is null;
695
696   not overriding procedure Enter_Create_Link_Action
697    (Self    : in out UML_Visitor;
698     Element : not null AMF.UML.Create_Link_Actions.UML_Create_Link_Action_Access;
699     Control : in out AMF.Visitors.Traverse_Control) is null;
700
701   not overriding procedure Leave_Create_Link_Action
702    (Self    : in out UML_Visitor;
703     Element : not null AMF.UML.Create_Link_Actions.UML_Create_Link_Action_Access;
704     Control : in out AMF.Visitors.Traverse_Control) is null;
705
706   not overriding procedure Enter_Create_Link_Object_Action
707    (Self    : in out UML_Visitor;
708     Element : not null AMF.UML.Create_Link_Object_Actions.UML_Create_Link_Object_Action_Access;
709     Control : in out AMF.Visitors.Traverse_Control) is null;
710
711   not overriding procedure Leave_Create_Link_Object_Action
712    (Self    : in out UML_Visitor;
713     Element : not null AMF.UML.Create_Link_Object_Actions.UML_Create_Link_Object_Action_Access;
714     Control : in out AMF.Visitors.Traverse_Control) is null;
715
716   not overriding procedure Enter_Create_Object_Action
717    (Self    : in out UML_Visitor;
718     Element : not null AMF.UML.Create_Object_Actions.UML_Create_Object_Action_Access;
719     Control : in out AMF.Visitors.Traverse_Control) is null;
720
721   not overriding procedure Leave_Create_Object_Action
722    (Self    : in out UML_Visitor;
723     Element : not null AMF.UML.Create_Object_Actions.UML_Create_Object_Action_Access;
724     Control : in out AMF.Visitors.Traverse_Control) is null;
725
726   not overriding procedure Enter_Data_Store_Node
727    (Self    : in out UML_Visitor;
728     Element : not null AMF.UML.Data_Store_Nodes.UML_Data_Store_Node_Access;
729     Control : in out AMF.Visitors.Traverse_Control) is null;
730
731   not overriding procedure Leave_Data_Store_Node
732    (Self    : in out UML_Visitor;
733     Element : not null AMF.UML.Data_Store_Nodes.UML_Data_Store_Node_Access;
734     Control : in out AMF.Visitors.Traverse_Control) is null;
735
736   not overriding procedure Enter_Data_Type
737    (Self    : in out UML_Visitor;
738     Element : not null AMF.UML.Data_Types.UML_Data_Type_Access;
739     Control : in out AMF.Visitors.Traverse_Control) is null;
740
741   not overriding procedure Leave_Data_Type
742    (Self    : in out UML_Visitor;
743     Element : not null AMF.UML.Data_Types.UML_Data_Type_Access;
744     Control : in out AMF.Visitors.Traverse_Control) is null;
745
746   not overriding procedure Enter_Decision_Node
747    (Self    : in out UML_Visitor;
748     Element : not null AMF.UML.Decision_Nodes.UML_Decision_Node_Access;
749     Control : in out AMF.Visitors.Traverse_Control) is null;
750
751   not overriding procedure Leave_Decision_Node
752    (Self    : in out UML_Visitor;
753     Element : not null AMF.UML.Decision_Nodes.UML_Decision_Node_Access;
754     Control : in out AMF.Visitors.Traverse_Control) is null;
755
756   not overriding procedure Enter_Dependency
757    (Self    : in out UML_Visitor;
758     Element : not null AMF.UML.Dependencies.UML_Dependency_Access;
759     Control : in out AMF.Visitors.Traverse_Control) is null;
760
761   not overriding procedure Leave_Dependency
762    (Self    : in out UML_Visitor;
763     Element : not null AMF.UML.Dependencies.UML_Dependency_Access;
764     Control : in out AMF.Visitors.Traverse_Control) is null;
765
766   not overriding procedure Enter_Deployment
767    (Self    : in out UML_Visitor;
768     Element : not null AMF.UML.Deployments.UML_Deployment_Access;
769     Control : in out AMF.Visitors.Traverse_Control) is null;
770
771   not overriding procedure Leave_Deployment
772    (Self    : in out UML_Visitor;
773     Element : not null AMF.UML.Deployments.UML_Deployment_Access;
774     Control : in out AMF.Visitors.Traverse_Control) is null;
775
776   not overriding procedure Enter_Deployment_Specification
777    (Self    : in out UML_Visitor;
778     Element : not null AMF.UML.Deployment_Specifications.UML_Deployment_Specification_Access;
779     Control : in out AMF.Visitors.Traverse_Control) is null;
780
781   not overriding procedure Leave_Deployment_Specification
782    (Self    : in out UML_Visitor;
783     Element : not null AMF.UML.Deployment_Specifications.UML_Deployment_Specification_Access;
784     Control : in out AMF.Visitors.Traverse_Control) is null;
785
786   not overriding procedure Enter_Destroy_Link_Action
787    (Self    : in out UML_Visitor;
788     Element : not null AMF.UML.Destroy_Link_Actions.UML_Destroy_Link_Action_Access;
789     Control : in out AMF.Visitors.Traverse_Control) is null;
790
791   not overriding procedure Leave_Destroy_Link_Action
792    (Self    : in out UML_Visitor;
793     Element : not null AMF.UML.Destroy_Link_Actions.UML_Destroy_Link_Action_Access;
794     Control : in out AMF.Visitors.Traverse_Control) is null;
795
796   not overriding procedure Enter_Destroy_Object_Action
797    (Self    : in out UML_Visitor;
798     Element : not null AMF.UML.Destroy_Object_Actions.UML_Destroy_Object_Action_Access;
799     Control : in out AMF.Visitors.Traverse_Control) is null;
800
801   not overriding procedure Leave_Destroy_Object_Action
802    (Self    : in out UML_Visitor;
803     Element : not null AMF.UML.Destroy_Object_Actions.UML_Destroy_Object_Action_Access;
804     Control : in out AMF.Visitors.Traverse_Control) is null;
805
806   not overriding procedure Enter_Destruction_Occurrence_Specification
807    (Self    : in out UML_Visitor;
808     Element : not null AMF.UML.Destruction_Occurrence_Specifications.UML_Destruction_Occurrence_Specification_Access;
809     Control : in out AMF.Visitors.Traverse_Control) is null;
810
811   not overriding procedure Leave_Destruction_Occurrence_Specification
812    (Self    : in out UML_Visitor;
813     Element : not null AMF.UML.Destruction_Occurrence_Specifications.UML_Destruction_Occurrence_Specification_Access;
814     Control : in out AMF.Visitors.Traverse_Control) is null;
815
816   not overriding procedure Enter_Device
817    (Self    : in out UML_Visitor;
818     Element : not null AMF.UML.Devices.UML_Device_Access;
819     Control : in out AMF.Visitors.Traverse_Control) is null;
820
821   not overriding procedure Leave_Device
822    (Self    : in out UML_Visitor;
823     Element : not null AMF.UML.Devices.UML_Device_Access;
824     Control : in out AMF.Visitors.Traverse_Control) is null;
825
826   not overriding procedure Enter_Duration
827    (Self    : in out UML_Visitor;
828     Element : not null AMF.UML.Durations.UML_Duration_Access;
829     Control : in out AMF.Visitors.Traverse_Control) is null;
830
831   not overriding procedure Leave_Duration
832    (Self    : in out UML_Visitor;
833     Element : not null AMF.UML.Durations.UML_Duration_Access;
834     Control : in out AMF.Visitors.Traverse_Control) is null;
835
836   not overriding procedure Enter_Duration_Constraint
837    (Self    : in out UML_Visitor;
838     Element : not null AMF.UML.Duration_Constraints.UML_Duration_Constraint_Access;
839     Control : in out AMF.Visitors.Traverse_Control) is null;
840
841   not overriding procedure Leave_Duration_Constraint
842    (Self    : in out UML_Visitor;
843     Element : not null AMF.UML.Duration_Constraints.UML_Duration_Constraint_Access;
844     Control : in out AMF.Visitors.Traverse_Control) is null;
845
846   not overriding procedure Enter_Duration_Interval
847    (Self    : in out UML_Visitor;
848     Element : not null AMF.UML.Duration_Intervals.UML_Duration_Interval_Access;
849     Control : in out AMF.Visitors.Traverse_Control) is null;
850
851   not overriding procedure Leave_Duration_Interval
852    (Self    : in out UML_Visitor;
853     Element : not null AMF.UML.Duration_Intervals.UML_Duration_Interval_Access;
854     Control : in out AMF.Visitors.Traverse_Control) is null;
855
856   not overriding procedure Enter_Duration_Observation
857    (Self    : in out UML_Visitor;
858     Element : not null AMF.UML.Duration_Observations.UML_Duration_Observation_Access;
859     Control : in out AMF.Visitors.Traverse_Control) is null;
860
861   not overriding procedure Leave_Duration_Observation
862    (Self    : in out UML_Visitor;
863     Element : not null AMF.UML.Duration_Observations.UML_Duration_Observation_Access;
864     Control : in out AMF.Visitors.Traverse_Control) is null;
865
866   not overriding procedure Enter_Element_Import
867    (Self    : in out UML_Visitor;
868     Element : not null AMF.UML.Element_Imports.UML_Element_Import_Access;
869     Control : in out AMF.Visitors.Traverse_Control) is null;
870
871   not overriding procedure Leave_Element_Import
872    (Self    : in out UML_Visitor;
873     Element : not null AMF.UML.Element_Imports.UML_Element_Import_Access;
874     Control : in out AMF.Visitors.Traverse_Control) is null;
875
876   not overriding procedure Enter_Enumeration
877    (Self    : in out UML_Visitor;
878     Element : not null AMF.UML.Enumerations.UML_Enumeration_Access;
879     Control : in out AMF.Visitors.Traverse_Control) is null;
880
881   not overriding procedure Leave_Enumeration
882    (Self    : in out UML_Visitor;
883     Element : not null AMF.UML.Enumerations.UML_Enumeration_Access;
884     Control : in out AMF.Visitors.Traverse_Control) is null;
885
886   not overriding procedure Enter_Enumeration_Literal
887    (Self    : in out UML_Visitor;
888     Element : not null AMF.UML.Enumeration_Literals.UML_Enumeration_Literal_Access;
889     Control : in out AMF.Visitors.Traverse_Control) is null;
890
891   not overriding procedure Leave_Enumeration_Literal
892    (Self    : in out UML_Visitor;
893     Element : not null AMF.UML.Enumeration_Literals.UML_Enumeration_Literal_Access;
894     Control : in out AMF.Visitors.Traverse_Control) is null;
895
896   not overriding procedure Enter_Exception_Handler
897    (Self    : in out UML_Visitor;
898     Element : not null AMF.UML.Exception_Handlers.UML_Exception_Handler_Access;
899     Control : in out AMF.Visitors.Traverse_Control) is null;
900
901   not overriding procedure Leave_Exception_Handler
902    (Self    : in out UML_Visitor;
903     Element : not null AMF.UML.Exception_Handlers.UML_Exception_Handler_Access;
904     Control : in out AMF.Visitors.Traverse_Control) is null;
905
906   not overriding procedure Enter_Execution_Environment
907    (Self    : in out UML_Visitor;
908     Element : not null AMF.UML.Execution_Environments.UML_Execution_Environment_Access;
909     Control : in out AMF.Visitors.Traverse_Control) is null;
910
911   not overriding procedure Leave_Execution_Environment
912    (Self    : in out UML_Visitor;
913     Element : not null AMF.UML.Execution_Environments.UML_Execution_Environment_Access;
914     Control : in out AMF.Visitors.Traverse_Control) is null;
915
916   not overriding procedure Enter_Execution_Occurrence_Specification
917    (Self    : in out UML_Visitor;
918     Element : not null AMF.UML.Execution_Occurrence_Specifications.UML_Execution_Occurrence_Specification_Access;
919     Control : in out AMF.Visitors.Traverse_Control) is null;
920
921   not overriding procedure Leave_Execution_Occurrence_Specification
922    (Self    : in out UML_Visitor;
923     Element : not null AMF.UML.Execution_Occurrence_Specifications.UML_Execution_Occurrence_Specification_Access;
924     Control : in out AMF.Visitors.Traverse_Control) is null;
925
926   not overriding procedure Enter_Expansion_Node
927    (Self    : in out UML_Visitor;
928     Element : not null AMF.UML.Expansion_Nodes.UML_Expansion_Node_Access;
929     Control : in out AMF.Visitors.Traverse_Control) is null;
930
931   not overriding procedure Leave_Expansion_Node
932    (Self    : in out UML_Visitor;
933     Element : not null AMF.UML.Expansion_Nodes.UML_Expansion_Node_Access;
934     Control : in out AMF.Visitors.Traverse_Control) is null;
935
936   not overriding procedure Enter_Expansion_Region
937    (Self    : in out UML_Visitor;
938     Element : not null AMF.UML.Expansion_Regions.UML_Expansion_Region_Access;
939     Control : in out AMF.Visitors.Traverse_Control) is null;
940
941   not overriding procedure Leave_Expansion_Region
942    (Self    : in out UML_Visitor;
943     Element : not null AMF.UML.Expansion_Regions.UML_Expansion_Region_Access;
944     Control : in out AMF.Visitors.Traverse_Control) is null;
945
946   not overriding procedure Enter_Expression
947    (Self    : in out UML_Visitor;
948     Element : not null AMF.UML.Expressions.UML_Expression_Access;
949     Control : in out AMF.Visitors.Traverse_Control) is null;
950
951   not overriding procedure Leave_Expression
952    (Self    : in out UML_Visitor;
953     Element : not null AMF.UML.Expressions.UML_Expression_Access;
954     Control : in out AMF.Visitors.Traverse_Control) is null;
955
956   not overriding procedure Enter_Extend
957    (Self    : in out UML_Visitor;
958     Element : not null AMF.UML.Extends.UML_Extend_Access;
959     Control : in out AMF.Visitors.Traverse_Control) is null;
960
961   not overriding procedure Leave_Extend
962    (Self    : in out UML_Visitor;
963     Element : not null AMF.UML.Extends.UML_Extend_Access;
964     Control : in out AMF.Visitors.Traverse_Control) is null;
965
966   not overriding procedure Enter_Extension
967    (Self    : in out UML_Visitor;
968     Element : not null AMF.UML.Extensions.UML_Extension_Access;
969     Control : in out AMF.Visitors.Traverse_Control) is null;
970
971   not overriding procedure Leave_Extension
972    (Self    : in out UML_Visitor;
973     Element : not null AMF.UML.Extensions.UML_Extension_Access;
974     Control : in out AMF.Visitors.Traverse_Control) is null;
975
976   not overriding procedure Enter_Extension_End
977    (Self    : in out UML_Visitor;
978     Element : not null AMF.UML.Extension_Ends.UML_Extension_End_Access;
979     Control : in out AMF.Visitors.Traverse_Control) is null;
980
981   not overriding procedure Leave_Extension_End
982    (Self    : in out UML_Visitor;
983     Element : not null AMF.UML.Extension_Ends.UML_Extension_End_Access;
984     Control : in out AMF.Visitors.Traverse_Control) is null;
985
986   not overriding procedure Enter_Extension_Point
987    (Self    : in out UML_Visitor;
988     Element : not null AMF.UML.Extension_Points.UML_Extension_Point_Access;
989     Control : in out AMF.Visitors.Traverse_Control) is null;
990
991   not overriding procedure Leave_Extension_Point
992    (Self    : in out UML_Visitor;
993     Element : not null AMF.UML.Extension_Points.UML_Extension_Point_Access;
994     Control : in out AMF.Visitors.Traverse_Control) is null;
995
996   not overriding procedure Enter_Final_State
997    (Self    : in out UML_Visitor;
998     Element : not null AMF.UML.Final_States.UML_Final_State_Access;
999     Control : in out AMF.Visitors.Traverse_Control) is null;
1000
1001   not overriding procedure Leave_Final_State
1002    (Self    : in out UML_Visitor;
1003     Element : not null AMF.UML.Final_States.UML_Final_State_Access;
1004     Control : in out AMF.Visitors.Traverse_Control) is null;
1005
1006   not overriding procedure Enter_Flow_Final_Node
1007    (Self    : in out UML_Visitor;
1008     Element : not null AMF.UML.Flow_Final_Nodes.UML_Flow_Final_Node_Access;
1009     Control : in out AMF.Visitors.Traverse_Control) is null;
1010
1011   not overriding procedure Leave_Flow_Final_Node
1012    (Self    : in out UML_Visitor;
1013     Element : not null AMF.UML.Flow_Final_Nodes.UML_Flow_Final_Node_Access;
1014     Control : in out AMF.Visitors.Traverse_Control) is null;
1015
1016   not overriding procedure Enter_Fork_Node
1017    (Self    : in out UML_Visitor;
1018     Element : not null AMF.UML.Fork_Nodes.UML_Fork_Node_Access;
1019     Control : in out AMF.Visitors.Traverse_Control) is null;
1020
1021   not overriding procedure Leave_Fork_Node
1022    (Self    : in out UML_Visitor;
1023     Element : not null AMF.UML.Fork_Nodes.UML_Fork_Node_Access;
1024     Control : in out AMF.Visitors.Traverse_Control) is null;
1025
1026   not overriding procedure Enter_Function_Behavior
1027    (Self    : in out UML_Visitor;
1028     Element : not null AMF.UML.Function_Behaviors.UML_Function_Behavior_Access;
1029     Control : in out AMF.Visitors.Traverse_Control) is null;
1030
1031   not overriding procedure Leave_Function_Behavior
1032    (Self    : in out UML_Visitor;
1033     Element : not null AMF.UML.Function_Behaviors.UML_Function_Behavior_Access;
1034     Control : in out AMF.Visitors.Traverse_Control) is null;
1035
1036   not overriding procedure Enter_Gate
1037    (Self    : in out UML_Visitor;
1038     Element : not null AMF.UML.Gates.UML_Gate_Access;
1039     Control : in out AMF.Visitors.Traverse_Control) is null;
1040
1041   not overriding procedure Leave_Gate
1042    (Self    : in out UML_Visitor;
1043     Element : not null AMF.UML.Gates.UML_Gate_Access;
1044     Control : in out AMF.Visitors.Traverse_Control) is null;
1045
1046   not overriding procedure Enter_General_Ordering
1047    (Self    : in out UML_Visitor;
1048     Element : not null AMF.UML.General_Orderings.UML_General_Ordering_Access;
1049     Control : in out AMF.Visitors.Traverse_Control) is null;
1050
1051   not overriding procedure Leave_General_Ordering
1052    (Self    : in out UML_Visitor;
1053     Element : not null AMF.UML.General_Orderings.UML_General_Ordering_Access;
1054     Control : in out AMF.Visitors.Traverse_Control) is null;
1055
1056   not overriding procedure Enter_Generalization
1057    (Self    : in out UML_Visitor;
1058     Element : not null AMF.UML.Generalizations.UML_Generalization_Access;
1059     Control : in out AMF.Visitors.Traverse_Control) is null;
1060
1061   not overriding procedure Leave_Generalization
1062    (Self    : in out UML_Visitor;
1063     Element : not null AMF.UML.Generalizations.UML_Generalization_Access;
1064     Control : in out AMF.Visitors.Traverse_Control) is null;
1065
1066   not overriding procedure Enter_Generalization_Set
1067    (Self    : in out UML_Visitor;
1068     Element : not null AMF.UML.Generalization_Sets.UML_Generalization_Set_Access;
1069     Control : in out AMF.Visitors.Traverse_Control) is null;
1070
1071   not overriding procedure Leave_Generalization_Set
1072    (Self    : in out UML_Visitor;
1073     Element : not null AMF.UML.Generalization_Sets.UML_Generalization_Set_Access;
1074     Control : in out AMF.Visitors.Traverse_Control) is null;
1075
1076   not overriding procedure Enter_Image
1077    (Self    : in out UML_Visitor;
1078     Element : not null AMF.UML.Images.UML_Image_Access;
1079     Control : in out AMF.Visitors.Traverse_Control) is null;
1080
1081   not overriding procedure Leave_Image
1082    (Self    : in out UML_Visitor;
1083     Element : not null AMF.UML.Images.UML_Image_Access;
1084     Control : in out AMF.Visitors.Traverse_Control) is null;
1085
1086   not overriding procedure Enter_Include
1087    (Self    : in out UML_Visitor;
1088     Element : not null AMF.UML.Includes.UML_Include_Access;
1089     Control : in out AMF.Visitors.Traverse_Control) is null;
1090
1091   not overriding procedure Leave_Include
1092    (Self    : in out UML_Visitor;
1093     Element : not null AMF.UML.Includes.UML_Include_Access;
1094     Control : in out AMF.Visitors.Traverse_Control) is null;
1095
1096   not overriding procedure Enter_Information_Flow
1097    (Self    : in out UML_Visitor;
1098     Element : not null AMF.UML.Information_Flows.UML_Information_Flow_Access;
1099     Control : in out AMF.Visitors.Traverse_Control) is null;
1100
1101   not overriding procedure Leave_Information_Flow
1102    (Self    : in out UML_Visitor;
1103     Element : not null AMF.UML.Information_Flows.UML_Information_Flow_Access;
1104     Control : in out AMF.Visitors.Traverse_Control) is null;
1105
1106   not overriding procedure Enter_Information_Item
1107    (Self    : in out UML_Visitor;
1108     Element : not null AMF.UML.Information_Items.UML_Information_Item_Access;
1109     Control : in out AMF.Visitors.Traverse_Control) is null;
1110
1111   not overriding procedure Leave_Information_Item
1112    (Self    : in out UML_Visitor;
1113     Element : not null AMF.UML.Information_Items.UML_Information_Item_Access;
1114     Control : in out AMF.Visitors.Traverse_Control) is null;
1115
1116   not overriding procedure Enter_Initial_Node
1117    (Self    : in out UML_Visitor;
1118     Element : not null AMF.UML.Initial_Nodes.UML_Initial_Node_Access;
1119     Control : in out AMF.Visitors.Traverse_Control) is null;
1120
1121   not overriding procedure Leave_Initial_Node
1122    (Self    : in out UML_Visitor;
1123     Element : not null AMF.UML.Initial_Nodes.UML_Initial_Node_Access;
1124     Control : in out AMF.Visitors.Traverse_Control) is null;
1125
1126   not overriding procedure Enter_Input_Pin
1127    (Self    : in out UML_Visitor;
1128     Element : not null AMF.UML.Input_Pins.UML_Input_Pin_Access;
1129     Control : in out AMF.Visitors.Traverse_Control) is null;
1130
1131   not overriding procedure Leave_Input_Pin
1132    (Self    : in out UML_Visitor;
1133     Element : not null AMF.UML.Input_Pins.UML_Input_Pin_Access;
1134     Control : in out AMF.Visitors.Traverse_Control) is null;
1135
1136   not overriding procedure Enter_Instance_Specification
1137    (Self    : in out UML_Visitor;
1138     Element : not null AMF.UML.Instance_Specifications.UML_Instance_Specification_Access;
1139     Control : in out AMF.Visitors.Traverse_Control) is null;
1140
1141   not overriding procedure Leave_Instance_Specification
1142    (Self    : in out UML_Visitor;
1143     Element : not null AMF.UML.Instance_Specifications.UML_Instance_Specification_Access;
1144     Control : in out AMF.Visitors.Traverse_Control) is null;
1145
1146   not overriding procedure Enter_Instance_Value
1147    (Self    : in out UML_Visitor;
1148     Element : not null AMF.UML.Instance_Values.UML_Instance_Value_Access;
1149     Control : in out AMF.Visitors.Traverse_Control) is null;
1150
1151   not overriding procedure Leave_Instance_Value
1152    (Self    : in out UML_Visitor;
1153     Element : not null AMF.UML.Instance_Values.UML_Instance_Value_Access;
1154     Control : in out AMF.Visitors.Traverse_Control) is null;
1155
1156   not overriding procedure Enter_Interaction
1157    (Self    : in out UML_Visitor;
1158     Element : not null AMF.UML.Interactions.UML_Interaction_Access;
1159     Control : in out AMF.Visitors.Traverse_Control) is null;
1160
1161   not overriding procedure Leave_Interaction
1162    (Self    : in out UML_Visitor;
1163     Element : not null AMF.UML.Interactions.UML_Interaction_Access;
1164     Control : in out AMF.Visitors.Traverse_Control) is null;
1165
1166   not overriding procedure Enter_Interaction_Constraint
1167    (Self    : in out UML_Visitor;
1168     Element : not null AMF.UML.Interaction_Constraints.UML_Interaction_Constraint_Access;
1169     Control : in out AMF.Visitors.Traverse_Control) is null;
1170
1171   not overriding procedure Leave_Interaction_Constraint
1172    (Self    : in out UML_Visitor;
1173     Element : not null AMF.UML.Interaction_Constraints.UML_Interaction_Constraint_Access;
1174     Control : in out AMF.Visitors.Traverse_Control) is null;
1175
1176   not overriding procedure Enter_Interaction_Operand
1177    (Self    : in out UML_Visitor;
1178     Element : not null AMF.UML.Interaction_Operands.UML_Interaction_Operand_Access;
1179     Control : in out AMF.Visitors.Traverse_Control) is null;
1180
1181   not overriding procedure Leave_Interaction_Operand
1182    (Self    : in out UML_Visitor;
1183     Element : not null AMF.UML.Interaction_Operands.UML_Interaction_Operand_Access;
1184     Control : in out AMF.Visitors.Traverse_Control) is null;
1185
1186   not overriding procedure Enter_Interaction_Use
1187    (Self    : in out UML_Visitor;
1188     Element : not null AMF.UML.Interaction_Uses.UML_Interaction_Use_Access;
1189     Control : in out AMF.Visitors.Traverse_Control) is null;
1190
1191   not overriding procedure Leave_Interaction_Use
1192    (Self    : in out UML_Visitor;
1193     Element : not null AMF.UML.Interaction_Uses.UML_Interaction_Use_Access;
1194     Control : in out AMF.Visitors.Traverse_Control) is null;
1195
1196   not overriding procedure Enter_Interface
1197    (Self    : in out UML_Visitor;
1198     Element : not null AMF.UML.Interfaces.UML_Interface_Access;
1199     Control : in out AMF.Visitors.Traverse_Control) is null;
1200
1201   not overriding procedure Leave_Interface
1202    (Self    : in out UML_Visitor;
1203     Element : not null AMF.UML.Interfaces.UML_Interface_Access;
1204     Control : in out AMF.Visitors.Traverse_Control) is null;
1205
1206   not overriding procedure Enter_Interface_Realization
1207    (Self    : in out UML_Visitor;
1208     Element : not null AMF.UML.Interface_Realizations.UML_Interface_Realization_Access;
1209     Control : in out AMF.Visitors.Traverse_Control) is null;
1210
1211   not overriding procedure Leave_Interface_Realization
1212    (Self    : in out UML_Visitor;
1213     Element : not null AMF.UML.Interface_Realizations.UML_Interface_Realization_Access;
1214     Control : in out AMF.Visitors.Traverse_Control) is null;
1215
1216   not overriding procedure Enter_Interruptible_Activity_Region
1217    (Self    : in out UML_Visitor;
1218     Element : not null AMF.UML.Interruptible_Activity_Regions.UML_Interruptible_Activity_Region_Access;
1219     Control : in out AMF.Visitors.Traverse_Control) is null;
1220
1221   not overriding procedure Leave_Interruptible_Activity_Region
1222    (Self    : in out UML_Visitor;
1223     Element : not null AMF.UML.Interruptible_Activity_Regions.UML_Interruptible_Activity_Region_Access;
1224     Control : in out AMF.Visitors.Traverse_Control) is null;
1225
1226   not overriding procedure Enter_Interval
1227    (Self    : in out UML_Visitor;
1228     Element : not null AMF.UML.Intervals.UML_Interval_Access;
1229     Control : in out AMF.Visitors.Traverse_Control) is null;
1230
1231   not overriding procedure Leave_Interval
1232    (Self    : in out UML_Visitor;
1233     Element : not null AMF.UML.Intervals.UML_Interval_Access;
1234     Control : in out AMF.Visitors.Traverse_Control) is null;
1235
1236   not overriding procedure Enter_Interval_Constraint
1237    (Self    : in out UML_Visitor;
1238     Element : not null AMF.UML.Interval_Constraints.UML_Interval_Constraint_Access;
1239     Control : in out AMF.Visitors.Traverse_Control) is null;
1240
1241   not overriding procedure Leave_Interval_Constraint
1242    (Self    : in out UML_Visitor;
1243     Element : not null AMF.UML.Interval_Constraints.UML_Interval_Constraint_Access;
1244     Control : in out AMF.Visitors.Traverse_Control) is null;
1245
1246   not overriding procedure Enter_Join_Node
1247    (Self    : in out UML_Visitor;
1248     Element : not null AMF.UML.Join_Nodes.UML_Join_Node_Access;
1249     Control : in out AMF.Visitors.Traverse_Control) is null;
1250
1251   not overriding procedure Leave_Join_Node
1252    (Self    : in out UML_Visitor;
1253     Element : not null AMF.UML.Join_Nodes.UML_Join_Node_Access;
1254     Control : in out AMF.Visitors.Traverse_Control) is null;
1255
1256   not overriding procedure Enter_Lifeline
1257    (Self    : in out UML_Visitor;
1258     Element : not null AMF.UML.Lifelines.UML_Lifeline_Access;
1259     Control : in out AMF.Visitors.Traverse_Control) is null;
1260
1261   not overriding procedure Leave_Lifeline
1262    (Self    : in out UML_Visitor;
1263     Element : not null AMF.UML.Lifelines.UML_Lifeline_Access;
1264     Control : in out AMF.Visitors.Traverse_Control) is null;
1265
1266   not overriding procedure Enter_Link_End_Creation_Data
1267    (Self    : in out UML_Visitor;
1268     Element : not null AMF.UML.Link_End_Creation_Datas.UML_Link_End_Creation_Data_Access;
1269     Control : in out AMF.Visitors.Traverse_Control) is null;
1270
1271   not overriding procedure Leave_Link_End_Creation_Data
1272    (Self    : in out UML_Visitor;
1273     Element : not null AMF.UML.Link_End_Creation_Datas.UML_Link_End_Creation_Data_Access;
1274     Control : in out AMF.Visitors.Traverse_Control) is null;
1275
1276   not overriding procedure Enter_Link_End_Data
1277    (Self    : in out UML_Visitor;
1278     Element : not null AMF.UML.Link_End_Datas.UML_Link_End_Data_Access;
1279     Control : in out AMF.Visitors.Traverse_Control) is null;
1280
1281   not overriding procedure Leave_Link_End_Data
1282    (Self    : in out UML_Visitor;
1283     Element : not null AMF.UML.Link_End_Datas.UML_Link_End_Data_Access;
1284     Control : in out AMF.Visitors.Traverse_Control) is null;
1285
1286   not overriding procedure Enter_Link_End_Destruction_Data
1287    (Self    : in out UML_Visitor;
1288     Element : not null AMF.UML.Link_End_Destruction_Datas.UML_Link_End_Destruction_Data_Access;
1289     Control : in out AMF.Visitors.Traverse_Control) is null;
1290
1291   not overriding procedure Leave_Link_End_Destruction_Data
1292    (Self    : in out UML_Visitor;
1293     Element : not null AMF.UML.Link_End_Destruction_Datas.UML_Link_End_Destruction_Data_Access;
1294     Control : in out AMF.Visitors.Traverse_Control) is null;
1295
1296   not overriding procedure Enter_Literal_Boolean
1297    (Self    : in out UML_Visitor;
1298     Element : not null AMF.UML.Literal_Booleans.UML_Literal_Boolean_Access;
1299     Control : in out AMF.Visitors.Traverse_Control) is null;
1300
1301   not overriding procedure Leave_Literal_Boolean
1302    (Self    : in out UML_Visitor;
1303     Element : not null AMF.UML.Literal_Booleans.UML_Literal_Boolean_Access;
1304     Control : in out AMF.Visitors.Traverse_Control) is null;
1305
1306   not overriding procedure Enter_Literal_Integer
1307    (Self    : in out UML_Visitor;
1308     Element : not null AMF.UML.Literal_Integers.UML_Literal_Integer_Access;
1309     Control : in out AMF.Visitors.Traverse_Control) is null;
1310
1311   not overriding procedure Leave_Literal_Integer
1312    (Self    : in out UML_Visitor;
1313     Element : not null AMF.UML.Literal_Integers.UML_Literal_Integer_Access;
1314     Control : in out AMF.Visitors.Traverse_Control) is null;
1315
1316   not overriding procedure Enter_Literal_Null
1317    (Self    : in out UML_Visitor;
1318     Element : not null AMF.UML.Literal_Nulls.UML_Literal_Null_Access;
1319     Control : in out AMF.Visitors.Traverse_Control) is null;
1320
1321   not overriding procedure Leave_Literal_Null
1322    (Self    : in out UML_Visitor;
1323     Element : not null AMF.UML.Literal_Nulls.UML_Literal_Null_Access;
1324     Control : in out AMF.Visitors.Traverse_Control) is null;
1325
1326   not overriding procedure Enter_Literal_Real
1327    (Self    : in out UML_Visitor;
1328     Element : not null AMF.UML.Literal_Reals.UML_Literal_Real_Access;
1329     Control : in out AMF.Visitors.Traverse_Control) is null;
1330
1331   not overriding procedure Leave_Literal_Real
1332    (Self    : in out UML_Visitor;
1333     Element : not null AMF.UML.Literal_Reals.UML_Literal_Real_Access;
1334     Control : in out AMF.Visitors.Traverse_Control) is null;
1335
1336   not overriding procedure Enter_Literal_String
1337    (Self    : in out UML_Visitor;
1338     Element : not null AMF.UML.Literal_Strings.UML_Literal_String_Access;
1339     Control : in out AMF.Visitors.Traverse_Control) is null;
1340
1341   not overriding procedure Leave_Literal_String
1342    (Self    : in out UML_Visitor;
1343     Element : not null AMF.UML.Literal_Strings.UML_Literal_String_Access;
1344     Control : in out AMF.Visitors.Traverse_Control) is null;
1345
1346   not overriding procedure Enter_Literal_Unlimited_Natural
1347    (Self    : in out UML_Visitor;
1348     Element : not null AMF.UML.Literal_Unlimited_Naturals.UML_Literal_Unlimited_Natural_Access;
1349     Control : in out AMF.Visitors.Traverse_Control) is null;
1350
1351   not overriding procedure Leave_Literal_Unlimited_Natural
1352    (Self    : in out UML_Visitor;
1353     Element : not null AMF.UML.Literal_Unlimited_Naturals.UML_Literal_Unlimited_Natural_Access;
1354     Control : in out AMF.Visitors.Traverse_Control) is null;
1355
1356   not overriding procedure Enter_Loop_Node
1357    (Self    : in out UML_Visitor;
1358     Element : not null AMF.UML.Loop_Nodes.UML_Loop_Node_Access;
1359     Control : in out AMF.Visitors.Traverse_Control) is null;
1360
1361   not overriding procedure Leave_Loop_Node
1362    (Self    : in out UML_Visitor;
1363     Element : not null AMF.UML.Loop_Nodes.UML_Loop_Node_Access;
1364     Control : in out AMF.Visitors.Traverse_Control) is null;
1365
1366   not overriding procedure Enter_Manifestation
1367    (Self    : in out UML_Visitor;
1368     Element : not null AMF.UML.Manifestations.UML_Manifestation_Access;
1369     Control : in out AMF.Visitors.Traverse_Control) is null;
1370
1371   not overriding procedure Leave_Manifestation
1372    (Self    : in out UML_Visitor;
1373     Element : not null AMF.UML.Manifestations.UML_Manifestation_Access;
1374     Control : in out AMF.Visitors.Traverse_Control) is null;
1375
1376   not overriding procedure Enter_Merge_Node
1377    (Self    : in out UML_Visitor;
1378     Element : not null AMF.UML.Merge_Nodes.UML_Merge_Node_Access;
1379     Control : in out AMF.Visitors.Traverse_Control) is null;
1380
1381   not overriding procedure Leave_Merge_Node
1382    (Self    : in out UML_Visitor;
1383     Element : not null AMF.UML.Merge_Nodes.UML_Merge_Node_Access;
1384     Control : in out AMF.Visitors.Traverse_Control) is null;
1385
1386   not overriding procedure Enter_Message
1387    (Self    : in out UML_Visitor;
1388     Element : not null AMF.UML.Messages.UML_Message_Access;
1389     Control : in out AMF.Visitors.Traverse_Control) is null;
1390
1391   not overriding procedure Leave_Message
1392    (Self    : in out UML_Visitor;
1393     Element : not null AMF.UML.Messages.UML_Message_Access;
1394     Control : in out AMF.Visitors.Traverse_Control) is null;
1395
1396   not overriding procedure Enter_Message_Occurrence_Specification
1397    (Self    : in out UML_Visitor;
1398     Element : not null AMF.UML.Message_Occurrence_Specifications.UML_Message_Occurrence_Specification_Access;
1399     Control : in out AMF.Visitors.Traverse_Control) is null;
1400
1401   not overriding procedure Leave_Message_Occurrence_Specification
1402    (Self    : in out UML_Visitor;
1403     Element : not null AMF.UML.Message_Occurrence_Specifications.UML_Message_Occurrence_Specification_Access;
1404     Control : in out AMF.Visitors.Traverse_Control) is null;
1405
1406   not overriding procedure Enter_Model
1407    (Self    : in out UML_Visitor;
1408     Element : not null AMF.UML.Models.UML_Model_Access;
1409     Control : in out AMF.Visitors.Traverse_Control) is null;
1410
1411   not overriding procedure Leave_Model
1412    (Self    : in out UML_Visitor;
1413     Element : not null AMF.UML.Models.UML_Model_Access;
1414     Control : in out AMF.Visitors.Traverse_Control) is null;
1415
1416   not overriding procedure Enter_Node
1417    (Self    : in out UML_Visitor;
1418     Element : not null AMF.UML.Nodes.UML_Node_Access;
1419     Control : in out AMF.Visitors.Traverse_Control) is null;
1420
1421   not overriding procedure Leave_Node
1422    (Self    : in out UML_Visitor;
1423     Element : not null AMF.UML.Nodes.UML_Node_Access;
1424     Control : in out AMF.Visitors.Traverse_Control) is null;
1425
1426   not overriding procedure Enter_Object_Flow
1427    (Self    : in out UML_Visitor;
1428     Element : not null AMF.UML.Object_Flows.UML_Object_Flow_Access;
1429     Control : in out AMF.Visitors.Traverse_Control) is null;
1430
1431   not overriding procedure Leave_Object_Flow
1432    (Self    : in out UML_Visitor;
1433     Element : not null AMF.UML.Object_Flows.UML_Object_Flow_Access;
1434     Control : in out AMF.Visitors.Traverse_Control) is null;
1435
1436   not overriding procedure Enter_Occurrence_Specification
1437    (Self    : in out UML_Visitor;
1438     Element : not null AMF.UML.Occurrence_Specifications.UML_Occurrence_Specification_Access;
1439     Control : in out AMF.Visitors.Traverse_Control) is null;
1440
1441   not overriding procedure Leave_Occurrence_Specification
1442    (Self    : in out UML_Visitor;
1443     Element : not null AMF.UML.Occurrence_Specifications.UML_Occurrence_Specification_Access;
1444     Control : in out AMF.Visitors.Traverse_Control) is null;
1445
1446   not overriding procedure Enter_Opaque_Action
1447    (Self    : in out UML_Visitor;
1448     Element : not null AMF.UML.Opaque_Actions.UML_Opaque_Action_Access;
1449     Control : in out AMF.Visitors.Traverse_Control) is null;
1450
1451   not overriding procedure Leave_Opaque_Action
1452    (Self    : in out UML_Visitor;
1453     Element : not null AMF.UML.Opaque_Actions.UML_Opaque_Action_Access;
1454     Control : in out AMF.Visitors.Traverse_Control) is null;
1455
1456   not overriding procedure Enter_Opaque_Behavior
1457    (Self    : in out UML_Visitor;
1458     Element : not null AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access;
1459     Control : in out AMF.Visitors.Traverse_Control) is null;
1460
1461   not overriding procedure Leave_Opaque_Behavior
1462    (Self    : in out UML_Visitor;
1463     Element : not null AMF.UML.Opaque_Behaviors.UML_Opaque_Behavior_Access;
1464     Control : in out AMF.Visitors.Traverse_Control) is null;
1465
1466   not overriding procedure Enter_Opaque_Expression
1467    (Self    : in out UML_Visitor;
1468     Element : not null AMF.UML.Opaque_Expressions.UML_Opaque_Expression_Access;
1469     Control : in out AMF.Visitors.Traverse_Control) is null;
1470
1471   not overriding procedure Leave_Opaque_Expression
1472    (Self    : in out UML_Visitor;
1473     Element : not null AMF.UML.Opaque_Expressions.UML_Opaque_Expression_Access;
1474     Control : in out AMF.Visitors.Traverse_Control) is null;
1475
1476   not overriding procedure Enter_Operation
1477    (Self    : in out UML_Visitor;
1478     Element : not null AMF.UML.Operations.UML_Operation_Access;
1479     Control : in out AMF.Visitors.Traverse_Control) is null;
1480
1481   not overriding procedure Leave_Operation
1482    (Self    : in out UML_Visitor;
1483     Element : not null AMF.UML.Operations.UML_Operation_Access;
1484     Control : in out AMF.Visitors.Traverse_Control) is null;
1485
1486   not overriding procedure Enter_Operation_Template_Parameter
1487    (Self    : in out UML_Visitor;
1488     Element : not null AMF.UML.Operation_Template_Parameters.UML_Operation_Template_Parameter_Access;
1489     Control : in out AMF.Visitors.Traverse_Control) is null;
1490
1491   not overriding procedure Leave_Operation_Template_Parameter
1492    (Self    : in out UML_Visitor;
1493     Element : not null AMF.UML.Operation_Template_Parameters.UML_Operation_Template_Parameter_Access;
1494     Control : in out AMF.Visitors.Traverse_Control) is null;
1495
1496   not overriding procedure Enter_Output_Pin
1497    (Self    : in out UML_Visitor;
1498     Element : not null AMF.UML.Output_Pins.UML_Output_Pin_Access;
1499     Control : in out AMF.Visitors.Traverse_Control) is null;
1500
1501   not overriding procedure Leave_Output_Pin
1502    (Self    : in out UML_Visitor;
1503     Element : not null AMF.UML.Output_Pins.UML_Output_Pin_Access;
1504     Control : in out AMF.Visitors.Traverse_Control) is null;
1505
1506   not overriding procedure Enter_Package
1507    (Self    : in out UML_Visitor;
1508     Element : not null AMF.UML.Packages.UML_Package_Access;
1509     Control : in out AMF.Visitors.Traverse_Control) is null;
1510
1511   not overriding procedure Leave_Package
1512    (Self    : in out UML_Visitor;
1513     Element : not null AMF.UML.Packages.UML_Package_Access;
1514     Control : in out AMF.Visitors.Traverse_Control) is null;
1515
1516   not overriding procedure Enter_Package_Import
1517    (Self    : in out UML_Visitor;
1518     Element : not null AMF.UML.Package_Imports.UML_Package_Import_Access;
1519     Control : in out AMF.Visitors.Traverse_Control) is null;
1520
1521   not overriding procedure Leave_Package_Import
1522    (Self    : in out UML_Visitor;
1523     Element : not null AMF.UML.Package_Imports.UML_Package_Import_Access;
1524     Control : in out AMF.Visitors.Traverse_Control) is null;
1525
1526   not overriding procedure Enter_Package_Merge
1527    (Self    : in out UML_Visitor;
1528     Element : not null AMF.UML.Package_Merges.UML_Package_Merge_Access;
1529     Control : in out AMF.Visitors.Traverse_Control) is null;
1530
1531   not overriding procedure Leave_Package_Merge
1532    (Self    : in out UML_Visitor;
1533     Element : not null AMF.UML.Package_Merges.UML_Package_Merge_Access;
1534     Control : in out AMF.Visitors.Traverse_Control) is null;
1535
1536   not overriding procedure Enter_Parameter
1537    (Self    : in out UML_Visitor;
1538     Element : not null AMF.UML.Parameters.UML_Parameter_Access;
1539     Control : in out AMF.Visitors.Traverse_Control) is null;
1540
1541   not overriding procedure Leave_Parameter
1542    (Self    : in out UML_Visitor;
1543     Element : not null AMF.UML.Parameters.UML_Parameter_Access;
1544     Control : in out AMF.Visitors.Traverse_Control) is null;
1545
1546   not overriding procedure Enter_Parameter_Set
1547    (Self    : in out UML_Visitor;
1548     Element : not null AMF.UML.Parameter_Sets.UML_Parameter_Set_Access;
1549     Control : in out AMF.Visitors.Traverse_Control) is null;
1550
1551   not overriding procedure Leave_Parameter_Set
1552    (Self    : in out UML_Visitor;
1553     Element : not null AMF.UML.Parameter_Sets.UML_Parameter_Set_Access;
1554     Control : in out AMF.Visitors.Traverse_Control) is null;
1555
1556   not overriding procedure Enter_Part_Decomposition
1557    (Self    : in out UML_Visitor;
1558     Element : not null AMF.UML.Part_Decompositions.UML_Part_Decomposition_Access;
1559     Control : in out AMF.Visitors.Traverse_Control) is null;
1560
1561   not overriding procedure Leave_Part_Decomposition
1562    (Self    : in out UML_Visitor;
1563     Element : not null AMF.UML.Part_Decompositions.UML_Part_Decomposition_Access;
1564     Control : in out AMF.Visitors.Traverse_Control) is null;
1565
1566   not overriding procedure Enter_Port
1567    (Self    : in out UML_Visitor;
1568     Element : not null AMF.UML.Ports.UML_Port_Access;
1569     Control : in out AMF.Visitors.Traverse_Control) is null;
1570
1571   not overriding procedure Leave_Port
1572    (Self    : in out UML_Visitor;
1573     Element : not null AMF.UML.Ports.UML_Port_Access;
1574     Control : in out AMF.Visitors.Traverse_Control) is null;
1575
1576   not overriding procedure Enter_Primitive_Type
1577    (Self    : in out UML_Visitor;
1578     Element : not null AMF.UML.Primitive_Types.UML_Primitive_Type_Access;
1579     Control : in out AMF.Visitors.Traverse_Control) is null;
1580
1581   not overriding procedure Leave_Primitive_Type
1582    (Self    : in out UML_Visitor;
1583     Element : not null AMF.UML.Primitive_Types.UML_Primitive_Type_Access;
1584     Control : in out AMF.Visitors.Traverse_Control) is null;
1585
1586   not overriding procedure Enter_Profile
1587    (Self    : in out UML_Visitor;
1588     Element : not null AMF.UML.Profiles.UML_Profile_Access;
1589     Control : in out AMF.Visitors.Traverse_Control) is null;
1590
1591   not overriding procedure Leave_Profile
1592    (Self    : in out UML_Visitor;
1593     Element : not null AMF.UML.Profiles.UML_Profile_Access;
1594     Control : in out AMF.Visitors.Traverse_Control) is null;
1595
1596   not overriding procedure Enter_Profile_Application
1597    (Self    : in out UML_Visitor;
1598     Element : not null AMF.UML.Profile_Applications.UML_Profile_Application_Access;
1599     Control : in out AMF.Visitors.Traverse_Control) is null;
1600
1601   not overriding procedure Leave_Profile_Application
1602    (Self    : in out UML_Visitor;
1603     Element : not null AMF.UML.Profile_Applications.UML_Profile_Application_Access;
1604     Control : in out AMF.Visitors.Traverse_Control) is null;
1605
1606   not overriding procedure Enter_Property
1607    (Self    : in out UML_Visitor;
1608     Element : not null AMF.UML.Properties.UML_Property_Access;
1609     Control : in out AMF.Visitors.Traverse_Control) is null;
1610
1611   not overriding procedure Leave_Property
1612    (Self    : in out UML_Visitor;
1613     Element : not null AMF.UML.Properties.UML_Property_Access;
1614     Control : in out AMF.Visitors.Traverse_Control) is null;
1615
1616   not overriding procedure Enter_Protocol_Conformance
1617    (Self    : in out UML_Visitor;
1618     Element : not null AMF.UML.Protocol_Conformances.UML_Protocol_Conformance_Access;
1619     Control : in out AMF.Visitors.Traverse_Control) is null;
1620
1621   not overriding procedure Leave_Protocol_Conformance
1622    (Self    : in out UML_Visitor;
1623     Element : not null AMF.UML.Protocol_Conformances.UML_Protocol_Conformance_Access;
1624     Control : in out AMF.Visitors.Traverse_Control) is null;
1625
1626   not overriding procedure Enter_Protocol_State_Machine
1627    (Self    : in out UML_Visitor;
1628     Element : not null AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access;
1629     Control : in out AMF.Visitors.Traverse_Control) is null;
1630
1631   not overriding procedure Leave_Protocol_State_Machine
1632    (Self    : in out UML_Visitor;
1633     Element : not null AMF.UML.Protocol_State_Machines.UML_Protocol_State_Machine_Access;
1634     Control : in out AMF.Visitors.Traverse_Control) is null;
1635
1636   not overriding procedure Enter_Protocol_Transition
1637    (Self    : in out UML_Visitor;
1638     Element : not null AMF.UML.Protocol_Transitions.UML_Protocol_Transition_Access;
1639     Control : in out AMF.Visitors.Traverse_Control) is null;
1640
1641   not overriding procedure Leave_Protocol_Transition
1642    (Self    : in out UML_Visitor;
1643     Element : not null AMF.UML.Protocol_Transitions.UML_Protocol_Transition_Access;
1644     Control : in out AMF.Visitors.Traverse_Control) is null;
1645
1646   not overriding procedure Enter_Pseudostate
1647    (Self    : in out UML_Visitor;
1648     Element : not null AMF.UML.Pseudostates.UML_Pseudostate_Access;
1649     Control : in out AMF.Visitors.Traverse_Control) is null;
1650
1651   not overriding procedure Leave_Pseudostate
1652    (Self    : in out UML_Visitor;
1653     Element : not null AMF.UML.Pseudostates.UML_Pseudostate_Access;
1654     Control : in out AMF.Visitors.Traverse_Control) is null;
1655
1656   not overriding procedure Enter_Qualifier_Value
1657    (Self    : in out UML_Visitor;
1658     Element : not null AMF.UML.Qualifier_Values.UML_Qualifier_Value_Access;
1659     Control : in out AMF.Visitors.Traverse_Control) is null;
1660
1661   not overriding procedure Leave_Qualifier_Value
1662    (Self    : in out UML_Visitor;
1663     Element : not null AMF.UML.Qualifier_Values.UML_Qualifier_Value_Access;
1664     Control : in out AMF.Visitors.Traverse_Control) is null;
1665
1666   not overriding procedure Enter_Raise_Exception_Action
1667    (Self    : in out UML_Visitor;
1668     Element : not null AMF.UML.Raise_Exception_Actions.UML_Raise_Exception_Action_Access;
1669     Control : in out AMF.Visitors.Traverse_Control) is null;
1670
1671   not overriding procedure Leave_Raise_Exception_Action
1672    (Self    : in out UML_Visitor;
1673     Element : not null AMF.UML.Raise_Exception_Actions.UML_Raise_Exception_Action_Access;
1674     Control : in out AMF.Visitors.Traverse_Control) is null;
1675
1676   not overriding procedure Enter_Read_Extent_Action
1677    (Self    : in out UML_Visitor;
1678     Element : not null AMF.UML.Read_Extent_Actions.UML_Read_Extent_Action_Access;
1679     Control : in out AMF.Visitors.Traverse_Control) is null;
1680
1681   not overriding procedure Leave_Read_Extent_Action
1682    (Self    : in out UML_Visitor;
1683     Element : not null AMF.UML.Read_Extent_Actions.UML_Read_Extent_Action_Access;
1684     Control : in out AMF.Visitors.Traverse_Control) is null;
1685
1686   not overriding procedure Enter_Read_Is_Classified_Object_Action
1687    (Self    : in out UML_Visitor;
1688     Element : not null AMF.UML.Read_Is_Classified_Object_Actions.UML_Read_Is_Classified_Object_Action_Access;
1689     Control : in out AMF.Visitors.Traverse_Control) is null;
1690
1691   not overriding procedure Leave_Read_Is_Classified_Object_Action
1692    (Self    : in out UML_Visitor;
1693     Element : not null AMF.UML.Read_Is_Classified_Object_Actions.UML_Read_Is_Classified_Object_Action_Access;
1694     Control : in out AMF.Visitors.Traverse_Control) is null;
1695
1696   not overriding procedure Enter_Read_Link_Action
1697    (Self    : in out UML_Visitor;
1698     Element : not null AMF.UML.Read_Link_Actions.UML_Read_Link_Action_Access;
1699     Control : in out AMF.Visitors.Traverse_Control) is null;
1700
1701   not overriding procedure Leave_Read_Link_Action
1702    (Self    : in out UML_Visitor;
1703     Element : not null AMF.UML.Read_Link_Actions.UML_Read_Link_Action_Access;
1704     Control : in out AMF.Visitors.Traverse_Control) is null;
1705
1706   not overriding procedure Enter_Read_Link_Object_End_Action
1707    (Self    : in out UML_Visitor;
1708     Element : not null AMF.UML.Read_Link_Object_End_Actions.UML_Read_Link_Object_End_Action_Access;
1709     Control : in out AMF.Visitors.Traverse_Control) is null;
1710
1711   not overriding procedure Leave_Read_Link_Object_End_Action
1712    (Self    : in out UML_Visitor;
1713     Element : not null AMF.UML.Read_Link_Object_End_Actions.UML_Read_Link_Object_End_Action_Access;
1714     Control : in out AMF.Visitors.Traverse_Control) is null;
1715
1716   not overriding procedure Enter_Read_Link_Object_End_Qualifier_Action
1717    (Self    : in out UML_Visitor;
1718     Element : not null AMF.UML.Read_Link_Object_End_Qualifier_Actions.UML_Read_Link_Object_End_Qualifier_Action_Access;
1719     Control : in out AMF.Visitors.Traverse_Control) is null;
1720
1721   not overriding procedure Leave_Read_Link_Object_End_Qualifier_Action
1722    (Self    : in out UML_Visitor;
1723     Element : not null AMF.UML.Read_Link_Object_End_Qualifier_Actions.UML_Read_Link_Object_End_Qualifier_Action_Access;
1724     Control : in out AMF.Visitors.Traverse_Control) is null;
1725
1726   not overriding procedure Enter_Read_Self_Action
1727    (Self    : in out UML_Visitor;
1728     Element : not null AMF.UML.Read_Self_Actions.UML_Read_Self_Action_Access;
1729     Control : in out AMF.Visitors.Traverse_Control) is null;
1730
1731   not overriding procedure Leave_Read_Self_Action
1732    (Self    : in out UML_Visitor;
1733     Element : not null AMF.UML.Read_Self_Actions.UML_Read_Self_Action_Access;
1734     Control : in out AMF.Visitors.Traverse_Control) is null;
1735
1736   not overriding procedure Enter_Read_Structural_Feature_Action
1737    (Self    : in out UML_Visitor;
1738     Element : not null AMF.UML.Read_Structural_Feature_Actions.UML_Read_Structural_Feature_Action_Access;
1739     Control : in out AMF.Visitors.Traverse_Control) is null;
1740
1741   not overriding procedure Leave_Read_Structural_Feature_Action
1742    (Self    : in out UML_Visitor;
1743     Element : not null AMF.UML.Read_Structural_Feature_Actions.UML_Read_Structural_Feature_Action_Access;
1744     Control : in out AMF.Visitors.Traverse_Control) is null;
1745
1746   not overriding procedure Enter_Read_Variable_Action
1747    (Self    : in out UML_Visitor;
1748     Element : not null AMF.UML.Read_Variable_Actions.UML_Read_Variable_Action_Access;
1749     Control : in out AMF.Visitors.Traverse_Control) is null;
1750
1751   not overriding procedure Leave_Read_Variable_Action
1752    (Self    : in out UML_Visitor;
1753     Element : not null AMF.UML.Read_Variable_Actions.UML_Read_Variable_Action_Access;
1754     Control : in out AMF.Visitors.Traverse_Control) is null;
1755
1756   not overriding procedure Enter_Realization
1757    (Self    : in out UML_Visitor;
1758     Element : not null AMF.UML.Realizations.UML_Realization_Access;
1759     Control : in out AMF.Visitors.Traverse_Control) is null;
1760
1761   not overriding procedure Leave_Realization
1762    (Self    : in out UML_Visitor;
1763     Element : not null AMF.UML.Realizations.UML_Realization_Access;
1764     Control : in out AMF.Visitors.Traverse_Control) is null;
1765
1766   not overriding procedure Enter_Reception
1767    (Self    : in out UML_Visitor;
1768     Element : not null AMF.UML.Receptions.UML_Reception_Access;
1769     Control : in out AMF.Visitors.Traverse_Control) is null;
1770
1771   not overriding procedure Leave_Reception
1772    (Self    : in out UML_Visitor;
1773     Element : not null AMF.UML.Receptions.UML_Reception_Access;
1774     Control : in out AMF.Visitors.Traverse_Control) is null;
1775
1776   not overriding procedure Enter_Reclassify_Object_Action
1777    (Self    : in out UML_Visitor;
1778     Element : not null AMF.UML.Reclassify_Object_Actions.UML_Reclassify_Object_Action_Access;
1779     Control : in out AMF.Visitors.Traverse_Control) is null;
1780
1781   not overriding procedure Leave_Reclassify_Object_Action
1782    (Self    : in out UML_Visitor;
1783     Element : not null AMF.UML.Reclassify_Object_Actions.UML_Reclassify_Object_Action_Access;
1784     Control : in out AMF.Visitors.Traverse_Control) is null;
1785
1786   not overriding procedure Enter_Redefinable_Template_Signature
1787    (Self    : in out UML_Visitor;
1788     Element : not null AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access;
1789     Control : in out AMF.Visitors.Traverse_Control) is null;
1790
1791   not overriding procedure Leave_Redefinable_Template_Signature
1792    (Self    : in out UML_Visitor;
1793     Element : not null AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access;
1794     Control : in out AMF.Visitors.Traverse_Control) is null;
1795
1796   not overriding procedure Enter_Reduce_Action
1797    (Self    : in out UML_Visitor;
1798     Element : not null AMF.UML.Reduce_Actions.UML_Reduce_Action_Access;
1799     Control : in out AMF.Visitors.Traverse_Control) is null;
1800
1801   not overriding procedure Leave_Reduce_Action
1802    (Self    : in out UML_Visitor;
1803     Element : not null AMF.UML.Reduce_Actions.UML_Reduce_Action_Access;
1804     Control : in out AMF.Visitors.Traverse_Control) is null;
1805
1806   not overriding procedure Enter_Region
1807    (Self    : in out UML_Visitor;
1808     Element : not null AMF.UML.Regions.UML_Region_Access;
1809     Control : in out AMF.Visitors.Traverse_Control) is null;
1810
1811   not overriding procedure Leave_Region
1812    (Self    : in out UML_Visitor;
1813     Element : not null AMF.UML.Regions.UML_Region_Access;
1814     Control : in out AMF.Visitors.Traverse_Control) is null;
1815
1816   not overriding procedure Enter_Remove_Structural_Feature_Value_Action
1817    (Self    : in out UML_Visitor;
1818     Element : not null AMF.UML.Remove_Structural_Feature_Value_Actions.UML_Remove_Structural_Feature_Value_Action_Access;
1819     Control : in out AMF.Visitors.Traverse_Control) is null;
1820
1821   not overriding procedure Leave_Remove_Structural_Feature_Value_Action
1822    (Self    : in out UML_Visitor;
1823     Element : not null AMF.UML.Remove_Structural_Feature_Value_Actions.UML_Remove_Structural_Feature_Value_Action_Access;
1824     Control : in out AMF.Visitors.Traverse_Control) is null;
1825
1826   not overriding procedure Enter_Remove_Variable_Value_Action
1827    (Self    : in out UML_Visitor;
1828     Element : not null AMF.UML.Remove_Variable_Value_Actions.UML_Remove_Variable_Value_Action_Access;
1829     Control : in out AMF.Visitors.Traverse_Control) is null;
1830
1831   not overriding procedure Leave_Remove_Variable_Value_Action
1832    (Self    : in out UML_Visitor;
1833     Element : not null AMF.UML.Remove_Variable_Value_Actions.UML_Remove_Variable_Value_Action_Access;
1834     Control : in out AMF.Visitors.Traverse_Control) is null;
1835
1836   not overriding procedure Enter_Reply_Action
1837    (Self    : in out UML_Visitor;
1838     Element : not null AMF.UML.Reply_Actions.UML_Reply_Action_Access;
1839     Control : in out AMF.Visitors.Traverse_Control) is null;
1840
1841   not overriding procedure Leave_Reply_Action
1842    (Self    : in out UML_Visitor;
1843     Element : not null AMF.UML.Reply_Actions.UML_Reply_Action_Access;
1844     Control : in out AMF.Visitors.Traverse_Control) is null;
1845
1846   not overriding procedure Enter_Send_Object_Action
1847    (Self    : in out UML_Visitor;
1848     Element : not null AMF.UML.Send_Object_Actions.UML_Send_Object_Action_Access;
1849     Control : in out AMF.Visitors.Traverse_Control) is null;
1850
1851   not overriding procedure Leave_Send_Object_Action
1852    (Self    : in out UML_Visitor;
1853     Element : not null AMF.UML.Send_Object_Actions.UML_Send_Object_Action_Access;
1854     Control : in out AMF.Visitors.Traverse_Control) is null;
1855
1856   not overriding procedure Enter_Send_Signal_Action
1857    (Self    : in out UML_Visitor;
1858     Element : not null AMF.UML.Send_Signal_Actions.UML_Send_Signal_Action_Access;
1859     Control : in out AMF.Visitors.Traverse_Control) is null;
1860
1861   not overriding procedure Leave_Send_Signal_Action
1862    (Self    : in out UML_Visitor;
1863     Element : not null AMF.UML.Send_Signal_Actions.UML_Send_Signal_Action_Access;
1864     Control : in out AMF.Visitors.Traverse_Control) is null;
1865
1866   not overriding procedure Enter_Sequence_Node
1867    (Self    : in out UML_Visitor;
1868     Element : not null AMF.UML.Sequence_Nodes.UML_Sequence_Node_Access;
1869     Control : in out AMF.Visitors.Traverse_Control) is null;
1870
1871   not overriding procedure Leave_Sequence_Node
1872    (Self    : in out UML_Visitor;
1873     Element : not null AMF.UML.Sequence_Nodes.UML_Sequence_Node_Access;
1874     Control : in out AMF.Visitors.Traverse_Control) is null;
1875
1876   not overriding procedure Enter_Signal
1877    (Self    : in out UML_Visitor;
1878     Element : not null AMF.UML.Signals.UML_Signal_Access;
1879     Control : in out AMF.Visitors.Traverse_Control) is null;
1880
1881   not overriding procedure Leave_Signal
1882    (Self    : in out UML_Visitor;
1883     Element : not null AMF.UML.Signals.UML_Signal_Access;
1884     Control : in out AMF.Visitors.Traverse_Control) is null;
1885
1886   not overriding procedure Enter_Signal_Event
1887    (Self    : in out UML_Visitor;
1888     Element : not null AMF.UML.Signal_Events.UML_Signal_Event_Access;
1889     Control : in out AMF.Visitors.Traverse_Control) is null;
1890
1891   not overriding procedure Leave_Signal_Event
1892    (Self    : in out UML_Visitor;
1893     Element : not null AMF.UML.Signal_Events.UML_Signal_Event_Access;
1894     Control : in out AMF.Visitors.Traverse_Control) is null;
1895
1896   not overriding procedure Enter_Slot
1897    (Self    : in out UML_Visitor;
1898     Element : not null AMF.UML.Slots.UML_Slot_Access;
1899     Control : in out AMF.Visitors.Traverse_Control) is null;
1900
1901   not overriding procedure Leave_Slot
1902    (Self    : in out UML_Visitor;
1903     Element : not null AMF.UML.Slots.UML_Slot_Access;
1904     Control : in out AMF.Visitors.Traverse_Control) is null;
1905
1906   not overriding procedure Enter_Start_Classifier_Behavior_Action
1907    (Self    : in out UML_Visitor;
1908     Element : not null AMF.UML.Start_Classifier_Behavior_Actions.UML_Start_Classifier_Behavior_Action_Access;
1909     Control : in out AMF.Visitors.Traverse_Control) is null;
1910
1911   not overriding procedure Leave_Start_Classifier_Behavior_Action
1912    (Self    : in out UML_Visitor;
1913     Element : not null AMF.UML.Start_Classifier_Behavior_Actions.UML_Start_Classifier_Behavior_Action_Access;
1914     Control : in out AMF.Visitors.Traverse_Control) is null;
1915
1916   not overriding procedure Enter_Start_Object_Behavior_Action
1917    (Self    : in out UML_Visitor;
1918     Element : not null AMF.UML.Start_Object_Behavior_Actions.UML_Start_Object_Behavior_Action_Access;
1919     Control : in out AMF.Visitors.Traverse_Control) is null;
1920
1921   not overriding procedure Leave_Start_Object_Behavior_Action
1922    (Self    : in out UML_Visitor;
1923     Element : not null AMF.UML.Start_Object_Behavior_Actions.UML_Start_Object_Behavior_Action_Access;
1924     Control : in out AMF.Visitors.Traverse_Control) is null;
1925
1926   not overriding procedure Enter_State
1927    (Self    : in out UML_Visitor;
1928     Element : not null AMF.UML.States.UML_State_Access;
1929     Control : in out AMF.Visitors.Traverse_Control) is null;
1930
1931   not overriding procedure Leave_State
1932    (Self    : in out UML_Visitor;
1933     Element : not null AMF.UML.States.UML_State_Access;
1934     Control : in out AMF.Visitors.Traverse_Control) is null;
1935
1936   not overriding procedure Enter_State_Invariant
1937    (Self    : in out UML_Visitor;
1938     Element : not null AMF.UML.State_Invariants.UML_State_Invariant_Access;
1939     Control : in out AMF.Visitors.Traverse_Control) is null;
1940
1941   not overriding procedure Leave_State_Invariant
1942    (Self    : in out UML_Visitor;
1943     Element : not null AMF.UML.State_Invariants.UML_State_Invariant_Access;
1944     Control : in out AMF.Visitors.Traverse_Control) is null;
1945
1946   not overriding procedure Enter_State_Machine
1947    (Self    : in out UML_Visitor;
1948     Element : not null AMF.UML.State_Machines.UML_State_Machine_Access;
1949     Control : in out AMF.Visitors.Traverse_Control) is null;
1950
1951   not overriding procedure Leave_State_Machine
1952    (Self    : in out UML_Visitor;
1953     Element : not null AMF.UML.State_Machines.UML_State_Machine_Access;
1954     Control : in out AMF.Visitors.Traverse_Control) is null;
1955
1956   not overriding procedure Enter_Stereotype
1957    (Self    : in out UML_Visitor;
1958     Element : not null AMF.UML.Stereotypes.UML_Stereotype_Access;
1959     Control : in out AMF.Visitors.Traverse_Control) is null;
1960
1961   not overriding procedure Leave_Stereotype
1962    (Self    : in out UML_Visitor;
1963     Element : not null AMF.UML.Stereotypes.UML_Stereotype_Access;
1964     Control : in out AMF.Visitors.Traverse_Control) is null;
1965
1966   not overriding procedure Enter_String_Expression
1967    (Self    : in out UML_Visitor;
1968     Element : not null AMF.UML.String_Expressions.UML_String_Expression_Access;
1969     Control : in out AMF.Visitors.Traverse_Control) is null;
1970
1971   not overriding procedure Leave_String_Expression
1972    (Self    : in out UML_Visitor;
1973     Element : not null AMF.UML.String_Expressions.UML_String_Expression_Access;
1974     Control : in out AMF.Visitors.Traverse_Control) is null;
1975
1976   not overriding procedure Enter_Structured_Activity_Node
1977    (Self    : in out UML_Visitor;
1978     Element : not null AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access;
1979     Control : in out AMF.Visitors.Traverse_Control) is null;
1980
1981   not overriding procedure Leave_Structured_Activity_Node
1982    (Self    : in out UML_Visitor;
1983     Element : not null AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access;
1984     Control : in out AMF.Visitors.Traverse_Control) is null;
1985
1986   not overriding procedure Enter_Substitution
1987    (Self    : in out UML_Visitor;
1988     Element : not null AMF.UML.Substitutions.UML_Substitution_Access;
1989     Control : in out AMF.Visitors.Traverse_Control) is null;
1990
1991   not overriding procedure Leave_Substitution
1992    (Self    : in out UML_Visitor;
1993     Element : not null AMF.UML.Substitutions.UML_Substitution_Access;
1994     Control : in out AMF.Visitors.Traverse_Control) is null;
1995
1996   not overriding procedure Enter_Template_Binding
1997    (Self    : in out UML_Visitor;
1998     Element : not null AMF.UML.Template_Bindings.UML_Template_Binding_Access;
1999     Control : in out AMF.Visitors.Traverse_Control) is null;
2000
2001   not overriding procedure Leave_Template_Binding
2002    (Self    : in out UML_Visitor;
2003     Element : not null AMF.UML.Template_Bindings.UML_Template_Binding_Access;
2004     Control : in out AMF.Visitors.Traverse_Control) is null;
2005
2006   not overriding procedure Enter_Template_Parameter
2007    (Self    : in out UML_Visitor;
2008     Element : not null AMF.UML.Template_Parameters.UML_Template_Parameter_Access;
2009     Control : in out AMF.Visitors.Traverse_Control) is null;
2010
2011   not overriding procedure Leave_Template_Parameter
2012    (Self    : in out UML_Visitor;
2013     Element : not null AMF.UML.Template_Parameters.UML_Template_Parameter_Access;
2014     Control : in out AMF.Visitors.Traverse_Control) is null;
2015
2016   not overriding procedure Enter_Template_Parameter_Substitution
2017    (Self    : in out UML_Visitor;
2018     Element : not null AMF.UML.Template_Parameter_Substitutions.UML_Template_Parameter_Substitution_Access;
2019     Control : in out AMF.Visitors.Traverse_Control) is null;
2020
2021   not overriding procedure Leave_Template_Parameter_Substitution
2022    (Self    : in out UML_Visitor;
2023     Element : not null AMF.UML.Template_Parameter_Substitutions.UML_Template_Parameter_Substitution_Access;
2024     Control : in out AMF.Visitors.Traverse_Control) is null;
2025
2026   not overriding procedure Enter_Template_Signature
2027    (Self    : in out UML_Visitor;
2028     Element : not null AMF.UML.Template_Signatures.UML_Template_Signature_Access;
2029     Control : in out AMF.Visitors.Traverse_Control) is null;
2030
2031   not overriding procedure Leave_Template_Signature
2032    (Self    : in out UML_Visitor;
2033     Element : not null AMF.UML.Template_Signatures.UML_Template_Signature_Access;
2034     Control : in out AMF.Visitors.Traverse_Control) is null;
2035
2036   not overriding procedure Enter_Test_Identity_Action
2037    (Self    : in out UML_Visitor;
2038     Element : not null AMF.UML.Test_Identity_Actions.UML_Test_Identity_Action_Access;
2039     Control : in out AMF.Visitors.Traverse_Control) is null;
2040
2041   not overriding procedure Leave_Test_Identity_Action
2042    (Self    : in out UML_Visitor;
2043     Element : not null AMF.UML.Test_Identity_Actions.UML_Test_Identity_Action_Access;
2044     Control : in out AMF.Visitors.Traverse_Control) is null;
2045
2046   not overriding procedure Enter_Time_Constraint
2047    (Self    : in out UML_Visitor;
2048     Element : not null AMF.UML.Time_Constraints.UML_Time_Constraint_Access;
2049     Control : in out AMF.Visitors.Traverse_Control) is null;
2050
2051   not overriding procedure Leave_Time_Constraint
2052    (Self    : in out UML_Visitor;
2053     Element : not null AMF.UML.Time_Constraints.UML_Time_Constraint_Access;
2054     Control : in out AMF.Visitors.Traverse_Control) is null;
2055
2056   not overriding procedure Enter_Time_Event
2057    (Self    : in out UML_Visitor;
2058     Element : not null AMF.UML.Time_Events.UML_Time_Event_Access;
2059     Control : in out AMF.Visitors.Traverse_Control) is null;
2060
2061   not overriding procedure Leave_Time_Event
2062    (Self    : in out UML_Visitor;
2063     Element : not null AMF.UML.Time_Events.UML_Time_Event_Access;
2064     Control : in out AMF.Visitors.Traverse_Control) is null;
2065
2066   not overriding procedure Enter_Time_Expression
2067    (Self    : in out UML_Visitor;
2068     Element : not null AMF.UML.Time_Expressions.UML_Time_Expression_Access;
2069     Control : in out AMF.Visitors.Traverse_Control) is null;
2070
2071   not overriding procedure Leave_Time_Expression
2072    (Self    : in out UML_Visitor;
2073     Element : not null AMF.UML.Time_Expressions.UML_Time_Expression_Access;
2074     Control : in out AMF.Visitors.Traverse_Control) is null;
2075
2076   not overriding procedure Enter_Time_Interval
2077    (Self    : in out UML_Visitor;
2078     Element : not null AMF.UML.Time_Intervals.UML_Time_Interval_Access;
2079     Control : in out AMF.Visitors.Traverse_Control) is null;
2080
2081   not overriding procedure Leave_Time_Interval
2082    (Self    : in out UML_Visitor;
2083     Element : not null AMF.UML.Time_Intervals.UML_Time_Interval_Access;
2084     Control : in out AMF.Visitors.Traverse_Control) is null;
2085
2086   not overriding procedure Enter_Time_Observation
2087    (Self    : in out UML_Visitor;
2088     Element : not null AMF.UML.Time_Observations.UML_Time_Observation_Access;
2089     Control : in out AMF.Visitors.Traverse_Control) is null;
2090
2091   not overriding procedure Leave_Time_Observation
2092    (Self    : in out UML_Visitor;
2093     Element : not null AMF.UML.Time_Observations.UML_Time_Observation_Access;
2094     Control : in out AMF.Visitors.Traverse_Control) is null;
2095
2096   not overriding procedure Enter_Transition
2097    (Self    : in out UML_Visitor;
2098     Element : not null AMF.UML.Transitions.UML_Transition_Access;
2099     Control : in out AMF.Visitors.Traverse_Control) is null;
2100
2101   not overriding procedure Leave_Transition
2102    (Self    : in out UML_Visitor;
2103     Element : not null AMF.UML.Transitions.UML_Transition_Access;
2104     Control : in out AMF.Visitors.Traverse_Control) is null;
2105
2106   not overriding procedure Enter_Trigger
2107    (Self    : in out UML_Visitor;
2108     Element : not null AMF.UML.Triggers.UML_Trigger_Access;
2109     Control : in out AMF.Visitors.Traverse_Control) is null;
2110
2111   not overriding procedure Leave_Trigger
2112    (Self    : in out UML_Visitor;
2113     Element : not null AMF.UML.Triggers.UML_Trigger_Access;
2114     Control : in out AMF.Visitors.Traverse_Control) is null;
2115
2116   not overriding procedure Enter_Unmarshall_Action
2117    (Self    : in out UML_Visitor;
2118     Element : not null AMF.UML.Unmarshall_Actions.UML_Unmarshall_Action_Access;
2119     Control : in out AMF.Visitors.Traverse_Control) is null;
2120
2121   not overriding procedure Leave_Unmarshall_Action
2122    (Self    : in out UML_Visitor;
2123     Element : not null AMF.UML.Unmarshall_Actions.UML_Unmarshall_Action_Access;
2124     Control : in out AMF.Visitors.Traverse_Control) is null;
2125
2126   not overriding procedure Enter_Usage
2127    (Self    : in out UML_Visitor;
2128     Element : not null AMF.UML.Usages.UML_Usage_Access;
2129     Control : in out AMF.Visitors.Traverse_Control) is null;
2130
2131   not overriding procedure Leave_Usage
2132    (Self    : in out UML_Visitor;
2133     Element : not null AMF.UML.Usages.UML_Usage_Access;
2134     Control : in out AMF.Visitors.Traverse_Control) is null;
2135
2136   not overriding procedure Enter_Use_Case
2137    (Self    : in out UML_Visitor;
2138     Element : not null AMF.UML.Use_Cases.UML_Use_Case_Access;
2139     Control : in out AMF.Visitors.Traverse_Control) is null;
2140
2141   not overriding procedure Leave_Use_Case
2142    (Self    : in out UML_Visitor;
2143     Element : not null AMF.UML.Use_Cases.UML_Use_Case_Access;
2144     Control : in out AMF.Visitors.Traverse_Control) is null;
2145
2146   not overriding procedure Enter_Value_Pin
2147    (Self    : in out UML_Visitor;
2148     Element : not null AMF.UML.Value_Pins.UML_Value_Pin_Access;
2149     Control : in out AMF.Visitors.Traverse_Control) is null;
2150
2151   not overriding procedure Leave_Value_Pin
2152    (Self    : in out UML_Visitor;
2153     Element : not null AMF.UML.Value_Pins.UML_Value_Pin_Access;
2154     Control : in out AMF.Visitors.Traverse_Control) is null;
2155
2156   not overriding procedure Enter_Value_Specification_Action
2157    (Self    : in out UML_Visitor;
2158     Element : not null AMF.UML.Value_Specification_Actions.UML_Value_Specification_Action_Access;
2159     Control : in out AMF.Visitors.Traverse_Control) is null;
2160
2161   not overriding procedure Leave_Value_Specification_Action
2162    (Self    : in out UML_Visitor;
2163     Element : not null AMF.UML.Value_Specification_Actions.UML_Value_Specification_Action_Access;
2164     Control : in out AMF.Visitors.Traverse_Control) is null;
2165
2166   not overriding procedure Enter_Variable
2167    (Self    : in out UML_Visitor;
2168     Element : not null AMF.UML.Variables.UML_Variable_Access;
2169     Control : in out AMF.Visitors.Traverse_Control) is null;
2170
2171   not overriding procedure Leave_Variable
2172    (Self    : in out UML_Visitor;
2173     Element : not null AMF.UML.Variables.UML_Variable_Access;
2174     Control : in out AMF.Visitors.Traverse_Control) is null;
2175
2176end AMF.Visitors.UML_Visitors;
2177