1------------------------------------------------------------------------------
2--                                                                          --
3--                            Matreshka Project                             --
4--                                                                          --
5--                          Ada Modeling Framework                          --
6--                                                                          --
7--                        Runtime Library Component                         --
8--                                                                          --
9------------------------------------------------------------------------------
10--                                                                          --
11-- Copyright © 2011-2013, 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: 3637 $ $Date: 2013-01-07 21:22:12 +0400 (Mon, 07 Jan 2013) $
43------------------------------------------------------------------------------
44--  This file is generated, don't edit it.
45------------------------------------------------------------------------------
46with AMF.Internals.Links;
47with AMF.Internals.Tables.DC_Notification;
48with AMF.Internals.Tables.DI_Metamodel;
49with AMF.Internals.Tables.Primitive_Types_Notification;
50with AMF.Internals.Tables.Standard_Profile_L2_Metamodel;
51with AMF.Internals.Tables.Standard_Profile_L3_Metamodel;
52with AMF.Internals.Tables.UMLDI_Metamodel;
53with AMF.Internals.Tables.UMLDI_Notification;
54with AMF.Internals.Tables.UML_Element_Table;
55with AMF.Internals.Tables.UML_Metamodel;
56with AMF.Internals.Tables.UML_Notification;
57with AMF.Internals.Tables.UML_Types;
58
59package body AMF.Internals.Tables.UML_Attributes is
60
61   use type Matreshka.Internals.Strings.Shared_String_Access;
62
63   --  Auxiliary
64   --
65   --     1  Auxiliary::base_Class
66   --
67
68   --  Call
69   --
70   --     1  Call::base_Usage
71   --
72
73   --  Create
74   --
75   --     1  Create::base_BehavioralFeature
76   --     2  Create::base_Usage
77   --
78
79   --  Derive
80   --
81   --     1  Derive::base_Abstraction
82   --     2  Derive::computation
83   --
84
85   --  Destroy
86   --
87   --     1  Destroy::base_BehavioralFeature
88   --
89
90   --  Document
91   --
92   --     2  Document::base_Artifact
93   --     1  File::base_Artifact
94   --
95
96   --  Entity
97   --
98   --     1  Entity::base_Component
99   --
100
101   --  Executable
102   --
103   --     2  Executable::base_Artifact
104   --     1  File::base_Artifact
105   --
106
107   --  Focus
108   --
109   --     1  Focus::base_Class
110   --
111
112   --  Framework
113   --
114   --     1  Framework::base_Package
115   --
116
117   --  Implement
118   --
119   --     1  Implement::base_Component
120   --
121
122   --  ImplementationClass
123   --
124   --     1  ImplementationClass::base_Class
125   --
126
127   --  Instantiate
128   --
129   --     1  Instantiate::base_Usage
130   --
131
132   --  Library
133   --
134   --     1  File::base_Artifact
135   --     2  Library::base_Artifact
136   --
137
138   --  Metaclass
139   --
140   --     1  Metaclass::base_Class
141   --
142
143   --  ModelLibrary
144   --
145   --     1  ModelLibrary::base_Package
146   --
147
148   --  Process
149   --
150   --     1  Process::base_Component
151   --
152
153   --  Realization
154   --
155   --     1  Realization::base_Classifier
156   --
157
158   --  Refine
159   --
160   --     1  Refine::base_Abstraction
161   --
162
163   --  Responsibility
164   --
165   --     1  Responsibility::base_Usage
166   --
167
168   --  Script
169   --
170   --     1  File::base_Artifact
171   --     2  Script::base_Artifact
172   --
173
174   --  Send
175   --
176   --     1  Send::base_Usage
177   --
178
179   --  Service
180   --
181   --     1  Service::base_Component
182   --
183
184   --  Source
185   --
186   --     1  File::base_Artifact
187   --     2  Source::base_Artifact
188   --
189
190   --  Specification
191   --
192   --     1  Specification::base_Classifier
193   --
194
195   --  Subsystem
196   --
197   --     1  Subsystem::base_Component
198   --
199
200   --  Trace
201   --
202   --     1  Trace::base_Abstraction
203   --
204
205   --  Type
206   --
207   --     1  Type::base_Class
208   --
209
210   --  Utility
211   --
212   --     1  Utility::base_Class
213   --
214
215   --  BuildComponent
216   --
217   --     1  BuildComponent::base_Component
218   --
219
220   --  Metamodel
221   --
222   --     1  Metamodel::base_Model
223   --
224
225   --  SystemModel
226   --
227   --     1  SystemModel::base_Model
228   --
229
230   --  Abstraction
231   --
232   --     7  Abstraction::mapping
233   --     2  NamedElement::name
234   --     3  NamedElement::nameExpression
235   --     4  NamedElement::namespace
236   --     1  Element::owner
237   --     8  ParameterableElement::owningTemplateParameter
238   --     5  NamedElement::qualifiedName
239   --     9  ParameterableElement::templateParameter
240   --     6  NamedElement::visibility
241   --     6  PackageableElement::visibility
242   --
243   --     6  Dependency::client
244   --     3  NamedElement::clientDependency
245   --     1  Element::ownedComment
246   --     2  Element::ownedElement
247   --     24  Relationship::relatedElement
248   --     4  DirectedRelationship::source
249   --     7  Dependency::supplier
250   --     5  DirectedRelationship::target
251
252   --  AcceptCallAction
253   --
254   --     8  ActivityNode::activity
255   --     10  Action::context
256   --     9  ActivityNode::inStructuredNode
257   --     7  RedefinableElement::isLeaf
258   --     11  Action::isLocallyReentrant
259   --     12  AcceptEventAction::isUnmarshall
260   --     2  NamedElement::name
261   --     3  NamedElement::nameExpression
262   --     4  NamedElement::namespace
263   --     1  Element::owner
264   --     5  NamedElement::qualifiedName
265   --     13  AcceptCallAction::returnInformation
266   --     6  NamedElement::visibility
267   --
268   --     3  NamedElement::clientDependency
269   --     18  ExecutableNode::handler
270   --     6  ActivityNode::inGroup
271   --     7  ActivityNode::inInterruptibleRegion
272   --     8  ActivityNode::inPartition
273   --     9  ActivityNode::incoming
274   --     19  Action::input
275   --     20  Action::localPostcondition
276   --     21  Action::localPrecondition
277   --     10  ActivityNode::outgoing
278   --     22  Action::output
279   --     1  Element::ownedComment
280   --     2  Element::ownedElement
281   --     4  RedefinableElement::redefinedElement
282   --     11  ActivityNode::redefinedNode
283   --     5  RedefinableElement::redefinitionContext
284   --     12  AcceptEventAction::result
285   --     13  AcceptEventAction::trigger
286
287   --  AcceptEventAction
288   --
289   --     8  ActivityNode::activity
290   --     10  Action::context
291   --     9  ActivityNode::inStructuredNode
292   --     7  RedefinableElement::isLeaf
293   --     11  Action::isLocallyReentrant
294   --     12  AcceptEventAction::isUnmarshall
295   --     2  NamedElement::name
296   --     3  NamedElement::nameExpression
297   --     4  NamedElement::namespace
298   --     1  Element::owner
299   --     5  NamedElement::qualifiedName
300   --     6  NamedElement::visibility
301   --
302   --     3  NamedElement::clientDependency
303   --     18  ExecutableNode::handler
304   --     6  ActivityNode::inGroup
305   --     7  ActivityNode::inInterruptibleRegion
306   --     8  ActivityNode::inPartition
307   --     9  ActivityNode::incoming
308   --     19  Action::input
309   --     20  Action::localPostcondition
310   --     21  Action::localPrecondition
311   --     10  ActivityNode::outgoing
312   --     22  Action::output
313   --     1  Element::ownedComment
314   --     2  Element::ownedElement
315   --     4  RedefinableElement::redefinedElement
316   --     11  ActivityNode::redefinedNode
317   --     5  RedefinableElement::redefinitionContext
318   --     12  AcceptEventAction::result
319   --     13  AcceptEventAction::trigger
320
321   --  ActionExecutionSpecification
322   --
323   --     9  ActionExecutionSpecification::action
324   --     18  InteractionFragment::enclosingInteraction
325   --     19  InteractionFragment::enclosingOperand
326   --     7  ExecutionSpecification::finish
327   --     2  NamedElement::name
328   --     3  NamedElement::nameExpression
329   --     4  NamedElement::namespace
330   --     1  Element::owner
331   --     5  NamedElement::qualifiedName
332   --     8  ExecutionSpecification::start
333   --     6  NamedElement::visibility
334   --
335   --     3  NamedElement::clientDependency
336   --     24  InteractionFragment::covered
337   --     27  InteractionFragment::generalOrdering
338   --     1  Element::ownedComment
339   --     2  Element::ownedElement
340
341   --  ActionInputPin
342   --
343   --     8  ActivityNode::activity
344   --     22  ActionInputPin::fromAction
345   --     9  ActivityNode::inStructuredNode
346   --     21  Pin::isControl
347   --     17  ObjectNode::isControlType
348   --     7  RedefinableElement::isLeaf
349   --     12  MultiplicityElement::isOrdered
350   --     13  MultiplicityElement::isUnique
351   --     14  MultiplicityElement::lower
352   --     10  MultiplicityElement::lowerValue
353   --     2  NamedElement::name
354   --     3  NamedElement::nameExpression
355   --     4  NamedElement::namespace
356   --     18  ObjectNode::ordering
357   --     1  Element::owner
358   --     5  NamedElement::qualifiedName
359   --     19  ObjectNode::selection
360   --     11  TypedElement::type
361   --     15  MultiplicityElement::upper
362   --     20  ObjectNode::upperBound
363   --     16  MultiplicityElement::upperValue
364   --     6  NamedElement::visibility
365   --
366   --     3  NamedElement::clientDependency
367   --     6  ActivityNode::inGroup
368   --     7  ActivityNode::inInterruptibleRegion
369   --     8  ActivityNode::inPartition
370   --     12  ObjectNode::inState
371   --     9  ActivityNode::incoming
372   --     10  ActivityNode::outgoing
373   --     1  Element::ownedComment
374   --     2  Element::ownedElement
375   --     4  RedefinableElement::redefinedElement
376   --     11  ActivityNode::redefinedNode
377   --     5  RedefinableElement::redefinitionContext
378
379   --  Activity
380   --
381   --     17  BehavioredClassifier::classifierBehavior
382   --     21  Behavior::context
383   --     11  Class::isAbstract
384   --     11  Classifier::isAbstract
385   --     20  Class::isActive
386   --     13  Classifier::isFinalSpecialization
387   --     7  RedefinableElement::isLeaf
388   --     24  Activity::isReadOnly
389   --     22  Behavior::isReentrant
390   --     18  Activity::isSingleExecution
391   --     2  NamedElement::name
392   --     3  NamedElement::nameExpression
393   --     4  NamedElement::namespace
394   --     14  Classifier::ownedTemplateSignature
395   --     10  TemplateableElement::ownedTemplateSignature
396   --     1  Element::owner
397   --     8  ParameterableElement::owningTemplateParameter
398   --     12  Type::package
399   --     5  NamedElement::qualifiedName
400   --     15  Classifier::representation
401   --     23  Behavior::specification
402   --     16  Classifier::templateParameter
403   --     9  ParameterableElement::templateParameter
404   --     6  NamedElement::visibility
405   --     6  PackageableElement::visibility
406   --
407   --     7  Classifier::attribute
408   --     3  NamedElement::clientDependency
409   --     8  Classifier::collaborationUse
410   --     24  Activity::edge
411   --     12  Namespace::elementImport
412   --     33  Class::extension
413   --     9  Classifier::feature
414   --     10  Classifier::general
415   --     11  Classifier::generalization
416   --     27  Activity::group
417   --     13  Namespace::importedMember
418   --     18  Classifier::inheritedMember
419   --     25  BehavioredClassifier::interfaceRealization
420   --     14  Namespace::member
421   --     34  Class::nestedClassifier
422   --     44  Activity::node
423   --     35  Class::ownedAttribute
424   --     28  StructuredClassifier::ownedAttribute
425   --     26  BehavioredClassifier::ownedBehavior
426   --     1  Element::ownedComment
427   --     29  StructuredClassifier::ownedConnector
428   --     2  Element::ownedElement
429   --     15  Namespace::ownedMember
430   --     36  Class::ownedOperation
431   --     39  Behavior::ownedParameter
432   --     40  Behavior::ownedParameterSet
433   --     32  EncapsulatedClassifier::ownedPort
434   --     37  Class::ownedReception
435   --     16  Namespace::ownedRule
436   --     19  Classifier::ownedUseCase
437   --     17  Namespace::packageImport
438   --     30  StructuredClassifier::part
439   --     45  Activity::partition
440   --     41  Behavior::postcondition
441   --     20  Classifier::powertypeExtent
442   --     42  Behavior::precondition
443   --     43  Behavior::redefinedBehavior
444   --     21  Classifier::redefinedClassifier
445   --     4  RedefinableElement::redefinedElement
446   --     5  RedefinableElement::redefinitionContext
447   --     31  StructuredClassifier::role
448   --     46  Activity::structuredNode
449   --     22  Classifier::substitution
450   --     38  Class::superClass
451   --     6  TemplateableElement::templateBinding
452   --     23  Classifier::useCase
453   --     47  Activity::variable
454
455   --  ActivityFinalNode
456   --
457   --     8  ActivityNode::activity
458   --     9  ActivityNode::inStructuredNode
459   --     7  RedefinableElement::isLeaf
460   --     2  NamedElement::name
461   --     3  NamedElement::nameExpression
462   --     4  NamedElement::namespace
463   --     1  Element::owner
464   --     5  NamedElement::qualifiedName
465   --     6  NamedElement::visibility
466   --
467   --     3  NamedElement::clientDependency
468   --     6  ActivityNode::inGroup
469   --     7  ActivityNode::inInterruptibleRegion
470   --     8  ActivityNode::inPartition
471   --     9  ActivityNode::incoming
472   --     10  ActivityNode::outgoing
473   --     1  Element::ownedComment
474   --     2  Element::ownedElement
475   --     4  RedefinableElement::redefinedElement
476   --     11  ActivityNode::redefinedNode
477   --     5  RedefinableElement::redefinitionContext
478
479   --  ActivityParameterNode
480   --
481   --     8  ActivityNode::activity
482   --     9  ActivityNode::inStructuredNode
483   --     17  ObjectNode::isControlType
484   --     7  RedefinableElement::isLeaf
485   --     2  NamedElement::name
486   --     3  NamedElement::nameExpression
487   --     4  NamedElement::namespace
488   --     18  ObjectNode::ordering
489   --     1  Element::owner
490   --     10  ActivityParameterNode::parameter
491   --     5  NamedElement::qualifiedName
492   --     19  ObjectNode::selection
493   --     11  TypedElement::type
494   --     20  ObjectNode::upperBound
495   --     6  NamedElement::visibility
496   --
497   --     3  NamedElement::clientDependency
498   --     6  ActivityNode::inGroup
499   --     7  ActivityNode::inInterruptibleRegion
500   --     8  ActivityNode::inPartition
501   --     12  ObjectNode::inState
502   --     9  ActivityNode::incoming
503   --     10  ActivityNode::outgoing
504   --     1  Element::ownedComment
505   --     2  Element::ownedElement
506   --     4  RedefinableElement::redefinedElement
507   --     11  ActivityNode::redefinedNode
508   --     5  RedefinableElement::redefinitionContext
509
510   --  ActivityPartition
511   --
512   --     12  ActivityGroup::inActivity
513   --     7  ActivityPartition::isDimension
514   --     8  ActivityPartition::isExternal
515   --     2  NamedElement::name
516   --     3  NamedElement::nameExpression
517   --     4  NamedElement::namespace
518   --     1  Element::owner
519   --     5  NamedElement::qualifiedName
520   --     9  ActivityPartition::represents
521   --     13  ActivityGroup::superGroup
522   --     10  ActivityPartition::superPartition
523   --     6  NamedElement::visibility
524   --
525   --     3  NamedElement::clientDependency
526   --     23  ActivityGroup::containedEdge
527   --     24  ActivityGroup::containedNode
528   --     4  ActivityPartition::edge
529   --     5  ActivityPartition::node
530   --     1  Element::ownedComment
531   --     2  Element::ownedElement
532   --     25  ActivityGroup::subgroup
533   --     6  ActivityPartition::subpartition
534
535   --  Actor
536   --
537   --     17  BehavioredClassifier::classifierBehavior
538   --     11  Classifier::isAbstract
539   --     13  Classifier::isFinalSpecialization
540   --     7  RedefinableElement::isLeaf
541   --     2  NamedElement::name
542   --     3  NamedElement::nameExpression
543   --     4  NamedElement::namespace
544   --     14  Classifier::ownedTemplateSignature
545   --     10  TemplateableElement::ownedTemplateSignature
546   --     1  Element::owner
547   --     8  ParameterableElement::owningTemplateParameter
548   --     12  Type::package
549   --     5  NamedElement::qualifiedName
550   --     15  Classifier::representation
551   --     16  Classifier::templateParameter
552   --     9  ParameterableElement::templateParameter
553   --     6  NamedElement::visibility
554   --     6  PackageableElement::visibility
555   --
556   --     7  Classifier::attribute
557   --     3  NamedElement::clientDependency
558   --     8  Classifier::collaborationUse
559   --     12  Namespace::elementImport
560   --     9  Classifier::feature
561   --     10  Classifier::general
562   --     11  Classifier::generalization
563   --     13  Namespace::importedMember
564   --     18  Classifier::inheritedMember
565   --     25  BehavioredClassifier::interfaceRealization
566   --     14  Namespace::member
567   --     26  BehavioredClassifier::ownedBehavior
568   --     1  Element::ownedComment
569   --     2  Element::ownedElement
570   --     15  Namespace::ownedMember
571   --     16  Namespace::ownedRule
572   --     19  Classifier::ownedUseCase
573   --     17  Namespace::packageImport
574   --     20  Classifier::powertypeExtent
575   --     21  Classifier::redefinedClassifier
576   --     4  RedefinableElement::redefinedElement
577   --     5  RedefinableElement::redefinitionContext
578   --     22  Classifier::substitution
579   --     6  TemplateableElement::templateBinding
580   --     23  Classifier::useCase
581
582   --  AddStructuralFeatureValueAction
583   --
584   --     8  ActivityNode::activity
585   --     10  Action::context
586   --     9  ActivityNode::inStructuredNode
587   --     17  AddStructuralFeatureValueAction::insertAt
588   --     7  RedefinableElement::isLeaf
589   --     11  Action::isLocallyReentrant
590   --     14  AddStructuralFeatureValueAction::isReplaceAll
591   --     2  NamedElement::name
592   --     3  NamedElement::nameExpression
593   --     4  NamedElement::namespace
594   --     12  StructuralFeatureAction::object
595   --     1  Element::owner
596   --     5  NamedElement::qualifiedName
597   --     15  WriteStructuralFeatureAction::result
598   --     13  StructuralFeatureAction::structuralFeature
599   --     16  WriteStructuralFeatureAction::value
600   --     6  NamedElement::visibility
601   --
602   --     3  NamedElement::clientDependency
603   --     18  ExecutableNode::handler
604   --     6  ActivityNode::inGroup
605   --     7  ActivityNode::inInterruptibleRegion
606   --     8  ActivityNode::inPartition
607   --     9  ActivityNode::incoming
608   --     19  Action::input
609   --     20  Action::localPostcondition
610   --     21  Action::localPrecondition
611   --     10  ActivityNode::outgoing
612   --     22  Action::output
613   --     1  Element::ownedComment
614   --     2  Element::ownedElement
615   --     4  RedefinableElement::redefinedElement
616   --     11  ActivityNode::redefinedNode
617   --     5  RedefinableElement::redefinitionContext
618
619   --  AddVariableValueAction
620   --
621   --     8  ActivityNode::activity
622   --     10  Action::context
623   --     9  ActivityNode::inStructuredNode
624   --     15  AddVariableValueAction::insertAt
625   --     7  RedefinableElement::isLeaf
626   --     11  Action::isLocallyReentrant
627   --     14  AddVariableValueAction::isReplaceAll
628   --     2  NamedElement::name
629   --     3  NamedElement::nameExpression
630   --     4  NamedElement::namespace
631   --     1  Element::owner
632   --     5  NamedElement::qualifiedName
633   --     13  WriteVariableAction::value
634   --     12  VariableAction::variable
635   --     6  NamedElement::visibility
636   --
637   --     3  NamedElement::clientDependency
638   --     18  ExecutableNode::handler
639   --     6  ActivityNode::inGroup
640   --     7  ActivityNode::inInterruptibleRegion
641   --     8  ActivityNode::inPartition
642   --     9  ActivityNode::incoming
643   --     19  Action::input
644   --     20  Action::localPostcondition
645   --     21  Action::localPrecondition
646   --     10  ActivityNode::outgoing
647   --     22  Action::output
648   --     1  Element::ownedComment
649   --     2  Element::ownedElement
650   --     4  RedefinableElement::redefinedElement
651   --     11  ActivityNode::redefinedNode
652   --     5  RedefinableElement::redefinitionContext
653
654   --  AnyReceiveEvent
655   --
656   --     2  NamedElement::name
657   --     3  NamedElement::nameExpression
658   --     4  NamedElement::namespace
659   --     1  Element::owner
660   --     8  ParameterableElement::owningTemplateParameter
661   --     5  NamedElement::qualifiedName
662   --     9  ParameterableElement::templateParameter
663   --     6  NamedElement::visibility
664   --     6  PackageableElement::visibility
665   --
666   --     3  NamedElement::clientDependency
667   --     1  Element::ownedComment
668   --     2  Element::ownedElement
669
670   --  Artifact
671   --
672   --     17  Artifact::fileName
673   --     11  Classifier::isAbstract
674   --     13  Classifier::isFinalSpecialization
675   --     7  RedefinableElement::isLeaf
676   --     2  NamedElement::name
677   --     3  NamedElement::nameExpression
678   --     4  NamedElement::namespace
679   --     14  Classifier::ownedTemplateSignature
680   --     10  TemplateableElement::ownedTemplateSignature
681   --     1  Element::owner
682   --     8  ParameterableElement::owningTemplateParameter
683   --     12  Type::package
684   --     5  NamedElement::qualifiedName
685   --     15  Classifier::representation
686   --     16  Classifier::templateParameter
687   --     9  ParameterableElement::templateParameter
688   --     6  NamedElement::visibility
689   --     6  PackageableElement::visibility
690   --
691   --     7  Classifier::attribute
692   --     3  NamedElement::clientDependency
693   --     8  Classifier::collaborationUse
694   --     12  Namespace::elementImport
695   --     9  Classifier::feature
696   --     10  Classifier::general
697   --     11  Classifier::generalization
698   --     13  Namespace::importedMember
699   --     18  Classifier::inheritedMember
700   --     24  Artifact::manifestation
701   --     14  Namespace::member
702   --     25  Artifact::nestedArtifact
703   --     26  Artifact::ownedAttribute
704   --     1  Element::ownedComment
705   --     2  Element::ownedElement
706   --     15  Namespace::ownedMember
707   --     27  Artifact::ownedOperation
708   --     16  Namespace::ownedRule
709   --     19  Classifier::ownedUseCase
710   --     17  Namespace::packageImport
711   --     20  Classifier::powertypeExtent
712   --     21  Classifier::redefinedClassifier
713   --     4  RedefinableElement::redefinedElement
714   --     5  RedefinableElement::redefinitionContext
715   --     22  Classifier::substitution
716   --     6  TemplateableElement::templateBinding
717   --     23  Classifier::useCase
718
719   --  Association
720   --
721   --     11  Classifier::isAbstract
722   --     18  Association::isDerived
723   --     13  Classifier::isFinalSpecialization
724   --     7  RedefinableElement::isLeaf
725   --     2  NamedElement::name
726   --     3  NamedElement::nameExpression
727   --     4  NamedElement::namespace
728   --     14  Classifier::ownedTemplateSignature
729   --     10  TemplateableElement::ownedTemplateSignature
730   --     1  Element::owner
731   --     8  ParameterableElement::owningTemplateParameter
732   --     12  Type::package
733   --     5  NamedElement::qualifiedName
734   --     15  Classifier::representation
735   --     16  Classifier::templateParameter
736   --     9  ParameterableElement::templateParameter
737   --     6  NamedElement::visibility
738   --     6  PackageableElement::visibility
739   --
740   --     7  Classifier::attribute
741   --     3  NamedElement::clientDependency
742   --     8  Classifier::collaborationUse
743   --     12  Namespace::elementImport
744   --     27  Association::endType
745   --     9  Classifier::feature
746   --     10  Classifier::general
747   --     11  Classifier::generalization
748   --     13  Namespace::importedMember
749   --     18  Classifier::inheritedMember
750   --     14  Namespace::member
751   --     39  Association::memberEnd
752   --     40  Association::navigableOwnedEnd
753   --     1  Element::ownedComment
754   --     2  Element::ownedElement
755   --     41  Association::ownedEnd
756   --     15  Namespace::ownedMember
757   --     16  Namespace::ownedRule
758   --     19  Classifier::ownedUseCase
759   --     17  Namespace::packageImport
760   --     20  Classifier::powertypeExtent
761   --     21  Classifier::redefinedClassifier
762   --     4  RedefinableElement::redefinedElement
763   --     5  RedefinableElement::redefinitionContext
764   --     24  Relationship::relatedElement
765   --     22  Classifier::substitution
766   --     6  TemplateableElement::templateBinding
767   --     23  Classifier::useCase
768
769   --  AssociationClass
770   --
771   --     17  BehavioredClassifier::classifierBehavior
772   --     11  Class::isAbstract
773   --     11  Classifier::isAbstract
774   --     20  Class::isActive
775   --     18  Association::isDerived
776   --     13  Classifier::isFinalSpecialization
777   --     7  RedefinableElement::isLeaf
778   --     2  NamedElement::name
779   --     3  NamedElement::nameExpression
780   --     4  NamedElement::namespace
781   --     14  Classifier::ownedTemplateSignature
782   --     10  TemplateableElement::ownedTemplateSignature
783   --     1  Element::owner
784   --     8  ParameterableElement::owningTemplateParameter
785   --     12  Type::package
786   --     5  NamedElement::qualifiedName
787   --     15  Classifier::representation
788   --     16  Classifier::templateParameter
789   --     9  ParameterableElement::templateParameter
790   --     6  NamedElement::visibility
791   --     6  PackageableElement::visibility
792   --
793   --     7  Classifier::attribute
794   --     3  NamedElement::clientDependency
795   --     8  Classifier::collaborationUse
796   --     12  Namespace::elementImport
797   --     27  Association::endType
798   --     33  Class::extension
799   --     9  Classifier::feature
800   --     10  Classifier::general
801   --     11  Classifier::generalization
802   --     13  Namespace::importedMember
803   --     18  Classifier::inheritedMember
804   --     25  BehavioredClassifier::interfaceRealization
805   --     14  Namespace::member
806   --     39  Association::memberEnd
807   --     40  Association::navigableOwnedEnd
808   --     34  Class::nestedClassifier
809   --     35  Class::ownedAttribute
810   --     28  StructuredClassifier::ownedAttribute
811   --     26  BehavioredClassifier::ownedBehavior
812   --     1  Element::ownedComment
813   --     29  StructuredClassifier::ownedConnector
814   --     2  Element::ownedElement
815   --     41  Association::ownedEnd
816   --     15  Namespace::ownedMember
817   --     36  Class::ownedOperation
818   --     32  EncapsulatedClassifier::ownedPort
819   --     37  Class::ownedReception
820   --     16  Namespace::ownedRule
821   --     19  Classifier::ownedUseCase
822   --     17  Namespace::packageImport
823   --     30  StructuredClassifier::part
824   --     20  Classifier::powertypeExtent
825   --     21  Classifier::redefinedClassifier
826   --     4  RedefinableElement::redefinedElement
827   --     5  RedefinableElement::redefinitionContext
828   --     24  Relationship::relatedElement
829   --     31  StructuredClassifier::role
830   --     22  Classifier::substitution
831   --     38  Class::superClass
832   --     6  TemplateableElement::templateBinding
833   --     23  Classifier::useCase
834
835   --  BehaviorExecutionSpecification
836   --
837   --     9  BehaviorExecutionSpecification::behavior
838   --     18  InteractionFragment::enclosingInteraction
839   --     19  InteractionFragment::enclosingOperand
840   --     7  ExecutionSpecification::finish
841   --     2  NamedElement::name
842   --     3  NamedElement::nameExpression
843   --     4  NamedElement::namespace
844   --     1  Element::owner
845   --     5  NamedElement::qualifiedName
846   --     8  ExecutionSpecification::start
847   --     6  NamedElement::visibility
848   --
849   --     3  NamedElement::clientDependency
850   --     24  InteractionFragment::covered
851   --     27  InteractionFragment::generalOrdering
852   --     1  Element::ownedComment
853   --     2  Element::ownedElement
854
855   --  BroadcastSignalAction
856   --
857   --     8  ActivityNode::activity
858   --     10  Action::context
859   --     9  ActivityNode::inStructuredNode
860   --     7  RedefinableElement::isLeaf
861   --     11  Action::isLocallyReentrant
862   --     2  NamedElement::name
863   --     3  NamedElement::nameExpression
864   --     4  NamedElement::namespace
865   --     12  InvocationAction::onPort
866   --     1  Element::owner
867   --     5  NamedElement::qualifiedName
868   --     13  BroadcastSignalAction::signal
869   --     6  NamedElement::visibility
870   --
871   --     12  InvocationAction::argument
872   --     3  NamedElement::clientDependency
873   --     18  ExecutableNode::handler
874   --     6  ActivityNode::inGroup
875   --     7  ActivityNode::inInterruptibleRegion
876   --     8  ActivityNode::inPartition
877   --     9  ActivityNode::incoming
878   --     19  Action::input
879   --     20  Action::localPostcondition
880   --     21  Action::localPrecondition
881   --     10  ActivityNode::outgoing
882   --     22  Action::output
883   --     1  Element::ownedComment
884   --     2  Element::ownedElement
885   --     4  RedefinableElement::redefinedElement
886   --     11  ActivityNode::redefinedNode
887   --     5  RedefinableElement::redefinitionContext
888
889   --  CallBehaviorAction
890   --
891   --     8  ActivityNode::activity
892   --     14  CallBehaviorAction::behavior
893   --     10  Action::context
894   --     9  ActivityNode::inStructuredNode
895   --     7  RedefinableElement::isLeaf
896   --     11  Action::isLocallyReentrant
897   --     13  CallAction::isSynchronous
898   --     2  NamedElement::name
899   --     3  NamedElement::nameExpression
900   --     4  NamedElement::namespace
901   --     12  InvocationAction::onPort
902   --     1  Element::owner
903   --     5  NamedElement::qualifiedName
904   --     6  NamedElement::visibility
905   --
906   --     12  InvocationAction::argument
907   --     3  NamedElement::clientDependency
908   --     18  ExecutableNode::handler
909   --     6  ActivityNode::inGroup
910   --     7  ActivityNode::inInterruptibleRegion
911   --     8  ActivityNode::inPartition
912   --     9  ActivityNode::incoming
913   --     19  Action::input
914   --     20  Action::localPostcondition
915   --     21  Action::localPrecondition
916   --     10  ActivityNode::outgoing
917   --     22  Action::output
918   --     1  Element::ownedComment
919   --     2  Element::ownedElement
920   --     4  RedefinableElement::redefinedElement
921   --     11  ActivityNode::redefinedNode
922   --     5  RedefinableElement::redefinitionContext
923   --     13  CallAction::result
924
925   --  CallEvent
926   --
927   --     2  NamedElement::name
928   --     3  NamedElement::nameExpression
929   --     4  NamedElement::namespace
930   --     7  CallEvent::operation
931   --     1  Element::owner
932   --     8  ParameterableElement::owningTemplateParameter
933   --     5  NamedElement::qualifiedName
934   --     9  ParameterableElement::templateParameter
935   --     6  NamedElement::visibility
936   --     6  PackageableElement::visibility
937   --
938   --     3  NamedElement::clientDependency
939   --     1  Element::ownedComment
940   --     2  Element::ownedElement
941
942   --  CallOperationAction
943   --
944   --     8  ActivityNode::activity
945   --     10  Action::context
946   --     9  ActivityNode::inStructuredNode
947   --     7  RedefinableElement::isLeaf
948   --     11  Action::isLocallyReentrant
949   --     13  CallAction::isSynchronous
950   --     2  NamedElement::name
951   --     3  NamedElement::nameExpression
952   --     4  NamedElement::namespace
953   --     12  InvocationAction::onPort
954   --     14  CallOperationAction::operation
955   --     1  Element::owner
956   --     5  NamedElement::qualifiedName
957   --     15  CallOperationAction::target
958   --     6  NamedElement::visibility
959   --
960   --     12  InvocationAction::argument
961   --     3  NamedElement::clientDependency
962   --     18  ExecutableNode::handler
963   --     6  ActivityNode::inGroup
964   --     7  ActivityNode::inInterruptibleRegion
965   --     8  ActivityNode::inPartition
966   --     9  ActivityNode::incoming
967   --     19  Action::input
968   --     20  Action::localPostcondition
969   --     21  Action::localPrecondition
970   --     10  ActivityNode::outgoing
971   --     22  Action::output
972   --     1  Element::ownedComment
973   --     2  Element::ownedElement
974   --     4  RedefinableElement::redefinedElement
975   --     11  ActivityNode::redefinedNode
976   --     5  RedefinableElement::redefinitionContext
977   --     13  CallAction::result
978
979   --  CentralBufferNode
980   --
981   --     8  ActivityNode::activity
982   --     9  ActivityNode::inStructuredNode
983   --     17  ObjectNode::isControlType
984   --     7  RedefinableElement::isLeaf
985   --     2  NamedElement::name
986   --     3  NamedElement::nameExpression
987   --     4  NamedElement::namespace
988   --     18  ObjectNode::ordering
989   --     1  Element::owner
990   --     5  NamedElement::qualifiedName
991   --     19  ObjectNode::selection
992   --     11  TypedElement::type
993   --     20  ObjectNode::upperBound
994   --     6  NamedElement::visibility
995   --
996   --     3  NamedElement::clientDependency
997   --     6  ActivityNode::inGroup
998   --     7  ActivityNode::inInterruptibleRegion
999   --     8  ActivityNode::inPartition
1000   --     12  ObjectNode::inState
1001   --     9  ActivityNode::incoming
1002   --     10  ActivityNode::outgoing
1003   --     1  Element::ownedComment
1004   --     2  Element::ownedElement
1005   --     4  RedefinableElement::redefinedElement
1006   --     11  ActivityNode::redefinedNode
1007   --     5  RedefinableElement::redefinitionContext
1008
1009   --  ChangeEvent
1010   --
1011   --     7  ChangeEvent::changeExpression
1012   --     2  NamedElement::name
1013   --     3  NamedElement::nameExpression
1014   --     4  NamedElement::namespace
1015   --     1  Element::owner
1016   --     8  ParameterableElement::owningTemplateParameter
1017   --     5  NamedElement::qualifiedName
1018   --     9  ParameterableElement::templateParameter
1019   --     6  NamedElement::visibility
1020   --     6  PackageableElement::visibility
1021   --
1022   --     3  NamedElement::clientDependency
1023   --     1  Element::ownedComment
1024   --     2  Element::ownedElement
1025
1026   --  Class
1027   --
1028   --     17  BehavioredClassifier::classifierBehavior
1029   --     11  Class::isAbstract
1030   --     11  Classifier::isAbstract
1031   --     20  Class::isActive
1032   --     13  Classifier::isFinalSpecialization
1033   --     7  RedefinableElement::isLeaf
1034   --     2  NamedElement::name
1035   --     3  NamedElement::nameExpression
1036   --     4  NamedElement::namespace
1037   --     14  Classifier::ownedTemplateSignature
1038   --     10  TemplateableElement::ownedTemplateSignature
1039   --     1  Element::owner
1040   --     8  ParameterableElement::owningTemplateParameter
1041   --     12  Type::package
1042   --     5  NamedElement::qualifiedName
1043   --     15  Classifier::representation
1044   --     16  Classifier::templateParameter
1045   --     9  ParameterableElement::templateParameter
1046   --     6  NamedElement::visibility
1047   --     6  PackageableElement::visibility
1048   --
1049   --     7  Classifier::attribute
1050   --     3  NamedElement::clientDependency
1051   --     8  Classifier::collaborationUse
1052   --     12  Namespace::elementImport
1053   --     33  Class::extension
1054   --     9  Classifier::feature
1055   --     10  Classifier::general
1056   --     11  Classifier::generalization
1057   --     13  Namespace::importedMember
1058   --     18  Classifier::inheritedMember
1059   --     25  BehavioredClassifier::interfaceRealization
1060   --     14  Namespace::member
1061   --     34  Class::nestedClassifier
1062   --     35  Class::ownedAttribute
1063   --     28  StructuredClassifier::ownedAttribute
1064   --     26  BehavioredClassifier::ownedBehavior
1065   --     1  Element::ownedComment
1066   --     29  StructuredClassifier::ownedConnector
1067   --     2  Element::ownedElement
1068   --     15  Namespace::ownedMember
1069   --     36  Class::ownedOperation
1070   --     32  EncapsulatedClassifier::ownedPort
1071   --     37  Class::ownedReception
1072   --     16  Namespace::ownedRule
1073   --     19  Classifier::ownedUseCase
1074   --     17  Namespace::packageImport
1075   --     30  StructuredClassifier::part
1076   --     20  Classifier::powertypeExtent
1077   --     21  Classifier::redefinedClassifier
1078   --     4  RedefinableElement::redefinedElement
1079   --     5  RedefinableElement::redefinitionContext
1080   --     31  StructuredClassifier::role
1081   --     22  Classifier::substitution
1082   --     38  Class::superClass
1083   --     6  TemplateableElement::templateBinding
1084   --     23  Classifier::useCase
1085
1086   --  ClassifierTemplateParameter
1087   --
1088   --     7  ClassifierTemplateParameter::allowSubstitutable
1089   --     2  TemplateParameter::default
1090   --     3  TemplateParameter::ownedDefault
1091   --     4  TemplateParameter::ownedParameteredElement
1092   --     1  Element::owner
1093   --     8  ClassifierTemplateParameter::parameteredElement
1094   --     5  TemplateParameter::parameteredElement
1095   --     6  TemplateParameter::signature
1096   --
1097   --     3  ClassifierTemplateParameter::constrainingClassifier
1098   --     1  Element::ownedComment
1099   --     2  Element::ownedElement
1100
1101   --  Clause
1102   --
1103   --     2  Clause::decider
1104   --     1  Element::owner
1105   --
1106   --     3  Clause::body
1107   --     4  Clause::bodyOutput
1108   --     1  Element::ownedComment
1109   --     2  Element::ownedElement
1110   --     5  Clause::predecessorClause
1111   --     6  Clause::successorClause
1112   --     7  Clause::test
1113
1114   --  ClearAssociationAction
1115   --
1116   --     8  ActivityNode::activity
1117   --     12  ClearAssociationAction::association
1118   --     10  Action::context
1119   --     9  ActivityNode::inStructuredNode
1120   --     7  RedefinableElement::isLeaf
1121   --     11  Action::isLocallyReentrant
1122   --     2  NamedElement::name
1123   --     3  NamedElement::nameExpression
1124   --     4  NamedElement::namespace
1125   --     13  ClearAssociationAction::object
1126   --     1  Element::owner
1127   --     5  NamedElement::qualifiedName
1128   --     6  NamedElement::visibility
1129   --
1130   --     3  NamedElement::clientDependency
1131   --     18  ExecutableNode::handler
1132   --     6  ActivityNode::inGroup
1133   --     7  ActivityNode::inInterruptibleRegion
1134   --     8  ActivityNode::inPartition
1135   --     9  ActivityNode::incoming
1136   --     19  Action::input
1137   --     20  Action::localPostcondition
1138   --     21  Action::localPrecondition
1139   --     10  ActivityNode::outgoing
1140   --     22  Action::output
1141   --     1  Element::ownedComment
1142   --     2  Element::ownedElement
1143   --     4  RedefinableElement::redefinedElement
1144   --     11  ActivityNode::redefinedNode
1145   --     5  RedefinableElement::redefinitionContext
1146
1147   --  ClearStructuralFeatureAction
1148   --
1149   --     8  ActivityNode::activity
1150   --     10  Action::context
1151   --     9  ActivityNode::inStructuredNode
1152   --     7  RedefinableElement::isLeaf
1153   --     11  Action::isLocallyReentrant
1154   --     2  NamedElement::name
1155   --     3  NamedElement::nameExpression
1156   --     4  NamedElement::namespace
1157   --     12  StructuralFeatureAction::object
1158   --     1  Element::owner
1159   --     5  NamedElement::qualifiedName
1160   --     14  ClearStructuralFeatureAction::result
1161   --     13  StructuralFeatureAction::structuralFeature
1162   --     6  NamedElement::visibility
1163   --
1164   --     3  NamedElement::clientDependency
1165   --     18  ExecutableNode::handler
1166   --     6  ActivityNode::inGroup
1167   --     7  ActivityNode::inInterruptibleRegion
1168   --     8  ActivityNode::inPartition
1169   --     9  ActivityNode::incoming
1170   --     19  Action::input
1171   --     20  Action::localPostcondition
1172   --     21  Action::localPrecondition
1173   --     10  ActivityNode::outgoing
1174   --     22  Action::output
1175   --     1  Element::ownedComment
1176   --     2  Element::ownedElement
1177   --     4  RedefinableElement::redefinedElement
1178   --     11  ActivityNode::redefinedNode
1179   --     5  RedefinableElement::redefinitionContext
1180
1181   --  ClearVariableAction
1182   --
1183   --     8  ActivityNode::activity
1184   --     10  Action::context
1185   --     9  ActivityNode::inStructuredNode
1186   --     7  RedefinableElement::isLeaf
1187   --     11  Action::isLocallyReentrant
1188   --     2  NamedElement::name
1189   --     3  NamedElement::nameExpression
1190   --     4  NamedElement::namespace
1191   --     1  Element::owner
1192   --     5  NamedElement::qualifiedName
1193   --     12  VariableAction::variable
1194   --     6  NamedElement::visibility
1195   --
1196   --     3  NamedElement::clientDependency
1197   --     18  ExecutableNode::handler
1198   --     6  ActivityNode::inGroup
1199   --     7  ActivityNode::inInterruptibleRegion
1200   --     8  ActivityNode::inPartition
1201   --     9  ActivityNode::incoming
1202   --     19  Action::input
1203   --     20  Action::localPostcondition
1204   --     21  Action::localPrecondition
1205   --     10  ActivityNode::outgoing
1206   --     22  Action::output
1207   --     1  Element::ownedComment
1208   --     2  Element::ownedElement
1209   --     4  RedefinableElement::redefinedElement
1210   --     11  ActivityNode::redefinedNode
1211   --     5  RedefinableElement::redefinitionContext
1212
1213   --  Collaboration
1214   --
1215   --     17  BehavioredClassifier::classifierBehavior
1216   --     11  Classifier::isAbstract
1217   --     13  Classifier::isFinalSpecialization
1218   --     7  RedefinableElement::isLeaf
1219   --     2  NamedElement::name
1220   --     3  NamedElement::nameExpression
1221   --     4  NamedElement::namespace
1222   --     14  Classifier::ownedTemplateSignature
1223   --     10  TemplateableElement::ownedTemplateSignature
1224   --     1  Element::owner
1225   --     8  ParameterableElement::owningTemplateParameter
1226   --     12  Type::package
1227   --     5  NamedElement::qualifiedName
1228   --     15  Classifier::representation
1229   --     16  Classifier::templateParameter
1230   --     9  ParameterableElement::templateParameter
1231   --     6  NamedElement::visibility
1232   --     6  PackageableElement::visibility
1233   --
1234   --     7  Classifier::attribute
1235   --     3  NamedElement::clientDependency
1236   --     24  Collaboration::collaborationRole
1237   --     8  Classifier::collaborationUse
1238   --     12  Namespace::elementImport
1239   --     9  Classifier::feature
1240   --     10  Classifier::general
1241   --     11  Classifier::generalization
1242   --     13  Namespace::importedMember
1243   --     18  Classifier::inheritedMember
1244   --     25  BehavioredClassifier::interfaceRealization
1245   --     14  Namespace::member
1246   --     28  StructuredClassifier::ownedAttribute
1247   --     26  BehavioredClassifier::ownedBehavior
1248   --     1  Element::ownedComment
1249   --     29  StructuredClassifier::ownedConnector
1250   --     2  Element::ownedElement
1251   --     15  Namespace::ownedMember
1252   --     16  Namespace::ownedRule
1253   --     19  Classifier::ownedUseCase
1254   --     17  Namespace::packageImport
1255   --     30  StructuredClassifier::part
1256   --     20  Classifier::powertypeExtent
1257   --     21  Classifier::redefinedClassifier
1258   --     4  RedefinableElement::redefinedElement
1259   --     5  RedefinableElement::redefinitionContext
1260   --     31  StructuredClassifier::role
1261   --     22  Classifier::substitution
1262   --     6  TemplateableElement::templateBinding
1263   --     23  Classifier::useCase
1264
1265   --  CollaborationUse
1266   --
1267   --     2  NamedElement::name
1268   --     3  NamedElement::nameExpression
1269   --     4  NamedElement::namespace
1270   --     1  Element::owner
1271   --     5  NamedElement::qualifiedName
1272   --     7  CollaborationUse::type
1273   --     6  NamedElement::visibility
1274   --
1275   --     3  NamedElement::clientDependency
1276   --     1  Element::ownedComment
1277   --     2  Element::ownedElement
1278   --     4  CollaborationUse::roleBinding
1279
1280   --  CombinedFragment
1281   --
1282   --     18  InteractionFragment::enclosingInteraction
1283   --     19  InteractionFragment::enclosingOperand
1284   --     7  CombinedFragment::interactionOperator
1285   --     2  NamedElement::name
1286   --     3  NamedElement::nameExpression
1287   --     4  NamedElement::namespace
1288   --     1  Element::owner
1289   --     5  NamedElement::qualifiedName
1290   --     6  NamedElement::visibility
1291   --
1292   --     4  CombinedFragment::cfragmentGate
1293   --     3  NamedElement::clientDependency
1294   --     24  InteractionFragment::covered
1295   --     27  InteractionFragment::generalOrdering
1296   --     5  CombinedFragment::operand
1297   --     1  Element::ownedComment
1298   --     2  Element::ownedElement
1299
1300   --  Comment
1301   --
1302   --     2  Comment::body
1303   --     1  Element::owner
1304   --
1305   --     3  Comment::annotatedElement
1306   --     1  Element::ownedComment
1307   --     2  Element::ownedElement
1308
1309   --  CommunicationPath
1310   --
1311   --     11  Classifier::isAbstract
1312   --     18  Association::isDerived
1313   --     13  Classifier::isFinalSpecialization
1314   --     7  RedefinableElement::isLeaf
1315   --     2  NamedElement::name
1316   --     3  NamedElement::nameExpression
1317   --     4  NamedElement::namespace
1318   --     14  Classifier::ownedTemplateSignature
1319   --     10  TemplateableElement::ownedTemplateSignature
1320   --     1  Element::owner
1321   --     8  ParameterableElement::owningTemplateParameter
1322   --     12  Type::package
1323   --     5  NamedElement::qualifiedName
1324   --     15  Classifier::representation
1325   --     16  Classifier::templateParameter
1326   --     9  ParameterableElement::templateParameter
1327   --     6  NamedElement::visibility
1328   --     6  PackageableElement::visibility
1329   --
1330   --     7  Classifier::attribute
1331   --     3  NamedElement::clientDependency
1332   --     8  Classifier::collaborationUse
1333   --     12  Namespace::elementImport
1334   --     27  Association::endType
1335   --     9  Classifier::feature
1336   --     10  Classifier::general
1337   --     11  Classifier::generalization
1338   --     13  Namespace::importedMember
1339   --     18  Classifier::inheritedMember
1340   --     14  Namespace::member
1341   --     39  Association::memberEnd
1342   --     40  Association::navigableOwnedEnd
1343   --     1  Element::ownedComment
1344   --     2  Element::ownedElement
1345   --     41  Association::ownedEnd
1346   --     15  Namespace::ownedMember
1347   --     16  Namespace::ownedRule
1348   --     19  Classifier::ownedUseCase
1349   --     17  Namespace::packageImport
1350   --     20  Classifier::powertypeExtent
1351   --     21  Classifier::redefinedClassifier
1352   --     4  RedefinableElement::redefinedElement
1353   --     5  RedefinableElement::redefinitionContext
1354   --     24  Relationship::relatedElement
1355   --     22  Classifier::substitution
1356   --     6  TemplateableElement::templateBinding
1357   --     23  Classifier::useCase
1358
1359   --  Component
1360   --
1361   --     17  BehavioredClassifier::classifierBehavior
1362   --     11  Class::isAbstract
1363   --     11  Classifier::isAbstract
1364   --     20  Class::isActive
1365   --     13  Classifier::isFinalSpecialization
1366   --     18  Component::isIndirectlyInstantiated
1367   --     7  RedefinableElement::isLeaf
1368   --     2  NamedElement::name
1369   --     3  NamedElement::nameExpression
1370   --     4  NamedElement::namespace
1371   --     14  Classifier::ownedTemplateSignature
1372   --     10  TemplateableElement::ownedTemplateSignature
1373   --     1  Element::owner
1374   --     8  ParameterableElement::owningTemplateParameter
1375   --     12  Type::package
1376   --     5  NamedElement::qualifiedName
1377   --     15  Classifier::representation
1378   --     16  Classifier::templateParameter
1379   --     9  ParameterableElement::templateParameter
1380   --     6  NamedElement::visibility
1381   --     6  PackageableElement::visibility
1382   --
1383   --     7  Classifier::attribute
1384   --     3  NamedElement::clientDependency
1385   --     8  Classifier::collaborationUse
1386   --     12  Namespace::elementImport
1387   --     33  Class::extension
1388   --     9  Classifier::feature
1389   --     10  Classifier::general
1390   --     11  Classifier::generalization
1391   --     13  Namespace::importedMember
1392   --     18  Classifier::inheritedMember
1393   --     25  BehavioredClassifier::interfaceRealization
1394   --     14  Namespace::member
1395   --     34  Class::nestedClassifier
1396   --     35  Class::ownedAttribute
1397   --     28  StructuredClassifier::ownedAttribute
1398   --     26  BehavioredClassifier::ownedBehavior
1399   --     1  Element::ownedComment
1400   --     29  StructuredClassifier::ownedConnector
1401   --     2  Element::ownedElement
1402   --     15  Namespace::ownedMember
1403   --     36  Class::ownedOperation
1404   --     32  EncapsulatedClassifier::ownedPort
1405   --     37  Class::ownedReception
1406   --     16  Namespace::ownedRule
1407   --     19  Classifier::ownedUseCase
1408   --     17  Namespace::packageImport
1409   --     24  Component::packagedElement
1410   --     30  StructuredClassifier::part
1411   --     20  Classifier::powertypeExtent
1412   --     27  Component::provided
1413   --     39  Component::realization
1414   --     21  Classifier::redefinedClassifier
1415   --     4  RedefinableElement::redefinedElement
1416   --     5  RedefinableElement::redefinitionContext
1417   --     40  Component::required
1418   --     31  StructuredClassifier::role
1419   --     22  Classifier::substitution
1420   --     38  Class::superClass
1421   --     6  TemplateableElement::templateBinding
1422   --     23  Classifier::useCase
1423
1424   --  ComponentRealization
1425   --
1426   --     10  ComponentRealization::abstraction
1427   --     7  Abstraction::mapping
1428   --     2  NamedElement::name
1429   --     3  NamedElement::nameExpression
1430   --     4  NamedElement::namespace
1431   --     1  Element::owner
1432   --     8  ParameterableElement::owningTemplateParameter
1433   --     5  NamedElement::qualifiedName
1434   --     9  ParameterableElement::templateParameter
1435   --     6  NamedElement::visibility
1436   --     6  PackageableElement::visibility
1437   --
1438   --     6  Dependency::client
1439   --     3  NamedElement::clientDependency
1440   --     1  Element::ownedComment
1441   --     2  Element::ownedElement
1442   --     8  ComponentRealization::realizingClassifier
1443   --     24  Relationship::relatedElement
1444   --     4  DirectedRelationship::source
1445   --     7  Dependency::supplier
1446   --     5  DirectedRelationship::target
1447
1448   --  ConditionalNode
1449   --
1450   --     8  ActivityNode::activity
1451   --     14  StructuredActivityNode::activity
1452   --     10  Action::context
1453   --     12  ActivityGroup::inActivity
1454   --     9  ActivityNode::inStructuredNode
1455   --     16  ConditionalNode::isAssured
1456   --     17  ConditionalNode::isDeterminate
1457   --     7  RedefinableElement::isLeaf
1458   --     11  Action::isLocallyReentrant
1459   --     15  StructuredActivityNode::mustIsolate
1460   --     2  NamedElement::name
1461   --     3  NamedElement::nameExpression
1462   --     4  NamedElement::namespace
1463   --     1  Element::owner
1464   --     5  NamedElement::qualifiedName
1465   --     13  ActivityGroup::superGroup
1466   --     6  NamedElement::visibility
1467   --
1468   --     31  ConditionalNode::clause
1469   --     3  NamedElement::clientDependency
1470   --     23  ActivityGroup::containedEdge
1471   --     24  ActivityGroup::containedNode
1472   --     26  StructuredActivityNode::edge
1473   --     12  Namespace::elementImport
1474   --     18  ExecutableNode::handler
1475   --     13  Namespace::importedMember
1476   --     6  ActivityNode::inGroup
1477   --     7  ActivityNode::inInterruptibleRegion
1478   --     8  ActivityNode::inPartition
1479   --     9  ActivityNode::incoming
1480   --     19  Action::input
1481   --     20  Action::localPostcondition
1482   --     21  Action::localPrecondition
1483   --     14  Namespace::member
1484   --     27  StructuredActivityNode::node
1485   --     10  ActivityNode::outgoing
1486   --     22  Action::output
1487   --     1  Element::ownedComment
1488   --     2  Element::ownedElement
1489   --     15  Namespace::ownedMember
1490   --     16  Namespace::ownedRule
1491   --     17  Namespace::packageImport
1492   --     4  RedefinableElement::redefinedElement
1493   --     11  ActivityNode::redefinedNode
1494   --     5  RedefinableElement::redefinitionContext
1495   --     32  ConditionalNode::result
1496   --     28  StructuredActivityNode::structuredNodeInput
1497   --     29  StructuredActivityNode::structuredNodeOutput
1498   --     25  ActivityGroup::subgroup
1499   --     30  StructuredActivityNode::variable
1500
1501   --  ConnectableElementTemplateParameter
1502   --
1503   --     2  TemplateParameter::default
1504   --     3  TemplateParameter::ownedDefault
1505   --     4  TemplateParameter::ownedParameteredElement
1506   --     1  Element::owner
1507   --     7  ConnectableElementTemplateParameter::parameteredElement
1508   --     5  TemplateParameter::parameteredElement
1509   --     6  TemplateParameter::signature
1510   --
1511   --     1  Element::ownedComment
1512   --     2  Element::ownedElement
1513
1514   --  ConnectionPointReference
1515   --
1516   --     8  Vertex::container
1517   --     2  NamedElement::name
1518   --     3  NamedElement::nameExpression
1519   --     4  NamedElement::namespace
1520   --     1  Element::owner
1521   --     5  NamedElement::qualifiedName
1522   --     7  ConnectionPointReference::state
1523   --     6  NamedElement::visibility
1524   --
1525   --     3  NamedElement::clientDependency
1526   --     4  ConnectionPointReference::entry
1527   --     5  ConnectionPointReference::exit
1528   --     6  Vertex::incoming
1529   --     7  Vertex::outgoing
1530   --     1  Element::ownedComment
1531   --     2  Element::ownedElement
1532
1533   --  Connector
1534   --
1535   --     7  RedefinableElement::isLeaf
1536   --     17  Feature::isStatic
1537   --     8  Connector::kind
1538   --     2  NamedElement::name
1539   --     3  NamedElement::nameExpression
1540   --     4  NamedElement::namespace
1541   --     1  Element::owner
1542   --     5  NamedElement::qualifiedName
1543   --     9  Connector::type
1544   --     6  NamedElement::visibility
1545   --
1546   --     3  NamedElement::clientDependency
1547   --     6  Connector::contract
1548   --     8  Connector::end
1549   --     7  Feature::featuringClassifier
1550   --     1  Element::ownedComment
1551   --     2  Element::ownedElement
1552   --     9  Connector::redefinedConnector
1553   --     4  RedefinableElement::redefinedElement
1554   --     5  RedefinableElement::redefinitionContext
1555
1556   --  ConnectorEnd
1557   --
1558   --     2  ConnectorEnd::definingEnd
1559   --     12  MultiplicityElement::isOrdered
1560   --     13  MultiplicityElement::isUnique
1561   --     14  MultiplicityElement::lower
1562   --     10  MultiplicityElement::lowerValue
1563   --     1  Element::owner
1564   --     3  ConnectorEnd::partWithPort
1565   --     4  ConnectorEnd::role
1566   --     15  MultiplicityElement::upper
1567   --     16  MultiplicityElement::upperValue
1568   --
1569   --     1  Element::ownedComment
1570   --     2  Element::ownedElement
1571
1572   --  ConsiderIgnoreFragment
1573   --
1574   --     18  InteractionFragment::enclosingInteraction
1575   --     19  InteractionFragment::enclosingOperand
1576   --     7  CombinedFragment::interactionOperator
1577   --     2  NamedElement::name
1578   --     3  NamedElement::nameExpression
1579   --     4  NamedElement::namespace
1580   --     1  Element::owner
1581   --     5  NamedElement::qualifiedName
1582   --     6  NamedElement::visibility
1583   --
1584   --     4  CombinedFragment::cfragmentGate
1585   --     3  NamedElement::clientDependency
1586   --     24  InteractionFragment::covered
1587   --     27  InteractionFragment::generalOrdering
1588   --     6  ConsiderIgnoreFragment::message
1589   --     5  CombinedFragment::operand
1590   --     1  Element::ownedComment
1591   --     2  Element::ownedElement
1592
1593   --  Constraint
1594   --
1595   --     7  Constraint::context
1596   --     2  NamedElement::name
1597   --     3  NamedElement::nameExpression
1598   --     4  NamedElement::namespace
1599   --     1  Element::owner
1600   --     8  ParameterableElement::owningTemplateParameter
1601   --     5  NamedElement::qualifiedName
1602   --     10  Constraint::specification
1603   --     9  ParameterableElement::templateParameter
1604   --     6  NamedElement::visibility
1605   --     6  PackageableElement::visibility
1606   --
1607   --     3  NamedElement::clientDependency
1608   --     4  Constraint::constrainedElement
1609   --     1  Element::ownedComment
1610   --     2  Element::ownedElement
1611
1612   --  Continuation
1613   --
1614   --     18  InteractionFragment::enclosingInteraction
1615   --     19  InteractionFragment::enclosingOperand
1616   --     2  NamedElement::name
1617   --     3  NamedElement::nameExpression
1618   --     4  NamedElement::namespace
1619   --     1  Element::owner
1620   --     5  NamedElement::qualifiedName
1621   --     7  Continuation::setting
1622   --     6  NamedElement::visibility
1623   --
1624   --     3  NamedElement::clientDependency
1625   --     24  InteractionFragment::covered
1626   --     27  InteractionFragment::generalOrdering
1627   --     1  Element::ownedComment
1628   --     2  Element::ownedElement
1629
1630   --  ControlFlow
1631   --
1632   --     8  ActivityEdge::activity
1633   --     9  ActivityEdge::guard
1634   --     10  ActivityEdge::inStructuredNode
1635   --     11  ActivityEdge::interrupts
1636   --     7  RedefinableElement::isLeaf
1637   --     2  NamedElement::name
1638   --     3  NamedElement::nameExpression
1639   --     4  NamedElement::namespace
1640   --     1  Element::owner
1641   --     5  NamedElement::qualifiedName
1642   --     12  ActivityEdge::source
1643   --     13  ActivityEdge::target
1644   --     6  NamedElement::visibility
1645   --     14  ActivityEdge::weight
1646   --
1647   --     3  NamedElement::clientDependency
1648   --     6  ActivityEdge::inGroup
1649   --     7  ActivityEdge::inPartition
1650   --     1  Element::ownedComment
1651   --     2  Element::ownedElement
1652   --     8  ActivityEdge::redefinedEdge
1653   --     4  RedefinableElement::redefinedElement
1654   --     5  RedefinableElement::redefinitionContext
1655
1656   --  CreateLinkAction
1657   --
1658   --     8  ActivityNode::activity
1659   --     10  Action::context
1660   --     9  ActivityNode::inStructuredNode
1661   --     7  RedefinableElement::isLeaf
1662   --     11  Action::isLocallyReentrant
1663   --     2  NamedElement::name
1664   --     3  NamedElement::nameExpression
1665   --     4  NamedElement::namespace
1666   --     1  Element::owner
1667   --     5  NamedElement::qualifiedName
1668   --     6  NamedElement::visibility
1669   --
1670   --     3  NamedElement::clientDependency
1671   --     14  CreateLinkAction::endData
1672   --     12  LinkAction::endData
1673   --     18  ExecutableNode::handler
1674   --     6  ActivityNode::inGroup
1675   --     7  ActivityNode::inInterruptibleRegion
1676   --     8  ActivityNode::inPartition
1677   --     9  ActivityNode::incoming
1678   --     19  Action::input
1679   --     13  LinkAction::inputValue
1680   --     20  Action::localPostcondition
1681   --     21  Action::localPrecondition
1682   --     10  ActivityNode::outgoing
1683   --     22  Action::output
1684   --     1  Element::ownedComment
1685   --     2  Element::ownedElement
1686   --     4  RedefinableElement::redefinedElement
1687   --     11  ActivityNode::redefinedNode
1688   --     5  RedefinableElement::redefinitionContext
1689
1690   --  CreateLinkObjectAction
1691   --
1692   --     8  ActivityNode::activity
1693   --     10  Action::context
1694   --     9  ActivityNode::inStructuredNode
1695   --     7  RedefinableElement::isLeaf
1696   --     11  Action::isLocallyReentrant
1697   --     2  NamedElement::name
1698   --     3  NamedElement::nameExpression
1699   --     4  NamedElement::namespace
1700   --     1  Element::owner
1701   --     5  NamedElement::qualifiedName
1702   --     12  CreateLinkObjectAction::result
1703   --     6  NamedElement::visibility
1704   --
1705   --     3  NamedElement::clientDependency
1706   --     14  CreateLinkAction::endData
1707   --     12  LinkAction::endData
1708   --     18  ExecutableNode::handler
1709   --     6  ActivityNode::inGroup
1710   --     7  ActivityNode::inInterruptibleRegion
1711   --     8  ActivityNode::inPartition
1712   --     9  ActivityNode::incoming
1713   --     19  Action::input
1714   --     13  LinkAction::inputValue
1715   --     20  Action::localPostcondition
1716   --     21  Action::localPrecondition
1717   --     10  ActivityNode::outgoing
1718   --     22  Action::output
1719   --     1  Element::ownedComment
1720   --     2  Element::ownedElement
1721   --     4  RedefinableElement::redefinedElement
1722   --     11  ActivityNode::redefinedNode
1723   --     5  RedefinableElement::redefinitionContext
1724
1725   --  CreateObjectAction
1726   --
1727   --     8  ActivityNode::activity
1728   --     12  CreateObjectAction::classifier
1729   --     10  Action::context
1730   --     9  ActivityNode::inStructuredNode
1731   --     7  RedefinableElement::isLeaf
1732   --     11  Action::isLocallyReentrant
1733   --     2  NamedElement::name
1734   --     3  NamedElement::nameExpression
1735   --     4  NamedElement::namespace
1736   --     1  Element::owner
1737   --     5  NamedElement::qualifiedName
1738   --     13  CreateObjectAction::result
1739   --     6  NamedElement::visibility
1740   --
1741   --     3  NamedElement::clientDependency
1742   --     18  ExecutableNode::handler
1743   --     6  ActivityNode::inGroup
1744   --     7  ActivityNode::inInterruptibleRegion
1745   --     8  ActivityNode::inPartition
1746   --     9  ActivityNode::incoming
1747   --     19  Action::input
1748   --     20  Action::localPostcondition
1749   --     21  Action::localPrecondition
1750   --     10  ActivityNode::outgoing
1751   --     22  Action::output
1752   --     1  Element::ownedComment
1753   --     2  Element::ownedElement
1754   --     4  RedefinableElement::redefinedElement
1755   --     11  ActivityNode::redefinedNode
1756   --     5  RedefinableElement::redefinitionContext
1757
1758   --  UMLActivityDiagram
1759   --
1760   --     17  Shape::bounds
1761   --     18  Diagram::documentation
1762   --     20  UMLDiagram::heading
1763   --     24  UMLActivityDiagram::isActivityFrame
1764   --     21  UMLDiagram::isFrame
1765   --     13  UMLDiagramElement::isIcon
1766   --     22  UMLDiagram::isIso
1767   --     14  UMLDiagramElement::localStyle
1768   --     11  DiagramElement::localStyle
1769   --     25  UMLActivityDiagram::modelElement
1770   --     23  UMLBehaviorDiagram::modelElement
1771   --     7  DiagramElement::modelElement
1772   --     2  NamedElement::name
1773   --     2  Diagram::name
1774   --     3  NamedElement::nameExpression
1775   --     4  NamedElement::namespace
1776   --     1  Element::owner
1777   --     15  UMLDiagramElement::owningElement
1778   --     10  DiagramElement::owningElement
1779   --     8  ParameterableElement::owningTemplateParameter
1780   --     5  NamedElement::qualifiedName
1781   --     19  Diagram::resolution
1782   --     16  UMLDiagramElement::sharedStyle
1783   --     12  DiagramElement::sharedStyle
1784   --     9  ParameterableElement::templateParameter
1785   --     6  NamedElement::visibility
1786   --     6  PackageableElement::visibility
1787   --
1788   --     3  NamedElement::clientDependency
1789   --     5  UMLDiagramElement::modelElement
1790   --     1  Element::ownedComment
1791   --     2  Element::ownedElement
1792   --     6  UMLDiagramElement::ownedElement
1793   --     4  DiagramElement::ownedElement
1794
1795   --  UMLAssociationEndLabel
1796   --
1797   --     17  Shape::bounds
1798   --     13  UMLDiagramElement::isIcon
1799   --     14  UMLDiagramElement::localStyle
1800   --     11  DiagramElement::localStyle
1801   --     2  UMLAssociationEndLabel::modelElement
1802   --     7  DiagramElement::modelElement
1803   --     15  UMLDiagramElement::owningElement
1804   --     10  DiagramElement::owningElement
1805   --     16  UMLDiagramElement::sharedStyle
1806   --     12  DiagramElement::sharedStyle
1807   --     1  UMLLabel::text
1808   --
1809   --     5  UMLDiagramElement::modelElement
1810   --     6  UMLDiagramElement::ownedElement
1811   --     4  DiagramElement::ownedElement
1812
1813   --  UMLAssociationOrConnectorOrLinkShape
1814   --
1815   --     17  Shape::bounds
1816   --     13  UMLDiagramElement::isIcon
1817   --     1  UMLAssociationOrConnectorOrLinkShape::kind
1818   --     14  UMLDiagramElement::localStyle
1819   --     11  DiagramElement::localStyle
1820   --     7  DiagramElement::modelElement
1821   --     15  UMLDiagramElement::owningElement
1822   --     10  DiagramElement::owningElement
1823   --     16  UMLDiagramElement::sharedStyle
1824   --     12  DiagramElement::sharedStyle
1825   --
1826   --     5  UMLDiagramElement::modelElement
1827   --     6  UMLDiagramElement::ownedElement
1828   --     4  DiagramElement::ownedElement
1829
1830   --  UMLClassDiagram
1831   --
1832   --     17  Shape::bounds
1833   --     18  Diagram::documentation
1834   --     20  UMLDiagram::heading
1835   --     23  UMLClassOrCompositeStructureDiagram::isAssociationDotShown
1836   --     21  UMLDiagram::isFrame
1837   --     13  UMLDiagramElement::isIcon
1838   --     22  UMLDiagram::isIso
1839   --     14  UMLDiagramElement::localStyle
1840   --     11  DiagramElement::localStyle
1841   --     7  DiagramElement::modelElement
1842   --     2  NamedElement::name
1843   --     2  Diagram::name
1844   --     3  NamedElement::nameExpression
1845   --     4  NamedElement::namespace
1846   --     24  UMLClassOrCompositeStructureDiagram::navigabilityNotation
1847   --     25  UMLClassOrCompositeStructureDiagram::nonNavigabilityNotation
1848   --     1  Element::owner
1849   --     15  UMLDiagramElement::owningElement
1850   --     10  DiagramElement::owningElement
1851   --     8  ParameterableElement::owningTemplateParameter
1852   --     5  NamedElement::qualifiedName
1853   --     19  Diagram::resolution
1854   --     16  UMLDiagramElement::sharedStyle
1855   --     12  DiagramElement::sharedStyle
1856   --     9  ParameterableElement::templateParameter
1857   --     6  NamedElement::visibility
1858   --     6  PackageableElement::visibility
1859   --
1860   --     3  NamedElement::clientDependency
1861   --     5  UMLDiagramElement::modelElement
1862   --     1  Element::ownedComment
1863   --     2  Element::ownedElement
1864   --     6  UMLDiagramElement::ownedElement
1865   --     4  DiagramElement::ownedElement
1866
1867   --  UMLClassifierShape
1868   --
1869   --     17  Shape::bounds
1870   --     1  UMLClassifierShape::isDoubleSided
1871   --     13  UMLDiagramElement::isIcon
1872   --     2  UMLClassifierShape::isIndentForVisibility
1873   --     14  UMLDiagramElement::localStyle
1874   --     11  DiagramElement::localStyle
1875   --     3  UMLClassifierShape::modelElement
1876   --     7  DiagramElement::modelElement
1877   --     15  UMLDiagramElement::owningElement
1878   --     10  DiagramElement::owningElement
1879   --     16  UMLDiagramElement::sharedStyle
1880   --     12  DiagramElement::sharedStyle
1881   --
1882   --     1  UMLCompartmentableShape::compartment
1883   --     5  UMLDiagramElement::modelElement
1884   --     6  UMLDiagramElement::ownedElement
1885   --     4  DiagramElement::ownedElement
1886
1887   --  UMLCompartment
1888   --
1889   --     13  UMLDiagramElement::isIcon
1890   --     14  UMLDiagramElement::localStyle
1891   --     11  DiagramElement::localStyle
1892   --     7  DiagramElement::modelElement
1893   --     15  UMLDiagramElement::owningElement
1894   --     10  DiagramElement::owningElement
1895   --     16  UMLDiagramElement::sharedStyle
1896   --     12  DiagramElement::sharedStyle
1897   --
1898   --     1  UMLCompartment::elementInCompartment
1899   --     5  UMLDiagramElement::modelElement
1900   --     6  UMLDiagramElement::ownedElement
1901   --     4  DiagramElement::ownedElement
1902
1903   --  UMLCompartmentableShape
1904   --
1905   --     17  Shape::bounds
1906   --     13  UMLDiagramElement::isIcon
1907   --     14  UMLDiagramElement::localStyle
1908   --     11  DiagramElement::localStyle
1909   --     7  DiagramElement::modelElement
1910   --     15  UMLDiagramElement::owningElement
1911   --     10  DiagramElement::owningElement
1912   --     16  UMLDiagramElement::sharedStyle
1913   --     12  DiagramElement::sharedStyle
1914   --
1915   --     1  UMLCompartmentableShape::compartment
1916   --     5  UMLDiagramElement::modelElement
1917   --     6  UMLDiagramElement::ownedElement
1918   --     4  DiagramElement::ownedElement
1919
1920   --  UMLComponentDiagram
1921   --
1922   --     17  Shape::bounds
1923   --     18  Diagram::documentation
1924   --     20  UMLDiagram::heading
1925   --     21  UMLDiagram::isFrame
1926   --     13  UMLDiagramElement::isIcon
1927   --     22  UMLDiagram::isIso
1928   --     14  UMLDiagramElement::localStyle
1929   --     11  DiagramElement::localStyle
1930   --     7  DiagramElement::modelElement
1931   --     2  NamedElement::name
1932   --     2  Diagram::name
1933   --     3  NamedElement::nameExpression
1934   --     4  NamedElement::namespace
1935   --     1  Element::owner
1936   --     15  UMLDiagramElement::owningElement
1937   --     10  DiagramElement::owningElement
1938   --     8  ParameterableElement::owningTemplateParameter
1939   --     5  NamedElement::qualifiedName
1940   --     19  Diagram::resolution
1941   --     16  UMLDiagramElement::sharedStyle
1942   --     12  DiagramElement::sharedStyle
1943   --     9  ParameterableElement::templateParameter
1944   --     6  NamedElement::visibility
1945   --     6  PackageableElement::visibility
1946   --
1947   --     3  NamedElement::clientDependency
1948   --     5  UMLDiagramElement::modelElement
1949   --     1  Element::ownedComment
1950   --     2  Element::ownedElement
1951   --     6  UMLDiagramElement::ownedElement
1952   --     4  DiagramElement::ownedElement
1953
1954   --  UMLCompositeStructureDiagram
1955   --
1956   --     17  Shape::bounds
1957   --     18  Diagram::documentation
1958   --     20  UMLDiagram::heading
1959   --     23  UMLClassOrCompositeStructureDiagram::isAssociationDotShown
1960   --     21  UMLDiagram::isFrame
1961   --     13  UMLDiagramElement::isIcon
1962   --     22  UMLDiagram::isIso
1963   --     14  UMLDiagramElement::localStyle
1964   --     11  DiagramElement::localStyle
1965   --     7  DiagramElement::modelElement
1966   --     2  NamedElement::name
1967   --     2  Diagram::name
1968   --     3  NamedElement::nameExpression
1969   --     4  NamedElement::namespace
1970   --     24  UMLClassOrCompositeStructureDiagram::navigabilityNotation
1971   --     25  UMLClassOrCompositeStructureDiagram::nonNavigabilityNotation
1972   --     1  Element::owner
1973   --     15  UMLDiagramElement::owningElement
1974   --     10  DiagramElement::owningElement
1975   --     8  ParameterableElement::owningTemplateParameter
1976   --     5  NamedElement::qualifiedName
1977   --     19  Diagram::resolution
1978   --     16  UMLDiagramElement::sharedStyle
1979   --     12  DiagramElement::sharedStyle
1980   --     9  ParameterableElement::templateParameter
1981   --     6  NamedElement::visibility
1982   --     6  PackageableElement::visibility
1983   --
1984   --     3  NamedElement::clientDependency
1985   --     5  UMLDiagramElement::modelElement
1986   --     1  Element::ownedComment
1987   --     2  Element::ownedElement
1988   --     6  UMLDiagramElement::ownedElement
1989   --     4  DiagramElement::ownedElement
1990
1991   --  UMLDeploymentDiagram
1992   --
1993   --     17  Shape::bounds
1994   --     18  Diagram::documentation
1995   --     20  UMLDiagram::heading
1996   --     21  UMLDiagram::isFrame
1997   --     13  UMLDiagramElement::isIcon
1998   --     22  UMLDiagram::isIso
1999   --     14  UMLDiagramElement::localStyle
2000   --     11  DiagramElement::localStyle
2001   --     7  DiagramElement::modelElement
2002   --     2  NamedElement::name
2003   --     2  Diagram::name
2004   --     3  NamedElement::nameExpression
2005   --     4  NamedElement::namespace
2006   --     1  Element::owner
2007   --     15  UMLDiagramElement::owningElement
2008   --     10  DiagramElement::owningElement
2009   --     8  ParameterableElement::owningTemplateParameter
2010   --     5  NamedElement::qualifiedName
2011   --     19  Diagram::resolution
2012   --     16  UMLDiagramElement::sharedStyle
2013   --     12  DiagramElement::sharedStyle
2014   --     9  ParameterableElement::templateParameter
2015   --     6  NamedElement::visibility
2016   --     6  PackageableElement::visibility
2017   --
2018   --     3  NamedElement::clientDependency
2019   --     5  UMLDiagramElement::modelElement
2020   --     1  Element::ownedComment
2021   --     2  Element::ownedElement
2022   --     6  UMLDiagramElement::ownedElement
2023   --     4  DiagramElement::ownedElement
2024
2025   --  UMLEdge
2026   --
2027   --     13  UMLDiagramElement::isIcon
2028   --     14  UMLDiagramElement::localStyle
2029   --     11  DiagramElement::localStyle
2030   --     7  DiagramElement::modelElement
2031   --     15  UMLDiagramElement::owningElement
2032   --     10  DiagramElement::owningElement
2033   --     16  UMLDiagramElement::sharedStyle
2034   --     12  DiagramElement::sharedStyle
2035   --     4  UMLEdge::source
2036   --     1  Edge::source
2037   --     5  UMLEdge::target
2038   --     2  Edge::target
2039   --     3  Edge::waypoint
2040   --
2041   --     5  UMLDiagramElement::modelElement
2042   --     6  UMLDiagramElement::ownedElement
2043   --     4  DiagramElement::ownedElement
2044
2045   --  UMLInteractionDiagram
2046   --
2047   --     17  Shape::bounds
2048   --     18  Diagram::documentation
2049   --     20  UMLDiagram::heading
2050   --     21  UMLDiagram::isFrame
2051   --     13  UMLDiagramElement::isIcon
2052   --     22  UMLDiagram::isIso
2053   --     24  UMLInteractionDiagram::kind
2054   --     14  UMLDiagramElement::localStyle
2055   --     11  DiagramElement::localStyle
2056   --     23  UMLBehaviorDiagram::modelElement
2057   --     25  UMLInteractionDiagram::modelElement
2058   --     7  DiagramElement::modelElement
2059   --     2  NamedElement::name
2060   --     2  Diagram::name
2061   --     3  NamedElement::nameExpression
2062   --     4  NamedElement::namespace
2063   --     1  Element::owner
2064   --     15  UMLDiagramElement::owningElement
2065   --     10  DiagramElement::owningElement
2066   --     8  ParameterableElement::owningTemplateParameter
2067   --     5  NamedElement::qualifiedName
2068   --     19  Diagram::resolution
2069   --     16  UMLDiagramElement::sharedStyle
2070   --     12  DiagramElement::sharedStyle
2071   --     9  ParameterableElement::templateParameter
2072   --     6  NamedElement::visibility
2073   --     6  PackageableElement::visibility
2074   --
2075   --     3  NamedElement::clientDependency
2076   --     5  UMLDiagramElement::modelElement
2077   --     1  Element::ownedComment
2078   --     2  Element::ownedElement
2079   --     6  UMLDiagramElement::ownedElement
2080   --     4  DiagramElement::ownedElement
2081
2082   --  UMLInteractionTableLabel
2083   --
2084   --     17  Shape::bounds
2085   --     13  UMLDiagramElement::isIcon
2086   --     2  UMLInteractionTableLabel::kind
2087   --     14  UMLDiagramElement::localStyle
2088   --     11  DiagramElement::localStyle
2089   --     7  DiagramElement::modelElement
2090   --     15  UMLDiagramElement::owningElement
2091   --     10  DiagramElement::owningElement
2092   --     16  UMLDiagramElement::sharedStyle
2093   --     12  DiagramElement::sharedStyle
2094   --     1  UMLLabel::text
2095   --
2096   --     5  UMLDiagramElement::modelElement
2097   --     6  UMLDiagramElement::ownedElement
2098   --     4  DiagramElement::ownedElement
2099
2100   --  UMLKeywordLabel
2101   --
2102   --     17  Shape::bounds
2103   --     13  UMLDiagramElement::isIcon
2104   --     14  UMLDiagramElement::localStyle
2105   --     11  DiagramElement::localStyle
2106   --     7  DiagramElement::modelElement
2107   --     15  UMLDiagramElement::owningElement
2108   --     10  DiagramElement::owningElement
2109   --     16  UMLDiagramElement::sharedStyle
2110   --     12  DiagramElement::sharedStyle
2111   --     1  UMLLabel::text
2112   --
2113   --     5  UMLDiagramElement::modelElement
2114   --     6  UMLDiagramElement::ownedElement
2115   --     4  DiagramElement::ownedElement
2116
2117   --  UMLLabel
2118   --
2119   --     17  Shape::bounds
2120   --     13  UMLDiagramElement::isIcon
2121   --     14  UMLDiagramElement::localStyle
2122   --     11  DiagramElement::localStyle
2123   --     7  DiagramElement::modelElement
2124   --     15  UMLDiagramElement::owningElement
2125   --     10  DiagramElement::owningElement
2126   --     16  UMLDiagramElement::sharedStyle
2127   --     12  DiagramElement::sharedStyle
2128   --     1  UMLLabel::text
2129   --
2130   --     5  UMLDiagramElement::modelElement
2131   --     6  UMLDiagramElement::ownedElement
2132   --     4  DiagramElement::ownedElement
2133
2134   --  UMLMultiplicityLabel
2135   --
2136   --     17  Shape::bounds
2137   --     13  UMLDiagramElement::isIcon
2138   --     14  UMLDiagramElement::localStyle
2139   --     11  DiagramElement::localStyle
2140   --     2  UMLMultiplicityLabel::modelElement
2141   --     7  DiagramElement::modelElement
2142   --     15  UMLDiagramElement::owningElement
2143   --     10  DiagramElement::owningElement
2144   --     16  UMLDiagramElement::sharedStyle
2145   --     12  DiagramElement::sharedStyle
2146   --     1  UMLLabel::text
2147   --
2148   --     5  UMLDiagramElement::modelElement
2149   --     6  UMLDiagramElement::ownedElement
2150   --     4  DiagramElement::ownedElement
2151
2152   --  UMLNameLabel
2153   --
2154   --     17  Shape::bounds
2155   --     13  UMLDiagramElement::isIcon
2156   --     14  UMLDiagramElement::localStyle
2157   --     11  DiagramElement::localStyle
2158   --     2  UMLNameLabel::modeElement
2159   --     7  DiagramElement::modelElement
2160   --     15  UMLDiagramElement::owningElement
2161   --     10  DiagramElement::owningElement
2162   --     16  UMLDiagramElement::sharedStyle
2163   --     12  DiagramElement::sharedStyle
2164   --     1  UMLLabel::text
2165   --
2166   --     5  UMLDiagramElement::modelElement
2167   --     6  UMLDiagramElement::ownedElement
2168   --     4  DiagramElement::ownedElement
2169
2170   --  UMLObjectDiagram
2171   --
2172   --     17  Shape::bounds
2173   --     18  Diagram::documentation
2174   --     20  UMLDiagram::heading
2175   --     21  UMLDiagram::isFrame
2176   --     13  UMLDiagramElement::isIcon
2177   --     22  UMLDiagram::isIso
2178   --     14  UMLDiagramElement::localStyle
2179   --     11  DiagramElement::localStyle
2180   --     7  DiagramElement::modelElement
2181   --     2  NamedElement::name
2182   --     2  Diagram::name
2183   --     3  NamedElement::nameExpression
2184   --     4  NamedElement::namespace
2185   --     1  Element::owner
2186   --     15  UMLDiagramElement::owningElement
2187   --     10  DiagramElement::owningElement
2188   --     8  ParameterableElement::owningTemplateParameter
2189   --     5  NamedElement::qualifiedName
2190   --     19  Diagram::resolution
2191   --     16  UMLDiagramElement::sharedStyle
2192   --     12  DiagramElement::sharedStyle
2193   --     9  ParameterableElement::templateParameter
2194   --     6  NamedElement::visibility
2195   --     6  PackageableElement::visibility
2196   --
2197   --     3  NamedElement::clientDependency
2198   --     5  UMLDiagramElement::modelElement
2199   --     1  Element::ownedComment
2200   --     2  Element::ownedElement
2201   --     6  UMLDiagramElement::ownedElement
2202   --     4  DiagramElement::ownedElement
2203
2204   --  UMLPackageDiagram
2205   --
2206   --     17  Shape::bounds
2207   --     18  Diagram::documentation
2208   --     20  UMLDiagram::heading
2209   --     21  UMLDiagram::isFrame
2210   --     13  UMLDiagramElement::isIcon
2211   --     22  UMLDiagram::isIso
2212   --     14  UMLDiagramElement::localStyle
2213   --     11  DiagramElement::localStyle
2214   --     7  DiagramElement::modelElement
2215   --     2  NamedElement::name
2216   --     2  Diagram::name
2217   --     3  NamedElement::nameExpression
2218   --     4  NamedElement::namespace
2219   --     1  Element::owner
2220   --     15  UMLDiagramElement::owningElement
2221   --     10  DiagramElement::owningElement
2222   --     8  ParameterableElement::owningTemplateParameter
2223   --     5  NamedElement::qualifiedName
2224   --     19  Diagram::resolution
2225   --     16  UMLDiagramElement::sharedStyle
2226   --     12  DiagramElement::sharedStyle
2227   --     9  ParameterableElement::templateParameter
2228   --     6  NamedElement::visibility
2229   --     6  PackageableElement::visibility
2230   --
2231   --     3  NamedElement::clientDependency
2232   --     5  UMLDiagramElement::modelElement
2233   --     1  Element::ownedComment
2234   --     2  Element::ownedElement
2235   --     6  UMLDiagramElement::ownedElement
2236   --     4  DiagramElement::ownedElement
2237
2238   --  UMLProfileDiagram
2239   --
2240   --     17  Shape::bounds
2241   --     18  Diagram::documentation
2242   --     20  UMLDiagram::heading
2243   --     21  UMLDiagram::isFrame
2244   --     13  UMLDiagramElement::isIcon
2245   --     22  UMLDiagram::isIso
2246   --     14  UMLDiagramElement::localStyle
2247   --     11  DiagramElement::localStyle
2248   --     7  DiagramElement::modelElement
2249   --     2  NamedElement::name
2250   --     2  Diagram::name
2251   --     3  NamedElement::nameExpression
2252   --     4  NamedElement::namespace
2253   --     1  Element::owner
2254   --     15  UMLDiagramElement::owningElement
2255   --     10  DiagramElement::owningElement
2256   --     8  ParameterableElement::owningTemplateParameter
2257   --     5  NamedElement::qualifiedName
2258   --     19  Diagram::resolution
2259   --     16  UMLDiagramElement::sharedStyle
2260   --     12  DiagramElement::sharedStyle
2261   --     9  ParameterableElement::templateParameter
2262   --     6  NamedElement::visibility
2263   --     6  PackageableElement::visibility
2264   --
2265   --     3  NamedElement::clientDependency
2266   --     5  UMLDiagramElement::modelElement
2267   --     1  Element::ownedComment
2268   --     2  Element::ownedElement
2269   --     6  UMLDiagramElement::ownedElement
2270   --     4  DiagramElement::ownedElement
2271
2272   --  UMLRedefinesLabel
2273   --
2274   --     17  Shape::bounds
2275   --     13  UMLDiagramElement::isIcon
2276   --     14  UMLDiagramElement::localStyle
2277   --     11  DiagramElement::localStyle
2278   --     2  UMLRedefinesLabel::modelElement
2279   --     7  DiagramElement::modelElement
2280   --     15  UMLDiagramElement::owningElement
2281   --     10  DiagramElement::owningElement
2282   --     16  UMLDiagramElement::sharedStyle
2283   --     12  DiagramElement::sharedStyle
2284   --     1  UMLLabel::text
2285   --
2286   --     5  UMLDiagramElement::modelElement
2287   --     6  UMLDiagramElement::ownedElement
2288   --     4  DiagramElement::ownedElement
2289
2290   --  UMLShape
2291   --
2292   --     17  Shape::bounds
2293   --     13  UMLDiagramElement::isIcon
2294   --     14  UMLDiagramElement::localStyle
2295   --     11  DiagramElement::localStyle
2296   --     7  DiagramElement::modelElement
2297   --     15  UMLDiagramElement::owningElement
2298   --     10  DiagramElement::owningElement
2299   --     16  UMLDiagramElement::sharedStyle
2300   --     12  DiagramElement::sharedStyle
2301   --
2302   --     5  UMLDiagramElement::modelElement
2303   --     6  UMLDiagramElement::ownedElement
2304   --     4  DiagramElement::ownedElement
2305
2306   --  UMLStateMachineDiagram
2307   --
2308   --     17  Shape::bounds
2309   --     18  Diagram::documentation
2310   --     20  UMLDiagram::heading
2311   --     24  UMLStateMachineDiagram::inheritedStateBorder
2312   --     25  UMLStateMachineDiagram::isCollapseStateIcon
2313   --     21  UMLDiagram::isFrame
2314   --     13  UMLDiagramElement::isIcon
2315   --     22  UMLDiagram::isIso
2316   --     26  UMLStateMachineDiagram::isTransitionOriented
2317   --     14  UMLDiagramElement::localStyle
2318   --     11  DiagramElement::localStyle
2319   --     23  UMLBehaviorDiagram::modelElement
2320   --     27  UMLStateMachineDiagram::modelElement
2321   --     7  DiagramElement::modelElement
2322   --     2  NamedElement::name
2323   --     2  Diagram::name
2324   --     3  NamedElement::nameExpression
2325   --     4  NamedElement::namespace
2326   --     1  Element::owner
2327   --     15  UMLDiagramElement::owningElement
2328   --     10  DiagramElement::owningElement
2329   --     8  ParameterableElement::owningTemplateParameter
2330   --     5  NamedElement::qualifiedName
2331   --     19  Diagram::resolution
2332   --     16  UMLDiagramElement::sharedStyle
2333   --     12  DiagramElement::sharedStyle
2334   --     9  ParameterableElement::templateParameter
2335   --     6  NamedElement::visibility
2336   --     6  PackageableElement::visibility
2337   --
2338   --     3  NamedElement::clientDependency
2339   --     5  UMLDiagramElement::modelElement
2340   --     1  Element::ownedComment
2341   --     2  Element::ownedElement
2342   --     6  UMLDiagramElement::ownedElement
2343   --     4  DiagramElement::ownedElement
2344
2345   --  UMLStateShape
2346   --
2347   --     17  Shape::bounds
2348   --     13  UMLDiagramElement::isIcon
2349   --     1  UMLStateShape::isTabbed
2350   --     14  UMLDiagramElement::localStyle
2351   --     11  DiagramElement::localStyle
2352   --     7  DiagramElement::modelElement
2353   --     15  UMLDiagramElement::owningElement
2354   --     10  DiagramElement::owningElement
2355   --     16  UMLDiagramElement::sharedStyle
2356   --     12  DiagramElement::sharedStyle
2357   --
2358   --     1  UMLCompartmentableShape::compartment
2359   --     5  UMLDiagramElement::modelElement
2360   --     2  UMLStateShape::modelElement
2361   --     6  UMLDiagramElement::ownedElement
2362   --     4  DiagramElement::ownedElement
2363
2364   --  UMLStereotypePropertyValueLabel
2365   --
2366   --     17  Shape::bounds
2367   --     13  UMLDiagramElement::isIcon
2368   --     14  UMLDiagramElement::localStyle
2369   --     11  DiagramElement::localStyle
2370   --     2  UMLStereotypePropertyValueLabel::modelElement
2371   --     7  DiagramElement::modelElement
2372   --     15  UMLDiagramElement::owningElement
2373   --     10  DiagramElement::owningElement
2374   --     16  UMLDiagramElement::sharedStyle
2375   --     12  DiagramElement::sharedStyle
2376   --     3  UMLStereotypePropertyValueLabel::stereotypedElement
2377   --     1  UMLLabel::text
2378   --
2379   --     5  UMLDiagramElement::modelElement
2380   --     6  UMLDiagramElement::ownedElement
2381   --     4  DiagramElement::ownedElement
2382
2383   --  UMLStyle
2384   --
2385   --     7  UMLStyle::fontName
2386   --     10  UMLStyle::fontSize
2387   --     2  NamedElement::name
2388   --     3  NamedElement::nameExpression
2389   --     4  NamedElement::namespace
2390   --     1  Element::owner
2391   --     8  ParameterableElement::owningTemplateParameter
2392   --     5  NamedElement::qualifiedName
2393   --     9  ParameterableElement::templateParameter
2394   --     6  NamedElement::visibility
2395   --     6  PackageableElement::visibility
2396   --
2397   --     3  NamedElement::clientDependency
2398   --     1  Element::ownedComment
2399   --     2  Element::ownedElement
2400
2401   --  UMLTypedElementLabel
2402   --
2403   --     17  Shape::bounds
2404   --     13  UMLDiagramElement::isIcon
2405   --     14  UMLDiagramElement::localStyle
2406   --     11  DiagramElement::localStyle
2407   --     7  DiagramElement::modelElement
2408   --     15  UMLDiagramElement::owningElement
2409   --     10  DiagramElement::owningElement
2410   --     16  UMLDiagramElement::sharedStyle
2411   --     12  DiagramElement::sharedStyle
2412   --     1  UMLLabel::text
2413   --
2414   --     5  UMLDiagramElement::modelElement
2415   --     6  UMLDiagramElement::ownedElement
2416   --     4  DiagramElement::ownedElement
2417
2418   --  UMLUseCaseDiagram
2419   --
2420   --     17  Shape::bounds
2421   --     18  Diagram::documentation
2422   --     20  UMLDiagram::heading
2423   --     21  UMLDiagram::isFrame
2424   --     13  UMLDiagramElement::isIcon
2425   --     22  UMLDiagram::isIso
2426   --     14  UMLDiagramElement::localStyle
2427   --     11  DiagramElement::localStyle
2428   --     23  UMLBehaviorDiagram::modelElement
2429   --     7  DiagramElement::modelElement
2430   --     2  NamedElement::name
2431   --     2  Diagram::name
2432   --     3  NamedElement::nameExpression
2433   --     4  NamedElement::namespace
2434   --     1  Element::owner
2435   --     15  UMLDiagramElement::owningElement
2436   --     10  DiagramElement::owningElement
2437   --     8  ParameterableElement::owningTemplateParameter
2438   --     5  NamedElement::qualifiedName
2439   --     19  Diagram::resolution
2440   --     16  UMLDiagramElement::sharedStyle
2441   --     12  DiagramElement::sharedStyle
2442   --     9  ParameterableElement::templateParameter
2443   --     6  NamedElement::visibility
2444   --     6  PackageableElement::visibility
2445   --
2446   --     3  NamedElement::clientDependency
2447   --     5  UMLDiagramElement::modelElement
2448   --     1  Element::ownedComment
2449   --     2  Element::ownedElement
2450   --     6  UMLDiagramElement::ownedElement
2451   --     4  DiagramElement::ownedElement
2452
2453   --  DataStoreNode
2454   --
2455   --     8  ActivityNode::activity
2456   --     9  ActivityNode::inStructuredNode
2457   --     17  ObjectNode::isControlType
2458   --     7  RedefinableElement::isLeaf
2459   --     2  NamedElement::name
2460   --     3  NamedElement::nameExpression
2461   --     4  NamedElement::namespace
2462   --     18  ObjectNode::ordering
2463   --     1  Element::owner
2464   --     5  NamedElement::qualifiedName
2465   --     19  ObjectNode::selection
2466   --     11  TypedElement::type
2467   --     20  ObjectNode::upperBound
2468   --     6  NamedElement::visibility
2469   --
2470   --     3  NamedElement::clientDependency
2471   --     6  ActivityNode::inGroup
2472   --     7  ActivityNode::inInterruptibleRegion
2473   --     8  ActivityNode::inPartition
2474   --     12  ObjectNode::inState
2475   --     9  ActivityNode::incoming
2476   --     10  ActivityNode::outgoing
2477   --     1  Element::ownedComment
2478   --     2  Element::ownedElement
2479   --     4  RedefinableElement::redefinedElement
2480   --     11  ActivityNode::redefinedNode
2481   --     5  RedefinableElement::redefinitionContext
2482
2483   --  DataType
2484   --
2485   --     11  Classifier::isAbstract
2486   --     13  Classifier::isFinalSpecialization
2487   --     7  RedefinableElement::isLeaf
2488   --     2  NamedElement::name
2489   --     3  NamedElement::nameExpression
2490   --     4  NamedElement::namespace
2491   --     14  Classifier::ownedTemplateSignature
2492   --     10  TemplateableElement::ownedTemplateSignature
2493   --     1  Element::owner
2494   --     8  ParameterableElement::owningTemplateParameter
2495   --     12  Type::package
2496   --     5  NamedElement::qualifiedName
2497   --     15  Classifier::representation
2498   --     16  Classifier::templateParameter
2499   --     9  ParameterableElement::templateParameter
2500   --     6  NamedElement::visibility
2501   --     6  PackageableElement::visibility
2502   --
2503   --     7  Classifier::attribute
2504   --     3  NamedElement::clientDependency
2505   --     8  Classifier::collaborationUse
2506   --     12  Namespace::elementImport
2507   --     9  Classifier::feature
2508   --     10  Classifier::general
2509   --     11  Classifier::generalization
2510   --     13  Namespace::importedMember
2511   --     18  Classifier::inheritedMember
2512   --     14  Namespace::member
2513   --     24  DataType::ownedAttribute
2514   --     1  Element::ownedComment
2515   --     2  Element::ownedElement
2516   --     15  Namespace::ownedMember
2517   --     25  DataType::ownedOperation
2518   --     16  Namespace::ownedRule
2519   --     19  Classifier::ownedUseCase
2520   --     17  Namespace::packageImport
2521   --     20  Classifier::powertypeExtent
2522   --     21  Classifier::redefinedClassifier
2523   --     4  RedefinableElement::redefinedElement
2524   --     5  RedefinableElement::redefinitionContext
2525   --     22  Classifier::substitution
2526   --     6  TemplateableElement::templateBinding
2527   --     23  Classifier::useCase
2528
2529   --  DecisionNode
2530   --
2531   --     8  ActivityNode::activity
2532   --     10  DecisionNode::decisionInput
2533   --     11  DecisionNode::decisionInputFlow
2534   --     9  ActivityNode::inStructuredNode
2535   --     7  RedefinableElement::isLeaf
2536   --     2  NamedElement::name
2537   --     3  NamedElement::nameExpression
2538   --     4  NamedElement::namespace
2539   --     1  Element::owner
2540   --     5  NamedElement::qualifiedName
2541   --     6  NamedElement::visibility
2542   --
2543   --     3  NamedElement::clientDependency
2544   --     6  ActivityNode::inGroup
2545   --     7  ActivityNode::inInterruptibleRegion
2546   --     8  ActivityNode::inPartition
2547   --     9  ActivityNode::incoming
2548   --     10  ActivityNode::outgoing
2549   --     1  Element::ownedComment
2550   --     2  Element::ownedElement
2551   --     4  RedefinableElement::redefinedElement
2552   --     11  ActivityNode::redefinedNode
2553   --     5  RedefinableElement::redefinitionContext
2554
2555   --  Dependency
2556   --
2557   --     2  NamedElement::name
2558   --     3  NamedElement::nameExpression
2559   --     4  NamedElement::namespace
2560   --     1  Element::owner
2561   --     8  ParameterableElement::owningTemplateParameter
2562   --     5  NamedElement::qualifiedName
2563   --     9  ParameterableElement::templateParameter
2564   --     6  NamedElement::visibility
2565   --     6  PackageableElement::visibility
2566   --
2567   --     6  Dependency::client
2568   --     3  NamedElement::clientDependency
2569   --     1  Element::ownedComment
2570   --     2  Element::ownedElement
2571   --     24  Relationship::relatedElement
2572   --     4  DirectedRelationship::source
2573   --     7  Dependency::supplier
2574   --     5  DirectedRelationship::target
2575
2576   --  Deployment
2577   --
2578   --     7  Deployment::location
2579   --     2  NamedElement::name
2580   --     3  NamedElement::nameExpression
2581   --     4  NamedElement::namespace
2582   --     1  Element::owner
2583   --     8  ParameterableElement::owningTemplateParameter
2584   --     5  NamedElement::qualifiedName
2585   --     9  ParameterableElement::templateParameter
2586   --     6  NamedElement::visibility
2587   --     6  PackageableElement::visibility
2588   --
2589   --     6  Dependency::client
2590   --     3  NamedElement::clientDependency
2591   --     8  Deployment::configuration
2592   --     9  Deployment::deployedArtifact
2593   --     1  Element::ownedComment
2594   --     2  Element::ownedElement
2595   --     24  Relationship::relatedElement
2596   --     4  DirectedRelationship::source
2597   --     7  Dependency::supplier
2598   --     5  DirectedRelationship::target
2599
2600   --  DeploymentSpecification
2601   --
2602   --     18  DeploymentSpecification::deployment
2603   --     19  DeploymentSpecification::deploymentLocation
2604   --     20  DeploymentSpecification::executionLocation
2605   --     17  Artifact::fileName
2606   --     11  Classifier::isAbstract
2607   --     13  Classifier::isFinalSpecialization
2608   --     7  RedefinableElement::isLeaf
2609   --     2  NamedElement::name
2610   --     3  NamedElement::nameExpression
2611   --     4  NamedElement::namespace
2612   --     14  Classifier::ownedTemplateSignature
2613   --     10  TemplateableElement::ownedTemplateSignature
2614   --     1  Element::owner
2615   --     8  ParameterableElement::owningTemplateParameter
2616   --     12  Type::package
2617   --     5  NamedElement::qualifiedName
2618   --     15  Classifier::representation
2619   --     16  Classifier::templateParameter
2620   --     9  ParameterableElement::templateParameter
2621   --     6  NamedElement::visibility
2622   --     6  PackageableElement::visibility
2623   --
2624   --     7  Classifier::attribute
2625   --     3  NamedElement::clientDependency
2626   --     8  Classifier::collaborationUse
2627   --     12  Namespace::elementImport
2628   --     9  Classifier::feature
2629   --     10  Classifier::general
2630   --     11  Classifier::generalization
2631   --     13  Namespace::importedMember
2632   --     18  Classifier::inheritedMember
2633   --     24  Artifact::manifestation
2634   --     14  Namespace::member
2635   --     25  Artifact::nestedArtifact
2636   --     26  Artifact::ownedAttribute
2637   --     1  Element::ownedComment
2638   --     2  Element::ownedElement
2639   --     15  Namespace::ownedMember
2640   --     27  Artifact::ownedOperation
2641   --     16  Namespace::ownedRule
2642   --     19  Classifier::ownedUseCase
2643   --     17  Namespace::packageImport
2644   --     20  Classifier::powertypeExtent
2645   --     21  Classifier::redefinedClassifier
2646   --     4  RedefinableElement::redefinedElement
2647   --     5  RedefinableElement::redefinitionContext
2648   --     22  Classifier::substitution
2649   --     6  TemplateableElement::templateBinding
2650   --     23  Classifier::useCase
2651
2652   --  DestroyLinkAction
2653   --
2654   --     8  ActivityNode::activity
2655   --     10  Action::context
2656   --     9  ActivityNode::inStructuredNode
2657   --     7  RedefinableElement::isLeaf
2658   --     11  Action::isLocallyReentrant
2659   --     2  NamedElement::name
2660   --     3  NamedElement::nameExpression
2661   --     4  NamedElement::namespace
2662   --     1  Element::owner
2663   --     5  NamedElement::qualifiedName
2664   --     6  NamedElement::visibility
2665   --
2666   --     3  NamedElement::clientDependency
2667   --     14  DestroyLinkAction::endData
2668   --     12  LinkAction::endData
2669   --     18  ExecutableNode::handler
2670   --     6  ActivityNode::inGroup
2671   --     7  ActivityNode::inInterruptibleRegion
2672   --     8  ActivityNode::inPartition
2673   --     9  ActivityNode::incoming
2674   --     19  Action::input
2675   --     13  LinkAction::inputValue
2676   --     20  Action::localPostcondition
2677   --     21  Action::localPrecondition
2678   --     10  ActivityNode::outgoing
2679   --     22  Action::output
2680   --     1  Element::ownedComment
2681   --     2  Element::ownedElement
2682   --     4  RedefinableElement::redefinedElement
2683   --     11  ActivityNode::redefinedNode
2684   --     5  RedefinableElement::redefinitionContext
2685
2686   --  DestroyObjectAction
2687   --
2688   --     8  ActivityNode::activity
2689   --     10  Action::context
2690   --     9  ActivityNode::inStructuredNode
2691   --     12  DestroyObjectAction::isDestroyLinks
2692   --     13  DestroyObjectAction::isDestroyOwnedObjects
2693   --     7  RedefinableElement::isLeaf
2694   --     11  Action::isLocallyReentrant
2695   --     2  NamedElement::name
2696   --     3  NamedElement::nameExpression
2697   --     4  NamedElement::namespace
2698   --     1  Element::owner
2699   --     5  NamedElement::qualifiedName
2700   --     14  DestroyObjectAction::target
2701   --     6  NamedElement::visibility
2702   --
2703   --     3  NamedElement::clientDependency
2704   --     18  ExecutableNode::handler
2705   --     6  ActivityNode::inGroup
2706   --     7  ActivityNode::inInterruptibleRegion
2707   --     8  ActivityNode::inPartition
2708   --     9  ActivityNode::incoming
2709   --     19  Action::input
2710   --     20  Action::localPostcondition
2711   --     21  Action::localPrecondition
2712   --     10  ActivityNode::outgoing
2713   --     22  Action::output
2714   --     1  Element::ownedComment
2715   --     2  Element::ownedElement
2716   --     4  RedefinableElement::redefinedElement
2717   --     11  ActivityNode::redefinedNode
2718   --     5  RedefinableElement::redefinitionContext
2719
2720   --  DestructionOccurrenceSpecification
2721   --
2722   --     7  OccurrenceSpecification::covered
2723   --     18  InteractionFragment::enclosingInteraction
2724   --     19  InteractionFragment::enclosingOperand
2725   --     8  MessageEnd::message
2726   --     2  NamedElement::name
2727   --     3  NamedElement::nameExpression
2728   --     4  NamedElement::namespace
2729   --     1  Element::owner
2730   --     5  NamedElement::qualifiedName
2731   --     6  NamedElement::visibility
2732   --
2733   --     3  NamedElement::clientDependency
2734   --     24  InteractionFragment::covered
2735   --     27  InteractionFragment::generalOrdering
2736   --     1  Element::ownedComment
2737   --     2  Element::ownedElement
2738   --     4  OccurrenceSpecification::toAfter
2739   --     5  OccurrenceSpecification::toBefore
2740
2741   --  Device
2742   --
2743   --     17  BehavioredClassifier::classifierBehavior
2744   --     11  Class::isAbstract
2745   --     11  Classifier::isAbstract
2746   --     20  Class::isActive
2747   --     13  Classifier::isFinalSpecialization
2748   --     7  RedefinableElement::isLeaf
2749   --     2  NamedElement::name
2750   --     3  NamedElement::nameExpression
2751   --     4  NamedElement::namespace
2752   --     14  Classifier::ownedTemplateSignature
2753   --     10  TemplateableElement::ownedTemplateSignature
2754   --     1  Element::owner
2755   --     8  ParameterableElement::owningTemplateParameter
2756   --     12  Type::package
2757   --     5  NamedElement::qualifiedName
2758   --     15  Classifier::representation
2759   --     16  Classifier::templateParameter
2760   --     9  ParameterableElement::templateParameter
2761   --     6  NamedElement::visibility
2762   --     6  PackageableElement::visibility
2763   --
2764   --     7  Classifier::attribute
2765   --     3  NamedElement::clientDependency
2766   --     8  Classifier::collaborationUse
2767   --     24  DeploymentTarget::deployedElement
2768   --     27  DeploymentTarget::deployment
2769   --     12  Namespace::elementImport
2770   --     33  Class::extension
2771   --     9  Classifier::feature
2772   --     10  Classifier::general
2773   --     11  Classifier::generalization
2774   --     13  Namespace::importedMember
2775   --     18  Classifier::inheritedMember
2776   --     25  BehavioredClassifier::interfaceRealization
2777   --     14  Namespace::member
2778   --     34  Class::nestedClassifier
2779   --     39  Node::nestedNode
2780   --     35  Class::ownedAttribute
2781   --     28  StructuredClassifier::ownedAttribute
2782   --     26  BehavioredClassifier::ownedBehavior
2783   --     1  Element::ownedComment
2784   --     29  StructuredClassifier::ownedConnector
2785   --     2  Element::ownedElement
2786   --     15  Namespace::ownedMember
2787   --     36  Class::ownedOperation
2788   --     32  EncapsulatedClassifier::ownedPort
2789   --     37  Class::ownedReception
2790   --     16  Namespace::ownedRule
2791   --     19  Classifier::ownedUseCase
2792   --     17  Namespace::packageImport
2793   --     30  StructuredClassifier::part
2794   --     20  Classifier::powertypeExtent
2795   --     21  Classifier::redefinedClassifier
2796   --     4  RedefinableElement::redefinedElement
2797   --     5  RedefinableElement::redefinitionContext
2798   --     31  StructuredClassifier::role
2799   --     22  Classifier::substitution
2800   --     38  Class::superClass
2801   --     6  TemplateableElement::templateBinding
2802   --     23  Classifier::useCase
2803
2804   --  Duration
2805   --
2806   --     7  Duration::expr
2807   --     2  NamedElement::name
2808   --     3  NamedElement::nameExpression
2809   --     4  NamedElement::namespace
2810   --     1  Element::owner
2811   --     8  ParameterableElement::owningTemplateParameter
2812   --     5  NamedElement::qualifiedName
2813   --     9  ParameterableElement::templateParameter
2814   --     11  TypedElement::type
2815   --     6  NamedElement::visibility
2816   --     6  PackageableElement::visibility
2817   --
2818   --     3  NamedElement::clientDependency
2819   --     4  Duration::observation
2820   --     1  Element::ownedComment
2821   --     2  Element::ownedElement
2822
2823   --  DurationConstraint
2824   --
2825   --     7  Constraint::context
2826   --     12  DurationConstraint::firstEvent
2827   --     2  NamedElement::name
2828   --     3  NamedElement::nameExpression
2829   --     4  NamedElement::namespace
2830   --     1  Element::owner
2831   --     8  ParameterableElement::owningTemplateParameter
2832   --     5  NamedElement::qualifiedName
2833   --     10  Constraint::specification
2834   --     13  DurationConstraint::specification
2835   --     11  IntervalConstraint::specification
2836   --     9  ParameterableElement::templateParameter
2837   --     6  NamedElement::visibility
2838   --     6  PackageableElement::visibility
2839   --
2840   --     3  NamedElement::clientDependency
2841   --     4  Constraint::constrainedElement
2842   --     1  Element::ownedComment
2843   --     2  Element::ownedElement
2844
2845   --  DurationInterval
2846   --
2847   --     12  DurationInterval::max
2848   --     7  Interval::max
2849   --     13  DurationInterval::min
2850   --     10  Interval::min
2851   --     2  NamedElement::name
2852   --     3  NamedElement::nameExpression
2853   --     4  NamedElement::namespace
2854   --     1  Element::owner
2855   --     8  ParameterableElement::owningTemplateParameter
2856   --     5  NamedElement::qualifiedName
2857   --     9  ParameterableElement::templateParameter
2858   --     11  TypedElement::type
2859   --     6  NamedElement::visibility
2860   --     6  PackageableElement::visibility
2861   --
2862   --     3  NamedElement::clientDependency
2863   --     1  Element::ownedComment
2864   --     2  Element::ownedElement
2865
2866   --  DurationObservation
2867   --
2868   --     12  DurationObservation::firstEvent
2869   --     2  NamedElement::name
2870   --     3  NamedElement::nameExpression
2871   --     4  NamedElement::namespace
2872   --     1  Element::owner
2873   --     8  ParameterableElement::owningTemplateParameter
2874   --     5  NamedElement::qualifiedName
2875   --     9  ParameterableElement::templateParameter
2876   --     6  NamedElement::visibility
2877   --     6  PackageableElement::visibility
2878   --
2879   --     3  NamedElement::clientDependency
2880   --     4  DurationObservation::event
2881   --     1  Element::ownedComment
2882   --     2  Element::ownedElement
2883
2884   --  ElementImport
2885   --
2886   --     3  ElementImport::alias
2887   --     4  ElementImport::importedElement
2888   --     5  ElementImport::importingNamespace
2889   --     1  Element::owner
2890   --     2  ElementImport::visibility
2891   --
2892   --     1  Element::ownedComment
2893   --     2  Element::ownedElement
2894   --     24  Relationship::relatedElement
2895   --     4  DirectedRelationship::source
2896   --     5  DirectedRelationship::target
2897
2898   --  Enumeration
2899   --
2900   --     11  Classifier::isAbstract
2901   --     13  Classifier::isFinalSpecialization
2902   --     7  RedefinableElement::isLeaf
2903   --     2  NamedElement::name
2904   --     3  NamedElement::nameExpression
2905   --     4  NamedElement::namespace
2906   --     14  Classifier::ownedTemplateSignature
2907   --     10  TemplateableElement::ownedTemplateSignature
2908   --     1  Element::owner
2909   --     8  ParameterableElement::owningTemplateParameter
2910   --     12  Type::package
2911   --     5  NamedElement::qualifiedName
2912   --     15  Classifier::representation
2913   --     16  Classifier::templateParameter
2914   --     9  ParameterableElement::templateParameter
2915   --     6  NamedElement::visibility
2916   --     6  PackageableElement::visibility
2917   --
2918   --     7  Classifier::attribute
2919   --     3  NamedElement::clientDependency
2920   --     8  Classifier::collaborationUse
2921   --     12  Namespace::elementImport
2922   --     9  Classifier::feature
2923   --     10  Classifier::general
2924   --     11  Classifier::generalization
2925   --     13  Namespace::importedMember
2926   --     18  Classifier::inheritedMember
2927   --     14  Namespace::member
2928   --     24  DataType::ownedAttribute
2929   --     1  Element::ownedComment
2930   --     2  Element::ownedElement
2931   --     26  Enumeration::ownedLiteral
2932   --     15  Namespace::ownedMember
2933   --     25  DataType::ownedOperation
2934   --     16  Namespace::ownedRule
2935   --     19  Classifier::ownedUseCase
2936   --     17  Namespace::packageImport
2937   --     20  Classifier::powertypeExtent
2938   --     21  Classifier::redefinedClassifier
2939   --     4  RedefinableElement::redefinedElement
2940   --     5  RedefinableElement::redefinitionContext
2941   --     22  Classifier::substitution
2942   --     6  TemplateableElement::templateBinding
2943   --     23  Classifier::useCase
2944
2945   --  EnumerationLiteral
2946   --
2947   --     10  EnumerationLiteral::classifier
2948   --     11  EnumerationLiteral::enumeration
2949   --     2  NamedElement::name
2950   --     3  NamedElement::nameExpression
2951   --     4  NamedElement::namespace
2952   --     1  Element::owner
2953   --     8  ParameterableElement::owningTemplateParameter
2954   --     5  NamedElement::qualifiedName
2955   --     7  InstanceSpecification::specification
2956   --     9  ParameterableElement::templateParameter
2957   --     6  NamedElement::visibility
2958   --     6  PackageableElement::visibility
2959   --
2960   --     4  InstanceSpecification::classifier
2961   --     3  NamedElement::clientDependency
2962   --     24  DeploymentTarget::deployedElement
2963   --     27  DeploymentTarget::deployment
2964   --     1  Element::ownedComment
2965   --     2  Element::ownedElement
2966   --     5  InstanceSpecification::slot
2967
2968   --  ExceptionHandler
2969   --
2970   --     2  ExceptionHandler::exceptionInput
2971   --     3  ExceptionHandler::handlerBody
2972   --     1  Element::owner
2973   --     4  ExceptionHandler::protectedNode
2974   --
2975   --     3  ExceptionHandler::exceptionType
2976   --     1  Element::ownedComment
2977   --     2  Element::ownedElement
2978
2979   --  ExecutionEnvironment
2980   --
2981   --     17  BehavioredClassifier::classifierBehavior
2982   --     11  Class::isAbstract
2983   --     11  Classifier::isAbstract
2984   --     20  Class::isActive
2985   --     13  Classifier::isFinalSpecialization
2986   --     7  RedefinableElement::isLeaf
2987   --     2  NamedElement::name
2988   --     3  NamedElement::nameExpression
2989   --     4  NamedElement::namespace
2990   --     14  Classifier::ownedTemplateSignature
2991   --     10  TemplateableElement::ownedTemplateSignature
2992   --     1  Element::owner
2993   --     8  ParameterableElement::owningTemplateParameter
2994   --     12  Type::package
2995   --     5  NamedElement::qualifiedName
2996   --     15  Classifier::representation
2997   --     16  Classifier::templateParameter
2998   --     9  ParameterableElement::templateParameter
2999   --     6  NamedElement::visibility
3000   --     6  PackageableElement::visibility
3001   --
3002   --     7  Classifier::attribute
3003   --     3  NamedElement::clientDependency
3004   --     8  Classifier::collaborationUse
3005   --     24  DeploymentTarget::deployedElement
3006   --     27  DeploymentTarget::deployment
3007   --     12  Namespace::elementImport
3008   --     33  Class::extension
3009   --     9  Classifier::feature
3010   --     10  Classifier::general
3011   --     11  Classifier::generalization
3012   --     13  Namespace::importedMember
3013   --     18  Classifier::inheritedMember
3014   --     25  BehavioredClassifier::interfaceRealization
3015   --     14  Namespace::member
3016   --     34  Class::nestedClassifier
3017   --     39  Node::nestedNode
3018   --     35  Class::ownedAttribute
3019   --     28  StructuredClassifier::ownedAttribute
3020   --     26  BehavioredClassifier::ownedBehavior
3021   --     1  Element::ownedComment
3022   --     29  StructuredClassifier::ownedConnector
3023   --     2  Element::ownedElement
3024   --     15  Namespace::ownedMember
3025   --     36  Class::ownedOperation
3026   --     32  EncapsulatedClassifier::ownedPort
3027   --     37  Class::ownedReception
3028   --     16  Namespace::ownedRule
3029   --     19  Classifier::ownedUseCase
3030   --     17  Namespace::packageImport
3031   --     30  StructuredClassifier::part
3032   --     20  Classifier::powertypeExtent
3033   --     21  Classifier::redefinedClassifier
3034   --     4  RedefinableElement::redefinedElement
3035   --     5  RedefinableElement::redefinitionContext
3036   --     31  StructuredClassifier::role
3037   --     22  Classifier::substitution
3038   --     38  Class::superClass
3039   --     6  TemplateableElement::templateBinding
3040   --     23  Classifier::useCase
3041
3042   --  ExecutionOccurrenceSpecification
3043   --
3044   --     7  OccurrenceSpecification::covered
3045   --     18  InteractionFragment::enclosingInteraction
3046   --     19  InteractionFragment::enclosingOperand
3047   --     8  ExecutionOccurrenceSpecification::execution
3048   --     2  NamedElement::name
3049   --     3  NamedElement::nameExpression
3050   --     4  NamedElement::namespace
3051   --     1  Element::owner
3052   --     5  NamedElement::qualifiedName
3053   --     6  NamedElement::visibility
3054   --
3055   --     3  NamedElement::clientDependency
3056   --     24  InteractionFragment::covered
3057   --     27  InteractionFragment::generalOrdering
3058   --     1  Element::ownedComment
3059   --     2  Element::ownedElement
3060   --     4  OccurrenceSpecification::toAfter
3061   --     5  OccurrenceSpecification::toBefore
3062
3063   --  ExpansionNode
3064   --
3065   --     8  ActivityNode::activity
3066   --     9  ActivityNode::inStructuredNode
3067   --     17  ObjectNode::isControlType
3068   --     7  RedefinableElement::isLeaf
3069   --     2  NamedElement::name
3070   --     3  NamedElement::nameExpression
3071   --     4  NamedElement::namespace
3072   --     18  ObjectNode::ordering
3073   --     1  Element::owner
3074   --     5  NamedElement::qualifiedName
3075   --     10  ExpansionNode::regionAsInput
3076   --     12  ExpansionNode::regionAsOutput
3077   --     19  ObjectNode::selection
3078   --     11  TypedElement::type
3079   --     20  ObjectNode::upperBound
3080   --     6  NamedElement::visibility
3081   --
3082   --     3  NamedElement::clientDependency
3083   --     6  ActivityNode::inGroup
3084   --     7  ActivityNode::inInterruptibleRegion
3085   --     8  ActivityNode::inPartition
3086   --     12  ObjectNode::inState
3087   --     9  ActivityNode::incoming
3088   --     10  ActivityNode::outgoing
3089   --     1  Element::ownedComment
3090   --     2  Element::ownedElement
3091   --     4  RedefinableElement::redefinedElement
3092   --     11  ActivityNode::redefinedNode
3093   --     5  RedefinableElement::redefinitionContext
3094
3095   --  ExpansionRegion
3096   --
3097   --     8  ActivityNode::activity
3098   --     14  StructuredActivityNode::activity
3099   --     10  Action::context
3100   --     12  ActivityGroup::inActivity
3101   --     9  ActivityNode::inStructuredNode
3102   --     7  RedefinableElement::isLeaf
3103   --     11  Action::isLocallyReentrant
3104   --     16  ExpansionRegion::mode
3105   --     15  StructuredActivityNode::mustIsolate
3106   --     2  NamedElement::name
3107   --     3  NamedElement::nameExpression
3108   --     4  NamedElement::namespace
3109   --     1  Element::owner
3110   --     5  NamedElement::qualifiedName
3111   --     13  ActivityGroup::superGroup
3112   --     6  NamedElement::visibility
3113   --
3114   --     3  NamedElement::clientDependency
3115   --     23  ActivityGroup::containedEdge
3116   --     24  ActivityGroup::containedNode
3117   --     26  StructuredActivityNode::edge
3118   --     12  Namespace::elementImport
3119   --     18  ExecutableNode::handler
3120   --     13  Namespace::importedMember
3121   --     6  ActivityNode::inGroup
3122   --     7  ActivityNode::inInterruptibleRegion
3123   --     8  ActivityNode::inPartition
3124   --     9  ActivityNode::incoming
3125   --     19  Action::input
3126   --     31  ExpansionRegion::inputElement
3127   --     20  Action::localPostcondition
3128   --     21  Action::localPrecondition
3129   --     14  Namespace::member
3130   --     27  StructuredActivityNode::node
3131   --     10  ActivityNode::outgoing
3132   --     22  Action::output
3133   --     32  ExpansionRegion::outputElement
3134   --     1  Element::ownedComment
3135   --     2  Element::ownedElement
3136   --     15  Namespace::ownedMember
3137   --     16  Namespace::ownedRule
3138   --     17  Namespace::packageImport
3139   --     4  RedefinableElement::redefinedElement
3140   --     11  ActivityNode::redefinedNode
3141   --     5  RedefinableElement::redefinitionContext
3142   --     28  StructuredActivityNode::structuredNodeInput
3143   --     29  StructuredActivityNode::structuredNodeOutput
3144   --     25  ActivityGroup::subgroup
3145   --     30  StructuredActivityNode::variable
3146
3147   --  Expression
3148   --
3149   --     2  NamedElement::name
3150   --     3  NamedElement::nameExpression
3151   --     4  NamedElement::namespace
3152   --     1  Element::owner
3153   --     8  ParameterableElement::owningTemplateParameter
3154   --     5  NamedElement::qualifiedName
3155   --     7  Expression::symbol
3156   --     9  ParameterableElement::templateParameter
3157   --     11  TypedElement::type
3158   --     6  NamedElement::visibility
3159   --     6  PackageableElement::visibility
3160   --
3161   --     3  NamedElement::clientDependency
3162   --     4  Expression::operand
3163   --     1  Element::ownedComment
3164   --     2  Element::ownedElement
3165
3166   --  Extend
3167   --
3168   --     7  Extend::condition
3169   --     8  Extend::extendedCase
3170   --     9  Extend::extension
3171   --     2  NamedElement::name
3172   --     3  NamedElement::nameExpression
3173   --     4  NamedElement::namespace
3174   --     1  Element::owner
3175   --     5  NamedElement::qualifiedName
3176   --     6  NamedElement::visibility
3177   --
3178   --     3  NamedElement::clientDependency
3179   --     6  Extend::extensionLocation
3180   --     1  Element::ownedComment
3181   --     2  Element::ownedElement
3182   --     24  Relationship::relatedElement
3183   --     4  DirectedRelationship::source
3184   --     5  DirectedRelationship::target
3185
3186   --  Extension
3187   --
3188   --     11  Classifier::isAbstract
3189   --     18  Association::isDerived
3190   --     13  Classifier::isFinalSpecialization
3191   --     7  RedefinableElement::isLeaf
3192   --     17  Extension::isRequired
3193   --     19  Extension::metaclass
3194   --     2  NamedElement::name
3195   --     3  NamedElement::nameExpression
3196   --     4  NamedElement::namespace
3197   --     20  Extension::ownedEnd
3198   --     14  Classifier::ownedTemplateSignature
3199   --     10  TemplateableElement::ownedTemplateSignature
3200   --     1  Element::owner
3201   --     8  ParameterableElement::owningTemplateParameter
3202   --     12  Type::package
3203   --     5  NamedElement::qualifiedName
3204   --     15  Classifier::representation
3205   --     16  Classifier::templateParameter
3206   --     9  ParameterableElement::templateParameter
3207   --     6  NamedElement::visibility
3208   --     6  PackageableElement::visibility
3209   --
3210   --     7  Classifier::attribute
3211   --     3  NamedElement::clientDependency
3212   --     8  Classifier::collaborationUse
3213   --     12  Namespace::elementImport
3214   --     27  Association::endType
3215   --     9  Classifier::feature
3216   --     10  Classifier::general
3217   --     11  Classifier::generalization
3218   --     13  Namespace::importedMember
3219   --     18  Classifier::inheritedMember
3220   --     14  Namespace::member
3221   --     39  Association::memberEnd
3222   --     40  Association::navigableOwnedEnd
3223   --     1  Element::ownedComment
3224   --     2  Element::ownedElement
3225   --     41  Association::ownedEnd
3226   --     15  Namespace::ownedMember
3227   --     16  Namespace::ownedRule
3228   --     19  Classifier::ownedUseCase
3229   --     17  Namespace::packageImport
3230   --     20  Classifier::powertypeExtent
3231   --     21  Classifier::redefinedClassifier
3232   --     4  RedefinableElement::redefinedElement
3233   --     5  RedefinableElement::redefinitionContext
3234   --     24  Relationship::relatedElement
3235   --     22  Classifier::substitution
3236   --     6  TemplateableElement::templateBinding
3237   --     23  Classifier::useCase
3238
3239   --  ExtensionEnd
3240   --
3241   --     22  Property::aggregation
3242   --     23  Property::association
3243   --     25  Property::associationEnd
3244   --     26  Property::class
3245   --     27  Property::datatype
3246   --     21  Property::default
3247   --     28  Property::defaultValue
3248   --     29  Property::interface
3249   --     20  Property::isComposite
3250   --     18  Property::isDerived
3251   --     30  Property::isDerivedUnion
3252   --     31  Property::isID
3253   --     7  RedefinableElement::isLeaf
3254   --     12  MultiplicityElement::isOrdered
3255   --     24  Property::isReadOnly
3256   --     24  StructuralFeature::isReadOnly
3257   --     17  Feature::isStatic
3258   --     13  MultiplicityElement::isUnique
3259   --     14  ExtensionEnd::lower
3260   --     14  MultiplicityElement::lower
3261   --     10  MultiplicityElement::lowerValue
3262   --     2  NamedElement::name
3263   --     3  NamedElement::nameExpression
3264   --     4  NamedElement::namespace
3265   --     32  Property::opposite
3266   --     1  Element::owner
3267   --     33  Property::owningAssociation
3268   --     8  ParameterableElement::owningTemplateParameter
3269   --     5  NamedElement::qualifiedName
3270   --     19  ConnectableElement::templateParameter
3271   --     9  ParameterableElement::templateParameter
3272   --     34  ExtensionEnd::type
3273   --     11  TypedElement::type
3274   --     15  MultiplicityElement::upper
3275   --     16  MultiplicityElement::upperValue
3276   --     6  NamedElement::visibility
3277   --
3278   --     3  NamedElement::clientDependency
3279   --     24  DeploymentTarget::deployedElement
3280   --     27  DeploymentTarget::deployment
3281   --     6  ConnectableElement::end
3282   --     7  Feature::featuringClassifier
3283   --     1  Element::ownedComment
3284   --     2  Element::ownedElement
3285   --     8  Property::qualifier
3286   --     4  RedefinableElement::redefinedElement
3287   --     9  Property::redefinedProperty
3288   --     5  RedefinableElement::redefinitionContext
3289   --     10  Property::subsettedProperty
3290
3291   --  ExtensionPoint
3292   --
3293   --     7  RedefinableElement::isLeaf
3294   --     2  NamedElement::name
3295   --     3  NamedElement::nameExpression
3296   --     4  NamedElement::namespace
3297   --     1  Element::owner
3298   --     5  NamedElement::qualifiedName
3299   --     8  ExtensionPoint::useCase
3300   --     6  NamedElement::visibility
3301   --
3302   --     3  NamedElement::clientDependency
3303   --     1  Element::ownedComment
3304   --     2  Element::ownedElement
3305   --     4  RedefinableElement::redefinedElement
3306   --     5  RedefinableElement::redefinitionContext
3307
3308   --  FinalState
3309   --
3310   --     8  Vertex::container
3311   --     9  State::doActivity
3312   --     10  State::entry
3313   --     11  State::exit
3314   --     20  State::isComposite
3315   --     7  RedefinableElement::isLeaf
3316   --     12  State::isOrthogonal
3317   --     13  State::isSimple
3318   --     14  State::isSubmachineState
3319   --     2  NamedElement::name
3320   --     3  NamedElement::nameExpression
3321   --     4  NamedElement::namespace
3322   --     1  Element::owner
3323   --     5  NamedElement::qualifiedName
3324   --     15  State::redefinedState
3325   --     16  State::redefinitionContext
3326   --     17  State::stateInvariant
3327   --     18  State::submachine
3328   --     6  NamedElement::visibility
3329   --
3330   --     3  NamedElement::clientDependency
3331   --     8  State::connection
3332   --     9  State::connectionPoint
3333   --     10  State::deferrableTrigger
3334   --     12  Namespace::elementImport
3335   --     13  Namespace::importedMember
3336   --     6  Vertex::incoming
3337   --     14  Namespace::member
3338   --     7  Vertex::outgoing
3339   --     1  Element::ownedComment
3340   --     2  Element::ownedElement
3341   --     15  Namespace::ownedMember
3342   --     16  Namespace::ownedRule
3343   --     17  Namespace::packageImport
3344   --     4  RedefinableElement::redefinedElement
3345   --     5  RedefinableElement::redefinitionContext
3346   --     11  State::region
3347
3348   --  FlowFinalNode
3349   --
3350   --     8  ActivityNode::activity
3351   --     9  ActivityNode::inStructuredNode
3352   --     7  RedefinableElement::isLeaf
3353   --     2  NamedElement::name
3354   --     3  NamedElement::nameExpression
3355   --     4  NamedElement::namespace
3356   --     1  Element::owner
3357   --     5  NamedElement::qualifiedName
3358   --     6  NamedElement::visibility
3359   --
3360   --     3  NamedElement::clientDependency
3361   --     6  ActivityNode::inGroup
3362   --     7  ActivityNode::inInterruptibleRegion
3363   --     8  ActivityNode::inPartition
3364   --     9  ActivityNode::incoming
3365   --     10  ActivityNode::outgoing
3366   --     1  Element::ownedComment
3367   --     2  Element::ownedElement
3368   --     4  RedefinableElement::redefinedElement
3369   --     11  ActivityNode::redefinedNode
3370   --     5  RedefinableElement::redefinitionContext
3371
3372   --  ForkNode
3373   --
3374   --     8  ActivityNode::activity
3375   --     9  ActivityNode::inStructuredNode
3376   --     7  RedefinableElement::isLeaf
3377   --     2  NamedElement::name
3378   --     3  NamedElement::nameExpression
3379   --     4  NamedElement::namespace
3380   --     1  Element::owner
3381   --     5  NamedElement::qualifiedName
3382   --     6  NamedElement::visibility
3383   --
3384   --     3  NamedElement::clientDependency
3385   --     6  ActivityNode::inGroup
3386   --     7  ActivityNode::inInterruptibleRegion
3387   --     8  ActivityNode::inPartition
3388   --     9  ActivityNode::incoming
3389   --     10  ActivityNode::outgoing
3390   --     1  Element::ownedComment
3391   --     2  Element::ownedElement
3392   --     4  RedefinableElement::redefinedElement
3393   --     11  ActivityNode::redefinedNode
3394   --     5  RedefinableElement::redefinitionContext
3395
3396   --  FunctionBehavior
3397   --
3398   --     18  OpaqueBehavior::body
3399   --     17  BehavioredClassifier::classifierBehavior
3400   --     21  Behavior::context
3401   --     11  Class::isAbstract
3402   --     11  Classifier::isAbstract
3403   --     20  Class::isActive
3404   --     13  Classifier::isFinalSpecialization
3405   --     7  RedefinableElement::isLeaf
3406   --     22  Behavior::isReentrant
3407   --     19  OpaqueBehavior::language
3408   --     2  NamedElement::name
3409   --     3  NamedElement::nameExpression
3410   --     4  NamedElement::namespace
3411   --     14  Classifier::ownedTemplateSignature
3412   --     10  TemplateableElement::ownedTemplateSignature
3413   --     1  Element::owner
3414   --     8  ParameterableElement::owningTemplateParameter
3415   --     12  Type::package
3416   --     5  NamedElement::qualifiedName
3417   --     15  Classifier::representation
3418   --     23  Behavior::specification
3419   --     16  Classifier::templateParameter
3420   --     9  ParameterableElement::templateParameter
3421   --     6  NamedElement::visibility
3422   --     6  PackageableElement::visibility
3423   --
3424   --     7  Classifier::attribute
3425   --     3  NamedElement::clientDependency
3426   --     8  Classifier::collaborationUse
3427   --     12  Namespace::elementImport
3428   --     33  Class::extension
3429   --     9  Classifier::feature
3430   --     10  Classifier::general
3431   --     11  Classifier::generalization
3432   --     13  Namespace::importedMember
3433   --     18  Classifier::inheritedMember
3434   --     25  BehavioredClassifier::interfaceRealization
3435   --     14  Namespace::member
3436   --     34  Class::nestedClassifier
3437   --     35  Class::ownedAttribute
3438   --     28  StructuredClassifier::ownedAttribute
3439   --     26  BehavioredClassifier::ownedBehavior
3440   --     1  Element::ownedComment
3441   --     29  StructuredClassifier::ownedConnector
3442   --     2  Element::ownedElement
3443   --     15  Namespace::ownedMember
3444   --     36  Class::ownedOperation
3445   --     39  Behavior::ownedParameter
3446   --     40  Behavior::ownedParameterSet
3447   --     32  EncapsulatedClassifier::ownedPort
3448   --     37  Class::ownedReception
3449   --     16  Namespace::ownedRule
3450   --     19  Classifier::ownedUseCase
3451   --     17  Namespace::packageImport
3452   --     30  StructuredClassifier::part
3453   --     41  Behavior::postcondition
3454   --     20  Classifier::powertypeExtent
3455   --     42  Behavior::precondition
3456   --     43  Behavior::redefinedBehavior
3457   --     21  Classifier::redefinedClassifier
3458   --     4  RedefinableElement::redefinedElement
3459   --     5  RedefinableElement::redefinitionContext
3460   --     31  StructuredClassifier::role
3461   --     22  Classifier::substitution
3462   --     38  Class::superClass
3463   --     6  TemplateableElement::templateBinding
3464   --     23  Classifier::useCase
3465
3466   --  Gate
3467   --
3468   --     8  MessageEnd::message
3469   --     2  NamedElement::name
3470   --     3  NamedElement::nameExpression
3471   --     4  NamedElement::namespace
3472   --     1  Element::owner
3473   --     5  NamedElement::qualifiedName
3474   --     6  NamedElement::visibility
3475   --
3476   --     3  NamedElement::clientDependency
3477   --     1  Element::ownedComment
3478   --     2  Element::ownedElement
3479
3480   --  GeneralOrdering
3481   --
3482   --     7  GeneralOrdering::after
3483   --     8  GeneralOrdering::before
3484   --     2  NamedElement::name
3485   --     3  NamedElement::nameExpression
3486   --     4  NamedElement::namespace
3487   --     1  Element::owner
3488   --     5  NamedElement::qualifiedName
3489   --     6  NamedElement::visibility
3490   --
3491   --     3  NamedElement::clientDependency
3492   --     1  Element::ownedComment
3493   --     2  Element::ownedElement
3494
3495   --  Generalization
3496   --
3497   --     2  Generalization::general
3498   --     3  Generalization::isSubstitutable
3499   --     1  Element::owner
3500   --     4  Generalization::specific
3501   --
3502   --     3  Generalization::generalizationSet
3503   --     1  Element::ownedComment
3504   --     2  Element::ownedElement
3505   --     24  Relationship::relatedElement
3506   --     4  DirectedRelationship::source
3507   --     5  DirectedRelationship::target
3508
3509   --  GeneralizationSet
3510   --
3511   --     7  GeneralizationSet::isCovering
3512   --     10  GeneralizationSet::isDisjoint
3513   --     2  NamedElement::name
3514   --     3  NamedElement::nameExpression
3515   --     4  NamedElement::namespace
3516   --     1  Element::owner
3517   --     8  ParameterableElement::owningTemplateParameter
3518   --     11  GeneralizationSet::powertype
3519   --     5  NamedElement::qualifiedName
3520   --     9  ParameterableElement::templateParameter
3521   --     6  NamedElement::visibility
3522   --     6  PackageableElement::visibility
3523   --
3524   --     3  NamedElement::clientDependency
3525   --     4  GeneralizationSet::generalization
3526   --     1  Element::ownedComment
3527   --     2  Element::ownedElement
3528
3529   --  Image
3530   --
3531   --     2  Image::content
3532   --     3  Image::format
3533   --     4  Image::location
3534   --     1  Element::owner
3535   --
3536   --     1  Element::ownedComment
3537   --     2  Element::ownedElement
3538
3539   --  Include
3540   --
3541   --     7  Include::addition
3542   --     8  Include::includingCase
3543   --     2  NamedElement::name
3544   --     3  NamedElement::nameExpression
3545   --     4  NamedElement::namespace
3546   --     1  Element::owner
3547   --     5  NamedElement::qualifiedName
3548   --     6  NamedElement::visibility
3549   --
3550   --     3  NamedElement::clientDependency
3551   --     1  Element::ownedComment
3552   --     2  Element::ownedElement
3553   --     24  Relationship::relatedElement
3554   --     4  DirectedRelationship::source
3555   --     5  DirectedRelationship::target
3556
3557   --  InformationFlow
3558   --
3559   --     2  NamedElement::name
3560   --     3  NamedElement::nameExpression
3561   --     4  NamedElement::namespace
3562   --     1  Element::owner
3563   --     8  ParameterableElement::owningTemplateParameter
3564   --     5  NamedElement::qualifiedName
3565   --     9  ParameterableElement::templateParameter
3566   --     6  NamedElement::visibility
3567   --     6  PackageableElement::visibility
3568   --
3569   --     3  NamedElement::clientDependency
3570   --     6  InformationFlow::conveyed
3571   --     7  InformationFlow::informationSource
3572   --     8  InformationFlow::informationTarget
3573   --     1  Element::ownedComment
3574   --     2  Element::ownedElement
3575   --     9  InformationFlow::realization
3576   --     10  InformationFlow::realizingActivityEdge
3577   --     11  InformationFlow::realizingConnector
3578   --     12  InformationFlow::realizingMessage
3579   --     24  Relationship::relatedElement
3580   --     4  DirectedRelationship::source
3581   --     5  DirectedRelationship::target
3582
3583   --  InformationItem
3584   --
3585   --     11  Classifier::isAbstract
3586   --     13  Classifier::isFinalSpecialization
3587   --     7  RedefinableElement::isLeaf
3588   --     2  NamedElement::name
3589   --     3  NamedElement::nameExpression
3590   --     4  NamedElement::namespace
3591   --     14  Classifier::ownedTemplateSignature
3592   --     10  TemplateableElement::ownedTemplateSignature
3593   --     1  Element::owner
3594   --     8  ParameterableElement::owningTemplateParameter
3595   --     12  Type::package
3596   --     5  NamedElement::qualifiedName
3597   --     15  Classifier::representation
3598   --     16  Classifier::templateParameter
3599   --     9  ParameterableElement::templateParameter
3600   --     6  NamedElement::visibility
3601   --     6  PackageableElement::visibility
3602   --
3603   --     7  Classifier::attribute
3604   --     3  NamedElement::clientDependency
3605   --     8  Classifier::collaborationUse
3606   --     12  Namespace::elementImport
3607   --     9  Classifier::feature
3608   --     10  Classifier::general
3609   --     11  Classifier::generalization
3610   --     13  Namespace::importedMember
3611   --     18  Classifier::inheritedMember
3612   --     14  Namespace::member
3613   --     1  Element::ownedComment
3614   --     2  Element::ownedElement
3615   --     15  Namespace::ownedMember
3616   --     16  Namespace::ownedRule
3617   --     19  Classifier::ownedUseCase
3618   --     17  Namespace::packageImport
3619   --     20  Classifier::powertypeExtent
3620   --     21  Classifier::redefinedClassifier
3621   --     4  RedefinableElement::redefinedElement
3622   --     5  RedefinableElement::redefinitionContext
3623   --     24  InformationItem::represented
3624   --     22  Classifier::substitution
3625   --     6  TemplateableElement::templateBinding
3626   --     23  Classifier::useCase
3627
3628   --  InitialNode
3629   --
3630   --     8  ActivityNode::activity
3631   --     9  ActivityNode::inStructuredNode
3632   --     7  RedefinableElement::isLeaf
3633   --     2  NamedElement::name
3634   --     3  NamedElement::nameExpression
3635   --     4  NamedElement::namespace
3636   --     1  Element::owner
3637   --     5  NamedElement::qualifiedName
3638   --     6  NamedElement::visibility
3639   --
3640   --     3  NamedElement::clientDependency
3641   --     6  ActivityNode::inGroup
3642   --     7  ActivityNode::inInterruptibleRegion
3643   --     8  ActivityNode::inPartition
3644   --     9  ActivityNode::incoming
3645   --     10  ActivityNode::outgoing
3646   --     1  Element::ownedComment
3647   --     2  Element::ownedElement
3648   --     4  RedefinableElement::redefinedElement
3649   --     11  ActivityNode::redefinedNode
3650   --     5  RedefinableElement::redefinitionContext
3651
3652   --  InputPin
3653   --
3654   --     8  ActivityNode::activity
3655   --     9  ActivityNode::inStructuredNode
3656   --     21  Pin::isControl
3657   --     17  ObjectNode::isControlType
3658   --     7  RedefinableElement::isLeaf
3659   --     12  MultiplicityElement::isOrdered
3660   --     13  MultiplicityElement::isUnique
3661   --     14  MultiplicityElement::lower
3662   --     10  MultiplicityElement::lowerValue
3663   --     2  NamedElement::name
3664   --     3  NamedElement::nameExpression
3665   --     4  NamedElement::namespace
3666   --     18  ObjectNode::ordering
3667   --     1  Element::owner
3668   --     5  NamedElement::qualifiedName
3669   --     19  ObjectNode::selection
3670   --     11  TypedElement::type
3671   --     15  MultiplicityElement::upper
3672   --     20  ObjectNode::upperBound
3673   --     16  MultiplicityElement::upperValue
3674   --     6  NamedElement::visibility
3675   --
3676   --     3  NamedElement::clientDependency
3677   --     6  ActivityNode::inGroup
3678   --     7  ActivityNode::inInterruptibleRegion
3679   --     8  ActivityNode::inPartition
3680   --     12  ObjectNode::inState
3681   --     9  ActivityNode::incoming
3682   --     10  ActivityNode::outgoing
3683   --     1  Element::ownedComment
3684   --     2  Element::ownedElement
3685   --     4  RedefinableElement::redefinedElement
3686   --     11  ActivityNode::redefinedNode
3687   --     5  RedefinableElement::redefinitionContext
3688
3689   --  InstanceSpecification
3690   --
3691   --     2  NamedElement::name
3692   --     3  NamedElement::nameExpression
3693   --     4  NamedElement::namespace
3694   --     1  Element::owner
3695   --     8  ParameterableElement::owningTemplateParameter
3696   --     5  NamedElement::qualifiedName
3697   --     7  InstanceSpecification::specification
3698   --     9  ParameterableElement::templateParameter
3699   --     6  NamedElement::visibility
3700   --     6  PackageableElement::visibility
3701   --
3702   --     4  InstanceSpecification::classifier
3703   --     3  NamedElement::clientDependency
3704   --     24  DeploymentTarget::deployedElement
3705   --     27  DeploymentTarget::deployment
3706   --     1  Element::ownedComment
3707   --     2  Element::ownedElement
3708   --     5  InstanceSpecification::slot
3709
3710   --  InstanceValue
3711   --
3712   --     7  InstanceValue::instance
3713   --     2  NamedElement::name
3714   --     3  NamedElement::nameExpression
3715   --     4  NamedElement::namespace
3716   --     1  Element::owner
3717   --     8  ParameterableElement::owningTemplateParameter
3718   --     5  NamedElement::qualifiedName
3719   --     9  ParameterableElement::templateParameter
3720   --     11  TypedElement::type
3721   --     6  NamedElement::visibility
3722   --     6  PackageableElement::visibility
3723   --
3724   --     3  NamedElement::clientDependency
3725   --     1  Element::ownedComment
3726   --     2  Element::ownedElement
3727
3728   --  Interaction
3729   --
3730   --     17  BehavioredClassifier::classifierBehavior
3731   --     21  Behavior::context
3732   --     18  InteractionFragment::enclosingInteraction
3733   --     19  InteractionFragment::enclosingOperand
3734   --     11  Class::isAbstract
3735   --     11  Classifier::isAbstract
3736   --     20  Class::isActive
3737   --     13  Classifier::isFinalSpecialization
3738   --     7  RedefinableElement::isLeaf
3739   --     22  Behavior::isReentrant
3740   --     2  NamedElement::name
3741   --     3  NamedElement::nameExpression
3742   --     4  NamedElement::namespace
3743   --     14  Classifier::ownedTemplateSignature
3744   --     10  TemplateableElement::ownedTemplateSignature
3745   --     1  Element::owner
3746   --     8  ParameterableElement::owningTemplateParameter
3747   --     12  Type::package
3748   --     5  NamedElement::qualifiedName
3749   --     15  Classifier::representation
3750   --     23  Behavior::specification
3751   --     16  Classifier::templateParameter
3752   --     9  ParameterableElement::templateParameter
3753   --     6  NamedElement::visibility
3754   --     6  PackageableElement::visibility
3755   --
3756   --     44  Interaction::action
3757   --     7  Classifier::attribute
3758   --     3  NamedElement::clientDependency
3759   --     8  Classifier::collaborationUse
3760   --     24  InteractionFragment::covered
3761   --     12  Namespace::elementImport
3762   --     33  Class::extension
3763   --     9  Classifier::feature
3764   --     45  Interaction::formalGate
3765   --     46  Interaction::fragment
3766   --     10  Classifier::general
3767   --     27  InteractionFragment::generalOrdering
3768   --     11  Classifier::generalization
3769   --     13  Namespace::importedMember
3770   --     18  Classifier::inheritedMember
3771   --     25  BehavioredClassifier::interfaceRealization
3772   --     47  Interaction::lifeline
3773   --     14  Namespace::member
3774   --     48  Interaction::message
3775   --     34  Class::nestedClassifier
3776   --     35  Class::ownedAttribute
3777   --     28  StructuredClassifier::ownedAttribute
3778   --     26  BehavioredClassifier::ownedBehavior
3779   --     1  Element::ownedComment
3780   --     29  StructuredClassifier::ownedConnector
3781   --     2  Element::ownedElement
3782   --     15  Namespace::ownedMember
3783   --     36  Class::ownedOperation
3784   --     39  Behavior::ownedParameter
3785   --     40  Behavior::ownedParameterSet
3786   --     32  EncapsulatedClassifier::ownedPort
3787   --     37  Class::ownedReception
3788   --     16  Namespace::ownedRule
3789   --     19  Classifier::ownedUseCase
3790   --     17  Namespace::packageImport
3791   --     30  StructuredClassifier::part
3792   --     41  Behavior::postcondition
3793   --     20  Classifier::powertypeExtent
3794   --     42  Behavior::precondition
3795   --     43  Behavior::redefinedBehavior
3796   --     21  Classifier::redefinedClassifier
3797   --     4  RedefinableElement::redefinedElement
3798   --     5  RedefinableElement::redefinitionContext
3799   --     31  StructuredClassifier::role
3800   --     22  Classifier::substitution
3801   --     38  Class::superClass
3802   --     6  TemplateableElement::templateBinding
3803   --     23  Classifier::useCase
3804
3805   --  InteractionConstraint
3806   --
3807   --     7  Constraint::context
3808   --     11  InteractionConstraint::maxint
3809   --     12  InteractionConstraint::minint
3810   --     2  NamedElement::name
3811   --     3  NamedElement::nameExpression
3812   --     4  NamedElement::namespace
3813   --     1  Element::owner
3814   --     8  ParameterableElement::owningTemplateParameter
3815   --     5  NamedElement::qualifiedName
3816   --     10  Constraint::specification
3817   --     9  ParameterableElement::templateParameter
3818   --     6  NamedElement::visibility
3819   --     6  PackageableElement::visibility
3820   --
3821   --     3  NamedElement::clientDependency
3822   --     4  Constraint::constrainedElement
3823   --     1  Element::ownedComment
3824   --     2  Element::ownedElement
3825
3826   --  InteractionOperand
3827   --
3828   --     18  InteractionFragment::enclosingInteraction
3829   --     19  InteractionFragment::enclosingOperand
3830   --     7  InteractionOperand::guard
3831   --     2  NamedElement::name
3832   --     3  NamedElement::nameExpression
3833   --     4  NamedElement::namespace
3834   --     1  Element::owner
3835   --     5  NamedElement::qualifiedName
3836   --     6  NamedElement::visibility
3837   --
3838   --     3  NamedElement::clientDependency
3839   --     24  InteractionFragment::covered
3840   --     12  Namespace::elementImport
3841   --     4  InteractionOperand::fragment
3842   --     27  InteractionFragment::generalOrdering
3843   --     13  Namespace::importedMember
3844   --     14  Namespace::member
3845   --     1  Element::ownedComment
3846   --     2  Element::ownedElement
3847   --     15  Namespace::ownedMember
3848   --     16  Namespace::ownedRule
3849   --     17  Namespace::packageImport
3850
3851   --  InteractionUse
3852   --
3853   --     18  InteractionFragment::enclosingInteraction
3854   --     19  InteractionFragment::enclosingOperand
3855   --     2  NamedElement::name
3856   --     3  NamedElement::nameExpression
3857   --     4  NamedElement::namespace
3858   --     1  Element::owner
3859   --     5  NamedElement::qualifiedName
3860   --     7  InteractionUse::refersTo
3861   --     8  InteractionUse::returnValue
3862   --     9  InteractionUse::returnValueRecipient
3863   --     6  NamedElement::visibility
3864   --
3865   --     4  InteractionUse::actualGate
3866   --     5  InteractionUse::argument
3867   --     3  NamedElement::clientDependency
3868   --     24  InteractionFragment::covered
3869   --     27  InteractionFragment::generalOrdering
3870   --     1  Element::ownedComment
3871   --     2  Element::ownedElement
3872
3873   --  Interface
3874   --
3875   --     11  Classifier::isAbstract
3876   --     13  Classifier::isFinalSpecialization
3877   --     7  RedefinableElement::isLeaf
3878   --     2  NamedElement::name
3879   --     3  NamedElement::nameExpression
3880   --     4  NamedElement::namespace
3881   --     14  Classifier::ownedTemplateSignature
3882   --     10  TemplateableElement::ownedTemplateSignature
3883   --     1  Element::owner
3884   --     8  ParameterableElement::owningTemplateParameter
3885   --     12  Type::package
3886   --     17  Interface::protocol
3887   --     5  NamedElement::qualifiedName
3888   --     15  Classifier::representation
3889   --     16  Classifier::templateParameter
3890   --     9  ParameterableElement::templateParameter
3891   --     6  NamedElement::visibility
3892   --     6  PackageableElement::visibility
3893   --
3894   --     7  Classifier::attribute
3895   --     3  NamedElement::clientDependency
3896   --     8  Classifier::collaborationUse
3897   --     12  Namespace::elementImport
3898   --     9  Classifier::feature
3899   --     10  Classifier::general
3900   --     11  Classifier::generalization
3901   --     13  Namespace::importedMember
3902   --     18  Classifier::inheritedMember
3903   --     14  Namespace::member
3904   --     24  Interface::nestedClassifier
3905   --     25  Interface::ownedAttribute
3906   --     1  Element::ownedComment
3907   --     2  Element::ownedElement
3908   --     15  Namespace::ownedMember
3909   --     26  Interface::ownedOperation
3910   --     27  Interface::ownedReception
3911   --     16  Namespace::ownedRule
3912   --     19  Classifier::ownedUseCase
3913   --     17  Namespace::packageImport
3914   --     20  Classifier::powertypeExtent
3915   --     21  Classifier::redefinedClassifier
3916   --     4  RedefinableElement::redefinedElement
3917   --     28  Interface::redefinedInterface
3918   --     5  RedefinableElement::redefinitionContext
3919   --     22  Classifier::substitution
3920   --     6  TemplateableElement::templateBinding
3921   --     23  Classifier::useCase
3922
3923   --  InterfaceRealization
3924   --
3925   --     10  InterfaceRealization::contract
3926   --     11  InterfaceRealization::implementingClassifier
3927   --     7  Abstraction::mapping
3928   --     2  NamedElement::name
3929   --     3  NamedElement::nameExpression
3930   --     4  NamedElement::namespace
3931   --     1  Element::owner
3932   --     8  ParameterableElement::owningTemplateParameter
3933   --     5  NamedElement::qualifiedName
3934   --     9  ParameterableElement::templateParameter
3935   --     6  NamedElement::visibility
3936   --     6  PackageableElement::visibility
3937   --
3938   --     6  Dependency::client
3939   --     3  NamedElement::clientDependency
3940   --     1  Element::ownedComment
3941   --     2  Element::ownedElement
3942   --     24  Relationship::relatedElement
3943   --     4  DirectedRelationship::source
3944   --     7  Dependency::supplier
3945   --     5  DirectedRelationship::target
3946
3947   --  InterruptibleActivityRegion
3948   --
3949   --     12  ActivityGroup::inActivity
3950   --     2  NamedElement::name
3951   --     3  NamedElement::nameExpression
3952   --     4  NamedElement::namespace
3953   --     1  Element::owner
3954   --     5  NamedElement::qualifiedName
3955   --     13  ActivityGroup::superGroup
3956   --     6  NamedElement::visibility
3957   --
3958   --     3  NamedElement::clientDependency
3959   --     23  ActivityGroup::containedEdge
3960   --     24  ActivityGroup::containedNode
3961   --     4  InterruptibleActivityRegion::interruptingEdge
3962   --     5  InterruptibleActivityRegion::node
3963   --     1  Element::ownedComment
3964   --     2  Element::ownedElement
3965   --     25  ActivityGroup::subgroup
3966
3967   --  Interval
3968   --
3969   --     7  Interval::max
3970   --     10  Interval::min
3971   --     2  NamedElement::name
3972   --     3  NamedElement::nameExpression
3973   --     4  NamedElement::namespace
3974   --     1  Element::owner
3975   --     8  ParameterableElement::owningTemplateParameter
3976   --     5  NamedElement::qualifiedName
3977   --     9  ParameterableElement::templateParameter
3978   --     11  TypedElement::type
3979   --     6  NamedElement::visibility
3980   --     6  PackageableElement::visibility
3981   --
3982   --     3  NamedElement::clientDependency
3983   --     1  Element::ownedComment
3984   --     2  Element::ownedElement
3985
3986   --  IntervalConstraint
3987   --
3988   --     7  Constraint::context
3989   --     2  NamedElement::name
3990   --     3  NamedElement::nameExpression
3991   --     4  NamedElement::namespace
3992   --     1  Element::owner
3993   --     8  ParameterableElement::owningTemplateParameter
3994   --     5  NamedElement::qualifiedName
3995   --     10  Constraint::specification
3996   --     11  IntervalConstraint::specification
3997   --     9  ParameterableElement::templateParameter
3998   --     6  NamedElement::visibility
3999   --     6  PackageableElement::visibility
4000   --
4001   --     3  NamedElement::clientDependency
4002   --     4  Constraint::constrainedElement
4003   --     1  Element::ownedComment
4004   --     2  Element::ownedElement
4005
4006   --  JoinNode
4007   --
4008   --     8  ActivityNode::activity
4009   --     9  ActivityNode::inStructuredNode
4010   --     10  JoinNode::isCombineDuplicate
4011   --     7  RedefinableElement::isLeaf
4012   --     11  JoinNode::joinSpec
4013   --     2  NamedElement::name
4014   --     3  NamedElement::nameExpression
4015   --     4  NamedElement::namespace
4016   --     1  Element::owner
4017   --     5  NamedElement::qualifiedName
4018   --     6  NamedElement::visibility
4019   --
4020   --     3  NamedElement::clientDependency
4021   --     6  ActivityNode::inGroup
4022   --     7  ActivityNode::inInterruptibleRegion
4023   --     8  ActivityNode::inPartition
4024   --     9  ActivityNode::incoming
4025   --     10  ActivityNode::outgoing
4026   --     1  Element::ownedComment
4027   --     2  Element::ownedElement
4028   --     4  RedefinableElement::redefinedElement
4029   --     11  ActivityNode::redefinedNode
4030   --     5  RedefinableElement::redefinitionContext
4031
4032   --  Lifeline
4033   --
4034   --     7  Lifeline::decomposedAs
4035   --     8  Lifeline::interaction
4036   --     2  NamedElement::name
4037   --     3  NamedElement::nameExpression
4038   --     4  NamedElement::namespace
4039   --     1  Element::owner
4040   --     5  NamedElement::qualifiedName
4041   --     9  Lifeline::represents
4042   --     10  Lifeline::selector
4043   --     6  NamedElement::visibility
4044   --
4045   --     3  NamedElement::clientDependency
4046   --     4  Lifeline::coveredBy
4047   --     1  Element::ownedComment
4048   --     2  Element::ownedElement
4049
4050   --  LinkEndCreationData
4051   --
4052   --     2  LinkEndData::end
4053   --     4  LinkEndCreationData::insertAt
4054   --     14  LinkEndCreationData::isReplaceAll
4055   --     1  Element::owner
4056   --     3  LinkEndData::value
4057   --
4058   --     1  Element::ownedComment
4059   --     2  Element::ownedElement
4060   --     3  LinkEndData::qualifier
4061
4062   --  LinkEndData
4063   --
4064   --     2  LinkEndData::end
4065   --     1  Element::owner
4066   --     3  LinkEndData::value
4067   --
4068   --     1  Element::ownedComment
4069   --     2  Element::ownedElement
4070   --     3  LinkEndData::qualifier
4071
4072   --  LinkEndDestructionData
4073   --
4074   --     4  LinkEndDestructionData::destroyAt
4075   --     2  LinkEndData::end
4076   --     5  LinkEndDestructionData::isDestroyDuplicates
4077   --     1  Element::owner
4078   --     3  LinkEndData::value
4079   --
4080   --     1  Element::ownedComment
4081   --     2  Element::ownedElement
4082   --     3  LinkEndData::qualifier
4083
4084   --  LiteralBoolean
4085   --
4086   --     2  NamedElement::name
4087   --     3  NamedElement::nameExpression
4088   --     4  NamedElement::namespace
4089   --     1  Element::owner
4090   --     8  ParameterableElement::owningTemplateParameter
4091   --     5  NamedElement::qualifiedName
4092   --     9  ParameterableElement::templateParameter
4093   --     11  TypedElement::type
4094   --     7  LiteralBoolean::value
4095   --     6  NamedElement::visibility
4096   --     6  PackageableElement::visibility
4097   --
4098   --     3  NamedElement::clientDependency
4099   --     1  Element::ownedComment
4100   --     2  Element::ownedElement
4101
4102   --  LiteralInteger
4103   --
4104   --     2  NamedElement::name
4105   --     3  NamedElement::nameExpression
4106   --     4  NamedElement::namespace
4107   --     1  Element::owner
4108   --     8  ParameterableElement::owningTemplateParameter
4109   --     5  NamedElement::qualifiedName
4110   --     9  ParameterableElement::templateParameter
4111   --     11  TypedElement::type
4112   --     7  LiteralInteger::value
4113   --     6  NamedElement::visibility
4114   --     6  PackageableElement::visibility
4115   --
4116   --     3  NamedElement::clientDependency
4117   --     1  Element::ownedComment
4118   --     2  Element::ownedElement
4119
4120   --  LiteralNull
4121   --
4122   --     2  NamedElement::name
4123   --     3  NamedElement::nameExpression
4124   --     4  NamedElement::namespace
4125   --     1  Element::owner
4126   --     8  ParameterableElement::owningTemplateParameter
4127   --     5  NamedElement::qualifiedName
4128   --     9  ParameterableElement::templateParameter
4129   --     11  TypedElement::type
4130   --     6  NamedElement::visibility
4131   --     6  PackageableElement::visibility
4132   --
4133   --     3  NamedElement::clientDependency
4134   --     1  Element::ownedComment
4135   --     2  Element::ownedElement
4136
4137   --  LiteralReal
4138   --
4139   --     2  NamedElement::name
4140   --     3  NamedElement::nameExpression
4141   --     4  NamedElement::namespace
4142   --     1  Element::owner
4143   --     8  ParameterableElement::owningTemplateParameter
4144   --     5  NamedElement::qualifiedName
4145   --     9  ParameterableElement::templateParameter
4146   --     11  TypedElement::type
4147   --     7  LiteralReal::value
4148   --     6  NamedElement::visibility
4149   --     6  PackageableElement::visibility
4150   --
4151   --     3  NamedElement::clientDependency
4152   --     1  Element::ownedComment
4153   --     2  Element::ownedElement
4154
4155   --  LiteralString
4156   --
4157   --     2  NamedElement::name
4158   --     3  NamedElement::nameExpression
4159   --     4  NamedElement::namespace
4160   --     1  Element::owner
4161   --     8  ParameterableElement::owningTemplateParameter
4162   --     5  NamedElement::qualifiedName
4163   --     9  ParameterableElement::templateParameter
4164   --     11  TypedElement::type
4165   --     7  LiteralString::value
4166   --     6  NamedElement::visibility
4167   --     6  PackageableElement::visibility
4168   --
4169   --     3  NamedElement::clientDependency
4170   --     1  Element::ownedComment
4171   --     2  Element::ownedElement
4172
4173   --  LiteralUnlimitedNatural
4174   --
4175   --     2  NamedElement::name
4176   --     3  NamedElement::nameExpression
4177   --     4  NamedElement::namespace
4178   --     1  Element::owner
4179   --     8  ParameterableElement::owningTemplateParameter
4180   --     5  NamedElement::qualifiedName
4181   --     9  ParameterableElement::templateParameter
4182   --     11  TypedElement::type
4183   --     7  LiteralUnlimitedNatural::value
4184   --     6  NamedElement::visibility
4185   --     6  PackageableElement::visibility
4186   --
4187   --     3  NamedElement::clientDependency
4188   --     1  Element::ownedComment
4189   --     2  Element::ownedElement
4190
4191   --  LoopNode
4192   --
4193   --     8  ActivityNode::activity
4194   --     14  StructuredActivityNode::activity
4195   --     10  Action::context
4196   --     16  LoopNode::decider
4197   --     12  ActivityGroup::inActivity
4198   --     9  ActivityNode::inStructuredNode
4199   --     7  RedefinableElement::isLeaf
4200   --     11  Action::isLocallyReentrant
4201   --     17  LoopNode::isTestedFirst
4202   --     15  StructuredActivityNode::mustIsolate
4203   --     2  NamedElement::name
4204   --     3  NamedElement::nameExpression
4205   --     4  NamedElement::namespace
4206   --     1  Element::owner
4207   --     5  NamedElement::qualifiedName
4208   --     13  ActivityGroup::superGroup
4209   --     6  NamedElement::visibility
4210   --
4211   --     31  LoopNode::bodyOutput
4212   --     32  LoopNode::bodyPart
4213   --     3  NamedElement::clientDependency
4214   --     23  ActivityGroup::containedEdge
4215   --     24  ActivityGroup::containedNode
4216   --     26  StructuredActivityNode::edge
4217   --     12  Namespace::elementImport
4218   --     18  ExecutableNode::handler
4219   --     13  Namespace::importedMember
4220   --     6  ActivityNode::inGroup
4221   --     7  ActivityNode::inInterruptibleRegion
4222   --     8  ActivityNode::inPartition
4223   --     9  ActivityNode::incoming
4224   --     19  Action::input
4225   --     20  Action::localPostcondition
4226   --     21  Action::localPrecondition
4227   --     33  LoopNode::loopVariable
4228   --     34  LoopNode::loopVariableInput
4229   --     14  Namespace::member
4230   --     27  StructuredActivityNode::node
4231   --     10  ActivityNode::outgoing
4232   --     22  Action::output
4233   --     1  Element::ownedComment
4234   --     2  Element::ownedElement
4235   --     15  Namespace::ownedMember
4236   --     16  Namespace::ownedRule
4237   --     17  Namespace::packageImport
4238   --     4  RedefinableElement::redefinedElement
4239   --     11  ActivityNode::redefinedNode
4240   --     5  RedefinableElement::redefinitionContext
4241   --     35  LoopNode::result
4242   --     36  LoopNode::setupPart
4243   --     28  StructuredActivityNode::structuredNodeInput
4244   --     29  StructuredActivityNode::structuredNodeOutput
4245   --     25  ActivityGroup::subgroup
4246   --     37  LoopNode::test
4247   --     30  StructuredActivityNode::variable
4248
4249   --  Manifestation
4250   --
4251   --     7  Abstraction::mapping
4252   --     2  NamedElement::name
4253   --     3  NamedElement::nameExpression
4254   --     4  NamedElement::namespace
4255   --     1  Element::owner
4256   --     8  ParameterableElement::owningTemplateParameter
4257   --     5  NamedElement::qualifiedName
4258   --     9  ParameterableElement::templateParameter
4259   --     10  Manifestation::utilizedElement
4260   --     6  NamedElement::visibility
4261   --     6  PackageableElement::visibility
4262   --
4263   --     6  Dependency::client
4264   --     3  NamedElement::clientDependency
4265   --     1  Element::ownedComment
4266   --     2  Element::ownedElement
4267   --     24  Relationship::relatedElement
4268   --     4  DirectedRelationship::source
4269   --     7  Dependency::supplier
4270   --     5  DirectedRelationship::target
4271
4272   --  MergeNode
4273   --
4274   --     8  ActivityNode::activity
4275   --     9  ActivityNode::inStructuredNode
4276   --     7  RedefinableElement::isLeaf
4277   --     2  NamedElement::name
4278   --     3  NamedElement::nameExpression
4279   --     4  NamedElement::namespace
4280   --     1  Element::owner
4281   --     5  NamedElement::qualifiedName
4282   --     6  NamedElement::visibility
4283   --
4284   --     3  NamedElement::clientDependency
4285   --     6  ActivityNode::inGroup
4286   --     7  ActivityNode::inInterruptibleRegion
4287   --     8  ActivityNode::inPartition
4288   --     9  ActivityNode::incoming
4289   --     10  ActivityNode::outgoing
4290   --     1  Element::ownedComment
4291   --     2  Element::ownedElement
4292   --     4  RedefinableElement::redefinedElement
4293   --     11  ActivityNode::redefinedNode
4294   --     5  RedefinableElement::redefinitionContext
4295
4296   --  Message
4297   --
4298   --     7  Message::connector
4299   --     8  Message::interaction
4300   --     9  Message::messageKind
4301   --     10  Message::messageSort
4302   --     2  NamedElement::name
4303   --     3  NamedElement::nameExpression
4304   --     4  NamedElement::namespace
4305   --     1  Element::owner
4306   --     5  NamedElement::qualifiedName
4307   --     11  Message::receiveEvent
4308   --     12  Message::sendEvent
4309   --     13  Message::signature
4310   --     6  NamedElement::visibility
4311   --
4312   --     4  Message::argument
4313   --     3  NamedElement::clientDependency
4314   --     1  Element::ownedComment
4315   --     2  Element::ownedElement
4316
4317   --  MessageOccurrenceSpecification
4318   --
4319   --     7  OccurrenceSpecification::covered
4320   --     18  InteractionFragment::enclosingInteraction
4321   --     19  InteractionFragment::enclosingOperand
4322   --     8  MessageEnd::message
4323   --     2  NamedElement::name
4324   --     3  NamedElement::nameExpression
4325   --     4  NamedElement::namespace
4326   --     1  Element::owner
4327   --     5  NamedElement::qualifiedName
4328   --     6  NamedElement::visibility
4329   --
4330   --     3  NamedElement::clientDependency
4331   --     24  InteractionFragment::covered
4332   --     27  InteractionFragment::generalOrdering
4333   --     1  Element::ownedComment
4334   --     2  Element::ownedElement
4335   --     4  OccurrenceSpecification::toAfter
4336   --     5  OccurrenceSpecification::toBefore
4337
4338   --  Model
4339   --
4340   --     7  Package::URI
4341   --     2  NamedElement::name
4342   --     3  NamedElement::nameExpression
4343   --     4  NamedElement::namespace
4344   --     11  Package::nestingPackage
4345   --     10  TemplateableElement::ownedTemplateSignature
4346   --     1  Element::owner
4347   --     8  ParameterableElement::owningTemplateParameter
4348   --     5  NamedElement::qualifiedName
4349   --     9  ParameterableElement::templateParameter
4350   --     12  Model::viewpoint
4351   --     6  NamedElement::visibility
4352   --     6  PackageableElement::visibility
4353   --
4354   --     3  NamedElement::clientDependency
4355   --     12  Namespace::elementImport
4356   --     13  Namespace::importedMember
4357   --     14  Namespace::member
4358   --     4  Package::nestedPackage
4359   --     1  Element::ownedComment
4360   --     2  Element::ownedElement
4361   --     15  Namespace::ownedMember
4362   --     16  Namespace::ownedRule
4363   --     5  Package::ownedStereotype
4364   --     7  Package::ownedType
4365   --     17  Namespace::packageImport
4366   --     8  Package::packageMerge
4367   --     9  Package::packagedElement
4368   --     10  Package::profileApplication
4369   --     6  TemplateableElement::templateBinding
4370
4371   --  Node
4372   --
4373   --     17  BehavioredClassifier::classifierBehavior
4374   --     11  Class::isAbstract
4375   --     11  Classifier::isAbstract
4376   --     20  Class::isActive
4377   --     13  Classifier::isFinalSpecialization
4378   --     7  RedefinableElement::isLeaf
4379   --     2  NamedElement::name
4380   --     3  NamedElement::nameExpression
4381   --     4  NamedElement::namespace
4382   --     14  Classifier::ownedTemplateSignature
4383   --     10  TemplateableElement::ownedTemplateSignature
4384   --     1  Element::owner
4385   --     8  ParameterableElement::owningTemplateParameter
4386   --     12  Type::package
4387   --     5  NamedElement::qualifiedName
4388   --     15  Classifier::representation
4389   --     16  Classifier::templateParameter
4390   --     9  ParameterableElement::templateParameter
4391   --     6  NamedElement::visibility
4392   --     6  PackageableElement::visibility
4393   --
4394   --     7  Classifier::attribute
4395   --     3  NamedElement::clientDependency
4396   --     8  Classifier::collaborationUse
4397   --     24  DeploymentTarget::deployedElement
4398   --     27  DeploymentTarget::deployment
4399   --     12  Namespace::elementImport
4400   --     33  Class::extension
4401   --     9  Classifier::feature
4402   --     10  Classifier::general
4403   --     11  Classifier::generalization
4404   --     13  Namespace::importedMember
4405   --     18  Classifier::inheritedMember
4406   --     25  BehavioredClassifier::interfaceRealization
4407   --     14  Namespace::member
4408   --     34  Class::nestedClassifier
4409   --     39  Node::nestedNode
4410   --     35  Class::ownedAttribute
4411   --     28  StructuredClassifier::ownedAttribute
4412   --     26  BehavioredClassifier::ownedBehavior
4413   --     1  Element::ownedComment
4414   --     29  StructuredClassifier::ownedConnector
4415   --     2  Element::ownedElement
4416   --     15  Namespace::ownedMember
4417   --     36  Class::ownedOperation
4418   --     32  EncapsulatedClassifier::ownedPort
4419   --     37  Class::ownedReception
4420   --     16  Namespace::ownedRule
4421   --     19  Classifier::ownedUseCase
4422   --     17  Namespace::packageImport
4423   --     30  StructuredClassifier::part
4424   --     20  Classifier::powertypeExtent
4425   --     21  Classifier::redefinedClassifier
4426   --     4  RedefinableElement::redefinedElement
4427   --     5  RedefinableElement::redefinitionContext
4428   --     31  StructuredClassifier::role
4429   --     22  Classifier::substitution
4430   --     38  Class::superClass
4431   --     6  TemplateableElement::templateBinding
4432   --     23  Classifier::useCase
4433
4434   --  ObjectFlow
4435   --
4436   --     8  ActivityEdge::activity
4437   --     9  ActivityEdge::guard
4438   --     10  ActivityEdge::inStructuredNode
4439   --     11  ActivityEdge::interrupts
4440   --     7  RedefinableElement::isLeaf
4441   --     15  ObjectFlow::isMulticast
4442   --     16  ObjectFlow::isMultireceive
4443   --     2  NamedElement::name
4444   --     3  NamedElement::nameExpression
4445   --     4  NamedElement::namespace
4446   --     1  Element::owner
4447   --     5  NamedElement::qualifiedName
4448   --     17  ObjectFlow::selection
4449   --     12  ActivityEdge::source
4450   --     13  ActivityEdge::target
4451   --     18  ObjectFlow::transformation
4452   --     6  NamedElement::visibility
4453   --     14  ActivityEdge::weight
4454   --
4455   --     3  NamedElement::clientDependency
4456   --     6  ActivityEdge::inGroup
4457   --     7  ActivityEdge::inPartition
4458   --     1  Element::ownedComment
4459   --     2  Element::ownedElement
4460   --     8  ActivityEdge::redefinedEdge
4461   --     4  RedefinableElement::redefinedElement
4462   --     5  RedefinableElement::redefinitionContext
4463
4464   --  OccurrenceSpecification
4465   --
4466   --     7  OccurrenceSpecification::covered
4467   --     18  InteractionFragment::enclosingInteraction
4468   --     19  InteractionFragment::enclosingOperand
4469   --     2  NamedElement::name
4470   --     3  NamedElement::nameExpression
4471   --     4  NamedElement::namespace
4472   --     1  Element::owner
4473   --     5  NamedElement::qualifiedName
4474   --     6  NamedElement::visibility
4475   --
4476   --     3  NamedElement::clientDependency
4477   --     24  InteractionFragment::covered
4478   --     27  InteractionFragment::generalOrdering
4479   --     1  Element::ownedComment
4480   --     2  Element::ownedElement
4481   --     4  OccurrenceSpecification::toAfter
4482   --     5  OccurrenceSpecification::toBefore
4483
4484   --  OpaqueAction
4485   --
4486   --     8  ActivityNode::activity
4487   --     18  OpaqueAction::body
4488   --     10  Action::context
4489   --     9  ActivityNode::inStructuredNode
4490   --     7  RedefinableElement::isLeaf
4491   --     11  Action::isLocallyReentrant
4492   --     19  OpaqueAction::language
4493   --     2  NamedElement::name
4494   --     3  NamedElement::nameExpression
4495   --     4  NamedElement::namespace
4496   --     1  Element::owner
4497   --     5  NamedElement::qualifiedName
4498   --     6  NamedElement::visibility
4499   --
4500   --     3  NamedElement::clientDependency
4501   --     18  ExecutableNode::handler
4502   --     6  ActivityNode::inGroup
4503   --     7  ActivityNode::inInterruptibleRegion
4504   --     8  ActivityNode::inPartition
4505   --     9  ActivityNode::incoming
4506   --     19  Action::input
4507   --     12  OpaqueAction::inputValue
4508   --     20  Action::localPostcondition
4509   --     21  Action::localPrecondition
4510   --     10  ActivityNode::outgoing
4511   --     22  Action::output
4512   --     13  OpaqueAction::outputValue
4513   --     1  Element::ownedComment
4514   --     2  Element::ownedElement
4515   --     4  RedefinableElement::redefinedElement
4516   --     11  ActivityNode::redefinedNode
4517   --     5  RedefinableElement::redefinitionContext
4518
4519   --  OpaqueBehavior
4520   --
4521   --     18  OpaqueBehavior::body
4522   --     17  BehavioredClassifier::classifierBehavior
4523   --     21  Behavior::context
4524   --     11  Class::isAbstract
4525   --     11  Classifier::isAbstract
4526   --     20  Class::isActive
4527   --     13  Classifier::isFinalSpecialization
4528   --     7  RedefinableElement::isLeaf
4529   --     22  Behavior::isReentrant
4530   --     19  OpaqueBehavior::language
4531   --     2  NamedElement::name
4532   --     3  NamedElement::nameExpression
4533   --     4  NamedElement::namespace
4534   --     14  Classifier::ownedTemplateSignature
4535   --     10  TemplateableElement::ownedTemplateSignature
4536   --     1  Element::owner
4537   --     8  ParameterableElement::owningTemplateParameter
4538   --     12  Type::package
4539   --     5  NamedElement::qualifiedName
4540   --     15  Classifier::representation
4541   --     23  Behavior::specification
4542   --     16  Classifier::templateParameter
4543   --     9  ParameterableElement::templateParameter
4544   --     6  NamedElement::visibility
4545   --     6  PackageableElement::visibility
4546   --
4547   --     7  Classifier::attribute
4548   --     3  NamedElement::clientDependency
4549   --     8  Classifier::collaborationUse
4550   --     12  Namespace::elementImport
4551   --     33  Class::extension
4552   --     9  Classifier::feature
4553   --     10  Classifier::general
4554   --     11  Classifier::generalization
4555   --     13  Namespace::importedMember
4556   --     18  Classifier::inheritedMember
4557   --     25  BehavioredClassifier::interfaceRealization
4558   --     14  Namespace::member
4559   --     34  Class::nestedClassifier
4560   --     35  Class::ownedAttribute
4561   --     28  StructuredClassifier::ownedAttribute
4562   --     26  BehavioredClassifier::ownedBehavior
4563   --     1  Element::ownedComment
4564   --     29  StructuredClassifier::ownedConnector
4565   --     2  Element::ownedElement
4566   --     15  Namespace::ownedMember
4567   --     36  Class::ownedOperation
4568   --     39  Behavior::ownedParameter
4569   --     40  Behavior::ownedParameterSet
4570   --     32  EncapsulatedClassifier::ownedPort
4571   --     37  Class::ownedReception
4572   --     16  Namespace::ownedRule
4573   --     19  Classifier::ownedUseCase
4574   --     17  Namespace::packageImport
4575   --     30  StructuredClassifier::part
4576   --     41  Behavior::postcondition
4577   --     20  Classifier::powertypeExtent
4578   --     42  Behavior::precondition
4579   --     43  Behavior::redefinedBehavior
4580   --     21  Classifier::redefinedClassifier
4581   --     4  RedefinableElement::redefinedElement
4582   --     5  RedefinableElement::redefinitionContext
4583   --     31  StructuredClassifier::role
4584   --     22  Classifier::substitution
4585   --     38  Class::superClass
4586   --     6  TemplateableElement::templateBinding
4587   --     23  Classifier::useCase
4588
4589   --  OpaqueExpression
4590   --
4591   --     7  OpaqueExpression::behavior
4592   --     18  OpaqueExpression::body
4593   --     19  OpaqueExpression::language
4594   --     2  NamedElement::name
4595   --     3  NamedElement::nameExpression
4596   --     4  NamedElement::namespace
4597   --     1  Element::owner
4598   --     8  ParameterableElement::owningTemplateParameter
4599   --     5  NamedElement::qualifiedName
4600   --     10  OpaqueExpression::result
4601   --     9  ParameterableElement::templateParameter
4602   --     11  TypedElement::type
4603   --     6  NamedElement::visibility
4604   --     6  PackageableElement::visibility
4605   --
4606   --     3  NamedElement::clientDependency
4607   --     1  Element::ownedComment
4608   --     2  Element::ownedElement
4609
4610   --  Operation
4611   --
4612   --     18  Operation::bodyCondition
4613   --     19  Operation::class
4614   --     16  BehavioralFeature::concurrency
4615   --     20  Operation::datatype
4616   --     21  Operation::interface
4617   --     11  BehavioralFeature::isAbstract
4618   --     7  RedefinableElement::isLeaf
4619   --     12  Operation::isOrdered
4620   --     22  Operation::isQuery
4621   --     17  Feature::isStatic
4622   --     13  Operation::isUnique
4623   --     14  Operation::lower
4624   --     2  NamedElement::name
4625   --     3  NamedElement::nameExpression
4626   --     4  NamedElement::namespace
4627   --     10  TemplateableElement::ownedTemplateSignature
4628   --     1  Element::owner
4629   --     8  ParameterableElement::owningTemplateParameter
4630   --     5  NamedElement::qualifiedName
4631   --     23  Operation::templateParameter
4632   --     9  ParameterableElement::templateParameter
4633   --     24  Operation::type
4634   --     15  Operation::upper
4635   --     6  NamedElement::visibility
4636   --
4637   --     3  NamedElement::clientDependency
4638   --     12  Namespace::elementImport
4639   --     7  Feature::featuringClassifier
4640   --     13  Namespace::importedMember
4641   --     14  Namespace::member
4642   --     8  BehavioralFeature::method
4643   --     1  Element::ownedComment
4644   --     2  Element::ownedElement
4645   --     15  Namespace::ownedMember
4646   --     9  BehavioralFeature::ownedParameter
4647   --     18  Operation::ownedParameter
4648   --     10  BehavioralFeature::ownedParameterSet
4649   --     16  Namespace::ownedRule
4650   --     17  Namespace::packageImport
4651   --     19  Operation::postcondition
4652   --     20  Operation::precondition
4653   --     11  BehavioralFeature::raisedException
4654   --     21  Operation::raisedException
4655   --     4  RedefinableElement::redefinedElement
4656   --     22  Operation::redefinedOperation
4657   --     5  RedefinableElement::redefinitionContext
4658   --     6  TemplateableElement::templateBinding
4659
4660   --  OperationTemplateParameter
4661   --
4662   --     2  TemplateParameter::default
4663   --     3  TemplateParameter::ownedDefault
4664   --     4  TemplateParameter::ownedParameteredElement
4665   --     1  Element::owner
4666   --     7  OperationTemplateParameter::parameteredElement
4667   --     5  TemplateParameter::parameteredElement
4668   --     6  TemplateParameter::signature
4669   --
4670   --     1  Element::ownedComment
4671   --     2  Element::ownedElement
4672
4673   --  OutputPin
4674   --
4675   --     8  ActivityNode::activity
4676   --     9  ActivityNode::inStructuredNode
4677   --     21  Pin::isControl
4678   --     17  ObjectNode::isControlType
4679   --     7  RedefinableElement::isLeaf
4680   --     12  MultiplicityElement::isOrdered
4681   --     13  MultiplicityElement::isUnique
4682   --     14  MultiplicityElement::lower
4683   --     10  MultiplicityElement::lowerValue
4684   --     2  NamedElement::name
4685   --     3  NamedElement::nameExpression
4686   --     4  NamedElement::namespace
4687   --     18  ObjectNode::ordering
4688   --     1  Element::owner
4689   --     5  NamedElement::qualifiedName
4690   --     19  ObjectNode::selection
4691   --     11  TypedElement::type
4692   --     15  MultiplicityElement::upper
4693   --     20  ObjectNode::upperBound
4694   --     16  MultiplicityElement::upperValue
4695   --     6  NamedElement::visibility
4696   --
4697   --     3  NamedElement::clientDependency
4698   --     6  ActivityNode::inGroup
4699   --     7  ActivityNode::inInterruptibleRegion
4700   --     8  ActivityNode::inPartition
4701   --     12  ObjectNode::inState
4702   --     9  ActivityNode::incoming
4703   --     10  ActivityNode::outgoing
4704   --     1  Element::ownedComment
4705   --     2  Element::ownedElement
4706   --     4  RedefinableElement::redefinedElement
4707   --     11  ActivityNode::redefinedNode
4708   --     5  RedefinableElement::redefinitionContext
4709
4710   --  Package
4711   --
4712   --     7  Package::URI
4713   --     2  NamedElement::name
4714   --     3  NamedElement::nameExpression
4715   --     4  NamedElement::namespace
4716   --     11  Package::nestingPackage
4717   --     10  TemplateableElement::ownedTemplateSignature
4718   --     1  Element::owner
4719   --     8  ParameterableElement::owningTemplateParameter
4720   --     5  NamedElement::qualifiedName
4721   --     9  ParameterableElement::templateParameter
4722   --     6  NamedElement::visibility
4723   --     6  PackageableElement::visibility
4724   --
4725   --     3  NamedElement::clientDependency
4726   --     12  Namespace::elementImport
4727   --     13  Namespace::importedMember
4728   --     14  Namespace::member
4729   --     4  Package::nestedPackage
4730   --     1  Element::ownedComment
4731   --     2  Element::ownedElement
4732   --     15  Namespace::ownedMember
4733   --     16  Namespace::ownedRule
4734   --     5  Package::ownedStereotype
4735   --     7  Package::ownedType
4736   --     17  Namespace::packageImport
4737   --     8  Package::packageMerge
4738   --     9  Package::packagedElement
4739   --     10  Package::profileApplication
4740   --     6  TemplateableElement::templateBinding
4741
4742   --  PackageImport
4743   --
4744   --     3  PackageImport::importedPackage
4745   --     4  PackageImport::importingNamespace
4746   --     1  Element::owner
4747   --     2  PackageImport::visibility
4748   --
4749   --     1  Element::ownedComment
4750   --     2  Element::ownedElement
4751   --     24  Relationship::relatedElement
4752   --     4  DirectedRelationship::source
4753   --     5  DirectedRelationship::target
4754
4755   --  PackageMerge
4756   --
4757   --     2  PackageMerge::mergedPackage
4758   --     1  Element::owner
4759   --     3  PackageMerge::receivingPackage
4760   --
4761   --     1  Element::ownedComment
4762   --     2  Element::ownedElement
4763   --     24  Relationship::relatedElement
4764   --     4  DirectedRelationship::source
4765   --     5  DirectedRelationship::target
4766
4767   --  Parameter
4768   --
4769   --     21  Parameter::default
4770   --     7  Parameter::defaultValue
4771   --     17  Parameter::direction
4772   --     18  Parameter::effect
4773   --     20  Parameter::isException
4774   --     12  MultiplicityElement::isOrdered
4775   --     22  Parameter::isStream
4776   --     13  MultiplicityElement::isUnique
4777   --     14  MultiplicityElement::lower
4778   --     10  MultiplicityElement::lowerValue
4779   --     2  NamedElement::name
4780   --     3  NamedElement::nameExpression
4781   --     4  NamedElement::namespace
4782   --     23  Parameter::operation
4783   --     1  Element::owner
4784   --     8  ParameterableElement::owningTemplateParameter
4785   --     5  NamedElement::qualifiedName
4786   --     19  ConnectableElement::templateParameter
4787   --     9  ParameterableElement::templateParameter
4788   --     11  TypedElement::type
4789   --     15  MultiplicityElement::upper
4790   --     16  MultiplicityElement::upperValue
4791   --     6  NamedElement::visibility
4792   --
4793   --     3  NamedElement::clientDependency
4794   --     6  ConnectableElement::end
4795   --     1  Element::ownedComment
4796   --     2  Element::ownedElement
4797   --     4  Parameter::parameterSet
4798
4799   --  ParameterSet
4800   --
4801   --     2  NamedElement::name
4802   --     3  NamedElement::nameExpression
4803   --     4  NamedElement::namespace
4804   --     1  Element::owner
4805   --     5  NamedElement::qualifiedName
4806   --     6  NamedElement::visibility
4807   --
4808   --     3  NamedElement::clientDependency
4809   --     4  ParameterSet::condition
4810   --     1  Element::ownedComment
4811   --     2  Element::ownedElement
4812   --     5  ParameterSet::parameter
4813
4814   --  PartDecomposition
4815   --
4816   --     18  InteractionFragment::enclosingInteraction
4817   --     19  InteractionFragment::enclosingOperand
4818   --     2  NamedElement::name
4819   --     3  NamedElement::nameExpression
4820   --     4  NamedElement::namespace
4821   --     1  Element::owner
4822   --     5  NamedElement::qualifiedName
4823   --     7  InteractionUse::refersTo
4824   --     8  InteractionUse::returnValue
4825   --     9  InteractionUse::returnValueRecipient
4826   --     6  NamedElement::visibility
4827   --
4828   --     4  InteractionUse::actualGate
4829   --     5  InteractionUse::argument
4830   --     3  NamedElement::clientDependency
4831   --     24  InteractionFragment::covered
4832   --     27  InteractionFragment::generalOrdering
4833   --     1  Element::ownedComment
4834   --     2  Element::ownedElement
4835
4836   --  Port
4837   --
4838   --     22  Property::aggregation
4839   --     23  Property::association
4840   --     25  Property::associationEnd
4841   --     26  Property::class
4842   --     27  Property::datatype
4843   --     21  Property::default
4844   --     28  Property::defaultValue
4845   --     29  Property::interface
4846   --     34  Port::isBehavior
4847   --     20  Property::isComposite
4848   --     35  Port::isConjugated
4849   --     18  Property::isDerived
4850   --     30  Property::isDerivedUnion
4851   --     31  Property::isID
4852   --     7  RedefinableElement::isLeaf
4853   --     12  MultiplicityElement::isOrdered
4854   --     24  Property::isReadOnly
4855   --     24  StructuralFeature::isReadOnly
4856   --     36  Port::isService
4857   --     17  Feature::isStatic
4858   --     13  MultiplicityElement::isUnique
4859   --     14  MultiplicityElement::lower
4860   --     10  MultiplicityElement::lowerValue
4861   --     2  NamedElement::name
4862   --     3  NamedElement::nameExpression
4863   --     4  NamedElement::namespace
4864   --     32  Property::opposite
4865   --     1  Element::owner
4866   --     33  Property::owningAssociation
4867   --     8  ParameterableElement::owningTemplateParameter
4868   --     37  Port::protocol
4869   --     5  NamedElement::qualifiedName
4870   --     19  ConnectableElement::templateParameter
4871   --     9  ParameterableElement::templateParameter
4872   --     11  TypedElement::type
4873   --     15  MultiplicityElement::upper
4874   --     16  MultiplicityElement::upperValue
4875   --     6  NamedElement::visibility
4876   --
4877   --     3  NamedElement::clientDependency
4878   --     24  DeploymentTarget::deployedElement
4879   --     27  DeploymentTarget::deployment
4880   --     6  ConnectableElement::end
4881   --     7  Feature::featuringClassifier
4882   --     1  Element::ownedComment
4883   --     2  Element::ownedElement
4884   --     11  Port::provided
4885   --     8  Property::qualifier
4886   --     4  RedefinableElement::redefinedElement
4887   --     12  Port::redefinedPort
4888   --     9  Property::redefinedProperty
4889   --     5  RedefinableElement::redefinitionContext
4890   --     13  Port::required
4891   --     10  Property::subsettedProperty
4892
4893   --  PrimitiveType
4894   --
4895   --     11  Classifier::isAbstract
4896   --     13  Classifier::isFinalSpecialization
4897   --     7  RedefinableElement::isLeaf
4898   --     2  NamedElement::name
4899   --     3  NamedElement::nameExpression
4900   --     4  NamedElement::namespace
4901   --     14  Classifier::ownedTemplateSignature
4902   --     10  TemplateableElement::ownedTemplateSignature
4903   --     1  Element::owner
4904   --     8  ParameterableElement::owningTemplateParameter
4905   --     12  Type::package
4906   --     5  NamedElement::qualifiedName
4907   --     15  Classifier::representation
4908   --     16  Classifier::templateParameter
4909   --     9  ParameterableElement::templateParameter
4910   --     6  NamedElement::visibility
4911   --     6  PackageableElement::visibility
4912   --
4913   --     7  Classifier::attribute
4914   --     3  NamedElement::clientDependency
4915   --     8  Classifier::collaborationUse
4916   --     12  Namespace::elementImport
4917   --     9  Classifier::feature
4918   --     10  Classifier::general
4919   --     11  Classifier::generalization
4920   --     13  Namespace::importedMember
4921   --     18  Classifier::inheritedMember
4922   --     14  Namespace::member
4923   --     24  DataType::ownedAttribute
4924   --     1  Element::ownedComment
4925   --     2  Element::ownedElement
4926   --     15  Namespace::ownedMember
4927   --     25  DataType::ownedOperation
4928   --     16  Namespace::ownedRule
4929   --     19  Classifier::ownedUseCase
4930   --     17  Namespace::packageImport
4931   --     20  Classifier::powertypeExtent
4932   --     21  Classifier::redefinedClassifier
4933   --     4  RedefinableElement::redefinedElement
4934   --     5  RedefinableElement::redefinitionContext
4935   --     22  Classifier::substitution
4936   --     6  TemplateableElement::templateBinding
4937   --     23  Classifier::useCase
4938
4939   --  Profile
4940   --
4941   --     7  Package::URI
4942   --     2  NamedElement::name
4943   --     3  NamedElement::nameExpression
4944   --     4  NamedElement::namespace
4945   --     11  Package::nestingPackage
4946   --     10  TemplateableElement::ownedTemplateSignature
4947   --     1  Element::owner
4948   --     8  ParameterableElement::owningTemplateParameter
4949   --     5  NamedElement::qualifiedName
4950   --     9  ParameterableElement::templateParameter
4951   --     6  NamedElement::visibility
4952   --     6  PackageableElement::visibility
4953   --
4954   --     3  NamedElement::clientDependency
4955   --     12  Namespace::elementImport
4956   --     13  Namespace::importedMember
4957   --     14  Namespace::member
4958   --     11  Profile::metaclassReference
4959   --     18  Profile::metamodelReference
4960   --     4  Package::nestedPackage
4961   --     1  Element::ownedComment
4962   --     2  Element::ownedElement
4963   --     15  Namespace::ownedMember
4964   --     16  Namespace::ownedRule
4965   --     5  Package::ownedStereotype
4966   --     7  Package::ownedType
4967   --     17  Namespace::packageImport
4968   --     8  Package::packageMerge
4969   --     9  Package::packagedElement
4970   --     10  Package::profileApplication
4971   --     6  TemplateableElement::templateBinding
4972
4973   --  ProfileApplication
4974   --
4975   --     2  ProfileApplication::appliedProfile
4976   --     3  ProfileApplication::applyingPackage
4977   --     4  ProfileApplication::isStrict
4978   --     1  Element::owner
4979   --
4980   --     1  Element::ownedComment
4981   --     2  Element::ownedElement
4982   --     24  Relationship::relatedElement
4983   --     4  DirectedRelationship::source
4984   --     5  DirectedRelationship::target
4985
4986   --  Property
4987   --
4988   --     22  Property::aggregation
4989   --     23  Property::association
4990   --     25  Property::associationEnd
4991   --     26  Property::class
4992   --     27  Property::datatype
4993   --     21  Property::default
4994   --     28  Property::defaultValue
4995   --     29  Property::interface
4996   --     20  Property::isComposite
4997   --     18  Property::isDerived
4998   --     30  Property::isDerivedUnion
4999   --     31  Property::isID
5000   --     7  RedefinableElement::isLeaf
5001   --     12  MultiplicityElement::isOrdered
5002   --     24  Property::isReadOnly
5003   --     24  StructuralFeature::isReadOnly
5004   --     17  Feature::isStatic
5005   --     13  MultiplicityElement::isUnique
5006   --     14  MultiplicityElement::lower
5007   --     10  MultiplicityElement::lowerValue
5008   --     2  NamedElement::name
5009   --     3  NamedElement::nameExpression
5010   --     4  NamedElement::namespace
5011   --     32  Property::opposite
5012   --     1  Element::owner
5013   --     33  Property::owningAssociation
5014   --     8  ParameterableElement::owningTemplateParameter
5015   --     5  NamedElement::qualifiedName
5016   --     19  ConnectableElement::templateParameter
5017   --     9  ParameterableElement::templateParameter
5018   --     11  TypedElement::type
5019   --     15  MultiplicityElement::upper
5020   --     16  MultiplicityElement::upperValue
5021   --     6  NamedElement::visibility
5022   --
5023   --     3  NamedElement::clientDependency
5024   --     24  DeploymentTarget::deployedElement
5025   --     27  DeploymentTarget::deployment
5026   --     6  ConnectableElement::end
5027   --     7  Feature::featuringClassifier
5028   --     1  Element::ownedComment
5029   --     2  Element::ownedElement
5030   --     8  Property::qualifier
5031   --     4  RedefinableElement::redefinedElement
5032   --     9  Property::redefinedProperty
5033   --     5  RedefinableElement::redefinitionContext
5034   --     10  Property::subsettedProperty
5035
5036   --  ProtocolConformance
5037   --
5038   --     2  ProtocolConformance::generalMachine
5039   --     1  Element::owner
5040   --     3  ProtocolConformance::specificMachine
5041   --
5042   --     1  Element::ownedComment
5043   --     2  Element::ownedElement
5044   --     24  Relationship::relatedElement
5045   --     4  DirectedRelationship::source
5046   --     5  DirectedRelationship::target
5047
5048   --  ProtocolStateMachine
5049   --
5050   --     17  BehavioredClassifier::classifierBehavior
5051   --     21  Behavior::context
5052   --     11  Class::isAbstract
5053   --     11  Classifier::isAbstract
5054   --     20  Class::isActive
5055   --     13  Classifier::isFinalSpecialization
5056   --     7  RedefinableElement::isLeaf
5057   --     22  Behavior::isReentrant
5058   --     2  NamedElement::name
5059   --     3  NamedElement::nameExpression
5060   --     4  NamedElement::namespace
5061   --     14  Classifier::ownedTemplateSignature
5062   --     10  TemplateableElement::ownedTemplateSignature
5063   --     1  Element::owner
5064   --     8  ParameterableElement::owningTemplateParameter
5065   --     12  Type::package
5066   --     5  NamedElement::qualifiedName
5067   --     15  Classifier::representation
5068   --     23  Behavior::specification
5069   --     16  Classifier::templateParameter
5070   --     9  ParameterableElement::templateParameter
5071   --     6  NamedElement::visibility
5072   --     6  PackageableElement::visibility
5073   --
5074   --     7  Classifier::attribute
5075   --     3  NamedElement::clientDependency
5076   --     8  Classifier::collaborationUse
5077   --     46  ProtocolStateMachine::conformance
5078   --     24  StateMachine::connectionPoint
5079   --     12  Namespace::elementImport
5080   --     27  StateMachine::extendedStateMachine
5081   --     33  Class::extension
5082   --     9  Classifier::feature
5083   --     10  Classifier::general
5084   --     11  Classifier::generalization
5085   --     13  Namespace::importedMember
5086   --     18  Classifier::inheritedMember
5087   --     25  BehavioredClassifier::interfaceRealization
5088   --     14  Namespace::member
5089   --     34  Class::nestedClassifier
5090   --     35  Class::ownedAttribute
5091   --     28  StructuredClassifier::ownedAttribute
5092   --     26  BehavioredClassifier::ownedBehavior
5093   --     1  Element::ownedComment
5094   --     29  StructuredClassifier::ownedConnector
5095   --     2  Element::ownedElement
5096   --     15  Namespace::ownedMember
5097   --     36  Class::ownedOperation
5098   --     39  Behavior::ownedParameter
5099   --     40  Behavior::ownedParameterSet
5100   --     32  EncapsulatedClassifier::ownedPort
5101   --     37  Class::ownedReception
5102   --     16  Namespace::ownedRule
5103   --     19  Classifier::ownedUseCase
5104   --     17  Namespace::packageImport
5105   --     30  StructuredClassifier::part
5106   --     41  Behavior::postcondition
5107   --     20  Classifier::powertypeExtent
5108   --     42  Behavior::precondition
5109   --     43  Behavior::redefinedBehavior
5110   --     21  Classifier::redefinedClassifier
5111   --     4  RedefinableElement::redefinedElement
5112   --     5  RedefinableElement::redefinitionContext
5113   --     44  StateMachine::region
5114   --     31  StructuredClassifier::role
5115   --     45  StateMachine::submachineState
5116   --     22  Classifier::substitution
5117   --     38  Class::superClass
5118   --     6  TemplateableElement::templateBinding
5119   --     23  Classifier::useCase
5120
5121   --  ProtocolTransition
5122   --
5123   --     8  Transition::container
5124   --     9  Transition::effect
5125   --     10  Transition::guard
5126   --     7  RedefinableElement::isLeaf
5127   --     11  Transition::kind
5128   --     2  NamedElement::name
5129   --     3  NamedElement::nameExpression
5130   --     4  NamedElement::namespace
5131   --     1  Element::owner
5132   --     16  ProtocolTransition::postCondition
5133   --     17  ProtocolTransition::preCondition
5134   --     5  NamedElement::qualifiedName
5135   --     12  Transition::redefinedTransition
5136   --     13  Transition::redefinitionContext
5137   --     14  Transition::source
5138   --     15  Transition::target
5139   --     6  NamedElement::visibility
5140   --
5141   --     3  NamedElement::clientDependency
5142   --     12  Namespace::elementImport
5143   --     13  Namespace::importedMember
5144   --     14  Namespace::member
5145   --     1  Element::ownedComment
5146   --     2  Element::ownedElement
5147   --     15  Namespace::ownedMember
5148   --     16  Namespace::ownedRule
5149   --     17  Namespace::packageImport
5150   --     4  RedefinableElement::redefinedElement
5151   --     5  RedefinableElement::redefinitionContext
5152   --     7  ProtocolTransition::referred
5153   --     6  Transition::trigger
5154
5155   --  Pseudostate
5156   --
5157   --     8  Vertex::container
5158   --     7  Pseudostate::kind
5159   --     2  NamedElement::name
5160   --     3  NamedElement::nameExpression
5161   --     4  NamedElement::namespace
5162   --     1  Element::owner
5163   --     5  NamedElement::qualifiedName
5164   --     9  Pseudostate::state
5165   --     10  Pseudostate::stateMachine
5166   --     6  NamedElement::visibility
5167   --
5168   --     3  NamedElement::clientDependency
5169   --     6  Vertex::incoming
5170   --     7  Vertex::outgoing
5171   --     1  Element::ownedComment
5172   --     2  Element::ownedElement
5173
5174   --  QualifierValue
5175   --
5176   --     1  Element::owner
5177   --     2  QualifierValue::qualifier
5178   --     3  QualifierValue::value
5179   --
5180   --     1  Element::ownedComment
5181   --     2  Element::ownedElement
5182
5183   --  RaiseExceptionAction
5184   --
5185   --     8  ActivityNode::activity
5186   --     10  Action::context
5187   --     12  RaiseExceptionAction::exception
5188   --     9  ActivityNode::inStructuredNode
5189   --     7  RedefinableElement::isLeaf
5190   --     11  Action::isLocallyReentrant
5191   --     2  NamedElement::name
5192   --     3  NamedElement::nameExpression
5193   --     4  NamedElement::namespace
5194   --     1  Element::owner
5195   --     5  NamedElement::qualifiedName
5196   --     6  NamedElement::visibility
5197   --
5198   --     3  NamedElement::clientDependency
5199   --     18  ExecutableNode::handler
5200   --     6  ActivityNode::inGroup
5201   --     7  ActivityNode::inInterruptibleRegion
5202   --     8  ActivityNode::inPartition
5203   --     9  ActivityNode::incoming
5204   --     19  Action::input
5205   --     20  Action::localPostcondition
5206   --     21  Action::localPrecondition
5207   --     10  ActivityNode::outgoing
5208   --     22  Action::output
5209   --     1  Element::ownedComment
5210   --     2  Element::ownedElement
5211   --     4  RedefinableElement::redefinedElement
5212   --     11  ActivityNode::redefinedNode
5213   --     5  RedefinableElement::redefinitionContext
5214
5215   --  ReadExtentAction
5216   --
5217   --     8  ActivityNode::activity
5218   --     12  ReadExtentAction::classifier
5219   --     10  Action::context
5220   --     9  ActivityNode::inStructuredNode
5221   --     7  RedefinableElement::isLeaf
5222   --     11  Action::isLocallyReentrant
5223   --     2  NamedElement::name
5224   --     3  NamedElement::nameExpression
5225   --     4  NamedElement::namespace
5226   --     1  Element::owner
5227   --     5  NamedElement::qualifiedName
5228   --     13  ReadExtentAction::result
5229   --     6  NamedElement::visibility
5230   --
5231   --     3  NamedElement::clientDependency
5232   --     18  ExecutableNode::handler
5233   --     6  ActivityNode::inGroup
5234   --     7  ActivityNode::inInterruptibleRegion
5235   --     8  ActivityNode::inPartition
5236   --     9  ActivityNode::incoming
5237   --     19  Action::input
5238   --     20  Action::localPostcondition
5239   --     21  Action::localPrecondition
5240   --     10  ActivityNode::outgoing
5241   --     22  Action::output
5242   --     1  Element::ownedComment
5243   --     2  Element::ownedElement
5244   --     4  RedefinableElement::redefinedElement
5245   --     11  ActivityNode::redefinedNode
5246   --     5  RedefinableElement::redefinitionContext
5247
5248   --  ReadIsClassifiedObjectAction
5249   --
5250   --     8  ActivityNode::activity
5251   --     12  ReadIsClassifiedObjectAction::classifier
5252   --     10  Action::context
5253   --     9  ActivityNode::inStructuredNode
5254   --     13  ReadIsClassifiedObjectAction::isDirect
5255   --     7  RedefinableElement::isLeaf
5256   --     11  Action::isLocallyReentrant
5257   --     2  NamedElement::name
5258   --     3  NamedElement::nameExpression
5259   --     4  NamedElement::namespace
5260   --     14  ReadIsClassifiedObjectAction::object
5261   --     1  Element::owner
5262   --     5  NamedElement::qualifiedName
5263   --     15  ReadIsClassifiedObjectAction::result
5264   --     6  NamedElement::visibility
5265   --
5266   --     3  NamedElement::clientDependency
5267   --     18  ExecutableNode::handler
5268   --     6  ActivityNode::inGroup
5269   --     7  ActivityNode::inInterruptibleRegion
5270   --     8  ActivityNode::inPartition
5271   --     9  ActivityNode::incoming
5272   --     19  Action::input
5273   --     20  Action::localPostcondition
5274   --     21  Action::localPrecondition
5275   --     10  ActivityNode::outgoing
5276   --     22  Action::output
5277   --     1  Element::ownedComment
5278   --     2  Element::ownedElement
5279   --     4  RedefinableElement::redefinedElement
5280   --     11  ActivityNode::redefinedNode
5281   --     5  RedefinableElement::redefinitionContext
5282
5283   --  ReadLinkAction
5284   --
5285   --     8  ActivityNode::activity
5286   --     10  Action::context
5287   --     9  ActivityNode::inStructuredNode
5288   --     7  RedefinableElement::isLeaf
5289   --     11  Action::isLocallyReentrant
5290   --     2  NamedElement::name
5291   --     3  NamedElement::nameExpression
5292   --     4  NamedElement::namespace
5293   --     1  Element::owner
5294   --     5  NamedElement::qualifiedName
5295   --     12  ReadLinkAction::result
5296   --     6  NamedElement::visibility
5297   --
5298   --     3  NamedElement::clientDependency
5299   --     12  LinkAction::endData
5300   --     18  ExecutableNode::handler
5301   --     6  ActivityNode::inGroup
5302   --     7  ActivityNode::inInterruptibleRegion
5303   --     8  ActivityNode::inPartition
5304   --     9  ActivityNode::incoming
5305   --     19  Action::input
5306   --     13  LinkAction::inputValue
5307   --     20  Action::localPostcondition
5308   --     21  Action::localPrecondition
5309   --     10  ActivityNode::outgoing
5310   --     22  Action::output
5311   --     1  Element::ownedComment
5312   --     2  Element::ownedElement
5313   --     4  RedefinableElement::redefinedElement
5314   --     11  ActivityNode::redefinedNode
5315   --     5  RedefinableElement::redefinitionContext
5316
5317   --  ReadLinkObjectEndAction
5318   --
5319   --     8  ActivityNode::activity
5320   --     10  Action::context
5321   --     12  ReadLinkObjectEndAction::end
5322   --     9  ActivityNode::inStructuredNode
5323   --     7  RedefinableElement::isLeaf
5324   --     11  Action::isLocallyReentrant
5325   --     2  NamedElement::name
5326   --     3  NamedElement::nameExpression
5327   --     4  NamedElement::namespace
5328   --     13  ReadLinkObjectEndAction::object
5329   --     1  Element::owner
5330   --     5  NamedElement::qualifiedName
5331   --     14  ReadLinkObjectEndAction::result
5332   --     6  NamedElement::visibility
5333   --
5334   --     3  NamedElement::clientDependency
5335   --     18  ExecutableNode::handler
5336   --     6  ActivityNode::inGroup
5337   --     7  ActivityNode::inInterruptibleRegion
5338   --     8  ActivityNode::inPartition
5339   --     9  ActivityNode::incoming
5340   --     19  Action::input
5341   --     20  Action::localPostcondition
5342   --     21  Action::localPrecondition
5343   --     10  ActivityNode::outgoing
5344   --     22  Action::output
5345   --     1  Element::ownedComment
5346   --     2  Element::ownedElement
5347   --     4  RedefinableElement::redefinedElement
5348   --     11  ActivityNode::redefinedNode
5349   --     5  RedefinableElement::redefinitionContext
5350
5351   --  ReadLinkObjectEndQualifierAction
5352   --
5353   --     8  ActivityNode::activity
5354   --     10  Action::context
5355   --     9  ActivityNode::inStructuredNode
5356   --     7  RedefinableElement::isLeaf
5357   --     11  Action::isLocallyReentrant
5358   --     2  NamedElement::name
5359   --     3  NamedElement::nameExpression
5360   --     4  NamedElement::namespace
5361   --     12  ReadLinkObjectEndQualifierAction::object
5362   --     1  Element::owner
5363   --     5  NamedElement::qualifiedName
5364   --     13  ReadLinkObjectEndQualifierAction::qualifier
5365   --     14  ReadLinkObjectEndQualifierAction::result
5366   --     6  NamedElement::visibility
5367   --
5368   --     3  NamedElement::clientDependency
5369   --     18  ExecutableNode::handler
5370   --     6  ActivityNode::inGroup
5371   --     7  ActivityNode::inInterruptibleRegion
5372   --     8  ActivityNode::inPartition
5373   --     9  ActivityNode::incoming
5374   --     19  Action::input
5375   --     20  Action::localPostcondition
5376   --     21  Action::localPrecondition
5377   --     10  ActivityNode::outgoing
5378   --     22  Action::output
5379   --     1  Element::ownedComment
5380   --     2  Element::ownedElement
5381   --     4  RedefinableElement::redefinedElement
5382   --     11  ActivityNode::redefinedNode
5383   --     5  RedefinableElement::redefinitionContext
5384
5385   --  ReadSelfAction
5386   --
5387   --     8  ActivityNode::activity
5388   --     10  Action::context
5389   --     9  ActivityNode::inStructuredNode
5390   --     7  RedefinableElement::isLeaf
5391   --     11  Action::isLocallyReentrant
5392   --     2  NamedElement::name
5393   --     3  NamedElement::nameExpression
5394   --     4  NamedElement::namespace
5395   --     1  Element::owner
5396   --     5  NamedElement::qualifiedName
5397   --     12  ReadSelfAction::result
5398   --     6  NamedElement::visibility
5399   --
5400   --     3  NamedElement::clientDependency
5401   --     18  ExecutableNode::handler
5402   --     6  ActivityNode::inGroup
5403   --     7  ActivityNode::inInterruptibleRegion
5404   --     8  ActivityNode::inPartition
5405   --     9  ActivityNode::incoming
5406   --     19  Action::input
5407   --     20  Action::localPostcondition
5408   --     21  Action::localPrecondition
5409   --     10  ActivityNode::outgoing
5410   --     22  Action::output
5411   --     1  Element::ownedComment
5412   --     2  Element::ownedElement
5413   --     4  RedefinableElement::redefinedElement
5414   --     11  ActivityNode::redefinedNode
5415   --     5  RedefinableElement::redefinitionContext
5416
5417   --  ReadStructuralFeatureAction
5418   --
5419   --     8  ActivityNode::activity
5420   --     10  Action::context
5421   --     9  ActivityNode::inStructuredNode
5422   --     7  RedefinableElement::isLeaf
5423   --     11  Action::isLocallyReentrant
5424   --     2  NamedElement::name
5425   --     3  NamedElement::nameExpression
5426   --     4  NamedElement::namespace
5427   --     12  StructuralFeatureAction::object
5428   --     1  Element::owner
5429   --     5  NamedElement::qualifiedName
5430   --     14  ReadStructuralFeatureAction::result
5431   --     13  StructuralFeatureAction::structuralFeature
5432   --     6  NamedElement::visibility
5433   --
5434   --     3  NamedElement::clientDependency
5435   --     18  ExecutableNode::handler
5436   --     6  ActivityNode::inGroup
5437   --     7  ActivityNode::inInterruptibleRegion
5438   --     8  ActivityNode::inPartition
5439   --     9  ActivityNode::incoming
5440   --     19  Action::input
5441   --     20  Action::localPostcondition
5442   --     21  Action::localPrecondition
5443   --     10  ActivityNode::outgoing
5444   --     22  Action::output
5445   --     1  Element::ownedComment
5446   --     2  Element::ownedElement
5447   --     4  RedefinableElement::redefinedElement
5448   --     11  ActivityNode::redefinedNode
5449   --     5  RedefinableElement::redefinitionContext
5450
5451   --  ReadVariableAction
5452   --
5453   --     8  ActivityNode::activity
5454   --     10  Action::context
5455   --     9  ActivityNode::inStructuredNode
5456   --     7  RedefinableElement::isLeaf
5457   --     11  Action::isLocallyReentrant
5458   --     2  NamedElement::name
5459   --     3  NamedElement::nameExpression
5460   --     4  NamedElement::namespace
5461   --     1  Element::owner
5462   --     5  NamedElement::qualifiedName
5463   --     13  ReadVariableAction::result
5464   --     12  VariableAction::variable
5465   --     6  NamedElement::visibility
5466   --
5467   --     3  NamedElement::clientDependency
5468   --     18  ExecutableNode::handler
5469   --     6  ActivityNode::inGroup
5470   --     7  ActivityNode::inInterruptibleRegion
5471   --     8  ActivityNode::inPartition
5472   --     9  ActivityNode::incoming
5473   --     19  Action::input
5474   --     20  Action::localPostcondition
5475   --     21  Action::localPrecondition
5476   --     10  ActivityNode::outgoing
5477   --     22  Action::output
5478   --     1  Element::ownedComment
5479   --     2  Element::ownedElement
5480   --     4  RedefinableElement::redefinedElement
5481   --     11  ActivityNode::redefinedNode
5482   --     5  RedefinableElement::redefinitionContext
5483
5484   --  Realization
5485   --
5486   --     7  Abstraction::mapping
5487   --     2  NamedElement::name
5488   --     3  NamedElement::nameExpression
5489   --     4  NamedElement::namespace
5490   --     1  Element::owner
5491   --     8  ParameterableElement::owningTemplateParameter
5492   --     5  NamedElement::qualifiedName
5493   --     9  ParameterableElement::templateParameter
5494   --     6  NamedElement::visibility
5495   --     6  PackageableElement::visibility
5496   --
5497   --     6  Dependency::client
5498   --     3  NamedElement::clientDependency
5499   --     1  Element::ownedComment
5500   --     2  Element::ownedElement
5501   --     24  Relationship::relatedElement
5502   --     4  DirectedRelationship::source
5503   --     7  Dependency::supplier
5504   --     5  DirectedRelationship::target
5505
5506   --  Reception
5507   --
5508   --     16  BehavioralFeature::concurrency
5509   --     11  BehavioralFeature::isAbstract
5510   --     7  RedefinableElement::isLeaf
5511   --     17  Feature::isStatic
5512   --     2  NamedElement::name
5513   --     3  NamedElement::nameExpression
5514   --     4  NamedElement::namespace
5515   --     1  Element::owner
5516   --     5  NamedElement::qualifiedName
5517   --     8  Reception::signal
5518   --     6  NamedElement::visibility
5519   --
5520   --     3  NamedElement::clientDependency
5521   --     12  Namespace::elementImport
5522   --     7  Feature::featuringClassifier
5523   --     13  Namespace::importedMember
5524   --     14  Namespace::member
5525   --     8  BehavioralFeature::method
5526   --     1  Element::ownedComment
5527   --     2  Element::ownedElement
5528   --     15  Namespace::ownedMember
5529   --     9  BehavioralFeature::ownedParameter
5530   --     10  BehavioralFeature::ownedParameterSet
5531   --     16  Namespace::ownedRule
5532   --     17  Namespace::packageImport
5533   --     11  BehavioralFeature::raisedException
5534   --     4  RedefinableElement::redefinedElement
5535   --     5  RedefinableElement::redefinitionContext
5536
5537   --  ReclassifyObjectAction
5538   --
5539   --     8  ActivityNode::activity
5540   --     10  Action::context
5541   --     9  ActivityNode::inStructuredNode
5542   --     7  RedefinableElement::isLeaf
5543   --     11  Action::isLocallyReentrant
5544   --     14  ReclassifyObjectAction::isReplaceAll
5545   --     2  NamedElement::name
5546   --     3  NamedElement::nameExpression
5547   --     4  NamedElement::namespace
5548   --     12  ReclassifyObjectAction::object
5549   --     1  Element::owner
5550   --     5  NamedElement::qualifiedName
5551   --     6  NamedElement::visibility
5552   --
5553   --     3  NamedElement::clientDependency
5554   --     18  ExecutableNode::handler
5555   --     6  ActivityNode::inGroup
5556   --     7  ActivityNode::inInterruptibleRegion
5557   --     8  ActivityNode::inPartition
5558   --     9  ActivityNode::incoming
5559   --     19  Action::input
5560   --     20  Action::localPostcondition
5561   --     21  Action::localPrecondition
5562   --     12  ReclassifyObjectAction::newClassifier
5563   --     13  ReclassifyObjectAction::oldClassifier
5564   --     10  ActivityNode::outgoing
5565   --     22  Action::output
5566   --     1  Element::ownedComment
5567   --     2  Element::ownedElement
5568   --     4  RedefinableElement::redefinedElement
5569   --     11  ActivityNode::redefinedNode
5570   --     5  RedefinableElement::redefinitionContext
5571
5572   --  RedefinableTemplateSignature
5573   --
5574   --     9  RedefinableTemplateSignature::classifier
5575   --     7  RedefinableElement::isLeaf
5576   --     2  NamedElement::name
5577   --     3  NamedElement::nameExpression
5578   --     4  NamedElement::namespace
5579   --     1  Element::owner
5580   --     5  NamedElement::qualifiedName
5581   --     8  TemplateSignature::template
5582   --     6  NamedElement::visibility
5583   --
5584   --     3  NamedElement::clientDependency
5585   --     8  RedefinableTemplateSignature::extendedSignature
5586   --     9  RedefinableTemplateSignature::inheritedParameter
5587   --     1  Element::ownedComment
5588   --     2  Element::ownedElement
5589   --     6  TemplateSignature::ownedParameter
5590   --     7  TemplateSignature::parameter
5591   --     4  RedefinableElement::redefinedElement
5592   --     5  RedefinableElement::redefinitionContext
5593
5594   --  ReduceAction
5595   --
5596   --     8  ActivityNode::activity
5597   --     13  ReduceAction::collection
5598   --     10  Action::context
5599   --     9  ActivityNode::inStructuredNode
5600   --     7  RedefinableElement::isLeaf
5601   --     11  Action::isLocallyReentrant
5602   --     12  ReduceAction::isOrdered
5603   --     2  NamedElement::name
5604   --     3  NamedElement::nameExpression
5605   --     4  NamedElement::namespace
5606   --     1  Element::owner
5607   --     5  NamedElement::qualifiedName
5608   --     14  ReduceAction::reducer
5609   --     15  ReduceAction::result
5610   --     6  NamedElement::visibility
5611   --
5612   --     3  NamedElement::clientDependency
5613   --     18  ExecutableNode::handler
5614   --     6  ActivityNode::inGroup
5615   --     7  ActivityNode::inInterruptibleRegion
5616   --     8  ActivityNode::inPartition
5617   --     9  ActivityNode::incoming
5618   --     19  Action::input
5619   --     20  Action::localPostcondition
5620   --     21  Action::localPrecondition
5621   --     10  ActivityNode::outgoing
5622   --     22  Action::output
5623   --     1  Element::ownedComment
5624   --     2  Element::ownedElement
5625   --     4  RedefinableElement::redefinedElement
5626   --     11  ActivityNode::redefinedNode
5627   --     5  RedefinableElement::redefinitionContext
5628
5629   --  Region
5630   --
5631   --     8  Region::extendedRegion
5632   --     7  RedefinableElement::isLeaf
5633   --     2  NamedElement::name
5634   --     3  NamedElement::nameExpression
5635   --     4  NamedElement::namespace
5636   --     1  Element::owner
5637   --     5  NamedElement::qualifiedName
5638   --     9  Region::redefinitionContext
5639   --     10  Region::state
5640   --     11  Region::stateMachine
5641   --     6  NamedElement::visibility
5642   --
5643   --     3  NamedElement::clientDependency
5644   --     12  Namespace::elementImport
5645   --     13  Namespace::importedMember
5646   --     14  Namespace::member
5647   --     1  Element::ownedComment
5648   --     2  Element::ownedElement
5649   --     15  Namespace::ownedMember
5650   --     16  Namespace::ownedRule
5651   --     17  Namespace::packageImport
5652   --     4  RedefinableElement::redefinedElement
5653   --     5  RedefinableElement::redefinitionContext
5654   --     6  Region::subvertex
5655   --     7  Region::transition
5656
5657   --  RemoveStructuralFeatureValueAction
5658   --
5659   --     8  ActivityNode::activity
5660   --     10  Action::context
5661   --     9  ActivityNode::inStructuredNode
5662   --     7  RedefinableElement::isLeaf
5663   --     11  Action::isLocallyReentrant
5664   --     14  RemoveStructuralFeatureValueAction::isRemoveDuplicates
5665   --     2  NamedElement::name
5666   --     3  NamedElement::nameExpression
5667   --     4  NamedElement::namespace
5668   --     12  StructuralFeatureAction::object
5669   --     1  Element::owner
5670   --     5  NamedElement::qualifiedName
5671   --     17  RemoveStructuralFeatureValueAction::removeAt
5672   --     15  WriteStructuralFeatureAction::result
5673   --     13  StructuralFeatureAction::structuralFeature
5674   --     16  WriteStructuralFeatureAction::value
5675   --     6  NamedElement::visibility
5676   --
5677   --     3  NamedElement::clientDependency
5678   --     18  ExecutableNode::handler
5679   --     6  ActivityNode::inGroup
5680   --     7  ActivityNode::inInterruptibleRegion
5681   --     8  ActivityNode::inPartition
5682   --     9  ActivityNode::incoming
5683   --     19  Action::input
5684   --     20  Action::localPostcondition
5685   --     21  Action::localPrecondition
5686   --     10  ActivityNode::outgoing
5687   --     22  Action::output
5688   --     1  Element::ownedComment
5689   --     2  Element::ownedElement
5690   --     4  RedefinableElement::redefinedElement
5691   --     11  ActivityNode::redefinedNode
5692   --     5  RedefinableElement::redefinitionContext
5693
5694   --  RemoveVariableValueAction
5695   --
5696   --     8  ActivityNode::activity
5697   --     10  Action::context
5698   --     9  ActivityNode::inStructuredNode
5699   --     7  RedefinableElement::isLeaf
5700   --     11  Action::isLocallyReentrant
5701   --     14  RemoveVariableValueAction::isRemoveDuplicates
5702   --     2  NamedElement::name
5703   --     3  NamedElement::nameExpression
5704   --     4  NamedElement::namespace
5705   --     1  Element::owner
5706   --     5  NamedElement::qualifiedName
5707   --     15  RemoveVariableValueAction::removeAt
5708   --     13  WriteVariableAction::value
5709   --     12  VariableAction::variable
5710   --     6  NamedElement::visibility
5711   --
5712   --     3  NamedElement::clientDependency
5713   --     18  ExecutableNode::handler
5714   --     6  ActivityNode::inGroup
5715   --     7  ActivityNode::inInterruptibleRegion
5716   --     8  ActivityNode::inPartition
5717   --     9  ActivityNode::incoming
5718   --     19  Action::input
5719   --     20  Action::localPostcondition
5720   --     21  Action::localPrecondition
5721   --     10  ActivityNode::outgoing
5722   --     22  Action::output
5723   --     1  Element::ownedComment
5724   --     2  Element::ownedElement
5725   --     4  RedefinableElement::redefinedElement
5726   --     11  ActivityNode::redefinedNode
5727   --     5  RedefinableElement::redefinitionContext
5728
5729   --  ReplyAction
5730   --
5731   --     8  ActivityNode::activity
5732   --     10  Action::context
5733   --     9  ActivityNode::inStructuredNode
5734   --     7  RedefinableElement::isLeaf
5735   --     11  Action::isLocallyReentrant
5736   --     2  NamedElement::name
5737   --     3  NamedElement::nameExpression
5738   --     4  NamedElement::namespace
5739   --     1  Element::owner
5740   --     5  NamedElement::qualifiedName
5741   --     12  ReplyAction::replyToCall
5742   --     13  ReplyAction::returnInformation
5743   --     6  NamedElement::visibility
5744   --
5745   --     3  NamedElement::clientDependency
5746   --     18  ExecutableNode::handler
5747   --     6  ActivityNode::inGroup
5748   --     7  ActivityNode::inInterruptibleRegion
5749   --     8  ActivityNode::inPartition
5750   --     9  ActivityNode::incoming
5751   --     19  Action::input
5752   --     20  Action::localPostcondition
5753   --     21  Action::localPrecondition
5754   --     10  ActivityNode::outgoing
5755   --     22  Action::output
5756   --     1  Element::ownedComment
5757   --     2  Element::ownedElement
5758   --     4  RedefinableElement::redefinedElement
5759   --     11  ActivityNode::redefinedNode
5760   --     5  RedefinableElement::redefinitionContext
5761   --     12  ReplyAction::replyValue
5762
5763   --  SendObjectAction
5764   --
5765   --     8  ActivityNode::activity
5766   --     10  Action::context
5767   --     9  ActivityNode::inStructuredNode
5768   --     7  RedefinableElement::isLeaf
5769   --     11  Action::isLocallyReentrant
5770   --     2  NamedElement::name
5771   --     3  NamedElement::nameExpression
5772   --     4  NamedElement::namespace
5773   --     12  InvocationAction::onPort
5774   --     1  Element::owner
5775   --     5  NamedElement::qualifiedName
5776   --     13  SendObjectAction::request
5777   --     14  SendObjectAction::target
5778   --     6  NamedElement::visibility
5779   --
5780   --     12  InvocationAction::argument
5781   --     3  NamedElement::clientDependency
5782   --     18  ExecutableNode::handler
5783   --     6  ActivityNode::inGroup
5784   --     7  ActivityNode::inInterruptibleRegion
5785   --     8  ActivityNode::inPartition
5786   --     9  ActivityNode::incoming
5787   --     19  Action::input
5788   --     20  Action::localPostcondition
5789   --     21  Action::localPrecondition
5790   --     10  ActivityNode::outgoing
5791   --     22  Action::output
5792   --     1  Element::ownedComment
5793   --     2  Element::ownedElement
5794   --     4  RedefinableElement::redefinedElement
5795   --     11  ActivityNode::redefinedNode
5796   --     5  RedefinableElement::redefinitionContext
5797
5798   --  SendSignalAction
5799   --
5800   --     8  ActivityNode::activity
5801   --     10  Action::context
5802   --     9  ActivityNode::inStructuredNode
5803   --     7  RedefinableElement::isLeaf
5804   --     11  Action::isLocallyReentrant
5805   --     2  NamedElement::name
5806   --     3  NamedElement::nameExpression
5807   --     4  NamedElement::namespace
5808   --     12  InvocationAction::onPort
5809   --     1  Element::owner
5810   --     5  NamedElement::qualifiedName
5811   --     13  SendSignalAction::signal
5812   --     14  SendSignalAction::target
5813   --     6  NamedElement::visibility
5814   --
5815   --     12  InvocationAction::argument
5816   --     3  NamedElement::clientDependency
5817   --     18  ExecutableNode::handler
5818   --     6  ActivityNode::inGroup
5819   --     7  ActivityNode::inInterruptibleRegion
5820   --     8  ActivityNode::inPartition
5821   --     9  ActivityNode::incoming
5822   --     19  Action::input
5823   --     20  Action::localPostcondition
5824   --     21  Action::localPrecondition
5825   --     10  ActivityNode::outgoing
5826   --     22  Action::output
5827   --     1  Element::ownedComment
5828   --     2  Element::ownedElement
5829   --     4  RedefinableElement::redefinedElement
5830   --     11  ActivityNode::redefinedNode
5831   --     5  RedefinableElement::redefinitionContext
5832
5833   --  SequenceNode
5834   --
5835   --     8  ActivityNode::activity
5836   --     14  StructuredActivityNode::activity
5837   --     10  Action::context
5838   --     12  ActivityGroup::inActivity
5839   --     9  ActivityNode::inStructuredNode
5840   --     7  RedefinableElement::isLeaf
5841   --     11  Action::isLocallyReentrant
5842   --     15  StructuredActivityNode::mustIsolate
5843   --     2  NamedElement::name
5844   --     3  NamedElement::nameExpression
5845   --     4  NamedElement::namespace
5846   --     1  Element::owner
5847   --     5  NamedElement::qualifiedName
5848   --     13  ActivityGroup::superGroup
5849   --     6  NamedElement::visibility
5850   --
5851   --     3  NamedElement::clientDependency
5852   --     23  ActivityGroup::containedEdge
5853   --     24  ActivityGroup::containedNode
5854   --     26  StructuredActivityNode::edge
5855   --     12  Namespace::elementImport
5856   --     31  SequenceNode::executableNode
5857   --     18  ExecutableNode::handler
5858   --     13  Namespace::importedMember
5859   --     6  ActivityNode::inGroup
5860   --     7  ActivityNode::inInterruptibleRegion
5861   --     8  ActivityNode::inPartition
5862   --     9  ActivityNode::incoming
5863   --     19  Action::input
5864   --     20  Action::localPostcondition
5865   --     21  Action::localPrecondition
5866   --     14  Namespace::member
5867   --     27  StructuredActivityNode::node
5868   --     10  ActivityNode::outgoing
5869   --     22  Action::output
5870   --     1  Element::ownedComment
5871   --     2  Element::ownedElement
5872   --     15  Namespace::ownedMember
5873   --     16  Namespace::ownedRule
5874   --     17  Namespace::packageImport
5875   --     4  RedefinableElement::redefinedElement
5876   --     11  ActivityNode::redefinedNode
5877   --     5  RedefinableElement::redefinitionContext
5878   --     28  StructuredActivityNode::structuredNodeInput
5879   --     29  StructuredActivityNode::structuredNodeOutput
5880   --     25  ActivityGroup::subgroup
5881   --     30  StructuredActivityNode::variable
5882
5883   --  Signal
5884   --
5885   --     11  Classifier::isAbstract
5886   --     13  Classifier::isFinalSpecialization
5887   --     7  RedefinableElement::isLeaf
5888   --     2  NamedElement::name
5889   --     3  NamedElement::nameExpression
5890   --     4  NamedElement::namespace
5891   --     14  Classifier::ownedTemplateSignature
5892   --     10  TemplateableElement::ownedTemplateSignature
5893   --     1  Element::owner
5894   --     8  ParameterableElement::owningTemplateParameter
5895   --     12  Type::package
5896   --     5  NamedElement::qualifiedName
5897   --     15  Classifier::representation
5898   --     16  Classifier::templateParameter
5899   --     9  ParameterableElement::templateParameter
5900   --     6  NamedElement::visibility
5901   --     6  PackageableElement::visibility
5902   --
5903   --     7  Classifier::attribute
5904   --     3  NamedElement::clientDependency
5905   --     8  Classifier::collaborationUse
5906   --     12  Namespace::elementImport
5907   --     9  Classifier::feature
5908   --     10  Classifier::general
5909   --     11  Classifier::generalization
5910   --     13  Namespace::importedMember
5911   --     18  Classifier::inheritedMember
5912   --     14  Namespace::member
5913   --     24  Signal::ownedAttribute
5914   --     1  Element::ownedComment
5915   --     2  Element::ownedElement
5916   --     15  Namespace::ownedMember
5917   --     16  Namespace::ownedRule
5918   --     19  Classifier::ownedUseCase
5919   --     17  Namespace::packageImport
5920   --     20  Classifier::powertypeExtent
5921   --     21  Classifier::redefinedClassifier
5922   --     4  RedefinableElement::redefinedElement
5923   --     5  RedefinableElement::redefinitionContext
5924   --     22  Classifier::substitution
5925   --     6  TemplateableElement::templateBinding
5926   --     23  Classifier::useCase
5927
5928   --  SignalEvent
5929   --
5930   --     2  NamedElement::name
5931   --     3  NamedElement::nameExpression
5932   --     4  NamedElement::namespace
5933   --     1  Element::owner
5934   --     8  ParameterableElement::owningTemplateParameter
5935   --     5  NamedElement::qualifiedName
5936   --     7  SignalEvent::signal
5937   --     9  ParameterableElement::templateParameter
5938   --     6  NamedElement::visibility
5939   --     6  PackageableElement::visibility
5940   --
5941   --     3  NamedElement::clientDependency
5942   --     1  Element::ownedComment
5943   --     2  Element::ownedElement
5944
5945   --  Slot
5946   --
5947   --     2  Slot::definingFeature
5948   --     1  Element::owner
5949   --     3  Slot::owningInstance
5950   --
5951   --     1  Element::ownedComment
5952   --     2  Element::ownedElement
5953   --     3  Slot::value
5954
5955   --  StartClassifierBehaviorAction
5956   --
5957   --     8  ActivityNode::activity
5958   --     10  Action::context
5959   --     9  ActivityNode::inStructuredNode
5960   --     7  RedefinableElement::isLeaf
5961   --     11  Action::isLocallyReentrant
5962   --     2  NamedElement::name
5963   --     3  NamedElement::nameExpression
5964   --     4  NamedElement::namespace
5965   --     12  StartClassifierBehaviorAction::object
5966   --     1  Element::owner
5967   --     5  NamedElement::qualifiedName
5968   --     6  NamedElement::visibility
5969   --
5970   --     3  NamedElement::clientDependency
5971   --     18  ExecutableNode::handler
5972   --     6  ActivityNode::inGroup
5973   --     7  ActivityNode::inInterruptibleRegion
5974   --     8  ActivityNode::inPartition
5975   --     9  ActivityNode::incoming
5976   --     19  Action::input
5977   --     20  Action::localPostcondition
5978   --     21  Action::localPrecondition
5979   --     10  ActivityNode::outgoing
5980   --     22  Action::output
5981   --     1  Element::ownedComment
5982   --     2  Element::ownedElement
5983   --     4  RedefinableElement::redefinedElement
5984   --     11  ActivityNode::redefinedNode
5985   --     5  RedefinableElement::redefinitionContext
5986
5987   --  StartObjectBehaviorAction
5988   --
5989   --     8  ActivityNode::activity
5990   --     10  Action::context
5991   --     9  ActivityNode::inStructuredNode
5992   --     7  RedefinableElement::isLeaf
5993   --     11  Action::isLocallyReentrant
5994   --     13  CallAction::isSynchronous
5995   --     2  NamedElement::name
5996   --     3  NamedElement::nameExpression
5997   --     4  NamedElement::namespace
5998   --     14  StartObjectBehaviorAction::object
5999   --     12  InvocationAction::onPort
6000   --     1  Element::owner
6001   --     5  NamedElement::qualifiedName
6002   --     6  NamedElement::visibility
6003   --
6004   --     12  InvocationAction::argument
6005   --     3  NamedElement::clientDependency
6006   --     18  ExecutableNode::handler
6007   --     6  ActivityNode::inGroup
6008   --     7  ActivityNode::inInterruptibleRegion
6009   --     8  ActivityNode::inPartition
6010   --     9  ActivityNode::incoming
6011   --     19  Action::input
6012   --     20  Action::localPostcondition
6013   --     21  Action::localPrecondition
6014   --     10  ActivityNode::outgoing
6015   --     22  Action::output
6016   --     1  Element::ownedComment
6017   --     2  Element::ownedElement
6018   --     4  RedefinableElement::redefinedElement
6019   --     11  ActivityNode::redefinedNode
6020   --     5  RedefinableElement::redefinitionContext
6021   --     13  CallAction::result
6022
6023   --  State
6024   --
6025   --     8  Vertex::container
6026   --     9  State::doActivity
6027   --     10  State::entry
6028   --     11  State::exit
6029   --     20  State::isComposite
6030   --     7  RedefinableElement::isLeaf
6031   --     12  State::isOrthogonal
6032   --     13  State::isSimple
6033   --     14  State::isSubmachineState
6034   --     2  NamedElement::name
6035   --     3  NamedElement::nameExpression
6036   --     4  NamedElement::namespace
6037   --     1  Element::owner
6038   --     5  NamedElement::qualifiedName
6039   --     15  State::redefinedState
6040   --     16  State::redefinitionContext
6041   --     17  State::stateInvariant
6042   --     18  State::submachine
6043   --     6  NamedElement::visibility
6044   --
6045   --     3  NamedElement::clientDependency
6046   --     8  State::connection
6047   --     9  State::connectionPoint
6048   --     10  State::deferrableTrigger
6049   --     12  Namespace::elementImport
6050   --     13  Namespace::importedMember
6051   --     6  Vertex::incoming
6052   --     14  Namespace::member
6053   --     7  Vertex::outgoing
6054   --     1  Element::ownedComment
6055   --     2  Element::ownedElement
6056   --     15  Namespace::ownedMember
6057   --     16  Namespace::ownedRule
6058   --     17  Namespace::packageImport
6059   --     4  RedefinableElement::redefinedElement
6060   --     5  RedefinableElement::redefinitionContext
6061   --     11  State::region
6062
6063   --  StateInvariant
6064   --
6065   --     7  StateInvariant::covered
6066   --     18  InteractionFragment::enclosingInteraction
6067   --     19  InteractionFragment::enclosingOperand
6068   --     8  StateInvariant::invariant
6069   --     2  NamedElement::name
6070   --     3  NamedElement::nameExpression
6071   --     4  NamedElement::namespace
6072   --     1  Element::owner
6073   --     5  NamedElement::qualifiedName
6074   --     6  NamedElement::visibility
6075   --
6076   --     3  NamedElement::clientDependency
6077   --     24  InteractionFragment::covered
6078   --     27  InteractionFragment::generalOrdering
6079   --     1  Element::ownedComment
6080   --     2  Element::ownedElement
6081
6082   --  StateMachine
6083   --
6084   --     17  BehavioredClassifier::classifierBehavior
6085   --     21  Behavior::context
6086   --     11  Class::isAbstract
6087   --     11  Classifier::isAbstract
6088   --     20  Class::isActive
6089   --     13  Classifier::isFinalSpecialization
6090   --     7  RedefinableElement::isLeaf
6091   --     22  Behavior::isReentrant
6092   --     2  NamedElement::name
6093   --     3  NamedElement::nameExpression
6094   --     4  NamedElement::namespace
6095   --     14  Classifier::ownedTemplateSignature
6096   --     10  TemplateableElement::ownedTemplateSignature
6097   --     1  Element::owner
6098   --     8  ParameterableElement::owningTemplateParameter
6099   --     12  Type::package
6100   --     5  NamedElement::qualifiedName
6101   --     15  Classifier::representation
6102   --     23  Behavior::specification
6103   --     16  Classifier::templateParameter
6104   --     9  ParameterableElement::templateParameter
6105   --     6  NamedElement::visibility
6106   --     6  PackageableElement::visibility
6107   --
6108   --     7  Classifier::attribute
6109   --     3  NamedElement::clientDependency
6110   --     8  Classifier::collaborationUse
6111   --     24  StateMachine::connectionPoint
6112   --     12  Namespace::elementImport
6113   --     27  StateMachine::extendedStateMachine
6114   --     33  Class::extension
6115   --     9  Classifier::feature
6116   --     10  Classifier::general
6117   --     11  Classifier::generalization
6118   --     13  Namespace::importedMember
6119   --     18  Classifier::inheritedMember
6120   --     25  BehavioredClassifier::interfaceRealization
6121   --     14  Namespace::member
6122   --     34  Class::nestedClassifier
6123   --     35  Class::ownedAttribute
6124   --     28  StructuredClassifier::ownedAttribute
6125   --     26  BehavioredClassifier::ownedBehavior
6126   --     1  Element::ownedComment
6127   --     29  StructuredClassifier::ownedConnector
6128   --     2  Element::ownedElement
6129   --     15  Namespace::ownedMember
6130   --     36  Class::ownedOperation
6131   --     39  Behavior::ownedParameter
6132   --     40  Behavior::ownedParameterSet
6133   --     32  EncapsulatedClassifier::ownedPort
6134   --     37  Class::ownedReception
6135   --     16  Namespace::ownedRule
6136   --     19  Classifier::ownedUseCase
6137   --     17  Namespace::packageImport
6138   --     30  StructuredClassifier::part
6139   --     41  Behavior::postcondition
6140   --     20  Classifier::powertypeExtent
6141   --     42  Behavior::precondition
6142   --     43  Behavior::redefinedBehavior
6143   --     21  Classifier::redefinedClassifier
6144   --     4  RedefinableElement::redefinedElement
6145   --     5  RedefinableElement::redefinitionContext
6146   --     44  StateMachine::region
6147   --     31  StructuredClassifier::role
6148   --     45  StateMachine::submachineState
6149   --     22  Classifier::substitution
6150   --     38  Class::superClass
6151   --     6  TemplateableElement::templateBinding
6152   --     23  Classifier::useCase
6153
6154   --  Stereotype
6155   --
6156   --     17  BehavioredClassifier::classifierBehavior
6157   --     11  Class::isAbstract
6158   --     11  Classifier::isAbstract
6159   --     20  Class::isActive
6160   --     13  Classifier::isFinalSpecialization
6161   --     7  RedefinableElement::isLeaf
6162   --     2  NamedElement::name
6163   --     3  NamedElement::nameExpression
6164   --     4  NamedElement::namespace
6165   --     14  Classifier::ownedTemplateSignature
6166   --     10  TemplateableElement::ownedTemplateSignature
6167   --     1  Element::owner
6168   --     8  ParameterableElement::owningTemplateParameter
6169   --     12  Type::package
6170   --     18  Stereotype::profile
6171   --     5  NamedElement::qualifiedName
6172   --     15  Classifier::representation
6173   --     16  Classifier::templateParameter
6174   --     9  ParameterableElement::templateParameter
6175   --     6  NamedElement::visibility
6176   --     6  PackageableElement::visibility
6177   --
6178   --     7  Classifier::attribute
6179   --     3  NamedElement::clientDependency
6180   --     8  Classifier::collaborationUse
6181   --     12  Namespace::elementImport
6182   --     33  Class::extension
6183   --     9  Classifier::feature
6184   --     10  Classifier::general
6185   --     11  Classifier::generalization
6186   --     24  Stereotype::icon
6187   --     13  Namespace::importedMember
6188   --     18  Classifier::inheritedMember
6189   --     25  BehavioredClassifier::interfaceRealization
6190   --     14  Namespace::member
6191   --     34  Class::nestedClassifier
6192   --     35  Class::ownedAttribute
6193   --     28  StructuredClassifier::ownedAttribute
6194   --     26  BehavioredClassifier::ownedBehavior
6195   --     1  Element::ownedComment
6196   --     29  StructuredClassifier::ownedConnector
6197   --     2  Element::ownedElement
6198   --     15  Namespace::ownedMember
6199   --     36  Class::ownedOperation
6200   --     32  EncapsulatedClassifier::ownedPort
6201   --     37  Class::ownedReception
6202   --     16  Namespace::ownedRule
6203   --     19  Classifier::ownedUseCase
6204   --     17  Namespace::packageImport
6205   --     30  StructuredClassifier::part
6206   --     20  Classifier::powertypeExtent
6207   --     21  Classifier::redefinedClassifier
6208   --     4  RedefinableElement::redefinedElement
6209   --     5  RedefinableElement::redefinitionContext
6210   --     31  StructuredClassifier::role
6211   --     22  Classifier::substitution
6212   --     38  Class::superClass
6213   --     6  TemplateableElement::templateBinding
6214   --     23  Classifier::useCase
6215
6216   --  StringExpression
6217   --
6218   --     2  NamedElement::name
6219   --     3  NamedElement::nameExpression
6220   --     4  NamedElement::namespace
6221   --     10  TemplateableElement::ownedTemplateSignature
6222   --     1  Element::owner
6223   --     12  StringExpression::owningExpression
6224   --     8  ParameterableElement::owningTemplateParameter
6225   --     5  NamedElement::qualifiedName
6226   --     7  Expression::symbol
6227   --     9  ParameterableElement::templateParameter
6228   --     11  TypedElement::type
6229   --     6  NamedElement::visibility
6230   --     6  PackageableElement::visibility
6231   --
6232   --     3  NamedElement::clientDependency
6233   --     4  Expression::operand
6234   --     1  Element::ownedComment
6235   --     2  Element::ownedElement
6236   --     5  StringExpression::subExpression
6237   --     6  TemplateableElement::templateBinding
6238
6239   --  StructuredActivityNode
6240   --
6241   --     8  ActivityNode::activity
6242   --     14  StructuredActivityNode::activity
6243   --     10  Action::context
6244   --     12  ActivityGroup::inActivity
6245   --     9  ActivityNode::inStructuredNode
6246   --     7  RedefinableElement::isLeaf
6247   --     11  Action::isLocallyReentrant
6248   --     15  StructuredActivityNode::mustIsolate
6249   --     2  NamedElement::name
6250   --     3  NamedElement::nameExpression
6251   --     4  NamedElement::namespace
6252   --     1  Element::owner
6253   --     5  NamedElement::qualifiedName
6254   --     13  ActivityGroup::superGroup
6255   --     6  NamedElement::visibility
6256   --
6257   --     3  NamedElement::clientDependency
6258   --     23  ActivityGroup::containedEdge
6259   --     24  ActivityGroup::containedNode
6260   --     26  StructuredActivityNode::edge
6261   --     12  Namespace::elementImport
6262   --     18  ExecutableNode::handler
6263   --     13  Namespace::importedMember
6264   --     6  ActivityNode::inGroup
6265   --     7  ActivityNode::inInterruptibleRegion
6266   --     8  ActivityNode::inPartition
6267   --     9  ActivityNode::incoming
6268   --     19  Action::input
6269   --     20  Action::localPostcondition
6270   --     21  Action::localPrecondition
6271   --     14  Namespace::member
6272   --     27  StructuredActivityNode::node
6273   --     10  ActivityNode::outgoing
6274   --     22  Action::output
6275   --     1  Element::ownedComment
6276   --     2  Element::ownedElement
6277   --     15  Namespace::ownedMember
6278   --     16  Namespace::ownedRule
6279   --     17  Namespace::packageImport
6280   --     4  RedefinableElement::redefinedElement
6281   --     11  ActivityNode::redefinedNode
6282   --     5  RedefinableElement::redefinitionContext
6283   --     28  StructuredActivityNode::structuredNodeInput
6284   --     29  StructuredActivityNode::structuredNodeOutput
6285   --     25  ActivityGroup::subgroup
6286   --     30  StructuredActivityNode::variable
6287
6288   --  Substitution
6289   --
6290   --     10  Substitution::contract
6291   --     7  Abstraction::mapping
6292   --     2  NamedElement::name
6293   --     3  NamedElement::nameExpression
6294   --     4  NamedElement::namespace
6295   --     1  Element::owner
6296   --     8  ParameterableElement::owningTemplateParameter
6297   --     5  NamedElement::qualifiedName
6298   --     11  Substitution::substitutingClassifier
6299   --     9  ParameterableElement::templateParameter
6300   --     6  NamedElement::visibility
6301   --     6  PackageableElement::visibility
6302   --
6303   --     6  Dependency::client
6304   --     3  NamedElement::clientDependency
6305   --     1  Element::ownedComment
6306   --     2  Element::ownedElement
6307   --     24  Relationship::relatedElement
6308   --     4  DirectedRelationship::source
6309   --     7  Dependency::supplier
6310   --     5  DirectedRelationship::target
6311
6312   --  TemplateBinding
6313   --
6314   --     2  TemplateBinding::boundElement
6315   --     1  Element::owner
6316   --     3  TemplateBinding::signature
6317   --
6318   --     1  Element::ownedComment
6319   --     2  Element::ownedElement
6320   --     3  TemplateBinding::parameterSubstitution
6321   --     24  Relationship::relatedElement
6322   --     4  DirectedRelationship::source
6323   --     5  DirectedRelationship::target
6324
6325   --  TemplateParameter
6326   --
6327   --     2  TemplateParameter::default
6328   --     3  TemplateParameter::ownedDefault
6329   --     4  TemplateParameter::ownedParameteredElement
6330   --     1  Element::owner
6331   --     5  TemplateParameter::parameteredElement
6332   --     6  TemplateParameter::signature
6333   --
6334   --     1  Element::ownedComment
6335   --     2  Element::ownedElement
6336
6337   --  TemplateParameterSubstitution
6338   --
6339   --     2  TemplateParameterSubstitution::actual
6340   --     3  TemplateParameterSubstitution::formal
6341   --     4  TemplateParameterSubstitution::ownedActual
6342   --     1  Element::owner
6343   --     5  TemplateParameterSubstitution::templateBinding
6344   --
6345   --     1  Element::ownedComment
6346   --     2  Element::ownedElement
6347
6348   --  TemplateSignature
6349   --
6350   --     1  Element::owner
6351   --     8  TemplateSignature::template
6352   --
6353   --     1  Element::ownedComment
6354   --     2  Element::ownedElement
6355   --     6  TemplateSignature::ownedParameter
6356   --     7  TemplateSignature::parameter
6357
6358   --  TestIdentityAction
6359   --
6360   --     8  ActivityNode::activity
6361   --     10  Action::context
6362   --     12  TestIdentityAction::first
6363   --     9  ActivityNode::inStructuredNode
6364   --     7  RedefinableElement::isLeaf
6365   --     11  Action::isLocallyReentrant
6366   --     2  NamedElement::name
6367   --     3  NamedElement::nameExpression
6368   --     4  NamedElement::namespace
6369   --     1  Element::owner
6370   --     5  NamedElement::qualifiedName
6371   --     13  TestIdentityAction::result
6372   --     14  TestIdentityAction::second
6373   --     6  NamedElement::visibility
6374   --
6375   --     3  NamedElement::clientDependency
6376   --     18  ExecutableNode::handler
6377   --     6  ActivityNode::inGroup
6378   --     7  ActivityNode::inInterruptibleRegion
6379   --     8  ActivityNode::inPartition
6380   --     9  ActivityNode::incoming
6381   --     19  Action::input
6382   --     20  Action::localPostcondition
6383   --     21  Action::localPrecondition
6384   --     10  ActivityNode::outgoing
6385   --     22  Action::output
6386   --     1  Element::ownedComment
6387   --     2  Element::ownedElement
6388   --     4  RedefinableElement::redefinedElement
6389   --     11  ActivityNode::redefinedNode
6390   --     5  RedefinableElement::redefinitionContext
6391
6392   --  TimeConstraint
6393   --
6394   --     7  Constraint::context
6395   --     12  TimeConstraint::firstEvent
6396   --     2  NamedElement::name
6397   --     3  NamedElement::nameExpression
6398   --     4  NamedElement::namespace
6399   --     1  Element::owner
6400   --     8  ParameterableElement::owningTemplateParameter
6401   --     5  NamedElement::qualifiedName
6402   --     10  Constraint::specification
6403   --     11  IntervalConstraint::specification
6404   --     13  TimeConstraint::specification
6405   --     9  ParameterableElement::templateParameter
6406   --     6  NamedElement::visibility
6407   --     6  PackageableElement::visibility
6408   --
6409   --     3  NamedElement::clientDependency
6410   --     4  Constraint::constrainedElement
6411   --     1  Element::ownedComment
6412   --     2  Element::ownedElement
6413
6414   --  TimeEvent
6415   --
6416   --     7  TimeEvent::isRelative
6417   --     2  NamedElement::name
6418   --     3  NamedElement::nameExpression
6419   --     4  NamedElement::namespace
6420   --     1  Element::owner
6421   --     8  ParameterableElement::owningTemplateParameter
6422   --     5  NamedElement::qualifiedName
6423   --     9  ParameterableElement::templateParameter
6424   --     6  NamedElement::visibility
6425   --     6  PackageableElement::visibility
6426   --     10  TimeEvent::when
6427   --
6428   --     3  NamedElement::clientDependency
6429   --     1  Element::ownedComment
6430   --     2  Element::ownedElement
6431
6432   --  TimeExpression
6433   --
6434   --     7  TimeExpression::expr
6435   --     2  NamedElement::name
6436   --     3  NamedElement::nameExpression
6437   --     4  NamedElement::namespace
6438   --     1  Element::owner
6439   --     8  ParameterableElement::owningTemplateParameter
6440   --     5  NamedElement::qualifiedName
6441   --     9  ParameterableElement::templateParameter
6442   --     11  TypedElement::type
6443   --     6  NamedElement::visibility
6444   --     6  PackageableElement::visibility
6445   --
6446   --     3  NamedElement::clientDependency
6447   --     4  TimeExpression::observation
6448   --     1  Element::ownedComment
6449   --     2  Element::ownedElement
6450
6451   --  TimeInterval
6452   --
6453   --     7  Interval::max
6454   --     12  TimeInterval::max
6455   --     10  Interval::min
6456   --     13  TimeInterval::min
6457   --     2  NamedElement::name
6458   --     3  NamedElement::nameExpression
6459   --     4  NamedElement::namespace
6460   --     1  Element::owner
6461   --     8  ParameterableElement::owningTemplateParameter
6462   --     5  NamedElement::qualifiedName
6463   --     9  ParameterableElement::templateParameter
6464   --     11  TypedElement::type
6465   --     6  NamedElement::visibility
6466   --     6  PackageableElement::visibility
6467   --
6468   --     3  NamedElement::clientDependency
6469   --     1  Element::ownedComment
6470   --     2  Element::ownedElement
6471
6472   --  TimeObservation
6473   --
6474   --     7  TimeObservation::event
6475   --     10  TimeObservation::firstEvent
6476   --     2  NamedElement::name
6477   --     3  NamedElement::nameExpression
6478   --     4  NamedElement::namespace
6479   --     1  Element::owner
6480   --     8  ParameterableElement::owningTemplateParameter
6481   --     5  NamedElement::qualifiedName
6482   --     9  ParameterableElement::templateParameter
6483   --     6  NamedElement::visibility
6484   --     6  PackageableElement::visibility
6485   --
6486   --     3  NamedElement::clientDependency
6487   --     1  Element::ownedComment
6488   --     2  Element::ownedElement
6489
6490   --  Transition
6491   --
6492   --     8  Transition::container
6493   --     9  Transition::effect
6494   --     10  Transition::guard
6495   --     7  RedefinableElement::isLeaf
6496   --     11  Transition::kind
6497   --     2  NamedElement::name
6498   --     3  NamedElement::nameExpression
6499   --     4  NamedElement::namespace
6500   --     1  Element::owner
6501   --     5  NamedElement::qualifiedName
6502   --     12  Transition::redefinedTransition
6503   --     13  Transition::redefinitionContext
6504   --     14  Transition::source
6505   --     15  Transition::target
6506   --     6  NamedElement::visibility
6507   --
6508   --     3  NamedElement::clientDependency
6509   --     12  Namespace::elementImport
6510   --     13  Namespace::importedMember
6511   --     14  Namespace::member
6512   --     1  Element::ownedComment
6513   --     2  Element::ownedElement
6514   --     15  Namespace::ownedMember
6515   --     16  Namespace::ownedRule
6516   --     17  Namespace::packageImport
6517   --     4  RedefinableElement::redefinedElement
6518   --     5  RedefinableElement::redefinitionContext
6519   --     6  Transition::trigger
6520
6521   --  Trigger
6522   --
6523   --     7  Trigger::event
6524   --     2  NamedElement::name
6525   --     3  NamedElement::nameExpression
6526   --     4  NamedElement::namespace
6527   --     1  Element::owner
6528   --     5  NamedElement::qualifiedName
6529   --     6  NamedElement::visibility
6530   --
6531   --     3  NamedElement::clientDependency
6532   --     1  Element::ownedComment
6533   --     2  Element::ownedElement
6534   --     4  Trigger::port
6535
6536   --  UnmarshallAction
6537   --
6538   --     8  ActivityNode::activity
6539   --     10  Action::context
6540   --     9  ActivityNode::inStructuredNode
6541   --     7  RedefinableElement::isLeaf
6542   --     11  Action::isLocallyReentrant
6543   --     2  NamedElement::name
6544   --     3  NamedElement::nameExpression
6545   --     4  NamedElement::namespace
6546   --     12  UnmarshallAction::object
6547   --     1  Element::owner
6548   --     5  NamedElement::qualifiedName
6549   --     13  UnmarshallAction::unmarshallType
6550   --     6  NamedElement::visibility
6551   --
6552   --     3  NamedElement::clientDependency
6553   --     18  ExecutableNode::handler
6554   --     6  ActivityNode::inGroup
6555   --     7  ActivityNode::inInterruptibleRegion
6556   --     8  ActivityNode::inPartition
6557   --     9  ActivityNode::incoming
6558   --     19  Action::input
6559   --     20  Action::localPostcondition
6560   --     21  Action::localPrecondition
6561   --     10  ActivityNode::outgoing
6562   --     22  Action::output
6563   --     1  Element::ownedComment
6564   --     2  Element::ownedElement
6565   --     4  RedefinableElement::redefinedElement
6566   --     11  ActivityNode::redefinedNode
6567   --     5  RedefinableElement::redefinitionContext
6568   --     12  UnmarshallAction::result
6569
6570   --  Usage
6571   --
6572   --     2  NamedElement::name
6573   --     3  NamedElement::nameExpression
6574   --     4  NamedElement::namespace
6575   --     1  Element::owner
6576   --     8  ParameterableElement::owningTemplateParameter
6577   --     5  NamedElement::qualifiedName
6578   --     9  ParameterableElement::templateParameter
6579   --     6  NamedElement::visibility
6580   --     6  PackageableElement::visibility
6581   --
6582   --     6  Dependency::client
6583   --     3  NamedElement::clientDependency
6584   --     1  Element::ownedComment
6585   --     2  Element::ownedElement
6586   --     24  Relationship::relatedElement
6587   --     4  DirectedRelationship::source
6588   --     7  Dependency::supplier
6589   --     5  DirectedRelationship::target
6590
6591   --  UseCase
6592   --
6593   --     17  BehavioredClassifier::classifierBehavior
6594   --     11  Classifier::isAbstract
6595   --     13  Classifier::isFinalSpecialization
6596   --     7  RedefinableElement::isLeaf
6597   --     2  NamedElement::name
6598   --     3  NamedElement::nameExpression
6599   --     4  NamedElement::namespace
6600   --     14  Classifier::ownedTemplateSignature
6601   --     10  TemplateableElement::ownedTemplateSignature
6602   --     1  Element::owner
6603   --     8  ParameterableElement::owningTemplateParameter
6604   --     12  Type::package
6605   --     5  NamedElement::qualifiedName
6606   --     15  Classifier::representation
6607   --     16  Classifier::templateParameter
6608   --     9  ParameterableElement::templateParameter
6609   --     6  NamedElement::visibility
6610   --     6  PackageableElement::visibility
6611   --
6612   --     7  Classifier::attribute
6613   --     3  NamedElement::clientDependency
6614   --     8  Classifier::collaborationUse
6615   --     12  Namespace::elementImport
6616   --     24  UseCase::extend
6617   --     27  UseCase::extensionPoint
6618   --     9  Classifier::feature
6619   --     10  Classifier::general
6620   --     11  Classifier::generalization
6621   --     13  Namespace::importedMember
6622   --     28  UseCase::include
6623   --     18  Classifier::inheritedMember
6624   --     25  BehavioredClassifier::interfaceRealization
6625   --     14  Namespace::member
6626   --     26  BehavioredClassifier::ownedBehavior
6627   --     1  Element::ownedComment
6628   --     2  Element::ownedElement
6629   --     15  Namespace::ownedMember
6630   --     16  Namespace::ownedRule
6631   --     19  Classifier::ownedUseCase
6632   --     17  Namespace::packageImport
6633   --     20  Classifier::powertypeExtent
6634   --     21  Classifier::redefinedClassifier
6635   --     4  RedefinableElement::redefinedElement
6636   --     5  RedefinableElement::redefinitionContext
6637   --     29  UseCase::subject
6638   --     22  Classifier::substitution
6639   --     6  TemplateableElement::templateBinding
6640   --     23  Classifier::useCase
6641
6642   --  ValuePin
6643   --
6644   --     8  ActivityNode::activity
6645   --     9  ActivityNode::inStructuredNode
6646   --     21  Pin::isControl
6647   --     17  ObjectNode::isControlType
6648   --     7  RedefinableElement::isLeaf
6649   --     12  MultiplicityElement::isOrdered
6650   --     13  MultiplicityElement::isUnique
6651   --     14  MultiplicityElement::lower
6652   --     10  MultiplicityElement::lowerValue
6653   --     2  NamedElement::name
6654   --     3  NamedElement::nameExpression
6655   --     4  NamedElement::namespace
6656   --     18  ObjectNode::ordering
6657   --     1  Element::owner
6658   --     5  NamedElement::qualifiedName
6659   --     19  ObjectNode::selection
6660   --     11  TypedElement::type
6661   --     15  MultiplicityElement::upper
6662   --     20  ObjectNode::upperBound
6663   --     16  MultiplicityElement::upperValue
6664   --     22  ValuePin::value
6665   --     6  NamedElement::visibility
6666   --
6667   --     3  NamedElement::clientDependency
6668   --     6  ActivityNode::inGroup
6669   --     7  ActivityNode::inInterruptibleRegion
6670   --     8  ActivityNode::inPartition
6671   --     12  ObjectNode::inState
6672   --     9  ActivityNode::incoming
6673   --     10  ActivityNode::outgoing
6674   --     1  Element::ownedComment
6675   --     2  Element::ownedElement
6676   --     4  RedefinableElement::redefinedElement
6677   --     11  ActivityNode::redefinedNode
6678   --     5  RedefinableElement::redefinitionContext
6679
6680   --  ValueSpecificationAction
6681   --
6682   --     8  ActivityNode::activity
6683   --     10  Action::context
6684   --     9  ActivityNode::inStructuredNode
6685   --     7  RedefinableElement::isLeaf
6686   --     11  Action::isLocallyReentrant
6687   --     2  NamedElement::name
6688   --     3  NamedElement::nameExpression
6689   --     4  NamedElement::namespace
6690   --     1  Element::owner
6691   --     5  NamedElement::qualifiedName
6692   --     12  ValueSpecificationAction::result
6693   --     13  ValueSpecificationAction::value
6694   --     6  NamedElement::visibility
6695   --
6696   --     3  NamedElement::clientDependency
6697   --     18  ExecutableNode::handler
6698   --     6  ActivityNode::inGroup
6699   --     7  ActivityNode::inInterruptibleRegion
6700   --     8  ActivityNode::inPartition
6701   --     9  ActivityNode::incoming
6702   --     19  Action::input
6703   --     20  Action::localPostcondition
6704   --     21  Action::localPrecondition
6705   --     10  ActivityNode::outgoing
6706   --     22  Action::output
6707   --     1  Element::ownedComment
6708   --     2  Element::ownedElement
6709   --     4  RedefinableElement::redefinedElement
6710   --     11  ActivityNode::redefinedNode
6711   --     5  RedefinableElement::redefinitionContext
6712
6713   --  Variable
6714   --
6715   --     7  Variable::activityScope
6716   --     12  MultiplicityElement::isOrdered
6717   --     13  MultiplicityElement::isUnique
6718   --     14  MultiplicityElement::lower
6719   --     10  MultiplicityElement::lowerValue
6720   --     2  NamedElement::name
6721   --     3  NamedElement::nameExpression
6722   --     4  NamedElement::namespace
6723   --     1  Element::owner
6724   --     8  ParameterableElement::owningTemplateParameter
6725   --     5  NamedElement::qualifiedName
6726   --     17  Variable::scope
6727   --     19  ConnectableElement::templateParameter
6728   --     9  ParameterableElement::templateParameter
6729   --     11  TypedElement::type
6730   --     15  MultiplicityElement::upper
6731   --     16  MultiplicityElement::upperValue
6732   --     6  NamedElement::visibility
6733   --
6734   --     3  NamedElement::clientDependency
6735   --     6  ConnectableElement::end
6736   --     1  Element::ownedComment
6737   --     2  Element::ownedElement
6738
6739   ----------------------
6740   -- Internal_Get_URI --
6741   ----------------------
6742
6743   function Internal_Get_URI
6744    (Self : AMF.Internals.AMF_Element)
6745       return Matreshka.Internals.Strings.Shared_String_Access is
6746   begin
6747      return
6748        AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).String_Value;
6749   end Internal_Get_URI;
6750
6751   ------------------------------
6752   -- Internal_Get_Abstraction --
6753   ------------------------------
6754
6755   function Internal_Get_Abstraction
6756    (Self : AMF.Internals.AMF_Element)
6757       return AMF.Internals.AMF_Element is
6758   begin
6759      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
6760         when AMF.Internals.Tables.UML_Types.E_UML_Component_Realization =>
6761            return
6762              AMF.Internals.Links.Opposite_Element
6763               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
6764
6765         when others =>
6766            raise Program_Error;
6767      end case;
6768   end Internal_Get_Abstraction;
6769
6770   -------------------------
6771   -- Internal_Get_Action --
6772   -------------------------
6773
6774   function Internal_Get_Action
6775    (Self : AMF.Internals.AMF_Element)
6776       return AMF.Internals.AMF_Element is
6777   begin
6778      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
6779         when AMF.Internals.Tables.UML_Types.E_UML_Action_Execution_Specification =>
6780            return
6781              AMF.Internals.Links.Opposite_Element
6782               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
6783
6784         when others =>
6785            raise Program_Error;
6786      end case;
6787   end Internal_Get_Action;
6788
6789   -------------------------
6790   -- Internal_Get_Action --
6791   -------------------------
6792
6793   function Internal_Get_Action
6794    (Self : AMF.Internals.AMF_Element)
6795       return AMF.Internals.AMF_Collection_Of_Element is
6796   begin
6797      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
6798         when AMF.Internals.Tables.UML_Types.E_UML_Interaction =>
6799            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 44;
6800
6801         when others =>
6802            raise Program_Error;
6803      end case;
6804   end Internal_Get_Action;
6805
6806   ---------------------------
6807   -- Internal_Get_Activity --
6808   ---------------------------
6809
6810   function Internal_Get_Activity
6811    (Self : AMF.Internals.AMF_Element)
6812       return AMF.Internals.AMF_Element is
6813   begin
6814      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
6815         when AMF.Internals.Tables.UML_Types.E_UML_Accept_Call_Action =>
6816            return
6817              AMF.Internals.Links.Opposite_Element
6818               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
6819
6820         when AMF.Internals.Tables.UML_Types.E_UML_Accept_Event_Action =>
6821            return
6822              AMF.Internals.Links.Opposite_Element
6823               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
6824
6825         when AMF.Internals.Tables.UML_Types.E_UML_Action_Input_Pin =>
6826            return
6827              AMF.Internals.Links.Opposite_Element
6828               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
6829
6830         when AMF.Internals.Tables.UML_Types.E_UML_Activity_Final_Node =>
6831            return
6832              AMF.Internals.Links.Opposite_Element
6833               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
6834
6835         when AMF.Internals.Tables.UML_Types.E_UML_Activity_Parameter_Node =>
6836            return
6837              AMF.Internals.Links.Opposite_Element
6838               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
6839
6840         when AMF.Internals.Tables.UML_Types.E_UML_Add_Structural_Feature_Value_Action =>
6841            return
6842              AMF.Internals.Links.Opposite_Element
6843               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
6844
6845         when AMF.Internals.Tables.UML_Types.E_UML_Add_Variable_Value_Action =>
6846            return
6847              AMF.Internals.Links.Opposite_Element
6848               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
6849
6850         when AMF.Internals.Tables.UML_Types.E_UML_Broadcast_Signal_Action =>
6851            return
6852              AMF.Internals.Links.Opposite_Element
6853               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
6854
6855         when AMF.Internals.Tables.UML_Types.E_UML_Call_Behavior_Action =>
6856            return
6857              AMF.Internals.Links.Opposite_Element
6858               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
6859
6860         when AMF.Internals.Tables.UML_Types.E_UML_Call_Operation_Action =>
6861            return
6862              AMF.Internals.Links.Opposite_Element
6863               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
6864
6865         when AMF.Internals.Tables.UML_Types.E_UML_Central_Buffer_Node =>
6866            return
6867              AMF.Internals.Links.Opposite_Element
6868               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
6869
6870         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Association_Action =>
6871            return
6872              AMF.Internals.Links.Opposite_Element
6873               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
6874
6875         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Structural_Feature_Action =>
6876            return
6877              AMF.Internals.Links.Opposite_Element
6878               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
6879
6880         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Variable_Action =>
6881            return
6882              AMF.Internals.Links.Opposite_Element
6883               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
6884
6885         when AMF.Internals.Tables.UML_Types.E_UML_Conditional_Node =>
6886            return
6887              AMF.Internals.Links.Opposite_Element
6888               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
6889
6890         when AMF.Internals.Tables.UML_Types.E_UML_Control_Flow =>
6891            return
6892              AMF.Internals.Links.Opposite_Element
6893               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
6894
6895         when AMF.Internals.Tables.UML_Types.E_UML_Create_Link_Action =>
6896            return
6897              AMF.Internals.Links.Opposite_Element
6898               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
6899
6900         when AMF.Internals.Tables.UML_Types.E_UML_Create_Link_Object_Action =>
6901            return
6902              AMF.Internals.Links.Opposite_Element
6903               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
6904
6905         when AMF.Internals.Tables.UML_Types.E_UML_Create_Object_Action =>
6906            return
6907              AMF.Internals.Links.Opposite_Element
6908               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
6909
6910         when AMF.Internals.Tables.UML_Types.E_UML_Data_Store_Node =>
6911            return
6912              AMF.Internals.Links.Opposite_Element
6913               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
6914
6915         when AMF.Internals.Tables.UML_Types.E_UML_Decision_Node =>
6916            return
6917              AMF.Internals.Links.Opposite_Element
6918               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
6919
6920         when AMF.Internals.Tables.UML_Types.E_UML_Destroy_Link_Action =>
6921            return
6922              AMF.Internals.Links.Opposite_Element
6923               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
6924
6925         when AMF.Internals.Tables.UML_Types.E_UML_Destroy_Object_Action =>
6926            return
6927              AMF.Internals.Links.Opposite_Element
6928               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
6929
6930         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Node =>
6931            return
6932              AMF.Internals.Links.Opposite_Element
6933               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
6934
6935         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Region =>
6936            return
6937              AMF.Internals.Links.Opposite_Element
6938               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
6939
6940         when AMF.Internals.Tables.UML_Types.E_UML_Flow_Final_Node =>
6941            return
6942              AMF.Internals.Links.Opposite_Element
6943               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
6944
6945         when AMF.Internals.Tables.UML_Types.E_UML_Fork_Node =>
6946            return
6947              AMF.Internals.Links.Opposite_Element
6948               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
6949
6950         when AMF.Internals.Tables.UML_Types.E_UML_Initial_Node =>
6951            return
6952              AMF.Internals.Links.Opposite_Element
6953               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
6954
6955         when AMF.Internals.Tables.UML_Types.E_UML_Input_Pin =>
6956            return
6957              AMF.Internals.Links.Opposite_Element
6958               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
6959
6960         when AMF.Internals.Tables.UML_Types.E_UML_Join_Node =>
6961            return
6962              AMF.Internals.Links.Opposite_Element
6963               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
6964
6965         when AMF.Internals.Tables.UML_Types.E_UML_Loop_Node =>
6966            return
6967              AMF.Internals.Links.Opposite_Element
6968               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
6969
6970         when AMF.Internals.Tables.UML_Types.E_UML_Merge_Node =>
6971            return
6972              AMF.Internals.Links.Opposite_Element
6973               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
6974
6975         when AMF.Internals.Tables.UML_Types.E_UML_Object_Flow =>
6976            return
6977              AMF.Internals.Links.Opposite_Element
6978               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
6979
6980         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Action =>
6981            return
6982              AMF.Internals.Links.Opposite_Element
6983               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
6984
6985         when AMF.Internals.Tables.UML_Types.E_UML_Output_Pin =>
6986            return
6987              AMF.Internals.Links.Opposite_Element
6988               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
6989
6990         when AMF.Internals.Tables.UML_Types.E_UML_Raise_Exception_Action =>
6991            return
6992              AMF.Internals.Links.Opposite_Element
6993               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
6994
6995         when AMF.Internals.Tables.UML_Types.E_UML_Read_Extent_Action =>
6996            return
6997              AMF.Internals.Links.Opposite_Element
6998               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
6999
7000         when AMF.Internals.Tables.UML_Types.E_UML_Read_Is_Classified_Object_Action =>
7001            return
7002              AMF.Internals.Links.Opposite_Element
7003               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
7004
7005         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Action =>
7006            return
7007              AMF.Internals.Links.Opposite_Element
7008               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
7009
7010         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Object_End_Action =>
7011            return
7012              AMF.Internals.Links.Opposite_Element
7013               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
7014
7015         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Object_End_Qualifier_Action =>
7016            return
7017              AMF.Internals.Links.Opposite_Element
7018               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
7019
7020         when AMF.Internals.Tables.UML_Types.E_UML_Read_Self_Action =>
7021            return
7022              AMF.Internals.Links.Opposite_Element
7023               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
7024
7025         when AMF.Internals.Tables.UML_Types.E_UML_Read_Structural_Feature_Action =>
7026            return
7027              AMF.Internals.Links.Opposite_Element
7028               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
7029
7030         when AMF.Internals.Tables.UML_Types.E_UML_Read_Variable_Action =>
7031            return
7032              AMF.Internals.Links.Opposite_Element
7033               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
7034
7035         when AMF.Internals.Tables.UML_Types.E_UML_Reclassify_Object_Action =>
7036            return
7037              AMF.Internals.Links.Opposite_Element
7038               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
7039
7040         when AMF.Internals.Tables.UML_Types.E_UML_Reduce_Action =>
7041            return
7042              AMF.Internals.Links.Opposite_Element
7043               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
7044
7045         when AMF.Internals.Tables.UML_Types.E_UML_Remove_Structural_Feature_Value_Action =>
7046            return
7047              AMF.Internals.Links.Opposite_Element
7048               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
7049
7050         when AMF.Internals.Tables.UML_Types.E_UML_Remove_Variable_Value_Action =>
7051            return
7052              AMF.Internals.Links.Opposite_Element
7053               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
7054
7055         when AMF.Internals.Tables.UML_Types.E_UML_Reply_Action =>
7056            return
7057              AMF.Internals.Links.Opposite_Element
7058               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
7059
7060         when AMF.Internals.Tables.UML_Types.E_UML_Send_Object_Action =>
7061            return
7062              AMF.Internals.Links.Opposite_Element
7063               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
7064
7065         when AMF.Internals.Tables.UML_Types.E_UML_Send_Signal_Action =>
7066            return
7067              AMF.Internals.Links.Opposite_Element
7068               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
7069
7070         when AMF.Internals.Tables.UML_Types.E_UML_Sequence_Node =>
7071            return
7072              AMF.Internals.Links.Opposite_Element
7073               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
7074
7075         when AMF.Internals.Tables.UML_Types.E_UML_Start_Classifier_Behavior_Action =>
7076            return
7077              AMF.Internals.Links.Opposite_Element
7078               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
7079
7080         when AMF.Internals.Tables.UML_Types.E_UML_Start_Object_Behavior_Action =>
7081            return
7082              AMF.Internals.Links.Opposite_Element
7083               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
7084
7085         when AMF.Internals.Tables.UML_Types.E_UML_Structured_Activity_Node =>
7086            return
7087              AMF.Internals.Links.Opposite_Element
7088               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
7089
7090         when AMF.Internals.Tables.UML_Types.E_UML_Test_Identity_Action =>
7091            return
7092              AMF.Internals.Links.Opposite_Element
7093               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
7094
7095         when AMF.Internals.Tables.UML_Types.E_UML_Unmarshall_Action =>
7096            return
7097              AMF.Internals.Links.Opposite_Element
7098               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
7099
7100         when AMF.Internals.Tables.UML_Types.E_UML_Value_Pin =>
7101            return
7102              AMF.Internals.Links.Opposite_Element
7103               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
7104
7105         when AMF.Internals.Tables.UML_Types.E_UML_Value_Specification_Action =>
7106            return
7107              AMF.Internals.Links.Opposite_Element
7108               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
7109
7110         when others =>
7111            raise Program_Error;
7112      end case;
7113   end Internal_Get_Activity;
7114
7115   ---------------------------------
7116   -- Internal_Get_Activity_Scope --
7117   ---------------------------------
7118
7119   function Internal_Get_Activity_Scope
7120    (Self : AMF.Internals.AMF_Element)
7121       return AMF.Internals.AMF_Element is
7122   begin
7123      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
7124         when AMF.Internals.Tables.UML_Types.E_UML_Variable =>
7125            return
7126              AMF.Internals.Links.Opposite_Element
7127               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Link, Self);
7128
7129         when others =>
7130            raise Program_Error;
7131      end case;
7132   end Internal_Get_Activity_Scope;
7133
7134   -------------------------
7135   -- Internal_Get_Actual --
7136   -------------------------
7137
7138   function Internal_Get_Actual
7139    (Self : AMF.Internals.AMF_Element)
7140       return AMF.Internals.AMF_Element is
7141   begin
7142      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
7143         when AMF.Internals.Tables.UML_Types.E_UML_Template_Parameter_Substitution =>
7144            return
7145              AMF.Internals.Links.Opposite_Element
7146               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (2).Link, Self);
7147
7148         when others =>
7149            raise Program_Error;
7150      end case;
7151   end Internal_Get_Actual;
7152
7153   ------------------------------
7154   -- Internal_Get_Actual_Gate --
7155   ------------------------------
7156
7157   function Internal_Get_Actual_Gate
7158    (Self : AMF.Internals.AMF_Element)
7159       return AMF.Internals.AMF_Collection_Of_Element is
7160   begin
7161      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
7162         when AMF.Internals.Tables.UML_Types.E_UML_Interaction_Use =>
7163            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
7164
7165         when AMF.Internals.Tables.UML_Types.E_UML_Part_Decomposition =>
7166            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
7167
7168         when others =>
7169            raise Program_Error;
7170      end case;
7171   end Internal_Get_Actual_Gate;
7172
7173   ---------------------------
7174   -- Internal_Get_Addition --
7175   ---------------------------
7176
7177   function Internal_Get_Addition
7178    (Self : AMF.Internals.AMF_Element)
7179       return AMF.Internals.AMF_Element is
7180   begin
7181      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
7182         when AMF.Internals.Tables.UML_Types.E_UML_Include =>
7183            return
7184              AMF.Internals.Links.Opposite_Element
7185               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Link, Self);
7186
7187         when others =>
7188            raise Program_Error;
7189      end case;
7190   end Internal_Get_Addition;
7191
7192   ------------------------
7193   -- Internal_Get_After --
7194   ------------------------
7195
7196   function Internal_Get_After
7197    (Self : AMF.Internals.AMF_Element)
7198       return AMF.Internals.AMF_Element is
7199   begin
7200      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
7201         when AMF.Internals.Tables.UML_Types.E_UML_General_Ordering =>
7202            return
7203              AMF.Internals.Links.Opposite_Element
7204               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Link, Self);
7205
7206         when others =>
7207            raise Program_Error;
7208      end case;
7209   end Internal_Get_After;
7210
7211   ------------------------------
7212   -- Internal_Get_Aggregation --
7213   ------------------------------
7214
7215   function Internal_Get_Aggregation
7216    (Self : AMF.Internals.AMF_Element)
7217       return AMF.UML.UML_Aggregation_Kind is
7218   begin
7219      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (22).Aggregation_Kind_Value;
7220   end Internal_Get_Aggregation;
7221
7222   ------------------------
7223   -- Internal_Get_Alias --
7224   ------------------------
7225
7226   function Internal_Get_Alias
7227    (Self : AMF.Internals.AMF_Element)
7228       return Matreshka.Internals.Strings.Shared_String_Access is
7229   begin
7230      return
7231        AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).String_Value;
7232   end Internal_Get_Alias;
7233
7234   --------------------------------------
7235   -- Internal_Get_Allow_Substitutable --
7236   --------------------------------------
7237
7238   function Internal_Get_Allow_Substitutable
7239    (Self : AMF.Internals.AMF_Element)
7240       return Boolean is
7241   begin
7242      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Boolean_Value;
7243   end Internal_Get_Allow_Substitutable;
7244
7245   ------------------------------------
7246   -- Internal_Get_Annotated_Element --
7247   ------------------------------------
7248
7249   function Internal_Get_Annotated_Element
7250    (Self : AMF.Internals.AMF_Element)
7251       return AMF.Internals.AMF_Collection_Of_Element is
7252   begin
7253      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
7254         when AMF.Internals.Tables.UML_Types.E_UML_Comment =>
7255            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
7256
7257         when others =>
7258            raise Program_Error;
7259      end case;
7260   end Internal_Get_Annotated_Element;
7261
7262   ----------------------------------
7263   -- Internal_Get_Applied_Profile --
7264   ----------------------------------
7265
7266   function Internal_Get_Applied_Profile
7267    (Self : AMF.Internals.AMF_Element)
7268       return AMF.Internals.AMF_Element is
7269   begin
7270      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
7271         when AMF.Internals.Tables.UML_Types.E_UML_Profile_Application =>
7272            return
7273              AMF.Internals.Links.Opposite_Element
7274               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (2).Link, Self);
7275
7276         when others =>
7277            raise Program_Error;
7278      end case;
7279   end Internal_Get_Applied_Profile;
7280
7281   -----------------------------------
7282   -- Internal_Get_Applying_Package --
7283   -----------------------------------
7284
7285   function Internal_Get_Applying_Package
7286    (Self : AMF.Internals.AMF_Element)
7287       return AMF.Internals.AMF_Element is
7288   begin
7289      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
7290         when AMF.Internals.Tables.UML_Types.E_UML_Profile_Application =>
7291            return
7292              AMF.Internals.Links.Opposite_Element
7293               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
7294
7295         when others =>
7296            raise Program_Error;
7297      end case;
7298   end Internal_Get_Applying_Package;
7299
7300   ---------------------------
7301   -- Internal_Get_Argument --
7302   ---------------------------
7303
7304   function Internal_Get_Argument
7305    (Self : AMF.Internals.AMF_Element)
7306       return AMF.Internals.AMF_Collection_Of_Element is
7307   begin
7308      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
7309         when AMF.Internals.Tables.UML_Types.E_UML_Broadcast_Signal_Action =>
7310            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 12;
7311
7312         when AMF.Internals.Tables.UML_Types.E_UML_Call_Behavior_Action =>
7313            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 12;
7314
7315         when AMF.Internals.Tables.UML_Types.E_UML_Call_Operation_Action =>
7316            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 12;
7317
7318         when AMF.Internals.Tables.UML_Types.E_UML_Interaction_Use =>
7319            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
7320
7321         when AMF.Internals.Tables.UML_Types.E_UML_Message =>
7322            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
7323
7324         when AMF.Internals.Tables.UML_Types.E_UML_Part_Decomposition =>
7325            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
7326
7327         when AMF.Internals.Tables.UML_Types.E_UML_Send_Object_Action =>
7328            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 12;
7329
7330         when AMF.Internals.Tables.UML_Types.E_UML_Send_Signal_Action =>
7331            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 12;
7332
7333         when AMF.Internals.Tables.UML_Types.E_UML_Start_Object_Behavior_Action =>
7334            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 12;
7335
7336         when others =>
7337            raise Program_Error;
7338      end case;
7339   end Internal_Get_Argument;
7340
7341   ------------------------------
7342   -- Internal_Get_Association --
7343   ------------------------------
7344
7345   function Internal_Get_Association
7346    (Self : AMF.Internals.AMF_Element)
7347       return AMF.Internals.AMF_Element is
7348   begin
7349      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
7350         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Association_Action =>
7351            return
7352              AMF.Internals.Links.Opposite_Element
7353               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Link, Self);
7354
7355         when AMF.Internals.Tables.UML_Types.E_UML_Extension_End =>
7356            return
7357              AMF.Internals.Links.Opposite_Element
7358               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (23).Link, Self);
7359
7360         when AMF.Internals.Tables.UML_Types.E_UML_Port =>
7361            return
7362              AMF.Internals.Links.Opposite_Element
7363               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (23).Link, Self);
7364
7365         when AMF.Internals.Tables.UML_Types.E_UML_Property =>
7366            return
7367              AMF.Internals.Links.Opposite_Element
7368               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (23).Link, Self);
7369
7370         when others =>
7371            raise Program_Error;
7372      end case;
7373   end Internal_Get_Association;
7374
7375   ----------------------------------
7376   -- Internal_Get_Association_End --
7377   ----------------------------------
7378
7379   function Internal_Get_Association_End
7380    (Self : AMF.Internals.AMF_Element)
7381       return AMF.Internals.AMF_Element is
7382   begin
7383      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
7384         when AMF.Internals.Tables.UML_Types.E_UML_Extension_End =>
7385            return
7386              AMF.Internals.Links.Opposite_Element
7387               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (25).Link, Self);
7388
7389         when AMF.Internals.Tables.UML_Types.E_UML_Port =>
7390            return
7391              AMF.Internals.Links.Opposite_Element
7392               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (25).Link, Self);
7393
7394         when AMF.Internals.Tables.UML_Types.E_UML_Property =>
7395            return
7396              AMF.Internals.Links.Opposite_Element
7397               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (25).Link, Self);
7398
7399         when others =>
7400            raise Program_Error;
7401      end case;
7402   end Internal_Get_Association_End;
7403
7404   ----------------------------
7405   -- Internal_Get_Attribute --
7406   ----------------------------
7407
7408   function Internal_Get_Attribute
7409    (Self : AMF.Internals.AMF_Element)
7410       return AMF.Internals.AMF_Collection_Of_Element is
7411   begin
7412      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
7413         when AMF.Internals.Tables.UML_Types.E_UML_Activity =>
7414            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
7415
7416         when AMF.Internals.Tables.UML_Types.E_UML_Actor =>
7417            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
7418
7419         when AMF.Internals.Tables.UML_Types.E_UML_Artifact =>
7420            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
7421
7422         when AMF.Internals.Tables.UML_Types.E_UML_Association =>
7423            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
7424
7425         when AMF.Internals.Tables.UML_Types.E_UML_Association_Class =>
7426            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
7427
7428         when AMF.Internals.Tables.UML_Types.E_UML_Class =>
7429            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
7430
7431         when AMF.Internals.Tables.UML_Types.E_UML_Collaboration =>
7432            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
7433
7434         when AMF.Internals.Tables.UML_Types.E_UML_Communication_Path =>
7435            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
7436
7437         when AMF.Internals.Tables.UML_Types.E_UML_Component =>
7438            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
7439
7440         when AMF.Internals.Tables.UML_Types.E_UML_Data_Type =>
7441            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
7442
7443         when AMF.Internals.Tables.UML_Types.E_UML_Deployment_Specification =>
7444            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
7445
7446         when AMF.Internals.Tables.UML_Types.E_UML_Device =>
7447            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
7448
7449         when AMF.Internals.Tables.UML_Types.E_UML_Enumeration =>
7450            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
7451
7452         when AMF.Internals.Tables.UML_Types.E_UML_Execution_Environment =>
7453            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
7454
7455         when AMF.Internals.Tables.UML_Types.E_UML_Extension =>
7456            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
7457
7458         when AMF.Internals.Tables.UML_Types.E_UML_Function_Behavior =>
7459            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
7460
7461         when AMF.Internals.Tables.UML_Types.E_UML_Information_Item =>
7462            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
7463
7464         when AMF.Internals.Tables.UML_Types.E_UML_Interaction =>
7465            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
7466
7467         when AMF.Internals.Tables.UML_Types.E_UML_Interface =>
7468            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
7469
7470         when AMF.Internals.Tables.UML_Types.E_UML_Node =>
7471            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
7472
7473         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Behavior =>
7474            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
7475
7476         when AMF.Internals.Tables.UML_Types.E_UML_Primitive_Type =>
7477            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
7478
7479         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_State_Machine =>
7480            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
7481
7482         when AMF.Internals.Tables.UML_Types.E_UML_Signal =>
7483            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
7484
7485         when AMF.Internals.Tables.UML_Types.E_UML_State_Machine =>
7486            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
7487
7488         when AMF.Internals.Tables.UML_Types.E_UML_Stereotype =>
7489            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
7490
7491         when AMF.Internals.Tables.UML_Types.E_UML_Use_Case =>
7492            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
7493
7494         when others =>
7495            raise Program_Error;
7496      end case;
7497   end Internal_Get_Attribute;
7498
7499   -----------------------------------
7500   -- Internal_Get_Base_Abstraction --
7501   -----------------------------------
7502
7503   function Internal_Get_Base_Abstraction
7504    (Self : AMF.Internals.AMF_Element)
7505       return AMF.Internals.AMF_Element is
7506   begin
7507      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
7508         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Derive =>
7509            return
7510              AMF.Internals.Links.Opposite_Element
7511               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
7512
7513         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Refine =>
7514            return
7515              AMF.Internals.Links.Opposite_Element
7516               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
7517
7518         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Trace =>
7519            return
7520              AMF.Internals.Links.Opposite_Element
7521               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
7522
7523         when others =>
7524            raise Program_Error;
7525      end case;
7526   end Internal_Get_Base_Abstraction;
7527
7528   --------------------------------
7529   -- Internal_Get_Base_Artifact --
7530   --------------------------------
7531
7532   function Internal_Get_Base_Artifact
7533    (Self : AMF.Internals.AMF_Element)
7534       return AMF.Internals.AMF_Element is
7535   begin
7536      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
7537         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Document =>
7538            return
7539              AMF.Internals.Links.Opposite_Element
7540               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (2).Link, Self);
7541
7542         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Executable =>
7543            return
7544              AMF.Internals.Links.Opposite_Element
7545               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (2).Link, Self);
7546
7547         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Library =>
7548            return
7549              AMF.Internals.Links.Opposite_Element
7550               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
7551
7552         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Script =>
7553            return
7554              AMF.Internals.Links.Opposite_Element
7555               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
7556
7557         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Source =>
7558            return
7559              AMF.Internals.Links.Opposite_Element
7560               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
7561
7562         when others =>
7563            raise Program_Error;
7564      end case;
7565   end Internal_Get_Base_Artifact;
7566
7567   ------------------------------------------
7568   -- Internal_Get_Base_Behavioral_Feature --
7569   ------------------------------------------
7570
7571   function Internal_Get_Base_Behavioral_Feature
7572    (Self : AMF.Internals.AMF_Element)
7573       return AMF.Internals.AMF_Element is
7574   begin
7575      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
7576         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Create =>
7577            return
7578              AMF.Internals.Links.Opposite_Element
7579               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
7580
7581         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Destroy =>
7582            return
7583              AMF.Internals.Links.Opposite_Element
7584               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
7585
7586         when others =>
7587            raise Program_Error;
7588      end case;
7589   end Internal_Get_Base_Behavioral_Feature;
7590
7591   -----------------------------
7592   -- Internal_Get_Base_Class --
7593   -----------------------------
7594
7595   function Internal_Get_Base_Class
7596    (Self : AMF.Internals.AMF_Element)
7597       return AMF.Internals.AMF_Element is
7598   begin
7599      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
7600         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Auxiliary =>
7601            return
7602              AMF.Internals.Links.Opposite_Element
7603               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
7604
7605         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Focus =>
7606            return
7607              AMF.Internals.Links.Opposite_Element
7608               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
7609
7610         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Implementation_Class =>
7611            return
7612              AMF.Internals.Links.Opposite_Element
7613               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
7614
7615         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Metaclass =>
7616            return
7617              AMF.Internals.Links.Opposite_Element
7618               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
7619
7620         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Type =>
7621            return
7622              AMF.Internals.Links.Opposite_Element
7623               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
7624
7625         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Utility =>
7626            return
7627              AMF.Internals.Links.Opposite_Element
7628               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
7629
7630         when others =>
7631            raise Program_Error;
7632      end case;
7633   end Internal_Get_Base_Class;
7634
7635   ----------------------------------
7636   -- Internal_Get_Base_Classifier --
7637   ----------------------------------
7638
7639   function Internal_Get_Base_Classifier
7640    (Self : AMF.Internals.AMF_Element)
7641       return AMF.Internals.AMF_Element is
7642   begin
7643      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
7644         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Realization =>
7645            return
7646              AMF.Internals.Links.Opposite_Element
7647               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
7648
7649         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Specification =>
7650            return
7651              AMF.Internals.Links.Opposite_Element
7652               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
7653
7654         when others =>
7655            raise Program_Error;
7656      end case;
7657   end Internal_Get_Base_Classifier;
7658
7659   ---------------------------------
7660   -- Internal_Get_Base_Component --
7661   ---------------------------------
7662
7663   function Internal_Get_Base_Component
7664    (Self : AMF.Internals.AMF_Element)
7665       return AMF.Internals.AMF_Element is
7666   begin
7667      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
7668         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Entity =>
7669            return
7670              AMF.Internals.Links.Opposite_Element
7671               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
7672
7673         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Implement =>
7674            return
7675              AMF.Internals.Links.Opposite_Element
7676               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
7677
7678         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Process =>
7679            return
7680              AMF.Internals.Links.Opposite_Element
7681               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
7682
7683         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Service =>
7684            return
7685              AMF.Internals.Links.Opposite_Element
7686               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
7687
7688         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Subsystem =>
7689            return
7690              AMF.Internals.Links.Opposite_Element
7691               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
7692
7693         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L3_Build_Component =>
7694            return
7695              AMF.Internals.Links.Opposite_Element
7696               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
7697
7698         when others =>
7699            raise Program_Error;
7700      end case;
7701   end Internal_Get_Base_Component;
7702
7703   -----------------------------
7704   -- Internal_Get_Base_Model --
7705   -----------------------------
7706
7707   function Internal_Get_Base_Model
7708    (Self : AMF.Internals.AMF_Element)
7709       return AMF.Internals.AMF_Element is
7710   begin
7711      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
7712         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L3_Metamodel =>
7713            return
7714              AMF.Internals.Links.Opposite_Element
7715               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
7716
7717         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L3_System_Model =>
7718            return
7719              AMF.Internals.Links.Opposite_Element
7720               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
7721
7722         when others =>
7723            raise Program_Error;
7724      end case;
7725   end Internal_Get_Base_Model;
7726
7727   -------------------------------
7728   -- Internal_Get_Base_Package --
7729   -------------------------------
7730
7731   function Internal_Get_Base_Package
7732    (Self : AMF.Internals.AMF_Element)
7733       return AMF.Internals.AMF_Element is
7734   begin
7735      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
7736         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Framework =>
7737            return
7738              AMF.Internals.Links.Opposite_Element
7739               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
7740
7741         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Model_Library =>
7742            return
7743              AMF.Internals.Links.Opposite_Element
7744               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
7745
7746         when others =>
7747            raise Program_Error;
7748      end case;
7749   end Internal_Get_Base_Package;
7750
7751   -----------------------------
7752   -- Internal_Get_Base_Usage --
7753   -----------------------------
7754
7755   function Internal_Get_Base_Usage
7756    (Self : AMF.Internals.AMF_Element)
7757       return AMF.Internals.AMF_Element is
7758   begin
7759      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
7760         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Call =>
7761            return
7762              AMF.Internals.Links.Opposite_Element
7763               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
7764
7765         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Create =>
7766            return
7767              AMF.Internals.Links.Opposite_Element
7768               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (2).Link, Self);
7769
7770         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Instantiate =>
7771            return
7772              AMF.Internals.Links.Opposite_Element
7773               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
7774
7775         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Responsibility =>
7776            return
7777              AMF.Internals.Links.Opposite_Element
7778               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
7779
7780         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Send =>
7781            return
7782              AMF.Internals.Links.Opposite_Element
7783               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
7784
7785         when others =>
7786            raise Program_Error;
7787      end case;
7788   end Internal_Get_Base_Usage;
7789
7790   -------------------------
7791   -- Internal_Get_Before --
7792   -------------------------
7793
7794   function Internal_Get_Before
7795    (Self : AMF.Internals.AMF_Element)
7796       return AMF.Internals.AMF_Element is
7797   begin
7798      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
7799         when AMF.Internals.Tables.UML_Types.E_UML_General_Ordering =>
7800            return
7801              AMF.Internals.Links.Opposite_Element
7802               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
7803
7804         when others =>
7805            raise Program_Error;
7806      end case;
7807   end Internal_Get_Before;
7808
7809   ---------------------------
7810   -- Internal_Get_Behavior --
7811   ---------------------------
7812
7813   function Internal_Get_Behavior
7814    (Self : AMF.Internals.AMF_Element)
7815       return AMF.Internals.AMF_Element is
7816   begin
7817      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
7818         when AMF.Internals.Tables.UML_Types.E_UML_Behavior_Execution_Specification =>
7819            return
7820              AMF.Internals.Links.Opposite_Element
7821               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
7822
7823         when AMF.Internals.Tables.UML_Types.E_UML_Call_Behavior_Action =>
7824            return
7825              AMF.Internals.Links.Opposite_Element
7826               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Link, Self);
7827
7828         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Expression =>
7829            return
7830              AMF.Internals.Links.Opposite_Element
7831               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Link, Self);
7832
7833         when others =>
7834            raise Program_Error;
7835      end case;
7836   end Internal_Get_Behavior;
7837
7838   -----------------------
7839   -- Internal_Get_Body --
7840   -----------------------
7841
7842   function Internal_Get_Body
7843    (Self : AMF.Internals.AMF_Element)
7844       return AMF.Internals.AMF_Collection_Of_Element is
7845   begin
7846      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
7847         when AMF.Internals.Tables.UML_Types.E_UML_Clause =>
7848            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
7849
7850         when others =>
7851            raise Program_Error;
7852      end case;
7853   end Internal_Get_Body;
7854
7855   -----------------------
7856   -- Internal_Get_Body --
7857   -----------------------
7858
7859   function Internal_Get_Body
7860    (Self : AMF.Internals.AMF_Element)
7861       return Matreshka.Internals.Strings.Shared_String_Access is
7862   begin
7863      return
7864        AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (2).String_Value;
7865   end Internal_Get_Body;
7866
7867   -----------------------
7868   -- Internal_Get_Body --
7869   -----------------------
7870
7871   function Internal_Get_Body
7872    (Self : AMF.Internals.AMF_Element)
7873       return AMF.Internals.AMF_Collection_Of_String is
7874   begin
7875      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (18).String_Collection;
7876   end Internal_Get_Body;
7877
7878   ---------------------------------
7879   -- Internal_Get_Body_Condition --
7880   ---------------------------------
7881
7882   function Internal_Get_Body_Condition
7883    (Self : AMF.Internals.AMF_Element)
7884       return AMF.Internals.AMF_Element is
7885   begin
7886      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
7887         when AMF.Internals.Tables.UML_Types.E_UML_Operation =>
7888            return
7889              AMF.Internals.Links.Opposite_Element
7890               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (18).Link, Self);
7891
7892         when others =>
7893            raise Program_Error;
7894      end case;
7895   end Internal_Get_Body_Condition;
7896
7897   ------------------------------
7898   -- Internal_Get_Body_Output --
7899   ------------------------------
7900
7901   function Internal_Get_Body_Output
7902    (Self : AMF.Internals.AMF_Element)
7903       return AMF.Internals.AMF_Collection_Of_Element is
7904   begin
7905      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
7906         when AMF.Internals.Tables.UML_Types.E_UML_Clause =>
7907            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
7908
7909         when AMF.Internals.Tables.UML_Types.E_UML_Loop_Node =>
7910            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 31;
7911
7912         when others =>
7913            raise Program_Error;
7914      end case;
7915   end Internal_Get_Body_Output;
7916
7917   ----------------------------
7918   -- Internal_Get_Body_Part --
7919   ----------------------------
7920
7921   function Internal_Get_Body_Part
7922    (Self : AMF.Internals.AMF_Element)
7923       return AMF.Internals.AMF_Collection_Of_Element is
7924   begin
7925      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
7926         when AMF.Internals.Tables.UML_Types.E_UML_Loop_Node =>
7927            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 32;
7928
7929         when others =>
7930            raise Program_Error;
7931      end case;
7932   end Internal_Get_Body_Part;
7933
7934   --------------------------------
7935   -- Internal_Get_Bound_Element --
7936   --------------------------------
7937
7938   function Internal_Get_Bound_Element
7939    (Self : AMF.Internals.AMF_Element)
7940       return AMF.Internals.AMF_Element is
7941   begin
7942      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
7943         when AMF.Internals.Tables.UML_Types.E_UML_Template_Binding =>
7944            return
7945              AMF.Internals.Links.Opposite_Element
7946               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (2).Link, Self);
7947
7948         when others =>
7949            raise Program_Error;
7950      end case;
7951   end Internal_Get_Bound_Element;
7952
7953   -------------------------
7954   -- Internal_Get_Bounds --
7955   -------------------------
7956
7957   function Internal_Get_Bounds
7958    (Self : AMF.Internals.AMF_Element)
7959       return AMF.DC.Optional_DC_Bounds is
7960   begin
7961      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (17).Bounds_Holder;
7962   end Internal_Get_Bounds;
7963
7964   ---------------------------------
7965   -- Internal_Get_Cfragment_Gate --
7966   ---------------------------------
7967
7968   function Internal_Get_Cfragment_Gate
7969    (Self : AMF.Internals.AMF_Element)
7970       return AMF.Internals.AMF_Collection_Of_Element is
7971   begin
7972      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
7973         when AMF.Internals.Tables.UML_Types.E_UML_Combined_Fragment =>
7974            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
7975
7976         when AMF.Internals.Tables.UML_Types.E_UML_Consider_Ignore_Fragment =>
7977            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
7978
7979         when others =>
7980            raise Program_Error;
7981      end case;
7982   end Internal_Get_Cfragment_Gate;
7983
7984   ------------------------------------
7985   -- Internal_Get_Change_Expression --
7986   ------------------------------------
7987
7988   function Internal_Get_Change_Expression
7989    (Self : AMF.Internals.AMF_Element)
7990       return AMF.Internals.AMF_Element is
7991   begin
7992      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
7993         when AMF.Internals.Tables.UML_Types.E_UML_Change_Event =>
7994            return
7995              AMF.Internals.Links.Opposite_Element
7996               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Link, Self);
7997
7998         when others =>
7999            raise Program_Error;
8000      end case;
8001   end Internal_Get_Change_Expression;
8002
8003   ------------------------
8004   -- Internal_Get_Class --
8005   ------------------------
8006
8007   function Internal_Get_Class
8008    (Self : AMF.Internals.AMF_Element)
8009       return AMF.Internals.AMF_Element is
8010   begin
8011      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
8012         when AMF.Internals.Tables.UML_Types.E_UML_Extension_End =>
8013            return
8014              AMF.Internals.Links.Opposite_Element
8015               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (26).Link, Self);
8016
8017         when AMF.Internals.Tables.UML_Types.E_UML_Operation =>
8018            return
8019              AMF.Internals.Links.Opposite_Element
8020               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (19).Link, Self);
8021
8022         when AMF.Internals.Tables.UML_Types.E_UML_Port =>
8023            return
8024              AMF.Internals.Links.Opposite_Element
8025               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (26).Link, Self);
8026
8027         when AMF.Internals.Tables.UML_Types.E_UML_Property =>
8028            return
8029              AMF.Internals.Links.Opposite_Element
8030               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (26).Link, Self);
8031
8032         when others =>
8033            raise Program_Error;
8034      end case;
8035   end Internal_Get_Class;
8036
8037   -----------------------------
8038   -- Internal_Get_Classifier --
8039   -----------------------------
8040
8041   function Internal_Get_Classifier
8042    (Self : AMF.Internals.AMF_Element)
8043       return AMF.Internals.AMF_Element is
8044   begin
8045      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
8046         when AMF.Internals.Tables.UML_Types.E_UML_Create_Object_Action =>
8047            return
8048              AMF.Internals.Links.Opposite_Element
8049               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Link, Self);
8050
8051         when AMF.Internals.Tables.UML_Types.E_UML_Enumeration_Literal =>
8052            return
8053              AMF.Internals.Links.Opposite_Element
8054               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
8055
8056         when AMF.Internals.Tables.UML_Types.E_UML_Read_Extent_Action =>
8057            return
8058              AMF.Internals.Links.Opposite_Element
8059               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Link, Self);
8060
8061         when AMF.Internals.Tables.UML_Types.E_UML_Read_Is_Classified_Object_Action =>
8062            return
8063              AMF.Internals.Links.Opposite_Element
8064               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Link, Self);
8065
8066         when AMF.Internals.Tables.UML_Types.E_UML_Redefinable_Template_Signature =>
8067            return
8068              AMF.Internals.Links.Opposite_Element
8069               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
8070
8071         when others =>
8072            raise Program_Error;
8073      end case;
8074   end Internal_Get_Classifier;
8075
8076   -----------------------------
8077   -- Internal_Get_Classifier --
8078   -----------------------------
8079
8080   function Internal_Get_Classifier
8081    (Self : AMF.Internals.AMF_Element)
8082       return AMF.Internals.AMF_Collection_Of_Element is
8083   begin
8084      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
8085         when AMF.Internals.Tables.UML_Types.E_UML_Enumeration_Literal =>
8086            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
8087
8088         when AMF.Internals.Tables.UML_Types.E_UML_Instance_Specification =>
8089            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
8090
8091         when others =>
8092            raise Program_Error;
8093      end case;
8094   end Internal_Get_Classifier;
8095
8096   --------------------------------------
8097   -- Internal_Get_Classifier_Behavior --
8098   --------------------------------------
8099
8100   function Internal_Get_Classifier_Behavior
8101    (Self : AMF.Internals.AMF_Element)
8102       return AMF.Internals.AMF_Element is
8103   begin
8104      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
8105         when AMF.Internals.Tables.UML_Types.E_UML_Activity =>
8106            return
8107              AMF.Internals.Links.Opposite_Element
8108               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (17).Link, Self);
8109
8110         when AMF.Internals.Tables.UML_Types.E_UML_Actor =>
8111            return
8112              AMF.Internals.Links.Opposite_Element
8113               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (17).Link, Self);
8114
8115         when AMF.Internals.Tables.UML_Types.E_UML_Association_Class =>
8116            return
8117              AMF.Internals.Links.Opposite_Element
8118               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (17).Link, Self);
8119
8120         when AMF.Internals.Tables.UML_Types.E_UML_Class =>
8121            return
8122              AMF.Internals.Links.Opposite_Element
8123               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (17).Link, Self);
8124
8125         when AMF.Internals.Tables.UML_Types.E_UML_Collaboration =>
8126            return
8127              AMF.Internals.Links.Opposite_Element
8128               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (17).Link, Self);
8129
8130         when AMF.Internals.Tables.UML_Types.E_UML_Component =>
8131            return
8132              AMF.Internals.Links.Opposite_Element
8133               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (17).Link, Self);
8134
8135         when AMF.Internals.Tables.UML_Types.E_UML_Device =>
8136            return
8137              AMF.Internals.Links.Opposite_Element
8138               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (17).Link, Self);
8139
8140         when AMF.Internals.Tables.UML_Types.E_UML_Execution_Environment =>
8141            return
8142              AMF.Internals.Links.Opposite_Element
8143               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (17).Link, Self);
8144
8145         when AMF.Internals.Tables.UML_Types.E_UML_Function_Behavior =>
8146            return
8147              AMF.Internals.Links.Opposite_Element
8148               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (17).Link, Self);
8149
8150         when AMF.Internals.Tables.UML_Types.E_UML_Interaction =>
8151            return
8152              AMF.Internals.Links.Opposite_Element
8153               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (17).Link, Self);
8154
8155         when AMF.Internals.Tables.UML_Types.E_UML_Node =>
8156            return
8157              AMF.Internals.Links.Opposite_Element
8158               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (17).Link, Self);
8159
8160         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Behavior =>
8161            return
8162              AMF.Internals.Links.Opposite_Element
8163               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (17).Link, Self);
8164
8165         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_State_Machine =>
8166            return
8167              AMF.Internals.Links.Opposite_Element
8168               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (17).Link, Self);
8169
8170         when AMF.Internals.Tables.UML_Types.E_UML_State_Machine =>
8171            return
8172              AMF.Internals.Links.Opposite_Element
8173               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (17).Link, Self);
8174
8175         when AMF.Internals.Tables.UML_Types.E_UML_Stereotype =>
8176            return
8177              AMF.Internals.Links.Opposite_Element
8178               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (17).Link, Self);
8179
8180         when AMF.Internals.Tables.UML_Types.E_UML_Use_Case =>
8181            return
8182              AMF.Internals.Links.Opposite_Element
8183               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (17).Link, Self);
8184
8185         when others =>
8186            raise Program_Error;
8187      end case;
8188   end Internal_Get_Classifier_Behavior;
8189
8190   -------------------------
8191   -- Internal_Get_Clause --
8192   -------------------------
8193
8194   function Internal_Get_Clause
8195    (Self : AMF.Internals.AMF_Element)
8196       return AMF.Internals.AMF_Collection_Of_Element is
8197   begin
8198      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
8199         when AMF.Internals.Tables.UML_Types.E_UML_Conditional_Node =>
8200            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 31;
8201
8202         when others =>
8203            raise Program_Error;
8204      end case;
8205   end Internal_Get_Clause;
8206
8207   -------------------------
8208   -- Internal_Get_Client --
8209   -------------------------
8210
8211   function Internal_Get_Client
8212    (Self : AMF.Internals.AMF_Element)
8213       return AMF.Internals.AMF_Collection_Of_Element is
8214   begin
8215      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
8216         when AMF.Internals.Tables.UML_Types.E_UML_Abstraction =>
8217            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
8218
8219         when AMF.Internals.Tables.UML_Types.E_UML_Component_Realization =>
8220            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
8221
8222         when AMF.Internals.Tables.UML_Types.E_UML_Dependency =>
8223            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
8224
8225         when AMF.Internals.Tables.UML_Types.E_UML_Deployment =>
8226            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
8227
8228         when AMF.Internals.Tables.UML_Types.E_UML_Interface_Realization =>
8229            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
8230
8231         when AMF.Internals.Tables.UML_Types.E_UML_Manifestation =>
8232            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
8233
8234         when AMF.Internals.Tables.UML_Types.E_UML_Realization =>
8235            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
8236
8237         when AMF.Internals.Tables.UML_Types.E_UML_Substitution =>
8238            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
8239
8240         when AMF.Internals.Tables.UML_Types.E_UML_Usage =>
8241            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
8242
8243         when others =>
8244            raise Program_Error;
8245      end case;
8246   end Internal_Get_Client;
8247
8248   ------------------------------------
8249   -- Internal_Get_Client_Dependency --
8250   ------------------------------------
8251
8252   function Internal_Get_Client_Dependency
8253    (Self : AMF.Internals.AMF_Element)
8254       return AMF.Internals.AMF_Collection_Of_Element is
8255   begin
8256      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
8257         when AMF.Internals.Tables.UML_Types.E_UML_Abstraction =>
8258            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8259
8260         when AMF.Internals.Tables.UML_Types.E_UML_Accept_Call_Action =>
8261            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8262
8263         when AMF.Internals.Tables.UML_Types.E_UML_Accept_Event_Action =>
8264            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8265
8266         when AMF.Internals.Tables.UML_Types.E_UML_Action_Execution_Specification =>
8267            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8268
8269         when AMF.Internals.Tables.UML_Types.E_UML_Action_Input_Pin =>
8270            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8271
8272         when AMF.Internals.Tables.UML_Types.E_UML_Activity =>
8273            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8274
8275         when AMF.Internals.Tables.UML_Types.E_UML_Activity_Final_Node =>
8276            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8277
8278         when AMF.Internals.Tables.UML_Types.E_UML_Activity_Parameter_Node =>
8279            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8280
8281         when AMF.Internals.Tables.UML_Types.E_UML_Activity_Partition =>
8282            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8283
8284         when AMF.Internals.Tables.UML_Types.E_UML_Actor =>
8285            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8286
8287         when AMF.Internals.Tables.UML_Types.E_UML_Add_Structural_Feature_Value_Action =>
8288            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8289
8290         when AMF.Internals.Tables.UML_Types.E_UML_Add_Variable_Value_Action =>
8291            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8292
8293         when AMF.Internals.Tables.UML_Types.E_UML_Any_Receive_Event =>
8294            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8295
8296         when AMF.Internals.Tables.UML_Types.E_UML_Artifact =>
8297            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8298
8299         when AMF.Internals.Tables.UML_Types.E_UML_Association =>
8300            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8301
8302         when AMF.Internals.Tables.UML_Types.E_UML_Association_Class =>
8303            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8304
8305         when AMF.Internals.Tables.UML_Types.E_UML_Behavior_Execution_Specification =>
8306            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8307
8308         when AMF.Internals.Tables.UML_Types.E_UML_Broadcast_Signal_Action =>
8309            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8310
8311         when AMF.Internals.Tables.UML_Types.E_UML_Call_Behavior_Action =>
8312            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8313
8314         when AMF.Internals.Tables.UML_Types.E_UML_Call_Event =>
8315            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8316
8317         when AMF.Internals.Tables.UML_Types.E_UML_Call_Operation_Action =>
8318            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8319
8320         when AMF.Internals.Tables.UML_Types.E_UML_Central_Buffer_Node =>
8321            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8322
8323         when AMF.Internals.Tables.UML_Types.E_UML_Change_Event =>
8324            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8325
8326         when AMF.Internals.Tables.UML_Types.E_UML_Class =>
8327            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8328
8329         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Association_Action =>
8330            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8331
8332         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Structural_Feature_Action =>
8333            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8334
8335         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Variable_Action =>
8336            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8337
8338         when AMF.Internals.Tables.UML_Types.E_UML_Collaboration =>
8339            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8340
8341         when AMF.Internals.Tables.UML_Types.E_UML_Collaboration_Use =>
8342            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8343
8344         when AMF.Internals.Tables.UML_Types.E_UML_Combined_Fragment =>
8345            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8346
8347         when AMF.Internals.Tables.UML_Types.E_UML_Communication_Path =>
8348            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8349
8350         when AMF.Internals.Tables.UML_Types.E_UML_Component =>
8351            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8352
8353         when AMF.Internals.Tables.UML_Types.E_UML_Component_Realization =>
8354            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8355
8356         when AMF.Internals.Tables.UML_Types.E_UML_Conditional_Node =>
8357            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8358
8359         when AMF.Internals.Tables.UML_Types.E_UML_Connection_Point_Reference =>
8360            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8361
8362         when AMF.Internals.Tables.UML_Types.E_UML_Connector =>
8363            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8364
8365         when AMF.Internals.Tables.UML_Types.E_UML_Consider_Ignore_Fragment =>
8366            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8367
8368         when AMF.Internals.Tables.UML_Types.E_UML_Constraint =>
8369            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8370
8371         when AMF.Internals.Tables.UML_Types.E_UML_Continuation =>
8372            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8373
8374         when AMF.Internals.Tables.UML_Types.E_UML_Control_Flow =>
8375            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8376
8377         when AMF.Internals.Tables.UML_Types.E_UML_Create_Link_Action =>
8378            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8379
8380         when AMF.Internals.Tables.UML_Types.E_UML_Create_Link_Object_Action =>
8381            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8382
8383         when AMF.Internals.Tables.UML_Types.E_UML_Create_Object_Action =>
8384            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8385
8386         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Activity_Diagram =>
8387            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8388
8389         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Class_Diagram =>
8390            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8391
8392         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Component_Diagram =>
8393            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8394
8395         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Composite_Structure_Diagram =>
8396            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8397
8398         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Deployment_Diagram =>
8399            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8400
8401         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Interaction_Diagram =>
8402            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8403
8404         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Object_Diagram =>
8405            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8406
8407         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Package_Diagram =>
8408            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8409
8410         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Profile_Diagram =>
8411            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8412
8413         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_State_Machine_Diagram =>
8414            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8415
8416         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Style =>
8417            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8418
8419         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Use_Case_Diagram =>
8420            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8421
8422         when AMF.Internals.Tables.UML_Types.E_UML_Data_Store_Node =>
8423            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8424
8425         when AMF.Internals.Tables.UML_Types.E_UML_Data_Type =>
8426            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8427
8428         when AMF.Internals.Tables.UML_Types.E_UML_Decision_Node =>
8429            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8430
8431         when AMF.Internals.Tables.UML_Types.E_UML_Dependency =>
8432            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8433
8434         when AMF.Internals.Tables.UML_Types.E_UML_Deployment =>
8435            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8436
8437         when AMF.Internals.Tables.UML_Types.E_UML_Deployment_Specification =>
8438            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8439
8440         when AMF.Internals.Tables.UML_Types.E_UML_Destroy_Link_Action =>
8441            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8442
8443         when AMF.Internals.Tables.UML_Types.E_UML_Destroy_Object_Action =>
8444            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8445
8446         when AMF.Internals.Tables.UML_Types.E_UML_Destruction_Occurrence_Specification =>
8447            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8448
8449         when AMF.Internals.Tables.UML_Types.E_UML_Device =>
8450            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8451
8452         when AMF.Internals.Tables.UML_Types.E_UML_Duration =>
8453            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8454
8455         when AMF.Internals.Tables.UML_Types.E_UML_Duration_Constraint =>
8456            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8457
8458         when AMF.Internals.Tables.UML_Types.E_UML_Duration_Interval =>
8459            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8460
8461         when AMF.Internals.Tables.UML_Types.E_UML_Duration_Observation =>
8462            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8463
8464         when AMF.Internals.Tables.UML_Types.E_UML_Enumeration =>
8465            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8466
8467         when AMF.Internals.Tables.UML_Types.E_UML_Enumeration_Literal =>
8468            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8469
8470         when AMF.Internals.Tables.UML_Types.E_UML_Execution_Environment =>
8471            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8472
8473         when AMF.Internals.Tables.UML_Types.E_UML_Execution_Occurrence_Specification =>
8474            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8475
8476         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Node =>
8477            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8478
8479         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Region =>
8480            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8481
8482         when AMF.Internals.Tables.UML_Types.E_UML_Expression =>
8483            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8484
8485         when AMF.Internals.Tables.UML_Types.E_UML_Extend =>
8486            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8487
8488         when AMF.Internals.Tables.UML_Types.E_UML_Extension =>
8489            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8490
8491         when AMF.Internals.Tables.UML_Types.E_UML_Extension_End =>
8492            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8493
8494         when AMF.Internals.Tables.UML_Types.E_UML_Extension_Point =>
8495            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8496
8497         when AMF.Internals.Tables.UML_Types.E_UML_Final_State =>
8498            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8499
8500         when AMF.Internals.Tables.UML_Types.E_UML_Flow_Final_Node =>
8501            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8502
8503         when AMF.Internals.Tables.UML_Types.E_UML_Fork_Node =>
8504            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8505
8506         when AMF.Internals.Tables.UML_Types.E_UML_Function_Behavior =>
8507            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8508
8509         when AMF.Internals.Tables.UML_Types.E_UML_Gate =>
8510            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8511
8512         when AMF.Internals.Tables.UML_Types.E_UML_General_Ordering =>
8513            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8514
8515         when AMF.Internals.Tables.UML_Types.E_UML_Generalization_Set =>
8516            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8517
8518         when AMF.Internals.Tables.UML_Types.E_UML_Include =>
8519            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8520
8521         when AMF.Internals.Tables.UML_Types.E_UML_Information_Flow =>
8522            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8523
8524         when AMF.Internals.Tables.UML_Types.E_UML_Information_Item =>
8525            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8526
8527         when AMF.Internals.Tables.UML_Types.E_UML_Initial_Node =>
8528            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8529
8530         when AMF.Internals.Tables.UML_Types.E_UML_Input_Pin =>
8531            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8532
8533         when AMF.Internals.Tables.UML_Types.E_UML_Instance_Specification =>
8534            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8535
8536         when AMF.Internals.Tables.UML_Types.E_UML_Instance_Value =>
8537            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8538
8539         when AMF.Internals.Tables.UML_Types.E_UML_Interaction =>
8540            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8541
8542         when AMF.Internals.Tables.UML_Types.E_UML_Interaction_Constraint =>
8543            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8544
8545         when AMF.Internals.Tables.UML_Types.E_UML_Interaction_Operand =>
8546            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8547
8548         when AMF.Internals.Tables.UML_Types.E_UML_Interaction_Use =>
8549            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8550
8551         when AMF.Internals.Tables.UML_Types.E_UML_Interface =>
8552            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8553
8554         when AMF.Internals.Tables.UML_Types.E_UML_Interface_Realization =>
8555            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8556
8557         when AMF.Internals.Tables.UML_Types.E_UML_Interruptible_Activity_Region =>
8558            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8559
8560         when AMF.Internals.Tables.UML_Types.E_UML_Interval =>
8561            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8562
8563         when AMF.Internals.Tables.UML_Types.E_UML_Interval_Constraint =>
8564            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8565
8566         when AMF.Internals.Tables.UML_Types.E_UML_Join_Node =>
8567            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8568
8569         when AMF.Internals.Tables.UML_Types.E_UML_Lifeline =>
8570            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8571
8572         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Boolean =>
8573            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8574
8575         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Integer =>
8576            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8577
8578         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Null =>
8579            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8580
8581         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Real =>
8582            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8583
8584         when AMF.Internals.Tables.UML_Types.E_UML_Literal_String =>
8585            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8586
8587         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Unlimited_Natural =>
8588            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8589
8590         when AMF.Internals.Tables.UML_Types.E_UML_Loop_Node =>
8591            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8592
8593         when AMF.Internals.Tables.UML_Types.E_UML_Manifestation =>
8594            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8595
8596         when AMF.Internals.Tables.UML_Types.E_UML_Merge_Node =>
8597            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8598
8599         when AMF.Internals.Tables.UML_Types.E_UML_Message =>
8600            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8601
8602         when AMF.Internals.Tables.UML_Types.E_UML_Message_Occurrence_Specification =>
8603            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8604
8605         when AMF.Internals.Tables.UML_Types.E_UML_Model =>
8606            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8607
8608         when AMF.Internals.Tables.UML_Types.E_UML_Node =>
8609            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8610
8611         when AMF.Internals.Tables.UML_Types.E_UML_Object_Flow =>
8612            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8613
8614         when AMF.Internals.Tables.UML_Types.E_UML_Occurrence_Specification =>
8615            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8616
8617         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Action =>
8618            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8619
8620         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Behavior =>
8621            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8622
8623         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Expression =>
8624            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8625
8626         when AMF.Internals.Tables.UML_Types.E_UML_Operation =>
8627            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8628
8629         when AMF.Internals.Tables.UML_Types.E_UML_Output_Pin =>
8630            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8631
8632         when AMF.Internals.Tables.UML_Types.E_UML_Package =>
8633            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8634
8635         when AMF.Internals.Tables.UML_Types.E_UML_Parameter =>
8636            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8637
8638         when AMF.Internals.Tables.UML_Types.E_UML_Parameter_Set =>
8639            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8640
8641         when AMF.Internals.Tables.UML_Types.E_UML_Part_Decomposition =>
8642            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8643
8644         when AMF.Internals.Tables.UML_Types.E_UML_Port =>
8645            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8646
8647         when AMF.Internals.Tables.UML_Types.E_UML_Primitive_Type =>
8648            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8649
8650         when AMF.Internals.Tables.UML_Types.E_UML_Profile =>
8651            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8652
8653         when AMF.Internals.Tables.UML_Types.E_UML_Property =>
8654            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8655
8656         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_State_Machine =>
8657            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8658
8659         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_Transition =>
8660            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8661
8662         when AMF.Internals.Tables.UML_Types.E_UML_Pseudostate =>
8663            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8664
8665         when AMF.Internals.Tables.UML_Types.E_UML_Raise_Exception_Action =>
8666            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8667
8668         when AMF.Internals.Tables.UML_Types.E_UML_Read_Extent_Action =>
8669            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8670
8671         when AMF.Internals.Tables.UML_Types.E_UML_Read_Is_Classified_Object_Action =>
8672            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8673
8674         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Action =>
8675            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8676
8677         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Object_End_Action =>
8678            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8679
8680         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Object_End_Qualifier_Action =>
8681            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8682
8683         when AMF.Internals.Tables.UML_Types.E_UML_Read_Self_Action =>
8684            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8685
8686         when AMF.Internals.Tables.UML_Types.E_UML_Read_Structural_Feature_Action =>
8687            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8688
8689         when AMF.Internals.Tables.UML_Types.E_UML_Read_Variable_Action =>
8690            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8691
8692         when AMF.Internals.Tables.UML_Types.E_UML_Realization =>
8693            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8694
8695         when AMF.Internals.Tables.UML_Types.E_UML_Reception =>
8696            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8697
8698         when AMF.Internals.Tables.UML_Types.E_UML_Reclassify_Object_Action =>
8699            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8700
8701         when AMF.Internals.Tables.UML_Types.E_UML_Redefinable_Template_Signature =>
8702            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8703
8704         when AMF.Internals.Tables.UML_Types.E_UML_Reduce_Action =>
8705            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8706
8707         when AMF.Internals.Tables.UML_Types.E_UML_Region =>
8708            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8709
8710         when AMF.Internals.Tables.UML_Types.E_UML_Remove_Structural_Feature_Value_Action =>
8711            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8712
8713         when AMF.Internals.Tables.UML_Types.E_UML_Remove_Variable_Value_Action =>
8714            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8715
8716         when AMF.Internals.Tables.UML_Types.E_UML_Reply_Action =>
8717            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8718
8719         when AMF.Internals.Tables.UML_Types.E_UML_Send_Object_Action =>
8720            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8721
8722         when AMF.Internals.Tables.UML_Types.E_UML_Send_Signal_Action =>
8723            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8724
8725         when AMF.Internals.Tables.UML_Types.E_UML_Sequence_Node =>
8726            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8727
8728         when AMF.Internals.Tables.UML_Types.E_UML_Signal =>
8729            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8730
8731         when AMF.Internals.Tables.UML_Types.E_UML_Signal_Event =>
8732            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8733
8734         when AMF.Internals.Tables.UML_Types.E_UML_Start_Classifier_Behavior_Action =>
8735            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8736
8737         when AMF.Internals.Tables.UML_Types.E_UML_Start_Object_Behavior_Action =>
8738            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8739
8740         when AMF.Internals.Tables.UML_Types.E_UML_State =>
8741            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8742
8743         when AMF.Internals.Tables.UML_Types.E_UML_State_Invariant =>
8744            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8745
8746         when AMF.Internals.Tables.UML_Types.E_UML_State_Machine =>
8747            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8748
8749         when AMF.Internals.Tables.UML_Types.E_UML_Stereotype =>
8750            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8751
8752         when AMF.Internals.Tables.UML_Types.E_UML_String_Expression =>
8753            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8754
8755         when AMF.Internals.Tables.UML_Types.E_UML_Structured_Activity_Node =>
8756            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8757
8758         when AMF.Internals.Tables.UML_Types.E_UML_Substitution =>
8759            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8760
8761         when AMF.Internals.Tables.UML_Types.E_UML_Test_Identity_Action =>
8762            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8763
8764         when AMF.Internals.Tables.UML_Types.E_UML_Time_Constraint =>
8765            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8766
8767         when AMF.Internals.Tables.UML_Types.E_UML_Time_Event =>
8768            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8769
8770         when AMF.Internals.Tables.UML_Types.E_UML_Time_Expression =>
8771            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8772
8773         when AMF.Internals.Tables.UML_Types.E_UML_Time_Interval =>
8774            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8775
8776         when AMF.Internals.Tables.UML_Types.E_UML_Time_Observation =>
8777            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8778
8779         when AMF.Internals.Tables.UML_Types.E_UML_Transition =>
8780            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8781
8782         when AMF.Internals.Tables.UML_Types.E_UML_Trigger =>
8783            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8784
8785         when AMF.Internals.Tables.UML_Types.E_UML_Unmarshall_Action =>
8786            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8787
8788         when AMF.Internals.Tables.UML_Types.E_UML_Usage =>
8789            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8790
8791         when AMF.Internals.Tables.UML_Types.E_UML_Use_Case =>
8792            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8793
8794         when AMF.Internals.Tables.UML_Types.E_UML_Value_Pin =>
8795            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8796
8797         when AMF.Internals.Tables.UML_Types.E_UML_Value_Specification_Action =>
8798            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8799
8800         when AMF.Internals.Tables.UML_Types.E_UML_Variable =>
8801            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
8802
8803         when others =>
8804            raise Program_Error;
8805      end case;
8806   end Internal_Get_Client_Dependency;
8807
8808   -------------------------------------
8809   -- Internal_Get_Collaboration_Role --
8810   -------------------------------------
8811
8812   function Internal_Get_Collaboration_Role
8813    (Self : AMF.Internals.AMF_Element)
8814       return AMF.Internals.AMF_Collection_Of_Element is
8815   begin
8816      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
8817         when AMF.Internals.Tables.UML_Types.E_UML_Collaboration =>
8818            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 24;
8819
8820         when others =>
8821            raise Program_Error;
8822      end case;
8823   end Internal_Get_Collaboration_Role;
8824
8825   ------------------------------------
8826   -- Internal_Get_Collaboration_Use --
8827   ------------------------------------
8828
8829   function Internal_Get_Collaboration_Use
8830    (Self : AMF.Internals.AMF_Element)
8831       return AMF.Internals.AMF_Collection_Of_Element is
8832   begin
8833      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
8834         when AMF.Internals.Tables.UML_Types.E_UML_Activity =>
8835            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
8836
8837         when AMF.Internals.Tables.UML_Types.E_UML_Actor =>
8838            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
8839
8840         when AMF.Internals.Tables.UML_Types.E_UML_Artifact =>
8841            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
8842
8843         when AMF.Internals.Tables.UML_Types.E_UML_Association =>
8844            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
8845
8846         when AMF.Internals.Tables.UML_Types.E_UML_Association_Class =>
8847            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
8848
8849         when AMF.Internals.Tables.UML_Types.E_UML_Class =>
8850            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
8851
8852         when AMF.Internals.Tables.UML_Types.E_UML_Collaboration =>
8853            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
8854
8855         when AMF.Internals.Tables.UML_Types.E_UML_Communication_Path =>
8856            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
8857
8858         when AMF.Internals.Tables.UML_Types.E_UML_Component =>
8859            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
8860
8861         when AMF.Internals.Tables.UML_Types.E_UML_Data_Type =>
8862            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
8863
8864         when AMF.Internals.Tables.UML_Types.E_UML_Deployment_Specification =>
8865            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
8866
8867         when AMF.Internals.Tables.UML_Types.E_UML_Device =>
8868            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
8869
8870         when AMF.Internals.Tables.UML_Types.E_UML_Enumeration =>
8871            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
8872
8873         when AMF.Internals.Tables.UML_Types.E_UML_Execution_Environment =>
8874            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
8875
8876         when AMF.Internals.Tables.UML_Types.E_UML_Extension =>
8877            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
8878
8879         when AMF.Internals.Tables.UML_Types.E_UML_Function_Behavior =>
8880            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
8881
8882         when AMF.Internals.Tables.UML_Types.E_UML_Information_Item =>
8883            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
8884
8885         when AMF.Internals.Tables.UML_Types.E_UML_Interaction =>
8886            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
8887
8888         when AMF.Internals.Tables.UML_Types.E_UML_Interface =>
8889            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
8890
8891         when AMF.Internals.Tables.UML_Types.E_UML_Node =>
8892            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
8893
8894         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Behavior =>
8895            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
8896
8897         when AMF.Internals.Tables.UML_Types.E_UML_Primitive_Type =>
8898            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
8899
8900         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_State_Machine =>
8901            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
8902
8903         when AMF.Internals.Tables.UML_Types.E_UML_Signal =>
8904            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
8905
8906         when AMF.Internals.Tables.UML_Types.E_UML_State_Machine =>
8907            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
8908
8909         when AMF.Internals.Tables.UML_Types.E_UML_Stereotype =>
8910            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
8911
8912         when AMF.Internals.Tables.UML_Types.E_UML_Use_Case =>
8913            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
8914
8915         when others =>
8916            raise Program_Error;
8917      end case;
8918   end Internal_Get_Collaboration_Use;
8919
8920   -----------------------------
8921   -- Internal_Get_Collection --
8922   -----------------------------
8923
8924   function Internal_Get_Collection
8925    (Self : AMF.Internals.AMF_Element)
8926       return AMF.Internals.AMF_Element is
8927   begin
8928      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
8929         when AMF.Internals.Tables.UML_Types.E_UML_Reduce_Action =>
8930            return
8931              AMF.Internals.Links.Opposite_Element
8932               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (13).Link, Self);
8933
8934         when others =>
8935            raise Program_Error;
8936      end case;
8937   end Internal_Get_Collection;
8938
8939   ------------------------------
8940   -- Internal_Get_Compartment --
8941   ------------------------------
8942
8943   function Internal_Get_Compartment
8944    (Self : AMF.Internals.AMF_Element)
8945       return AMF.Internals.AMF_Collection_Of_Element is
8946   begin
8947      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
8948         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Classifier_Shape =>
8949            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
8950
8951         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Compartmentable_Shape =>
8952            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
8953
8954         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_State_Shape =>
8955            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
8956
8957         when others =>
8958            raise Program_Error;
8959      end case;
8960   end Internal_Get_Compartment;
8961
8962   ------------------------------
8963   -- Internal_Get_Computation --
8964   ------------------------------
8965
8966   function Internal_Get_Computation
8967    (Self : AMF.Internals.AMF_Element)
8968       return AMF.Internals.AMF_Element is
8969   begin
8970      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
8971         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Derive =>
8972            return
8973              AMF.Internals.Links.Opposite_Element
8974               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (2).Link, Self);
8975
8976         when others =>
8977            raise Program_Error;
8978      end case;
8979   end Internal_Get_Computation;
8980
8981   ------------------------------
8982   -- Internal_Get_Concurrency --
8983   ------------------------------
8984
8985   function Internal_Get_Concurrency
8986    (Self : AMF.Internals.AMF_Element)
8987       return AMF.UML.UML_Call_Concurrency_Kind is
8988   begin
8989      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Call_Concurrency_Kind_Value;
8990   end Internal_Get_Concurrency;
8991
8992   ----------------------------
8993   -- Internal_Get_Condition --
8994   ----------------------------
8995
8996   function Internal_Get_Condition
8997    (Self : AMF.Internals.AMF_Element)
8998       return AMF.Internals.AMF_Element is
8999   begin
9000      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
9001         when AMF.Internals.Tables.UML_Types.E_UML_Extend =>
9002            return
9003              AMF.Internals.Links.Opposite_Element
9004               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Link, Self);
9005
9006         when others =>
9007            raise Program_Error;
9008      end case;
9009   end Internal_Get_Condition;
9010
9011   ----------------------------
9012   -- Internal_Get_Condition --
9013   ----------------------------
9014
9015   function Internal_Get_Condition
9016    (Self : AMF.Internals.AMF_Element)
9017       return AMF.Internals.AMF_Collection_Of_Element is
9018   begin
9019      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
9020         when AMF.Internals.Tables.UML_Types.E_UML_Parameter_Set =>
9021            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
9022
9023         when others =>
9024            raise Program_Error;
9025      end case;
9026   end Internal_Get_Condition;
9027
9028   --------------------------------
9029   -- Internal_Get_Configuration --
9030   --------------------------------
9031
9032   function Internal_Get_Configuration
9033    (Self : AMF.Internals.AMF_Element)
9034       return AMF.Internals.AMF_Collection_Of_Element is
9035   begin
9036      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
9037         when AMF.Internals.Tables.UML_Types.E_UML_Deployment =>
9038            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
9039
9040         when others =>
9041            raise Program_Error;
9042      end case;
9043   end Internal_Get_Configuration;
9044
9045   ------------------------------
9046   -- Internal_Get_Conformance --
9047   ------------------------------
9048
9049   function Internal_Get_Conformance
9050    (Self : AMF.Internals.AMF_Element)
9051       return AMF.Internals.AMF_Collection_Of_Element is
9052   begin
9053      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
9054         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_State_Machine =>
9055            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 46;
9056
9057         when others =>
9058            raise Program_Error;
9059      end case;
9060   end Internal_Get_Conformance;
9061
9062   -----------------------------
9063   -- Internal_Get_Connection --
9064   -----------------------------
9065
9066   function Internal_Get_Connection
9067    (Self : AMF.Internals.AMF_Element)
9068       return AMF.Internals.AMF_Collection_Of_Element is
9069   begin
9070      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
9071         when AMF.Internals.Tables.UML_Types.E_UML_Final_State =>
9072            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
9073
9074         when AMF.Internals.Tables.UML_Types.E_UML_State =>
9075            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
9076
9077         when others =>
9078            raise Program_Error;
9079      end case;
9080   end Internal_Get_Connection;
9081
9082   -----------------------------------
9083   -- Internal_Get_Connection_Point --
9084   -----------------------------------
9085
9086   function Internal_Get_Connection_Point
9087    (Self : AMF.Internals.AMF_Element)
9088       return AMF.Internals.AMF_Collection_Of_Element is
9089   begin
9090      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
9091         when AMF.Internals.Tables.UML_Types.E_UML_Final_State =>
9092            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
9093
9094         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_State_Machine =>
9095            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 24;
9096
9097         when AMF.Internals.Tables.UML_Types.E_UML_State =>
9098            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
9099
9100         when AMF.Internals.Tables.UML_Types.E_UML_State_Machine =>
9101            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 24;
9102
9103         when others =>
9104            raise Program_Error;
9105      end case;
9106   end Internal_Get_Connection_Point;
9107
9108   ----------------------------
9109   -- Internal_Get_Connector --
9110   ----------------------------
9111
9112   function Internal_Get_Connector
9113    (Self : AMF.Internals.AMF_Element)
9114       return AMF.Internals.AMF_Element is
9115   begin
9116      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
9117         when AMF.Internals.Tables.UML_Types.E_UML_Message =>
9118            return
9119              AMF.Internals.Links.Opposite_Element
9120               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Link, Self);
9121
9122         when others =>
9123            raise Program_Error;
9124      end case;
9125   end Internal_Get_Connector;
9126
9127   --------------------------------------
9128   -- Internal_Get_Constrained_Element --
9129   --------------------------------------
9130
9131   function Internal_Get_Constrained_Element
9132    (Self : AMF.Internals.AMF_Element)
9133       return AMF.Internals.AMF_Collection_Of_Element is
9134   begin
9135      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
9136         when AMF.Internals.Tables.UML_Types.E_UML_Constraint =>
9137            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
9138
9139         when AMF.Internals.Tables.UML_Types.E_UML_Duration_Constraint =>
9140            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
9141
9142         when AMF.Internals.Tables.UML_Types.E_UML_Interaction_Constraint =>
9143            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
9144
9145         when AMF.Internals.Tables.UML_Types.E_UML_Interval_Constraint =>
9146            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
9147
9148         when AMF.Internals.Tables.UML_Types.E_UML_Time_Constraint =>
9149            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
9150
9151         when others =>
9152            raise Program_Error;
9153      end case;
9154   end Internal_Get_Constrained_Element;
9155
9156   ------------------------------------------
9157   -- Internal_Get_Constraining_Classifier --
9158   ------------------------------------------
9159
9160   function Internal_Get_Constraining_Classifier
9161    (Self : AMF.Internals.AMF_Element)
9162       return AMF.Internals.AMF_Collection_Of_Element is
9163   begin
9164      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
9165         when AMF.Internals.Tables.UML_Types.E_UML_Classifier_Template_Parameter =>
9166            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
9167
9168         when others =>
9169            raise Program_Error;
9170      end case;
9171   end Internal_Get_Constraining_Classifier;
9172
9173   ---------------------------------
9174   -- Internal_Get_Contained_Edge --
9175   ---------------------------------
9176
9177   function Internal_Get_Contained_Edge
9178    (Self : AMF.Internals.AMF_Element)
9179       return AMF.Internals.AMF_Collection_Of_Element is
9180   begin
9181      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
9182         when AMF.Internals.Tables.UML_Types.E_UML_Activity_Partition =>
9183            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 23;
9184
9185         when AMF.Internals.Tables.UML_Types.E_UML_Conditional_Node =>
9186            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 23;
9187
9188         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Region =>
9189            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 23;
9190
9191         when AMF.Internals.Tables.UML_Types.E_UML_Interruptible_Activity_Region =>
9192            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 23;
9193
9194         when AMF.Internals.Tables.UML_Types.E_UML_Loop_Node =>
9195            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 23;
9196
9197         when AMF.Internals.Tables.UML_Types.E_UML_Sequence_Node =>
9198            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 23;
9199
9200         when AMF.Internals.Tables.UML_Types.E_UML_Structured_Activity_Node =>
9201            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 23;
9202
9203         when others =>
9204            raise Program_Error;
9205      end case;
9206   end Internal_Get_Contained_Edge;
9207
9208   ---------------------------------
9209   -- Internal_Get_Contained_Node --
9210   ---------------------------------
9211
9212   function Internal_Get_Contained_Node
9213    (Self : AMF.Internals.AMF_Element)
9214       return AMF.Internals.AMF_Collection_Of_Element is
9215   begin
9216      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
9217         when AMF.Internals.Tables.UML_Types.E_UML_Activity_Partition =>
9218            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 24;
9219
9220         when AMF.Internals.Tables.UML_Types.E_UML_Conditional_Node =>
9221            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 24;
9222
9223         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Region =>
9224            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 24;
9225
9226         when AMF.Internals.Tables.UML_Types.E_UML_Interruptible_Activity_Region =>
9227            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 24;
9228
9229         when AMF.Internals.Tables.UML_Types.E_UML_Loop_Node =>
9230            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 24;
9231
9232         when AMF.Internals.Tables.UML_Types.E_UML_Sequence_Node =>
9233            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 24;
9234
9235         when AMF.Internals.Tables.UML_Types.E_UML_Structured_Activity_Node =>
9236            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 24;
9237
9238         when others =>
9239            raise Program_Error;
9240      end case;
9241   end Internal_Get_Contained_Node;
9242
9243   ----------------------------
9244   -- Internal_Get_Container --
9245   ----------------------------
9246
9247   function Internal_Get_Container
9248    (Self : AMF.Internals.AMF_Element)
9249       return AMF.Internals.AMF_Element is
9250   begin
9251      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
9252         when AMF.Internals.Tables.UML_Types.E_UML_Connection_Point_Reference =>
9253            return
9254              AMF.Internals.Links.Opposite_Element
9255               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
9256
9257         when AMF.Internals.Tables.UML_Types.E_UML_Final_State =>
9258            return
9259              AMF.Internals.Links.Opposite_Element
9260               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
9261
9262         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_Transition =>
9263            return
9264              AMF.Internals.Links.Opposite_Element
9265               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
9266
9267         when AMF.Internals.Tables.UML_Types.E_UML_Pseudostate =>
9268            return
9269              AMF.Internals.Links.Opposite_Element
9270               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
9271
9272         when AMF.Internals.Tables.UML_Types.E_UML_State =>
9273            return
9274              AMF.Internals.Links.Opposite_Element
9275               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
9276
9277         when AMF.Internals.Tables.UML_Types.E_UML_Transition =>
9278            return
9279              AMF.Internals.Links.Opposite_Element
9280               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
9281
9282         when others =>
9283            raise Program_Error;
9284      end case;
9285   end Internal_Get_Container;
9286
9287   --------------------------
9288   -- Internal_Get_Content --
9289   --------------------------
9290
9291   function Internal_Get_Content
9292    (Self : AMF.Internals.AMF_Element)
9293       return Matreshka.Internals.Strings.Shared_String_Access is
9294   begin
9295      return
9296        AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (2).String_Value;
9297   end Internal_Get_Content;
9298
9299   --------------------------
9300   -- Internal_Get_Context --
9301   --------------------------
9302
9303   function Internal_Get_Context
9304    (Self : AMF.Internals.AMF_Element)
9305       return AMF.Internals.AMF_Element is
9306   begin
9307      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
9308         when AMF.Internals.Tables.UML_Types.E_UML_Accept_Call_Action =>
9309            return
9310              AMF.Internals.Links.Opposite_Element
9311               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
9312
9313         when AMF.Internals.Tables.UML_Types.E_UML_Accept_Event_Action =>
9314            return
9315              AMF.Internals.Links.Opposite_Element
9316               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
9317
9318         when AMF.Internals.Tables.UML_Types.E_UML_Activity =>
9319            return
9320              AMF.Internals.Links.Opposite_Element
9321               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (21).Link, Self);
9322
9323         when AMF.Internals.Tables.UML_Types.E_UML_Add_Structural_Feature_Value_Action =>
9324            return
9325              AMF.Internals.Links.Opposite_Element
9326               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
9327
9328         when AMF.Internals.Tables.UML_Types.E_UML_Add_Variable_Value_Action =>
9329            return
9330              AMF.Internals.Links.Opposite_Element
9331               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
9332
9333         when AMF.Internals.Tables.UML_Types.E_UML_Broadcast_Signal_Action =>
9334            return
9335              AMF.Internals.Links.Opposite_Element
9336               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
9337
9338         when AMF.Internals.Tables.UML_Types.E_UML_Call_Behavior_Action =>
9339            return
9340              AMF.Internals.Links.Opposite_Element
9341               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
9342
9343         when AMF.Internals.Tables.UML_Types.E_UML_Call_Operation_Action =>
9344            return
9345              AMF.Internals.Links.Opposite_Element
9346               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
9347
9348         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Association_Action =>
9349            return
9350              AMF.Internals.Links.Opposite_Element
9351               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
9352
9353         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Structural_Feature_Action =>
9354            return
9355              AMF.Internals.Links.Opposite_Element
9356               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
9357
9358         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Variable_Action =>
9359            return
9360              AMF.Internals.Links.Opposite_Element
9361               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
9362
9363         when AMF.Internals.Tables.UML_Types.E_UML_Conditional_Node =>
9364            return
9365              AMF.Internals.Links.Opposite_Element
9366               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
9367
9368         when AMF.Internals.Tables.UML_Types.E_UML_Constraint =>
9369            return
9370              AMF.Internals.Links.Opposite_Element
9371               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Link, Self);
9372
9373         when AMF.Internals.Tables.UML_Types.E_UML_Create_Link_Action =>
9374            return
9375              AMF.Internals.Links.Opposite_Element
9376               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
9377
9378         when AMF.Internals.Tables.UML_Types.E_UML_Create_Link_Object_Action =>
9379            return
9380              AMF.Internals.Links.Opposite_Element
9381               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
9382
9383         when AMF.Internals.Tables.UML_Types.E_UML_Create_Object_Action =>
9384            return
9385              AMF.Internals.Links.Opposite_Element
9386               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
9387
9388         when AMF.Internals.Tables.UML_Types.E_UML_Destroy_Link_Action =>
9389            return
9390              AMF.Internals.Links.Opposite_Element
9391               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
9392
9393         when AMF.Internals.Tables.UML_Types.E_UML_Destroy_Object_Action =>
9394            return
9395              AMF.Internals.Links.Opposite_Element
9396               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
9397
9398         when AMF.Internals.Tables.UML_Types.E_UML_Duration_Constraint =>
9399            return
9400              AMF.Internals.Links.Opposite_Element
9401               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Link, Self);
9402
9403         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Region =>
9404            return
9405              AMF.Internals.Links.Opposite_Element
9406               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
9407
9408         when AMF.Internals.Tables.UML_Types.E_UML_Function_Behavior =>
9409            return
9410              AMF.Internals.Links.Opposite_Element
9411               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (21).Link, Self);
9412
9413         when AMF.Internals.Tables.UML_Types.E_UML_Interaction =>
9414            return
9415              AMF.Internals.Links.Opposite_Element
9416               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (21).Link, Self);
9417
9418         when AMF.Internals.Tables.UML_Types.E_UML_Interaction_Constraint =>
9419            return
9420              AMF.Internals.Links.Opposite_Element
9421               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Link, Self);
9422
9423         when AMF.Internals.Tables.UML_Types.E_UML_Interval_Constraint =>
9424            return
9425              AMF.Internals.Links.Opposite_Element
9426               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Link, Self);
9427
9428         when AMF.Internals.Tables.UML_Types.E_UML_Loop_Node =>
9429            return
9430              AMF.Internals.Links.Opposite_Element
9431               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
9432
9433         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Action =>
9434            return
9435              AMF.Internals.Links.Opposite_Element
9436               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
9437
9438         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Behavior =>
9439            return
9440              AMF.Internals.Links.Opposite_Element
9441               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (21).Link, Self);
9442
9443         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_State_Machine =>
9444            return
9445              AMF.Internals.Links.Opposite_Element
9446               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (21).Link, Self);
9447
9448         when AMF.Internals.Tables.UML_Types.E_UML_Raise_Exception_Action =>
9449            return
9450              AMF.Internals.Links.Opposite_Element
9451               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
9452
9453         when AMF.Internals.Tables.UML_Types.E_UML_Read_Extent_Action =>
9454            return
9455              AMF.Internals.Links.Opposite_Element
9456               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
9457
9458         when AMF.Internals.Tables.UML_Types.E_UML_Read_Is_Classified_Object_Action =>
9459            return
9460              AMF.Internals.Links.Opposite_Element
9461               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
9462
9463         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Action =>
9464            return
9465              AMF.Internals.Links.Opposite_Element
9466               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
9467
9468         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Object_End_Action =>
9469            return
9470              AMF.Internals.Links.Opposite_Element
9471               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
9472
9473         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Object_End_Qualifier_Action =>
9474            return
9475              AMF.Internals.Links.Opposite_Element
9476               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
9477
9478         when AMF.Internals.Tables.UML_Types.E_UML_Read_Self_Action =>
9479            return
9480              AMF.Internals.Links.Opposite_Element
9481               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
9482
9483         when AMF.Internals.Tables.UML_Types.E_UML_Read_Structural_Feature_Action =>
9484            return
9485              AMF.Internals.Links.Opposite_Element
9486               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
9487
9488         when AMF.Internals.Tables.UML_Types.E_UML_Read_Variable_Action =>
9489            return
9490              AMF.Internals.Links.Opposite_Element
9491               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
9492
9493         when AMF.Internals.Tables.UML_Types.E_UML_Reclassify_Object_Action =>
9494            return
9495              AMF.Internals.Links.Opposite_Element
9496               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
9497
9498         when AMF.Internals.Tables.UML_Types.E_UML_Reduce_Action =>
9499            return
9500              AMF.Internals.Links.Opposite_Element
9501               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
9502
9503         when AMF.Internals.Tables.UML_Types.E_UML_Remove_Structural_Feature_Value_Action =>
9504            return
9505              AMF.Internals.Links.Opposite_Element
9506               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
9507
9508         when AMF.Internals.Tables.UML_Types.E_UML_Remove_Variable_Value_Action =>
9509            return
9510              AMF.Internals.Links.Opposite_Element
9511               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
9512
9513         when AMF.Internals.Tables.UML_Types.E_UML_Reply_Action =>
9514            return
9515              AMF.Internals.Links.Opposite_Element
9516               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
9517
9518         when AMF.Internals.Tables.UML_Types.E_UML_Send_Object_Action =>
9519            return
9520              AMF.Internals.Links.Opposite_Element
9521               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
9522
9523         when AMF.Internals.Tables.UML_Types.E_UML_Send_Signal_Action =>
9524            return
9525              AMF.Internals.Links.Opposite_Element
9526               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
9527
9528         when AMF.Internals.Tables.UML_Types.E_UML_Sequence_Node =>
9529            return
9530              AMF.Internals.Links.Opposite_Element
9531               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
9532
9533         when AMF.Internals.Tables.UML_Types.E_UML_Start_Classifier_Behavior_Action =>
9534            return
9535              AMF.Internals.Links.Opposite_Element
9536               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
9537
9538         when AMF.Internals.Tables.UML_Types.E_UML_Start_Object_Behavior_Action =>
9539            return
9540              AMF.Internals.Links.Opposite_Element
9541               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
9542
9543         when AMF.Internals.Tables.UML_Types.E_UML_State_Machine =>
9544            return
9545              AMF.Internals.Links.Opposite_Element
9546               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (21).Link, Self);
9547
9548         when AMF.Internals.Tables.UML_Types.E_UML_Structured_Activity_Node =>
9549            return
9550              AMF.Internals.Links.Opposite_Element
9551               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
9552
9553         when AMF.Internals.Tables.UML_Types.E_UML_Test_Identity_Action =>
9554            return
9555              AMF.Internals.Links.Opposite_Element
9556               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
9557
9558         when AMF.Internals.Tables.UML_Types.E_UML_Time_Constraint =>
9559            return
9560              AMF.Internals.Links.Opposite_Element
9561               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Link, Self);
9562
9563         when AMF.Internals.Tables.UML_Types.E_UML_Unmarshall_Action =>
9564            return
9565              AMF.Internals.Links.Opposite_Element
9566               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
9567
9568         when AMF.Internals.Tables.UML_Types.E_UML_Value_Specification_Action =>
9569            return
9570              AMF.Internals.Links.Opposite_Element
9571               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
9572
9573         when others =>
9574            raise Program_Error;
9575      end case;
9576   end Internal_Get_Context;
9577
9578   ---------------------------
9579   -- Internal_Get_Contract --
9580   ---------------------------
9581
9582   function Internal_Get_Contract
9583    (Self : AMF.Internals.AMF_Element)
9584       return AMF.Internals.AMF_Collection_Of_Element is
9585   begin
9586      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
9587         when AMF.Internals.Tables.UML_Types.E_UML_Connector =>
9588            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
9589
9590         when others =>
9591            raise Program_Error;
9592      end case;
9593   end Internal_Get_Contract;
9594
9595   ---------------------------
9596   -- Internal_Get_Contract --
9597   ---------------------------
9598
9599   function Internal_Get_Contract
9600    (Self : AMF.Internals.AMF_Element)
9601       return AMF.Internals.AMF_Element is
9602   begin
9603      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
9604         when AMF.Internals.Tables.UML_Types.E_UML_Interface_Realization =>
9605            return
9606              AMF.Internals.Links.Opposite_Element
9607               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
9608
9609         when AMF.Internals.Tables.UML_Types.E_UML_Substitution =>
9610            return
9611              AMF.Internals.Links.Opposite_Element
9612               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
9613
9614         when others =>
9615            raise Program_Error;
9616      end case;
9617   end Internal_Get_Contract;
9618
9619   ---------------------------
9620   -- Internal_Get_Conveyed --
9621   ---------------------------
9622
9623   function Internal_Get_Conveyed
9624    (Self : AMF.Internals.AMF_Element)
9625       return AMF.Internals.AMF_Collection_Of_Element is
9626   begin
9627      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
9628         when AMF.Internals.Tables.UML_Types.E_UML_Information_Flow =>
9629            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
9630
9631         when others =>
9632            raise Program_Error;
9633      end case;
9634   end Internal_Get_Conveyed;
9635
9636   --------------------------
9637   -- Internal_Get_Covered --
9638   --------------------------
9639
9640   function Internal_Get_Covered
9641    (Self : AMF.Internals.AMF_Element)
9642       return AMF.Internals.AMF_Collection_Of_Element is
9643   begin
9644      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
9645         when AMF.Internals.Tables.UML_Types.E_UML_Action_Execution_Specification =>
9646            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 24;
9647
9648         when AMF.Internals.Tables.UML_Types.E_UML_Behavior_Execution_Specification =>
9649            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 24;
9650
9651         when AMF.Internals.Tables.UML_Types.E_UML_Combined_Fragment =>
9652            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 24;
9653
9654         when AMF.Internals.Tables.UML_Types.E_UML_Consider_Ignore_Fragment =>
9655            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 24;
9656
9657         when AMF.Internals.Tables.UML_Types.E_UML_Continuation =>
9658            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 24;
9659
9660         when AMF.Internals.Tables.UML_Types.E_UML_Destruction_Occurrence_Specification =>
9661            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 24;
9662
9663         when AMF.Internals.Tables.UML_Types.E_UML_Execution_Occurrence_Specification =>
9664            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 24;
9665
9666         when AMF.Internals.Tables.UML_Types.E_UML_Interaction =>
9667            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 24;
9668
9669         when AMF.Internals.Tables.UML_Types.E_UML_Interaction_Operand =>
9670            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 24;
9671
9672         when AMF.Internals.Tables.UML_Types.E_UML_Interaction_Use =>
9673            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 24;
9674
9675         when AMF.Internals.Tables.UML_Types.E_UML_Message_Occurrence_Specification =>
9676            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 24;
9677
9678         when AMF.Internals.Tables.UML_Types.E_UML_Occurrence_Specification =>
9679            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 24;
9680
9681         when AMF.Internals.Tables.UML_Types.E_UML_Part_Decomposition =>
9682            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 24;
9683
9684         when AMF.Internals.Tables.UML_Types.E_UML_State_Invariant =>
9685            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 24;
9686
9687         when others =>
9688            raise Program_Error;
9689      end case;
9690   end Internal_Get_Covered;
9691
9692   --------------------------
9693   -- Internal_Get_Covered --
9694   --------------------------
9695
9696   function Internal_Get_Covered
9697    (Self : AMF.Internals.AMF_Element)
9698       return AMF.Internals.AMF_Element is
9699   begin
9700      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
9701         when AMF.Internals.Tables.UML_Types.E_UML_Destruction_Occurrence_Specification =>
9702            return
9703              AMF.Internals.Links.Opposite_Element
9704               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Link, Self);
9705
9706         when AMF.Internals.Tables.UML_Types.E_UML_Execution_Occurrence_Specification =>
9707            return
9708              AMF.Internals.Links.Opposite_Element
9709               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Link, Self);
9710
9711         when AMF.Internals.Tables.UML_Types.E_UML_Message_Occurrence_Specification =>
9712            return
9713              AMF.Internals.Links.Opposite_Element
9714               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Link, Self);
9715
9716         when AMF.Internals.Tables.UML_Types.E_UML_Occurrence_Specification =>
9717            return
9718              AMF.Internals.Links.Opposite_Element
9719               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Link, Self);
9720
9721         when AMF.Internals.Tables.UML_Types.E_UML_State_Invariant =>
9722            return
9723              AMF.Internals.Links.Opposite_Element
9724               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Link, Self);
9725
9726         when others =>
9727            raise Program_Error;
9728      end case;
9729   end Internal_Get_Covered;
9730
9731   -----------------------------
9732   -- Internal_Get_Covered_By --
9733   -----------------------------
9734
9735   function Internal_Get_Covered_By
9736    (Self : AMF.Internals.AMF_Element)
9737       return AMF.Internals.AMF_Collection_Of_Element is
9738   begin
9739      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
9740         when AMF.Internals.Tables.UML_Types.E_UML_Lifeline =>
9741            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
9742
9743         when others =>
9744            raise Program_Error;
9745      end case;
9746   end Internal_Get_Covered_By;
9747
9748   ---------------------------
9749   -- Internal_Get_Datatype --
9750   ---------------------------
9751
9752   function Internal_Get_Datatype
9753    (Self : AMF.Internals.AMF_Element)
9754       return AMF.Internals.AMF_Element is
9755   begin
9756      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
9757         when AMF.Internals.Tables.UML_Types.E_UML_Extension_End =>
9758            return
9759              AMF.Internals.Links.Opposite_Element
9760               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (27).Link, Self);
9761
9762         when AMF.Internals.Tables.UML_Types.E_UML_Operation =>
9763            return
9764              AMF.Internals.Links.Opposite_Element
9765               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (20).Link, Self);
9766
9767         when AMF.Internals.Tables.UML_Types.E_UML_Port =>
9768            return
9769              AMF.Internals.Links.Opposite_Element
9770               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (27).Link, Self);
9771
9772         when AMF.Internals.Tables.UML_Types.E_UML_Property =>
9773            return
9774              AMF.Internals.Links.Opposite_Element
9775               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (27).Link, Self);
9776
9777         when others =>
9778            raise Program_Error;
9779      end case;
9780   end Internal_Get_Datatype;
9781
9782   --------------------------
9783   -- Internal_Get_Decider --
9784   --------------------------
9785
9786   function Internal_Get_Decider
9787    (Self : AMF.Internals.AMF_Element)
9788       return AMF.Internals.AMF_Element is
9789   begin
9790      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
9791         when AMF.Internals.Tables.UML_Types.E_UML_Clause =>
9792            return
9793              AMF.Internals.Links.Opposite_Element
9794               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (2).Link, Self);
9795
9796         when AMF.Internals.Tables.UML_Types.E_UML_Loop_Node =>
9797            return
9798              AMF.Internals.Links.Opposite_Element
9799               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Link, Self);
9800
9801         when others =>
9802            raise Program_Error;
9803      end case;
9804   end Internal_Get_Decider;
9805
9806   ---------------------------------
9807   -- Internal_Get_Decision_Input --
9808   ---------------------------------
9809
9810   function Internal_Get_Decision_Input
9811    (Self : AMF.Internals.AMF_Element)
9812       return AMF.Internals.AMF_Element is
9813   begin
9814      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
9815         when AMF.Internals.Tables.UML_Types.E_UML_Decision_Node =>
9816            return
9817              AMF.Internals.Links.Opposite_Element
9818               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
9819
9820         when others =>
9821            raise Program_Error;
9822      end case;
9823   end Internal_Get_Decision_Input;
9824
9825   --------------------------------------
9826   -- Internal_Get_Decision_Input_Flow --
9827   --------------------------------------
9828
9829   function Internal_Get_Decision_Input_Flow
9830    (Self : AMF.Internals.AMF_Element)
9831       return AMF.Internals.AMF_Element is
9832   begin
9833      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
9834         when AMF.Internals.Tables.UML_Types.E_UML_Decision_Node =>
9835            return
9836              AMF.Internals.Links.Opposite_Element
9837               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (11).Link, Self);
9838
9839         when others =>
9840            raise Program_Error;
9841      end case;
9842   end Internal_Get_Decision_Input_Flow;
9843
9844   --------------------------------
9845   -- Internal_Get_Decomposed_As --
9846   --------------------------------
9847
9848   function Internal_Get_Decomposed_As
9849    (Self : AMF.Internals.AMF_Element)
9850       return AMF.Internals.AMF_Element is
9851   begin
9852      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
9853         when AMF.Internals.Tables.UML_Types.E_UML_Lifeline =>
9854            return
9855              AMF.Internals.Links.Opposite_Element
9856               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Link, Self);
9857
9858         when others =>
9859            raise Program_Error;
9860      end case;
9861   end Internal_Get_Decomposed_As;
9862
9863   --------------------------
9864   -- Internal_Get_Default --
9865   --------------------------
9866
9867   function Internal_Get_Default
9868    (Self : AMF.Internals.AMF_Element)
9869       return Matreshka.Internals.Strings.Shared_String_Access is
9870   begin
9871      return
9872        AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (21).String_Value;
9873   end Internal_Get_Default;
9874
9875   --------------------------
9876   -- Internal_Get_Default --
9877   --------------------------
9878
9879   function Internal_Get_Default
9880    (Self : AMF.Internals.AMF_Element)
9881       return AMF.Internals.AMF_Element is
9882   begin
9883      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
9884         when AMF.Internals.Tables.UML_Types.E_UML_Classifier_Template_Parameter =>
9885            return
9886              AMF.Internals.Links.Opposite_Element
9887               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (2).Link, Self);
9888
9889         when AMF.Internals.Tables.UML_Types.E_UML_Connectable_Element_Template_Parameter =>
9890            return
9891              AMF.Internals.Links.Opposite_Element
9892               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (2).Link, Self);
9893
9894         when AMF.Internals.Tables.UML_Types.E_UML_Operation_Template_Parameter =>
9895            return
9896              AMF.Internals.Links.Opposite_Element
9897               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (2).Link, Self);
9898
9899         when AMF.Internals.Tables.UML_Types.E_UML_Template_Parameter =>
9900            return
9901              AMF.Internals.Links.Opposite_Element
9902               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (2).Link, Self);
9903
9904         when others =>
9905            raise Program_Error;
9906      end case;
9907   end Internal_Get_Default;
9908
9909   --------------------------------
9910   -- Internal_Get_Default_Value --
9911   --------------------------------
9912
9913   function Internal_Get_Default_Value
9914    (Self : AMF.Internals.AMF_Element)
9915       return AMF.Internals.AMF_Element is
9916   begin
9917      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
9918         when AMF.Internals.Tables.UML_Types.E_UML_Extension_End =>
9919            return
9920              AMF.Internals.Links.Opposite_Element
9921               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (28).Link, Self);
9922
9923         when AMF.Internals.Tables.UML_Types.E_UML_Parameter =>
9924            return
9925              AMF.Internals.Links.Opposite_Element
9926               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Link, Self);
9927
9928         when AMF.Internals.Tables.UML_Types.E_UML_Port =>
9929            return
9930              AMF.Internals.Links.Opposite_Element
9931               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (28).Link, Self);
9932
9933         when AMF.Internals.Tables.UML_Types.E_UML_Property =>
9934            return
9935              AMF.Internals.Links.Opposite_Element
9936               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (28).Link, Self);
9937
9938         when others =>
9939            raise Program_Error;
9940      end case;
9941   end Internal_Get_Default_Value;
9942
9943   -------------------------------------
9944   -- Internal_Get_Deferrable_Trigger --
9945   -------------------------------------
9946
9947   function Internal_Get_Deferrable_Trigger
9948    (Self : AMF.Internals.AMF_Element)
9949       return AMF.Internals.AMF_Collection_Of_Element is
9950   begin
9951      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
9952         when AMF.Internals.Tables.UML_Types.E_UML_Final_State =>
9953            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
9954
9955         when AMF.Internals.Tables.UML_Types.E_UML_State =>
9956            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
9957
9958         when others =>
9959            raise Program_Error;
9960      end case;
9961   end Internal_Get_Deferrable_Trigger;
9962
9963   -------------------------------
9964   -- Internal_Get_Defining_End --
9965   -------------------------------
9966
9967   function Internal_Get_Defining_End
9968    (Self : AMF.Internals.AMF_Element)
9969       return AMF.Internals.AMF_Element is
9970   begin
9971      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
9972         when AMF.Internals.Tables.UML_Types.E_UML_Connector_End =>
9973            return
9974              AMF.Internals.Links.Opposite_Element
9975               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (2).Link, Self);
9976
9977         when others =>
9978            raise Program_Error;
9979      end case;
9980   end Internal_Get_Defining_End;
9981
9982   -----------------------------------
9983   -- Internal_Get_Defining_Feature --
9984   -----------------------------------
9985
9986   function Internal_Get_Defining_Feature
9987    (Self : AMF.Internals.AMF_Element)
9988       return AMF.Internals.AMF_Element is
9989   begin
9990      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
9991         when AMF.Internals.Tables.UML_Types.E_UML_Slot =>
9992            return
9993              AMF.Internals.Links.Opposite_Element
9994               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (2).Link, Self);
9995
9996         when others =>
9997            raise Program_Error;
9998      end case;
9999   end Internal_Get_Defining_Feature;
10000
10001   ------------------------------------
10002   -- Internal_Get_Deployed_Artifact --
10003   ------------------------------------
10004
10005   function Internal_Get_Deployed_Artifact
10006    (Self : AMF.Internals.AMF_Element)
10007       return AMF.Internals.AMF_Collection_Of_Element is
10008   begin
10009      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
10010         when AMF.Internals.Tables.UML_Types.E_UML_Deployment =>
10011            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
10012
10013         when others =>
10014            raise Program_Error;
10015      end case;
10016   end Internal_Get_Deployed_Artifact;
10017
10018   -----------------------------------
10019   -- Internal_Get_Deployed_Element --
10020   -----------------------------------
10021
10022   function Internal_Get_Deployed_Element
10023    (Self : AMF.Internals.AMF_Element)
10024       return AMF.Internals.AMF_Collection_Of_Element is
10025   begin
10026      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
10027         when AMF.Internals.Tables.UML_Types.E_UML_Device =>
10028            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 24;
10029
10030         when AMF.Internals.Tables.UML_Types.E_UML_Enumeration_Literal =>
10031            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 24;
10032
10033         when AMF.Internals.Tables.UML_Types.E_UML_Execution_Environment =>
10034            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 24;
10035
10036         when AMF.Internals.Tables.UML_Types.E_UML_Extension_End =>
10037            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 24;
10038
10039         when AMF.Internals.Tables.UML_Types.E_UML_Instance_Specification =>
10040            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 24;
10041
10042         when AMF.Internals.Tables.UML_Types.E_UML_Node =>
10043            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 24;
10044
10045         when AMF.Internals.Tables.UML_Types.E_UML_Port =>
10046            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 24;
10047
10048         when AMF.Internals.Tables.UML_Types.E_UML_Property =>
10049            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 24;
10050
10051         when others =>
10052            raise Program_Error;
10053      end case;
10054   end Internal_Get_Deployed_Element;
10055
10056   -----------------------------
10057   -- Internal_Get_Deployment --
10058   -----------------------------
10059
10060   function Internal_Get_Deployment
10061    (Self : AMF.Internals.AMF_Element)
10062       return AMF.Internals.AMF_Element is
10063   begin
10064      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
10065         when AMF.Internals.Tables.UML_Types.E_UML_Deployment_Specification =>
10066            return
10067              AMF.Internals.Links.Opposite_Element
10068               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (18).Link, Self);
10069
10070         when others =>
10071            raise Program_Error;
10072      end case;
10073   end Internal_Get_Deployment;
10074
10075   -----------------------------
10076   -- Internal_Get_Deployment --
10077   -----------------------------
10078
10079   function Internal_Get_Deployment
10080    (Self : AMF.Internals.AMF_Element)
10081       return AMF.Internals.AMF_Collection_Of_Element is
10082   begin
10083      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
10084         when AMF.Internals.Tables.UML_Types.E_UML_Device =>
10085            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 27;
10086
10087         when AMF.Internals.Tables.UML_Types.E_UML_Enumeration_Literal =>
10088            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 27;
10089
10090         when AMF.Internals.Tables.UML_Types.E_UML_Execution_Environment =>
10091            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 27;
10092
10093         when AMF.Internals.Tables.UML_Types.E_UML_Extension_End =>
10094            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 27;
10095
10096         when AMF.Internals.Tables.UML_Types.E_UML_Instance_Specification =>
10097            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 27;
10098
10099         when AMF.Internals.Tables.UML_Types.E_UML_Node =>
10100            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 27;
10101
10102         when AMF.Internals.Tables.UML_Types.E_UML_Port =>
10103            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 27;
10104
10105         when AMF.Internals.Tables.UML_Types.E_UML_Property =>
10106            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 27;
10107
10108         when others =>
10109            raise Program_Error;
10110      end case;
10111   end Internal_Get_Deployment;
10112
10113   --------------------------------------
10114   -- Internal_Get_Deployment_Location --
10115   --------------------------------------
10116
10117   function Internal_Get_Deployment_Location
10118    (Self : AMF.Internals.AMF_Element)
10119       return Matreshka.Internals.Strings.Shared_String_Access is
10120   begin
10121      return
10122        AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (19).String_Value;
10123   end Internal_Get_Deployment_Location;
10124
10125   -----------------------------
10126   -- Internal_Get_Destroy_At --
10127   -----------------------------
10128
10129   function Internal_Get_Destroy_At
10130    (Self : AMF.Internals.AMF_Element)
10131       return AMF.Internals.AMF_Element is
10132   begin
10133      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
10134         when AMF.Internals.Tables.UML_Types.E_UML_Link_End_Destruction_Data =>
10135            return
10136              AMF.Internals.Links.Opposite_Element
10137               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
10138
10139         when others =>
10140            raise Program_Error;
10141      end case;
10142   end Internal_Get_Destroy_At;
10143
10144   ----------------------------
10145   -- Internal_Get_Direction --
10146   ----------------------------
10147
10148   function Internal_Get_Direction
10149    (Self : AMF.Internals.AMF_Element)
10150       return AMF.UML.UML_Parameter_Direction_Kind is
10151   begin
10152      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (17).Parameter_Direction_Kind_Value;
10153   end Internal_Get_Direction;
10154
10155   ------------------------------
10156   -- Internal_Get_Do_Activity --
10157   ------------------------------
10158
10159   function Internal_Get_Do_Activity
10160    (Self : AMF.Internals.AMF_Element)
10161       return AMF.Internals.AMF_Element is
10162   begin
10163      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
10164         when AMF.Internals.Tables.UML_Types.E_UML_Final_State =>
10165            return
10166              AMF.Internals.Links.Opposite_Element
10167               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
10168
10169         when AMF.Internals.Tables.UML_Types.E_UML_State =>
10170            return
10171              AMF.Internals.Links.Opposite_Element
10172               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
10173
10174         when others =>
10175            raise Program_Error;
10176      end case;
10177   end Internal_Get_Do_Activity;
10178
10179   --------------------------------
10180   -- Internal_Get_Documentation --
10181   --------------------------------
10182
10183   function Internal_Get_Documentation
10184    (Self : AMF.Internals.AMF_Element)
10185       return Matreshka.Internals.Strings.Shared_String_Access is
10186   begin
10187      return
10188        AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (18).String_Value;
10189   end Internal_Get_Documentation;
10190
10191   -----------------------
10192   -- Internal_Get_Edge --
10193   -----------------------
10194
10195   function Internal_Get_Edge
10196    (Self : AMF.Internals.AMF_Element)
10197       return AMF.Internals.AMF_Collection_Of_Element is
10198   begin
10199      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
10200         when AMF.Internals.Tables.UML_Types.E_UML_Activity =>
10201            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 24;
10202
10203         when AMF.Internals.Tables.UML_Types.E_UML_Activity_Partition =>
10204            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
10205
10206         when AMF.Internals.Tables.UML_Types.E_UML_Conditional_Node =>
10207            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 26;
10208
10209         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Region =>
10210            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 26;
10211
10212         when AMF.Internals.Tables.UML_Types.E_UML_Loop_Node =>
10213            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 26;
10214
10215         when AMF.Internals.Tables.UML_Types.E_UML_Sequence_Node =>
10216            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 26;
10217
10218         when AMF.Internals.Tables.UML_Types.E_UML_Structured_Activity_Node =>
10219            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 26;
10220
10221         when others =>
10222            raise Program_Error;
10223      end case;
10224   end Internal_Get_Edge;
10225
10226   -------------------------
10227   -- Internal_Get_Effect --
10228   -------------------------
10229
10230   function Internal_Get_Effect
10231    (Self : AMF.Internals.AMF_Element)
10232       return AMF.UML.Optional_UML_Parameter_Effect_Kind is
10233   begin
10234      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (18).Parameter_Effect_Kind_Holder;
10235   end Internal_Get_Effect;
10236
10237   -------------------------
10238   -- Internal_Get_Effect --
10239   -------------------------
10240
10241   function Internal_Get_Effect
10242    (Self : AMF.Internals.AMF_Element)
10243       return AMF.Internals.AMF_Element is
10244   begin
10245      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
10246         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_Transition =>
10247            return
10248              AMF.Internals.Links.Opposite_Element
10249               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
10250
10251         when AMF.Internals.Tables.UML_Types.E_UML_Transition =>
10252            return
10253              AMF.Internals.Links.Opposite_Element
10254               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
10255
10256         when others =>
10257            raise Program_Error;
10258      end case;
10259   end Internal_Get_Effect;
10260
10261   ---------------------------------
10262   -- Internal_Get_Element_Import --
10263   ---------------------------------
10264
10265   function Internal_Get_Element_Import
10266    (Self : AMF.Internals.AMF_Element)
10267       return AMF.Internals.AMF_Collection_Of_Element is
10268   begin
10269      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
10270         when AMF.Internals.Tables.UML_Types.E_UML_Activity =>
10271            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 12;
10272
10273         when AMF.Internals.Tables.UML_Types.E_UML_Actor =>
10274            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 12;
10275
10276         when AMF.Internals.Tables.UML_Types.E_UML_Artifact =>
10277            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 12;
10278
10279         when AMF.Internals.Tables.UML_Types.E_UML_Association =>
10280            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 12;
10281
10282         when AMF.Internals.Tables.UML_Types.E_UML_Association_Class =>
10283            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 12;
10284
10285         when AMF.Internals.Tables.UML_Types.E_UML_Class =>
10286            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 12;
10287
10288         when AMF.Internals.Tables.UML_Types.E_UML_Collaboration =>
10289            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 12;
10290
10291         when AMF.Internals.Tables.UML_Types.E_UML_Communication_Path =>
10292            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 12;
10293
10294         when AMF.Internals.Tables.UML_Types.E_UML_Component =>
10295            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 12;
10296
10297         when AMF.Internals.Tables.UML_Types.E_UML_Conditional_Node =>
10298            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 12;
10299
10300         when AMF.Internals.Tables.UML_Types.E_UML_Data_Type =>
10301            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 12;
10302
10303         when AMF.Internals.Tables.UML_Types.E_UML_Deployment_Specification =>
10304            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 12;
10305
10306         when AMF.Internals.Tables.UML_Types.E_UML_Device =>
10307            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 12;
10308
10309         when AMF.Internals.Tables.UML_Types.E_UML_Enumeration =>
10310            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 12;
10311
10312         when AMF.Internals.Tables.UML_Types.E_UML_Execution_Environment =>
10313            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 12;
10314
10315         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Region =>
10316            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 12;
10317
10318         when AMF.Internals.Tables.UML_Types.E_UML_Extension =>
10319            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 12;
10320
10321         when AMF.Internals.Tables.UML_Types.E_UML_Final_State =>
10322            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 12;
10323
10324         when AMF.Internals.Tables.UML_Types.E_UML_Function_Behavior =>
10325            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 12;
10326
10327         when AMF.Internals.Tables.UML_Types.E_UML_Information_Item =>
10328            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 12;
10329
10330         when AMF.Internals.Tables.UML_Types.E_UML_Interaction =>
10331            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 12;
10332
10333         when AMF.Internals.Tables.UML_Types.E_UML_Interaction_Operand =>
10334            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 12;
10335
10336         when AMF.Internals.Tables.UML_Types.E_UML_Interface =>
10337            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 12;
10338
10339         when AMF.Internals.Tables.UML_Types.E_UML_Loop_Node =>
10340            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 12;
10341
10342         when AMF.Internals.Tables.UML_Types.E_UML_Model =>
10343            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 12;
10344
10345         when AMF.Internals.Tables.UML_Types.E_UML_Node =>
10346            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 12;
10347
10348         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Behavior =>
10349            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 12;
10350
10351         when AMF.Internals.Tables.UML_Types.E_UML_Operation =>
10352            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 12;
10353
10354         when AMF.Internals.Tables.UML_Types.E_UML_Package =>
10355            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 12;
10356
10357         when AMF.Internals.Tables.UML_Types.E_UML_Primitive_Type =>
10358            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 12;
10359
10360         when AMF.Internals.Tables.UML_Types.E_UML_Profile =>
10361            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 12;
10362
10363         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_State_Machine =>
10364            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 12;
10365
10366         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_Transition =>
10367            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 12;
10368
10369         when AMF.Internals.Tables.UML_Types.E_UML_Reception =>
10370            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 12;
10371
10372         when AMF.Internals.Tables.UML_Types.E_UML_Region =>
10373            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 12;
10374
10375         when AMF.Internals.Tables.UML_Types.E_UML_Sequence_Node =>
10376            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 12;
10377
10378         when AMF.Internals.Tables.UML_Types.E_UML_Signal =>
10379            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 12;
10380
10381         when AMF.Internals.Tables.UML_Types.E_UML_State =>
10382            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 12;
10383
10384         when AMF.Internals.Tables.UML_Types.E_UML_State_Machine =>
10385            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 12;
10386
10387         when AMF.Internals.Tables.UML_Types.E_UML_Stereotype =>
10388            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 12;
10389
10390         when AMF.Internals.Tables.UML_Types.E_UML_Structured_Activity_Node =>
10391            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 12;
10392
10393         when AMF.Internals.Tables.UML_Types.E_UML_Transition =>
10394            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 12;
10395
10396         when AMF.Internals.Tables.UML_Types.E_UML_Use_Case =>
10397            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 12;
10398
10399         when others =>
10400            raise Program_Error;
10401      end case;
10402   end Internal_Get_Element_Import;
10403
10404   -----------------------------------------
10405   -- Internal_Get_Element_In_Compartment --
10406   -----------------------------------------
10407
10408   function Internal_Get_Element_In_Compartment
10409    (Self : AMF.Internals.AMF_Element)
10410       return AMF.Internals.AMF_Collection_Of_Element is
10411   begin
10412      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
10413         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Compartment =>
10414            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
10415
10416         when others =>
10417            raise Program_Error;
10418      end case;
10419   end Internal_Get_Element_In_Compartment;
10420
10421   ----------------------------------------
10422   -- Internal_Get_Enclosing_Interaction --
10423   ----------------------------------------
10424
10425   function Internal_Get_Enclosing_Interaction
10426    (Self : AMF.Internals.AMF_Element)
10427       return AMF.Internals.AMF_Element is
10428   begin
10429      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
10430         when AMF.Internals.Tables.UML_Types.E_UML_Action_Execution_Specification =>
10431            return
10432              AMF.Internals.Links.Opposite_Element
10433               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (18).Link, Self);
10434
10435         when AMF.Internals.Tables.UML_Types.E_UML_Behavior_Execution_Specification =>
10436            return
10437              AMF.Internals.Links.Opposite_Element
10438               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (18).Link, Self);
10439
10440         when AMF.Internals.Tables.UML_Types.E_UML_Combined_Fragment =>
10441            return
10442              AMF.Internals.Links.Opposite_Element
10443               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (18).Link, Self);
10444
10445         when AMF.Internals.Tables.UML_Types.E_UML_Consider_Ignore_Fragment =>
10446            return
10447              AMF.Internals.Links.Opposite_Element
10448               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (18).Link, Self);
10449
10450         when AMF.Internals.Tables.UML_Types.E_UML_Continuation =>
10451            return
10452              AMF.Internals.Links.Opposite_Element
10453               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (18).Link, Self);
10454
10455         when AMF.Internals.Tables.UML_Types.E_UML_Destruction_Occurrence_Specification =>
10456            return
10457              AMF.Internals.Links.Opposite_Element
10458               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (18).Link, Self);
10459
10460         when AMF.Internals.Tables.UML_Types.E_UML_Execution_Occurrence_Specification =>
10461            return
10462              AMF.Internals.Links.Opposite_Element
10463               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (18).Link, Self);
10464
10465         when AMF.Internals.Tables.UML_Types.E_UML_Interaction =>
10466            return
10467              AMF.Internals.Links.Opposite_Element
10468               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (18).Link, Self);
10469
10470         when AMF.Internals.Tables.UML_Types.E_UML_Interaction_Operand =>
10471            return
10472              AMF.Internals.Links.Opposite_Element
10473               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (18).Link, Self);
10474
10475         when AMF.Internals.Tables.UML_Types.E_UML_Interaction_Use =>
10476            return
10477              AMF.Internals.Links.Opposite_Element
10478               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (18).Link, Self);
10479
10480         when AMF.Internals.Tables.UML_Types.E_UML_Message_Occurrence_Specification =>
10481            return
10482              AMF.Internals.Links.Opposite_Element
10483               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (18).Link, Self);
10484
10485         when AMF.Internals.Tables.UML_Types.E_UML_Occurrence_Specification =>
10486            return
10487              AMF.Internals.Links.Opposite_Element
10488               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (18).Link, Self);
10489
10490         when AMF.Internals.Tables.UML_Types.E_UML_Part_Decomposition =>
10491            return
10492              AMF.Internals.Links.Opposite_Element
10493               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (18).Link, Self);
10494
10495         when AMF.Internals.Tables.UML_Types.E_UML_State_Invariant =>
10496            return
10497              AMF.Internals.Links.Opposite_Element
10498               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (18).Link, Self);
10499
10500         when others =>
10501            raise Program_Error;
10502      end case;
10503   end Internal_Get_Enclosing_Interaction;
10504
10505   ------------------------------------
10506   -- Internal_Get_Enclosing_Operand --
10507   ------------------------------------
10508
10509   function Internal_Get_Enclosing_Operand
10510    (Self : AMF.Internals.AMF_Element)
10511       return AMF.Internals.AMF_Element is
10512   begin
10513      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
10514         when AMF.Internals.Tables.UML_Types.E_UML_Action_Execution_Specification =>
10515            return
10516              AMF.Internals.Links.Opposite_Element
10517               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (19).Link, Self);
10518
10519         when AMF.Internals.Tables.UML_Types.E_UML_Behavior_Execution_Specification =>
10520            return
10521              AMF.Internals.Links.Opposite_Element
10522               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (19).Link, Self);
10523
10524         when AMF.Internals.Tables.UML_Types.E_UML_Combined_Fragment =>
10525            return
10526              AMF.Internals.Links.Opposite_Element
10527               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (19).Link, Self);
10528
10529         when AMF.Internals.Tables.UML_Types.E_UML_Consider_Ignore_Fragment =>
10530            return
10531              AMF.Internals.Links.Opposite_Element
10532               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (19).Link, Self);
10533
10534         when AMF.Internals.Tables.UML_Types.E_UML_Continuation =>
10535            return
10536              AMF.Internals.Links.Opposite_Element
10537               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (19).Link, Self);
10538
10539         when AMF.Internals.Tables.UML_Types.E_UML_Destruction_Occurrence_Specification =>
10540            return
10541              AMF.Internals.Links.Opposite_Element
10542               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (19).Link, Self);
10543
10544         when AMF.Internals.Tables.UML_Types.E_UML_Execution_Occurrence_Specification =>
10545            return
10546              AMF.Internals.Links.Opposite_Element
10547               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (19).Link, Self);
10548
10549         when AMF.Internals.Tables.UML_Types.E_UML_Interaction =>
10550            return
10551              AMF.Internals.Links.Opposite_Element
10552               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (19).Link, Self);
10553
10554         when AMF.Internals.Tables.UML_Types.E_UML_Interaction_Operand =>
10555            return
10556              AMF.Internals.Links.Opposite_Element
10557               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (19).Link, Self);
10558
10559         when AMF.Internals.Tables.UML_Types.E_UML_Interaction_Use =>
10560            return
10561              AMF.Internals.Links.Opposite_Element
10562               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (19).Link, Self);
10563
10564         when AMF.Internals.Tables.UML_Types.E_UML_Message_Occurrence_Specification =>
10565            return
10566              AMF.Internals.Links.Opposite_Element
10567               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (19).Link, Self);
10568
10569         when AMF.Internals.Tables.UML_Types.E_UML_Occurrence_Specification =>
10570            return
10571              AMF.Internals.Links.Opposite_Element
10572               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (19).Link, Self);
10573
10574         when AMF.Internals.Tables.UML_Types.E_UML_Part_Decomposition =>
10575            return
10576              AMF.Internals.Links.Opposite_Element
10577               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (19).Link, Self);
10578
10579         when AMF.Internals.Tables.UML_Types.E_UML_State_Invariant =>
10580            return
10581              AMF.Internals.Links.Opposite_Element
10582               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (19).Link, Self);
10583
10584         when others =>
10585            raise Program_Error;
10586      end case;
10587   end Internal_Get_Enclosing_Operand;
10588
10589   ----------------------
10590   -- Internal_Get_End --
10591   ----------------------
10592
10593   function Internal_Get_End
10594    (Self : AMF.Internals.AMF_Element)
10595       return AMF.Internals.AMF_Collection_Of_Element is
10596   begin
10597      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
10598         when AMF.Internals.Tables.UML_Types.E_UML_Connector =>
10599            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
10600
10601         when AMF.Internals.Tables.UML_Types.E_UML_Extension_End =>
10602            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
10603
10604         when AMF.Internals.Tables.UML_Types.E_UML_Parameter =>
10605            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
10606
10607         when AMF.Internals.Tables.UML_Types.E_UML_Port =>
10608            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
10609
10610         when AMF.Internals.Tables.UML_Types.E_UML_Property =>
10611            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
10612
10613         when AMF.Internals.Tables.UML_Types.E_UML_Variable =>
10614            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
10615
10616         when others =>
10617            raise Program_Error;
10618      end case;
10619   end Internal_Get_End;
10620
10621   ----------------------
10622   -- Internal_Get_End --
10623   ----------------------
10624
10625   function Internal_Get_End
10626    (Self : AMF.Internals.AMF_Element)
10627       return AMF.Internals.AMF_Element is
10628   begin
10629      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
10630         when AMF.Internals.Tables.UML_Types.E_UML_Link_End_Creation_Data =>
10631            return
10632              AMF.Internals.Links.Opposite_Element
10633               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (2).Link, Self);
10634
10635         when AMF.Internals.Tables.UML_Types.E_UML_Link_End_Data =>
10636            return
10637              AMF.Internals.Links.Opposite_Element
10638               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (2).Link, Self);
10639
10640         when AMF.Internals.Tables.UML_Types.E_UML_Link_End_Destruction_Data =>
10641            return
10642              AMF.Internals.Links.Opposite_Element
10643               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (2).Link, Self);
10644
10645         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Object_End_Action =>
10646            return
10647              AMF.Internals.Links.Opposite_Element
10648               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Link, Self);
10649
10650         when others =>
10651            raise Program_Error;
10652      end case;
10653   end Internal_Get_End;
10654
10655   ---------------------------
10656   -- Internal_Get_End_Data --
10657   ---------------------------
10658
10659   function Internal_Get_End_Data
10660    (Self : AMF.Internals.AMF_Element)
10661       return AMF.Internals.AMF_Collection_Of_Element is
10662   begin
10663      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
10664         when AMF.Internals.Tables.UML_Types.E_UML_Create_Link_Action =>
10665            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 14;
10666
10667         when AMF.Internals.Tables.UML_Types.E_UML_Create_Link_Object_Action =>
10668            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 14;
10669
10670         when AMF.Internals.Tables.UML_Types.E_UML_Destroy_Link_Action =>
10671            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 14;
10672
10673         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Action =>
10674            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 12;
10675
10676         when others =>
10677            raise Program_Error;
10678      end case;
10679   end Internal_Get_End_Data;
10680
10681   ---------------------------
10682   -- Internal_Get_End_Type --
10683   ---------------------------
10684
10685   function Internal_Get_End_Type
10686    (Self : AMF.Internals.AMF_Element)
10687       return AMF.Internals.AMF_Collection_Of_Element is
10688   begin
10689      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
10690         when AMF.Internals.Tables.UML_Types.E_UML_Association =>
10691            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 27;
10692
10693         when AMF.Internals.Tables.UML_Types.E_UML_Association_Class =>
10694            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 27;
10695
10696         when AMF.Internals.Tables.UML_Types.E_UML_Communication_Path =>
10697            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 27;
10698
10699         when AMF.Internals.Tables.UML_Types.E_UML_Extension =>
10700            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 27;
10701
10702         when others =>
10703            raise Program_Error;
10704      end case;
10705   end Internal_Get_End_Type;
10706
10707   ------------------------
10708   -- Internal_Get_Entry --
10709   ------------------------
10710
10711   function Internal_Get_Entry
10712    (Self : AMF.Internals.AMF_Element)
10713       return AMF.Internals.AMF_Collection_Of_Element is
10714   begin
10715      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
10716         when AMF.Internals.Tables.UML_Types.E_UML_Connection_Point_Reference =>
10717            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
10718
10719         when others =>
10720            raise Program_Error;
10721      end case;
10722   end Internal_Get_Entry;
10723
10724   ------------------------
10725   -- Internal_Get_Entry --
10726   ------------------------
10727
10728   function Internal_Get_Entry
10729    (Self : AMF.Internals.AMF_Element)
10730       return AMF.Internals.AMF_Element is
10731   begin
10732      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
10733         when AMF.Internals.Tables.UML_Types.E_UML_Final_State =>
10734            return
10735              AMF.Internals.Links.Opposite_Element
10736               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
10737
10738         when AMF.Internals.Tables.UML_Types.E_UML_State =>
10739            return
10740              AMF.Internals.Links.Opposite_Element
10741               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
10742
10743         when others =>
10744            raise Program_Error;
10745      end case;
10746   end Internal_Get_Entry;
10747
10748   ------------------------------
10749   -- Internal_Get_Enumeration --
10750   ------------------------------
10751
10752   function Internal_Get_Enumeration
10753    (Self : AMF.Internals.AMF_Element)
10754       return AMF.Internals.AMF_Element is
10755   begin
10756      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
10757         when AMF.Internals.Tables.UML_Types.E_UML_Enumeration_Literal =>
10758            return
10759              AMF.Internals.Links.Opposite_Element
10760               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (11).Link, Self);
10761
10762         when others =>
10763            raise Program_Error;
10764      end case;
10765   end Internal_Get_Enumeration;
10766
10767   ------------------------
10768   -- Internal_Get_Event --
10769   ------------------------
10770
10771   function Internal_Get_Event
10772    (Self : AMF.Internals.AMF_Element)
10773       return AMF.Internals.AMF_Collection_Of_Element is
10774   begin
10775      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
10776         when AMF.Internals.Tables.UML_Types.E_UML_Duration_Observation =>
10777            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
10778
10779         when others =>
10780            raise Program_Error;
10781      end case;
10782   end Internal_Get_Event;
10783
10784   ------------------------
10785   -- Internal_Get_Event --
10786   ------------------------
10787
10788   function Internal_Get_Event
10789    (Self : AMF.Internals.AMF_Element)
10790       return AMF.Internals.AMF_Element is
10791   begin
10792      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
10793         when AMF.Internals.Tables.UML_Types.E_UML_Time_Observation =>
10794            return
10795              AMF.Internals.Links.Opposite_Element
10796               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Link, Self);
10797
10798         when AMF.Internals.Tables.UML_Types.E_UML_Trigger =>
10799            return
10800              AMF.Internals.Links.Opposite_Element
10801               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Link, Self);
10802
10803         when others =>
10804            raise Program_Error;
10805      end case;
10806   end Internal_Get_Event;
10807
10808   ----------------------------
10809   -- Internal_Get_Exception --
10810   ----------------------------
10811
10812   function Internal_Get_Exception
10813    (Self : AMF.Internals.AMF_Element)
10814       return AMF.Internals.AMF_Element is
10815   begin
10816      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
10817         when AMF.Internals.Tables.UML_Types.E_UML_Raise_Exception_Action =>
10818            return
10819              AMF.Internals.Links.Opposite_Element
10820               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Link, Self);
10821
10822         when others =>
10823            raise Program_Error;
10824      end case;
10825   end Internal_Get_Exception;
10826
10827   ----------------------------------
10828   -- Internal_Get_Exception_Input --
10829   ----------------------------------
10830
10831   function Internal_Get_Exception_Input
10832    (Self : AMF.Internals.AMF_Element)
10833       return AMF.Internals.AMF_Element is
10834   begin
10835      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
10836         when AMF.Internals.Tables.UML_Types.E_UML_Exception_Handler =>
10837            return
10838              AMF.Internals.Links.Opposite_Element
10839               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (2).Link, Self);
10840
10841         when others =>
10842            raise Program_Error;
10843      end case;
10844   end Internal_Get_Exception_Input;
10845
10846   ---------------------------------
10847   -- Internal_Get_Exception_Type --
10848   ---------------------------------
10849
10850   function Internal_Get_Exception_Type
10851    (Self : AMF.Internals.AMF_Element)
10852       return AMF.Internals.AMF_Collection_Of_Element is
10853   begin
10854      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
10855         when AMF.Internals.Tables.UML_Types.E_UML_Exception_Handler =>
10856            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
10857
10858         when others =>
10859            raise Program_Error;
10860      end case;
10861   end Internal_Get_Exception_Type;
10862
10863   ----------------------------------
10864   -- Internal_Get_Executable_Node --
10865   ----------------------------------
10866
10867   function Internal_Get_Executable_Node
10868    (Self : AMF.Internals.AMF_Element)
10869       return AMF.Internals.AMF_Collection_Of_Element is
10870   begin
10871      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
10872         when AMF.Internals.Tables.UML_Types.E_UML_Sequence_Node =>
10873            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 31;
10874
10875         when others =>
10876            raise Program_Error;
10877      end case;
10878   end Internal_Get_Executable_Node;
10879
10880   ----------------------------
10881   -- Internal_Get_Execution --
10882   ----------------------------
10883
10884   function Internal_Get_Execution
10885    (Self : AMF.Internals.AMF_Element)
10886       return AMF.Internals.AMF_Element is
10887   begin
10888      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
10889         when AMF.Internals.Tables.UML_Types.E_UML_Execution_Occurrence_Specification =>
10890            return
10891              AMF.Internals.Links.Opposite_Element
10892               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
10893
10894         when others =>
10895            raise Program_Error;
10896      end case;
10897   end Internal_Get_Execution;
10898
10899   -------------------------------------
10900   -- Internal_Get_Execution_Location --
10901   -------------------------------------
10902
10903   function Internal_Get_Execution_Location
10904    (Self : AMF.Internals.AMF_Element)
10905       return Matreshka.Internals.Strings.Shared_String_Access is
10906   begin
10907      return
10908        AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (20).String_Value;
10909   end Internal_Get_Execution_Location;
10910
10911   -----------------------
10912   -- Internal_Get_Exit --
10913   -----------------------
10914
10915   function Internal_Get_Exit
10916    (Self : AMF.Internals.AMF_Element)
10917       return AMF.Internals.AMF_Collection_Of_Element is
10918   begin
10919      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
10920         when AMF.Internals.Tables.UML_Types.E_UML_Connection_Point_Reference =>
10921            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
10922
10923         when others =>
10924            raise Program_Error;
10925      end case;
10926   end Internal_Get_Exit;
10927
10928   -----------------------
10929   -- Internal_Get_Exit --
10930   -----------------------
10931
10932   function Internal_Get_Exit
10933    (Self : AMF.Internals.AMF_Element)
10934       return AMF.Internals.AMF_Element is
10935   begin
10936      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
10937         when AMF.Internals.Tables.UML_Types.E_UML_Final_State =>
10938            return
10939              AMF.Internals.Links.Opposite_Element
10940               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (11).Link, Self);
10941
10942         when AMF.Internals.Tables.UML_Types.E_UML_State =>
10943            return
10944              AMF.Internals.Links.Opposite_Element
10945               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (11).Link, Self);
10946
10947         when others =>
10948            raise Program_Error;
10949      end case;
10950   end Internal_Get_Exit;
10951
10952   -----------------------
10953   -- Internal_Get_Expr --
10954   -----------------------
10955
10956   function Internal_Get_Expr
10957    (Self : AMF.Internals.AMF_Element)
10958       return AMF.Internals.AMF_Element is
10959   begin
10960      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
10961         when AMF.Internals.Tables.UML_Types.E_UML_Duration =>
10962            return
10963              AMF.Internals.Links.Opposite_Element
10964               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Link, Self);
10965
10966         when AMF.Internals.Tables.UML_Types.E_UML_Time_Expression =>
10967            return
10968              AMF.Internals.Links.Opposite_Element
10969               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Link, Self);
10970
10971         when others =>
10972            raise Program_Error;
10973      end case;
10974   end Internal_Get_Expr;
10975
10976   -------------------------
10977   -- Internal_Get_Extend --
10978   -------------------------
10979
10980   function Internal_Get_Extend
10981    (Self : AMF.Internals.AMF_Element)
10982       return AMF.Internals.AMF_Collection_Of_Element is
10983   begin
10984      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
10985         when AMF.Internals.Tables.UML_Types.E_UML_Use_Case =>
10986            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 24;
10987
10988         when others =>
10989            raise Program_Error;
10990      end case;
10991   end Internal_Get_Extend;
10992
10993   --------------------------------
10994   -- Internal_Get_Extended_Case --
10995   --------------------------------
10996
10997   function Internal_Get_Extended_Case
10998    (Self : AMF.Internals.AMF_Element)
10999       return AMF.Internals.AMF_Element is
11000   begin
11001      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
11002         when AMF.Internals.Tables.UML_Types.E_UML_Extend =>
11003            return
11004              AMF.Internals.Links.Opposite_Element
11005               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
11006
11007         when others =>
11008            raise Program_Error;
11009      end case;
11010   end Internal_Get_Extended_Case;
11011
11012   ----------------------------------
11013   -- Internal_Get_Extended_Region --
11014   ----------------------------------
11015
11016   function Internal_Get_Extended_Region
11017    (Self : AMF.Internals.AMF_Element)
11018       return AMF.Internals.AMF_Element is
11019   begin
11020      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
11021         when AMF.Internals.Tables.UML_Types.E_UML_Region =>
11022            return
11023              AMF.Internals.Links.Opposite_Element
11024               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
11025
11026         when others =>
11027            raise Program_Error;
11028      end case;
11029   end Internal_Get_Extended_Region;
11030
11031   -------------------------------------
11032   -- Internal_Get_Extended_Signature --
11033   -------------------------------------
11034
11035   function Internal_Get_Extended_Signature
11036    (Self : AMF.Internals.AMF_Element)
11037       return AMF.Internals.AMF_Collection_Of_Element is
11038   begin
11039      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
11040         when AMF.Internals.Tables.UML_Types.E_UML_Redefinable_Template_Signature =>
11041            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
11042
11043         when others =>
11044            raise Program_Error;
11045      end case;
11046   end Internal_Get_Extended_Signature;
11047
11048   -----------------------------------------
11049   -- Internal_Get_Extended_State_Machine --
11050   -----------------------------------------
11051
11052   function Internal_Get_Extended_State_Machine
11053    (Self : AMF.Internals.AMF_Element)
11054       return AMF.Internals.AMF_Collection_Of_Element is
11055   begin
11056      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
11057         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_State_Machine =>
11058            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 27;
11059
11060         when AMF.Internals.Tables.UML_Types.E_UML_State_Machine =>
11061            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 27;
11062
11063         when others =>
11064            raise Program_Error;
11065      end case;
11066   end Internal_Get_Extended_State_Machine;
11067
11068   ----------------------------
11069   -- Internal_Get_Extension --
11070   ----------------------------
11071
11072   function Internal_Get_Extension
11073    (Self : AMF.Internals.AMF_Element)
11074       return AMF.Internals.AMF_Collection_Of_Element is
11075   begin
11076      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
11077         when AMF.Internals.Tables.UML_Types.E_UML_Activity =>
11078            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 33;
11079
11080         when AMF.Internals.Tables.UML_Types.E_UML_Association_Class =>
11081            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 33;
11082
11083         when AMF.Internals.Tables.UML_Types.E_UML_Class =>
11084            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 33;
11085
11086         when AMF.Internals.Tables.UML_Types.E_UML_Component =>
11087            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 33;
11088
11089         when AMF.Internals.Tables.UML_Types.E_UML_Device =>
11090            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 33;
11091
11092         when AMF.Internals.Tables.UML_Types.E_UML_Execution_Environment =>
11093            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 33;
11094
11095         when AMF.Internals.Tables.UML_Types.E_UML_Function_Behavior =>
11096            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 33;
11097
11098         when AMF.Internals.Tables.UML_Types.E_UML_Interaction =>
11099            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 33;
11100
11101         when AMF.Internals.Tables.UML_Types.E_UML_Node =>
11102            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 33;
11103
11104         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Behavior =>
11105            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 33;
11106
11107         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_State_Machine =>
11108            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 33;
11109
11110         when AMF.Internals.Tables.UML_Types.E_UML_State_Machine =>
11111            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 33;
11112
11113         when AMF.Internals.Tables.UML_Types.E_UML_Stereotype =>
11114            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 33;
11115
11116         when others =>
11117            raise Program_Error;
11118      end case;
11119   end Internal_Get_Extension;
11120
11121   ----------------------------
11122   -- Internal_Get_Extension --
11123   ----------------------------
11124
11125   function Internal_Get_Extension
11126    (Self : AMF.Internals.AMF_Element)
11127       return AMF.Internals.AMF_Element is
11128   begin
11129      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
11130         when AMF.Internals.Tables.UML_Types.E_UML_Extend =>
11131            return
11132              AMF.Internals.Links.Opposite_Element
11133               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
11134
11135         when others =>
11136            raise Program_Error;
11137      end case;
11138   end Internal_Get_Extension;
11139
11140   -------------------------------------
11141   -- Internal_Get_Extension_Location --
11142   -------------------------------------
11143
11144   function Internal_Get_Extension_Location
11145    (Self : AMF.Internals.AMF_Element)
11146       return AMF.Internals.AMF_Collection_Of_Element is
11147   begin
11148      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
11149         when AMF.Internals.Tables.UML_Types.E_UML_Extend =>
11150            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
11151
11152         when others =>
11153            raise Program_Error;
11154      end case;
11155   end Internal_Get_Extension_Location;
11156
11157   ----------------------------------
11158   -- Internal_Get_Extension_Point --
11159   ----------------------------------
11160
11161   function Internal_Get_Extension_Point
11162    (Self : AMF.Internals.AMF_Element)
11163       return AMF.Internals.AMF_Collection_Of_Element is
11164   begin
11165      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
11166         when AMF.Internals.Tables.UML_Types.E_UML_Use_Case =>
11167            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 27;
11168
11169         when others =>
11170            raise Program_Error;
11171      end case;
11172   end Internal_Get_Extension_Point;
11173
11174   --------------------------
11175   -- Internal_Get_Feature --
11176   --------------------------
11177
11178   function Internal_Get_Feature
11179    (Self : AMF.Internals.AMF_Element)
11180       return AMF.Internals.AMF_Collection_Of_Element is
11181   begin
11182      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
11183         when AMF.Internals.Tables.UML_Types.E_UML_Activity =>
11184            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
11185
11186         when AMF.Internals.Tables.UML_Types.E_UML_Actor =>
11187            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
11188
11189         when AMF.Internals.Tables.UML_Types.E_UML_Artifact =>
11190            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
11191
11192         when AMF.Internals.Tables.UML_Types.E_UML_Association =>
11193            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
11194
11195         when AMF.Internals.Tables.UML_Types.E_UML_Association_Class =>
11196            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
11197
11198         when AMF.Internals.Tables.UML_Types.E_UML_Class =>
11199            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
11200
11201         when AMF.Internals.Tables.UML_Types.E_UML_Collaboration =>
11202            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
11203
11204         when AMF.Internals.Tables.UML_Types.E_UML_Communication_Path =>
11205            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
11206
11207         when AMF.Internals.Tables.UML_Types.E_UML_Component =>
11208            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
11209
11210         when AMF.Internals.Tables.UML_Types.E_UML_Data_Type =>
11211            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
11212
11213         when AMF.Internals.Tables.UML_Types.E_UML_Deployment_Specification =>
11214            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
11215
11216         when AMF.Internals.Tables.UML_Types.E_UML_Device =>
11217            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
11218
11219         when AMF.Internals.Tables.UML_Types.E_UML_Enumeration =>
11220            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
11221
11222         when AMF.Internals.Tables.UML_Types.E_UML_Execution_Environment =>
11223            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
11224
11225         when AMF.Internals.Tables.UML_Types.E_UML_Extension =>
11226            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
11227
11228         when AMF.Internals.Tables.UML_Types.E_UML_Function_Behavior =>
11229            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
11230
11231         when AMF.Internals.Tables.UML_Types.E_UML_Information_Item =>
11232            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
11233
11234         when AMF.Internals.Tables.UML_Types.E_UML_Interaction =>
11235            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
11236
11237         when AMF.Internals.Tables.UML_Types.E_UML_Interface =>
11238            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
11239
11240         when AMF.Internals.Tables.UML_Types.E_UML_Node =>
11241            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
11242
11243         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Behavior =>
11244            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
11245
11246         when AMF.Internals.Tables.UML_Types.E_UML_Primitive_Type =>
11247            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
11248
11249         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_State_Machine =>
11250            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
11251
11252         when AMF.Internals.Tables.UML_Types.E_UML_Signal =>
11253            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
11254
11255         when AMF.Internals.Tables.UML_Types.E_UML_State_Machine =>
11256            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
11257
11258         when AMF.Internals.Tables.UML_Types.E_UML_Stereotype =>
11259            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
11260
11261         when AMF.Internals.Tables.UML_Types.E_UML_Use_Case =>
11262            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
11263
11264         when others =>
11265            raise Program_Error;
11266      end case;
11267   end Internal_Get_Feature;
11268
11269   ---------------------------------------
11270   -- Internal_Get_Featuring_Classifier --
11271   ---------------------------------------
11272
11273   function Internal_Get_Featuring_Classifier
11274    (Self : AMF.Internals.AMF_Element)
11275       return AMF.Internals.AMF_Collection_Of_Element is
11276   begin
11277      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
11278         when AMF.Internals.Tables.UML_Types.E_UML_Connector =>
11279            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
11280
11281         when AMF.Internals.Tables.UML_Types.E_UML_Extension_End =>
11282            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
11283
11284         when AMF.Internals.Tables.UML_Types.E_UML_Operation =>
11285            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
11286
11287         when AMF.Internals.Tables.UML_Types.E_UML_Port =>
11288            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
11289
11290         when AMF.Internals.Tables.UML_Types.E_UML_Property =>
11291            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
11292
11293         when AMF.Internals.Tables.UML_Types.E_UML_Reception =>
11294            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
11295
11296         when others =>
11297            raise Program_Error;
11298      end case;
11299   end Internal_Get_Featuring_Classifier;
11300
11301   ----------------------------
11302   -- Internal_Get_File_Name --
11303   ----------------------------
11304
11305   function Internal_Get_File_Name
11306    (Self : AMF.Internals.AMF_Element)
11307       return Matreshka.Internals.Strings.Shared_String_Access is
11308   begin
11309      return
11310        AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (17).String_Value;
11311   end Internal_Get_File_Name;
11312
11313   -------------------------
11314   -- Internal_Get_Finish --
11315   -------------------------
11316
11317   function Internal_Get_Finish
11318    (Self : AMF.Internals.AMF_Element)
11319       return AMF.Internals.AMF_Element is
11320   begin
11321      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
11322         when AMF.Internals.Tables.UML_Types.E_UML_Action_Execution_Specification =>
11323            return
11324              AMF.Internals.Links.Opposite_Element
11325               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Link, Self);
11326
11327         when AMF.Internals.Tables.UML_Types.E_UML_Behavior_Execution_Specification =>
11328            return
11329              AMF.Internals.Links.Opposite_Element
11330               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Link, Self);
11331
11332         when others =>
11333            raise Program_Error;
11334      end case;
11335   end Internal_Get_Finish;
11336
11337   ------------------------
11338   -- Internal_Get_First --
11339   ------------------------
11340
11341   function Internal_Get_First
11342    (Self : AMF.Internals.AMF_Element)
11343       return AMF.Internals.AMF_Element is
11344   begin
11345      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
11346         when AMF.Internals.Tables.UML_Types.E_UML_Test_Identity_Action =>
11347            return
11348              AMF.Internals.Links.Opposite_Element
11349               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Link, Self);
11350
11351         when others =>
11352            raise Program_Error;
11353      end case;
11354   end Internal_Get_First;
11355
11356   ------------------------------
11357   -- Internal_Get_First_Event --
11358   ------------------------------
11359
11360   function Internal_Get_First_Event
11361    (Self : AMF.Internals.AMF_Element)
11362       return AMF.Internals.AMF_Collection_Of_Boolean is
11363   begin
11364      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Boolean_Collection;
11365   end Internal_Get_First_Event;
11366
11367   ------------------------------
11368   -- Internal_Get_First_Event --
11369   ------------------------------
11370
11371   function Internal_Get_First_Event
11372    (Self : AMF.Internals.AMF_Element)
11373       return AMF.Optional_Boolean is
11374   begin
11375      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Boolean_Holder;
11376   end Internal_Get_First_Event;
11377
11378   ------------------------------
11379   -- Internal_Get_First_Event --
11380   ------------------------------
11381
11382   function Internal_Get_First_Event
11383    (Self : AMF.Internals.AMF_Element)
11384       return Boolean is
11385   begin
11386      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Boolean_Value;
11387   end Internal_Get_First_Event;
11388
11389   ----------------------------
11390   -- Internal_Get_Font_Name --
11391   ----------------------------
11392
11393   function Internal_Get_Font_Name
11394    (Self : AMF.Internals.AMF_Element)
11395       return Matreshka.Internals.Strings.Shared_String_Access is
11396   begin
11397      return
11398        AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).String_Value;
11399   end Internal_Get_Font_Name;
11400
11401   ----------------------------
11402   -- Internal_Get_Font_Size --
11403   ----------------------------
11404
11405   function Internal_Get_Font_Size
11406    (Self : AMF.Internals.AMF_Element)
11407       return AMF.Optional_Real is
11408   begin
11409      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Real_Holder;
11410   end Internal_Get_Font_Size;
11411
11412   -------------------------
11413   -- Internal_Get_Formal --
11414   -------------------------
11415
11416   function Internal_Get_Formal
11417    (Self : AMF.Internals.AMF_Element)
11418       return AMF.Internals.AMF_Element is
11419   begin
11420      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
11421         when AMF.Internals.Tables.UML_Types.E_UML_Template_Parameter_Substitution =>
11422            return
11423              AMF.Internals.Links.Opposite_Element
11424               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
11425
11426         when others =>
11427            raise Program_Error;
11428      end case;
11429   end Internal_Get_Formal;
11430
11431   ------------------------------
11432   -- Internal_Get_Formal_Gate --
11433   ------------------------------
11434
11435   function Internal_Get_Formal_Gate
11436    (Self : AMF.Internals.AMF_Element)
11437       return AMF.Internals.AMF_Collection_Of_Element is
11438   begin
11439      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
11440         when AMF.Internals.Tables.UML_Types.E_UML_Interaction =>
11441            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 45;
11442
11443         when others =>
11444            raise Program_Error;
11445      end case;
11446   end Internal_Get_Formal_Gate;
11447
11448   -------------------------
11449   -- Internal_Get_Format --
11450   -------------------------
11451
11452   function Internal_Get_Format
11453    (Self : AMF.Internals.AMF_Element)
11454       return Matreshka.Internals.Strings.Shared_String_Access is
11455   begin
11456      return
11457        AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).String_Value;
11458   end Internal_Get_Format;
11459
11460   ---------------------------
11461   -- Internal_Get_Fragment --
11462   ---------------------------
11463
11464   function Internal_Get_Fragment
11465    (Self : AMF.Internals.AMF_Element)
11466       return AMF.Internals.AMF_Collection_Of_Element is
11467   begin
11468      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
11469         when AMF.Internals.Tables.UML_Types.E_UML_Interaction =>
11470            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 46;
11471
11472         when AMF.Internals.Tables.UML_Types.E_UML_Interaction_Operand =>
11473            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
11474
11475         when others =>
11476            raise Program_Error;
11477      end case;
11478   end Internal_Get_Fragment;
11479
11480   ------------------------------
11481   -- Internal_Get_From_Action --
11482   ------------------------------
11483
11484   function Internal_Get_From_Action
11485    (Self : AMF.Internals.AMF_Element)
11486       return AMF.Internals.AMF_Element is
11487   begin
11488      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
11489         when AMF.Internals.Tables.UML_Types.E_UML_Action_Input_Pin =>
11490            return
11491              AMF.Internals.Links.Opposite_Element
11492               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (22).Link, Self);
11493
11494         when others =>
11495            raise Program_Error;
11496      end case;
11497   end Internal_Get_From_Action;
11498
11499   --------------------------
11500   -- Internal_Get_General --
11501   --------------------------
11502
11503   function Internal_Get_General
11504    (Self : AMF.Internals.AMF_Element)
11505       return AMF.Internals.AMF_Collection_Of_Element is
11506   begin
11507      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
11508         when AMF.Internals.Tables.UML_Types.E_UML_Activity =>
11509            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
11510
11511         when AMF.Internals.Tables.UML_Types.E_UML_Actor =>
11512            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
11513
11514         when AMF.Internals.Tables.UML_Types.E_UML_Artifact =>
11515            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
11516
11517         when AMF.Internals.Tables.UML_Types.E_UML_Association =>
11518            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
11519
11520         when AMF.Internals.Tables.UML_Types.E_UML_Association_Class =>
11521            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
11522
11523         when AMF.Internals.Tables.UML_Types.E_UML_Class =>
11524            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
11525
11526         when AMF.Internals.Tables.UML_Types.E_UML_Collaboration =>
11527            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
11528
11529         when AMF.Internals.Tables.UML_Types.E_UML_Communication_Path =>
11530            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
11531
11532         when AMF.Internals.Tables.UML_Types.E_UML_Component =>
11533            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
11534
11535         when AMF.Internals.Tables.UML_Types.E_UML_Data_Type =>
11536            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
11537
11538         when AMF.Internals.Tables.UML_Types.E_UML_Deployment_Specification =>
11539            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
11540
11541         when AMF.Internals.Tables.UML_Types.E_UML_Device =>
11542            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
11543
11544         when AMF.Internals.Tables.UML_Types.E_UML_Enumeration =>
11545            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
11546
11547         when AMF.Internals.Tables.UML_Types.E_UML_Execution_Environment =>
11548            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
11549
11550         when AMF.Internals.Tables.UML_Types.E_UML_Extension =>
11551            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
11552
11553         when AMF.Internals.Tables.UML_Types.E_UML_Function_Behavior =>
11554            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
11555
11556         when AMF.Internals.Tables.UML_Types.E_UML_Information_Item =>
11557            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
11558
11559         when AMF.Internals.Tables.UML_Types.E_UML_Interaction =>
11560            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
11561
11562         when AMF.Internals.Tables.UML_Types.E_UML_Interface =>
11563            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
11564
11565         when AMF.Internals.Tables.UML_Types.E_UML_Node =>
11566            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
11567
11568         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Behavior =>
11569            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
11570
11571         when AMF.Internals.Tables.UML_Types.E_UML_Primitive_Type =>
11572            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
11573
11574         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_State_Machine =>
11575            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
11576
11577         when AMF.Internals.Tables.UML_Types.E_UML_Signal =>
11578            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
11579
11580         when AMF.Internals.Tables.UML_Types.E_UML_State_Machine =>
11581            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
11582
11583         when AMF.Internals.Tables.UML_Types.E_UML_Stereotype =>
11584            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
11585
11586         when AMF.Internals.Tables.UML_Types.E_UML_Use_Case =>
11587            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
11588
11589         when others =>
11590            raise Program_Error;
11591      end case;
11592   end Internal_Get_General;
11593
11594   --------------------------
11595   -- Internal_Get_General --
11596   --------------------------
11597
11598   function Internal_Get_General
11599    (Self : AMF.Internals.AMF_Element)
11600       return AMF.Internals.AMF_Element is
11601   begin
11602      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
11603         when AMF.Internals.Tables.UML_Types.E_UML_Generalization =>
11604            return
11605              AMF.Internals.Links.Opposite_Element
11606               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (2).Link, Self);
11607
11608         when others =>
11609            raise Program_Error;
11610      end case;
11611   end Internal_Get_General;
11612
11613   ----------------------------------
11614   -- Internal_Get_General_Machine --
11615   ----------------------------------
11616
11617   function Internal_Get_General_Machine
11618    (Self : AMF.Internals.AMF_Element)
11619       return AMF.Internals.AMF_Element is
11620   begin
11621      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
11622         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_Conformance =>
11623            return
11624              AMF.Internals.Links.Opposite_Element
11625               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (2).Link, Self);
11626
11627         when others =>
11628            raise Program_Error;
11629      end case;
11630   end Internal_Get_General_Machine;
11631
11632   -----------------------------------
11633   -- Internal_Get_General_Ordering --
11634   -----------------------------------
11635
11636   function Internal_Get_General_Ordering
11637    (Self : AMF.Internals.AMF_Element)
11638       return AMF.Internals.AMF_Collection_Of_Element is
11639   begin
11640      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
11641         when AMF.Internals.Tables.UML_Types.E_UML_Action_Execution_Specification =>
11642            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 27;
11643
11644         when AMF.Internals.Tables.UML_Types.E_UML_Behavior_Execution_Specification =>
11645            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 27;
11646
11647         when AMF.Internals.Tables.UML_Types.E_UML_Combined_Fragment =>
11648            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 27;
11649
11650         when AMF.Internals.Tables.UML_Types.E_UML_Consider_Ignore_Fragment =>
11651            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 27;
11652
11653         when AMF.Internals.Tables.UML_Types.E_UML_Continuation =>
11654            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 27;
11655
11656         when AMF.Internals.Tables.UML_Types.E_UML_Destruction_Occurrence_Specification =>
11657            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 27;
11658
11659         when AMF.Internals.Tables.UML_Types.E_UML_Execution_Occurrence_Specification =>
11660            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 27;
11661
11662         when AMF.Internals.Tables.UML_Types.E_UML_Interaction =>
11663            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 27;
11664
11665         when AMF.Internals.Tables.UML_Types.E_UML_Interaction_Operand =>
11666            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 27;
11667
11668         when AMF.Internals.Tables.UML_Types.E_UML_Interaction_Use =>
11669            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 27;
11670
11671         when AMF.Internals.Tables.UML_Types.E_UML_Message_Occurrence_Specification =>
11672            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 27;
11673
11674         when AMF.Internals.Tables.UML_Types.E_UML_Occurrence_Specification =>
11675            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 27;
11676
11677         when AMF.Internals.Tables.UML_Types.E_UML_Part_Decomposition =>
11678            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 27;
11679
11680         when AMF.Internals.Tables.UML_Types.E_UML_State_Invariant =>
11681            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 27;
11682
11683         when others =>
11684            raise Program_Error;
11685      end case;
11686   end Internal_Get_General_Ordering;
11687
11688   ---------------------------------
11689   -- Internal_Get_Generalization --
11690   ---------------------------------
11691
11692   function Internal_Get_Generalization
11693    (Self : AMF.Internals.AMF_Element)
11694       return AMF.Internals.AMF_Collection_Of_Element is
11695   begin
11696      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
11697         when AMF.Internals.Tables.UML_Types.E_UML_Activity =>
11698            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
11699
11700         when AMF.Internals.Tables.UML_Types.E_UML_Actor =>
11701            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
11702
11703         when AMF.Internals.Tables.UML_Types.E_UML_Artifact =>
11704            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
11705
11706         when AMF.Internals.Tables.UML_Types.E_UML_Association =>
11707            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
11708
11709         when AMF.Internals.Tables.UML_Types.E_UML_Association_Class =>
11710            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
11711
11712         when AMF.Internals.Tables.UML_Types.E_UML_Class =>
11713            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
11714
11715         when AMF.Internals.Tables.UML_Types.E_UML_Collaboration =>
11716            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
11717
11718         when AMF.Internals.Tables.UML_Types.E_UML_Communication_Path =>
11719            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
11720
11721         when AMF.Internals.Tables.UML_Types.E_UML_Component =>
11722            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
11723
11724         when AMF.Internals.Tables.UML_Types.E_UML_Data_Type =>
11725            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
11726
11727         when AMF.Internals.Tables.UML_Types.E_UML_Deployment_Specification =>
11728            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
11729
11730         when AMF.Internals.Tables.UML_Types.E_UML_Device =>
11731            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
11732
11733         when AMF.Internals.Tables.UML_Types.E_UML_Enumeration =>
11734            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
11735
11736         when AMF.Internals.Tables.UML_Types.E_UML_Execution_Environment =>
11737            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
11738
11739         when AMF.Internals.Tables.UML_Types.E_UML_Extension =>
11740            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
11741
11742         when AMF.Internals.Tables.UML_Types.E_UML_Function_Behavior =>
11743            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
11744
11745         when AMF.Internals.Tables.UML_Types.E_UML_Generalization_Set =>
11746            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
11747
11748         when AMF.Internals.Tables.UML_Types.E_UML_Information_Item =>
11749            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
11750
11751         when AMF.Internals.Tables.UML_Types.E_UML_Interaction =>
11752            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
11753
11754         when AMF.Internals.Tables.UML_Types.E_UML_Interface =>
11755            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
11756
11757         when AMF.Internals.Tables.UML_Types.E_UML_Node =>
11758            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
11759
11760         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Behavior =>
11761            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
11762
11763         when AMF.Internals.Tables.UML_Types.E_UML_Primitive_Type =>
11764            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
11765
11766         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_State_Machine =>
11767            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
11768
11769         when AMF.Internals.Tables.UML_Types.E_UML_Signal =>
11770            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
11771
11772         when AMF.Internals.Tables.UML_Types.E_UML_State_Machine =>
11773            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
11774
11775         when AMF.Internals.Tables.UML_Types.E_UML_Stereotype =>
11776            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
11777
11778         when AMF.Internals.Tables.UML_Types.E_UML_Use_Case =>
11779            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
11780
11781         when others =>
11782            raise Program_Error;
11783      end case;
11784   end Internal_Get_Generalization;
11785
11786   -------------------------------------
11787   -- Internal_Get_Generalization_Set --
11788   -------------------------------------
11789
11790   function Internal_Get_Generalization_Set
11791    (Self : AMF.Internals.AMF_Element)
11792       return AMF.Internals.AMF_Collection_Of_Element is
11793   begin
11794      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
11795         when AMF.Internals.Tables.UML_Types.E_UML_Generalization =>
11796            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
11797
11798         when others =>
11799            raise Program_Error;
11800      end case;
11801   end Internal_Get_Generalization_Set;
11802
11803   ------------------------
11804   -- Internal_Get_Group --
11805   ------------------------
11806
11807   function Internal_Get_Group
11808    (Self : AMF.Internals.AMF_Element)
11809       return AMF.Internals.AMF_Collection_Of_Element is
11810   begin
11811      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
11812         when AMF.Internals.Tables.UML_Types.E_UML_Activity =>
11813            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 27;
11814
11815         when others =>
11816            raise Program_Error;
11817      end case;
11818   end Internal_Get_Group;
11819
11820   ------------------------
11821   -- Internal_Get_Guard --
11822   ------------------------
11823
11824   function Internal_Get_Guard
11825    (Self : AMF.Internals.AMF_Element)
11826       return AMF.Internals.AMF_Element is
11827   begin
11828      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
11829         when AMF.Internals.Tables.UML_Types.E_UML_Control_Flow =>
11830            return
11831              AMF.Internals.Links.Opposite_Element
11832               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
11833
11834         when AMF.Internals.Tables.UML_Types.E_UML_Interaction_Operand =>
11835            return
11836              AMF.Internals.Links.Opposite_Element
11837               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Link, Self);
11838
11839         when AMF.Internals.Tables.UML_Types.E_UML_Object_Flow =>
11840            return
11841              AMF.Internals.Links.Opposite_Element
11842               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
11843
11844         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_Transition =>
11845            return
11846              AMF.Internals.Links.Opposite_Element
11847               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
11848
11849         when AMF.Internals.Tables.UML_Types.E_UML_Transition =>
11850            return
11851              AMF.Internals.Links.Opposite_Element
11852               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
11853
11854         when others =>
11855            raise Program_Error;
11856      end case;
11857   end Internal_Get_Guard;
11858
11859   --------------------------
11860   -- Internal_Get_Handler --
11861   --------------------------
11862
11863   function Internal_Get_Handler
11864    (Self : AMF.Internals.AMF_Element)
11865       return AMF.Internals.AMF_Collection_Of_Element is
11866   begin
11867      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
11868         when AMF.Internals.Tables.UML_Types.E_UML_Accept_Call_Action =>
11869            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 18;
11870
11871         when AMF.Internals.Tables.UML_Types.E_UML_Accept_Event_Action =>
11872            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 18;
11873
11874         when AMF.Internals.Tables.UML_Types.E_UML_Add_Structural_Feature_Value_Action =>
11875            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 18;
11876
11877         when AMF.Internals.Tables.UML_Types.E_UML_Add_Variable_Value_Action =>
11878            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 18;
11879
11880         when AMF.Internals.Tables.UML_Types.E_UML_Broadcast_Signal_Action =>
11881            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 18;
11882
11883         when AMF.Internals.Tables.UML_Types.E_UML_Call_Behavior_Action =>
11884            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 18;
11885
11886         when AMF.Internals.Tables.UML_Types.E_UML_Call_Operation_Action =>
11887            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 18;
11888
11889         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Association_Action =>
11890            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 18;
11891
11892         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Structural_Feature_Action =>
11893            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 18;
11894
11895         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Variable_Action =>
11896            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 18;
11897
11898         when AMF.Internals.Tables.UML_Types.E_UML_Conditional_Node =>
11899            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 18;
11900
11901         when AMF.Internals.Tables.UML_Types.E_UML_Create_Link_Action =>
11902            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 18;
11903
11904         when AMF.Internals.Tables.UML_Types.E_UML_Create_Link_Object_Action =>
11905            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 18;
11906
11907         when AMF.Internals.Tables.UML_Types.E_UML_Create_Object_Action =>
11908            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 18;
11909
11910         when AMF.Internals.Tables.UML_Types.E_UML_Destroy_Link_Action =>
11911            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 18;
11912
11913         when AMF.Internals.Tables.UML_Types.E_UML_Destroy_Object_Action =>
11914            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 18;
11915
11916         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Region =>
11917            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 18;
11918
11919         when AMF.Internals.Tables.UML_Types.E_UML_Loop_Node =>
11920            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 18;
11921
11922         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Action =>
11923            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 18;
11924
11925         when AMF.Internals.Tables.UML_Types.E_UML_Raise_Exception_Action =>
11926            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 18;
11927
11928         when AMF.Internals.Tables.UML_Types.E_UML_Read_Extent_Action =>
11929            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 18;
11930
11931         when AMF.Internals.Tables.UML_Types.E_UML_Read_Is_Classified_Object_Action =>
11932            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 18;
11933
11934         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Action =>
11935            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 18;
11936
11937         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Object_End_Action =>
11938            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 18;
11939
11940         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Object_End_Qualifier_Action =>
11941            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 18;
11942
11943         when AMF.Internals.Tables.UML_Types.E_UML_Read_Self_Action =>
11944            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 18;
11945
11946         when AMF.Internals.Tables.UML_Types.E_UML_Read_Structural_Feature_Action =>
11947            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 18;
11948
11949         when AMF.Internals.Tables.UML_Types.E_UML_Read_Variable_Action =>
11950            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 18;
11951
11952         when AMF.Internals.Tables.UML_Types.E_UML_Reclassify_Object_Action =>
11953            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 18;
11954
11955         when AMF.Internals.Tables.UML_Types.E_UML_Reduce_Action =>
11956            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 18;
11957
11958         when AMF.Internals.Tables.UML_Types.E_UML_Remove_Structural_Feature_Value_Action =>
11959            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 18;
11960
11961         when AMF.Internals.Tables.UML_Types.E_UML_Remove_Variable_Value_Action =>
11962            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 18;
11963
11964         when AMF.Internals.Tables.UML_Types.E_UML_Reply_Action =>
11965            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 18;
11966
11967         when AMF.Internals.Tables.UML_Types.E_UML_Send_Object_Action =>
11968            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 18;
11969
11970         when AMF.Internals.Tables.UML_Types.E_UML_Send_Signal_Action =>
11971            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 18;
11972
11973         when AMF.Internals.Tables.UML_Types.E_UML_Sequence_Node =>
11974            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 18;
11975
11976         when AMF.Internals.Tables.UML_Types.E_UML_Start_Classifier_Behavior_Action =>
11977            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 18;
11978
11979         when AMF.Internals.Tables.UML_Types.E_UML_Start_Object_Behavior_Action =>
11980            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 18;
11981
11982         when AMF.Internals.Tables.UML_Types.E_UML_Structured_Activity_Node =>
11983            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 18;
11984
11985         when AMF.Internals.Tables.UML_Types.E_UML_Test_Identity_Action =>
11986            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 18;
11987
11988         when AMF.Internals.Tables.UML_Types.E_UML_Unmarshall_Action =>
11989            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 18;
11990
11991         when AMF.Internals.Tables.UML_Types.E_UML_Value_Specification_Action =>
11992            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 18;
11993
11994         when others =>
11995            raise Program_Error;
11996      end case;
11997   end Internal_Get_Handler;
11998
11999   -------------------------------
12000   -- Internal_Get_Handler_Body --
12001   -------------------------------
12002
12003   function Internal_Get_Handler_Body
12004    (Self : AMF.Internals.AMF_Element)
12005       return AMF.Internals.AMF_Element is
12006   begin
12007      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
12008         when AMF.Internals.Tables.UML_Types.E_UML_Exception_Handler =>
12009            return
12010              AMF.Internals.Links.Opposite_Element
12011               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
12012
12013         when others =>
12014            raise Program_Error;
12015      end case;
12016   end Internal_Get_Handler_Body;
12017
12018   --------------------------
12019   -- Internal_Get_Heading --
12020   --------------------------
12021
12022   function Internal_Get_Heading
12023    (Self : AMF.Internals.AMF_Element)
12024       return AMF.Internals.AMF_Element is
12025   begin
12026      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
12027         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Activity_Diagram =>
12028            return
12029              AMF.Internals.Links.Opposite_Element
12030               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (20).Link, Self);
12031
12032         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Class_Diagram =>
12033            return
12034              AMF.Internals.Links.Opposite_Element
12035               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (20).Link, Self);
12036
12037         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Component_Diagram =>
12038            return
12039              AMF.Internals.Links.Opposite_Element
12040               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (20).Link, Self);
12041
12042         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Composite_Structure_Diagram =>
12043            return
12044              AMF.Internals.Links.Opposite_Element
12045               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (20).Link, Self);
12046
12047         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Deployment_Diagram =>
12048            return
12049              AMF.Internals.Links.Opposite_Element
12050               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (20).Link, Self);
12051
12052         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Interaction_Diagram =>
12053            return
12054              AMF.Internals.Links.Opposite_Element
12055               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (20).Link, Self);
12056
12057         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Object_Diagram =>
12058            return
12059              AMF.Internals.Links.Opposite_Element
12060               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (20).Link, Self);
12061
12062         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Package_Diagram =>
12063            return
12064              AMF.Internals.Links.Opposite_Element
12065               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (20).Link, Self);
12066
12067         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Profile_Diagram =>
12068            return
12069              AMF.Internals.Links.Opposite_Element
12070               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (20).Link, Self);
12071
12072         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_State_Machine_Diagram =>
12073            return
12074              AMF.Internals.Links.Opposite_Element
12075               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (20).Link, Self);
12076
12077         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Use_Case_Diagram =>
12078            return
12079              AMF.Internals.Links.Opposite_Element
12080               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (20).Link, Self);
12081
12082         when others =>
12083            raise Program_Error;
12084      end case;
12085   end Internal_Get_Heading;
12086
12087   -----------------------
12088   -- Internal_Get_Icon --
12089   -----------------------
12090
12091   function Internal_Get_Icon
12092    (Self : AMF.Internals.AMF_Element)
12093       return AMF.Internals.AMF_Collection_Of_Element is
12094   begin
12095      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
12096         when AMF.Internals.Tables.UML_Types.E_UML_Stereotype =>
12097            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 24;
12098
12099         when others =>
12100            raise Program_Error;
12101      end case;
12102   end Internal_Get_Icon;
12103
12104   ------------------------------------------
12105   -- Internal_Get_Implementing_Classifier --
12106   ------------------------------------------
12107
12108   function Internal_Get_Implementing_Classifier
12109    (Self : AMF.Internals.AMF_Element)
12110       return AMF.Internals.AMF_Element is
12111   begin
12112      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
12113         when AMF.Internals.Tables.UML_Types.E_UML_Interface_Realization =>
12114            return
12115              AMF.Internals.Links.Opposite_Element
12116               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (11).Link, Self);
12117
12118         when others =>
12119            raise Program_Error;
12120      end case;
12121   end Internal_Get_Implementing_Classifier;
12122
12123   -----------------------------------
12124   -- Internal_Get_Imported_Element --
12125   -----------------------------------
12126
12127   function Internal_Get_Imported_Element
12128    (Self : AMF.Internals.AMF_Element)
12129       return AMF.Internals.AMF_Element is
12130   begin
12131      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
12132         when AMF.Internals.Tables.UML_Types.E_UML_Element_Import =>
12133            return
12134              AMF.Internals.Links.Opposite_Element
12135               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
12136
12137         when others =>
12138            raise Program_Error;
12139      end case;
12140   end Internal_Get_Imported_Element;
12141
12142   ----------------------------------
12143   -- Internal_Get_Imported_Member --
12144   ----------------------------------
12145
12146   function Internal_Get_Imported_Member
12147    (Self : AMF.Internals.AMF_Element)
12148       return AMF.Internals.AMF_Collection_Of_Element is
12149   begin
12150      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
12151         when AMF.Internals.Tables.UML_Types.E_UML_Activity =>
12152            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 13;
12153
12154         when AMF.Internals.Tables.UML_Types.E_UML_Actor =>
12155            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 13;
12156
12157         when AMF.Internals.Tables.UML_Types.E_UML_Artifact =>
12158            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 13;
12159
12160         when AMF.Internals.Tables.UML_Types.E_UML_Association =>
12161            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 13;
12162
12163         when AMF.Internals.Tables.UML_Types.E_UML_Association_Class =>
12164            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 13;
12165
12166         when AMF.Internals.Tables.UML_Types.E_UML_Class =>
12167            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 13;
12168
12169         when AMF.Internals.Tables.UML_Types.E_UML_Collaboration =>
12170            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 13;
12171
12172         when AMF.Internals.Tables.UML_Types.E_UML_Communication_Path =>
12173            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 13;
12174
12175         when AMF.Internals.Tables.UML_Types.E_UML_Component =>
12176            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 13;
12177
12178         when AMF.Internals.Tables.UML_Types.E_UML_Conditional_Node =>
12179            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 13;
12180
12181         when AMF.Internals.Tables.UML_Types.E_UML_Data_Type =>
12182            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 13;
12183
12184         when AMF.Internals.Tables.UML_Types.E_UML_Deployment_Specification =>
12185            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 13;
12186
12187         when AMF.Internals.Tables.UML_Types.E_UML_Device =>
12188            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 13;
12189
12190         when AMF.Internals.Tables.UML_Types.E_UML_Enumeration =>
12191            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 13;
12192
12193         when AMF.Internals.Tables.UML_Types.E_UML_Execution_Environment =>
12194            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 13;
12195
12196         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Region =>
12197            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 13;
12198
12199         when AMF.Internals.Tables.UML_Types.E_UML_Extension =>
12200            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 13;
12201
12202         when AMF.Internals.Tables.UML_Types.E_UML_Final_State =>
12203            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 13;
12204
12205         when AMF.Internals.Tables.UML_Types.E_UML_Function_Behavior =>
12206            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 13;
12207
12208         when AMF.Internals.Tables.UML_Types.E_UML_Information_Item =>
12209            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 13;
12210
12211         when AMF.Internals.Tables.UML_Types.E_UML_Interaction =>
12212            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 13;
12213
12214         when AMF.Internals.Tables.UML_Types.E_UML_Interaction_Operand =>
12215            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 13;
12216
12217         when AMF.Internals.Tables.UML_Types.E_UML_Interface =>
12218            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 13;
12219
12220         when AMF.Internals.Tables.UML_Types.E_UML_Loop_Node =>
12221            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 13;
12222
12223         when AMF.Internals.Tables.UML_Types.E_UML_Model =>
12224            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 13;
12225
12226         when AMF.Internals.Tables.UML_Types.E_UML_Node =>
12227            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 13;
12228
12229         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Behavior =>
12230            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 13;
12231
12232         when AMF.Internals.Tables.UML_Types.E_UML_Operation =>
12233            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 13;
12234
12235         when AMF.Internals.Tables.UML_Types.E_UML_Package =>
12236            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 13;
12237
12238         when AMF.Internals.Tables.UML_Types.E_UML_Primitive_Type =>
12239            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 13;
12240
12241         when AMF.Internals.Tables.UML_Types.E_UML_Profile =>
12242            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 13;
12243
12244         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_State_Machine =>
12245            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 13;
12246
12247         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_Transition =>
12248            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 13;
12249
12250         when AMF.Internals.Tables.UML_Types.E_UML_Reception =>
12251            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 13;
12252
12253         when AMF.Internals.Tables.UML_Types.E_UML_Region =>
12254            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 13;
12255
12256         when AMF.Internals.Tables.UML_Types.E_UML_Sequence_Node =>
12257            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 13;
12258
12259         when AMF.Internals.Tables.UML_Types.E_UML_Signal =>
12260            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 13;
12261
12262         when AMF.Internals.Tables.UML_Types.E_UML_State =>
12263            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 13;
12264
12265         when AMF.Internals.Tables.UML_Types.E_UML_State_Machine =>
12266            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 13;
12267
12268         when AMF.Internals.Tables.UML_Types.E_UML_Stereotype =>
12269            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 13;
12270
12271         when AMF.Internals.Tables.UML_Types.E_UML_Structured_Activity_Node =>
12272            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 13;
12273
12274         when AMF.Internals.Tables.UML_Types.E_UML_Transition =>
12275            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 13;
12276
12277         when AMF.Internals.Tables.UML_Types.E_UML_Use_Case =>
12278            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 13;
12279
12280         when others =>
12281            raise Program_Error;
12282      end case;
12283   end Internal_Get_Imported_Member;
12284
12285   -----------------------------------
12286   -- Internal_Get_Imported_Package --
12287   -----------------------------------
12288
12289   function Internal_Get_Imported_Package
12290    (Self : AMF.Internals.AMF_Element)
12291       return AMF.Internals.AMF_Element is
12292   begin
12293      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
12294         when AMF.Internals.Tables.UML_Types.E_UML_Package_Import =>
12295            return
12296              AMF.Internals.Links.Opposite_Element
12297               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
12298
12299         when others =>
12300            raise Program_Error;
12301      end case;
12302   end Internal_Get_Imported_Package;
12303
12304   --------------------------------------
12305   -- Internal_Get_Importing_Namespace --
12306   --------------------------------------
12307
12308   function Internal_Get_Importing_Namespace
12309    (Self : AMF.Internals.AMF_Element)
12310       return AMF.Internals.AMF_Element is
12311   begin
12312      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
12313         when AMF.Internals.Tables.UML_Types.E_UML_Element_Import =>
12314            return
12315              AMF.Internals.Links.Opposite_Element
12316               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (5).Link, Self);
12317
12318         when AMF.Internals.Tables.UML_Types.E_UML_Package_Import =>
12319            return
12320              AMF.Internals.Links.Opposite_Element
12321               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
12322
12323         when others =>
12324            raise Program_Error;
12325      end case;
12326   end Internal_Get_Importing_Namespace;
12327
12328   ------------------------------
12329   -- Internal_Get_In_Activity --
12330   ------------------------------
12331
12332   function Internal_Get_In_Activity
12333    (Self : AMF.Internals.AMF_Element)
12334       return AMF.Internals.AMF_Element is
12335   begin
12336      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
12337         when AMF.Internals.Tables.UML_Types.E_UML_Activity_Partition =>
12338            return
12339              AMF.Internals.Links.Opposite_Element
12340               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Link, Self);
12341
12342         when AMF.Internals.Tables.UML_Types.E_UML_Conditional_Node =>
12343            return
12344              AMF.Internals.Links.Opposite_Element
12345               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Link, Self);
12346
12347         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Region =>
12348            return
12349              AMF.Internals.Links.Opposite_Element
12350               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Link, Self);
12351
12352         when AMF.Internals.Tables.UML_Types.E_UML_Interruptible_Activity_Region =>
12353            return
12354              AMF.Internals.Links.Opposite_Element
12355               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Link, Self);
12356
12357         when AMF.Internals.Tables.UML_Types.E_UML_Loop_Node =>
12358            return
12359              AMF.Internals.Links.Opposite_Element
12360               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Link, Self);
12361
12362         when AMF.Internals.Tables.UML_Types.E_UML_Sequence_Node =>
12363            return
12364              AMF.Internals.Links.Opposite_Element
12365               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Link, Self);
12366
12367         when AMF.Internals.Tables.UML_Types.E_UML_Structured_Activity_Node =>
12368            return
12369              AMF.Internals.Links.Opposite_Element
12370               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Link, Self);
12371
12372         when others =>
12373            raise Program_Error;
12374      end case;
12375   end Internal_Get_In_Activity;
12376
12377   ---------------------------
12378   -- Internal_Get_In_Group --
12379   ---------------------------
12380
12381   function Internal_Get_In_Group
12382    (Self : AMF.Internals.AMF_Element)
12383       return AMF.Internals.AMF_Collection_Of_Element is
12384   begin
12385      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
12386         when AMF.Internals.Tables.UML_Types.E_UML_Accept_Call_Action =>
12387            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
12388
12389         when AMF.Internals.Tables.UML_Types.E_UML_Accept_Event_Action =>
12390            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
12391
12392         when AMF.Internals.Tables.UML_Types.E_UML_Action_Input_Pin =>
12393            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
12394
12395         when AMF.Internals.Tables.UML_Types.E_UML_Activity_Final_Node =>
12396            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
12397
12398         when AMF.Internals.Tables.UML_Types.E_UML_Activity_Parameter_Node =>
12399            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
12400
12401         when AMF.Internals.Tables.UML_Types.E_UML_Add_Structural_Feature_Value_Action =>
12402            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
12403
12404         when AMF.Internals.Tables.UML_Types.E_UML_Add_Variable_Value_Action =>
12405            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
12406
12407         when AMF.Internals.Tables.UML_Types.E_UML_Broadcast_Signal_Action =>
12408            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
12409
12410         when AMF.Internals.Tables.UML_Types.E_UML_Call_Behavior_Action =>
12411            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
12412
12413         when AMF.Internals.Tables.UML_Types.E_UML_Call_Operation_Action =>
12414            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
12415
12416         when AMF.Internals.Tables.UML_Types.E_UML_Central_Buffer_Node =>
12417            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
12418
12419         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Association_Action =>
12420            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
12421
12422         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Structural_Feature_Action =>
12423            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
12424
12425         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Variable_Action =>
12426            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
12427
12428         when AMF.Internals.Tables.UML_Types.E_UML_Conditional_Node =>
12429            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
12430
12431         when AMF.Internals.Tables.UML_Types.E_UML_Control_Flow =>
12432            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
12433
12434         when AMF.Internals.Tables.UML_Types.E_UML_Create_Link_Action =>
12435            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
12436
12437         when AMF.Internals.Tables.UML_Types.E_UML_Create_Link_Object_Action =>
12438            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
12439
12440         when AMF.Internals.Tables.UML_Types.E_UML_Create_Object_Action =>
12441            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
12442
12443         when AMF.Internals.Tables.UML_Types.E_UML_Data_Store_Node =>
12444            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
12445
12446         when AMF.Internals.Tables.UML_Types.E_UML_Decision_Node =>
12447            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
12448
12449         when AMF.Internals.Tables.UML_Types.E_UML_Destroy_Link_Action =>
12450            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
12451
12452         when AMF.Internals.Tables.UML_Types.E_UML_Destroy_Object_Action =>
12453            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
12454
12455         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Node =>
12456            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
12457
12458         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Region =>
12459            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
12460
12461         when AMF.Internals.Tables.UML_Types.E_UML_Flow_Final_Node =>
12462            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
12463
12464         when AMF.Internals.Tables.UML_Types.E_UML_Fork_Node =>
12465            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
12466
12467         when AMF.Internals.Tables.UML_Types.E_UML_Initial_Node =>
12468            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
12469
12470         when AMF.Internals.Tables.UML_Types.E_UML_Input_Pin =>
12471            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
12472
12473         when AMF.Internals.Tables.UML_Types.E_UML_Join_Node =>
12474            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
12475
12476         when AMF.Internals.Tables.UML_Types.E_UML_Loop_Node =>
12477            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
12478
12479         when AMF.Internals.Tables.UML_Types.E_UML_Merge_Node =>
12480            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
12481
12482         when AMF.Internals.Tables.UML_Types.E_UML_Object_Flow =>
12483            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
12484
12485         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Action =>
12486            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
12487
12488         when AMF.Internals.Tables.UML_Types.E_UML_Output_Pin =>
12489            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
12490
12491         when AMF.Internals.Tables.UML_Types.E_UML_Raise_Exception_Action =>
12492            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
12493
12494         when AMF.Internals.Tables.UML_Types.E_UML_Read_Extent_Action =>
12495            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
12496
12497         when AMF.Internals.Tables.UML_Types.E_UML_Read_Is_Classified_Object_Action =>
12498            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
12499
12500         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Action =>
12501            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
12502
12503         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Object_End_Action =>
12504            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
12505
12506         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Object_End_Qualifier_Action =>
12507            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
12508
12509         when AMF.Internals.Tables.UML_Types.E_UML_Read_Self_Action =>
12510            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
12511
12512         when AMF.Internals.Tables.UML_Types.E_UML_Read_Structural_Feature_Action =>
12513            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
12514
12515         when AMF.Internals.Tables.UML_Types.E_UML_Read_Variable_Action =>
12516            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
12517
12518         when AMF.Internals.Tables.UML_Types.E_UML_Reclassify_Object_Action =>
12519            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
12520
12521         when AMF.Internals.Tables.UML_Types.E_UML_Reduce_Action =>
12522            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
12523
12524         when AMF.Internals.Tables.UML_Types.E_UML_Remove_Structural_Feature_Value_Action =>
12525            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
12526
12527         when AMF.Internals.Tables.UML_Types.E_UML_Remove_Variable_Value_Action =>
12528            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
12529
12530         when AMF.Internals.Tables.UML_Types.E_UML_Reply_Action =>
12531            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
12532
12533         when AMF.Internals.Tables.UML_Types.E_UML_Send_Object_Action =>
12534            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
12535
12536         when AMF.Internals.Tables.UML_Types.E_UML_Send_Signal_Action =>
12537            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
12538
12539         when AMF.Internals.Tables.UML_Types.E_UML_Sequence_Node =>
12540            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
12541
12542         when AMF.Internals.Tables.UML_Types.E_UML_Start_Classifier_Behavior_Action =>
12543            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
12544
12545         when AMF.Internals.Tables.UML_Types.E_UML_Start_Object_Behavior_Action =>
12546            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
12547
12548         when AMF.Internals.Tables.UML_Types.E_UML_Structured_Activity_Node =>
12549            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
12550
12551         when AMF.Internals.Tables.UML_Types.E_UML_Test_Identity_Action =>
12552            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
12553
12554         when AMF.Internals.Tables.UML_Types.E_UML_Unmarshall_Action =>
12555            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
12556
12557         when AMF.Internals.Tables.UML_Types.E_UML_Value_Pin =>
12558            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
12559
12560         when AMF.Internals.Tables.UML_Types.E_UML_Value_Specification_Action =>
12561            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
12562
12563         when others =>
12564            raise Program_Error;
12565      end case;
12566   end Internal_Get_In_Group;
12567
12568   ------------------------------------------
12569   -- Internal_Get_In_Interruptible_Region --
12570   ------------------------------------------
12571
12572   function Internal_Get_In_Interruptible_Region
12573    (Self : AMF.Internals.AMF_Element)
12574       return AMF.Internals.AMF_Collection_Of_Element is
12575   begin
12576      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
12577         when AMF.Internals.Tables.UML_Types.E_UML_Accept_Call_Action =>
12578            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
12579
12580         when AMF.Internals.Tables.UML_Types.E_UML_Accept_Event_Action =>
12581            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
12582
12583         when AMF.Internals.Tables.UML_Types.E_UML_Action_Input_Pin =>
12584            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
12585
12586         when AMF.Internals.Tables.UML_Types.E_UML_Activity_Final_Node =>
12587            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
12588
12589         when AMF.Internals.Tables.UML_Types.E_UML_Activity_Parameter_Node =>
12590            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
12591
12592         when AMF.Internals.Tables.UML_Types.E_UML_Add_Structural_Feature_Value_Action =>
12593            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
12594
12595         when AMF.Internals.Tables.UML_Types.E_UML_Add_Variable_Value_Action =>
12596            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
12597
12598         when AMF.Internals.Tables.UML_Types.E_UML_Broadcast_Signal_Action =>
12599            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
12600
12601         when AMF.Internals.Tables.UML_Types.E_UML_Call_Behavior_Action =>
12602            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
12603
12604         when AMF.Internals.Tables.UML_Types.E_UML_Call_Operation_Action =>
12605            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
12606
12607         when AMF.Internals.Tables.UML_Types.E_UML_Central_Buffer_Node =>
12608            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
12609
12610         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Association_Action =>
12611            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
12612
12613         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Structural_Feature_Action =>
12614            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
12615
12616         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Variable_Action =>
12617            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
12618
12619         when AMF.Internals.Tables.UML_Types.E_UML_Conditional_Node =>
12620            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
12621
12622         when AMF.Internals.Tables.UML_Types.E_UML_Create_Link_Action =>
12623            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
12624
12625         when AMF.Internals.Tables.UML_Types.E_UML_Create_Link_Object_Action =>
12626            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
12627
12628         when AMF.Internals.Tables.UML_Types.E_UML_Create_Object_Action =>
12629            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
12630
12631         when AMF.Internals.Tables.UML_Types.E_UML_Data_Store_Node =>
12632            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
12633
12634         when AMF.Internals.Tables.UML_Types.E_UML_Decision_Node =>
12635            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
12636
12637         when AMF.Internals.Tables.UML_Types.E_UML_Destroy_Link_Action =>
12638            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
12639
12640         when AMF.Internals.Tables.UML_Types.E_UML_Destroy_Object_Action =>
12641            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
12642
12643         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Node =>
12644            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
12645
12646         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Region =>
12647            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
12648
12649         when AMF.Internals.Tables.UML_Types.E_UML_Flow_Final_Node =>
12650            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
12651
12652         when AMF.Internals.Tables.UML_Types.E_UML_Fork_Node =>
12653            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
12654
12655         when AMF.Internals.Tables.UML_Types.E_UML_Initial_Node =>
12656            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
12657
12658         when AMF.Internals.Tables.UML_Types.E_UML_Input_Pin =>
12659            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
12660
12661         when AMF.Internals.Tables.UML_Types.E_UML_Join_Node =>
12662            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
12663
12664         when AMF.Internals.Tables.UML_Types.E_UML_Loop_Node =>
12665            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
12666
12667         when AMF.Internals.Tables.UML_Types.E_UML_Merge_Node =>
12668            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
12669
12670         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Action =>
12671            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
12672
12673         when AMF.Internals.Tables.UML_Types.E_UML_Output_Pin =>
12674            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
12675
12676         when AMF.Internals.Tables.UML_Types.E_UML_Raise_Exception_Action =>
12677            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
12678
12679         when AMF.Internals.Tables.UML_Types.E_UML_Read_Extent_Action =>
12680            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
12681
12682         when AMF.Internals.Tables.UML_Types.E_UML_Read_Is_Classified_Object_Action =>
12683            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
12684
12685         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Action =>
12686            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
12687
12688         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Object_End_Action =>
12689            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
12690
12691         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Object_End_Qualifier_Action =>
12692            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
12693
12694         when AMF.Internals.Tables.UML_Types.E_UML_Read_Self_Action =>
12695            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
12696
12697         when AMF.Internals.Tables.UML_Types.E_UML_Read_Structural_Feature_Action =>
12698            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
12699
12700         when AMF.Internals.Tables.UML_Types.E_UML_Read_Variable_Action =>
12701            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
12702
12703         when AMF.Internals.Tables.UML_Types.E_UML_Reclassify_Object_Action =>
12704            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
12705
12706         when AMF.Internals.Tables.UML_Types.E_UML_Reduce_Action =>
12707            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
12708
12709         when AMF.Internals.Tables.UML_Types.E_UML_Remove_Structural_Feature_Value_Action =>
12710            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
12711
12712         when AMF.Internals.Tables.UML_Types.E_UML_Remove_Variable_Value_Action =>
12713            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
12714
12715         when AMF.Internals.Tables.UML_Types.E_UML_Reply_Action =>
12716            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
12717
12718         when AMF.Internals.Tables.UML_Types.E_UML_Send_Object_Action =>
12719            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
12720
12721         when AMF.Internals.Tables.UML_Types.E_UML_Send_Signal_Action =>
12722            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
12723
12724         when AMF.Internals.Tables.UML_Types.E_UML_Sequence_Node =>
12725            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
12726
12727         when AMF.Internals.Tables.UML_Types.E_UML_Start_Classifier_Behavior_Action =>
12728            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
12729
12730         when AMF.Internals.Tables.UML_Types.E_UML_Start_Object_Behavior_Action =>
12731            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
12732
12733         when AMF.Internals.Tables.UML_Types.E_UML_Structured_Activity_Node =>
12734            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
12735
12736         when AMF.Internals.Tables.UML_Types.E_UML_Test_Identity_Action =>
12737            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
12738
12739         when AMF.Internals.Tables.UML_Types.E_UML_Unmarshall_Action =>
12740            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
12741
12742         when AMF.Internals.Tables.UML_Types.E_UML_Value_Pin =>
12743            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
12744
12745         when AMF.Internals.Tables.UML_Types.E_UML_Value_Specification_Action =>
12746            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
12747
12748         when others =>
12749            raise Program_Error;
12750      end case;
12751   end Internal_Get_In_Interruptible_Region;
12752
12753   -------------------------------
12754   -- Internal_Get_In_Partition --
12755   -------------------------------
12756
12757   function Internal_Get_In_Partition
12758    (Self : AMF.Internals.AMF_Element)
12759       return AMF.Internals.AMF_Collection_Of_Element is
12760   begin
12761      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
12762         when AMF.Internals.Tables.UML_Types.E_UML_Accept_Call_Action =>
12763            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
12764
12765         when AMF.Internals.Tables.UML_Types.E_UML_Accept_Event_Action =>
12766            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
12767
12768         when AMF.Internals.Tables.UML_Types.E_UML_Action_Input_Pin =>
12769            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
12770
12771         when AMF.Internals.Tables.UML_Types.E_UML_Activity_Final_Node =>
12772            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
12773
12774         when AMF.Internals.Tables.UML_Types.E_UML_Activity_Parameter_Node =>
12775            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
12776
12777         when AMF.Internals.Tables.UML_Types.E_UML_Add_Structural_Feature_Value_Action =>
12778            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
12779
12780         when AMF.Internals.Tables.UML_Types.E_UML_Add_Variable_Value_Action =>
12781            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
12782
12783         when AMF.Internals.Tables.UML_Types.E_UML_Broadcast_Signal_Action =>
12784            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
12785
12786         when AMF.Internals.Tables.UML_Types.E_UML_Call_Behavior_Action =>
12787            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
12788
12789         when AMF.Internals.Tables.UML_Types.E_UML_Call_Operation_Action =>
12790            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
12791
12792         when AMF.Internals.Tables.UML_Types.E_UML_Central_Buffer_Node =>
12793            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
12794
12795         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Association_Action =>
12796            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
12797
12798         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Structural_Feature_Action =>
12799            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
12800
12801         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Variable_Action =>
12802            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
12803
12804         when AMF.Internals.Tables.UML_Types.E_UML_Conditional_Node =>
12805            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
12806
12807         when AMF.Internals.Tables.UML_Types.E_UML_Control_Flow =>
12808            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
12809
12810         when AMF.Internals.Tables.UML_Types.E_UML_Create_Link_Action =>
12811            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
12812
12813         when AMF.Internals.Tables.UML_Types.E_UML_Create_Link_Object_Action =>
12814            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
12815
12816         when AMF.Internals.Tables.UML_Types.E_UML_Create_Object_Action =>
12817            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
12818
12819         when AMF.Internals.Tables.UML_Types.E_UML_Data_Store_Node =>
12820            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
12821
12822         when AMF.Internals.Tables.UML_Types.E_UML_Decision_Node =>
12823            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
12824
12825         when AMF.Internals.Tables.UML_Types.E_UML_Destroy_Link_Action =>
12826            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
12827
12828         when AMF.Internals.Tables.UML_Types.E_UML_Destroy_Object_Action =>
12829            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
12830
12831         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Node =>
12832            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
12833
12834         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Region =>
12835            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
12836
12837         when AMF.Internals.Tables.UML_Types.E_UML_Flow_Final_Node =>
12838            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
12839
12840         when AMF.Internals.Tables.UML_Types.E_UML_Fork_Node =>
12841            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
12842
12843         when AMF.Internals.Tables.UML_Types.E_UML_Initial_Node =>
12844            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
12845
12846         when AMF.Internals.Tables.UML_Types.E_UML_Input_Pin =>
12847            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
12848
12849         when AMF.Internals.Tables.UML_Types.E_UML_Join_Node =>
12850            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
12851
12852         when AMF.Internals.Tables.UML_Types.E_UML_Loop_Node =>
12853            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
12854
12855         when AMF.Internals.Tables.UML_Types.E_UML_Merge_Node =>
12856            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
12857
12858         when AMF.Internals.Tables.UML_Types.E_UML_Object_Flow =>
12859            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
12860
12861         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Action =>
12862            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
12863
12864         when AMF.Internals.Tables.UML_Types.E_UML_Output_Pin =>
12865            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
12866
12867         when AMF.Internals.Tables.UML_Types.E_UML_Raise_Exception_Action =>
12868            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
12869
12870         when AMF.Internals.Tables.UML_Types.E_UML_Read_Extent_Action =>
12871            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
12872
12873         when AMF.Internals.Tables.UML_Types.E_UML_Read_Is_Classified_Object_Action =>
12874            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
12875
12876         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Action =>
12877            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
12878
12879         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Object_End_Action =>
12880            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
12881
12882         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Object_End_Qualifier_Action =>
12883            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
12884
12885         when AMF.Internals.Tables.UML_Types.E_UML_Read_Self_Action =>
12886            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
12887
12888         when AMF.Internals.Tables.UML_Types.E_UML_Read_Structural_Feature_Action =>
12889            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
12890
12891         when AMF.Internals.Tables.UML_Types.E_UML_Read_Variable_Action =>
12892            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
12893
12894         when AMF.Internals.Tables.UML_Types.E_UML_Reclassify_Object_Action =>
12895            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
12896
12897         when AMF.Internals.Tables.UML_Types.E_UML_Reduce_Action =>
12898            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
12899
12900         when AMF.Internals.Tables.UML_Types.E_UML_Remove_Structural_Feature_Value_Action =>
12901            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
12902
12903         when AMF.Internals.Tables.UML_Types.E_UML_Remove_Variable_Value_Action =>
12904            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
12905
12906         when AMF.Internals.Tables.UML_Types.E_UML_Reply_Action =>
12907            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
12908
12909         when AMF.Internals.Tables.UML_Types.E_UML_Send_Object_Action =>
12910            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
12911
12912         when AMF.Internals.Tables.UML_Types.E_UML_Send_Signal_Action =>
12913            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
12914
12915         when AMF.Internals.Tables.UML_Types.E_UML_Sequence_Node =>
12916            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
12917
12918         when AMF.Internals.Tables.UML_Types.E_UML_Start_Classifier_Behavior_Action =>
12919            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
12920
12921         when AMF.Internals.Tables.UML_Types.E_UML_Start_Object_Behavior_Action =>
12922            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
12923
12924         when AMF.Internals.Tables.UML_Types.E_UML_Structured_Activity_Node =>
12925            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
12926
12927         when AMF.Internals.Tables.UML_Types.E_UML_Test_Identity_Action =>
12928            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
12929
12930         when AMF.Internals.Tables.UML_Types.E_UML_Unmarshall_Action =>
12931            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
12932
12933         when AMF.Internals.Tables.UML_Types.E_UML_Value_Pin =>
12934            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
12935
12936         when AMF.Internals.Tables.UML_Types.E_UML_Value_Specification_Action =>
12937            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
12938
12939         when others =>
12940            raise Program_Error;
12941      end case;
12942   end Internal_Get_In_Partition;
12943
12944   ---------------------------
12945   -- Internal_Get_In_State --
12946   ---------------------------
12947
12948   function Internal_Get_In_State
12949    (Self : AMF.Internals.AMF_Element)
12950       return AMF.Internals.AMF_Collection_Of_Element is
12951   begin
12952      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
12953         when AMF.Internals.Tables.UML_Types.E_UML_Action_Input_Pin =>
12954            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 12;
12955
12956         when AMF.Internals.Tables.UML_Types.E_UML_Activity_Parameter_Node =>
12957            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 12;
12958
12959         when AMF.Internals.Tables.UML_Types.E_UML_Central_Buffer_Node =>
12960            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 12;
12961
12962         when AMF.Internals.Tables.UML_Types.E_UML_Data_Store_Node =>
12963            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 12;
12964
12965         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Node =>
12966            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 12;
12967
12968         when AMF.Internals.Tables.UML_Types.E_UML_Input_Pin =>
12969            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 12;
12970
12971         when AMF.Internals.Tables.UML_Types.E_UML_Output_Pin =>
12972            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 12;
12973
12974         when AMF.Internals.Tables.UML_Types.E_UML_Value_Pin =>
12975            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 12;
12976
12977         when others =>
12978            raise Program_Error;
12979      end case;
12980   end Internal_Get_In_State;
12981
12982   -------------------------------------
12983   -- Internal_Get_In_Structured_Node --
12984   -------------------------------------
12985
12986   function Internal_Get_In_Structured_Node
12987    (Self : AMF.Internals.AMF_Element)
12988       return AMF.Internals.AMF_Element is
12989   begin
12990      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
12991         when AMF.Internals.Tables.UML_Types.E_UML_Accept_Call_Action =>
12992            return
12993              AMF.Internals.Links.Opposite_Element
12994               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
12995
12996         when AMF.Internals.Tables.UML_Types.E_UML_Accept_Event_Action =>
12997            return
12998              AMF.Internals.Links.Opposite_Element
12999               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
13000
13001         when AMF.Internals.Tables.UML_Types.E_UML_Action_Input_Pin =>
13002            return
13003              AMF.Internals.Links.Opposite_Element
13004               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
13005
13006         when AMF.Internals.Tables.UML_Types.E_UML_Activity_Final_Node =>
13007            return
13008              AMF.Internals.Links.Opposite_Element
13009               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
13010
13011         when AMF.Internals.Tables.UML_Types.E_UML_Activity_Parameter_Node =>
13012            return
13013              AMF.Internals.Links.Opposite_Element
13014               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
13015
13016         when AMF.Internals.Tables.UML_Types.E_UML_Add_Structural_Feature_Value_Action =>
13017            return
13018              AMF.Internals.Links.Opposite_Element
13019               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
13020
13021         when AMF.Internals.Tables.UML_Types.E_UML_Add_Variable_Value_Action =>
13022            return
13023              AMF.Internals.Links.Opposite_Element
13024               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
13025
13026         when AMF.Internals.Tables.UML_Types.E_UML_Broadcast_Signal_Action =>
13027            return
13028              AMF.Internals.Links.Opposite_Element
13029               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
13030
13031         when AMF.Internals.Tables.UML_Types.E_UML_Call_Behavior_Action =>
13032            return
13033              AMF.Internals.Links.Opposite_Element
13034               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
13035
13036         when AMF.Internals.Tables.UML_Types.E_UML_Call_Operation_Action =>
13037            return
13038              AMF.Internals.Links.Opposite_Element
13039               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
13040
13041         when AMF.Internals.Tables.UML_Types.E_UML_Central_Buffer_Node =>
13042            return
13043              AMF.Internals.Links.Opposite_Element
13044               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
13045
13046         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Association_Action =>
13047            return
13048              AMF.Internals.Links.Opposite_Element
13049               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
13050
13051         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Structural_Feature_Action =>
13052            return
13053              AMF.Internals.Links.Opposite_Element
13054               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
13055
13056         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Variable_Action =>
13057            return
13058              AMF.Internals.Links.Opposite_Element
13059               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
13060
13061         when AMF.Internals.Tables.UML_Types.E_UML_Conditional_Node =>
13062            return
13063              AMF.Internals.Links.Opposite_Element
13064               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
13065
13066         when AMF.Internals.Tables.UML_Types.E_UML_Control_Flow =>
13067            return
13068              AMF.Internals.Links.Opposite_Element
13069               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
13070
13071         when AMF.Internals.Tables.UML_Types.E_UML_Create_Link_Action =>
13072            return
13073              AMF.Internals.Links.Opposite_Element
13074               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
13075
13076         when AMF.Internals.Tables.UML_Types.E_UML_Create_Link_Object_Action =>
13077            return
13078              AMF.Internals.Links.Opposite_Element
13079               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
13080
13081         when AMF.Internals.Tables.UML_Types.E_UML_Create_Object_Action =>
13082            return
13083              AMF.Internals.Links.Opposite_Element
13084               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
13085
13086         when AMF.Internals.Tables.UML_Types.E_UML_Data_Store_Node =>
13087            return
13088              AMF.Internals.Links.Opposite_Element
13089               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
13090
13091         when AMF.Internals.Tables.UML_Types.E_UML_Decision_Node =>
13092            return
13093              AMF.Internals.Links.Opposite_Element
13094               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
13095
13096         when AMF.Internals.Tables.UML_Types.E_UML_Destroy_Link_Action =>
13097            return
13098              AMF.Internals.Links.Opposite_Element
13099               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
13100
13101         when AMF.Internals.Tables.UML_Types.E_UML_Destroy_Object_Action =>
13102            return
13103              AMF.Internals.Links.Opposite_Element
13104               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
13105
13106         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Node =>
13107            return
13108              AMF.Internals.Links.Opposite_Element
13109               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
13110
13111         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Region =>
13112            return
13113              AMF.Internals.Links.Opposite_Element
13114               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
13115
13116         when AMF.Internals.Tables.UML_Types.E_UML_Flow_Final_Node =>
13117            return
13118              AMF.Internals.Links.Opposite_Element
13119               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
13120
13121         when AMF.Internals.Tables.UML_Types.E_UML_Fork_Node =>
13122            return
13123              AMF.Internals.Links.Opposite_Element
13124               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
13125
13126         when AMF.Internals.Tables.UML_Types.E_UML_Initial_Node =>
13127            return
13128              AMF.Internals.Links.Opposite_Element
13129               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
13130
13131         when AMF.Internals.Tables.UML_Types.E_UML_Input_Pin =>
13132            return
13133              AMF.Internals.Links.Opposite_Element
13134               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
13135
13136         when AMF.Internals.Tables.UML_Types.E_UML_Join_Node =>
13137            return
13138              AMF.Internals.Links.Opposite_Element
13139               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
13140
13141         when AMF.Internals.Tables.UML_Types.E_UML_Loop_Node =>
13142            return
13143              AMF.Internals.Links.Opposite_Element
13144               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
13145
13146         when AMF.Internals.Tables.UML_Types.E_UML_Merge_Node =>
13147            return
13148              AMF.Internals.Links.Opposite_Element
13149               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
13150
13151         when AMF.Internals.Tables.UML_Types.E_UML_Object_Flow =>
13152            return
13153              AMF.Internals.Links.Opposite_Element
13154               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
13155
13156         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Action =>
13157            return
13158              AMF.Internals.Links.Opposite_Element
13159               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
13160
13161         when AMF.Internals.Tables.UML_Types.E_UML_Output_Pin =>
13162            return
13163              AMF.Internals.Links.Opposite_Element
13164               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
13165
13166         when AMF.Internals.Tables.UML_Types.E_UML_Raise_Exception_Action =>
13167            return
13168              AMF.Internals.Links.Opposite_Element
13169               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
13170
13171         when AMF.Internals.Tables.UML_Types.E_UML_Read_Extent_Action =>
13172            return
13173              AMF.Internals.Links.Opposite_Element
13174               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
13175
13176         when AMF.Internals.Tables.UML_Types.E_UML_Read_Is_Classified_Object_Action =>
13177            return
13178              AMF.Internals.Links.Opposite_Element
13179               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
13180
13181         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Action =>
13182            return
13183              AMF.Internals.Links.Opposite_Element
13184               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
13185
13186         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Object_End_Action =>
13187            return
13188              AMF.Internals.Links.Opposite_Element
13189               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
13190
13191         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Object_End_Qualifier_Action =>
13192            return
13193              AMF.Internals.Links.Opposite_Element
13194               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
13195
13196         when AMF.Internals.Tables.UML_Types.E_UML_Read_Self_Action =>
13197            return
13198              AMF.Internals.Links.Opposite_Element
13199               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
13200
13201         when AMF.Internals.Tables.UML_Types.E_UML_Read_Structural_Feature_Action =>
13202            return
13203              AMF.Internals.Links.Opposite_Element
13204               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
13205
13206         when AMF.Internals.Tables.UML_Types.E_UML_Read_Variable_Action =>
13207            return
13208              AMF.Internals.Links.Opposite_Element
13209               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
13210
13211         when AMF.Internals.Tables.UML_Types.E_UML_Reclassify_Object_Action =>
13212            return
13213              AMF.Internals.Links.Opposite_Element
13214               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
13215
13216         when AMF.Internals.Tables.UML_Types.E_UML_Reduce_Action =>
13217            return
13218              AMF.Internals.Links.Opposite_Element
13219               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
13220
13221         when AMF.Internals.Tables.UML_Types.E_UML_Remove_Structural_Feature_Value_Action =>
13222            return
13223              AMF.Internals.Links.Opposite_Element
13224               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
13225
13226         when AMF.Internals.Tables.UML_Types.E_UML_Remove_Variable_Value_Action =>
13227            return
13228              AMF.Internals.Links.Opposite_Element
13229               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
13230
13231         when AMF.Internals.Tables.UML_Types.E_UML_Reply_Action =>
13232            return
13233              AMF.Internals.Links.Opposite_Element
13234               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
13235
13236         when AMF.Internals.Tables.UML_Types.E_UML_Send_Object_Action =>
13237            return
13238              AMF.Internals.Links.Opposite_Element
13239               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
13240
13241         when AMF.Internals.Tables.UML_Types.E_UML_Send_Signal_Action =>
13242            return
13243              AMF.Internals.Links.Opposite_Element
13244               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
13245
13246         when AMF.Internals.Tables.UML_Types.E_UML_Sequence_Node =>
13247            return
13248              AMF.Internals.Links.Opposite_Element
13249               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
13250
13251         when AMF.Internals.Tables.UML_Types.E_UML_Start_Classifier_Behavior_Action =>
13252            return
13253              AMF.Internals.Links.Opposite_Element
13254               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
13255
13256         when AMF.Internals.Tables.UML_Types.E_UML_Start_Object_Behavior_Action =>
13257            return
13258              AMF.Internals.Links.Opposite_Element
13259               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
13260
13261         when AMF.Internals.Tables.UML_Types.E_UML_Structured_Activity_Node =>
13262            return
13263              AMF.Internals.Links.Opposite_Element
13264               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
13265
13266         when AMF.Internals.Tables.UML_Types.E_UML_Test_Identity_Action =>
13267            return
13268              AMF.Internals.Links.Opposite_Element
13269               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
13270
13271         when AMF.Internals.Tables.UML_Types.E_UML_Unmarshall_Action =>
13272            return
13273              AMF.Internals.Links.Opposite_Element
13274               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
13275
13276         when AMF.Internals.Tables.UML_Types.E_UML_Value_Pin =>
13277            return
13278              AMF.Internals.Links.Opposite_Element
13279               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
13280
13281         when AMF.Internals.Tables.UML_Types.E_UML_Value_Specification_Action =>
13282            return
13283              AMF.Internals.Links.Opposite_Element
13284               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
13285
13286         when others =>
13287            raise Program_Error;
13288      end case;
13289   end Internal_Get_In_Structured_Node;
13290
13291   --------------------------
13292   -- Internal_Get_Include --
13293   --------------------------
13294
13295   function Internal_Get_Include
13296    (Self : AMF.Internals.AMF_Element)
13297       return AMF.Internals.AMF_Collection_Of_Element is
13298   begin
13299      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
13300         when AMF.Internals.Tables.UML_Types.E_UML_Use_Case =>
13301            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 28;
13302
13303         when others =>
13304            raise Program_Error;
13305      end case;
13306   end Internal_Get_Include;
13307
13308   ---------------------------------
13309   -- Internal_Get_Including_Case --
13310   ---------------------------------
13311
13312   function Internal_Get_Including_Case
13313    (Self : AMF.Internals.AMF_Element)
13314       return AMF.Internals.AMF_Element is
13315   begin
13316      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
13317         when AMF.Internals.Tables.UML_Types.E_UML_Include =>
13318            return
13319              AMF.Internals.Links.Opposite_Element
13320               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
13321
13322         when others =>
13323            raise Program_Error;
13324      end case;
13325   end Internal_Get_Including_Case;
13326
13327   ---------------------------
13328   -- Internal_Get_Incoming --
13329   ---------------------------
13330
13331   function Internal_Get_Incoming
13332    (Self : AMF.Internals.AMF_Element)
13333       return AMF.Internals.AMF_Collection_Of_Element is
13334   begin
13335      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
13336         when AMF.Internals.Tables.UML_Types.E_UML_Accept_Call_Action =>
13337            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
13338
13339         when AMF.Internals.Tables.UML_Types.E_UML_Accept_Event_Action =>
13340            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
13341
13342         when AMF.Internals.Tables.UML_Types.E_UML_Action_Input_Pin =>
13343            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
13344
13345         when AMF.Internals.Tables.UML_Types.E_UML_Activity_Final_Node =>
13346            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
13347
13348         when AMF.Internals.Tables.UML_Types.E_UML_Activity_Parameter_Node =>
13349            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
13350
13351         when AMF.Internals.Tables.UML_Types.E_UML_Add_Structural_Feature_Value_Action =>
13352            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
13353
13354         when AMF.Internals.Tables.UML_Types.E_UML_Add_Variable_Value_Action =>
13355            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
13356
13357         when AMF.Internals.Tables.UML_Types.E_UML_Broadcast_Signal_Action =>
13358            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
13359
13360         when AMF.Internals.Tables.UML_Types.E_UML_Call_Behavior_Action =>
13361            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
13362
13363         when AMF.Internals.Tables.UML_Types.E_UML_Call_Operation_Action =>
13364            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
13365
13366         when AMF.Internals.Tables.UML_Types.E_UML_Central_Buffer_Node =>
13367            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
13368
13369         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Association_Action =>
13370            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
13371
13372         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Structural_Feature_Action =>
13373            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
13374
13375         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Variable_Action =>
13376            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
13377
13378         when AMF.Internals.Tables.UML_Types.E_UML_Conditional_Node =>
13379            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
13380
13381         when AMF.Internals.Tables.UML_Types.E_UML_Connection_Point_Reference =>
13382            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
13383
13384         when AMF.Internals.Tables.UML_Types.E_UML_Create_Link_Action =>
13385            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
13386
13387         when AMF.Internals.Tables.UML_Types.E_UML_Create_Link_Object_Action =>
13388            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
13389
13390         when AMF.Internals.Tables.UML_Types.E_UML_Create_Object_Action =>
13391            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
13392
13393         when AMF.Internals.Tables.UML_Types.E_UML_Data_Store_Node =>
13394            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
13395
13396         when AMF.Internals.Tables.UML_Types.E_UML_Decision_Node =>
13397            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
13398
13399         when AMF.Internals.Tables.UML_Types.E_UML_Destroy_Link_Action =>
13400            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
13401
13402         when AMF.Internals.Tables.UML_Types.E_UML_Destroy_Object_Action =>
13403            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
13404
13405         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Node =>
13406            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
13407
13408         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Region =>
13409            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
13410
13411         when AMF.Internals.Tables.UML_Types.E_UML_Final_State =>
13412            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
13413
13414         when AMF.Internals.Tables.UML_Types.E_UML_Flow_Final_Node =>
13415            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
13416
13417         when AMF.Internals.Tables.UML_Types.E_UML_Fork_Node =>
13418            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
13419
13420         when AMF.Internals.Tables.UML_Types.E_UML_Initial_Node =>
13421            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
13422
13423         when AMF.Internals.Tables.UML_Types.E_UML_Input_Pin =>
13424            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
13425
13426         when AMF.Internals.Tables.UML_Types.E_UML_Join_Node =>
13427            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
13428
13429         when AMF.Internals.Tables.UML_Types.E_UML_Loop_Node =>
13430            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
13431
13432         when AMF.Internals.Tables.UML_Types.E_UML_Merge_Node =>
13433            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
13434
13435         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Action =>
13436            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
13437
13438         when AMF.Internals.Tables.UML_Types.E_UML_Output_Pin =>
13439            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
13440
13441         when AMF.Internals.Tables.UML_Types.E_UML_Pseudostate =>
13442            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
13443
13444         when AMF.Internals.Tables.UML_Types.E_UML_Raise_Exception_Action =>
13445            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
13446
13447         when AMF.Internals.Tables.UML_Types.E_UML_Read_Extent_Action =>
13448            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
13449
13450         when AMF.Internals.Tables.UML_Types.E_UML_Read_Is_Classified_Object_Action =>
13451            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
13452
13453         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Action =>
13454            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
13455
13456         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Object_End_Action =>
13457            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
13458
13459         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Object_End_Qualifier_Action =>
13460            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
13461
13462         when AMF.Internals.Tables.UML_Types.E_UML_Read_Self_Action =>
13463            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
13464
13465         when AMF.Internals.Tables.UML_Types.E_UML_Read_Structural_Feature_Action =>
13466            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
13467
13468         when AMF.Internals.Tables.UML_Types.E_UML_Read_Variable_Action =>
13469            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
13470
13471         when AMF.Internals.Tables.UML_Types.E_UML_Reclassify_Object_Action =>
13472            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
13473
13474         when AMF.Internals.Tables.UML_Types.E_UML_Reduce_Action =>
13475            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
13476
13477         when AMF.Internals.Tables.UML_Types.E_UML_Remove_Structural_Feature_Value_Action =>
13478            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
13479
13480         when AMF.Internals.Tables.UML_Types.E_UML_Remove_Variable_Value_Action =>
13481            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
13482
13483         when AMF.Internals.Tables.UML_Types.E_UML_Reply_Action =>
13484            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
13485
13486         when AMF.Internals.Tables.UML_Types.E_UML_Send_Object_Action =>
13487            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
13488
13489         when AMF.Internals.Tables.UML_Types.E_UML_Send_Signal_Action =>
13490            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
13491
13492         when AMF.Internals.Tables.UML_Types.E_UML_Sequence_Node =>
13493            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
13494
13495         when AMF.Internals.Tables.UML_Types.E_UML_Start_Classifier_Behavior_Action =>
13496            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
13497
13498         when AMF.Internals.Tables.UML_Types.E_UML_Start_Object_Behavior_Action =>
13499            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
13500
13501         when AMF.Internals.Tables.UML_Types.E_UML_State =>
13502            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
13503
13504         when AMF.Internals.Tables.UML_Types.E_UML_Structured_Activity_Node =>
13505            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
13506
13507         when AMF.Internals.Tables.UML_Types.E_UML_Test_Identity_Action =>
13508            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
13509
13510         when AMF.Internals.Tables.UML_Types.E_UML_Unmarshall_Action =>
13511            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
13512
13513         when AMF.Internals.Tables.UML_Types.E_UML_Value_Pin =>
13514            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
13515
13516         when AMF.Internals.Tables.UML_Types.E_UML_Value_Specification_Action =>
13517            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
13518
13519         when others =>
13520            raise Program_Error;
13521      end case;
13522   end Internal_Get_Incoming;
13523
13524   -------------------------------------
13525   -- Internal_Get_Information_Source --
13526   -------------------------------------
13527
13528   function Internal_Get_Information_Source
13529    (Self : AMF.Internals.AMF_Element)
13530       return AMF.Internals.AMF_Collection_Of_Element is
13531   begin
13532      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
13533         when AMF.Internals.Tables.UML_Types.E_UML_Information_Flow =>
13534            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
13535
13536         when others =>
13537            raise Program_Error;
13538      end case;
13539   end Internal_Get_Information_Source;
13540
13541   -------------------------------------
13542   -- Internal_Get_Information_Target --
13543   -------------------------------------
13544
13545   function Internal_Get_Information_Target
13546    (Self : AMF.Internals.AMF_Element)
13547       return AMF.Internals.AMF_Collection_Of_Element is
13548   begin
13549      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
13550         when AMF.Internals.Tables.UML_Types.E_UML_Information_Flow =>
13551            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
13552
13553         when others =>
13554            raise Program_Error;
13555      end case;
13556   end Internal_Get_Information_Target;
13557
13558   -----------------------------------
13559   -- Internal_Get_Inherited_Member --
13560   -----------------------------------
13561
13562   function Internal_Get_Inherited_Member
13563    (Self : AMF.Internals.AMF_Element)
13564       return AMF.Internals.AMF_Collection_Of_Element is
13565   begin
13566      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
13567         when AMF.Internals.Tables.UML_Types.E_UML_Activity =>
13568            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 18;
13569
13570         when AMF.Internals.Tables.UML_Types.E_UML_Actor =>
13571            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 18;
13572
13573         when AMF.Internals.Tables.UML_Types.E_UML_Artifact =>
13574            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 18;
13575
13576         when AMF.Internals.Tables.UML_Types.E_UML_Association =>
13577            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 18;
13578
13579         when AMF.Internals.Tables.UML_Types.E_UML_Association_Class =>
13580            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 18;
13581
13582         when AMF.Internals.Tables.UML_Types.E_UML_Class =>
13583            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 18;
13584
13585         when AMF.Internals.Tables.UML_Types.E_UML_Collaboration =>
13586            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 18;
13587
13588         when AMF.Internals.Tables.UML_Types.E_UML_Communication_Path =>
13589            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 18;
13590
13591         when AMF.Internals.Tables.UML_Types.E_UML_Component =>
13592            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 18;
13593
13594         when AMF.Internals.Tables.UML_Types.E_UML_Data_Type =>
13595            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 18;
13596
13597         when AMF.Internals.Tables.UML_Types.E_UML_Deployment_Specification =>
13598            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 18;
13599
13600         when AMF.Internals.Tables.UML_Types.E_UML_Device =>
13601            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 18;
13602
13603         when AMF.Internals.Tables.UML_Types.E_UML_Enumeration =>
13604            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 18;
13605
13606         when AMF.Internals.Tables.UML_Types.E_UML_Execution_Environment =>
13607            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 18;
13608
13609         when AMF.Internals.Tables.UML_Types.E_UML_Extension =>
13610            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 18;
13611
13612         when AMF.Internals.Tables.UML_Types.E_UML_Function_Behavior =>
13613            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 18;
13614
13615         when AMF.Internals.Tables.UML_Types.E_UML_Information_Item =>
13616            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 18;
13617
13618         when AMF.Internals.Tables.UML_Types.E_UML_Interaction =>
13619            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 18;
13620
13621         when AMF.Internals.Tables.UML_Types.E_UML_Interface =>
13622            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 18;
13623
13624         when AMF.Internals.Tables.UML_Types.E_UML_Node =>
13625            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 18;
13626
13627         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Behavior =>
13628            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 18;
13629
13630         when AMF.Internals.Tables.UML_Types.E_UML_Primitive_Type =>
13631            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 18;
13632
13633         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_State_Machine =>
13634            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 18;
13635
13636         when AMF.Internals.Tables.UML_Types.E_UML_Signal =>
13637            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 18;
13638
13639         when AMF.Internals.Tables.UML_Types.E_UML_State_Machine =>
13640            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 18;
13641
13642         when AMF.Internals.Tables.UML_Types.E_UML_Stereotype =>
13643            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 18;
13644
13645         when AMF.Internals.Tables.UML_Types.E_UML_Use_Case =>
13646            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 18;
13647
13648         when others =>
13649            raise Program_Error;
13650      end case;
13651   end Internal_Get_Inherited_Member;
13652
13653   --------------------------------------
13654   -- Internal_Get_Inherited_Parameter --
13655   --------------------------------------
13656
13657   function Internal_Get_Inherited_Parameter
13658    (Self : AMF.Internals.AMF_Element)
13659       return AMF.Internals.AMF_Collection_Of_Element is
13660   begin
13661      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
13662         when AMF.Internals.Tables.UML_Types.E_UML_Redefinable_Template_Signature =>
13663            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
13664
13665         when others =>
13666            raise Program_Error;
13667      end case;
13668   end Internal_Get_Inherited_Parameter;
13669
13670   -----------------------------------------
13671   -- Internal_Get_Inherited_State_Border --
13672   -----------------------------------------
13673
13674   function Internal_Get_Inherited_State_Border
13675    (Self : AMF.Internals.AMF_Element)
13676       return AMF.UMLDI.Optional_UMLDI_UML_Inherited_State_Border_Kind is
13677   begin
13678      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (24).UML_Inherited_State_Border_Kind_Holder;
13679   end Internal_Get_Inherited_State_Border;
13680
13681   ------------------------
13682   -- Internal_Get_Input --
13683   ------------------------
13684
13685   function Internal_Get_Input
13686    (Self : AMF.Internals.AMF_Element)
13687       return AMF.Internals.AMF_Collection_Of_Element is
13688   begin
13689      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
13690         when AMF.Internals.Tables.UML_Types.E_UML_Accept_Call_Action =>
13691            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 19;
13692
13693         when AMF.Internals.Tables.UML_Types.E_UML_Accept_Event_Action =>
13694            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 19;
13695
13696         when AMF.Internals.Tables.UML_Types.E_UML_Add_Structural_Feature_Value_Action =>
13697            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 19;
13698
13699         when AMF.Internals.Tables.UML_Types.E_UML_Add_Variable_Value_Action =>
13700            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 19;
13701
13702         when AMF.Internals.Tables.UML_Types.E_UML_Broadcast_Signal_Action =>
13703            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 19;
13704
13705         when AMF.Internals.Tables.UML_Types.E_UML_Call_Behavior_Action =>
13706            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 19;
13707
13708         when AMF.Internals.Tables.UML_Types.E_UML_Call_Operation_Action =>
13709            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 19;
13710
13711         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Association_Action =>
13712            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 19;
13713
13714         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Structural_Feature_Action =>
13715            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 19;
13716
13717         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Variable_Action =>
13718            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 19;
13719
13720         when AMF.Internals.Tables.UML_Types.E_UML_Conditional_Node =>
13721            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 19;
13722
13723         when AMF.Internals.Tables.UML_Types.E_UML_Create_Link_Action =>
13724            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 19;
13725
13726         when AMF.Internals.Tables.UML_Types.E_UML_Create_Link_Object_Action =>
13727            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 19;
13728
13729         when AMF.Internals.Tables.UML_Types.E_UML_Create_Object_Action =>
13730            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 19;
13731
13732         when AMF.Internals.Tables.UML_Types.E_UML_Destroy_Link_Action =>
13733            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 19;
13734
13735         when AMF.Internals.Tables.UML_Types.E_UML_Destroy_Object_Action =>
13736            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 19;
13737
13738         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Region =>
13739            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 19;
13740
13741         when AMF.Internals.Tables.UML_Types.E_UML_Loop_Node =>
13742            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 19;
13743
13744         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Action =>
13745            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 19;
13746
13747         when AMF.Internals.Tables.UML_Types.E_UML_Raise_Exception_Action =>
13748            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 19;
13749
13750         when AMF.Internals.Tables.UML_Types.E_UML_Read_Extent_Action =>
13751            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 19;
13752
13753         when AMF.Internals.Tables.UML_Types.E_UML_Read_Is_Classified_Object_Action =>
13754            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 19;
13755
13756         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Action =>
13757            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 19;
13758
13759         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Object_End_Action =>
13760            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 19;
13761
13762         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Object_End_Qualifier_Action =>
13763            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 19;
13764
13765         when AMF.Internals.Tables.UML_Types.E_UML_Read_Self_Action =>
13766            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 19;
13767
13768         when AMF.Internals.Tables.UML_Types.E_UML_Read_Structural_Feature_Action =>
13769            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 19;
13770
13771         when AMF.Internals.Tables.UML_Types.E_UML_Read_Variable_Action =>
13772            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 19;
13773
13774         when AMF.Internals.Tables.UML_Types.E_UML_Reclassify_Object_Action =>
13775            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 19;
13776
13777         when AMF.Internals.Tables.UML_Types.E_UML_Reduce_Action =>
13778            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 19;
13779
13780         when AMF.Internals.Tables.UML_Types.E_UML_Remove_Structural_Feature_Value_Action =>
13781            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 19;
13782
13783         when AMF.Internals.Tables.UML_Types.E_UML_Remove_Variable_Value_Action =>
13784            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 19;
13785
13786         when AMF.Internals.Tables.UML_Types.E_UML_Reply_Action =>
13787            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 19;
13788
13789         when AMF.Internals.Tables.UML_Types.E_UML_Send_Object_Action =>
13790            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 19;
13791
13792         when AMF.Internals.Tables.UML_Types.E_UML_Send_Signal_Action =>
13793            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 19;
13794
13795         when AMF.Internals.Tables.UML_Types.E_UML_Sequence_Node =>
13796            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 19;
13797
13798         when AMF.Internals.Tables.UML_Types.E_UML_Start_Classifier_Behavior_Action =>
13799            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 19;
13800
13801         when AMF.Internals.Tables.UML_Types.E_UML_Start_Object_Behavior_Action =>
13802            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 19;
13803
13804         when AMF.Internals.Tables.UML_Types.E_UML_Structured_Activity_Node =>
13805            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 19;
13806
13807         when AMF.Internals.Tables.UML_Types.E_UML_Test_Identity_Action =>
13808            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 19;
13809
13810         when AMF.Internals.Tables.UML_Types.E_UML_Unmarshall_Action =>
13811            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 19;
13812
13813         when AMF.Internals.Tables.UML_Types.E_UML_Value_Specification_Action =>
13814            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 19;
13815
13816         when others =>
13817            raise Program_Error;
13818      end case;
13819   end Internal_Get_Input;
13820
13821   --------------------------------
13822   -- Internal_Get_Input_Element --
13823   --------------------------------
13824
13825   function Internal_Get_Input_Element
13826    (Self : AMF.Internals.AMF_Element)
13827       return AMF.Internals.AMF_Collection_Of_Element is
13828   begin
13829      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
13830         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Region =>
13831            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 31;
13832
13833         when others =>
13834            raise Program_Error;
13835      end case;
13836   end Internal_Get_Input_Element;
13837
13838   ------------------------------
13839   -- Internal_Get_Input_Value --
13840   ------------------------------
13841
13842   function Internal_Get_Input_Value
13843    (Self : AMF.Internals.AMF_Element)
13844       return AMF.Internals.AMF_Collection_Of_Element is
13845   begin
13846      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
13847         when AMF.Internals.Tables.UML_Types.E_UML_Create_Link_Action =>
13848            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 13;
13849
13850         when AMF.Internals.Tables.UML_Types.E_UML_Create_Link_Object_Action =>
13851            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 13;
13852
13853         when AMF.Internals.Tables.UML_Types.E_UML_Destroy_Link_Action =>
13854            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 13;
13855
13856         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Action =>
13857            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 12;
13858
13859         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Action =>
13860            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 13;
13861
13862         when others =>
13863            raise Program_Error;
13864      end case;
13865   end Internal_Get_Input_Value;
13866
13867   ----------------------------
13868   -- Internal_Get_Insert_At --
13869   ----------------------------
13870
13871   function Internal_Get_Insert_At
13872    (Self : AMF.Internals.AMF_Element)
13873       return AMF.Internals.AMF_Element is
13874   begin
13875      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
13876         when AMF.Internals.Tables.UML_Types.E_UML_Add_Structural_Feature_Value_Action =>
13877            return
13878              AMF.Internals.Links.Opposite_Element
13879               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (17).Link, Self);
13880
13881         when AMF.Internals.Tables.UML_Types.E_UML_Add_Variable_Value_Action =>
13882            return
13883              AMF.Internals.Links.Opposite_Element
13884               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (15).Link, Self);
13885
13886         when AMF.Internals.Tables.UML_Types.E_UML_Link_End_Creation_Data =>
13887            return
13888              AMF.Internals.Links.Opposite_Element
13889               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
13890
13891         when others =>
13892            raise Program_Error;
13893      end case;
13894   end Internal_Get_Insert_At;
13895
13896   ---------------------------
13897   -- Internal_Get_Instance --
13898   ---------------------------
13899
13900   function Internal_Get_Instance
13901    (Self : AMF.Internals.AMF_Element)
13902       return AMF.Internals.AMF_Element is
13903   begin
13904      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
13905         when AMF.Internals.Tables.UML_Types.E_UML_Instance_Value =>
13906            return
13907              AMF.Internals.Links.Opposite_Element
13908               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Link, Self);
13909
13910         when others =>
13911            raise Program_Error;
13912      end case;
13913   end Internal_Get_Instance;
13914
13915   ------------------------------
13916   -- Internal_Get_Interaction --
13917   ------------------------------
13918
13919   function Internal_Get_Interaction
13920    (Self : AMF.Internals.AMF_Element)
13921       return AMF.Internals.AMF_Element is
13922   begin
13923      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
13924         when AMF.Internals.Tables.UML_Types.E_UML_Lifeline =>
13925            return
13926              AMF.Internals.Links.Opposite_Element
13927               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
13928
13929         when AMF.Internals.Tables.UML_Types.E_UML_Message =>
13930            return
13931              AMF.Internals.Links.Opposite_Element
13932               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
13933
13934         when others =>
13935            raise Program_Error;
13936      end case;
13937   end Internal_Get_Interaction;
13938
13939   ---------------------------------------
13940   -- Internal_Get_Interaction_Operator --
13941   ---------------------------------------
13942
13943   function Internal_Get_Interaction_Operator
13944    (Self : AMF.Internals.AMF_Element)
13945       return AMF.UML.UML_Interaction_Operator_Kind is
13946   begin
13947      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Interaction_Operator_Kind_Value;
13948   end Internal_Get_Interaction_Operator;
13949
13950   ----------------------------
13951   -- Internal_Get_Interface --
13952   ----------------------------
13953
13954   function Internal_Get_Interface
13955    (Self : AMF.Internals.AMF_Element)
13956       return AMF.Internals.AMF_Element is
13957   begin
13958      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
13959         when AMF.Internals.Tables.UML_Types.E_UML_Extension_End =>
13960            return
13961              AMF.Internals.Links.Opposite_Element
13962               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (29).Link, Self);
13963
13964         when AMF.Internals.Tables.UML_Types.E_UML_Operation =>
13965            return
13966              AMF.Internals.Links.Opposite_Element
13967               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (21).Link, Self);
13968
13969         when AMF.Internals.Tables.UML_Types.E_UML_Port =>
13970            return
13971              AMF.Internals.Links.Opposite_Element
13972               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (29).Link, Self);
13973
13974         when AMF.Internals.Tables.UML_Types.E_UML_Property =>
13975            return
13976              AMF.Internals.Links.Opposite_Element
13977               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (29).Link, Self);
13978
13979         when others =>
13980            raise Program_Error;
13981      end case;
13982   end Internal_Get_Interface;
13983
13984   ----------------------------------------
13985   -- Internal_Get_Interface_Realization --
13986   ----------------------------------------
13987
13988   function Internal_Get_Interface_Realization
13989    (Self : AMF.Internals.AMF_Element)
13990       return AMF.Internals.AMF_Collection_Of_Element is
13991   begin
13992      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
13993         when AMF.Internals.Tables.UML_Types.E_UML_Activity =>
13994            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 25;
13995
13996         when AMF.Internals.Tables.UML_Types.E_UML_Actor =>
13997            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 25;
13998
13999         when AMF.Internals.Tables.UML_Types.E_UML_Association_Class =>
14000            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 25;
14001
14002         when AMF.Internals.Tables.UML_Types.E_UML_Class =>
14003            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 25;
14004
14005         when AMF.Internals.Tables.UML_Types.E_UML_Collaboration =>
14006            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 25;
14007
14008         when AMF.Internals.Tables.UML_Types.E_UML_Component =>
14009            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 25;
14010
14011         when AMF.Internals.Tables.UML_Types.E_UML_Device =>
14012            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 25;
14013
14014         when AMF.Internals.Tables.UML_Types.E_UML_Execution_Environment =>
14015            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 25;
14016
14017         when AMF.Internals.Tables.UML_Types.E_UML_Function_Behavior =>
14018            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 25;
14019
14020         when AMF.Internals.Tables.UML_Types.E_UML_Interaction =>
14021            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 25;
14022
14023         when AMF.Internals.Tables.UML_Types.E_UML_Node =>
14024            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 25;
14025
14026         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Behavior =>
14027            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 25;
14028
14029         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_State_Machine =>
14030            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 25;
14031
14032         when AMF.Internals.Tables.UML_Types.E_UML_State_Machine =>
14033            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 25;
14034
14035         when AMF.Internals.Tables.UML_Types.E_UML_Stereotype =>
14036            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 25;
14037
14038         when AMF.Internals.Tables.UML_Types.E_UML_Use_Case =>
14039            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 25;
14040
14041         when others =>
14042            raise Program_Error;
14043      end case;
14044   end Internal_Get_Interface_Realization;
14045
14046   ------------------------------------
14047   -- Internal_Get_Interrupting_Edge --
14048   ------------------------------------
14049
14050   function Internal_Get_Interrupting_Edge
14051    (Self : AMF.Internals.AMF_Element)
14052       return AMF.Internals.AMF_Collection_Of_Element is
14053   begin
14054      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
14055         when AMF.Internals.Tables.UML_Types.E_UML_Interruptible_Activity_Region =>
14056            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
14057
14058         when others =>
14059            raise Program_Error;
14060      end case;
14061   end Internal_Get_Interrupting_Edge;
14062
14063   -----------------------------
14064   -- Internal_Get_Interrupts --
14065   -----------------------------
14066
14067   function Internal_Get_Interrupts
14068    (Self : AMF.Internals.AMF_Element)
14069       return AMF.Internals.AMF_Element is
14070   begin
14071      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
14072         when AMF.Internals.Tables.UML_Types.E_UML_Control_Flow =>
14073            return
14074              AMF.Internals.Links.Opposite_Element
14075               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (11).Link, Self);
14076
14077         when AMF.Internals.Tables.UML_Types.E_UML_Object_Flow =>
14078            return
14079              AMF.Internals.Links.Opposite_Element
14080               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (11).Link, Self);
14081
14082         when others =>
14083            raise Program_Error;
14084      end case;
14085   end Internal_Get_Interrupts;
14086
14087   ----------------------------
14088   -- Internal_Get_Invariant --
14089   ----------------------------
14090
14091   function Internal_Get_Invariant
14092    (Self : AMF.Internals.AMF_Element)
14093       return AMF.Internals.AMF_Element is
14094   begin
14095      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
14096         when AMF.Internals.Tables.UML_Types.E_UML_State_Invariant =>
14097            return
14098              AMF.Internals.Links.Opposite_Element
14099               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
14100
14101         when others =>
14102            raise Program_Error;
14103      end case;
14104   end Internal_Get_Invariant;
14105
14106   ------------------------------
14107   -- Internal_Get_Is_Abstract --
14108   ------------------------------
14109
14110   function Internal_Get_Is_Abstract
14111    (Self : AMF.Internals.AMF_Element)
14112       return Boolean is
14113   begin
14114      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (11).Boolean_Value;
14115   end Internal_Get_Is_Abstract;
14116
14117   ----------------------------
14118   -- Internal_Get_Is_Active --
14119   ----------------------------
14120
14121   function Internal_Get_Is_Active
14122    (Self : AMF.Internals.AMF_Element)
14123       return Boolean is
14124   begin
14125      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (20).Boolean_Value;
14126   end Internal_Get_Is_Active;
14127
14128   ------------------------------------
14129   -- Internal_Get_Is_Activity_Frame --
14130   ------------------------------------
14131
14132   function Internal_Get_Is_Activity_Frame
14133    (Self : AMF.Internals.AMF_Element)
14134       return Boolean is
14135   begin
14136      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (24).Boolean_Value;
14137   end Internal_Get_Is_Activity_Frame;
14138
14139   -------------------------------------------
14140   -- Internal_Get_Is_Association_Dot_Shown --
14141   -------------------------------------------
14142
14143   function Internal_Get_Is_Association_Dot_Shown
14144    (Self : AMF.Internals.AMF_Element)
14145       return Boolean is
14146   begin
14147      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (23).Boolean_Value;
14148   end Internal_Get_Is_Association_Dot_Shown;
14149
14150   -----------------------------
14151   -- Internal_Get_Is_Assured --
14152   -----------------------------
14153
14154   function Internal_Get_Is_Assured
14155    (Self : AMF.Internals.AMF_Element)
14156       return Boolean is
14157   begin
14158      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Boolean_Value;
14159   end Internal_Get_Is_Assured;
14160
14161   ------------------------------
14162   -- Internal_Get_Is_Behavior --
14163   ------------------------------
14164
14165   function Internal_Get_Is_Behavior
14166    (Self : AMF.Internals.AMF_Element)
14167       return Boolean is
14168   begin
14169      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (34).Boolean_Value;
14170   end Internal_Get_Is_Behavior;
14171
14172   -----------------------------------------
14173   -- Internal_Get_Is_Collapse_State_Icon --
14174   -----------------------------------------
14175
14176   function Internal_Get_Is_Collapse_State_Icon
14177    (Self : AMF.Internals.AMF_Element)
14178       return Boolean is
14179   begin
14180      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (25).Boolean_Value;
14181   end Internal_Get_Is_Collapse_State_Icon;
14182
14183   ---------------------------------------
14184   -- Internal_Get_Is_Combine_Duplicate --
14185   ---------------------------------------
14186
14187   function Internal_Get_Is_Combine_Duplicate
14188    (Self : AMF.Internals.AMF_Element)
14189       return Boolean is
14190   begin
14191      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Boolean_Value;
14192   end Internal_Get_Is_Combine_Duplicate;
14193
14194   -------------------------------
14195   -- Internal_Get_Is_Composite --
14196   -------------------------------
14197
14198   function Internal_Get_Is_Composite
14199    (Self : AMF.Internals.AMF_Element)
14200       return Boolean is
14201   begin
14202      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (20).Boolean_Value;
14203   end Internal_Get_Is_Composite;
14204
14205   --------------------------------
14206   -- Internal_Get_Is_Conjugated --
14207   --------------------------------
14208
14209   function Internal_Get_Is_Conjugated
14210    (Self : AMF.Internals.AMF_Element)
14211       return Boolean is
14212   begin
14213      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (35).Boolean_Value;
14214   end Internal_Get_Is_Conjugated;
14215
14216   -----------------------------
14217   -- Internal_Get_Is_Control --
14218   -----------------------------
14219
14220   function Internal_Get_Is_Control
14221    (Self : AMF.Internals.AMF_Element)
14222       return Boolean is
14223   begin
14224      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (21).Boolean_Value;
14225   end Internal_Get_Is_Control;
14226
14227   ----------------------------------
14228   -- Internal_Get_Is_Control_Type --
14229   ----------------------------------
14230
14231   function Internal_Get_Is_Control_Type
14232    (Self : AMF.Internals.AMF_Element)
14233       return Boolean is
14234   begin
14235      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (17).Boolean_Value;
14236   end Internal_Get_Is_Control_Type;
14237
14238   ------------------------------
14239   -- Internal_Get_Is_Covering --
14240   ------------------------------
14241
14242   function Internal_Get_Is_Covering
14243    (Self : AMF.Internals.AMF_Element)
14244       return Boolean is
14245   begin
14246      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Boolean_Value;
14247   end Internal_Get_Is_Covering;
14248
14249   -----------------------------
14250   -- Internal_Get_Is_Derived --
14251   -----------------------------
14252
14253   function Internal_Get_Is_Derived
14254    (Self : AMF.Internals.AMF_Element)
14255       return Boolean is
14256   begin
14257      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (18).Boolean_Value;
14258   end Internal_Get_Is_Derived;
14259
14260   -----------------------------------
14261   -- Internal_Get_Is_Derived_Union --
14262   -----------------------------------
14263
14264   function Internal_Get_Is_Derived_Union
14265    (Self : AMF.Internals.AMF_Element)
14266       return Boolean is
14267   begin
14268      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (30).Boolean_Value;
14269   end Internal_Get_Is_Derived_Union;
14270
14271   ----------------------------------------
14272   -- Internal_Get_Is_Destroy_Duplicates --
14273   ----------------------------------------
14274
14275   function Internal_Get_Is_Destroy_Duplicates
14276    (Self : AMF.Internals.AMF_Element)
14277       return Boolean is
14278   begin
14279      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (5).Boolean_Value;
14280   end Internal_Get_Is_Destroy_Duplicates;
14281
14282   -----------------------------------
14283   -- Internal_Get_Is_Destroy_Links --
14284   -----------------------------------
14285
14286   function Internal_Get_Is_Destroy_Links
14287    (Self : AMF.Internals.AMF_Element)
14288       return Boolean is
14289   begin
14290      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Boolean_Value;
14291   end Internal_Get_Is_Destroy_Links;
14292
14293   -------------------------------------------
14294   -- Internal_Get_Is_Destroy_Owned_Objects --
14295   -------------------------------------------
14296
14297   function Internal_Get_Is_Destroy_Owned_Objects
14298    (Self : AMF.Internals.AMF_Element)
14299       return Boolean is
14300   begin
14301      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (13).Boolean_Value;
14302   end Internal_Get_Is_Destroy_Owned_Objects;
14303
14304   ---------------------------------
14305   -- Internal_Get_Is_Determinate --
14306   ---------------------------------
14307
14308   function Internal_Get_Is_Determinate
14309    (Self : AMF.Internals.AMF_Element)
14310       return Boolean is
14311   begin
14312      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (17).Boolean_Value;
14313   end Internal_Get_Is_Determinate;
14314
14315   -------------------------------
14316   -- Internal_Get_Is_Dimension --
14317   -------------------------------
14318
14319   function Internal_Get_Is_Dimension
14320    (Self : AMF.Internals.AMF_Element)
14321       return Boolean is
14322   begin
14323      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Boolean_Value;
14324   end Internal_Get_Is_Dimension;
14325
14326   ----------------------------
14327   -- Internal_Get_Is_Direct --
14328   ----------------------------
14329
14330   function Internal_Get_Is_Direct
14331    (Self : AMF.Internals.AMF_Element)
14332       return Boolean is
14333   begin
14334      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (13).Boolean_Value;
14335   end Internal_Get_Is_Direct;
14336
14337   ------------------------------
14338   -- Internal_Get_Is_Disjoint --
14339   ------------------------------
14340
14341   function Internal_Get_Is_Disjoint
14342    (Self : AMF.Internals.AMF_Element)
14343       return Boolean is
14344   begin
14345      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Boolean_Value;
14346   end Internal_Get_Is_Disjoint;
14347
14348   ----------------------------------
14349   -- Internal_Get_Is_Double_Sided --
14350   ----------------------------------
14351
14352   function Internal_Get_Is_Double_Sided
14353    (Self : AMF.Internals.AMF_Element)
14354       return Boolean is
14355   begin
14356      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Boolean_Value;
14357   end Internal_Get_Is_Double_Sided;
14358
14359   -------------------------------
14360   -- Internal_Get_Is_Exception --
14361   -------------------------------
14362
14363   function Internal_Get_Is_Exception
14364    (Self : AMF.Internals.AMF_Element)
14365       return Boolean is
14366   begin
14367      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (20).Boolean_Value;
14368   end Internal_Get_Is_Exception;
14369
14370   ------------------------------
14371   -- Internal_Get_Is_External --
14372   ------------------------------
14373
14374   function Internal_Get_Is_External
14375    (Self : AMF.Internals.AMF_Element)
14376       return Boolean is
14377   begin
14378      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Boolean_Value;
14379   end Internal_Get_Is_External;
14380
14381   ------------------------------------------
14382   -- Internal_Get_Is_Final_Specialization --
14383   ------------------------------------------
14384
14385   function Internal_Get_Is_Final_Specialization
14386    (Self : AMF.Internals.AMF_Element)
14387       return Boolean is
14388   begin
14389      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (13).Boolean_Value;
14390   end Internal_Get_Is_Final_Specialization;
14391
14392   ---------------------------
14393   -- Internal_Get_Is_Frame --
14394   ---------------------------
14395
14396   function Internal_Get_Is_Frame
14397    (Self : AMF.Internals.AMF_Element)
14398       return Boolean is
14399   begin
14400      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (21).Boolean_Value;
14401   end Internal_Get_Is_Frame;
14402
14403   ------------------------
14404   -- Internal_Get_Is_ID --
14405   ------------------------
14406
14407   function Internal_Get_Is_ID
14408    (Self : AMF.Internals.AMF_Element)
14409       return Boolean is
14410   begin
14411      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (31).Boolean_Value;
14412   end Internal_Get_Is_ID;
14413
14414   --------------------------
14415   -- Internal_Get_Is_Icon --
14416   --------------------------
14417
14418   function Internal_Get_Is_Icon
14419    (Self : AMF.Internals.AMF_Element)
14420       return Boolean is
14421   begin
14422      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (13).Boolean_Value;
14423   end Internal_Get_Is_Icon;
14424
14425   -------------------------------------------
14426   -- Internal_Get_Is_Indent_For_Visibility --
14427   -------------------------------------------
14428
14429   function Internal_Get_Is_Indent_For_Visibility
14430    (Self : AMF.Internals.AMF_Element)
14431       return Boolean is
14432   begin
14433      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (2).Boolean_Value;
14434   end Internal_Get_Is_Indent_For_Visibility;
14435
14436   ---------------------------------------------
14437   -- Internal_Get_Is_Indirectly_Instantiated --
14438   ---------------------------------------------
14439
14440   function Internal_Get_Is_Indirectly_Instantiated
14441    (Self : AMF.Internals.AMF_Element)
14442       return Boolean is
14443   begin
14444      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (18).Boolean_Value;
14445   end Internal_Get_Is_Indirectly_Instantiated;
14446
14447   -------------------------
14448   -- Internal_Get_Is_Iso --
14449   -------------------------
14450
14451   function Internal_Get_Is_Iso
14452    (Self : AMF.Internals.AMF_Element)
14453       return Boolean is
14454   begin
14455      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (22).Boolean_Value;
14456   end Internal_Get_Is_Iso;
14457
14458   --------------------------
14459   -- Internal_Get_Is_Leaf --
14460   --------------------------
14461
14462   function Internal_Get_Is_Leaf
14463    (Self : AMF.Internals.AMF_Element)
14464       return Boolean is
14465   begin
14466      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Boolean_Value;
14467   end Internal_Get_Is_Leaf;
14468
14469   ---------------------------------------
14470   -- Internal_Get_Is_Locally_Reentrant --
14471   ---------------------------------------
14472
14473   function Internal_Get_Is_Locally_Reentrant
14474    (Self : AMF.Internals.AMF_Element)
14475       return Boolean is
14476   begin
14477      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (11).Boolean_Value;
14478   end Internal_Get_Is_Locally_Reentrant;
14479
14480   -------------------------------
14481   -- Internal_Get_Is_Multicast --
14482   -------------------------------
14483
14484   function Internal_Get_Is_Multicast
14485    (Self : AMF.Internals.AMF_Element)
14486       return Boolean is
14487   begin
14488      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (15).Boolean_Value;
14489   end Internal_Get_Is_Multicast;
14490
14491   ----------------------------------
14492   -- Internal_Get_Is_Multireceive --
14493   ----------------------------------
14494
14495   function Internal_Get_Is_Multireceive
14496    (Self : AMF.Internals.AMF_Element)
14497       return Boolean is
14498   begin
14499      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Boolean_Value;
14500   end Internal_Get_Is_Multireceive;
14501
14502   -----------------------------
14503   -- Internal_Get_Is_Ordered --
14504   -----------------------------
14505
14506   function Internal_Get_Is_Ordered
14507    (Self : AMF.Internals.AMF_Element)
14508       return Boolean is
14509   begin
14510      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Boolean_Value;
14511   end Internal_Get_Is_Ordered;
14512
14513   --------------------------------
14514   -- Internal_Get_Is_Orthogonal --
14515   --------------------------------
14516
14517   function Internal_Get_Is_Orthogonal
14518    (Self : AMF.Internals.AMF_Element)
14519       return Boolean is
14520   begin
14521      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Boolean_Value;
14522   end Internal_Get_Is_Orthogonal;
14523
14524   ---------------------------
14525   -- Internal_Get_Is_Query --
14526   ---------------------------
14527
14528   function Internal_Get_Is_Query
14529    (Self : AMF.Internals.AMF_Element)
14530       return Boolean is
14531   begin
14532      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (22).Boolean_Value;
14533   end Internal_Get_Is_Query;
14534
14535   -------------------------------
14536   -- Internal_Get_Is_Read_Only --
14537   -------------------------------
14538
14539   function Internal_Get_Is_Read_Only
14540    (Self : AMF.Internals.AMF_Element)
14541       return Boolean is
14542   begin
14543      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (24).Boolean_Value;
14544   end Internal_Get_Is_Read_Only;
14545
14546   -------------------------------
14547   -- Internal_Get_Is_Reentrant --
14548   -------------------------------
14549
14550   function Internal_Get_Is_Reentrant
14551    (Self : AMF.Internals.AMF_Element)
14552       return Boolean is
14553   begin
14554      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (22).Boolean_Value;
14555   end Internal_Get_Is_Reentrant;
14556
14557   ------------------------------
14558   -- Internal_Get_Is_Relative --
14559   ------------------------------
14560
14561   function Internal_Get_Is_Relative
14562    (Self : AMF.Internals.AMF_Element)
14563       return Boolean is
14564   begin
14565      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Boolean_Value;
14566   end Internal_Get_Is_Relative;
14567
14568   ---------------------------------------
14569   -- Internal_Get_Is_Remove_Duplicates --
14570   ---------------------------------------
14571
14572   function Internal_Get_Is_Remove_Duplicates
14573    (Self : AMF.Internals.AMF_Element)
14574       return Boolean is
14575   begin
14576      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Boolean_Value;
14577   end Internal_Get_Is_Remove_Duplicates;
14578
14579   ---------------------------------
14580   -- Internal_Get_Is_Replace_All --
14581   ---------------------------------
14582
14583   function Internal_Get_Is_Replace_All
14584    (Self : AMF.Internals.AMF_Element)
14585       return Boolean is
14586   begin
14587      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Boolean_Value;
14588   end Internal_Get_Is_Replace_All;
14589
14590   ------------------------------
14591   -- Internal_Get_Is_Required --
14592   ------------------------------
14593
14594   function Internal_Get_Is_Required
14595    (Self : AMF.Internals.AMF_Element)
14596       return Boolean is
14597   begin
14598      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (17).Boolean_Value;
14599   end Internal_Get_Is_Required;
14600
14601   -----------------------------
14602   -- Internal_Get_Is_Service --
14603   -----------------------------
14604
14605   function Internal_Get_Is_Service
14606    (Self : AMF.Internals.AMF_Element)
14607       return Boolean is
14608   begin
14609      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (36).Boolean_Value;
14610   end Internal_Get_Is_Service;
14611
14612   ----------------------------
14613   -- Internal_Get_Is_Simple --
14614   ----------------------------
14615
14616   function Internal_Get_Is_Simple
14617    (Self : AMF.Internals.AMF_Element)
14618       return Boolean is
14619   begin
14620      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (13).Boolean_Value;
14621   end Internal_Get_Is_Simple;
14622
14623   --------------------------------------
14624   -- Internal_Get_Is_Single_Execution --
14625   --------------------------------------
14626
14627   function Internal_Get_Is_Single_Execution
14628    (Self : AMF.Internals.AMF_Element)
14629       return Boolean is
14630   begin
14631      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (18).Boolean_Value;
14632   end Internal_Get_Is_Single_Execution;
14633
14634   ----------------------------
14635   -- Internal_Get_Is_Static --
14636   ----------------------------
14637
14638   function Internal_Get_Is_Static
14639    (Self : AMF.Internals.AMF_Element)
14640       return Boolean is
14641   begin
14642      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (17).Boolean_Value;
14643   end Internal_Get_Is_Static;
14644
14645   ----------------------------
14646   -- Internal_Get_Is_Stream --
14647   ----------------------------
14648
14649   function Internal_Get_Is_Stream
14650    (Self : AMF.Internals.AMF_Element)
14651       return Boolean is
14652   begin
14653      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (22).Boolean_Value;
14654   end Internal_Get_Is_Stream;
14655
14656   ----------------------------
14657   -- Internal_Get_Is_Strict --
14658   ----------------------------
14659
14660   function Internal_Get_Is_Strict
14661    (Self : AMF.Internals.AMF_Element)
14662       return Boolean is
14663   begin
14664      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Boolean_Value;
14665   end Internal_Get_Is_Strict;
14666
14667   --------------------------------------
14668   -- Internal_Get_Is_Submachine_State --
14669   --------------------------------------
14670
14671   function Internal_Get_Is_Submachine_State
14672    (Self : AMF.Internals.AMF_Element)
14673       return Boolean is
14674   begin
14675      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Boolean_Value;
14676   end Internal_Get_Is_Submachine_State;
14677
14678   -----------------------------------
14679   -- Internal_Get_Is_Substitutable --
14680   -----------------------------------
14681
14682   function Internal_Get_Is_Substitutable
14683    (Self : AMF.Internals.AMF_Element)
14684       return AMF.Optional_Boolean is
14685   begin
14686      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Boolean_Holder;
14687   end Internal_Get_Is_Substitutable;
14688
14689   ---------------------------------
14690   -- Internal_Get_Is_Synchronous --
14691   ---------------------------------
14692
14693   function Internal_Get_Is_Synchronous
14694    (Self : AMF.Internals.AMF_Element)
14695       return Boolean is
14696   begin
14697      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (13).Boolean_Value;
14698   end Internal_Get_Is_Synchronous;
14699
14700   ----------------------------
14701   -- Internal_Get_Is_Tabbed --
14702   ----------------------------
14703
14704   function Internal_Get_Is_Tabbed
14705    (Self : AMF.Internals.AMF_Element)
14706       return Boolean is
14707   begin
14708      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Boolean_Value;
14709   end Internal_Get_Is_Tabbed;
14710
14711   ----------------------------------
14712   -- Internal_Get_Is_Tested_First --
14713   ----------------------------------
14714
14715   function Internal_Get_Is_Tested_First
14716    (Self : AMF.Internals.AMF_Element)
14717       return Boolean is
14718   begin
14719      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (17).Boolean_Value;
14720   end Internal_Get_Is_Tested_First;
14721
14722   -----------------------------------------
14723   -- Internal_Get_Is_Transition_Oriented --
14724   -----------------------------------------
14725
14726   function Internal_Get_Is_Transition_Oriented
14727    (Self : AMF.Internals.AMF_Element)
14728       return Boolean is
14729   begin
14730      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (26).Boolean_Value;
14731   end Internal_Get_Is_Transition_Oriented;
14732
14733   ----------------------------
14734   -- Internal_Get_Is_Unique --
14735   ----------------------------
14736
14737   function Internal_Get_Is_Unique
14738    (Self : AMF.Internals.AMF_Element)
14739       return Boolean is
14740   begin
14741      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (13).Boolean_Value;
14742   end Internal_Get_Is_Unique;
14743
14744   --------------------------------
14745   -- Internal_Get_Is_Unmarshall --
14746   --------------------------------
14747
14748   function Internal_Get_Is_Unmarshall
14749    (Self : AMF.Internals.AMF_Element)
14750       return Boolean is
14751   begin
14752      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Boolean_Value;
14753   end Internal_Get_Is_Unmarshall;
14754
14755   ----------------------------
14756   -- Internal_Get_Join_Spec --
14757   ----------------------------
14758
14759   function Internal_Get_Join_Spec
14760    (Self : AMF.Internals.AMF_Element)
14761       return AMF.Internals.AMF_Element is
14762   begin
14763      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
14764         when AMF.Internals.Tables.UML_Types.E_UML_Join_Node =>
14765            return
14766              AMF.Internals.Links.Opposite_Element
14767               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (11).Link, Self);
14768
14769         when others =>
14770            raise Program_Error;
14771      end case;
14772   end Internal_Get_Join_Spec;
14773
14774   -----------------------
14775   -- Internal_Get_Kind --
14776   -----------------------
14777
14778   function Internal_Get_Kind
14779    (Self : AMF.Internals.AMF_Element)
14780       return AMF.UML.UML_Connector_Kind is
14781   begin
14782      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Connector_Kind_Value;
14783   end Internal_Get_Kind;
14784
14785   -----------------------
14786   -- Internal_Get_Kind --
14787   -----------------------
14788
14789   function Internal_Get_Kind
14790    (Self : AMF.Internals.AMF_Element)
14791       return AMF.UML.UML_Pseudostate_Kind is
14792   begin
14793      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Pseudostate_Kind_Value;
14794   end Internal_Get_Kind;
14795
14796   -----------------------
14797   -- Internal_Get_Kind --
14798   -----------------------
14799
14800   function Internal_Get_Kind
14801    (Self : AMF.Internals.AMF_Element)
14802       return AMF.UML.UML_Transition_Kind is
14803   begin
14804      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (11).Transition_Kind_Value;
14805   end Internal_Get_Kind;
14806
14807   -----------------------
14808   -- Internal_Get_Kind --
14809   -----------------------
14810
14811   function Internal_Get_Kind
14812    (Self : AMF.Internals.AMF_Element)
14813       return AMF.UMLDI.UMLDI_UML_Association_Or_Connector_Or_Link_Shape_Kind is
14814   begin
14815      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).UML_Association_Or_Connector_Or_Link_Shape_Kind_Value;
14816   end Internal_Get_Kind;
14817
14818   -----------------------
14819   -- Internal_Get_Kind --
14820   -----------------------
14821
14822   function Internal_Get_Kind
14823    (Self : AMF.Internals.AMF_Element)
14824       return AMF.UMLDI.UMLDI_UML_Interaction_Diagram_Kind is
14825   begin
14826      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (24).UML_Interaction_Diagram_Kind_Value;
14827   end Internal_Get_Kind;
14828
14829   -----------------------
14830   -- Internal_Get_Kind --
14831   -----------------------
14832
14833   function Internal_Get_Kind
14834    (Self : AMF.Internals.AMF_Element)
14835       return AMF.UMLDI.UMLDI_UML_Interaction_Table_Label_Kind is
14836   begin
14837      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (2).UML_Interaction_Table_Label_Kind_Value;
14838   end Internal_Get_Kind;
14839
14840   ---------------------------
14841   -- Internal_Get_Language --
14842   ---------------------------
14843
14844   function Internal_Get_Language
14845    (Self : AMF.Internals.AMF_Element)
14846       return AMF.Internals.AMF_Collection_Of_String is
14847   begin
14848      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (19).String_Collection;
14849   end Internal_Get_Language;
14850
14851   ---------------------------
14852   -- Internal_Get_Lifeline --
14853   ---------------------------
14854
14855   function Internal_Get_Lifeline
14856    (Self : AMF.Internals.AMF_Element)
14857       return AMF.Internals.AMF_Collection_Of_Element is
14858   begin
14859      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
14860         when AMF.Internals.Tables.UML_Types.E_UML_Interaction =>
14861            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 47;
14862
14863         when others =>
14864            raise Program_Error;
14865      end case;
14866   end Internal_Get_Lifeline;
14867
14868   --------------------------------------
14869   -- Internal_Get_Local_Postcondition --
14870   --------------------------------------
14871
14872   function Internal_Get_Local_Postcondition
14873    (Self : AMF.Internals.AMF_Element)
14874       return AMF.Internals.AMF_Collection_Of_Element is
14875   begin
14876      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
14877         when AMF.Internals.Tables.UML_Types.E_UML_Accept_Call_Action =>
14878            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 20;
14879
14880         when AMF.Internals.Tables.UML_Types.E_UML_Accept_Event_Action =>
14881            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 20;
14882
14883         when AMF.Internals.Tables.UML_Types.E_UML_Add_Structural_Feature_Value_Action =>
14884            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 20;
14885
14886         when AMF.Internals.Tables.UML_Types.E_UML_Add_Variable_Value_Action =>
14887            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 20;
14888
14889         when AMF.Internals.Tables.UML_Types.E_UML_Broadcast_Signal_Action =>
14890            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 20;
14891
14892         when AMF.Internals.Tables.UML_Types.E_UML_Call_Behavior_Action =>
14893            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 20;
14894
14895         when AMF.Internals.Tables.UML_Types.E_UML_Call_Operation_Action =>
14896            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 20;
14897
14898         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Association_Action =>
14899            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 20;
14900
14901         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Structural_Feature_Action =>
14902            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 20;
14903
14904         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Variable_Action =>
14905            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 20;
14906
14907         when AMF.Internals.Tables.UML_Types.E_UML_Conditional_Node =>
14908            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 20;
14909
14910         when AMF.Internals.Tables.UML_Types.E_UML_Create_Link_Action =>
14911            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 20;
14912
14913         when AMF.Internals.Tables.UML_Types.E_UML_Create_Link_Object_Action =>
14914            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 20;
14915
14916         when AMF.Internals.Tables.UML_Types.E_UML_Create_Object_Action =>
14917            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 20;
14918
14919         when AMF.Internals.Tables.UML_Types.E_UML_Destroy_Link_Action =>
14920            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 20;
14921
14922         when AMF.Internals.Tables.UML_Types.E_UML_Destroy_Object_Action =>
14923            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 20;
14924
14925         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Region =>
14926            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 20;
14927
14928         when AMF.Internals.Tables.UML_Types.E_UML_Loop_Node =>
14929            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 20;
14930
14931         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Action =>
14932            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 20;
14933
14934         when AMF.Internals.Tables.UML_Types.E_UML_Raise_Exception_Action =>
14935            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 20;
14936
14937         when AMF.Internals.Tables.UML_Types.E_UML_Read_Extent_Action =>
14938            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 20;
14939
14940         when AMF.Internals.Tables.UML_Types.E_UML_Read_Is_Classified_Object_Action =>
14941            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 20;
14942
14943         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Action =>
14944            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 20;
14945
14946         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Object_End_Action =>
14947            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 20;
14948
14949         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Object_End_Qualifier_Action =>
14950            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 20;
14951
14952         when AMF.Internals.Tables.UML_Types.E_UML_Read_Self_Action =>
14953            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 20;
14954
14955         when AMF.Internals.Tables.UML_Types.E_UML_Read_Structural_Feature_Action =>
14956            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 20;
14957
14958         when AMF.Internals.Tables.UML_Types.E_UML_Read_Variable_Action =>
14959            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 20;
14960
14961         when AMF.Internals.Tables.UML_Types.E_UML_Reclassify_Object_Action =>
14962            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 20;
14963
14964         when AMF.Internals.Tables.UML_Types.E_UML_Reduce_Action =>
14965            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 20;
14966
14967         when AMF.Internals.Tables.UML_Types.E_UML_Remove_Structural_Feature_Value_Action =>
14968            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 20;
14969
14970         when AMF.Internals.Tables.UML_Types.E_UML_Remove_Variable_Value_Action =>
14971            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 20;
14972
14973         when AMF.Internals.Tables.UML_Types.E_UML_Reply_Action =>
14974            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 20;
14975
14976         when AMF.Internals.Tables.UML_Types.E_UML_Send_Object_Action =>
14977            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 20;
14978
14979         when AMF.Internals.Tables.UML_Types.E_UML_Send_Signal_Action =>
14980            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 20;
14981
14982         when AMF.Internals.Tables.UML_Types.E_UML_Sequence_Node =>
14983            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 20;
14984
14985         when AMF.Internals.Tables.UML_Types.E_UML_Start_Classifier_Behavior_Action =>
14986            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 20;
14987
14988         when AMF.Internals.Tables.UML_Types.E_UML_Start_Object_Behavior_Action =>
14989            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 20;
14990
14991         when AMF.Internals.Tables.UML_Types.E_UML_Structured_Activity_Node =>
14992            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 20;
14993
14994         when AMF.Internals.Tables.UML_Types.E_UML_Test_Identity_Action =>
14995            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 20;
14996
14997         when AMF.Internals.Tables.UML_Types.E_UML_Unmarshall_Action =>
14998            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 20;
14999
15000         when AMF.Internals.Tables.UML_Types.E_UML_Value_Specification_Action =>
15001            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 20;
15002
15003         when others =>
15004            raise Program_Error;
15005      end case;
15006   end Internal_Get_Local_Postcondition;
15007
15008   -------------------------------------
15009   -- Internal_Get_Local_Precondition --
15010   -------------------------------------
15011
15012   function Internal_Get_Local_Precondition
15013    (Self : AMF.Internals.AMF_Element)
15014       return AMF.Internals.AMF_Collection_Of_Element is
15015   begin
15016      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
15017         when AMF.Internals.Tables.UML_Types.E_UML_Accept_Call_Action =>
15018            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 21;
15019
15020         when AMF.Internals.Tables.UML_Types.E_UML_Accept_Event_Action =>
15021            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 21;
15022
15023         when AMF.Internals.Tables.UML_Types.E_UML_Add_Structural_Feature_Value_Action =>
15024            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 21;
15025
15026         when AMF.Internals.Tables.UML_Types.E_UML_Add_Variable_Value_Action =>
15027            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 21;
15028
15029         when AMF.Internals.Tables.UML_Types.E_UML_Broadcast_Signal_Action =>
15030            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 21;
15031
15032         when AMF.Internals.Tables.UML_Types.E_UML_Call_Behavior_Action =>
15033            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 21;
15034
15035         when AMF.Internals.Tables.UML_Types.E_UML_Call_Operation_Action =>
15036            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 21;
15037
15038         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Association_Action =>
15039            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 21;
15040
15041         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Structural_Feature_Action =>
15042            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 21;
15043
15044         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Variable_Action =>
15045            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 21;
15046
15047         when AMF.Internals.Tables.UML_Types.E_UML_Conditional_Node =>
15048            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 21;
15049
15050         when AMF.Internals.Tables.UML_Types.E_UML_Create_Link_Action =>
15051            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 21;
15052
15053         when AMF.Internals.Tables.UML_Types.E_UML_Create_Link_Object_Action =>
15054            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 21;
15055
15056         when AMF.Internals.Tables.UML_Types.E_UML_Create_Object_Action =>
15057            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 21;
15058
15059         when AMF.Internals.Tables.UML_Types.E_UML_Destroy_Link_Action =>
15060            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 21;
15061
15062         when AMF.Internals.Tables.UML_Types.E_UML_Destroy_Object_Action =>
15063            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 21;
15064
15065         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Region =>
15066            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 21;
15067
15068         when AMF.Internals.Tables.UML_Types.E_UML_Loop_Node =>
15069            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 21;
15070
15071         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Action =>
15072            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 21;
15073
15074         when AMF.Internals.Tables.UML_Types.E_UML_Raise_Exception_Action =>
15075            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 21;
15076
15077         when AMF.Internals.Tables.UML_Types.E_UML_Read_Extent_Action =>
15078            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 21;
15079
15080         when AMF.Internals.Tables.UML_Types.E_UML_Read_Is_Classified_Object_Action =>
15081            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 21;
15082
15083         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Action =>
15084            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 21;
15085
15086         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Object_End_Action =>
15087            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 21;
15088
15089         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Object_End_Qualifier_Action =>
15090            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 21;
15091
15092         when AMF.Internals.Tables.UML_Types.E_UML_Read_Self_Action =>
15093            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 21;
15094
15095         when AMF.Internals.Tables.UML_Types.E_UML_Read_Structural_Feature_Action =>
15096            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 21;
15097
15098         when AMF.Internals.Tables.UML_Types.E_UML_Read_Variable_Action =>
15099            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 21;
15100
15101         when AMF.Internals.Tables.UML_Types.E_UML_Reclassify_Object_Action =>
15102            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 21;
15103
15104         when AMF.Internals.Tables.UML_Types.E_UML_Reduce_Action =>
15105            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 21;
15106
15107         when AMF.Internals.Tables.UML_Types.E_UML_Remove_Structural_Feature_Value_Action =>
15108            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 21;
15109
15110         when AMF.Internals.Tables.UML_Types.E_UML_Remove_Variable_Value_Action =>
15111            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 21;
15112
15113         when AMF.Internals.Tables.UML_Types.E_UML_Reply_Action =>
15114            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 21;
15115
15116         when AMF.Internals.Tables.UML_Types.E_UML_Send_Object_Action =>
15117            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 21;
15118
15119         when AMF.Internals.Tables.UML_Types.E_UML_Send_Signal_Action =>
15120            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 21;
15121
15122         when AMF.Internals.Tables.UML_Types.E_UML_Sequence_Node =>
15123            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 21;
15124
15125         when AMF.Internals.Tables.UML_Types.E_UML_Start_Classifier_Behavior_Action =>
15126            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 21;
15127
15128         when AMF.Internals.Tables.UML_Types.E_UML_Start_Object_Behavior_Action =>
15129            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 21;
15130
15131         when AMF.Internals.Tables.UML_Types.E_UML_Structured_Activity_Node =>
15132            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 21;
15133
15134         when AMF.Internals.Tables.UML_Types.E_UML_Test_Identity_Action =>
15135            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 21;
15136
15137         when AMF.Internals.Tables.UML_Types.E_UML_Unmarshall_Action =>
15138            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 21;
15139
15140         when AMF.Internals.Tables.UML_Types.E_UML_Value_Specification_Action =>
15141            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 21;
15142
15143         when others =>
15144            raise Program_Error;
15145      end case;
15146   end Internal_Get_Local_Precondition;
15147
15148   ------------------------------
15149   -- Internal_Get_Local_Style --
15150   ------------------------------
15151
15152   function Internal_Get_Local_Style
15153    (Self : AMF.Internals.AMF_Element)
15154       return AMF.Internals.AMF_Element is
15155   begin
15156      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
15157         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Activity_Diagram =>
15158            return
15159              AMF.Internals.Links.Opposite_Element
15160               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Link, Self);
15161
15162         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Association_End_Label =>
15163            return
15164              AMF.Internals.Links.Opposite_Element
15165               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Link, Self);
15166
15167         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Association_Or_Connector_Or_Link_Shape =>
15168            return
15169              AMF.Internals.Links.Opposite_Element
15170               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Link, Self);
15171
15172         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Class_Diagram =>
15173            return
15174              AMF.Internals.Links.Opposite_Element
15175               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Link, Self);
15176
15177         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Classifier_Shape =>
15178            return
15179              AMF.Internals.Links.Opposite_Element
15180               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Link, Self);
15181
15182         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Compartment =>
15183            return
15184              AMF.Internals.Links.Opposite_Element
15185               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Link, Self);
15186
15187         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Compartmentable_Shape =>
15188            return
15189              AMF.Internals.Links.Opposite_Element
15190               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Link, Self);
15191
15192         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Component_Diagram =>
15193            return
15194              AMF.Internals.Links.Opposite_Element
15195               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Link, Self);
15196
15197         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Composite_Structure_Diagram =>
15198            return
15199              AMF.Internals.Links.Opposite_Element
15200               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Link, Self);
15201
15202         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Deployment_Diagram =>
15203            return
15204              AMF.Internals.Links.Opposite_Element
15205               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Link, Self);
15206
15207         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Edge =>
15208            return
15209              AMF.Internals.Links.Opposite_Element
15210               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Link, Self);
15211
15212         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Interaction_Diagram =>
15213            return
15214              AMF.Internals.Links.Opposite_Element
15215               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Link, Self);
15216
15217         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Interaction_Table_Label =>
15218            return
15219              AMF.Internals.Links.Opposite_Element
15220               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Link, Self);
15221
15222         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Keyword_Label =>
15223            return
15224              AMF.Internals.Links.Opposite_Element
15225               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Link, Self);
15226
15227         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Label =>
15228            return
15229              AMF.Internals.Links.Opposite_Element
15230               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Link, Self);
15231
15232         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Multiplicity_Label =>
15233            return
15234              AMF.Internals.Links.Opposite_Element
15235               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Link, Self);
15236
15237         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Name_Label =>
15238            return
15239              AMF.Internals.Links.Opposite_Element
15240               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Link, Self);
15241
15242         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Object_Diagram =>
15243            return
15244              AMF.Internals.Links.Opposite_Element
15245               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Link, Self);
15246
15247         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Package_Diagram =>
15248            return
15249              AMF.Internals.Links.Opposite_Element
15250               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Link, Self);
15251
15252         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Profile_Diagram =>
15253            return
15254              AMF.Internals.Links.Opposite_Element
15255               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Link, Self);
15256
15257         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Redefines_Label =>
15258            return
15259              AMF.Internals.Links.Opposite_Element
15260               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Link, Self);
15261
15262         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Shape =>
15263            return
15264              AMF.Internals.Links.Opposite_Element
15265               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Link, Self);
15266
15267         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_State_Machine_Diagram =>
15268            return
15269              AMF.Internals.Links.Opposite_Element
15270               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Link, Self);
15271
15272         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_State_Shape =>
15273            return
15274              AMF.Internals.Links.Opposite_Element
15275               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Link, Self);
15276
15277         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Stereotype_Property_Value_Label =>
15278            return
15279              AMF.Internals.Links.Opposite_Element
15280               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Link, Self);
15281
15282         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Typed_Element_Label =>
15283            return
15284              AMF.Internals.Links.Opposite_Element
15285               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Link, Self);
15286
15287         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Use_Case_Diagram =>
15288            return
15289              AMF.Internals.Links.Opposite_Element
15290               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Link, Self);
15291
15292         when others =>
15293            raise Program_Error;
15294      end case;
15295   end Internal_Get_Local_Style;
15296
15297   ---------------------------
15298   -- Internal_Get_Location --
15299   ---------------------------
15300
15301   function Internal_Get_Location
15302    (Self : AMF.Internals.AMF_Element)
15303       return AMF.Internals.AMF_Element is
15304   begin
15305      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
15306         when AMF.Internals.Tables.UML_Types.E_UML_Deployment =>
15307            return
15308              AMF.Internals.Links.Opposite_Element
15309               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Link, Self);
15310
15311         when others =>
15312            raise Program_Error;
15313      end case;
15314   end Internal_Get_Location;
15315
15316   ---------------------------
15317   -- Internal_Get_Location --
15318   ---------------------------
15319
15320   function Internal_Get_Location
15321    (Self : AMF.Internals.AMF_Element)
15322       return Matreshka.Internals.Strings.Shared_String_Access is
15323   begin
15324      return
15325        AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).String_Value;
15326   end Internal_Get_Location;
15327
15328   --------------------------------
15329   -- Internal_Get_Loop_Variable --
15330   --------------------------------
15331
15332   function Internal_Get_Loop_Variable
15333    (Self : AMF.Internals.AMF_Element)
15334       return AMF.Internals.AMF_Collection_Of_Element is
15335   begin
15336      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
15337         when AMF.Internals.Tables.UML_Types.E_UML_Loop_Node =>
15338            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 33;
15339
15340         when others =>
15341            raise Program_Error;
15342      end case;
15343   end Internal_Get_Loop_Variable;
15344
15345   --------------------------------------
15346   -- Internal_Get_Loop_Variable_Input --
15347   --------------------------------------
15348
15349   function Internal_Get_Loop_Variable_Input
15350    (Self : AMF.Internals.AMF_Element)
15351       return AMF.Internals.AMF_Collection_Of_Element is
15352   begin
15353      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
15354         when AMF.Internals.Tables.UML_Types.E_UML_Loop_Node =>
15355            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 34;
15356
15357         when others =>
15358            raise Program_Error;
15359      end case;
15360   end Internal_Get_Loop_Variable_Input;
15361
15362   ------------------------
15363   -- Internal_Get_Lower --
15364   ------------------------
15365
15366   function Internal_Get_Lower
15367    (Self : AMF.Internals.AMF_Element)
15368       return AMF.Optional_Integer is
15369   begin
15370      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Integer_Holder;
15371   end Internal_Get_Lower;
15372
15373   ------------------------------
15374   -- Internal_Get_Lower_Value --
15375   ------------------------------
15376
15377   function Internal_Get_Lower_Value
15378    (Self : AMF.Internals.AMF_Element)
15379       return AMF.Internals.AMF_Element is
15380   begin
15381      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
15382         when AMF.Internals.Tables.UML_Types.E_UML_Action_Input_Pin =>
15383            return
15384              AMF.Internals.Links.Opposite_Element
15385               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
15386
15387         when AMF.Internals.Tables.UML_Types.E_UML_Connector_End =>
15388            return
15389              AMF.Internals.Links.Opposite_Element
15390               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
15391
15392         when AMF.Internals.Tables.UML_Types.E_UML_Extension_End =>
15393            return
15394              AMF.Internals.Links.Opposite_Element
15395               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
15396
15397         when AMF.Internals.Tables.UML_Types.E_UML_Input_Pin =>
15398            return
15399              AMF.Internals.Links.Opposite_Element
15400               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
15401
15402         when AMF.Internals.Tables.UML_Types.E_UML_Output_Pin =>
15403            return
15404              AMF.Internals.Links.Opposite_Element
15405               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
15406
15407         when AMF.Internals.Tables.UML_Types.E_UML_Parameter =>
15408            return
15409              AMF.Internals.Links.Opposite_Element
15410               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
15411
15412         when AMF.Internals.Tables.UML_Types.E_UML_Port =>
15413            return
15414              AMF.Internals.Links.Opposite_Element
15415               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
15416
15417         when AMF.Internals.Tables.UML_Types.E_UML_Property =>
15418            return
15419              AMF.Internals.Links.Opposite_Element
15420               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
15421
15422         when AMF.Internals.Tables.UML_Types.E_UML_Value_Pin =>
15423            return
15424              AMF.Internals.Links.Opposite_Element
15425               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
15426
15427         when AMF.Internals.Tables.UML_Types.E_UML_Variable =>
15428            return
15429              AMF.Internals.Links.Opposite_Element
15430               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
15431
15432         when others =>
15433            raise Program_Error;
15434      end case;
15435   end Internal_Get_Lower_Value;
15436
15437   --------------------------------
15438   -- Internal_Get_Manifestation --
15439   --------------------------------
15440
15441   function Internal_Get_Manifestation
15442    (Self : AMF.Internals.AMF_Element)
15443       return AMF.Internals.AMF_Collection_Of_Element is
15444   begin
15445      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
15446         when AMF.Internals.Tables.UML_Types.E_UML_Artifact =>
15447            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 24;
15448
15449         when AMF.Internals.Tables.UML_Types.E_UML_Deployment_Specification =>
15450            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 24;
15451
15452         when others =>
15453            raise Program_Error;
15454      end case;
15455   end Internal_Get_Manifestation;
15456
15457   --------------------------
15458   -- Internal_Get_Mapping --
15459   --------------------------
15460
15461   function Internal_Get_Mapping
15462    (Self : AMF.Internals.AMF_Element)
15463       return AMF.Internals.AMF_Element is
15464   begin
15465      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
15466         when AMF.Internals.Tables.UML_Types.E_UML_Abstraction =>
15467            return
15468              AMF.Internals.Links.Opposite_Element
15469               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Link, Self);
15470
15471         when AMF.Internals.Tables.UML_Types.E_UML_Component_Realization =>
15472            return
15473              AMF.Internals.Links.Opposite_Element
15474               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Link, Self);
15475
15476         when AMF.Internals.Tables.UML_Types.E_UML_Interface_Realization =>
15477            return
15478              AMF.Internals.Links.Opposite_Element
15479               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Link, Self);
15480
15481         when AMF.Internals.Tables.UML_Types.E_UML_Manifestation =>
15482            return
15483              AMF.Internals.Links.Opposite_Element
15484               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Link, Self);
15485
15486         when AMF.Internals.Tables.UML_Types.E_UML_Realization =>
15487            return
15488              AMF.Internals.Links.Opposite_Element
15489               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Link, Self);
15490
15491         when AMF.Internals.Tables.UML_Types.E_UML_Substitution =>
15492            return
15493              AMF.Internals.Links.Opposite_Element
15494               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Link, Self);
15495
15496         when others =>
15497            raise Program_Error;
15498      end case;
15499   end Internal_Get_Mapping;
15500
15501   ----------------------
15502   -- Internal_Get_Max --
15503   ----------------------
15504
15505   function Internal_Get_Max
15506    (Self : AMF.Internals.AMF_Element)
15507       return AMF.Internals.AMF_Element is
15508   begin
15509      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
15510         when AMF.Internals.Tables.UML_Types.E_UML_Duration_Interval =>
15511            return
15512              AMF.Internals.Links.Opposite_Element
15513               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Link, Self);
15514
15515         when AMF.Internals.Tables.UML_Types.E_UML_Interval =>
15516            return
15517              AMF.Internals.Links.Opposite_Element
15518               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Link, Self);
15519
15520         when AMF.Internals.Tables.UML_Types.E_UML_Time_Interval =>
15521            return
15522              AMF.Internals.Links.Opposite_Element
15523               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Link, Self);
15524
15525         when others =>
15526            raise Program_Error;
15527      end case;
15528   end Internal_Get_Max;
15529
15530   -------------------------
15531   -- Internal_Get_Maxint --
15532   -------------------------
15533
15534   function Internal_Get_Maxint
15535    (Self : AMF.Internals.AMF_Element)
15536       return AMF.Internals.AMF_Element is
15537   begin
15538      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
15539         when AMF.Internals.Tables.UML_Types.E_UML_Interaction_Constraint =>
15540            return
15541              AMF.Internals.Links.Opposite_Element
15542               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (11).Link, Self);
15543
15544         when others =>
15545            raise Program_Error;
15546      end case;
15547   end Internal_Get_Maxint;
15548
15549   -------------------------
15550   -- Internal_Get_Member --
15551   -------------------------
15552
15553   function Internal_Get_Member
15554    (Self : AMF.Internals.AMF_Element)
15555       return AMF.Internals.AMF_Collection_Of_Element is
15556   begin
15557      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
15558         when AMF.Internals.Tables.UML_Types.E_UML_Activity =>
15559            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 14;
15560
15561         when AMF.Internals.Tables.UML_Types.E_UML_Actor =>
15562            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 14;
15563
15564         when AMF.Internals.Tables.UML_Types.E_UML_Artifact =>
15565            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 14;
15566
15567         when AMF.Internals.Tables.UML_Types.E_UML_Association =>
15568            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 14;
15569
15570         when AMF.Internals.Tables.UML_Types.E_UML_Association_Class =>
15571            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 14;
15572
15573         when AMF.Internals.Tables.UML_Types.E_UML_Class =>
15574            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 14;
15575
15576         when AMF.Internals.Tables.UML_Types.E_UML_Collaboration =>
15577            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 14;
15578
15579         when AMF.Internals.Tables.UML_Types.E_UML_Communication_Path =>
15580            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 14;
15581
15582         when AMF.Internals.Tables.UML_Types.E_UML_Component =>
15583            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 14;
15584
15585         when AMF.Internals.Tables.UML_Types.E_UML_Conditional_Node =>
15586            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 14;
15587
15588         when AMF.Internals.Tables.UML_Types.E_UML_Data_Type =>
15589            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 14;
15590
15591         when AMF.Internals.Tables.UML_Types.E_UML_Deployment_Specification =>
15592            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 14;
15593
15594         when AMF.Internals.Tables.UML_Types.E_UML_Device =>
15595            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 14;
15596
15597         when AMF.Internals.Tables.UML_Types.E_UML_Enumeration =>
15598            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 14;
15599
15600         when AMF.Internals.Tables.UML_Types.E_UML_Execution_Environment =>
15601            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 14;
15602
15603         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Region =>
15604            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 14;
15605
15606         when AMF.Internals.Tables.UML_Types.E_UML_Extension =>
15607            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 14;
15608
15609         when AMF.Internals.Tables.UML_Types.E_UML_Final_State =>
15610            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 14;
15611
15612         when AMF.Internals.Tables.UML_Types.E_UML_Function_Behavior =>
15613            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 14;
15614
15615         when AMF.Internals.Tables.UML_Types.E_UML_Information_Item =>
15616            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 14;
15617
15618         when AMF.Internals.Tables.UML_Types.E_UML_Interaction =>
15619            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 14;
15620
15621         when AMF.Internals.Tables.UML_Types.E_UML_Interaction_Operand =>
15622            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 14;
15623
15624         when AMF.Internals.Tables.UML_Types.E_UML_Interface =>
15625            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 14;
15626
15627         when AMF.Internals.Tables.UML_Types.E_UML_Loop_Node =>
15628            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 14;
15629
15630         when AMF.Internals.Tables.UML_Types.E_UML_Model =>
15631            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 14;
15632
15633         when AMF.Internals.Tables.UML_Types.E_UML_Node =>
15634            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 14;
15635
15636         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Behavior =>
15637            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 14;
15638
15639         when AMF.Internals.Tables.UML_Types.E_UML_Operation =>
15640            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 14;
15641
15642         when AMF.Internals.Tables.UML_Types.E_UML_Package =>
15643            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 14;
15644
15645         when AMF.Internals.Tables.UML_Types.E_UML_Primitive_Type =>
15646            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 14;
15647
15648         when AMF.Internals.Tables.UML_Types.E_UML_Profile =>
15649            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 14;
15650
15651         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_State_Machine =>
15652            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 14;
15653
15654         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_Transition =>
15655            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 14;
15656
15657         when AMF.Internals.Tables.UML_Types.E_UML_Reception =>
15658            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 14;
15659
15660         when AMF.Internals.Tables.UML_Types.E_UML_Region =>
15661            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 14;
15662
15663         when AMF.Internals.Tables.UML_Types.E_UML_Sequence_Node =>
15664            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 14;
15665
15666         when AMF.Internals.Tables.UML_Types.E_UML_Signal =>
15667            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 14;
15668
15669         when AMF.Internals.Tables.UML_Types.E_UML_State =>
15670            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 14;
15671
15672         when AMF.Internals.Tables.UML_Types.E_UML_State_Machine =>
15673            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 14;
15674
15675         when AMF.Internals.Tables.UML_Types.E_UML_Stereotype =>
15676            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 14;
15677
15678         when AMF.Internals.Tables.UML_Types.E_UML_Structured_Activity_Node =>
15679            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 14;
15680
15681         when AMF.Internals.Tables.UML_Types.E_UML_Transition =>
15682            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 14;
15683
15684         when AMF.Internals.Tables.UML_Types.E_UML_Use_Case =>
15685            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 14;
15686
15687         when others =>
15688            raise Program_Error;
15689      end case;
15690   end Internal_Get_Member;
15691
15692   -----------------------------
15693   -- Internal_Get_Member_End --
15694   -----------------------------
15695
15696   function Internal_Get_Member_End
15697    (Self : AMF.Internals.AMF_Element)
15698       return AMF.Internals.AMF_Collection_Of_Element is
15699   begin
15700      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
15701         when AMF.Internals.Tables.UML_Types.E_UML_Association =>
15702            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 39;
15703
15704         when AMF.Internals.Tables.UML_Types.E_UML_Association_Class =>
15705            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 39;
15706
15707         when AMF.Internals.Tables.UML_Types.E_UML_Communication_Path =>
15708            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 39;
15709
15710         when AMF.Internals.Tables.UML_Types.E_UML_Extension =>
15711            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 39;
15712
15713         when others =>
15714            raise Program_Error;
15715      end case;
15716   end Internal_Get_Member_End;
15717
15718   ---------------------------------
15719   -- Internal_Get_Merged_Package --
15720   ---------------------------------
15721
15722   function Internal_Get_Merged_Package
15723    (Self : AMF.Internals.AMF_Element)
15724       return AMF.Internals.AMF_Element is
15725   begin
15726      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
15727         when AMF.Internals.Tables.UML_Types.E_UML_Package_Merge =>
15728            return
15729              AMF.Internals.Links.Opposite_Element
15730               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (2).Link, Self);
15731
15732         when others =>
15733            raise Program_Error;
15734      end case;
15735   end Internal_Get_Merged_Package;
15736
15737   --------------------------
15738   -- Internal_Get_Message --
15739   --------------------------
15740
15741   function Internal_Get_Message
15742    (Self : AMF.Internals.AMF_Element)
15743       return AMF.Internals.AMF_Collection_Of_Element is
15744   begin
15745      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
15746         when AMF.Internals.Tables.UML_Types.E_UML_Consider_Ignore_Fragment =>
15747            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
15748
15749         when AMF.Internals.Tables.UML_Types.E_UML_Interaction =>
15750            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 48;
15751
15752         when others =>
15753            raise Program_Error;
15754      end case;
15755   end Internal_Get_Message;
15756
15757   --------------------------
15758   -- Internal_Get_Message --
15759   --------------------------
15760
15761   function Internal_Get_Message
15762    (Self : AMF.Internals.AMF_Element)
15763       return AMF.Internals.AMF_Element is
15764   begin
15765      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
15766         when AMF.Internals.Tables.UML_Types.E_UML_Destruction_Occurrence_Specification =>
15767            return
15768              AMF.Internals.Links.Opposite_Element
15769               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
15770
15771         when AMF.Internals.Tables.UML_Types.E_UML_Gate =>
15772            return
15773              AMF.Internals.Links.Opposite_Element
15774               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
15775
15776         when AMF.Internals.Tables.UML_Types.E_UML_Message_Occurrence_Specification =>
15777            return
15778              AMF.Internals.Links.Opposite_Element
15779               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
15780
15781         when others =>
15782            raise Program_Error;
15783      end case;
15784   end Internal_Get_Message;
15785
15786   -------------------------------
15787   -- Internal_Get_Message_Kind --
15788   -------------------------------
15789
15790   function Internal_Get_Message_Kind
15791    (Self : AMF.Internals.AMF_Element)
15792       return AMF.UML.UML_Message_Kind is
15793   begin
15794      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Message_Kind_Value;
15795   end Internal_Get_Message_Kind;
15796
15797   -------------------------------
15798   -- Internal_Get_Message_Sort --
15799   -------------------------------
15800
15801   function Internal_Get_Message_Sort
15802    (Self : AMF.Internals.AMF_Element)
15803       return AMF.UML.UML_Message_Sort is
15804   begin
15805      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Message_Sort_Value;
15806   end Internal_Get_Message_Sort;
15807
15808   ----------------------------
15809   -- Internal_Get_Metaclass --
15810   ----------------------------
15811
15812   function Internal_Get_Metaclass
15813    (Self : AMF.Internals.AMF_Element)
15814       return AMF.Internals.AMF_Element is
15815   begin
15816      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
15817         when AMF.Internals.Tables.UML_Types.E_UML_Extension =>
15818            return
15819              AMF.Internals.Links.Opposite_Element
15820               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (19).Link, Self);
15821
15822         when others =>
15823            raise Program_Error;
15824      end case;
15825   end Internal_Get_Metaclass;
15826
15827   --------------------------------------
15828   -- Internal_Get_Metaclass_Reference --
15829   --------------------------------------
15830
15831   function Internal_Get_Metaclass_Reference
15832    (Self : AMF.Internals.AMF_Element)
15833       return AMF.Internals.AMF_Collection_Of_Element is
15834   begin
15835      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
15836         when AMF.Internals.Tables.UML_Types.E_UML_Profile =>
15837            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
15838
15839         when others =>
15840            raise Program_Error;
15841      end case;
15842   end Internal_Get_Metaclass_Reference;
15843
15844   --------------------------------------
15845   -- Internal_Get_Metamodel_Reference --
15846   --------------------------------------
15847
15848   function Internal_Get_Metamodel_Reference
15849    (Self : AMF.Internals.AMF_Element)
15850       return AMF.Internals.AMF_Collection_Of_Element is
15851   begin
15852      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
15853         when AMF.Internals.Tables.UML_Types.E_UML_Profile =>
15854            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 18;
15855
15856         when others =>
15857            raise Program_Error;
15858      end case;
15859   end Internal_Get_Metamodel_Reference;
15860
15861   -------------------------
15862   -- Internal_Get_Method --
15863   -------------------------
15864
15865   function Internal_Get_Method
15866    (Self : AMF.Internals.AMF_Element)
15867       return AMF.Internals.AMF_Collection_Of_Element is
15868   begin
15869      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
15870         when AMF.Internals.Tables.UML_Types.E_UML_Operation =>
15871            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
15872
15873         when AMF.Internals.Tables.UML_Types.E_UML_Reception =>
15874            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
15875
15876         when others =>
15877            raise Program_Error;
15878      end case;
15879   end Internal_Get_Method;
15880
15881   ----------------------
15882   -- Internal_Get_Min --
15883   ----------------------
15884
15885   function Internal_Get_Min
15886    (Self : AMF.Internals.AMF_Element)
15887       return AMF.Internals.AMF_Element is
15888   begin
15889      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
15890         when AMF.Internals.Tables.UML_Types.E_UML_Duration_Interval =>
15891            return
15892              AMF.Internals.Links.Opposite_Element
15893               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (13).Link, Self);
15894
15895         when AMF.Internals.Tables.UML_Types.E_UML_Interval =>
15896            return
15897              AMF.Internals.Links.Opposite_Element
15898               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
15899
15900         when AMF.Internals.Tables.UML_Types.E_UML_Time_Interval =>
15901            return
15902              AMF.Internals.Links.Opposite_Element
15903               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
15904
15905         when others =>
15906            raise Program_Error;
15907      end case;
15908   end Internal_Get_Min;
15909
15910   -------------------------
15911   -- Internal_Get_Minint --
15912   -------------------------
15913
15914   function Internal_Get_Minint
15915    (Self : AMF.Internals.AMF_Element)
15916       return AMF.Internals.AMF_Element is
15917   begin
15918      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
15919         when AMF.Internals.Tables.UML_Types.E_UML_Interaction_Constraint =>
15920            return
15921              AMF.Internals.Links.Opposite_Element
15922               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Link, Self);
15923
15924         when others =>
15925            raise Program_Error;
15926      end case;
15927   end Internal_Get_Minint;
15928
15929   -----------------------
15930   -- Internal_Get_Mode --
15931   -----------------------
15932
15933   function Internal_Get_Mode
15934    (Self : AMF.Internals.AMF_Element)
15935       return AMF.UML.UML_Expansion_Kind is
15936   begin
15937      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Expansion_Kind_Value;
15938   end Internal_Get_Mode;
15939
15940   -------------------------------
15941   -- Internal_Get_Mode_Element --
15942   -------------------------------
15943
15944   function Internal_Get_Mode_Element
15945    (Self : AMF.Internals.AMF_Element)
15946       return AMF.Internals.AMF_Element is
15947   begin
15948      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
15949         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Name_Label =>
15950            return
15951              AMF.Internals.Links.Opposite_Element
15952               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (2).Link, Self);
15953
15954         when others =>
15955            raise Program_Error;
15956      end case;
15957   end Internal_Get_Mode_Element;
15958
15959   --------------------------------
15960   -- Internal_Get_Model_Element --
15961   --------------------------------
15962
15963   function Internal_Get_Model_Element
15964    (Self : AMF.Internals.AMF_Element)
15965       return AMF.Internals.AMF_Element is
15966   begin
15967      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
15968         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Activity_Diagram =>
15969            return
15970              AMF.Internals.Links.Opposite_Element
15971               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (25).Link, Self);
15972
15973         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Association_End_Label =>
15974            return
15975              AMF.Internals.Links.Opposite_Element
15976               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (2).Link, Self);
15977
15978         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Association_Or_Connector_Or_Link_Shape =>
15979            return
15980              AMF.Internals.Links.Opposite_Element
15981               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Link, Self);
15982
15983         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Class_Diagram =>
15984            return
15985              AMF.Internals.Links.Opposite_Element
15986               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Link, Self);
15987
15988         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Classifier_Shape =>
15989            return
15990              AMF.Internals.Links.Opposite_Element
15991               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
15992
15993         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Compartment =>
15994            return
15995              AMF.Internals.Links.Opposite_Element
15996               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Link, Self);
15997
15998         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Compartmentable_Shape =>
15999            return
16000              AMF.Internals.Links.Opposite_Element
16001               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Link, Self);
16002
16003         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Component_Diagram =>
16004            return
16005              AMF.Internals.Links.Opposite_Element
16006               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Link, Self);
16007
16008         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Composite_Structure_Diagram =>
16009            return
16010              AMF.Internals.Links.Opposite_Element
16011               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Link, Self);
16012
16013         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Deployment_Diagram =>
16014            return
16015              AMF.Internals.Links.Opposite_Element
16016               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Link, Self);
16017
16018         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Edge =>
16019            return
16020              AMF.Internals.Links.Opposite_Element
16021               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Link, Self);
16022
16023         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Interaction_Diagram =>
16024            return
16025              AMF.Internals.Links.Opposite_Element
16026               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (23).Link, Self);
16027
16028         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Interaction_Table_Label =>
16029            return
16030              AMF.Internals.Links.Opposite_Element
16031               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Link, Self);
16032
16033         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Keyword_Label =>
16034            return
16035              AMF.Internals.Links.Opposite_Element
16036               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Link, Self);
16037
16038         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Label =>
16039            return
16040              AMF.Internals.Links.Opposite_Element
16041               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Link, Self);
16042
16043         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Multiplicity_Label =>
16044            return
16045              AMF.Internals.Links.Opposite_Element
16046               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (2).Link, Self);
16047
16048         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Name_Label =>
16049            return
16050              AMF.Internals.Links.Opposite_Element
16051               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Link, Self);
16052
16053         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Object_Diagram =>
16054            return
16055              AMF.Internals.Links.Opposite_Element
16056               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Link, Self);
16057
16058         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Package_Diagram =>
16059            return
16060              AMF.Internals.Links.Opposite_Element
16061               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Link, Self);
16062
16063         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Profile_Diagram =>
16064            return
16065              AMF.Internals.Links.Opposite_Element
16066               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Link, Self);
16067
16068         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Redefines_Label =>
16069            return
16070              AMF.Internals.Links.Opposite_Element
16071               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (2).Link, Self);
16072
16073         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Shape =>
16074            return
16075              AMF.Internals.Links.Opposite_Element
16076               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Link, Self);
16077
16078         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_State_Machine_Diagram =>
16079            return
16080              AMF.Internals.Links.Opposite_Element
16081               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (23).Link, Self);
16082
16083         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_State_Shape =>
16084            return
16085              AMF.Internals.Links.Opposite_Element
16086               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Link, Self);
16087
16088         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Stereotype_Property_Value_Label =>
16089            return
16090              AMF.Internals.Links.Opposite_Element
16091               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (2).Link, Self);
16092
16093         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Typed_Element_Label =>
16094            return
16095              AMF.Internals.Links.Opposite_Element
16096               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Link, Self);
16097
16098         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Use_Case_Diagram =>
16099            return
16100              AMF.Internals.Links.Opposite_Element
16101               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (23).Link, Self);
16102
16103         when others =>
16104            raise Program_Error;
16105      end case;
16106   end Internal_Get_Model_Element;
16107
16108   --------------------------------
16109   -- Internal_Get_Model_Element --
16110   --------------------------------
16111
16112   function Internal_Get_Model_Element
16113    (Self : AMF.Internals.AMF_Element)
16114       return AMF.Internals.AMF_Collection_Of_Element is
16115   begin
16116      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
16117         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Activity_Diagram =>
16118            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
16119
16120         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Association_End_Label =>
16121            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
16122
16123         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Association_Or_Connector_Or_Link_Shape =>
16124            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
16125
16126         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Class_Diagram =>
16127            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
16128
16129         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Classifier_Shape =>
16130            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
16131
16132         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Compartment =>
16133            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
16134
16135         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Compartmentable_Shape =>
16136            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
16137
16138         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Component_Diagram =>
16139            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
16140
16141         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Composite_Structure_Diagram =>
16142            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
16143
16144         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Deployment_Diagram =>
16145            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
16146
16147         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Edge =>
16148            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
16149
16150         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Interaction_Diagram =>
16151            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
16152
16153         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Interaction_Table_Label =>
16154            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
16155
16156         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Keyword_Label =>
16157            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
16158
16159         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Label =>
16160            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
16161
16162         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Multiplicity_Label =>
16163            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
16164
16165         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Name_Label =>
16166            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
16167
16168         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Object_Diagram =>
16169            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
16170
16171         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Package_Diagram =>
16172            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
16173
16174         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Profile_Diagram =>
16175            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
16176
16177         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Redefines_Label =>
16178            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
16179
16180         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Shape =>
16181            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
16182
16183         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_State_Machine_Diagram =>
16184            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
16185
16186         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_State_Shape =>
16187            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
16188
16189         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Stereotype_Property_Value_Label =>
16190            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
16191
16192         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Typed_Element_Label =>
16193            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
16194
16195         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Use_Case_Diagram =>
16196            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
16197
16198         when others =>
16199            raise Program_Error;
16200      end case;
16201   end Internal_Get_Model_Element;
16202
16203   -------------------------------
16204   -- Internal_Get_Must_Isolate --
16205   -------------------------------
16206
16207   function Internal_Get_Must_Isolate
16208    (Self : AMF.Internals.AMF_Element)
16209       return Boolean is
16210   begin
16211      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (15).Boolean_Value;
16212   end Internal_Get_Must_Isolate;
16213
16214   -----------------------
16215   -- Internal_Get_Name --
16216   -----------------------
16217
16218   function Internal_Get_Name
16219    (Self : AMF.Internals.AMF_Element)
16220       return Matreshka.Internals.Strings.Shared_String_Access is
16221   begin
16222      return
16223        AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (2).String_Value;
16224   end Internal_Get_Name;
16225
16226   ----------------------------------
16227   -- Internal_Get_Name_Expression --
16228   ----------------------------------
16229
16230   function Internal_Get_Name_Expression
16231    (Self : AMF.Internals.AMF_Element)
16232       return AMF.Internals.AMF_Element is
16233   begin
16234      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
16235         when AMF.Internals.Tables.UML_Types.E_UML_Abstraction =>
16236            return
16237              AMF.Internals.Links.Opposite_Element
16238               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16239
16240         when AMF.Internals.Tables.UML_Types.E_UML_Accept_Call_Action =>
16241            return
16242              AMF.Internals.Links.Opposite_Element
16243               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16244
16245         when AMF.Internals.Tables.UML_Types.E_UML_Accept_Event_Action =>
16246            return
16247              AMF.Internals.Links.Opposite_Element
16248               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16249
16250         when AMF.Internals.Tables.UML_Types.E_UML_Action_Execution_Specification =>
16251            return
16252              AMF.Internals.Links.Opposite_Element
16253               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16254
16255         when AMF.Internals.Tables.UML_Types.E_UML_Action_Input_Pin =>
16256            return
16257              AMF.Internals.Links.Opposite_Element
16258               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16259
16260         when AMF.Internals.Tables.UML_Types.E_UML_Activity =>
16261            return
16262              AMF.Internals.Links.Opposite_Element
16263               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16264
16265         when AMF.Internals.Tables.UML_Types.E_UML_Activity_Final_Node =>
16266            return
16267              AMF.Internals.Links.Opposite_Element
16268               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16269
16270         when AMF.Internals.Tables.UML_Types.E_UML_Activity_Parameter_Node =>
16271            return
16272              AMF.Internals.Links.Opposite_Element
16273               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16274
16275         when AMF.Internals.Tables.UML_Types.E_UML_Activity_Partition =>
16276            return
16277              AMF.Internals.Links.Opposite_Element
16278               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16279
16280         when AMF.Internals.Tables.UML_Types.E_UML_Actor =>
16281            return
16282              AMF.Internals.Links.Opposite_Element
16283               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16284
16285         when AMF.Internals.Tables.UML_Types.E_UML_Add_Structural_Feature_Value_Action =>
16286            return
16287              AMF.Internals.Links.Opposite_Element
16288               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16289
16290         when AMF.Internals.Tables.UML_Types.E_UML_Add_Variable_Value_Action =>
16291            return
16292              AMF.Internals.Links.Opposite_Element
16293               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16294
16295         when AMF.Internals.Tables.UML_Types.E_UML_Any_Receive_Event =>
16296            return
16297              AMF.Internals.Links.Opposite_Element
16298               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16299
16300         when AMF.Internals.Tables.UML_Types.E_UML_Artifact =>
16301            return
16302              AMF.Internals.Links.Opposite_Element
16303               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16304
16305         when AMF.Internals.Tables.UML_Types.E_UML_Association =>
16306            return
16307              AMF.Internals.Links.Opposite_Element
16308               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16309
16310         when AMF.Internals.Tables.UML_Types.E_UML_Association_Class =>
16311            return
16312              AMF.Internals.Links.Opposite_Element
16313               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16314
16315         when AMF.Internals.Tables.UML_Types.E_UML_Behavior_Execution_Specification =>
16316            return
16317              AMF.Internals.Links.Opposite_Element
16318               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16319
16320         when AMF.Internals.Tables.UML_Types.E_UML_Broadcast_Signal_Action =>
16321            return
16322              AMF.Internals.Links.Opposite_Element
16323               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16324
16325         when AMF.Internals.Tables.UML_Types.E_UML_Call_Behavior_Action =>
16326            return
16327              AMF.Internals.Links.Opposite_Element
16328               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16329
16330         when AMF.Internals.Tables.UML_Types.E_UML_Call_Event =>
16331            return
16332              AMF.Internals.Links.Opposite_Element
16333               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16334
16335         when AMF.Internals.Tables.UML_Types.E_UML_Call_Operation_Action =>
16336            return
16337              AMF.Internals.Links.Opposite_Element
16338               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16339
16340         when AMF.Internals.Tables.UML_Types.E_UML_Central_Buffer_Node =>
16341            return
16342              AMF.Internals.Links.Opposite_Element
16343               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16344
16345         when AMF.Internals.Tables.UML_Types.E_UML_Change_Event =>
16346            return
16347              AMF.Internals.Links.Opposite_Element
16348               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16349
16350         when AMF.Internals.Tables.UML_Types.E_UML_Class =>
16351            return
16352              AMF.Internals.Links.Opposite_Element
16353               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16354
16355         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Association_Action =>
16356            return
16357              AMF.Internals.Links.Opposite_Element
16358               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16359
16360         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Structural_Feature_Action =>
16361            return
16362              AMF.Internals.Links.Opposite_Element
16363               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16364
16365         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Variable_Action =>
16366            return
16367              AMF.Internals.Links.Opposite_Element
16368               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16369
16370         when AMF.Internals.Tables.UML_Types.E_UML_Collaboration =>
16371            return
16372              AMF.Internals.Links.Opposite_Element
16373               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16374
16375         when AMF.Internals.Tables.UML_Types.E_UML_Collaboration_Use =>
16376            return
16377              AMF.Internals.Links.Opposite_Element
16378               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16379
16380         when AMF.Internals.Tables.UML_Types.E_UML_Combined_Fragment =>
16381            return
16382              AMF.Internals.Links.Opposite_Element
16383               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16384
16385         when AMF.Internals.Tables.UML_Types.E_UML_Communication_Path =>
16386            return
16387              AMF.Internals.Links.Opposite_Element
16388               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16389
16390         when AMF.Internals.Tables.UML_Types.E_UML_Component =>
16391            return
16392              AMF.Internals.Links.Opposite_Element
16393               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16394
16395         when AMF.Internals.Tables.UML_Types.E_UML_Component_Realization =>
16396            return
16397              AMF.Internals.Links.Opposite_Element
16398               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16399
16400         when AMF.Internals.Tables.UML_Types.E_UML_Conditional_Node =>
16401            return
16402              AMF.Internals.Links.Opposite_Element
16403               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16404
16405         when AMF.Internals.Tables.UML_Types.E_UML_Connection_Point_Reference =>
16406            return
16407              AMF.Internals.Links.Opposite_Element
16408               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16409
16410         when AMF.Internals.Tables.UML_Types.E_UML_Connector =>
16411            return
16412              AMF.Internals.Links.Opposite_Element
16413               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16414
16415         when AMF.Internals.Tables.UML_Types.E_UML_Consider_Ignore_Fragment =>
16416            return
16417              AMF.Internals.Links.Opposite_Element
16418               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16419
16420         when AMF.Internals.Tables.UML_Types.E_UML_Constraint =>
16421            return
16422              AMF.Internals.Links.Opposite_Element
16423               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16424
16425         when AMF.Internals.Tables.UML_Types.E_UML_Continuation =>
16426            return
16427              AMF.Internals.Links.Opposite_Element
16428               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16429
16430         when AMF.Internals.Tables.UML_Types.E_UML_Control_Flow =>
16431            return
16432              AMF.Internals.Links.Opposite_Element
16433               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16434
16435         when AMF.Internals.Tables.UML_Types.E_UML_Create_Link_Action =>
16436            return
16437              AMF.Internals.Links.Opposite_Element
16438               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16439
16440         when AMF.Internals.Tables.UML_Types.E_UML_Create_Link_Object_Action =>
16441            return
16442              AMF.Internals.Links.Opposite_Element
16443               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16444
16445         when AMF.Internals.Tables.UML_Types.E_UML_Create_Object_Action =>
16446            return
16447              AMF.Internals.Links.Opposite_Element
16448               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16449
16450         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Activity_Diagram =>
16451            return
16452              AMF.Internals.Links.Opposite_Element
16453               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16454
16455         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Class_Diagram =>
16456            return
16457              AMF.Internals.Links.Opposite_Element
16458               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16459
16460         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Component_Diagram =>
16461            return
16462              AMF.Internals.Links.Opposite_Element
16463               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16464
16465         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Composite_Structure_Diagram =>
16466            return
16467              AMF.Internals.Links.Opposite_Element
16468               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16469
16470         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Deployment_Diagram =>
16471            return
16472              AMF.Internals.Links.Opposite_Element
16473               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16474
16475         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Interaction_Diagram =>
16476            return
16477              AMF.Internals.Links.Opposite_Element
16478               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16479
16480         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Object_Diagram =>
16481            return
16482              AMF.Internals.Links.Opposite_Element
16483               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16484
16485         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Package_Diagram =>
16486            return
16487              AMF.Internals.Links.Opposite_Element
16488               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16489
16490         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Profile_Diagram =>
16491            return
16492              AMF.Internals.Links.Opposite_Element
16493               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16494
16495         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_State_Machine_Diagram =>
16496            return
16497              AMF.Internals.Links.Opposite_Element
16498               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16499
16500         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Style =>
16501            return
16502              AMF.Internals.Links.Opposite_Element
16503               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16504
16505         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Use_Case_Diagram =>
16506            return
16507              AMF.Internals.Links.Opposite_Element
16508               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16509
16510         when AMF.Internals.Tables.UML_Types.E_UML_Data_Store_Node =>
16511            return
16512              AMF.Internals.Links.Opposite_Element
16513               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16514
16515         when AMF.Internals.Tables.UML_Types.E_UML_Data_Type =>
16516            return
16517              AMF.Internals.Links.Opposite_Element
16518               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16519
16520         when AMF.Internals.Tables.UML_Types.E_UML_Decision_Node =>
16521            return
16522              AMF.Internals.Links.Opposite_Element
16523               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16524
16525         when AMF.Internals.Tables.UML_Types.E_UML_Dependency =>
16526            return
16527              AMF.Internals.Links.Opposite_Element
16528               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16529
16530         when AMF.Internals.Tables.UML_Types.E_UML_Deployment =>
16531            return
16532              AMF.Internals.Links.Opposite_Element
16533               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16534
16535         when AMF.Internals.Tables.UML_Types.E_UML_Deployment_Specification =>
16536            return
16537              AMF.Internals.Links.Opposite_Element
16538               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16539
16540         when AMF.Internals.Tables.UML_Types.E_UML_Destroy_Link_Action =>
16541            return
16542              AMF.Internals.Links.Opposite_Element
16543               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16544
16545         when AMF.Internals.Tables.UML_Types.E_UML_Destroy_Object_Action =>
16546            return
16547              AMF.Internals.Links.Opposite_Element
16548               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16549
16550         when AMF.Internals.Tables.UML_Types.E_UML_Destruction_Occurrence_Specification =>
16551            return
16552              AMF.Internals.Links.Opposite_Element
16553               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16554
16555         when AMF.Internals.Tables.UML_Types.E_UML_Device =>
16556            return
16557              AMF.Internals.Links.Opposite_Element
16558               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16559
16560         when AMF.Internals.Tables.UML_Types.E_UML_Duration =>
16561            return
16562              AMF.Internals.Links.Opposite_Element
16563               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16564
16565         when AMF.Internals.Tables.UML_Types.E_UML_Duration_Constraint =>
16566            return
16567              AMF.Internals.Links.Opposite_Element
16568               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16569
16570         when AMF.Internals.Tables.UML_Types.E_UML_Duration_Interval =>
16571            return
16572              AMF.Internals.Links.Opposite_Element
16573               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16574
16575         when AMF.Internals.Tables.UML_Types.E_UML_Duration_Observation =>
16576            return
16577              AMF.Internals.Links.Opposite_Element
16578               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16579
16580         when AMF.Internals.Tables.UML_Types.E_UML_Enumeration =>
16581            return
16582              AMF.Internals.Links.Opposite_Element
16583               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16584
16585         when AMF.Internals.Tables.UML_Types.E_UML_Enumeration_Literal =>
16586            return
16587              AMF.Internals.Links.Opposite_Element
16588               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16589
16590         when AMF.Internals.Tables.UML_Types.E_UML_Execution_Environment =>
16591            return
16592              AMF.Internals.Links.Opposite_Element
16593               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16594
16595         when AMF.Internals.Tables.UML_Types.E_UML_Execution_Occurrence_Specification =>
16596            return
16597              AMF.Internals.Links.Opposite_Element
16598               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16599
16600         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Node =>
16601            return
16602              AMF.Internals.Links.Opposite_Element
16603               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16604
16605         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Region =>
16606            return
16607              AMF.Internals.Links.Opposite_Element
16608               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16609
16610         when AMF.Internals.Tables.UML_Types.E_UML_Expression =>
16611            return
16612              AMF.Internals.Links.Opposite_Element
16613               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16614
16615         when AMF.Internals.Tables.UML_Types.E_UML_Extend =>
16616            return
16617              AMF.Internals.Links.Opposite_Element
16618               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16619
16620         when AMF.Internals.Tables.UML_Types.E_UML_Extension =>
16621            return
16622              AMF.Internals.Links.Opposite_Element
16623               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16624
16625         when AMF.Internals.Tables.UML_Types.E_UML_Extension_End =>
16626            return
16627              AMF.Internals.Links.Opposite_Element
16628               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16629
16630         when AMF.Internals.Tables.UML_Types.E_UML_Extension_Point =>
16631            return
16632              AMF.Internals.Links.Opposite_Element
16633               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16634
16635         when AMF.Internals.Tables.UML_Types.E_UML_Final_State =>
16636            return
16637              AMF.Internals.Links.Opposite_Element
16638               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16639
16640         when AMF.Internals.Tables.UML_Types.E_UML_Flow_Final_Node =>
16641            return
16642              AMF.Internals.Links.Opposite_Element
16643               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16644
16645         when AMF.Internals.Tables.UML_Types.E_UML_Fork_Node =>
16646            return
16647              AMF.Internals.Links.Opposite_Element
16648               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16649
16650         when AMF.Internals.Tables.UML_Types.E_UML_Function_Behavior =>
16651            return
16652              AMF.Internals.Links.Opposite_Element
16653               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16654
16655         when AMF.Internals.Tables.UML_Types.E_UML_Gate =>
16656            return
16657              AMF.Internals.Links.Opposite_Element
16658               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16659
16660         when AMF.Internals.Tables.UML_Types.E_UML_General_Ordering =>
16661            return
16662              AMF.Internals.Links.Opposite_Element
16663               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16664
16665         when AMF.Internals.Tables.UML_Types.E_UML_Generalization_Set =>
16666            return
16667              AMF.Internals.Links.Opposite_Element
16668               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16669
16670         when AMF.Internals.Tables.UML_Types.E_UML_Include =>
16671            return
16672              AMF.Internals.Links.Opposite_Element
16673               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16674
16675         when AMF.Internals.Tables.UML_Types.E_UML_Information_Flow =>
16676            return
16677              AMF.Internals.Links.Opposite_Element
16678               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16679
16680         when AMF.Internals.Tables.UML_Types.E_UML_Information_Item =>
16681            return
16682              AMF.Internals.Links.Opposite_Element
16683               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16684
16685         when AMF.Internals.Tables.UML_Types.E_UML_Initial_Node =>
16686            return
16687              AMF.Internals.Links.Opposite_Element
16688               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16689
16690         when AMF.Internals.Tables.UML_Types.E_UML_Input_Pin =>
16691            return
16692              AMF.Internals.Links.Opposite_Element
16693               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16694
16695         when AMF.Internals.Tables.UML_Types.E_UML_Instance_Specification =>
16696            return
16697              AMF.Internals.Links.Opposite_Element
16698               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16699
16700         when AMF.Internals.Tables.UML_Types.E_UML_Instance_Value =>
16701            return
16702              AMF.Internals.Links.Opposite_Element
16703               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16704
16705         when AMF.Internals.Tables.UML_Types.E_UML_Interaction =>
16706            return
16707              AMF.Internals.Links.Opposite_Element
16708               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16709
16710         when AMF.Internals.Tables.UML_Types.E_UML_Interaction_Constraint =>
16711            return
16712              AMF.Internals.Links.Opposite_Element
16713               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16714
16715         when AMF.Internals.Tables.UML_Types.E_UML_Interaction_Operand =>
16716            return
16717              AMF.Internals.Links.Opposite_Element
16718               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16719
16720         when AMF.Internals.Tables.UML_Types.E_UML_Interaction_Use =>
16721            return
16722              AMF.Internals.Links.Opposite_Element
16723               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16724
16725         when AMF.Internals.Tables.UML_Types.E_UML_Interface =>
16726            return
16727              AMF.Internals.Links.Opposite_Element
16728               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16729
16730         when AMF.Internals.Tables.UML_Types.E_UML_Interface_Realization =>
16731            return
16732              AMF.Internals.Links.Opposite_Element
16733               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16734
16735         when AMF.Internals.Tables.UML_Types.E_UML_Interruptible_Activity_Region =>
16736            return
16737              AMF.Internals.Links.Opposite_Element
16738               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16739
16740         when AMF.Internals.Tables.UML_Types.E_UML_Interval =>
16741            return
16742              AMF.Internals.Links.Opposite_Element
16743               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16744
16745         when AMF.Internals.Tables.UML_Types.E_UML_Interval_Constraint =>
16746            return
16747              AMF.Internals.Links.Opposite_Element
16748               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16749
16750         when AMF.Internals.Tables.UML_Types.E_UML_Join_Node =>
16751            return
16752              AMF.Internals.Links.Opposite_Element
16753               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16754
16755         when AMF.Internals.Tables.UML_Types.E_UML_Lifeline =>
16756            return
16757              AMF.Internals.Links.Opposite_Element
16758               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16759
16760         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Boolean =>
16761            return
16762              AMF.Internals.Links.Opposite_Element
16763               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16764
16765         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Integer =>
16766            return
16767              AMF.Internals.Links.Opposite_Element
16768               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16769
16770         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Null =>
16771            return
16772              AMF.Internals.Links.Opposite_Element
16773               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16774
16775         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Real =>
16776            return
16777              AMF.Internals.Links.Opposite_Element
16778               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16779
16780         when AMF.Internals.Tables.UML_Types.E_UML_Literal_String =>
16781            return
16782              AMF.Internals.Links.Opposite_Element
16783               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16784
16785         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Unlimited_Natural =>
16786            return
16787              AMF.Internals.Links.Opposite_Element
16788               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16789
16790         when AMF.Internals.Tables.UML_Types.E_UML_Loop_Node =>
16791            return
16792              AMF.Internals.Links.Opposite_Element
16793               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16794
16795         when AMF.Internals.Tables.UML_Types.E_UML_Manifestation =>
16796            return
16797              AMF.Internals.Links.Opposite_Element
16798               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16799
16800         when AMF.Internals.Tables.UML_Types.E_UML_Merge_Node =>
16801            return
16802              AMF.Internals.Links.Opposite_Element
16803               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16804
16805         when AMF.Internals.Tables.UML_Types.E_UML_Message =>
16806            return
16807              AMF.Internals.Links.Opposite_Element
16808               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16809
16810         when AMF.Internals.Tables.UML_Types.E_UML_Message_Occurrence_Specification =>
16811            return
16812              AMF.Internals.Links.Opposite_Element
16813               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16814
16815         when AMF.Internals.Tables.UML_Types.E_UML_Model =>
16816            return
16817              AMF.Internals.Links.Opposite_Element
16818               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16819
16820         when AMF.Internals.Tables.UML_Types.E_UML_Node =>
16821            return
16822              AMF.Internals.Links.Opposite_Element
16823               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16824
16825         when AMF.Internals.Tables.UML_Types.E_UML_Object_Flow =>
16826            return
16827              AMF.Internals.Links.Opposite_Element
16828               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16829
16830         when AMF.Internals.Tables.UML_Types.E_UML_Occurrence_Specification =>
16831            return
16832              AMF.Internals.Links.Opposite_Element
16833               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16834
16835         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Action =>
16836            return
16837              AMF.Internals.Links.Opposite_Element
16838               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16839
16840         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Behavior =>
16841            return
16842              AMF.Internals.Links.Opposite_Element
16843               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16844
16845         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Expression =>
16846            return
16847              AMF.Internals.Links.Opposite_Element
16848               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16849
16850         when AMF.Internals.Tables.UML_Types.E_UML_Operation =>
16851            return
16852              AMF.Internals.Links.Opposite_Element
16853               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16854
16855         when AMF.Internals.Tables.UML_Types.E_UML_Output_Pin =>
16856            return
16857              AMF.Internals.Links.Opposite_Element
16858               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16859
16860         when AMF.Internals.Tables.UML_Types.E_UML_Package =>
16861            return
16862              AMF.Internals.Links.Opposite_Element
16863               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16864
16865         when AMF.Internals.Tables.UML_Types.E_UML_Parameter =>
16866            return
16867              AMF.Internals.Links.Opposite_Element
16868               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16869
16870         when AMF.Internals.Tables.UML_Types.E_UML_Parameter_Set =>
16871            return
16872              AMF.Internals.Links.Opposite_Element
16873               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16874
16875         when AMF.Internals.Tables.UML_Types.E_UML_Part_Decomposition =>
16876            return
16877              AMF.Internals.Links.Opposite_Element
16878               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16879
16880         when AMF.Internals.Tables.UML_Types.E_UML_Port =>
16881            return
16882              AMF.Internals.Links.Opposite_Element
16883               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16884
16885         when AMF.Internals.Tables.UML_Types.E_UML_Primitive_Type =>
16886            return
16887              AMF.Internals.Links.Opposite_Element
16888               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16889
16890         when AMF.Internals.Tables.UML_Types.E_UML_Profile =>
16891            return
16892              AMF.Internals.Links.Opposite_Element
16893               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16894
16895         when AMF.Internals.Tables.UML_Types.E_UML_Property =>
16896            return
16897              AMF.Internals.Links.Opposite_Element
16898               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16899
16900         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_State_Machine =>
16901            return
16902              AMF.Internals.Links.Opposite_Element
16903               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16904
16905         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_Transition =>
16906            return
16907              AMF.Internals.Links.Opposite_Element
16908               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16909
16910         when AMF.Internals.Tables.UML_Types.E_UML_Pseudostate =>
16911            return
16912              AMF.Internals.Links.Opposite_Element
16913               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16914
16915         when AMF.Internals.Tables.UML_Types.E_UML_Raise_Exception_Action =>
16916            return
16917              AMF.Internals.Links.Opposite_Element
16918               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16919
16920         when AMF.Internals.Tables.UML_Types.E_UML_Read_Extent_Action =>
16921            return
16922              AMF.Internals.Links.Opposite_Element
16923               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16924
16925         when AMF.Internals.Tables.UML_Types.E_UML_Read_Is_Classified_Object_Action =>
16926            return
16927              AMF.Internals.Links.Opposite_Element
16928               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16929
16930         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Action =>
16931            return
16932              AMF.Internals.Links.Opposite_Element
16933               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16934
16935         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Object_End_Action =>
16936            return
16937              AMF.Internals.Links.Opposite_Element
16938               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16939
16940         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Object_End_Qualifier_Action =>
16941            return
16942              AMF.Internals.Links.Opposite_Element
16943               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16944
16945         when AMF.Internals.Tables.UML_Types.E_UML_Read_Self_Action =>
16946            return
16947              AMF.Internals.Links.Opposite_Element
16948               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16949
16950         when AMF.Internals.Tables.UML_Types.E_UML_Read_Structural_Feature_Action =>
16951            return
16952              AMF.Internals.Links.Opposite_Element
16953               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16954
16955         when AMF.Internals.Tables.UML_Types.E_UML_Read_Variable_Action =>
16956            return
16957              AMF.Internals.Links.Opposite_Element
16958               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16959
16960         when AMF.Internals.Tables.UML_Types.E_UML_Realization =>
16961            return
16962              AMF.Internals.Links.Opposite_Element
16963               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16964
16965         when AMF.Internals.Tables.UML_Types.E_UML_Reception =>
16966            return
16967              AMF.Internals.Links.Opposite_Element
16968               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16969
16970         when AMF.Internals.Tables.UML_Types.E_UML_Reclassify_Object_Action =>
16971            return
16972              AMF.Internals.Links.Opposite_Element
16973               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16974
16975         when AMF.Internals.Tables.UML_Types.E_UML_Redefinable_Template_Signature =>
16976            return
16977              AMF.Internals.Links.Opposite_Element
16978               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16979
16980         when AMF.Internals.Tables.UML_Types.E_UML_Reduce_Action =>
16981            return
16982              AMF.Internals.Links.Opposite_Element
16983               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16984
16985         when AMF.Internals.Tables.UML_Types.E_UML_Region =>
16986            return
16987              AMF.Internals.Links.Opposite_Element
16988               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16989
16990         when AMF.Internals.Tables.UML_Types.E_UML_Remove_Structural_Feature_Value_Action =>
16991            return
16992              AMF.Internals.Links.Opposite_Element
16993               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16994
16995         when AMF.Internals.Tables.UML_Types.E_UML_Remove_Variable_Value_Action =>
16996            return
16997              AMF.Internals.Links.Opposite_Element
16998               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
16999
17000         when AMF.Internals.Tables.UML_Types.E_UML_Reply_Action =>
17001            return
17002              AMF.Internals.Links.Opposite_Element
17003               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
17004
17005         when AMF.Internals.Tables.UML_Types.E_UML_Send_Object_Action =>
17006            return
17007              AMF.Internals.Links.Opposite_Element
17008               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
17009
17010         when AMF.Internals.Tables.UML_Types.E_UML_Send_Signal_Action =>
17011            return
17012              AMF.Internals.Links.Opposite_Element
17013               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
17014
17015         when AMF.Internals.Tables.UML_Types.E_UML_Sequence_Node =>
17016            return
17017              AMF.Internals.Links.Opposite_Element
17018               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
17019
17020         when AMF.Internals.Tables.UML_Types.E_UML_Signal =>
17021            return
17022              AMF.Internals.Links.Opposite_Element
17023               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
17024
17025         when AMF.Internals.Tables.UML_Types.E_UML_Signal_Event =>
17026            return
17027              AMF.Internals.Links.Opposite_Element
17028               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
17029
17030         when AMF.Internals.Tables.UML_Types.E_UML_Start_Classifier_Behavior_Action =>
17031            return
17032              AMF.Internals.Links.Opposite_Element
17033               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
17034
17035         when AMF.Internals.Tables.UML_Types.E_UML_Start_Object_Behavior_Action =>
17036            return
17037              AMF.Internals.Links.Opposite_Element
17038               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
17039
17040         when AMF.Internals.Tables.UML_Types.E_UML_State =>
17041            return
17042              AMF.Internals.Links.Opposite_Element
17043               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
17044
17045         when AMF.Internals.Tables.UML_Types.E_UML_State_Invariant =>
17046            return
17047              AMF.Internals.Links.Opposite_Element
17048               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
17049
17050         when AMF.Internals.Tables.UML_Types.E_UML_State_Machine =>
17051            return
17052              AMF.Internals.Links.Opposite_Element
17053               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
17054
17055         when AMF.Internals.Tables.UML_Types.E_UML_Stereotype =>
17056            return
17057              AMF.Internals.Links.Opposite_Element
17058               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
17059
17060         when AMF.Internals.Tables.UML_Types.E_UML_String_Expression =>
17061            return
17062              AMF.Internals.Links.Opposite_Element
17063               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
17064
17065         when AMF.Internals.Tables.UML_Types.E_UML_Structured_Activity_Node =>
17066            return
17067              AMF.Internals.Links.Opposite_Element
17068               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
17069
17070         when AMF.Internals.Tables.UML_Types.E_UML_Substitution =>
17071            return
17072              AMF.Internals.Links.Opposite_Element
17073               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
17074
17075         when AMF.Internals.Tables.UML_Types.E_UML_Test_Identity_Action =>
17076            return
17077              AMF.Internals.Links.Opposite_Element
17078               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
17079
17080         when AMF.Internals.Tables.UML_Types.E_UML_Time_Constraint =>
17081            return
17082              AMF.Internals.Links.Opposite_Element
17083               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
17084
17085         when AMF.Internals.Tables.UML_Types.E_UML_Time_Event =>
17086            return
17087              AMF.Internals.Links.Opposite_Element
17088               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
17089
17090         when AMF.Internals.Tables.UML_Types.E_UML_Time_Expression =>
17091            return
17092              AMF.Internals.Links.Opposite_Element
17093               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
17094
17095         when AMF.Internals.Tables.UML_Types.E_UML_Time_Interval =>
17096            return
17097              AMF.Internals.Links.Opposite_Element
17098               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
17099
17100         when AMF.Internals.Tables.UML_Types.E_UML_Time_Observation =>
17101            return
17102              AMF.Internals.Links.Opposite_Element
17103               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
17104
17105         when AMF.Internals.Tables.UML_Types.E_UML_Transition =>
17106            return
17107              AMF.Internals.Links.Opposite_Element
17108               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
17109
17110         when AMF.Internals.Tables.UML_Types.E_UML_Trigger =>
17111            return
17112              AMF.Internals.Links.Opposite_Element
17113               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
17114
17115         when AMF.Internals.Tables.UML_Types.E_UML_Unmarshall_Action =>
17116            return
17117              AMF.Internals.Links.Opposite_Element
17118               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
17119
17120         when AMF.Internals.Tables.UML_Types.E_UML_Usage =>
17121            return
17122              AMF.Internals.Links.Opposite_Element
17123               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
17124
17125         when AMF.Internals.Tables.UML_Types.E_UML_Use_Case =>
17126            return
17127              AMF.Internals.Links.Opposite_Element
17128               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
17129
17130         when AMF.Internals.Tables.UML_Types.E_UML_Value_Pin =>
17131            return
17132              AMF.Internals.Links.Opposite_Element
17133               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
17134
17135         when AMF.Internals.Tables.UML_Types.E_UML_Value_Specification_Action =>
17136            return
17137              AMF.Internals.Links.Opposite_Element
17138               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
17139
17140         when AMF.Internals.Tables.UML_Types.E_UML_Variable =>
17141            return
17142              AMF.Internals.Links.Opposite_Element
17143               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
17144
17145         when others =>
17146            raise Program_Error;
17147      end case;
17148   end Internal_Get_Name_Expression;
17149
17150   ----------------------------
17151   -- Internal_Get_Namespace --
17152   ----------------------------
17153
17154   function Internal_Get_Namespace
17155    (Self : AMF.Internals.AMF_Element)
17156       return AMF.Internals.AMF_Element is
17157   begin
17158      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
17159         when AMF.Internals.Tables.UML_Types.E_UML_Abstraction =>
17160            return
17161              AMF.Internals.Links.Opposite_Element
17162               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17163
17164         when AMF.Internals.Tables.UML_Types.E_UML_Accept_Call_Action =>
17165            return
17166              AMF.Internals.Links.Opposite_Element
17167               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17168
17169         when AMF.Internals.Tables.UML_Types.E_UML_Accept_Event_Action =>
17170            return
17171              AMF.Internals.Links.Opposite_Element
17172               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17173
17174         when AMF.Internals.Tables.UML_Types.E_UML_Action_Execution_Specification =>
17175            return
17176              AMF.Internals.Links.Opposite_Element
17177               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17178
17179         when AMF.Internals.Tables.UML_Types.E_UML_Action_Input_Pin =>
17180            return
17181              AMF.Internals.Links.Opposite_Element
17182               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17183
17184         when AMF.Internals.Tables.UML_Types.E_UML_Activity =>
17185            return
17186              AMF.Internals.Links.Opposite_Element
17187               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17188
17189         when AMF.Internals.Tables.UML_Types.E_UML_Activity_Final_Node =>
17190            return
17191              AMF.Internals.Links.Opposite_Element
17192               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17193
17194         when AMF.Internals.Tables.UML_Types.E_UML_Activity_Parameter_Node =>
17195            return
17196              AMF.Internals.Links.Opposite_Element
17197               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17198
17199         when AMF.Internals.Tables.UML_Types.E_UML_Activity_Partition =>
17200            return
17201              AMF.Internals.Links.Opposite_Element
17202               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17203
17204         when AMF.Internals.Tables.UML_Types.E_UML_Actor =>
17205            return
17206              AMF.Internals.Links.Opposite_Element
17207               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17208
17209         when AMF.Internals.Tables.UML_Types.E_UML_Add_Structural_Feature_Value_Action =>
17210            return
17211              AMF.Internals.Links.Opposite_Element
17212               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17213
17214         when AMF.Internals.Tables.UML_Types.E_UML_Add_Variable_Value_Action =>
17215            return
17216              AMF.Internals.Links.Opposite_Element
17217               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17218
17219         when AMF.Internals.Tables.UML_Types.E_UML_Any_Receive_Event =>
17220            return
17221              AMF.Internals.Links.Opposite_Element
17222               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17223
17224         when AMF.Internals.Tables.UML_Types.E_UML_Artifact =>
17225            return
17226              AMF.Internals.Links.Opposite_Element
17227               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17228
17229         when AMF.Internals.Tables.UML_Types.E_UML_Association =>
17230            return
17231              AMF.Internals.Links.Opposite_Element
17232               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17233
17234         when AMF.Internals.Tables.UML_Types.E_UML_Association_Class =>
17235            return
17236              AMF.Internals.Links.Opposite_Element
17237               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17238
17239         when AMF.Internals.Tables.UML_Types.E_UML_Behavior_Execution_Specification =>
17240            return
17241              AMF.Internals.Links.Opposite_Element
17242               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17243
17244         when AMF.Internals.Tables.UML_Types.E_UML_Broadcast_Signal_Action =>
17245            return
17246              AMF.Internals.Links.Opposite_Element
17247               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17248
17249         when AMF.Internals.Tables.UML_Types.E_UML_Call_Behavior_Action =>
17250            return
17251              AMF.Internals.Links.Opposite_Element
17252               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17253
17254         when AMF.Internals.Tables.UML_Types.E_UML_Call_Event =>
17255            return
17256              AMF.Internals.Links.Opposite_Element
17257               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17258
17259         when AMF.Internals.Tables.UML_Types.E_UML_Call_Operation_Action =>
17260            return
17261              AMF.Internals.Links.Opposite_Element
17262               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17263
17264         when AMF.Internals.Tables.UML_Types.E_UML_Central_Buffer_Node =>
17265            return
17266              AMF.Internals.Links.Opposite_Element
17267               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17268
17269         when AMF.Internals.Tables.UML_Types.E_UML_Change_Event =>
17270            return
17271              AMF.Internals.Links.Opposite_Element
17272               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17273
17274         when AMF.Internals.Tables.UML_Types.E_UML_Class =>
17275            return
17276              AMF.Internals.Links.Opposite_Element
17277               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17278
17279         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Association_Action =>
17280            return
17281              AMF.Internals.Links.Opposite_Element
17282               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17283
17284         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Structural_Feature_Action =>
17285            return
17286              AMF.Internals.Links.Opposite_Element
17287               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17288
17289         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Variable_Action =>
17290            return
17291              AMF.Internals.Links.Opposite_Element
17292               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17293
17294         when AMF.Internals.Tables.UML_Types.E_UML_Collaboration =>
17295            return
17296              AMF.Internals.Links.Opposite_Element
17297               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17298
17299         when AMF.Internals.Tables.UML_Types.E_UML_Collaboration_Use =>
17300            return
17301              AMF.Internals.Links.Opposite_Element
17302               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17303
17304         when AMF.Internals.Tables.UML_Types.E_UML_Combined_Fragment =>
17305            return
17306              AMF.Internals.Links.Opposite_Element
17307               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17308
17309         when AMF.Internals.Tables.UML_Types.E_UML_Communication_Path =>
17310            return
17311              AMF.Internals.Links.Opposite_Element
17312               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17313
17314         when AMF.Internals.Tables.UML_Types.E_UML_Component =>
17315            return
17316              AMF.Internals.Links.Opposite_Element
17317               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17318
17319         when AMF.Internals.Tables.UML_Types.E_UML_Component_Realization =>
17320            return
17321              AMF.Internals.Links.Opposite_Element
17322               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17323
17324         when AMF.Internals.Tables.UML_Types.E_UML_Conditional_Node =>
17325            return
17326              AMF.Internals.Links.Opposite_Element
17327               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17328
17329         when AMF.Internals.Tables.UML_Types.E_UML_Connection_Point_Reference =>
17330            return
17331              AMF.Internals.Links.Opposite_Element
17332               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17333
17334         when AMF.Internals.Tables.UML_Types.E_UML_Connector =>
17335            return
17336              AMF.Internals.Links.Opposite_Element
17337               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17338
17339         when AMF.Internals.Tables.UML_Types.E_UML_Consider_Ignore_Fragment =>
17340            return
17341              AMF.Internals.Links.Opposite_Element
17342               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17343
17344         when AMF.Internals.Tables.UML_Types.E_UML_Constraint =>
17345            return
17346              AMF.Internals.Links.Opposite_Element
17347               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17348
17349         when AMF.Internals.Tables.UML_Types.E_UML_Continuation =>
17350            return
17351              AMF.Internals.Links.Opposite_Element
17352               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17353
17354         when AMF.Internals.Tables.UML_Types.E_UML_Control_Flow =>
17355            return
17356              AMF.Internals.Links.Opposite_Element
17357               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17358
17359         when AMF.Internals.Tables.UML_Types.E_UML_Create_Link_Action =>
17360            return
17361              AMF.Internals.Links.Opposite_Element
17362               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17363
17364         when AMF.Internals.Tables.UML_Types.E_UML_Create_Link_Object_Action =>
17365            return
17366              AMF.Internals.Links.Opposite_Element
17367               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17368
17369         when AMF.Internals.Tables.UML_Types.E_UML_Create_Object_Action =>
17370            return
17371              AMF.Internals.Links.Opposite_Element
17372               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17373
17374         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Activity_Diagram =>
17375            return
17376              AMF.Internals.Links.Opposite_Element
17377               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17378
17379         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Class_Diagram =>
17380            return
17381              AMF.Internals.Links.Opposite_Element
17382               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17383
17384         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Component_Diagram =>
17385            return
17386              AMF.Internals.Links.Opposite_Element
17387               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17388
17389         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Composite_Structure_Diagram =>
17390            return
17391              AMF.Internals.Links.Opposite_Element
17392               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17393
17394         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Deployment_Diagram =>
17395            return
17396              AMF.Internals.Links.Opposite_Element
17397               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17398
17399         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Interaction_Diagram =>
17400            return
17401              AMF.Internals.Links.Opposite_Element
17402               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17403
17404         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Object_Diagram =>
17405            return
17406              AMF.Internals.Links.Opposite_Element
17407               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17408
17409         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Package_Diagram =>
17410            return
17411              AMF.Internals.Links.Opposite_Element
17412               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17413
17414         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Profile_Diagram =>
17415            return
17416              AMF.Internals.Links.Opposite_Element
17417               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17418
17419         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_State_Machine_Diagram =>
17420            return
17421              AMF.Internals.Links.Opposite_Element
17422               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17423
17424         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Style =>
17425            return
17426              AMF.Internals.Links.Opposite_Element
17427               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17428
17429         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Use_Case_Diagram =>
17430            return
17431              AMF.Internals.Links.Opposite_Element
17432               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17433
17434         when AMF.Internals.Tables.UML_Types.E_UML_Data_Store_Node =>
17435            return
17436              AMF.Internals.Links.Opposite_Element
17437               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17438
17439         when AMF.Internals.Tables.UML_Types.E_UML_Data_Type =>
17440            return
17441              AMF.Internals.Links.Opposite_Element
17442               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17443
17444         when AMF.Internals.Tables.UML_Types.E_UML_Decision_Node =>
17445            return
17446              AMF.Internals.Links.Opposite_Element
17447               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17448
17449         when AMF.Internals.Tables.UML_Types.E_UML_Dependency =>
17450            return
17451              AMF.Internals.Links.Opposite_Element
17452               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17453
17454         when AMF.Internals.Tables.UML_Types.E_UML_Deployment =>
17455            return
17456              AMF.Internals.Links.Opposite_Element
17457               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17458
17459         when AMF.Internals.Tables.UML_Types.E_UML_Deployment_Specification =>
17460            return
17461              AMF.Internals.Links.Opposite_Element
17462               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17463
17464         when AMF.Internals.Tables.UML_Types.E_UML_Destroy_Link_Action =>
17465            return
17466              AMF.Internals.Links.Opposite_Element
17467               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17468
17469         when AMF.Internals.Tables.UML_Types.E_UML_Destroy_Object_Action =>
17470            return
17471              AMF.Internals.Links.Opposite_Element
17472               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17473
17474         when AMF.Internals.Tables.UML_Types.E_UML_Destruction_Occurrence_Specification =>
17475            return
17476              AMF.Internals.Links.Opposite_Element
17477               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17478
17479         when AMF.Internals.Tables.UML_Types.E_UML_Device =>
17480            return
17481              AMF.Internals.Links.Opposite_Element
17482               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17483
17484         when AMF.Internals.Tables.UML_Types.E_UML_Duration =>
17485            return
17486              AMF.Internals.Links.Opposite_Element
17487               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17488
17489         when AMF.Internals.Tables.UML_Types.E_UML_Duration_Constraint =>
17490            return
17491              AMF.Internals.Links.Opposite_Element
17492               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17493
17494         when AMF.Internals.Tables.UML_Types.E_UML_Duration_Interval =>
17495            return
17496              AMF.Internals.Links.Opposite_Element
17497               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17498
17499         when AMF.Internals.Tables.UML_Types.E_UML_Duration_Observation =>
17500            return
17501              AMF.Internals.Links.Opposite_Element
17502               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17503
17504         when AMF.Internals.Tables.UML_Types.E_UML_Enumeration =>
17505            return
17506              AMF.Internals.Links.Opposite_Element
17507               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17508
17509         when AMF.Internals.Tables.UML_Types.E_UML_Enumeration_Literal =>
17510            return
17511              AMF.Internals.Links.Opposite_Element
17512               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17513
17514         when AMF.Internals.Tables.UML_Types.E_UML_Execution_Environment =>
17515            return
17516              AMF.Internals.Links.Opposite_Element
17517               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17518
17519         when AMF.Internals.Tables.UML_Types.E_UML_Execution_Occurrence_Specification =>
17520            return
17521              AMF.Internals.Links.Opposite_Element
17522               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17523
17524         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Node =>
17525            return
17526              AMF.Internals.Links.Opposite_Element
17527               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17528
17529         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Region =>
17530            return
17531              AMF.Internals.Links.Opposite_Element
17532               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17533
17534         when AMF.Internals.Tables.UML_Types.E_UML_Expression =>
17535            return
17536              AMF.Internals.Links.Opposite_Element
17537               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17538
17539         when AMF.Internals.Tables.UML_Types.E_UML_Extend =>
17540            return
17541              AMF.Internals.Links.Opposite_Element
17542               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17543
17544         when AMF.Internals.Tables.UML_Types.E_UML_Extension =>
17545            return
17546              AMF.Internals.Links.Opposite_Element
17547               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17548
17549         when AMF.Internals.Tables.UML_Types.E_UML_Extension_End =>
17550            return
17551              AMF.Internals.Links.Opposite_Element
17552               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17553
17554         when AMF.Internals.Tables.UML_Types.E_UML_Extension_Point =>
17555            return
17556              AMF.Internals.Links.Opposite_Element
17557               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17558
17559         when AMF.Internals.Tables.UML_Types.E_UML_Final_State =>
17560            return
17561              AMF.Internals.Links.Opposite_Element
17562               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17563
17564         when AMF.Internals.Tables.UML_Types.E_UML_Flow_Final_Node =>
17565            return
17566              AMF.Internals.Links.Opposite_Element
17567               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17568
17569         when AMF.Internals.Tables.UML_Types.E_UML_Fork_Node =>
17570            return
17571              AMF.Internals.Links.Opposite_Element
17572               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17573
17574         when AMF.Internals.Tables.UML_Types.E_UML_Function_Behavior =>
17575            return
17576              AMF.Internals.Links.Opposite_Element
17577               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17578
17579         when AMF.Internals.Tables.UML_Types.E_UML_Gate =>
17580            return
17581              AMF.Internals.Links.Opposite_Element
17582               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17583
17584         when AMF.Internals.Tables.UML_Types.E_UML_General_Ordering =>
17585            return
17586              AMF.Internals.Links.Opposite_Element
17587               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17588
17589         when AMF.Internals.Tables.UML_Types.E_UML_Generalization_Set =>
17590            return
17591              AMF.Internals.Links.Opposite_Element
17592               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17593
17594         when AMF.Internals.Tables.UML_Types.E_UML_Include =>
17595            return
17596              AMF.Internals.Links.Opposite_Element
17597               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17598
17599         when AMF.Internals.Tables.UML_Types.E_UML_Information_Flow =>
17600            return
17601              AMF.Internals.Links.Opposite_Element
17602               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17603
17604         when AMF.Internals.Tables.UML_Types.E_UML_Information_Item =>
17605            return
17606              AMF.Internals.Links.Opposite_Element
17607               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17608
17609         when AMF.Internals.Tables.UML_Types.E_UML_Initial_Node =>
17610            return
17611              AMF.Internals.Links.Opposite_Element
17612               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17613
17614         when AMF.Internals.Tables.UML_Types.E_UML_Input_Pin =>
17615            return
17616              AMF.Internals.Links.Opposite_Element
17617               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17618
17619         when AMF.Internals.Tables.UML_Types.E_UML_Instance_Specification =>
17620            return
17621              AMF.Internals.Links.Opposite_Element
17622               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17623
17624         when AMF.Internals.Tables.UML_Types.E_UML_Instance_Value =>
17625            return
17626              AMF.Internals.Links.Opposite_Element
17627               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17628
17629         when AMF.Internals.Tables.UML_Types.E_UML_Interaction =>
17630            return
17631              AMF.Internals.Links.Opposite_Element
17632               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17633
17634         when AMF.Internals.Tables.UML_Types.E_UML_Interaction_Constraint =>
17635            return
17636              AMF.Internals.Links.Opposite_Element
17637               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17638
17639         when AMF.Internals.Tables.UML_Types.E_UML_Interaction_Operand =>
17640            return
17641              AMF.Internals.Links.Opposite_Element
17642               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17643
17644         when AMF.Internals.Tables.UML_Types.E_UML_Interaction_Use =>
17645            return
17646              AMF.Internals.Links.Opposite_Element
17647               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17648
17649         when AMF.Internals.Tables.UML_Types.E_UML_Interface =>
17650            return
17651              AMF.Internals.Links.Opposite_Element
17652               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17653
17654         when AMF.Internals.Tables.UML_Types.E_UML_Interface_Realization =>
17655            return
17656              AMF.Internals.Links.Opposite_Element
17657               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17658
17659         when AMF.Internals.Tables.UML_Types.E_UML_Interruptible_Activity_Region =>
17660            return
17661              AMF.Internals.Links.Opposite_Element
17662               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17663
17664         when AMF.Internals.Tables.UML_Types.E_UML_Interval =>
17665            return
17666              AMF.Internals.Links.Opposite_Element
17667               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17668
17669         when AMF.Internals.Tables.UML_Types.E_UML_Interval_Constraint =>
17670            return
17671              AMF.Internals.Links.Opposite_Element
17672               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17673
17674         when AMF.Internals.Tables.UML_Types.E_UML_Join_Node =>
17675            return
17676              AMF.Internals.Links.Opposite_Element
17677               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17678
17679         when AMF.Internals.Tables.UML_Types.E_UML_Lifeline =>
17680            return
17681              AMF.Internals.Links.Opposite_Element
17682               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17683
17684         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Boolean =>
17685            return
17686              AMF.Internals.Links.Opposite_Element
17687               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17688
17689         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Integer =>
17690            return
17691              AMF.Internals.Links.Opposite_Element
17692               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17693
17694         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Null =>
17695            return
17696              AMF.Internals.Links.Opposite_Element
17697               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17698
17699         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Real =>
17700            return
17701              AMF.Internals.Links.Opposite_Element
17702               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17703
17704         when AMF.Internals.Tables.UML_Types.E_UML_Literal_String =>
17705            return
17706              AMF.Internals.Links.Opposite_Element
17707               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17708
17709         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Unlimited_Natural =>
17710            return
17711              AMF.Internals.Links.Opposite_Element
17712               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17713
17714         when AMF.Internals.Tables.UML_Types.E_UML_Loop_Node =>
17715            return
17716              AMF.Internals.Links.Opposite_Element
17717               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17718
17719         when AMF.Internals.Tables.UML_Types.E_UML_Manifestation =>
17720            return
17721              AMF.Internals.Links.Opposite_Element
17722               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17723
17724         when AMF.Internals.Tables.UML_Types.E_UML_Merge_Node =>
17725            return
17726              AMF.Internals.Links.Opposite_Element
17727               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17728
17729         when AMF.Internals.Tables.UML_Types.E_UML_Message =>
17730            return
17731              AMF.Internals.Links.Opposite_Element
17732               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17733
17734         when AMF.Internals.Tables.UML_Types.E_UML_Message_Occurrence_Specification =>
17735            return
17736              AMF.Internals.Links.Opposite_Element
17737               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17738
17739         when AMF.Internals.Tables.UML_Types.E_UML_Model =>
17740            return
17741              AMF.Internals.Links.Opposite_Element
17742               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17743
17744         when AMF.Internals.Tables.UML_Types.E_UML_Node =>
17745            return
17746              AMF.Internals.Links.Opposite_Element
17747               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17748
17749         when AMF.Internals.Tables.UML_Types.E_UML_Object_Flow =>
17750            return
17751              AMF.Internals.Links.Opposite_Element
17752               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17753
17754         when AMF.Internals.Tables.UML_Types.E_UML_Occurrence_Specification =>
17755            return
17756              AMF.Internals.Links.Opposite_Element
17757               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17758
17759         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Action =>
17760            return
17761              AMF.Internals.Links.Opposite_Element
17762               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17763
17764         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Behavior =>
17765            return
17766              AMF.Internals.Links.Opposite_Element
17767               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17768
17769         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Expression =>
17770            return
17771              AMF.Internals.Links.Opposite_Element
17772               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17773
17774         when AMF.Internals.Tables.UML_Types.E_UML_Operation =>
17775            return
17776              AMF.Internals.Links.Opposite_Element
17777               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17778
17779         when AMF.Internals.Tables.UML_Types.E_UML_Output_Pin =>
17780            return
17781              AMF.Internals.Links.Opposite_Element
17782               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17783
17784         when AMF.Internals.Tables.UML_Types.E_UML_Package =>
17785            return
17786              AMF.Internals.Links.Opposite_Element
17787               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17788
17789         when AMF.Internals.Tables.UML_Types.E_UML_Parameter =>
17790            return
17791              AMF.Internals.Links.Opposite_Element
17792               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17793
17794         when AMF.Internals.Tables.UML_Types.E_UML_Parameter_Set =>
17795            return
17796              AMF.Internals.Links.Opposite_Element
17797               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17798
17799         when AMF.Internals.Tables.UML_Types.E_UML_Part_Decomposition =>
17800            return
17801              AMF.Internals.Links.Opposite_Element
17802               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17803
17804         when AMF.Internals.Tables.UML_Types.E_UML_Port =>
17805            return
17806              AMF.Internals.Links.Opposite_Element
17807               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17808
17809         when AMF.Internals.Tables.UML_Types.E_UML_Primitive_Type =>
17810            return
17811              AMF.Internals.Links.Opposite_Element
17812               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17813
17814         when AMF.Internals.Tables.UML_Types.E_UML_Profile =>
17815            return
17816              AMF.Internals.Links.Opposite_Element
17817               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17818
17819         when AMF.Internals.Tables.UML_Types.E_UML_Property =>
17820            return
17821              AMF.Internals.Links.Opposite_Element
17822               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17823
17824         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_State_Machine =>
17825            return
17826              AMF.Internals.Links.Opposite_Element
17827               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17828
17829         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_Transition =>
17830            return
17831              AMF.Internals.Links.Opposite_Element
17832               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17833
17834         when AMF.Internals.Tables.UML_Types.E_UML_Pseudostate =>
17835            return
17836              AMF.Internals.Links.Opposite_Element
17837               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17838
17839         when AMF.Internals.Tables.UML_Types.E_UML_Raise_Exception_Action =>
17840            return
17841              AMF.Internals.Links.Opposite_Element
17842               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17843
17844         when AMF.Internals.Tables.UML_Types.E_UML_Read_Extent_Action =>
17845            return
17846              AMF.Internals.Links.Opposite_Element
17847               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17848
17849         when AMF.Internals.Tables.UML_Types.E_UML_Read_Is_Classified_Object_Action =>
17850            return
17851              AMF.Internals.Links.Opposite_Element
17852               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17853
17854         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Action =>
17855            return
17856              AMF.Internals.Links.Opposite_Element
17857               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17858
17859         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Object_End_Action =>
17860            return
17861              AMF.Internals.Links.Opposite_Element
17862               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17863
17864         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Object_End_Qualifier_Action =>
17865            return
17866              AMF.Internals.Links.Opposite_Element
17867               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17868
17869         when AMF.Internals.Tables.UML_Types.E_UML_Read_Self_Action =>
17870            return
17871              AMF.Internals.Links.Opposite_Element
17872               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17873
17874         when AMF.Internals.Tables.UML_Types.E_UML_Read_Structural_Feature_Action =>
17875            return
17876              AMF.Internals.Links.Opposite_Element
17877               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17878
17879         when AMF.Internals.Tables.UML_Types.E_UML_Read_Variable_Action =>
17880            return
17881              AMF.Internals.Links.Opposite_Element
17882               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17883
17884         when AMF.Internals.Tables.UML_Types.E_UML_Realization =>
17885            return
17886              AMF.Internals.Links.Opposite_Element
17887               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17888
17889         when AMF.Internals.Tables.UML_Types.E_UML_Reception =>
17890            return
17891              AMF.Internals.Links.Opposite_Element
17892               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17893
17894         when AMF.Internals.Tables.UML_Types.E_UML_Reclassify_Object_Action =>
17895            return
17896              AMF.Internals.Links.Opposite_Element
17897               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17898
17899         when AMF.Internals.Tables.UML_Types.E_UML_Redefinable_Template_Signature =>
17900            return
17901              AMF.Internals.Links.Opposite_Element
17902               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17903
17904         when AMF.Internals.Tables.UML_Types.E_UML_Reduce_Action =>
17905            return
17906              AMF.Internals.Links.Opposite_Element
17907               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17908
17909         when AMF.Internals.Tables.UML_Types.E_UML_Region =>
17910            return
17911              AMF.Internals.Links.Opposite_Element
17912               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17913
17914         when AMF.Internals.Tables.UML_Types.E_UML_Remove_Structural_Feature_Value_Action =>
17915            return
17916              AMF.Internals.Links.Opposite_Element
17917               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17918
17919         when AMF.Internals.Tables.UML_Types.E_UML_Remove_Variable_Value_Action =>
17920            return
17921              AMF.Internals.Links.Opposite_Element
17922               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17923
17924         when AMF.Internals.Tables.UML_Types.E_UML_Reply_Action =>
17925            return
17926              AMF.Internals.Links.Opposite_Element
17927               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17928
17929         when AMF.Internals.Tables.UML_Types.E_UML_Send_Object_Action =>
17930            return
17931              AMF.Internals.Links.Opposite_Element
17932               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17933
17934         when AMF.Internals.Tables.UML_Types.E_UML_Send_Signal_Action =>
17935            return
17936              AMF.Internals.Links.Opposite_Element
17937               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17938
17939         when AMF.Internals.Tables.UML_Types.E_UML_Sequence_Node =>
17940            return
17941              AMF.Internals.Links.Opposite_Element
17942               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17943
17944         when AMF.Internals.Tables.UML_Types.E_UML_Signal =>
17945            return
17946              AMF.Internals.Links.Opposite_Element
17947               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17948
17949         when AMF.Internals.Tables.UML_Types.E_UML_Signal_Event =>
17950            return
17951              AMF.Internals.Links.Opposite_Element
17952               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17953
17954         when AMF.Internals.Tables.UML_Types.E_UML_Start_Classifier_Behavior_Action =>
17955            return
17956              AMF.Internals.Links.Opposite_Element
17957               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17958
17959         when AMF.Internals.Tables.UML_Types.E_UML_Start_Object_Behavior_Action =>
17960            return
17961              AMF.Internals.Links.Opposite_Element
17962               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17963
17964         when AMF.Internals.Tables.UML_Types.E_UML_State =>
17965            return
17966              AMF.Internals.Links.Opposite_Element
17967               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17968
17969         when AMF.Internals.Tables.UML_Types.E_UML_State_Invariant =>
17970            return
17971              AMF.Internals.Links.Opposite_Element
17972               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17973
17974         when AMF.Internals.Tables.UML_Types.E_UML_State_Machine =>
17975            return
17976              AMF.Internals.Links.Opposite_Element
17977               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17978
17979         when AMF.Internals.Tables.UML_Types.E_UML_Stereotype =>
17980            return
17981              AMF.Internals.Links.Opposite_Element
17982               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17983
17984         when AMF.Internals.Tables.UML_Types.E_UML_String_Expression =>
17985            return
17986              AMF.Internals.Links.Opposite_Element
17987               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17988
17989         when AMF.Internals.Tables.UML_Types.E_UML_Structured_Activity_Node =>
17990            return
17991              AMF.Internals.Links.Opposite_Element
17992               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17993
17994         when AMF.Internals.Tables.UML_Types.E_UML_Substitution =>
17995            return
17996              AMF.Internals.Links.Opposite_Element
17997               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
17998
17999         when AMF.Internals.Tables.UML_Types.E_UML_Test_Identity_Action =>
18000            return
18001              AMF.Internals.Links.Opposite_Element
18002               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
18003
18004         when AMF.Internals.Tables.UML_Types.E_UML_Time_Constraint =>
18005            return
18006              AMF.Internals.Links.Opposite_Element
18007               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
18008
18009         when AMF.Internals.Tables.UML_Types.E_UML_Time_Event =>
18010            return
18011              AMF.Internals.Links.Opposite_Element
18012               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
18013
18014         when AMF.Internals.Tables.UML_Types.E_UML_Time_Expression =>
18015            return
18016              AMF.Internals.Links.Opposite_Element
18017               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
18018
18019         when AMF.Internals.Tables.UML_Types.E_UML_Time_Interval =>
18020            return
18021              AMF.Internals.Links.Opposite_Element
18022               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
18023
18024         when AMF.Internals.Tables.UML_Types.E_UML_Time_Observation =>
18025            return
18026              AMF.Internals.Links.Opposite_Element
18027               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
18028
18029         when AMF.Internals.Tables.UML_Types.E_UML_Transition =>
18030            return
18031              AMF.Internals.Links.Opposite_Element
18032               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
18033
18034         when AMF.Internals.Tables.UML_Types.E_UML_Trigger =>
18035            return
18036              AMF.Internals.Links.Opposite_Element
18037               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
18038
18039         when AMF.Internals.Tables.UML_Types.E_UML_Unmarshall_Action =>
18040            return
18041              AMF.Internals.Links.Opposite_Element
18042               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
18043
18044         when AMF.Internals.Tables.UML_Types.E_UML_Usage =>
18045            return
18046              AMF.Internals.Links.Opposite_Element
18047               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
18048
18049         when AMF.Internals.Tables.UML_Types.E_UML_Use_Case =>
18050            return
18051              AMF.Internals.Links.Opposite_Element
18052               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
18053
18054         when AMF.Internals.Tables.UML_Types.E_UML_Value_Pin =>
18055            return
18056              AMF.Internals.Links.Opposite_Element
18057               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
18058
18059         when AMF.Internals.Tables.UML_Types.E_UML_Value_Specification_Action =>
18060            return
18061              AMF.Internals.Links.Opposite_Element
18062               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
18063
18064         when AMF.Internals.Tables.UML_Types.E_UML_Variable =>
18065            return
18066              AMF.Internals.Links.Opposite_Element
18067               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
18068
18069         when others =>
18070            raise Program_Error;
18071      end case;
18072   end Internal_Get_Namespace;
18073
18074   ----------------------------------------
18075   -- Internal_Get_Navigability_Notation --
18076   ----------------------------------------
18077
18078   function Internal_Get_Navigability_Notation
18079    (Self : AMF.Internals.AMF_Element)
18080       return AMF.UMLDI.UMLDI_UML_Navigability_Notation_Kind is
18081   begin
18082      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (24).UML_Navigability_Notation_Kind_Value;
18083   end Internal_Get_Navigability_Notation;
18084
18085   --------------------------------------
18086   -- Internal_Get_Navigable_Owned_End --
18087   --------------------------------------
18088
18089   function Internal_Get_Navigable_Owned_End
18090    (Self : AMF.Internals.AMF_Element)
18091       return AMF.Internals.AMF_Collection_Of_Element is
18092   begin
18093      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
18094         when AMF.Internals.Tables.UML_Types.E_UML_Association =>
18095            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 40;
18096
18097         when AMF.Internals.Tables.UML_Types.E_UML_Association_Class =>
18098            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 40;
18099
18100         when AMF.Internals.Tables.UML_Types.E_UML_Communication_Path =>
18101            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 40;
18102
18103         when AMF.Internals.Tables.UML_Types.E_UML_Extension =>
18104            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 40;
18105
18106         when others =>
18107            raise Program_Error;
18108      end case;
18109   end Internal_Get_Navigable_Owned_End;
18110
18111   ----------------------------------
18112   -- Internal_Get_Nested_Artifact --
18113   ----------------------------------
18114
18115   function Internal_Get_Nested_Artifact
18116    (Self : AMF.Internals.AMF_Element)
18117       return AMF.Internals.AMF_Collection_Of_Element is
18118   begin
18119      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
18120         when AMF.Internals.Tables.UML_Types.E_UML_Artifact =>
18121            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 25;
18122
18123         when AMF.Internals.Tables.UML_Types.E_UML_Deployment_Specification =>
18124            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 25;
18125
18126         when others =>
18127            raise Program_Error;
18128      end case;
18129   end Internal_Get_Nested_Artifact;
18130
18131   ------------------------------------
18132   -- Internal_Get_Nested_Classifier --
18133   ------------------------------------
18134
18135   function Internal_Get_Nested_Classifier
18136    (Self : AMF.Internals.AMF_Element)
18137       return AMF.Internals.AMF_Collection_Of_Element is
18138   begin
18139      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
18140         when AMF.Internals.Tables.UML_Types.E_UML_Activity =>
18141            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 34;
18142
18143         when AMF.Internals.Tables.UML_Types.E_UML_Association_Class =>
18144            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 34;
18145
18146         when AMF.Internals.Tables.UML_Types.E_UML_Class =>
18147            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 34;
18148
18149         when AMF.Internals.Tables.UML_Types.E_UML_Component =>
18150            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 34;
18151
18152         when AMF.Internals.Tables.UML_Types.E_UML_Device =>
18153            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 34;
18154
18155         when AMF.Internals.Tables.UML_Types.E_UML_Execution_Environment =>
18156            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 34;
18157
18158         when AMF.Internals.Tables.UML_Types.E_UML_Function_Behavior =>
18159            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 34;
18160
18161         when AMF.Internals.Tables.UML_Types.E_UML_Interaction =>
18162            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 34;
18163
18164         when AMF.Internals.Tables.UML_Types.E_UML_Interface =>
18165            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 24;
18166
18167         when AMF.Internals.Tables.UML_Types.E_UML_Node =>
18168            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 34;
18169
18170         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Behavior =>
18171            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 34;
18172
18173         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_State_Machine =>
18174            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 34;
18175
18176         when AMF.Internals.Tables.UML_Types.E_UML_State_Machine =>
18177            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 34;
18178
18179         when AMF.Internals.Tables.UML_Types.E_UML_Stereotype =>
18180            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 34;
18181
18182         when others =>
18183            raise Program_Error;
18184      end case;
18185   end Internal_Get_Nested_Classifier;
18186
18187   ------------------------------
18188   -- Internal_Get_Nested_Node --
18189   ------------------------------
18190
18191   function Internal_Get_Nested_Node
18192    (Self : AMF.Internals.AMF_Element)
18193       return AMF.Internals.AMF_Collection_Of_Element is
18194   begin
18195      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
18196         when AMF.Internals.Tables.UML_Types.E_UML_Device =>
18197            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 39;
18198
18199         when AMF.Internals.Tables.UML_Types.E_UML_Execution_Environment =>
18200            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 39;
18201
18202         when AMF.Internals.Tables.UML_Types.E_UML_Node =>
18203            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 39;
18204
18205         when others =>
18206            raise Program_Error;
18207      end case;
18208   end Internal_Get_Nested_Node;
18209
18210   ---------------------------------
18211   -- Internal_Get_Nested_Package --
18212   ---------------------------------
18213
18214   function Internal_Get_Nested_Package
18215    (Self : AMF.Internals.AMF_Element)
18216       return AMF.Internals.AMF_Collection_Of_Element is
18217   begin
18218      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
18219         when AMF.Internals.Tables.UML_Types.E_UML_Model =>
18220            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
18221
18222         when AMF.Internals.Tables.UML_Types.E_UML_Package =>
18223            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
18224
18225         when AMF.Internals.Tables.UML_Types.E_UML_Profile =>
18226            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
18227
18228         when others =>
18229            raise Program_Error;
18230      end case;
18231   end Internal_Get_Nested_Package;
18232
18233   ----------------------------------
18234   -- Internal_Get_Nesting_Package --
18235   ----------------------------------
18236
18237   function Internal_Get_Nesting_Package
18238    (Self : AMF.Internals.AMF_Element)
18239       return AMF.Internals.AMF_Element is
18240   begin
18241      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
18242         when AMF.Internals.Tables.UML_Types.E_UML_Model =>
18243            return
18244              AMF.Internals.Links.Opposite_Element
18245               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (11).Link, Self);
18246
18247         when AMF.Internals.Tables.UML_Types.E_UML_Package =>
18248            return
18249              AMF.Internals.Links.Opposite_Element
18250               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (11).Link, Self);
18251
18252         when AMF.Internals.Tables.UML_Types.E_UML_Profile =>
18253            return
18254              AMF.Internals.Links.Opposite_Element
18255               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (11).Link, Self);
18256
18257         when others =>
18258            raise Program_Error;
18259      end case;
18260   end Internal_Get_Nesting_Package;
18261
18262   ---------------------------------
18263   -- Internal_Get_New_Classifier --
18264   ---------------------------------
18265
18266   function Internal_Get_New_Classifier
18267    (Self : AMF.Internals.AMF_Element)
18268       return AMF.Internals.AMF_Collection_Of_Element is
18269   begin
18270      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
18271         when AMF.Internals.Tables.UML_Types.E_UML_Reclassify_Object_Action =>
18272            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 12;
18273
18274         when others =>
18275            raise Program_Error;
18276      end case;
18277   end Internal_Get_New_Classifier;
18278
18279   -----------------------
18280   -- Internal_Get_Node --
18281   -----------------------
18282
18283   function Internal_Get_Node
18284    (Self : AMF.Internals.AMF_Element)
18285       return AMF.Internals.AMF_Collection_Of_Element is
18286   begin
18287      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
18288         when AMF.Internals.Tables.UML_Types.E_UML_Activity =>
18289            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 44;
18290
18291         when AMF.Internals.Tables.UML_Types.E_UML_Activity_Partition =>
18292            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
18293
18294         when AMF.Internals.Tables.UML_Types.E_UML_Conditional_Node =>
18295            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 27;
18296
18297         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Region =>
18298            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 27;
18299
18300         when AMF.Internals.Tables.UML_Types.E_UML_Interruptible_Activity_Region =>
18301            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
18302
18303         when AMF.Internals.Tables.UML_Types.E_UML_Loop_Node =>
18304            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 27;
18305
18306         when AMF.Internals.Tables.UML_Types.E_UML_Sequence_Node =>
18307            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 27;
18308
18309         when AMF.Internals.Tables.UML_Types.E_UML_Structured_Activity_Node =>
18310            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 27;
18311
18312         when others =>
18313            raise Program_Error;
18314      end case;
18315   end Internal_Get_Node;
18316
18317   --------------------------------------------
18318   -- Internal_Get_Non_Navigability_Notation --
18319   --------------------------------------------
18320
18321   function Internal_Get_Non_Navigability_Notation
18322    (Self : AMF.Internals.AMF_Element)
18323       return AMF.UMLDI.UMLDI_UML_Navigability_Notation_Kind is
18324   begin
18325      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (25).UML_Navigability_Notation_Kind_Value;
18326   end Internal_Get_Non_Navigability_Notation;
18327
18328   -------------------------
18329   -- Internal_Get_Object --
18330   -------------------------
18331
18332   function Internal_Get_Object
18333    (Self : AMF.Internals.AMF_Element)
18334       return AMF.Internals.AMF_Element is
18335   begin
18336      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
18337         when AMF.Internals.Tables.UML_Types.E_UML_Add_Structural_Feature_Value_Action =>
18338            return
18339              AMF.Internals.Links.Opposite_Element
18340               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Link, Self);
18341
18342         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Association_Action =>
18343            return
18344              AMF.Internals.Links.Opposite_Element
18345               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (13).Link, Self);
18346
18347         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Structural_Feature_Action =>
18348            return
18349              AMF.Internals.Links.Opposite_Element
18350               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Link, Self);
18351
18352         when AMF.Internals.Tables.UML_Types.E_UML_Read_Is_Classified_Object_Action =>
18353            return
18354              AMF.Internals.Links.Opposite_Element
18355               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Link, Self);
18356
18357         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Object_End_Action =>
18358            return
18359              AMF.Internals.Links.Opposite_Element
18360               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (13).Link, Self);
18361
18362         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Object_End_Qualifier_Action =>
18363            return
18364              AMF.Internals.Links.Opposite_Element
18365               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Link, Self);
18366
18367         when AMF.Internals.Tables.UML_Types.E_UML_Read_Structural_Feature_Action =>
18368            return
18369              AMF.Internals.Links.Opposite_Element
18370               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Link, Self);
18371
18372         when AMF.Internals.Tables.UML_Types.E_UML_Reclassify_Object_Action =>
18373            return
18374              AMF.Internals.Links.Opposite_Element
18375               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Link, Self);
18376
18377         when AMF.Internals.Tables.UML_Types.E_UML_Remove_Structural_Feature_Value_Action =>
18378            return
18379              AMF.Internals.Links.Opposite_Element
18380               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Link, Self);
18381
18382         when AMF.Internals.Tables.UML_Types.E_UML_Start_Classifier_Behavior_Action =>
18383            return
18384              AMF.Internals.Links.Opposite_Element
18385               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Link, Self);
18386
18387         when AMF.Internals.Tables.UML_Types.E_UML_Start_Object_Behavior_Action =>
18388            return
18389              AMF.Internals.Links.Opposite_Element
18390               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Link, Self);
18391
18392         when AMF.Internals.Tables.UML_Types.E_UML_Unmarshall_Action =>
18393            return
18394              AMF.Internals.Links.Opposite_Element
18395               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Link, Self);
18396
18397         when others =>
18398            raise Program_Error;
18399      end case;
18400   end Internal_Get_Object;
18401
18402   ------------------------------
18403   -- Internal_Get_Observation --
18404   ------------------------------
18405
18406   function Internal_Get_Observation
18407    (Self : AMF.Internals.AMF_Element)
18408       return AMF.Internals.AMF_Collection_Of_Element is
18409   begin
18410      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
18411         when AMF.Internals.Tables.UML_Types.E_UML_Duration =>
18412            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
18413
18414         when AMF.Internals.Tables.UML_Types.E_UML_Time_Expression =>
18415            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
18416
18417         when others =>
18418            raise Program_Error;
18419      end case;
18420   end Internal_Get_Observation;
18421
18422   ---------------------------------
18423   -- Internal_Get_Old_Classifier --
18424   ---------------------------------
18425
18426   function Internal_Get_Old_Classifier
18427    (Self : AMF.Internals.AMF_Element)
18428       return AMF.Internals.AMF_Collection_Of_Element is
18429   begin
18430      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
18431         when AMF.Internals.Tables.UML_Types.E_UML_Reclassify_Object_Action =>
18432            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 13;
18433
18434         when others =>
18435            raise Program_Error;
18436      end case;
18437   end Internal_Get_Old_Classifier;
18438
18439   --------------------------
18440   -- Internal_Get_On_Port --
18441   --------------------------
18442
18443   function Internal_Get_On_Port
18444    (Self : AMF.Internals.AMF_Element)
18445       return AMF.Internals.AMF_Element is
18446   begin
18447      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
18448         when AMF.Internals.Tables.UML_Types.E_UML_Broadcast_Signal_Action =>
18449            return
18450              AMF.Internals.Links.Opposite_Element
18451               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Link, Self);
18452
18453         when AMF.Internals.Tables.UML_Types.E_UML_Call_Behavior_Action =>
18454            return
18455              AMF.Internals.Links.Opposite_Element
18456               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Link, Self);
18457
18458         when AMF.Internals.Tables.UML_Types.E_UML_Call_Operation_Action =>
18459            return
18460              AMF.Internals.Links.Opposite_Element
18461               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Link, Self);
18462
18463         when AMF.Internals.Tables.UML_Types.E_UML_Send_Object_Action =>
18464            return
18465              AMF.Internals.Links.Opposite_Element
18466               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Link, Self);
18467
18468         when AMF.Internals.Tables.UML_Types.E_UML_Send_Signal_Action =>
18469            return
18470              AMF.Internals.Links.Opposite_Element
18471               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Link, Self);
18472
18473         when AMF.Internals.Tables.UML_Types.E_UML_Start_Object_Behavior_Action =>
18474            return
18475              AMF.Internals.Links.Opposite_Element
18476               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Link, Self);
18477
18478         when others =>
18479            raise Program_Error;
18480      end case;
18481   end Internal_Get_On_Port;
18482
18483   --------------------------
18484   -- Internal_Get_Operand --
18485   --------------------------
18486
18487   function Internal_Get_Operand
18488    (Self : AMF.Internals.AMF_Element)
18489       return AMF.Internals.AMF_Collection_Of_Element is
18490   begin
18491      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
18492         when AMF.Internals.Tables.UML_Types.E_UML_Combined_Fragment =>
18493            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
18494
18495         when AMF.Internals.Tables.UML_Types.E_UML_Consider_Ignore_Fragment =>
18496            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
18497
18498         when AMF.Internals.Tables.UML_Types.E_UML_Expression =>
18499            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
18500
18501         when AMF.Internals.Tables.UML_Types.E_UML_String_Expression =>
18502            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
18503
18504         when others =>
18505            raise Program_Error;
18506      end case;
18507   end Internal_Get_Operand;
18508
18509   ----------------------------
18510   -- Internal_Get_Operation --
18511   ----------------------------
18512
18513   function Internal_Get_Operation
18514    (Self : AMF.Internals.AMF_Element)
18515       return AMF.Internals.AMF_Element is
18516   begin
18517      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
18518         when AMF.Internals.Tables.UML_Types.E_UML_Call_Event =>
18519            return
18520              AMF.Internals.Links.Opposite_Element
18521               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Link, Self);
18522
18523         when AMF.Internals.Tables.UML_Types.E_UML_Call_Operation_Action =>
18524            return
18525              AMF.Internals.Links.Opposite_Element
18526               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Link, Self);
18527
18528         when AMF.Internals.Tables.UML_Types.E_UML_Parameter =>
18529            return
18530              AMF.Internals.Links.Opposite_Element
18531               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (23).Link, Self);
18532
18533         when others =>
18534            raise Program_Error;
18535      end case;
18536   end Internal_Get_Operation;
18537
18538   ---------------------------
18539   -- Internal_Get_Opposite --
18540   ---------------------------
18541
18542   function Internal_Get_Opposite
18543    (Self : AMF.Internals.AMF_Element)
18544       return AMF.Internals.AMF_Element is
18545   begin
18546      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
18547         when AMF.Internals.Tables.UML_Types.E_UML_Extension_End =>
18548            return
18549              AMF.Internals.Links.Opposite_Element
18550               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (32).Link, Self);
18551
18552         when AMF.Internals.Tables.UML_Types.E_UML_Port =>
18553            return
18554              AMF.Internals.Links.Opposite_Element
18555               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (32).Link, Self);
18556
18557         when AMF.Internals.Tables.UML_Types.E_UML_Property =>
18558            return
18559              AMF.Internals.Links.Opposite_Element
18560               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (32).Link, Self);
18561
18562         when others =>
18563            raise Program_Error;
18564      end case;
18565   end Internal_Get_Opposite;
18566
18567   ---------------------------
18568   -- Internal_Get_Ordering --
18569   ---------------------------
18570
18571   function Internal_Get_Ordering
18572    (Self : AMF.Internals.AMF_Element)
18573       return AMF.UML.UML_Object_Node_Ordering_Kind is
18574   begin
18575      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (18).Object_Node_Ordering_Kind_Value;
18576   end Internal_Get_Ordering;
18577
18578   ---------------------------
18579   -- Internal_Get_Outgoing --
18580   ---------------------------
18581
18582   function Internal_Get_Outgoing
18583    (Self : AMF.Internals.AMF_Element)
18584       return AMF.Internals.AMF_Collection_Of_Element is
18585   begin
18586      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
18587         when AMF.Internals.Tables.UML_Types.E_UML_Accept_Call_Action =>
18588            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
18589
18590         when AMF.Internals.Tables.UML_Types.E_UML_Accept_Event_Action =>
18591            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
18592
18593         when AMF.Internals.Tables.UML_Types.E_UML_Action_Input_Pin =>
18594            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
18595
18596         when AMF.Internals.Tables.UML_Types.E_UML_Activity_Final_Node =>
18597            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
18598
18599         when AMF.Internals.Tables.UML_Types.E_UML_Activity_Parameter_Node =>
18600            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
18601
18602         when AMF.Internals.Tables.UML_Types.E_UML_Add_Structural_Feature_Value_Action =>
18603            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
18604
18605         when AMF.Internals.Tables.UML_Types.E_UML_Add_Variable_Value_Action =>
18606            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
18607
18608         when AMF.Internals.Tables.UML_Types.E_UML_Broadcast_Signal_Action =>
18609            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
18610
18611         when AMF.Internals.Tables.UML_Types.E_UML_Call_Behavior_Action =>
18612            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
18613
18614         when AMF.Internals.Tables.UML_Types.E_UML_Call_Operation_Action =>
18615            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
18616
18617         when AMF.Internals.Tables.UML_Types.E_UML_Central_Buffer_Node =>
18618            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
18619
18620         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Association_Action =>
18621            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
18622
18623         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Structural_Feature_Action =>
18624            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
18625
18626         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Variable_Action =>
18627            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
18628
18629         when AMF.Internals.Tables.UML_Types.E_UML_Conditional_Node =>
18630            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
18631
18632         when AMF.Internals.Tables.UML_Types.E_UML_Connection_Point_Reference =>
18633            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
18634
18635         when AMF.Internals.Tables.UML_Types.E_UML_Create_Link_Action =>
18636            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
18637
18638         when AMF.Internals.Tables.UML_Types.E_UML_Create_Link_Object_Action =>
18639            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
18640
18641         when AMF.Internals.Tables.UML_Types.E_UML_Create_Object_Action =>
18642            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
18643
18644         when AMF.Internals.Tables.UML_Types.E_UML_Data_Store_Node =>
18645            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
18646
18647         when AMF.Internals.Tables.UML_Types.E_UML_Decision_Node =>
18648            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
18649
18650         when AMF.Internals.Tables.UML_Types.E_UML_Destroy_Link_Action =>
18651            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
18652
18653         when AMF.Internals.Tables.UML_Types.E_UML_Destroy_Object_Action =>
18654            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
18655
18656         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Node =>
18657            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
18658
18659         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Region =>
18660            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
18661
18662         when AMF.Internals.Tables.UML_Types.E_UML_Final_State =>
18663            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
18664
18665         when AMF.Internals.Tables.UML_Types.E_UML_Flow_Final_Node =>
18666            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
18667
18668         when AMF.Internals.Tables.UML_Types.E_UML_Fork_Node =>
18669            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
18670
18671         when AMF.Internals.Tables.UML_Types.E_UML_Initial_Node =>
18672            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
18673
18674         when AMF.Internals.Tables.UML_Types.E_UML_Input_Pin =>
18675            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
18676
18677         when AMF.Internals.Tables.UML_Types.E_UML_Join_Node =>
18678            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
18679
18680         when AMF.Internals.Tables.UML_Types.E_UML_Loop_Node =>
18681            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
18682
18683         when AMF.Internals.Tables.UML_Types.E_UML_Merge_Node =>
18684            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
18685
18686         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Action =>
18687            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
18688
18689         when AMF.Internals.Tables.UML_Types.E_UML_Output_Pin =>
18690            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
18691
18692         when AMF.Internals.Tables.UML_Types.E_UML_Pseudostate =>
18693            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
18694
18695         when AMF.Internals.Tables.UML_Types.E_UML_Raise_Exception_Action =>
18696            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
18697
18698         when AMF.Internals.Tables.UML_Types.E_UML_Read_Extent_Action =>
18699            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
18700
18701         when AMF.Internals.Tables.UML_Types.E_UML_Read_Is_Classified_Object_Action =>
18702            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
18703
18704         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Action =>
18705            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
18706
18707         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Object_End_Action =>
18708            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
18709
18710         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Object_End_Qualifier_Action =>
18711            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
18712
18713         when AMF.Internals.Tables.UML_Types.E_UML_Read_Self_Action =>
18714            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
18715
18716         when AMF.Internals.Tables.UML_Types.E_UML_Read_Structural_Feature_Action =>
18717            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
18718
18719         when AMF.Internals.Tables.UML_Types.E_UML_Read_Variable_Action =>
18720            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
18721
18722         when AMF.Internals.Tables.UML_Types.E_UML_Reclassify_Object_Action =>
18723            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
18724
18725         when AMF.Internals.Tables.UML_Types.E_UML_Reduce_Action =>
18726            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
18727
18728         when AMF.Internals.Tables.UML_Types.E_UML_Remove_Structural_Feature_Value_Action =>
18729            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
18730
18731         when AMF.Internals.Tables.UML_Types.E_UML_Remove_Variable_Value_Action =>
18732            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
18733
18734         when AMF.Internals.Tables.UML_Types.E_UML_Reply_Action =>
18735            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
18736
18737         when AMF.Internals.Tables.UML_Types.E_UML_Send_Object_Action =>
18738            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
18739
18740         when AMF.Internals.Tables.UML_Types.E_UML_Send_Signal_Action =>
18741            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
18742
18743         when AMF.Internals.Tables.UML_Types.E_UML_Sequence_Node =>
18744            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
18745
18746         when AMF.Internals.Tables.UML_Types.E_UML_Start_Classifier_Behavior_Action =>
18747            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
18748
18749         when AMF.Internals.Tables.UML_Types.E_UML_Start_Object_Behavior_Action =>
18750            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
18751
18752         when AMF.Internals.Tables.UML_Types.E_UML_State =>
18753            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
18754
18755         when AMF.Internals.Tables.UML_Types.E_UML_Structured_Activity_Node =>
18756            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
18757
18758         when AMF.Internals.Tables.UML_Types.E_UML_Test_Identity_Action =>
18759            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
18760
18761         when AMF.Internals.Tables.UML_Types.E_UML_Unmarshall_Action =>
18762            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
18763
18764         when AMF.Internals.Tables.UML_Types.E_UML_Value_Pin =>
18765            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
18766
18767         when AMF.Internals.Tables.UML_Types.E_UML_Value_Specification_Action =>
18768            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
18769
18770         when others =>
18771            raise Program_Error;
18772      end case;
18773   end Internal_Get_Outgoing;
18774
18775   -------------------------
18776   -- Internal_Get_Output --
18777   -------------------------
18778
18779   function Internal_Get_Output
18780    (Self : AMF.Internals.AMF_Element)
18781       return AMF.Internals.AMF_Collection_Of_Element is
18782   begin
18783      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
18784         when AMF.Internals.Tables.UML_Types.E_UML_Accept_Call_Action =>
18785            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 22;
18786
18787         when AMF.Internals.Tables.UML_Types.E_UML_Accept_Event_Action =>
18788            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 22;
18789
18790         when AMF.Internals.Tables.UML_Types.E_UML_Add_Structural_Feature_Value_Action =>
18791            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 22;
18792
18793         when AMF.Internals.Tables.UML_Types.E_UML_Add_Variable_Value_Action =>
18794            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 22;
18795
18796         when AMF.Internals.Tables.UML_Types.E_UML_Broadcast_Signal_Action =>
18797            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 22;
18798
18799         when AMF.Internals.Tables.UML_Types.E_UML_Call_Behavior_Action =>
18800            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 22;
18801
18802         when AMF.Internals.Tables.UML_Types.E_UML_Call_Operation_Action =>
18803            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 22;
18804
18805         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Association_Action =>
18806            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 22;
18807
18808         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Structural_Feature_Action =>
18809            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 22;
18810
18811         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Variable_Action =>
18812            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 22;
18813
18814         when AMF.Internals.Tables.UML_Types.E_UML_Conditional_Node =>
18815            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 22;
18816
18817         when AMF.Internals.Tables.UML_Types.E_UML_Create_Link_Action =>
18818            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 22;
18819
18820         when AMF.Internals.Tables.UML_Types.E_UML_Create_Link_Object_Action =>
18821            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 22;
18822
18823         when AMF.Internals.Tables.UML_Types.E_UML_Create_Object_Action =>
18824            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 22;
18825
18826         when AMF.Internals.Tables.UML_Types.E_UML_Destroy_Link_Action =>
18827            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 22;
18828
18829         when AMF.Internals.Tables.UML_Types.E_UML_Destroy_Object_Action =>
18830            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 22;
18831
18832         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Region =>
18833            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 22;
18834
18835         when AMF.Internals.Tables.UML_Types.E_UML_Loop_Node =>
18836            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 22;
18837
18838         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Action =>
18839            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 22;
18840
18841         when AMF.Internals.Tables.UML_Types.E_UML_Raise_Exception_Action =>
18842            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 22;
18843
18844         when AMF.Internals.Tables.UML_Types.E_UML_Read_Extent_Action =>
18845            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 22;
18846
18847         when AMF.Internals.Tables.UML_Types.E_UML_Read_Is_Classified_Object_Action =>
18848            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 22;
18849
18850         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Action =>
18851            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 22;
18852
18853         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Object_End_Action =>
18854            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 22;
18855
18856         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Object_End_Qualifier_Action =>
18857            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 22;
18858
18859         when AMF.Internals.Tables.UML_Types.E_UML_Read_Self_Action =>
18860            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 22;
18861
18862         when AMF.Internals.Tables.UML_Types.E_UML_Read_Structural_Feature_Action =>
18863            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 22;
18864
18865         when AMF.Internals.Tables.UML_Types.E_UML_Read_Variable_Action =>
18866            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 22;
18867
18868         when AMF.Internals.Tables.UML_Types.E_UML_Reclassify_Object_Action =>
18869            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 22;
18870
18871         when AMF.Internals.Tables.UML_Types.E_UML_Reduce_Action =>
18872            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 22;
18873
18874         when AMF.Internals.Tables.UML_Types.E_UML_Remove_Structural_Feature_Value_Action =>
18875            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 22;
18876
18877         when AMF.Internals.Tables.UML_Types.E_UML_Remove_Variable_Value_Action =>
18878            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 22;
18879
18880         when AMF.Internals.Tables.UML_Types.E_UML_Reply_Action =>
18881            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 22;
18882
18883         when AMF.Internals.Tables.UML_Types.E_UML_Send_Object_Action =>
18884            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 22;
18885
18886         when AMF.Internals.Tables.UML_Types.E_UML_Send_Signal_Action =>
18887            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 22;
18888
18889         when AMF.Internals.Tables.UML_Types.E_UML_Sequence_Node =>
18890            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 22;
18891
18892         when AMF.Internals.Tables.UML_Types.E_UML_Start_Classifier_Behavior_Action =>
18893            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 22;
18894
18895         when AMF.Internals.Tables.UML_Types.E_UML_Start_Object_Behavior_Action =>
18896            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 22;
18897
18898         when AMF.Internals.Tables.UML_Types.E_UML_Structured_Activity_Node =>
18899            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 22;
18900
18901         when AMF.Internals.Tables.UML_Types.E_UML_Test_Identity_Action =>
18902            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 22;
18903
18904         when AMF.Internals.Tables.UML_Types.E_UML_Unmarshall_Action =>
18905            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 22;
18906
18907         when AMF.Internals.Tables.UML_Types.E_UML_Value_Specification_Action =>
18908            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 22;
18909
18910         when others =>
18911            raise Program_Error;
18912      end case;
18913   end Internal_Get_Output;
18914
18915   ---------------------------------
18916   -- Internal_Get_Output_Element --
18917   ---------------------------------
18918
18919   function Internal_Get_Output_Element
18920    (Self : AMF.Internals.AMF_Element)
18921       return AMF.Internals.AMF_Collection_Of_Element is
18922   begin
18923      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
18924         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Region =>
18925            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 32;
18926
18927         when others =>
18928            raise Program_Error;
18929      end case;
18930   end Internal_Get_Output_Element;
18931
18932   -------------------------------
18933   -- Internal_Get_Output_Value --
18934   -------------------------------
18935
18936   function Internal_Get_Output_Value
18937    (Self : AMF.Internals.AMF_Element)
18938       return AMF.Internals.AMF_Collection_Of_Element is
18939   begin
18940      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
18941         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Action =>
18942            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 13;
18943
18944         when others =>
18945            raise Program_Error;
18946      end case;
18947   end Internal_Get_Output_Value;
18948
18949   -------------------------------
18950   -- Internal_Get_Owned_Actual --
18951   -------------------------------
18952
18953   function Internal_Get_Owned_Actual
18954    (Self : AMF.Internals.AMF_Element)
18955       return AMF.Internals.AMF_Element is
18956   begin
18957      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
18958         when AMF.Internals.Tables.UML_Types.E_UML_Template_Parameter_Substitution =>
18959            return
18960              AMF.Internals.Links.Opposite_Element
18961               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
18962
18963         when others =>
18964            raise Program_Error;
18965      end case;
18966   end Internal_Get_Owned_Actual;
18967
18968   ----------------------------------
18969   -- Internal_Get_Owned_Attribute --
18970   ----------------------------------
18971
18972   function Internal_Get_Owned_Attribute
18973    (Self : AMF.Internals.AMF_Element)
18974       return AMF.Internals.AMF_Collection_Of_Element is
18975   begin
18976      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
18977         when AMF.Internals.Tables.UML_Types.E_UML_Activity =>
18978            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 35;
18979
18980         when AMF.Internals.Tables.UML_Types.E_UML_Artifact =>
18981            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 26;
18982
18983         when AMF.Internals.Tables.UML_Types.E_UML_Association_Class =>
18984            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 35;
18985
18986         when AMF.Internals.Tables.UML_Types.E_UML_Class =>
18987            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 35;
18988
18989         when AMF.Internals.Tables.UML_Types.E_UML_Collaboration =>
18990            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 28;
18991
18992         when AMF.Internals.Tables.UML_Types.E_UML_Component =>
18993            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 35;
18994
18995         when AMF.Internals.Tables.UML_Types.E_UML_Data_Type =>
18996            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 24;
18997
18998         when AMF.Internals.Tables.UML_Types.E_UML_Deployment_Specification =>
18999            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 26;
19000
19001         when AMF.Internals.Tables.UML_Types.E_UML_Device =>
19002            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 35;
19003
19004         when AMF.Internals.Tables.UML_Types.E_UML_Enumeration =>
19005            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 24;
19006
19007         when AMF.Internals.Tables.UML_Types.E_UML_Execution_Environment =>
19008            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 35;
19009
19010         when AMF.Internals.Tables.UML_Types.E_UML_Function_Behavior =>
19011            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 35;
19012
19013         when AMF.Internals.Tables.UML_Types.E_UML_Interaction =>
19014            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 35;
19015
19016         when AMF.Internals.Tables.UML_Types.E_UML_Interface =>
19017            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 25;
19018
19019         when AMF.Internals.Tables.UML_Types.E_UML_Node =>
19020            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 35;
19021
19022         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Behavior =>
19023            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 35;
19024
19025         when AMF.Internals.Tables.UML_Types.E_UML_Primitive_Type =>
19026            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 24;
19027
19028         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_State_Machine =>
19029            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 35;
19030
19031         when AMF.Internals.Tables.UML_Types.E_UML_Signal =>
19032            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 24;
19033
19034         when AMF.Internals.Tables.UML_Types.E_UML_State_Machine =>
19035            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 35;
19036
19037         when AMF.Internals.Tables.UML_Types.E_UML_Stereotype =>
19038            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 35;
19039
19040         when others =>
19041            raise Program_Error;
19042      end case;
19043   end Internal_Get_Owned_Attribute;
19044
19045   ---------------------------------
19046   -- Internal_Get_Owned_Behavior --
19047   ---------------------------------
19048
19049   function Internal_Get_Owned_Behavior
19050    (Self : AMF.Internals.AMF_Element)
19051       return AMF.Internals.AMF_Collection_Of_Element is
19052   begin
19053      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
19054         when AMF.Internals.Tables.UML_Types.E_UML_Activity =>
19055            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 26;
19056
19057         when AMF.Internals.Tables.UML_Types.E_UML_Actor =>
19058            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 26;
19059
19060         when AMF.Internals.Tables.UML_Types.E_UML_Association_Class =>
19061            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 26;
19062
19063         when AMF.Internals.Tables.UML_Types.E_UML_Class =>
19064            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 26;
19065
19066         when AMF.Internals.Tables.UML_Types.E_UML_Collaboration =>
19067            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 26;
19068
19069         when AMF.Internals.Tables.UML_Types.E_UML_Component =>
19070            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 26;
19071
19072         when AMF.Internals.Tables.UML_Types.E_UML_Device =>
19073            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 26;
19074
19075         when AMF.Internals.Tables.UML_Types.E_UML_Execution_Environment =>
19076            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 26;
19077
19078         when AMF.Internals.Tables.UML_Types.E_UML_Function_Behavior =>
19079            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 26;
19080
19081         when AMF.Internals.Tables.UML_Types.E_UML_Interaction =>
19082            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 26;
19083
19084         when AMF.Internals.Tables.UML_Types.E_UML_Node =>
19085            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 26;
19086
19087         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Behavior =>
19088            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 26;
19089
19090         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_State_Machine =>
19091            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 26;
19092
19093         when AMF.Internals.Tables.UML_Types.E_UML_State_Machine =>
19094            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 26;
19095
19096         when AMF.Internals.Tables.UML_Types.E_UML_Stereotype =>
19097            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 26;
19098
19099         when AMF.Internals.Tables.UML_Types.E_UML_Use_Case =>
19100            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 26;
19101
19102         when others =>
19103            raise Program_Error;
19104      end case;
19105   end Internal_Get_Owned_Behavior;
19106
19107   --------------------------------
19108   -- Internal_Get_Owned_Comment --
19109   --------------------------------
19110
19111   function Internal_Get_Owned_Comment
19112    (Self : AMF.Internals.AMF_Element)
19113       return AMF.Internals.AMF_Collection_Of_Element is
19114   begin
19115      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
19116         when AMF.Internals.Tables.UML_Types.E_UML_Abstraction =>
19117            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19118
19119         when AMF.Internals.Tables.UML_Types.E_UML_Accept_Call_Action =>
19120            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19121
19122         when AMF.Internals.Tables.UML_Types.E_UML_Accept_Event_Action =>
19123            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19124
19125         when AMF.Internals.Tables.UML_Types.E_UML_Action_Execution_Specification =>
19126            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19127
19128         when AMF.Internals.Tables.UML_Types.E_UML_Action_Input_Pin =>
19129            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19130
19131         when AMF.Internals.Tables.UML_Types.E_UML_Activity =>
19132            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19133
19134         when AMF.Internals.Tables.UML_Types.E_UML_Activity_Final_Node =>
19135            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19136
19137         when AMF.Internals.Tables.UML_Types.E_UML_Activity_Parameter_Node =>
19138            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19139
19140         when AMF.Internals.Tables.UML_Types.E_UML_Activity_Partition =>
19141            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19142
19143         when AMF.Internals.Tables.UML_Types.E_UML_Actor =>
19144            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19145
19146         when AMF.Internals.Tables.UML_Types.E_UML_Add_Structural_Feature_Value_Action =>
19147            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19148
19149         when AMF.Internals.Tables.UML_Types.E_UML_Add_Variable_Value_Action =>
19150            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19151
19152         when AMF.Internals.Tables.UML_Types.E_UML_Any_Receive_Event =>
19153            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19154
19155         when AMF.Internals.Tables.UML_Types.E_UML_Artifact =>
19156            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19157
19158         when AMF.Internals.Tables.UML_Types.E_UML_Association =>
19159            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19160
19161         when AMF.Internals.Tables.UML_Types.E_UML_Association_Class =>
19162            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19163
19164         when AMF.Internals.Tables.UML_Types.E_UML_Behavior_Execution_Specification =>
19165            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19166
19167         when AMF.Internals.Tables.UML_Types.E_UML_Broadcast_Signal_Action =>
19168            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19169
19170         when AMF.Internals.Tables.UML_Types.E_UML_Call_Behavior_Action =>
19171            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19172
19173         when AMF.Internals.Tables.UML_Types.E_UML_Call_Event =>
19174            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19175
19176         when AMF.Internals.Tables.UML_Types.E_UML_Call_Operation_Action =>
19177            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19178
19179         when AMF.Internals.Tables.UML_Types.E_UML_Central_Buffer_Node =>
19180            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19181
19182         when AMF.Internals.Tables.UML_Types.E_UML_Change_Event =>
19183            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19184
19185         when AMF.Internals.Tables.UML_Types.E_UML_Class =>
19186            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19187
19188         when AMF.Internals.Tables.UML_Types.E_UML_Classifier_Template_Parameter =>
19189            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19190
19191         when AMF.Internals.Tables.UML_Types.E_UML_Clause =>
19192            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19193
19194         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Association_Action =>
19195            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19196
19197         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Structural_Feature_Action =>
19198            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19199
19200         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Variable_Action =>
19201            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19202
19203         when AMF.Internals.Tables.UML_Types.E_UML_Collaboration =>
19204            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19205
19206         when AMF.Internals.Tables.UML_Types.E_UML_Collaboration_Use =>
19207            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19208
19209         when AMF.Internals.Tables.UML_Types.E_UML_Combined_Fragment =>
19210            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19211
19212         when AMF.Internals.Tables.UML_Types.E_UML_Comment =>
19213            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19214
19215         when AMF.Internals.Tables.UML_Types.E_UML_Communication_Path =>
19216            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19217
19218         when AMF.Internals.Tables.UML_Types.E_UML_Component =>
19219            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19220
19221         when AMF.Internals.Tables.UML_Types.E_UML_Component_Realization =>
19222            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19223
19224         when AMF.Internals.Tables.UML_Types.E_UML_Conditional_Node =>
19225            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19226
19227         when AMF.Internals.Tables.UML_Types.E_UML_Connectable_Element_Template_Parameter =>
19228            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19229
19230         when AMF.Internals.Tables.UML_Types.E_UML_Connection_Point_Reference =>
19231            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19232
19233         when AMF.Internals.Tables.UML_Types.E_UML_Connector =>
19234            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19235
19236         when AMF.Internals.Tables.UML_Types.E_UML_Connector_End =>
19237            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19238
19239         when AMF.Internals.Tables.UML_Types.E_UML_Consider_Ignore_Fragment =>
19240            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19241
19242         when AMF.Internals.Tables.UML_Types.E_UML_Constraint =>
19243            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19244
19245         when AMF.Internals.Tables.UML_Types.E_UML_Continuation =>
19246            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19247
19248         when AMF.Internals.Tables.UML_Types.E_UML_Control_Flow =>
19249            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19250
19251         when AMF.Internals.Tables.UML_Types.E_UML_Create_Link_Action =>
19252            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19253
19254         when AMF.Internals.Tables.UML_Types.E_UML_Create_Link_Object_Action =>
19255            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19256
19257         when AMF.Internals.Tables.UML_Types.E_UML_Create_Object_Action =>
19258            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19259
19260         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Activity_Diagram =>
19261            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19262
19263         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Class_Diagram =>
19264            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19265
19266         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Component_Diagram =>
19267            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19268
19269         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Composite_Structure_Diagram =>
19270            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19271
19272         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Deployment_Diagram =>
19273            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19274
19275         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Interaction_Diagram =>
19276            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19277
19278         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Object_Diagram =>
19279            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19280
19281         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Package_Diagram =>
19282            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19283
19284         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Profile_Diagram =>
19285            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19286
19287         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_State_Machine_Diagram =>
19288            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19289
19290         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Style =>
19291            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19292
19293         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Use_Case_Diagram =>
19294            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19295
19296         when AMF.Internals.Tables.UML_Types.E_UML_Data_Store_Node =>
19297            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19298
19299         when AMF.Internals.Tables.UML_Types.E_UML_Data_Type =>
19300            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19301
19302         when AMF.Internals.Tables.UML_Types.E_UML_Decision_Node =>
19303            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19304
19305         when AMF.Internals.Tables.UML_Types.E_UML_Dependency =>
19306            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19307
19308         when AMF.Internals.Tables.UML_Types.E_UML_Deployment =>
19309            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19310
19311         when AMF.Internals.Tables.UML_Types.E_UML_Deployment_Specification =>
19312            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19313
19314         when AMF.Internals.Tables.UML_Types.E_UML_Destroy_Link_Action =>
19315            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19316
19317         when AMF.Internals.Tables.UML_Types.E_UML_Destroy_Object_Action =>
19318            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19319
19320         when AMF.Internals.Tables.UML_Types.E_UML_Destruction_Occurrence_Specification =>
19321            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19322
19323         when AMF.Internals.Tables.UML_Types.E_UML_Device =>
19324            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19325
19326         when AMF.Internals.Tables.UML_Types.E_UML_Duration =>
19327            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19328
19329         when AMF.Internals.Tables.UML_Types.E_UML_Duration_Constraint =>
19330            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19331
19332         when AMF.Internals.Tables.UML_Types.E_UML_Duration_Interval =>
19333            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19334
19335         when AMF.Internals.Tables.UML_Types.E_UML_Duration_Observation =>
19336            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19337
19338         when AMF.Internals.Tables.UML_Types.E_UML_Element_Import =>
19339            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19340
19341         when AMF.Internals.Tables.UML_Types.E_UML_Enumeration =>
19342            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19343
19344         when AMF.Internals.Tables.UML_Types.E_UML_Enumeration_Literal =>
19345            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19346
19347         when AMF.Internals.Tables.UML_Types.E_UML_Exception_Handler =>
19348            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19349
19350         when AMF.Internals.Tables.UML_Types.E_UML_Execution_Environment =>
19351            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19352
19353         when AMF.Internals.Tables.UML_Types.E_UML_Execution_Occurrence_Specification =>
19354            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19355
19356         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Node =>
19357            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19358
19359         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Region =>
19360            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19361
19362         when AMF.Internals.Tables.UML_Types.E_UML_Expression =>
19363            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19364
19365         when AMF.Internals.Tables.UML_Types.E_UML_Extend =>
19366            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19367
19368         when AMF.Internals.Tables.UML_Types.E_UML_Extension =>
19369            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19370
19371         when AMF.Internals.Tables.UML_Types.E_UML_Extension_End =>
19372            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19373
19374         when AMF.Internals.Tables.UML_Types.E_UML_Extension_Point =>
19375            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19376
19377         when AMF.Internals.Tables.UML_Types.E_UML_Final_State =>
19378            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19379
19380         when AMF.Internals.Tables.UML_Types.E_UML_Flow_Final_Node =>
19381            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19382
19383         when AMF.Internals.Tables.UML_Types.E_UML_Fork_Node =>
19384            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19385
19386         when AMF.Internals.Tables.UML_Types.E_UML_Function_Behavior =>
19387            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19388
19389         when AMF.Internals.Tables.UML_Types.E_UML_Gate =>
19390            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19391
19392         when AMF.Internals.Tables.UML_Types.E_UML_General_Ordering =>
19393            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19394
19395         when AMF.Internals.Tables.UML_Types.E_UML_Generalization =>
19396            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19397
19398         when AMF.Internals.Tables.UML_Types.E_UML_Generalization_Set =>
19399            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19400
19401         when AMF.Internals.Tables.UML_Types.E_UML_Image =>
19402            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19403
19404         when AMF.Internals.Tables.UML_Types.E_UML_Include =>
19405            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19406
19407         when AMF.Internals.Tables.UML_Types.E_UML_Information_Flow =>
19408            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19409
19410         when AMF.Internals.Tables.UML_Types.E_UML_Information_Item =>
19411            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19412
19413         when AMF.Internals.Tables.UML_Types.E_UML_Initial_Node =>
19414            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19415
19416         when AMF.Internals.Tables.UML_Types.E_UML_Input_Pin =>
19417            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19418
19419         when AMF.Internals.Tables.UML_Types.E_UML_Instance_Specification =>
19420            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19421
19422         when AMF.Internals.Tables.UML_Types.E_UML_Instance_Value =>
19423            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19424
19425         when AMF.Internals.Tables.UML_Types.E_UML_Interaction =>
19426            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19427
19428         when AMF.Internals.Tables.UML_Types.E_UML_Interaction_Constraint =>
19429            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19430
19431         when AMF.Internals.Tables.UML_Types.E_UML_Interaction_Operand =>
19432            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19433
19434         when AMF.Internals.Tables.UML_Types.E_UML_Interaction_Use =>
19435            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19436
19437         when AMF.Internals.Tables.UML_Types.E_UML_Interface =>
19438            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19439
19440         when AMF.Internals.Tables.UML_Types.E_UML_Interface_Realization =>
19441            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19442
19443         when AMF.Internals.Tables.UML_Types.E_UML_Interruptible_Activity_Region =>
19444            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19445
19446         when AMF.Internals.Tables.UML_Types.E_UML_Interval =>
19447            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19448
19449         when AMF.Internals.Tables.UML_Types.E_UML_Interval_Constraint =>
19450            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19451
19452         when AMF.Internals.Tables.UML_Types.E_UML_Join_Node =>
19453            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19454
19455         when AMF.Internals.Tables.UML_Types.E_UML_Lifeline =>
19456            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19457
19458         when AMF.Internals.Tables.UML_Types.E_UML_Link_End_Creation_Data =>
19459            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19460
19461         when AMF.Internals.Tables.UML_Types.E_UML_Link_End_Data =>
19462            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19463
19464         when AMF.Internals.Tables.UML_Types.E_UML_Link_End_Destruction_Data =>
19465            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19466
19467         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Boolean =>
19468            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19469
19470         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Integer =>
19471            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19472
19473         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Null =>
19474            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19475
19476         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Real =>
19477            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19478
19479         when AMF.Internals.Tables.UML_Types.E_UML_Literal_String =>
19480            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19481
19482         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Unlimited_Natural =>
19483            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19484
19485         when AMF.Internals.Tables.UML_Types.E_UML_Loop_Node =>
19486            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19487
19488         when AMF.Internals.Tables.UML_Types.E_UML_Manifestation =>
19489            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19490
19491         when AMF.Internals.Tables.UML_Types.E_UML_Merge_Node =>
19492            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19493
19494         when AMF.Internals.Tables.UML_Types.E_UML_Message =>
19495            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19496
19497         when AMF.Internals.Tables.UML_Types.E_UML_Message_Occurrence_Specification =>
19498            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19499
19500         when AMF.Internals.Tables.UML_Types.E_UML_Model =>
19501            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19502
19503         when AMF.Internals.Tables.UML_Types.E_UML_Node =>
19504            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19505
19506         when AMF.Internals.Tables.UML_Types.E_UML_Object_Flow =>
19507            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19508
19509         when AMF.Internals.Tables.UML_Types.E_UML_Occurrence_Specification =>
19510            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19511
19512         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Action =>
19513            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19514
19515         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Behavior =>
19516            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19517
19518         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Expression =>
19519            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19520
19521         when AMF.Internals.Tables.UML_Types.E_UML_Operation =>
19522            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19523
19524         when AMF.Internals.Tables.UML_Types.E_UML_Operation_Template_Parameter =>
19525            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19526
19527         when AMF.Internals.Tables.UML_Types.E_UML_Output_Pin =>
19528            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19529
19530         when AMF.Internals.Tables.UML_Types.E_UML_Package =>
19531            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19532
19533         when AMF.Internals.Tables.UML_Types.E_UML_Package_Import =>
19534            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19535
19536         when AMF.Internals.Tables.UML_Types.E_UML_Package_Merge =>
19537            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19538
19539         when AMF.Internals.Tables.UML_Types.E_UML_Parameter =>
19540            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19541
19542         when AMF.Internals.Tables.UML_Types.E_UML_Parameter_Set =>
19543            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19544
19545         when AMF.Internals.Tables.UML_Types.E_UML_Part_Decomposition =>
19546            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19547
19548         when AMF.Internals.Tables.UML_Types.E_UML_Port =>
19549            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19550
19551         when AMF.Internals.Tables.UML_Types.E_UML_Primitive_Type =>
19552            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19553
19554         when AMF.Internals.Tables.UML_Types.E_UML_Profile =>
19555            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19556
19557         when AMF.Internals.Tables.UML_Types.E_UML_Profile_Application =>
19558            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19559
19560         when AMF.Internals.Tables.UML_Types.E_UML_Property =>
19561            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19562
19563         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_Conformance =>
19564            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19565
19566         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_State_Machine =>
19567            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19568
19569         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_Transition =>
19570            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19571
19572         when AMF.Internals.Tables.UML_Types.E_UML_Pseudostate =>
19573            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19574
19575         when AMF.Internals.Tables.UML_Types.E_UML_Qualifier_Value =>
19576            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19577
19578         when AMF.Internals.Tables.UML_Types.E_UML_Raise_Exception_Action =>
19579            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19580
19581         when AMF.Internals.Tables.UML_Types.E_UML_Read_Extent_Action =>
19582            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19583
19584         when AMF.Internals.Tables.UML_Types.E_UML_Read_Is_Classified_Object_Action =>
19585            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19586
19587         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Action =>
19588            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19589
19590         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Object_End_Action =>
19591            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19592
19593         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Object_End_Qualifier_Action =>
19594            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19595
19596         when AMF.Internals.Tables.UML_Types.E_UML_Read_Self_Action =>
19597            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19598
19599         when AMF.Internals.Tables.UML_Types.E_UML_Read_Structural_Feature_Action =>
19600            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19601
19602         when AMF.Internals.Tables.UML_Types.E_UML_Read_Variable_Action =>
19603            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19604
19605         when AMF.Internals.Tables.UML_Types.E_UML_Realization =>
19606            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19607
19608         when AMF.Internals.Tables.UML_Types.E_UML_Reception =>
19609            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19610
19611         when AMF.Internals.Tables.UML_Types.E_UML_Reclassify_Object_Action =>
19612            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19613
19614         when AMF.Internals.Tables.UML_Types.E_UML_Redefinable_Template_Signature =>
19615            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19616
19617         when AMF.Internals.Tables.UML_Types.E_UML_Reduce_Action =>
19618            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19619
19620         when AMF.Internals.Tables.UML_Types.E_UML_Region =>
19621            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19622
19623         when AMF.Internals.Tables.UML_Types.E_UML_Remove_Structural_Feature_Value_Action =>
19624            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19625
19626         when AMF.Internals.Tables.UML_Types.E_UML_Remove_Variable_Value_Action =>
19627            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19628
19629         when AMF.Internals.Tables.UML_Types.E_UML_Reply_Action =>
19630            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19631
19632         when AMF.Internals.Tables.UML_Types.E_UML_Send_Object_Action =>
19633            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19634
19635         when AMF.Internals.Tables.UML_Types.E_UML_Send_Signal_Action =>
19636            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19637
19638         when AMF.Internals.Tables.UML_Types.E_UML_Sequence_Node =>
19639            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19640
19641         when AMF.Internals.Tables.UML_Types.E_UML_Signal =>
19642            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19643
19644         when AMF.Internals.Tables.UML_Types.E_UML_Signal_Event =>
19645            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19646
19647         when AMF.Internals.Tables.UML_Types.E_UML_Slot =>
19648            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19649
19650         when AMF.Internals.Tables.UML_Types.E_UML_Start_Classifier_Behavior_Action =>
19651            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19652
19653         when AMF.Internals.Tables.UML_Types.E_UML_Start_Object_Behavior_Action =>
19654            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19655
19656         when AMF.Internals.Tables.UML_Types.E_UML_State =>
19657            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19658
19659         when AMF.Internals.Tables.UML_Types.E_UML_State_Invariant =>
19660            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19661
19662         when AMF.Internals.Tables.UML_Types.E_UML_State_Machine =>
19663            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19664
19665         when AMF.Internals.Tables.UML_Types.E_UML_Stereotype =>
19666            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19667
19668         when AMF.Internals.Tables.UML_Types.E_UML_String_Expression =>
19669            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19670
19671         when AMF.Internals.Tables.UML_Types.E_UML_Structured_Activity_Node =>
19672            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19673
19674         when AMF.Internals.Tables.UML_Types.E_UML_Substitution =>
19675            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19676
19677         when AMF.Internals.Tables.UML_Types.E_UML_Template_Binding =>
19678            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19679
19680         when AMF.Internals.Tables.UML_Types.E_UML_Template_Parameter =>
19681            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19682
19683         when AMF.Internals.Tables.UML_Types.E_UML_Template_Parameter_Substitution =>
19684            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19685
19686         when AMF.Internals.Tables.UML_Types.E_UML_Template_Signature =>
19687            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19688
19689         when AMF.Internals.Tables.UML_Types.E_UML_Test_Identity_Action =>
19690            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19691
19692         when AMF.Internals.Tables.UML_Types.E_UML_Time_Constraint =>
19693            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19694
19695         when AMF.Internals.Tables.UML_Types.E_UML_Time_Event =>
19696            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19697
19698         when AMF.Internals.Tables.UML_Types.E_UML_Time_Expression =>
19699            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19700
19701         when AMF.Internals.Tables.UML_Types.E_UML_Time_Interval =>
19702            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19703
19704         when AMF.Internals.Tables.UML_Types.E_UML_Time_Observation =>
19705            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19706
19707         when AMF.Internals.Tables.UML_Types.E_UML_Transition =>
19708            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19709
19710         when AMF.Internals.Tables.UML_Types.E_UML_Trigger =>
19711            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19712
19713         when AMF.Internals.Tables.UML_Types.E_UML_Unmarshall_Action =>
19714            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19715
19716         when AMF.Internals.Tables.UML_Types.E_UML_Usage =>
19717            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19718
19719         when AMF.Internals.Tables.UML_Types.E_UML_Use_Case =>
19720            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19721
19722         when AMF.Internals.Tables.UML_Types.E_UML_Value_Pin =>
19723            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19724
19725         when AMF.Internals.Tables.UML_Types.E_UML_Value_Specification_Action =>
19726            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19727
19728         when AMF.Internals.Tables.UML_Types.E_UML_Variable =>
19729            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 1;
19730
19731         when others =>
19732            raise Program_Error;
19733      end case;
19734   end Internal_Get_Owned_Comment;
19735
19736   ----------------------------------
19737   -- Internal_Get_Owned_Connector --
19738   ----------------------------------
19739
19740   function Internal_Get_Owned_Connector
19741    (Self : AMF.Internals.AMF_Element)
19742       return AMF.Internals.AMF_Collection_Of_Element is
19743   begin
19744      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
19745         when AMF.Internals.Tables.UML_Types.E_UML_Activity =>
19746            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 29;
19747
19748         when AMF.Internals.Tables.UML_Types.E_UML_Association_Class =>
19749            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 29;
19750
19751         when AMF.Internals.Tables.UML_Types.E_UML_Class =>
19752            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 29;
19753
19754         when AMF.Internals.Tables.UML_Types.E_UML_Collaboration =>
19755            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 29;
19756
19757         when AMF.Internals.Tables.UML_Types.E_UML_Component =>
19758            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 29;
19759
19760         when AMF.Internals.Tables.UML_Types.E_UML_Device =>
19761            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 29;
19762
19763         when AMF.Internals.Tables.UML_Types.E_UML_Execution_Environment =>
19764            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 29;
19765
19766         when AMF.Internals.Tables.UML_Types.E_UML_Function_Behavior =>
19767            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 29;
19768
19769         when AMF.Internals.Tables.UML_Types.E_UML_Interaction =>
19770            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 29;
19771
19772         when AMF.Internals.Tables.UML_Types.E_UML_Node =>
19773            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 29;
19774
19775         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Behavior =>
19776            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 29;
19777
19778         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_State_Machine =>
19779            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 29;
19780
19781         when AMF.Internals.Tables.UML_Types.E_UML_State_Machine =>
19782            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 29;
19783
19784         when AMF.Internals.Tables.UML_Types.E_UML_Stereotype =>
19785            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 29;
19786
19787         when others =>
19788            raise Program_Error;
19789      end case;
19790   end Internal_Get_Owned_Connector;
19791
19792   --------------------------------
19793   -- Internal_Get_Owned_Default --
19794   --------------------------------
19795
19796   function Internal_Get_Owned_Default
19797    (Self : AMF.Internals.AMF_Element)
19798       return AMF.Internals.AMF_Element is
19799   begin
19800      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
19801         when AMF.Internals.Tables.UML_Types.E_UML_Classifier_Template_Parameter =>
19802            return
19803              AMF.Internals.Links.Opposite_Element
19804               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
19805
19806         when AMF.Internals.Tables.UML_Types.E_UML_Connectable_Element_Template_Parameter =>
19807            return
19808              AMF.Internals.Links.Opposite_Element
19809               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
19810
19811         when AMF.Internals.Tables.UML_Types.E_UML_Operation_Template_Parameter =>
19812            return
19813              AMF.Internals.Links.Opposite_Element
19814               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
19815
19816         when AMF.Internals.Tables.UML_Types.E_UML_Template_Parameter =>
19817            return
19818              AMF.Internals.Links.Opposite_Element
19819               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
19820
19821         when others =>
19822            raise Program_Error;
19823      end case;
19824   end Internal_Get_Owned_Default;
19825
19826   --------------------------------
19827   -- Internal_Get_Owned_Element --
19828   --------------------------------
19829
19830   function Internal_Get_Owned_Element
19831    (Self : AMF.Internals.AMF_Element)
19832       return AMF.Internals.AMF_Collection_Of_Element is
19833   begin
19834      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
19835         when AMF.Internals.Tables.UML_Types.E_UML_Abstraction =>
19836            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
19837
19838         when AMF.Internals.Tables.UML_Types.E_UML_Accept_Call_Action =>
19839            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
19840
19841         when AMF.Internals.Tables.UML_Types.E_UML_Accept_Event_Action =>
19842            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
19843
19844         when AMF.Internals.Tables.UML_Types.E_UML_Action_Execution_Specification =>
19845            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
19846
19847         when AMF.Internals.Tables.UML_Types.E_UML_Action_Input_Pin =>
19848            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
19849
19850         when AMF.Internals.Tables.UML_Types.E_UML_Activity =>
19851            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
19852
19853         when AMF.Internals.Tables.UML_Types.E_UML_Activity_Final_Node =>
19854            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
19855
19856         when AMF.Internals.Tables.UML_Types.E_UML_Activity_Parameter_Node =>
19857            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
19858
19859         when AMF.Internals.Tables.UML_Types.E_UML_Activity_Partition =>
19860            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
19861
19862         when AMF.Internals.Tables.UML_Types.E_UML_Actor =>
19863            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
19864
19865         when AMF.Internals.Tables.UML_Types.E_UML_Add_Structural_Feature_Value_Action =>
19866            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
19867
19868         when AMF.Internals.Tables.UML_Types.E_UML_Add_Variable_Value_Action =>
19869            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
19870
19871         when AMF.Internals.Tables.UML_Types.E_UML_Any_Receive_Event =>
19872            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
19873
19874         when AMF.Internals.Tables.UML_Types.E_UML_Artifact =>
19875            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
19876
19877         when AMF.Internals.Tables.UML_Types.E_UML_Association =>
19878            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
19879
19880         when AMF.Internals.Tables.UML_Types.E_UML_Association_Class =>
19881            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
19882
19883         when AMF.Internals.Tables.UML_Types.E_UML_Behavior_Execution_Specification =>
19884            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
19885
19886         when AMF.Internals.Tables.UML_Types.E_UML_Broadcast_Signal_Action =>
19887            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
19888
19889         when AMF.Internals.Tables.UML_Types.E_UML_Call_Behavior_Action =>
19890            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
19891
19892         when AMF.Internals.Tables.UML_Types.E_UML_Call_Event =>
19893            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
19894
19895         when AMF.Internals.Tables.UML_Types.E_UML_Call_Operation_Action =>
19896            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
19897
19898         when AMF.Internals.Tables.UML_Types.E_UML_Central_Buffer_Node =>
19899            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
19900
19901         when AMF.Internals.Tables.UML_Types.E_UML_Change_Event =>
19902            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
19903
19904         when AMF.Internals.Tables.UML_Types.E_UML_Class =>
19905            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
19906
19907         when AMF.Internals.Tables.UML_Types.E_UML_Classifier_Template_Parameter =>
19908            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
19909
19910         when AMF.Internals.Tables.UML_Types.E_UML_Clause =>
19911            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
19912
19913         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Association_Action =>
19914            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
19915
19916         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Structural_Feature_Action =>
19917            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
19918
19919         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Variable_Action =>
19920            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
19921
19922         when AMF.Internals.Tables.UML_Types.E_UML_Collaboration =>
19923            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
19924
19925         when AMF.Internals.Tables.UML_Types.E_UML_Collaboration_Use =>
19926            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
19927
19928         when AMF.Internals.Tables.UML_Types.E_UML_Combined_Fragment =>
19929            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
19930
19931         when AMF.Internals.Tables.UML_Types.E_UML_Comment =>
19932            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
19933
19934         when AMF.Internals.Tables.UML_Types.E_UML_Communication_Path =>
19935            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
19936
19937         when AMF.Internals.Tables.UML_Types.E_UML_Component =>
19938            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
19939
19940         when AMF.Internals.Tables.UML_Types.E_UML_Component_Realization =>
19941            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
19942
19943         when AMF.Internals.Tables.UML_Types.E_UML_Conditional_Node =>
19944            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
19945
19946         when AMF.Internals.Tables.UML_Types.E_UML_Connectable_Element_Template_Parameter =>
19947            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
19948
19949         when AMF.Internals.Tables.UML_Types.E_UML_Connection_Point_Reference =>
19950            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
19951
19952         when AMF.Internals.Tables.UML_Types.E_UML_Connector =>
19953            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
19954
19955         when AMF.Internals.Tables.UML_Types.E_UML_Connector_End =>
19956            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
19957
19958         when AMF.Internals.Tables.UML_Types.E_UML_Consider_Ignore_Fragment =>
19959            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
19960
19961         when AMF.Internals.Tables.UML_Types.E_UML_Constraint =>
19962            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
19963
19964         when AMF.Internals.Tables.UML_Types.E_UML_Continuation =>
19965            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
19966
19967         when AMF.Internals.Tables.UML_Types.E_UML_Control_Flow =>
19968            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
19969
19970         when AMF.Internals.Tables.UML_Types.E_UML_Create_Link_Action =>
19971            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
19972
19973         when AMF.Internals.Tables.UML_Types.E_UML_Create_Link_Object_Action =>
19974            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
19975
19976         when AMF.Internals.Tables.UML_Types.E_UML_Create_Object_Action =>
19977            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
19978
19979         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Activity_Diagram =>
19980            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
19981
19982         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Association_End_Label =>
19983            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
19984
19985         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Association_Or_Connector_Or_Link_Shape =>
19986            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
19987
19988         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Class_Diagram =>
19989            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
19990
19991         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Classifier_Shape =>
19992            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
19993
19994         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Compartment =>
19995            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
19996
19997         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Compartmentable_Shape =>
19998            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
19999
20000         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Component_Diagram =>
20001            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20002
20003         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Composite_Structure_Diagram =>
20004            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20005
20006         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Deployment_Diagram =>
20007            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20008
20009         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Edge =>
20010            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
20011
20012         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Interaction_Diagram =>
20013            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20014
20015         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Interaction_Table_Label =>
20016            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
20017
20018         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Keyword_Label =>
20019            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
20020
20021         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Label =>
20022            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
20023
20024         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Multiplicity_Label =>
20025            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
20026
20027         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Name_Label =>
20028            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
20029
20030         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Object_Diagram =>
20031            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20032
20033         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Package_Diagram =>
20034            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20035
20036         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Profile_Diagram =>
20037            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20038
20039         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Redefines_Label =>
20040            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
20041
20042         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Shape =>
20043            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
20044
20045         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_State_Machine_Diagram =>
20046            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20047
20048         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_State_Shape =>
20049            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
20050
20051         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Stereotype_Property_Value_Label =>
20052            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
20053
20054         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Style =>
20055            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20056
20057         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Typed_Element_Label =>
20058            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
20059
20060         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Use_Case_Diagram =>
20061            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20062
20063         when AMF.Internals.Tables.UML_Types.E_UML_Data_Store_Node =>
20064            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20065
20066         when AMF.Internals.Tables.UML_Types.E_UML_Data_Type =>
20067            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20068
20069         when AMF.Internals.Tables.UML_Types.E_UML_Decision_Node =>
20070            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20071
20072         when AMF.Internals.Tables.UML_Types.E_UML_Dependency =>
20073            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20074
20075         when AMF.Internals.Tables.UML_Types.E_UML_Deployment =>
20076            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20077
20078         when AMF.Internals.Tables.UML_Types.E_UML_Deployment_Specification =>
20079            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20080
20081         when AMF.Internals.Tables.UML_Types.E_UML_Destroy_Link_Action =>
20082            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20083
20084         when AMF.Internals.Tables.UML_Types.E_UML_Destroy_Object_Action =>
20085            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20086
20087         when AMF.Internals.Tables.UML_Types.E_UML_Destruction_Occurrence_Specification =>
20088            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20089
20090         when AMF.Internals.Tables.UML_Types.E_UML_Device =>
20091            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20092
20093         when AMF.Internals.Tables.UML_Types.E_UML_Duration =>
20094            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20095
20096         when AMF.Internals.Tables.UML_Types.E_UML_Duration_Constraint =>
20097            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20098
20099         when AMF.Internals.Tables.UML_Types.E_UML_Duration_Interval =>
20100            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20101
20102         when AMF.Internals.Tables.UML_Types.E_UML_Duration_Observation =>
20103            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20104
20105         when AMF.Internals.Tables.UML_Types.E_UML_Element_Import =>
20106            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20107
20108         when AMF.Internals.Tables.UML_Types.E_UML_Enumeration =>
20109            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20110
20111         when AMF.Internals.Tables.UML_Types.E_UML_Enumeration_Literal =>
20112            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20113
20114         when AMF.Internals.Tables.UML_Types.E_UML_Exception_Handler =>
20115            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20116
20117         when AMF.Internals.Tables.UML_Types.E_UML_Execution_Environment =>
20118            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20119
20120         when AMF.Internals.Tables.UML_Types.E_UML_Execution_Occurrence_Specification =>
20121            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20122
20123         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Node =>
20124            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20125
20126         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Region =>
20127            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20128
20129         when AMF.Internals.Tables.UML_Types.E_UML_Expression =>
20130            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20131
20132         when AMF.Internals.Tables.UML_Types.E_UML_Extend =>
20133            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20134
20135         when AMF.Internals.Tables.UML_Types.E_UML_Extension =>
20136            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20137
20138         when AMF.Internals.Tables.UML_Types.E_UML_Extension_End =>
20139            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20140
20141         when AMF.Internals.Tables.UML_Types.E_UML_Extension_Point =>
20142            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20143
20144         when AMF.Internals.Tables.UML_Types.E_UML_Final_State =>
20145            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20146
20147         when AMF.Internals.Tables.UML_Types.E_UML_Flow_Final_Node =>
20148            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20149
20150         when AMF.Internals.Tables.UML_Types.E_UML_Fork_Node =>
20151            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20152
20153         when AMF.Internals.Tables.UML_Types.E_UML_Function_Behavior =>
20154            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20155
20156         when AMF.Internals.Tables.UML_Types.E_UML_Gate =>
20157            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20158
20159         when AMF.Internals.Tables.UML_Types.E_UML_General_Ordering =>
20160            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20161
20162         when AMF.Internals.Tables.UML_Types.E_UML_Generalization =>
20163            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20164
20165         when AMF.Internals.Tables.UML_Types.E_UML_Generalization_Set =>
20166            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20167
20168         when AMF.Internals.Tables.UML_Types.E_UML_Image =>
20169            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20170
20171         when AMF.Internals.Tables.UML_Types.E_UML_Include =>
20172            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20173
20174         when AMF.Internals.Tables.UML_Types.E_UML_Information_Flow =>
20175            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20176
20177         when AMF.Internals.Tables.UML_Types.E_UML_Information_Item =>
20178            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20179
20180         when AMF.Internals.Tables.UML_Types.E_UML_Initial_Node =>
20181            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20182
20183         when AMF.Internals.Tables.UML_Types.E_UML_Input_Pin =>
20184            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20185
20186         when AMF.Internals.Tables.UML_Types.E_UML_Instance_Specification =>
20187            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20188
20189         when AMF.Internals.Tables.UML_Types.E_UML_Instance_Value =>
20190            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20191
20192         when AMF.Internals.Tables.UML_Types.E_UML_Interaction =>
20193            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20194
20195         when AMF.Internals.Tables.UML_Types.E_UML_Interaction_Constraint =>
20196            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20197
20198         when AMF.Internals.Tables.UML_Types.E_UML_Interaction_Operand =>
20199            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20200
20201         when AMF.Internals.Tables.UML_Types.E_UML_Interaction_Use =>
20202            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20203
20204         when AMF.Internals.Tables.UML_Types.E_UML_Interface =>
20205            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20206
20207         when AMF.Internals.Tables.UML_Types.E_UML_Interface_Realization =>
20208            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20209
20210         when AMF.Internals.Tables.UML_Types.E_UML_Interruptible_Activity_Region =>
20211            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20212
20213         when AMF.Internals.Tables.UML_Types.E_UML_Interval =>
20214            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20215
20216         when AMF.Internals.Tables.UML_Types.E_UML_Interval_Constraint =>
20217            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20218
20219         when AMF.Internals.Tables.UML_Types.E_UML_Join_Node =>
20220            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20221
20222         when AMF.Internals.Tables.UML_Types.E_UML_Lifeline =>
20223            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20224
20225         when AMF.Internals.Tables.UML_Types.E_UML_Link_End_Creation_Data =>
20226            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20227
20228         when AMF.Internals.Tables.UML_Types.E_UML_Link_End_Data =>
20229            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20230
20231         when AMF.Internals.Tables.UML_Types.E_UML_Link_End_Destruction_Data =>
20232            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20233
20234         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Boolean =>
20235            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20236
20237         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Integer =>
20238            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20239
20240         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Null =>
20241            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20242
20243         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Real =>
20244            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20245
20246         when AMF.Internals.Tables.UML_Types.E_UML_Literal_String =>
20247            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20248
20249         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Unlimited_Natural =>
20250            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20251
20252         when AMF.Internals.Tables.UML_Types.E_UML_Loop_Node =>
20253            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20254
20255         when AMF.Internals.Tables.UML_Types.E_UML_Manifestation =>
20256            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20257
20258         when AMF.Internals.Tables.UML_Types.E_UML_Merge_Node =>
20259            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20260
20261         when AMF.Internals.Tables.UML_Types.E_UML_Message =>
20262            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20263
20264         when AMF.Internals.Tables.UML_Types.E_UML_Message_Occurrence_Specification =>
20265            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20266
20267         when AMF.Internals.Tables.UML_Types.E_UML_Model =>
20268            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20269
20270         when AMF.Internals.Tables.UML_Types.E_UML_Node =>
20271            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20272
20273         when AMF.Internals.Tables.UML_Types.E_UML_Object_Flow =>
20274            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20275
20276         when AMF.Internals.Tables.UML_Types.E_UML_Occurrence_Specification =>
20277            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20278
20279         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Action =>
20280            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20281
20282         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Behavior =>
20283            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20284
20285         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Expression =>
20286            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20287
20288         when AMF.Internals.Tables.UML_Types.E_UML_Operation =>
20289            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20290
20291         when AMF.Internals.Tables.UML_Types.E_UML_Operation_Template_Parameter =>
20292            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20293
20294         when AMF.Internals.Tables.UML_Types.E_UML_Output_Pin =>
20295            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20296
20297         when AMF.Internals.Tables.UML_Types.E_UML_Package =>
20298            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20299
20300         when AMF.Internals.Tables.UML_Types.E_UML_Package_Import =>
20301            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20302
20303         when AMF.Internals.Tables.UML_Types.E_UML_Package_Merge =>
20304            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20305
20306         when AMF.Internals.Tables.UML_Types.E_UML_Parameter =>
20307            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20308
20309         when AMF.Internals.Tables.UML_Types.E_UML_Parameter_Set =>
20310            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20311
20312         when AMF.Internals.Tables.UML_Types.E_UML_Part_Decomposition =>
20313            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20314
20315         when AMF.Internals.Tables.UML_Types.E_UML_Port =>
20316            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20317
20318         when AMF.Internals.Tables.UML_Types.E_UML_Primitive_Type =>
20319            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20320
20321         when AMF.Internals.Tables.UML_Types.E_UML_Profile =>
20322            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20323
20324         when AMF.Internals.Tables.UML_Types.E_UML_Profile_Application =>
20325            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20326
20327         when AMF.Internals.Tables.UML_Types.E_UML_Property =>
20328            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20329
20330         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_Conformance =>
20331            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20332
20333         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_State_Machine =>
20334            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20335
20336         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_Transition =>
20337            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20338
20339         when AMF.Internals.Tables.UML_Types.E_UML_Pseudostate =>
20340            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20341
20342         when AMF.Internals.Tables.UML_Types.E_UML_Qualifier_Value =>
20343            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20344
20345         when AMF.Internals.Tables.UML_Types.E_UML_Raise_Exception_Action =>
20346            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20347
20348         when AMF.Internals.Tables.UML_Types.E_UML_Read_Extent_Action =>
20349            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20350
20351         when AMF.Internals.Tables.UML_Types.E_UML_Read_Is_Classified_Object_Action =>
20352            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20353
20354         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Action =>
20355            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20356
20357         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Object_End_Action =>
20358            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20359
20360         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Object_End_Qualifier_Action =>
20361            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20362
20363         when AMF.Internals.Tables.UML_Types.E_UML_Read_Self_Action =>
20364            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20365
20366         when AMF.Internals.Tables.UML_Types.E_UML_Read_Structural_Feature_Action =>
20367            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20368
20369         when AMF.Internals.Tables.UML_Types.E_UML_Read_Variable_Action =>
20370            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20371
20372         when AMF.Internals.Tables.UML_Types.E_UML_Realization =>
20373            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20374
20375         when AMF.Internals.Tables.UML_Types.E_UML_Reception =>
20376            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20377
20378         when AMF.Internals.Tables.UML_Types.E_UML_Reclassify_Object_Action =>
20379            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20380
20381         when AMF.Internals.Tables.UML_Types.E_UML_Redefinable_Template_Signature =>
20382            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20383
20384         when AMF.Internals.Tables.UML_Types.E_UML_Reduce_Action =>
20385            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20386
20387         when AMF.Internals.Tables.UML_Types.E_UML_Region =>
20388            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20389
20390         when AMF.Internals.Tables.UML_Types.E_UML_Remove_Structural_Feature_Value_Action =>
20391            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20392
20393         when AMF.Internals.Tables.UML_Types.E_UML_Remove_Variable_Value_Action =>
20394            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20395
20396         when AMF.Internals.Tables.UML_Types.E_UML_Reply_Action =>
20397            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20398
20399         when AMF.Internals.Tables.UML_Types.E_UML_Send_Object_Action =>
20400            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20401
20402         when AMF.Internals.Tables.UML_Types.E_UML_Send_Signal_Action =>
20403            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20404
20405         when AMF.Internals.Tables.UML_Types.E_UML_Sequence_Node =>
20406            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20407
20408         when AMF.Internals.Tables.UML_Types.E_UML_Signal =>
20409            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20410
20411         when AMF.Internals.Tables.UML_Types.E_UML_Signal_Event =>
20412            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20413
20414         when AMF.Internals.Tables.UML_Types.E_UML_Slot =>
20415            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20416
20417         when AMF.Internals.Tables.UML_Types.E_UML_Start_Classifier_Behavior_Action =>
20418            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20419
20420         when AMF.Internals.Tables.UML_Types.E_UML_Start_Object_Behavior_Action =>
20421            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20422
20423         when AMF.Internals.Tables.UML_Types.E_UML_State =>
20424            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20425
20426         when AMF.Internals.Tables.UML_Types.E_UML_State_Invariant =>
20427            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20428
20429         when AMF.Internals.Tables.UML_Types.E_UML_State_Machine =>
20430            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20431
20432         when AMF.Internals.Tables.UML_Types.E_UML_Stereotype =>
20433            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20434
20435         when AMF.Internals.Tables.UML_Types.E_UML_String_Expression =>
20436            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20437
20438         when AMF.Internals.Tables.UML_Types.E_UML_Structured_Activity_Node =>
20439            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20440
20441         when AMF.Internals.Tables.UML_Types.E_UML_Substitution =>
20442            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20443
20444         when AMF.Internals.Tables.UML_Types.E_UML_Template_Binding =>
20445            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20446
20447         when AMF.Internals.Tables.UML_Types.E_UML_Template_Parameter =>
20448            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20449
20450         when AMF.Internals.Tables.UML_Types.E_UML_Template_Parameter_Substitution =>
20451            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20452
20453         when AMF.Internals.Tables.UML_Types.E_UML_Template_Signature =>
20454            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20455
20456         when AMF.Internals.Tables.UML_Types.E_UML_Test_Identity_Action =>
20457            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20458
20459         when AMF.Internals.Tables.UML_Types.E_UML_Time_Constraint =>
20460            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20461
20462         when AMF.Internals.Tables.UML_Types.E_UML_Time_Event =>
20463            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20464
20465         when AMF.Internals.Tables.UML_Types.E_UML_Time_Expression =>
20466            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20467
20468         when AMF.Internals.Tables.UML_Types.E_UML_Time_Interval =>
20469            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20470
20471         when AMF.Internals.Tables.UML_Types.E_UML_Time_Observation =>
20472            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20473
20474         when AMF.Internals.Tables.UML_Types.E_UML_Transition =>
20475            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20476
20477         when AMF.Internals.Tables.UML_Types.E_UML_Trigger =>
20478            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20479
20480         when AMF.Internals.Tables.UML_Types.E_UML_Unmarshall_Action =>
20481            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20482
20483         when AMF.Internals.Tables.UML_Types.E_UML_Usage =>
20484            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20485
20486         when AMF.Internals.Tables.UML_Types.E_UML_Use_Case =>
20487            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20488
20489         when AMF.Internals.Tables.UML_Types.E_UML_Value_Pin =>
20490            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20491
20492         when AMF.Internals.Tables.UML_Types.E_UML_Value_Specification_Action =>
20493            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20494
20495         when AMF.Internals.Tables.UML_Types.E_UML_Variable =>
20496            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 2;
20497
20498         when others =>
20499            raise Program_Error;
20500      end case;
20501   end Internal_Get_Owned_Element;
20502
20503   ----------------------------
20504   -- Internal_Get_Owned_End --
20505   ----------------------------
20506
20507   function Internal_Get_Owned_End
20508    (Self : AMF.Internals.AMF_Element)
20509       return AMF.Internals.AMF_Collection_Of_Element is
20510   begin
20511      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
20512         when AMF.Internals.Tables.UML_Types.E_UML_Association =>
20513            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 41;
20514
20515         when AMF.Internals.Tables.UML_Types.E_UML_Association_Class =>
20516            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 41;
20517
20518         when AMF.Internals.Tables.UML_Types.E_UML_Communication_Path =>
20519            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 41;
20520
20521         when AMF.Internals.Tables.UML_Types.E_UML_Extension =>
20522            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 41;
20523
20524         when others =>
20525            raise Program_Error;
20526      end case;
20527   end Internal_Get_Owned_End;
20528
20529   ----------------------------
20530   -- Internal_Get_Owned_End --
20531   ----------------------------
20532
20533   function Internal_Get_Owned_End
20534    (Self : AMF.Internals.AMF_Element)
20535       return AMF.Internals.AMF_Element is
20536   begin
20537      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
20538         when AMF.Internals.Tables.UML_Types.E_UML_Extension =>
20539            return
20540              AMF.Internals.Links.Opposite_Element
20541               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (20).Link, Self);
20542
20543         when others =>
20544            raise Program_Error;
20545      end case;
20546   end Internal_Get_Owned_End;
20547
20548   --------------------------------
20549   -- Internal_Get_Owned_Literal --
20550   --------------------------------
20551
20552   function Internal_Get_Owned_Literal
20553    (Self : AMF.Internals.AMF_Element)
20554       return AMF.Internals.AMF_Collection_Of_Element is
20555   begin
20556      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
20557         when AMF.Internals.Tables.UML_Types.E_UML_Enumeration =>
20558            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 26;
20559
20560         when others =>
20561            raise Program_Error;
20562      end case;
20563   end Internal_Get_Owned_Literal;
20564
20565   -------------------------------
20566   -- Internal_Get_Owned_Member --
20567   -------------------------------
20568
20569   function Internal_Get_Owned_Member
20570    (Self : AMF.Internals.AMF_Element)
20571       return AMF.Internals.AMF_Collection_Of_Element is
20572   begin
20573      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
20574         when AMF.Internals.Tables.UML_Types.E_UML_Activity =>
20575            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 15;
20576
20577         when AMF.Internals.Tables.UML_Types.E_UML_Actor =>
20578            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 15;
20579
20580         when AMF.Internals.Tables.UML_Types.E_UML_Artifact =>
20581            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 15;
20582
20583         when AMF.Internals.Tables.UML_Types.E_UML_Association =>
20584            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 15;
20585
20586         when AMF.Internals.Tables.UML_Types.E_UML_Association_Class =>
20587            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 15;
20588
20589         when AMF.Internals.Tables.UML_Types.E_UML_Class =>
20590            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 15;
20591
20592         when AMF.Internals.Tables.UML_Types.E_UML_Collaboration =>
20593            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 15;
20594
20595         when AMF.Internals.Tables.UML_Types.E_UML_Communication_Path =>
20596            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 15;
20597
20598         when AMF.Internals.Tables.UML_Types.E_UML_Component =>
20599            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 15;
20600
20601         when AMF.Internals.Tables.UML_Types.E_UML_Conditional_Node =>
20602            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 15;
20603
20604         when AMF.Internals.Tables.UML_Types.E_UML_Data_Type =>
20605            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 15;
20606
20607         when AMF.Internals.Tables.UML_Types.E_UML_Deployment_Specification =>
20608            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 15;
20609
20610         when AMF.Internals.Tables.UML_Types.E_UML_Device =>
20611            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 15;
20612
20613         when AMF.Internals.Tables.UML_Types.E_UML_Enumeration =>
20614            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 15;
20615
20616         when AMF.Internals.Tables.UML_Types.E_UML_Execution_Environment =>
20617            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 15;
20618
20619         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Region =>
20620            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 15;
20621
20622         when AMF.Internals.Tables.UML_Types.E_UML_Extension =>
20623            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 15;
20624
20625         when AMF.Internals.Tables.UML_Types.E_UML_Final_State =>
20626            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 15;
20627
20628         when AMF.Internals.Tables.UML_Types.E_UML_Function_Behavior =>
20629            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 15;
20630
20631         when AMF.Internals.Tables.UML_Types.E_UML_Information_Item =>
20632            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 15;
20633
20634         when AMF.Internals.Tables.UML_Types.E_UML_Interaction =>
20635            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 15;
20636
20637         when AMF.Internals.Tables.UML_Types.E_UML_Interaction_Operand =>
20638            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 15;
20639
20640         when AMF.Internals.Tables.UML_Types.E_UML_Interface =>
20641            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 15;
20642
20643         when AMF.Internals.Tables.UML_Types.E_UML_Loop_Node =>
20644            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 15;
20645
20646         when AMF.Internals.Tables.UML_Types.E_UML_Model =>
20647            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 15;
20648
20649         when AMF.Internals.Tables.UML_Types.E_UML_Node =>
20650            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 15;
20651
20652         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Behavior =>
20653            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 15;
20654
20655         when AMF.Internals.Tables.UML_Types.E_UML_Operation =>
20656            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 15;
20657
20658         when AMF.Internals.Tables.UML_Types.E_UML_Package =>
20659            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 15;
20660
20661         when AMF.Internals.Tables.UML_Types.E_UML_Primitive_Type =>
20662            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 15;
20663
20664         when AMF.Internals.Tables.UML_Types.E_UML_Profile =>
20665            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 15;
20666
20667         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_State_Machine =>
20668            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 15;
20669
20670         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_Transition =>
20671            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 15;
20672
20673         when AMF.Internals.Tables.UML_Types.E_UML_Reception =>
20674            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 15;
20675
20676         when AMF.Internals.Tables.UML_Types.E_UML_Region =>
20677            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 15;
20678
20679         when AMF.Internals.Tables.UML_Types.E_UML_Sequence_Node =>
20680            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 15;
20681
20682         when AMF.Internals.Tables.UML_Types.E_UML_Signal =>
20683            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 15;
20684
20685         when AMF.Internals.Tables.UML_Types.E_UML_State =>
20686            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 15;
20687
20688         when AMF.Internals.Tables.UML_Types.E_UML_State_Machine =>
20689            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 15;
20690
20691         when AMF.Internals.Tables.UML_Types.E_UML_Stereotype =>
20692            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 15;
20693
20694         when AMF.Internals.Tables.UML_Types.E_UML_Structured_Activity_Node =>
20695            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 15;
20696
20697         when AMF.Internals.Tables.UML_Types.E_UML_Transition =>
20698            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 15;
20699
20700         when AMF.Internals.Tables.UML_Types.E_UML_Use_Case =>
20701            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 15;
20702
20703         when others =>
20704            raise Program_Error;
20705      end case;
20706   end Internal_Get_Owned_Member;
20707
20708   ----------------------------------
20709   -- Internal_Get_Owned_Operation --
20710   ----------------------------------
20711
20712   function Internal_Get_Owned_Operation
20713    (Self : AMF.Internals.AMF_Element)
20714       return AMF.Internals.AMF_Collection_Of_Element is
20715   begin
20716      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
20717         when AMF.Internals.Tables.UML_Types.E_UML_Activity =>
20718            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 36;
20719
20720         when AMF.Internals.Tables.UML_Types.E_UML_Artifact =>
20721            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 27;
20722
20723         when AMF.Internals.Tables.UML_Types.E_UML_Association_Class =>
20724            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 36;
20725
20726         when AMF.Internals.Tables.UML_Types.E_UML_Class =>
20727            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 36;
20728
20729         when AMF.Internals.Tables.UML_Types.E_UML_Component =>
20730            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 36;
20731
20732         when AMF.Internals.Tables.UML_Types.E_UML_Data_Type =>
20733            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 25;
20734
20735         when AMF.Internals.Tables.UML_Types.E_UML_Deployment_Specification =>
20736            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 27;
20737
20738         when AMF.Internals.Tables.UML_Types.E_UML_Device =>
20739            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 36;
20740
20741         when AMF.Internals.Tables.UML_Types.E_UML_Enumeration =>
20742            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 25;
20743
20744         when AMF.Internals.Tables.UML_Types.E_UML_Execution_Environment =>
20745            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 36;
20746
20747         when AMF.Internals.Tables.UML_Types.E_UML_Function_Behavior =>
20748            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 36;
20749
20750         when AMF.Internals.Tables.UML_Types.E_UML_Interaction =>
20751            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 36;
20752
20753         when AMF.Internals.Tables.UML_Types.E_UML_Interface =>
20754            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 26;
20755
20756         when AMF.Internals.Tables.UML_Types.E_UML_Node =>
20757            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 36;
20758
20759         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Behavior =>
20760            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 36;
20761
20762         when AMF.Internals.Tables.UML_Types.E_UML_Primitive_Type =>
20763            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 25;
20764
20765         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_State_Machine =>
20766            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 36;
20767
20768         when AMF.Internals.Tables.UML_Types.E_UML_State_Machine =>
20769            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 36;
20770
20771         when AMF.Internals.Tables.UML_Types.E_UML_Stereotype =>
20772            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 36;
20773
20774         when others =>
20775            raise Program_Error;
20776      end case;
20777   end Internal_Get_Owned_Operation;
20778
20779   ----------------------------------
20780   -- Internal_Get_Owned_Parameter --
20781   ----------------------------------
20782
20783   function Internal_Get_Owned_Parameter
20784    (Self : AMF.Internals.AMF_Element)
20785       return AMF.Internals.AMF_Collection_Of_Element is
20786   begin
20787      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
20788         when AMF.Internals.Tables.UML_Types.E_UML_Activity =>
20789            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 39;
20790
20791         when AMF.Internals.Tables.UML_Types.E_UML_Function_Behavior =>
20792            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 39;
20793
20794         when AMF.Internals.Tables.UML_Types.E_UML_Interaction =>
20795            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 39;
20796
20797         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Behavior =>
20798            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 39;
20799
20800         when AMF.Internals.Tables.UML_Types.E_UML_Operation =>
20801            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
20802
20803         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_State_Machine =>
20804            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 39;
20805
20806         when AMF.Internals.Tables.UML_Types.E_UML_Reception =>
20807            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
20808
20809         when AMF.Internals.Tables.UML_Types.E_UML_Redefinable_Template_Signature =>
20810            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
20811
20812         when AMF.Internals.Tables.UML_Types.E_UML_State_Machine =>
20813            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 39;
20814
20815         when AMF.Internals.Tables.UML_Types.E_UML_Template_Signature =>
20816            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
20817
20818         when others =>
20819            raise Program_Error;
20820      end case;
20821   end Internal_Get_Owned_Parameter;
20822
20823   --------------------------------------
20824   -- Internal_Get_Owned_Parameter_Set --
20825   --------------------------------------
20826
20827   function Internal_Get_Owned_Parameter_Set
20828    (Self : AMF.Internals.AMF_Element)
20829       return AMF.Internals.AMF_Collection_Of_Element is
20830   begin
20831      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
20832         when AMF.Internals.Tables.UML_Types.E_UML_Activity =>
20833            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 40;
20834
20835         when AMF.Internals.Tables.UML_Types.E_UML_Function_Behavior =>
20836            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 40;
20837
20838         when AMF.Internals.Tables.UML_Types.E_UML_Interaction =>
20839            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 40;
20840
20841         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Behavior =>
20842            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 40;
20843
20844         when AMF.Internals.Tables.UML_Types.E_UML_Operation =>
20845            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
20846
20847         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_State_Machine =>
20848            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 40;
20849
20850         when AMF.Internals.Tables.UML_Types.E_UML_Reception =>
20851            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
20852
20853         when AMF.Internals.Tables.UML_Types.E_UML_State_Machine =>
20854            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 40;
20855
20856         when others =>
20857            raise Program_Error;
20858      end case;
20859   end Internal_Get_Owned_Parameter_Set;
20860
20861   --------------------------------------------
20862   -- Internal_Get_Owned_Parametered_Element --
20863   --------------------------------------------
20864
20865   function Internal_Get_Owned_Parametered_Element
20866    (Self : AMF.Internals.AMF_Element)
20867       return AMF.Internals.AMF_Element is
20868   begin
20869      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
20870         when AMF.Internals.Tables.UML_Types.E_UML_Classifier_Template_Parameter =>
20871            return
20872              AMF.Internals.Links.Opposite_Element
20873               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
20874
20875         when AMF.Internals.Tables.UML_Types.E_UML_Connectable_Element_Template_Parameter =>
20876            return
20877              AMF.Internals.Links.Opposite_Element
20878               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
20879
20880         when AMF.Internals.Tables.UML_Types.E_UML_Operation_Template_Parameter =>
20881            return
20882              AMF.Internals.Links.Opposite_Element
20883               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
20884
20885         when AMF.Internals.Tables.UML_Types.E_UML_Template_Parameter =>
20886            return
20887              AMF.Internals.Links.Opposite_Element
20888               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
20889
20890         when others =>
20891            raise Program_Error;
20892      end case;
20893   end Internal_Get_Owned_Parametered_Element;
20894
20895   -----------------------------
20896   -- Internal_Get_Owned_Port --
20897   -----------------------------
20898
20899   function Internal_Get_Owned_Port
20900    (Self : AMF.Internals.AMF_Element)
20901       return AMF.Internals.AMF_Collection_Of_Element is
20902   begin
20903      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
20904         when AMF.Internals.Tables.UML_Types.E_UML_Activity =>
20905            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 32;
20906
20907         when AMF.Internals.Tables.UML_Types.E_UML_Association_Class =>
20908            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 32;
20909
20910         when AMF.Internals.Tables.UML_Types.E_UML_Class =>
20911            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 32;
20912
20913         when AMF.Internals.Tables.UML_Types.E_UML_Component =>
20914            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 32;
20915
20916         when AMF.Internals.Tables.UML_Types.E_UML_Device =>
20917            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 32;
20918
20919         when AMF.Internals.Tables.UML_Types.E_UML_Execution_Environment =>
20920            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 32;
20921
20922         when AMF.Internals.Tables.UML_Types.E_UML_Function_Behavior =>
20923            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 32;
20924
20925         when AMF.Internals.Tables.UML_Types.E_UML_Interaction =>
20926            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 32;
20927
20928         when AMF.Internals.Tables.UML_Types.E_UML_Node =>
20929            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 32;
20930
20931         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Behavior =>
20932            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 32;
20933
20934         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_State_Machine =>
20935            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 32;
20936
20937         when AMF.Internals.Tables.UML_Types.E_UML_State_Machine =>
20938            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 32;
20939
20940         when AMF.Internals.Tables.UML_Types.E_UML_Stereotype =>
20941            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 32;
20942
20943         when others =>
20944            raise Program_Error;
20945      end case;
20946   end Internal_Get_Owned_Port;
20947
20948   ----------------------------------
20949   -- Internal_Get_Owned_Reception --
20950   ----------------------------------
20951
20952   function Internal_Get_Owned_Reception
20953    (Self : AMF.Internals.AMF_Element)
20954       return AMF.Internals.AMF_Collection_Of_Element is
20955   begin
20956      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
20957         when AMF.Internals.Tables.UML_Types.E_UML_Activity =>
20958            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 37;
20959
20960         when AMF.Internals.Tables.UML_Types.E_UML_Association_Class =>
20961            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 37;
20962
20963         when AMF.Internals.Tables.UML_Types.E_UML_Class =>
20964            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 37;
20965
20966         when AMF.Internals.Tables.UML_Types.E_UML_Component =>
20967            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 37;
20968
20969         when AMF.Internals.Tables.UML_Types.E_UML_Device =>
20970            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 37;
20971
20972         when AMF.Internals.Tables.UML_Types.E_UML_Execution_Environment =>
20973            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 37;
20974
20975         when AMF.Internals.Tables.UML_Types.E_UML_Function_Behavior =>
20976            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 37;
20977
20978         when AMF.Internals.Tables.UML_Types.E_UML_Interaction =>
20979            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 37;
20980
20981         when AMF.Internals.Tables.UML_Types.E_UML_Interface =>
20982            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 27;
20983
20984         when AMF.Internals.Tables.UML_Types.E_UML_Node =>
20985            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 37;
20986
20987         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Behavior =>
20988            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 37;
20989
20990         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_State_Machine =>
20991            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 37;
20992
20993         when AMF.Internals.Tables.UML_Types.E_UML_State_Machine =>
20994            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 37;
20995
20996         when AMF.Internals.Tables.UML_Types.E_UML_Stereotype =>
20997            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 37;
20998
20999         when others =>
21000            raise Program_Error;
21001      end case;
21002   end Internal_Get_Owned_Reception;
21003
21004   -----------------------------
21005   -- Internal_Get_Owned_Rule --
21006   -----------------------------
21007
21008   function Internal_Get_Owned_Rule
21009    (Self : AMF.Internals.AMF_Element)
21010       return AMF.Internals.AMF_Collection_Of_Element is
21011   begin
21012      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
21013         when AMF.Internals.Tables.UML_Types.E_UML_Activity =>
21014            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 16;
21015
21016         when AMF.Internals.Tables.UML_Types.E_UML_Actor =>
21017            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 16;
21018
21019         when AMF.Internals.Tables.UML_Types.E_UML_Artifact =>
21020            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 16;
21021
21022         when AMF.Internals.Tables.UML_Types.E_UML_Association =>
21023            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 16;
21024
21025         when AMF.Internals.Tables.UML_Types.E_UML_Association_Class =>
21026            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 16;
21027
21028         when AMF.Internals.Tables.UML_Types.E_UML_Class =>
21029            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 16;
21030
21031         when AMF.Internals.Tables.UML_Types.E_UML_Collaboration =>
21032            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 16;
21033
21034         when AMF.Internals.Tables.UML_Types.E_UML_Communication_Path =>
21035            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 16;
21036
21037         when AMF.Internals.Tables.UML_Types.E_UML_Component =>
21038            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 16;
21039
21040         when AMF.Internals.Tables.UML_Types.E_UML_Conditional_Node =>
21041            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 16;
21042
21043         when AMF.Internals.Tables.UML_Types.E_UML_Data_Type =>
21044            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 16;
21045
21046         when AMF.Internals.Tables.UML_Types.E_UML_Deployment_Specification =>
21047            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 16;
21048
21049         when AMF.Internals.Tables.UML_Types.E_UML_Device =>
21050            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 16;
21051
21052         when AMF.Internals.Tables.UML_Types.E_UML_Enumeration =>
21053            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 16;
21054
21055         when AMF.Internals.Tables.UML_Types.E_UML_Execution_Environment =>
21056            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 16;
21057
21058         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Region =>
21059            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 16;
21060
21061         when AMF.Internals.Tables.UML_Types.E_UML_Extension =>
21062            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 16;
21063
21064         when AMF.Internals.Tables.UML_Types.E_UML_Final_State =>
21065            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 16;
21066
21067         when AMF.Internals.Tables.UML_Types.E_UML_Function_Behavior =>
21068            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 16;
21069
21070         when AMF.Internals.Tables.UML_Types.E_UML_Information_Item =>
21071            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 16;
21072
21073         when AMF.Internals.Tables.UML_Types.E_UML_Interaction =>
21074            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 16;
21075
21076         when AMF.Internals.Tables.UML_Types.E_UML_Interaction_Operand =>
21077            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 16;
21078
21079         when AMF.Internals.Tables.UML_Types.E_UML_Interface =>
21080            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 16;
21081
21082         when AMF.Internals.Tables.UML_Types.E_UML_Loop_Node =>
21083            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 16;
21084
21085         when AMF.Internals.Tables.UML_Types.E_UML_Model =>
21086            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 16;
21087
21088         when AMF.Internals.Tables.UML_Types.E_UML_Node =>
21089            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 16;
21090
21091         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Behavior =>
21092            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 16;
21093
21094         when AMF.Internals.Tables.UML_Types.E_UML_Operation =>
21095            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 16;
21096
21097         when AMF.Internals.Tables.UML_Types.E_UML_Package =>
21098            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 16;
21099
21100         when AMF.Internals.Tables.UML_Types.E_UML_Primitive_Type =>
21101            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 16;
21102
21103         when AMF.Internals.Tables.UML_Types.E_UML_Profile =>
21104            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 16;
21105
21106         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_State_Machine =>
21107            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 16;
21108
21109         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_Transition =>
21110            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 16;
21111
21112         when AMF.Internals.Tables.UML_Types.E_UML_Reception =>
21113            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 16;
21114
21115         when AMF.Internals.Tables.UML_Types.E_UML_Region =>
21116            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 16;
21117
21118         when AMF.Internals.Tables.UML_Types.E_UML_Sequence_Node =>
21119            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 16;
21120
21121         when AMF.Internals.Tables.UML_Types.E_UML_Signal =>
21122            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 16;
21123
21124         when AMF.Internals.Tables.UML_Types.E_UML_State =>
21125            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 16;
21126
21127         when AMF.Internals.Tables.UML_Types.E_UML_State_Machine =>
21128            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 16;
21129
21130         when AMF.Internals.Tables.UML_Types.E_UML_Stereotype =>
21131            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 16;
21132
21133         when AMF.Internals.Tables.UML_Types.E_UML_Structured_Activity_Node =>
21134            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 16;
21135
21136         when AMF.Internals.Tables.UML_Types.E_UML_Transition =>
21137            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 16;
21138
21139         when AMF.Internals.Tables.UML_Types.E_UML_Use_Case =>
21140            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 16;
21141
21142         when others =>
21143            raise Program_Error;
21144      end case;
21145   end Internal_Get_Owned_Rule;
21146
21147   -----------------------------------
21148   -- Internal_Get_Owned_Stereotype --
21149   -----------------------------------
21150
21151   function Internal_Get_Owned_Stereotype
21152    (Self : AMF.Internals.AMF_Element)
21153       return AMF.Internals.AMF_Collection_Of_Element is
21154   begin
21155      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
21156         when AMF.Internals.Tables.UML_Types.E_UML_Model =>
21157            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
21158
21159         when AMF.Internals.Tables.UML_Types.E_UML_Package =>
21160            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
21161
21162         when AMF.Internals.Tables.UML_Types.E_UML_Profile =>
21163            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
21164
21165         when others =>
21166            raise Program_Error;
21167      end case;
21168   end Internal_Get_Owned_Stereotype;
21169
21170   -------------------------------------------
21171   -- Internal_Get_Owned_Template_Signature --
21172   -------------------------------------------
21173
21174   function Internal_Get_Owned_Template_Signature
21175    (Self : AMF.Internals.AMF_Element)
21176       return AMF.Internals.AMF_Element is
21177   begin
21178      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
21179         when AMF.Internals.Tables.UML_Types.E_UML_Activity =>
21180            return
21181              AMF.Internals.Links.Opposite_Element
21182               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Link, Self);
21183
21184         when AMF.Internals.Tables.UML_Types.E_UML_Actor =>
21185            return
21186              AMF.Internals.Links.Opposite_Element
21187               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Link, Self);
21188
21189         when AMF.Internals.Tables.UML_Types.E_UML_Artifact =>
21190            return
21191              AMF.Internals.Links.Opposite_Element
21192               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Link, Self);
21193
21194         when AMF.Internals.Tables.UML_Types.E_UML_Association =>
21195            return
21196              AMF.Internals.Links.Opposite_Element
21197               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Link, Self);
21198
21199         when AMF.Internals.Tables.UML_Types.E_UML_Association_Class =>
21200            return
21201              AMF.Internals.Links.Opposite_Element
21202               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Link, Self);
21203
21204         when AMF.Internals.Tables.UML_Types.E_UML_Class =>
21205            return
21206              AMF.Internals.Links.Opposite_Element
21207               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Link, Self);
21208
21209         when AMF.Internals.Tables.UML_Types.E_UML_Collaboration =>
21210            return
21211              AMF.Internals.Links.Opposite_Element
21212               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Link, Self);
21213
21214         when AMF.Internals.Tables.UML_Types.E_UML_Communication_Path =>
21215            return
21216              AMF.Internals.Links.Opposite_Element
21217               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Link, Self);
21218
21219         when AMF.Internals.Tables.UML_Types.E_UML_Component =>
21220            return
21221              AMF.Internals.Links.Opposite_Element
21222               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Link, Self);
21223
21224         when AMF.Internals.Tables.UML_Types.E_UML_Data_Type =>
21225            return
21226              AMF.Internals.Links.Opposite_Element
21227               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Link, Self);
21228
21229         when AMF.Internals.Tables.UML_Types.E_UML_Deployment_Specification =>
21230            return
21231              AMF.Internals.Links.Opposite_Element
21232               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Link, Self);
21233
21234         when AMF.Internals.Tables.UML_Types.E_UML_Device =>
21235            return
21236              AMF.Internals.Links.Opposite_Element
21237               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Link, Self);
21238
21239         when AMF.Internals.Tables.UML_Types.E_UML_Enumeration =>
21240            return
21241              AMF.Internals.Links.Opposite_Element
21242               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Link, Self);
21243
21244         when AMF.Internals.Tables.UML_Types.E_UML_Execution_Environment =>
21245            return
21246              AMF.Internals.Links.Opposite_Element
21247               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Link, Self);
21248
21249         when AMF.Internals.Tables.UML_Types.E_UML_Extension =>
21250            return
21251              AMF.Internals.Links.Opposite_Element
21252               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Link, Self);
21253
21254         when AMF.Internals.Tables.UML_Types.E_UML_Function_Behavior =>
21255            return
21256              AMF.Internals.Links.Opposite_Element
21257               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Link, Self);
21258
21259         when AMF.Internals.Tables.UML_Types.E_UML_Information_Item =>
21260            return
21261              AMF.Internals.Links.Opposite_Element
21262               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Link, Self);
21263
21264         when AMF.Internals.Tables.UML_Types.E_UML_Interaction =>
21265            return
21266              AMF.Internals.Links.Opposite_Element
21267               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Link, Self);
21268
21269         when AMF.Internals.Tables.UML_Types.E_UML_Interface =>
21270            return
21271              AMF.Internals.Links.Opposite_Element
21272               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Link, Self);
21273
21274         when AMF.Internals.Tables.UML_Types.E_UML_Model =>
21275            return
21276              AMF.Internals.Links.Opposite_Element
21277               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
21278
21279         when AMF.Internals.Tables.UML_Types.E_UML_Node =>
21280            return
21281              AMF.Internals.Links.Opposite_Element
21282               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Link, Self);
21283
21284         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Behavior =>
21285            return
21286              AMF.Internals.Links.Opposite_Element
21287               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Link, Self);
21288
21289         when AMF.Internals.Tables.UML_Types.E_UML_Operation =>
21290            return
21291              AMF.Internals.Links.Opposite_Element
21292               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
21293
21294         when AMF.Internals.Tables.UML_Types.E_UML_Package =>
21295            return
21296              AMF.Internals.Links.Opposite_Element
21297               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
21298
21299         when AMF.Internals.Tables.UML_Types.E_UML_Primitive_Type =>
21300            return
21301              AMF.Internals.Links.Opposite_Element
21302               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Link, Self);
21303
21304         when AMF.Internals.Tables.UML_Types.E_UML_Profile =>
21305            return
21306              AMF.Internals.Links.Opposite_Element
21307               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
21308
21309         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_State_Machine =>
21310            return
21311              AMF.Internals.Links.Opposite_Element
21312               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Link, Self);
21313
21314         when AMF.Internals.Tables.UML_Types.E_UML_Signal =>
21315            return
21316              AMF.Internals.Links.Opposite_Element
21317               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Link, Self);
21318
21319         when AMF.Internals.Tables.UML_Types.E_UML_State_Machine =>
21320            return
21321              AMF.Internals.Links.Opposite_Element
21322               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Link, Self);
21323
21324         when AMF.Internals.Tables.UML_Types.E_UML_Stereotype =>
21325            return
21326              AMF.Internals.Links.Opposite_Element
21327               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Link, Self);
21328
21329         when AMF.Internals.Tables.UML_Types.E_UML_String_Expression =>
21330            return
21331              AMF.Internals.Links.Opposite_Element
21332               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
21333
21334         when AMF.Internals.Tables.UML_Types.E_UML_Use_Case =>
21335            return
21336              AMF.Internals.Links.Opposite_Element
21337               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Link, Self);
21338
21339         when others =>
21340            raise Program_Error;
21341      end case;
21342   end Internal_Get_Owned_Template_Signature;
21343
21344   -----------------------------
21345   -- Internal_Get_Owned_Type --
21346   -----------------------------
21347
21348   function Internal_Get_Owned_Type
21349    (Self : AMF.Internals.AMF_Element)
21350       return AMF.Internals.AMF_Collection_Of_Element is
21351   begin
21352      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
21353         when AMF.Internals.Tables.UML_Types.E_UML_Model =>
21354            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
21355
21356         when AMF.Internals.Tables.UML_Types.E_UML_Package =>
21357            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
21358
21359         when AMF.Internals.Tables.UML_Types.E_UML_Profile =>
21360            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
21361
21362         when others =>
21363            raise Program_Error;
21364      end case;
21365   end Internal_Get_Owned_Type;
21366
21367   ---------------------------------
21368   -- Internal_Get_Owned_Use_Case --
21369   ---------------------------------
21370
21371   function Internal_Get_Owned_Use_Case
21372    (Self : AMF.Internals.AMF_Element)
21373       return AMF.Internals.AMF_Collection_Of_Element is
21374   begin
21375      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
21376         when AMF.Internals.Tables.UML_Types.E_UML_Activity =>
21377            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 19;
21378
21379         when AMF.Internals.Tables.UML_Types.E_UML_Actor =>
21380            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 19;
21381
21382         when AMF.Internals.Tables.UML_Types.E_UML_Artifact =>
21383            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 19;
21384
21385         when AMF.Internals.Tables.UML_Types.E_UML_Association =>
21386            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 19;
21387
21388         when AMF.Internals.Tables.UML_Types.E_UML_Association_Class =>
21389            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 19;
21390
21391         when AMF.Internals.Tables.UML_Types.E_UML_Class =>
21392            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 19;
21393
21394         when AMF.Internals.Tables.UML_Types.E_UML_Collaboration =>
21395            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 19;
21396
21397         when AMF.Internals.Tables.UML_Types.E_UML_Communication_Path =>
21398            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 19;
21399
21400         when AMF.Internals.Tables.UML_Types.E_UML_Component =>
21401            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 19;
21402
21403         when AMF.Internals.Tables.UML_Types.E_UML_Data_Type =>
21404            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 19;
21405
21406         when AMF.Internals.Tables.UML_Types.E_UML_Deployment_Specification =>
21407            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 19;
21408
21409         when AMF.Internals.Tables.UML_Types.E_UML_Device =>
21410            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 19;
21411
21412         when AMF.Internals.Tables.UML_Types.E_UML_Enumeration =>
21413            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 19;
21414
21415         when AMF.Internals.Tables.UML_Types.E_UML_Execution_Environment =>
21416            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 19;
21417
21418         when AMF.Internals.Tables.UML_Types.E_UML_Extension =>
21419            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 19;
21420
21421         when AMF.Internals.Tables.UML_Types.E_UML_Function_Behavior =>
21422            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 19;
21423
21424         when AMF.Internals.Tables.UML_Types.E_UML_Information_Item =>
21425            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 19;
21426
21427         when AMF.Internals.Tables.UML_Types.E_UML_Interaction =>
21428            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 19;
21429
21430         when AMF.Internals.Tables.UML_Types.E_UML_Interface =>
21431            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 19;
21432
21433         when AMF.Internals.Tables.UML_Types.E_UML_Node =>
21434            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 19;
21435
21436         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Behavior =>
21437            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 19;
21438
21439         when AMF.Internals.Tables.UML_Types.E_UML_Primitive_Type =>
21440            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 19;
21441
21442         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_State_Machine =>
21443            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 19;
21444
21445         when AMF.Internals.Tables.UML_Types.E_UML_Signal =>
21446            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 19;
21447
21448         when AMF.Internals.Tables.UML_Types.E_UML_State_Machine =>
21449            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 19;
21450
21451         when AMF.Internals.Tables.UML_Types.E_UML_Stereotype =>
21452            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 19;
21453
21454         when AMF.Internals.Tables.UML_Types.E_UML_Use_Case =>
21455            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 19;
21456
21457         when others =>
21458            raise Program_Error;
21459      end case;
21460   end Internal_Get_Owned_Use_Case;
21461
21462   ------------------------
21463   -- Internal_Get_Owner --
21464   ------------------------
21465
21466   function Internal_Get_Owner
21467    (Self : AMF.Internals.AMF_Element)
21468       return AMF.Internals.AMF_Element is
21469   begin
21470      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
21471         when AMF.Internals.Tables.UML_Types.E_UML_Abstraction =>
21472            return
21473              AMF.Internals.Links.Opposite_Element
21474               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21475
21476         when AMF.Internals.Tables.UML_Types.E_UML_Accept_Call_Action =>
21477            return
21478              AMF.Internals.Links.Opposite_Element
21479               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21480
21481         when AMF.Internals.Tables.UML_Types.E_UML_Accept_Event_Action =>
21482            return
21483              AMF.Internals.Links.Opposite_Element
21484               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21485
21486         when AMF.Internals.Tables.UML_Types.E_UML_Action_Execution_Specification =>
21487            return
21488              AMF.Internals.Links.Opposite_Element
21489               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21490
21491         when AMF.Internals.Tables.UML_Types.E_UML_Action_Input_Pin =>
21492            return
21493              AMF.Internals.Links.Opposite_Element
21494               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21495
21496         when AMF.Internals.Tables.UML_Types.E_UML_Activity =>
21497            return
21498              AMF.Internals.Links.Opposite_Element
21499               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21500
21501         when AMF.Internals.Tables.UML_Types.E_UML_Activity_Final_Node =>
21502            return
21503              AMF.Internals.Links.Opposite_Element
21504               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21505
21506         when AMF.Internals.Tables.UML_Types.E_UML_Activity_Parameter_Node =>
21507            return
21508              AMF.Internals.Links.Opposite_Element
21509               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21510
21511         when AMF.Internals.Tables.UML_Types.E_UML_Activity_Partition =>
21512            return
21513              AMF.Internals.Links.Opposite_Element
21514               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21515
21516         when AMF.Internals.Tables.UML_Types.E_UML_Actor =>
21517            return
21518              AMF.Internals.Links.Opposite_Element
21519               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21520
21521         when AMF.Internals.Tables.UML_Types.E_UML_Add_Structural_Feature_Value_Action =>
21522            return
21523              AMF.Internals.Links.Opposite_Element
21524               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21525
21526         when AMF.Internals.Tables.UML_Types.E_UML_Add_Variable_Value_Action =>
21527            return
21528              AMF.Internals.Links.Opposite_Element
21529               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21530
21531         when AMF.Internals.Tables.UML_Types.E_UML_Any_Receive_Event =>
21532            return
21533              AMF.Internals.Links.Opposite_Element
21534               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21535
21536         when AMF.Internals.Tables.UML_Types.E_UML_Artifact =>
21537            return
21538              AMF.Internals.Links.Opposite_Element
21539               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21540
21541         when AMF.Internals.Tables.UML_Types.E_UML_Association =>
21542            return
21543              AMF.Internals.Links.Opposite_Element
21544               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21545
21546         when AMF.Internals.Tables.UML_Types.E_UML_Association_Class =>
21547            return
21548              AMF.Internals.Links.Opposite_Element
21549               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21550
21551         when AMF.Internals.Tables.UML_Types.E_UML_Behavior_Execution_Specification =>
21552            return
21553              AMF.Internals.Links.Opposite_Element
21554               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21555
21556         when AMF.Internals.Tables.UML_Types.E_UML_Broadcast_Signal_Action =>
21557            return
21558              AMF.Internals.Links.Opposite_Element
21559               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21560
21561         when AMF.Internals.Tables.UML_Types.E_UML_Call_Behavior_Action =>
21562            return
21563              AMF.Internals.Links.Opposite_Element
21564               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21565
21566         when AMF.Internals.Tables.UML_Types.E_UML_Call_Event =>
21567            return
21568              AMF.Internals.Links.Opposite_Element
21569               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21570
21571         when AMF.Internals.Tables.UML_Types.E_UML_Call_Operation_Action =>
21572            return
21573              AMF.Internals.Links.Opposite_Element
21574               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21575
21576         when AMF.Internals.Tables.UML_Types.E_UML_Central_Buffer_Node =>
21577            return
21578              AMF.Internals.Links.Opposite_Element
21579               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21580
21581         when AMF.Internals.Tables.UML_Types.E_UML_Change_Event =>
21582            return
21583              AMF.Internals.Links.Opposite_Element
21584               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21585
21586         when AMF.Internals.Tables.UML_Types.E_UML_Class =>
21587            return
21588              AMF.Internals.Links.Opposite_Element
21589               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21590
21591         when AMF.Internals.Tables.UML_Types.E_UML_Classifier_Template_Parameter =>
21592            return
21593              AMF.Internals.Links.Opposite_Element
21594               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21595
21596         when AMF.Internals.Tables.UML_Types.E_UML_Clause =>
21597            return
21598              AMF.Internals.Links.Opposite_Element
21599               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21600
21601         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Association_Action =>
21602            return
21603              AMF.Internals.Links.Opposite_Element
21604               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21605
21606         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Structural_Feature_Action =>
21607            return
21608              AMF.Internals.Links.Opposite_Element
21609               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21610
21611         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Variable_Action =>
21612            return
21613              AMF.Internals.Links.Opposite_Element
21614               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21615
21616         when AMF.Internals.Tables.UML_Types.E_UML_Collaboration =>
21617            return
21618              AMF.Internals.Links.Opposite_Element
21619               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21620
21621         when AMF.Internals.Tables.UML_Types.E_UML_Collaboration_Use =>
21622            return
21623              AMF.Internals.Links.Opposite_Element
21624               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21625
21626         when AMF.Internals.Tables.UML_Types.E_UML_Combined_Fragment =>
21627            return
21628              AMF.Internals.Links.Opposite_Element
21629               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21630
21631         when AMF.Internals.Tables.UML_Types.E_UML_Comment =>
21632            return
21633              AMF.Internals.Links.Opposite_Element
21634               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21635
21636         when AMF.Internals.Tables.UML_Types.E_UML_Communication_Path =>
21637            return
21638              AMF.Internals.Links.Opposite_Element
21639               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21640
21641         when AMF.Internals.Tables.UML_Types.E_UML_Component =>
21642            return
21643              AMF.Internals.Links.Opposite_Element
21644               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21645
21646         when AMF.Internals.Tables.UML_Types.E_UML_Component_Realization =>
21647            return
21648              AMF.Internals.Links.Opposite_Element
21649               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21650
21651         when AMF.Internals.Tables.UML_Types.E_UML_Conditional_Node =>
21652            return
21653              AMF.Internals.Links.Opposite_Element
21654               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21655
21656         when AMF.Internals.Tables.UML_Types.E_UML_Connectable_Element_Template_Parameter =>
21657            return
21658              AMF.Internals.Links.Opposite_Element
21659               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21660
21661         when AMF.Internals.Tables.UML_Types.E_UML_Connection_Point_Reference =>
21662            return
21663              AMF.Internals.Links.Opposite_Element
21664               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21665
21666         when AMF.Internals.Tables.UML_Types.E_UML_Connector =>
21667            return
21668              AMF.Internals.Links.Opposite_Element
21669               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21670
21671         when AMF.Internals.Tables.UML_Types.E_UML_Connector_End =>
21672            return
21673              AMF.Internals.Links.Opposite_Element
21674               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21675
21676         when AMF.Internals.Tables.UML_Types.E_UML_Consider_Ignore_Fragment =>
21677            return
21678              AMF.Internals.Links.Opposite_Element
21679               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21680
21681         when AMF.Internals.Tables.UML_Types.E_UML_Constraint =>
21682            return
21683              AMF.Internals.Links.Opposite_Element
21684               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21685
21686         when AMF.Internals.Tables.UML_Types.E_UML_Continuation =>
21687            return
21688              AMF.Internals.Links.Opposite_Element
21689               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21690
21691         when AMF.Internals.Tables.UML_Types.E_UML_Control_Flow =>
21692            return
21693              AMF.Internals.Links.Opposite_Element
21694               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21695
21696         when AMF.Internals.Tables.UML_Types.E_UML_Create_Link_Action =>
21697            return
21698              AMF.Internals.Links.Opposite_Element
21699               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21700
21701         when AMF.Internals.Tables.UML_Types.E_UML_Create_Link_Object_Action =>
21702            return
21703              AMF.Internals.Links.Opposite_Element
21704               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21705
21706         when AMF.Internals.Tables.UML_Types.E_UML_Create_Object_Action =>
21707            return
21708              AMF.Internals.Links.Opposite_Element
21709               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21710
21711         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Activity_Diagram =>
21712            return
21713              AMF.Internals.Links.Opposite_Element
21714               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21715
21716         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Class_Diagram =>
21717            return
21718              AMF.Internals.Links.Opposite_Element
21719               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21720
21721         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Component_Diagram =>
21722            return
21723              AMF.Internals.Links.Opposite_Element
21724               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21725
21726         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Composite_Structure_Diagram =>
21727            return
21728              AMF.Internals.Links.Opposite_Element
21729               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21730
21731         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Deployment_Diagram =>
21732            return
21733              AMF.Internals.Links.Opposite_Element
21734               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21735
21736         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Interaction_Diagram =>
21737            return
21738              AMF.Internals.Links.Opposite_Element
21739               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21740
21741         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Object_Diagram =>
21742            return
21743              AMF.Internals.Links.Opposite_Element
21744               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21745
21746         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Package_Diagram =>
21747            return
21748              AMF.Internals.Links.Opposite_Element
21749               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21750
21751         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Profile_Diagram =>
21752            return
21753              AMF.Internals.Links.Opposite_Element
21754               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21755
21756         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_State_Machine_Diagram =>
21757            return
21758              AMF.Internals.Links.Opposite_Element
21759               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21760
21761         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Style =>
21762            return
21763              AMF.Internals.Links.Opposite_Element
21764               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21765
21766         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Use_Case_Diagram =>
21767            return
21768              AMF.Internals.Links.Opposite_Element
21769               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21770
21771         when AMF.Internals.Tables.UML_Types.E_UML_Data_Store_Node =>
21772            return
21773              AMF.Internals.Links.Opposite_Element
21774               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21775
21776         when AMF.Internals.Tables.UML_Types.E_UML_Data_Type =>
21777            return
21778              AMF.Internals.Links.Opposite_Element
21779               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21780
21781         when AMF.Internals.Tables.UML_Types.E_UML_Decision_Node =>
21782            return
21783              AMF.Internals.Links.Opposite_Element
21784               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21785
21786         when AMF.Internals.Tables.UML_Types.E_UML_Dependency =>
21787            return
21788              AMF.Internals.Links.Opposite_Element
21789               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21790
21791         when AMF.Internals.Tables.UML_Types.E_UML_Deployment =>
21792            return
21793              AMF.Internals.Links.Opposite_Element
21794               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21795
21796         when AMF.Internals.Tables.UML_Types.E_UML_Deployment_Specification =>
21797            return
21798              AMF.Internals.Links.Opposite_Element
21799               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21800
21801         when AMF.Internals.Tables.UML_Types.E_UML_Destroy_Link_Action =>
21802            return
21803              AMF.Internals.Links.Opposite_Element
21804               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21805
21806         when AMF.Internals.Tables.UML_Types.E_UML_Destroy_Object_Action =>
21807            return
21808              AMF.Internals.Links.Opposite_Element
21809               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21810
21811         when AMF.Internals.Tables.UML_Types.E_UML_Destruction_Occurrence_Specification =>
21812            return
21813              AMF.Internals.Links.Opposite_Element
21814               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21815
21816         when AMF.Internals.Tables.UML_Types.E_UML_Device =>
21817            return
21818              AMF.Internals.Links.Opposite_Element
21819               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21820
21821         when AMF.Internals.Tables.UML_Types.E_UML_Duration =>
21822            return
21823              AMF.Internals.Links.Opposite_Element
21824               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21825
21826         when AMF.Internals.Tables.UML_Types.E_UML_Duration_Constraint =>
21827            return
21828              AMF.Internals.Links.Opposite_Element
21829               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21830
21831         when AMF.Internals.Tables.UML_Types.E_UML_Duration_Interval =>
21832            return
21833              AMF.Internals.Links.Opposite_Element
21834               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21835
21836         when AMF.Internals.Tables.UML_Types.E_UML_Duration_Observation =>
21837            return
21838              AMF.Internals.Links.Opposite_Element
21839               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21840
21841         when AMF.Internals.Tables.UML_Types.E_UML_Element_Import =>
21842            return
21843              AMF.Internals.Links.Opposite_Element
21844               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21845
21846         when AMF.Internals.Tables.UML_Types.E_UML_Enumeration =>
21847            return
21848              AMF.Internals.Links.Opposite_Element
21849               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21850
21851         when AMF.Internals.Tables.UML_Types.E_UML_Enumeration_Literal =>
21852            return
21853              AMF.Internals.Links.Opposite_Element
21854               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21855
21856         when AMF.Internals.Tables.UML_Types.E_UML_Exception_Handler =>
21857            return
21858              AMF.Internals.Links.Opposite_Element
21859               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21860
21861         when AMF.Internals.Tables.UML_Types.E_UML_Execution_Environment =>
21862            return
21863              AMF.Internals.Links.Opposite_Element
21864               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21865
21866         when AMF.Internals.Tables.UML_Types.E_UML_Execution_Occurrence_Specification =>
21867            return
21868              AMF.Internals.Links.Opposite_Element
21869               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21870
21871         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Node =>
21872            return
21873              AMF.Internals.Links.Opposite_Element
21874               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21875
21876         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Region =>
21877            return
21878              AMF.Internals.Links.Opposite_Element
21879               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21880
21881         when AMF.Internals.Tables.UML_Types.E_UML_Expression =>
21882            return
21883              AMF.Internals.Links.Opposite_Element
21884               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21885
21886         when AMF.Internals.Tables.UML_Types.E_UML_Extend =>
21887            return
21888              AMF.Internals.Links.Opposite_Element
21889               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21890
21891         when AMF.Internals.Tables.UML_Types.E_UML_Extension =>
21892            return
21893              AMF.Internals.Links.Opposite_Element
21894               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21895
21896         when AMF.Internals.Tables.UML_Types.E_UML_Extension_End =>
21897            return
21898              AMF.Internals.Links.Opposite_Element
21899               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21900
21901         when AMF.Internals.Tables.UML_Types.E_UML_Extension_Point =>
21902            return
21903              AMF.Internals.Links.Opposite_Element
21904               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21905
21906         when AMF.Internals.Tables.UML_Types.E_UML_Final_State =>
21907            return
21908              AMF.Internals.Links.Opposite_Element
21909               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21910
21911         when AMF.Internals.Tables.UML_Types.E_UML_Flow_Final_Node =>
21912            return
21913              AMF.Internals.Links.Opposite_Element
21914               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21915
21916         when AMF.Internals.Tables.UML_Types.E_UML_Fork_Node =>
21917            return
21918              AMF.Internals.Links.Opposite_Element
21919               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21920
21921         when AMF.Internals.Tables.UML_Types.E_UML_Function_Behavior =>
21922            return
21923              AMF.Internals.Links.Opposite_Element
21924               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21925
21926         when AMF.Internals.Tables.UML_Types.E_UML_Gate =>
21927            return
21928              AMF.Internals.Links.Opposite_Element
21929               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21930
21931         when AMF.Internals.Tables.UML_Types.E_UML_General_Ordering =>
21932            return
21933              AMF.Internals.Links.Opposite_Element
21934               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21935
21936         when AMF.Internals.Tables.UML_Types.E_UML_Generalization =>
21937            return
21938              AMF.Internals.Links.Opposite_Element
21939               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21940
21941         when AMF.Internals.Tables.UML_Types.E_UML_Generalization_Set =>
21942            return
21943              AMF.Internals.Links.Opposite_Element
21944               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21945
21946         when AMF.Internals.Tables.UML_Types.E_UML_Image =>
21947            return
21948              AMF.Internals.Links.Opposite_Element
21949               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21950
21951         when AMF.Internals.Tables.UML_Types.E_UML_Include =>
21952            return
21953              AMF.Internals.Links.Opposite_Element
21954               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21955
21956         when AMF.Internals.Tables.UML_Types.E_UML_Information_Flow =>
21957            return
21958              AMF.Internals.Links.Opposite_Element
21959               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21960
21961         when AMF.Internals.Tables.UML_Types.E_UML_Information_Item =>
21962            return
21963              AMF.Internals.Links.Opposite_Element
21964               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21965
21966         when AMF.Internals.Tables.UML_Types.E_UML_Initial_Node =>
21967            return
21968              AMF.Internals.Links.Opposite_Element
21969               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21970
21971         when AMF.Internals.Tables.UML_Types.E_UML_Input_Pin =>
21972            return
21973              AMF.Internals.Links.Opposite_Element
21974               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21975
21976         when AMF.Internals.Tables.UML_Types.E_UML_Instance_Specification =>
21977            return
21978              AMF.Internals.Links.Opposite_Element
21979               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21980
21981         when AMF.Internals.Tables.UML_Types.E_UML_Instance_Value =>
21982            return
21983              AMF.Internals.Links.Opposite_Element
21984               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21985
21986         when AMF.Internals.Tables.UML_Types.E_UML_Interaction =>
21987            return
21988              AMF.Internals.Links.Opposite_Element
21989               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21990
21991         when AMF.Internals.Tables.UML_Types.E_UML_Interaction_Constraint =>
21992            return
21993              AMF.Internals.Links.Opposite_Element
21994               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
21995
21996         when AMF.Internals.Tables.UML_Types.E_UML_Interaction_Operand =>
21997            return
21998              AMF.Internals.Links.Opposite_Element
21999               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22000
22001         when AMF.Internals.Tables.UML_Types.E_UML_Interaction_Use =>
22002            return
22003              AMF.Internals.Links.Opposite_Element
22004               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22005
22006         when AMF.Internals.Tables.UML_Types.E_UML_Interface =>
22007            return
22008              AMF.Internals.Links.Opposite_Element
22009               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22010
22011         when AMF.Internals.Tables.UML_Types.E_UML_Interface_Realization =>
22012            return
22013              AMF.Internals.Links.Opposite_Element
22014               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22015
22016         when AMF.Internals.Tables.UML_Types.E_UML_Interruptible_Activity_Region =>
22017            return
22018              AMF.Internals.Links.Opposite_Element
22019               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22020
22021         when AMF.Internals.Tables.UML_Types.E_UML_Interval =>
22022            return
22023              AMF.Internals.Links.Opposite_Element
22024               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22025
22026         when AMF.Internals.Tables.UML_Types.E_UML_Interval_Constraint =>
22027            return
22028              AMF.Internals.Links.Opposite_Element
22029               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22030
22031         when AMF.Internals.Tables.UML_Types.E_UML_Join_Node =>
22032            return
22033              AMF.Internals.Links.Opposite_Element
22034               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22035
22036         when AMF.Internals.Tables.UML_Types.E_UML_Lifeline =>
22037            return
22038              AMF.Internals.Links.Opposite_Element
22039               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22040
22041         when AMF.Internals.Tables.UML_Types.E_UML_Link_End_Creation_Data =>
22042            return
22043              AMF.Internals.Links.Opposite_Element
22044               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22045
22046         when AMF.Internals.Tables.UML_Types.E_UML_Link_End_Data =>
22047            return
22048              AMF.Internals.Links.Opposite_Element
22049               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22050
22051         when AMF.Internals.Tables.UML_Types.E_UML_Link_End_Destruction_Data =>
22052            return
22053              AMF.Internals.Links.Opposite_Element
22054               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22055
22056         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Boolean =>
22057            return
22058              AMF.Internals.Links.Opposite_Element
22059               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22060
22061         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Integer =>
22062            return
22063              AMF.Internals.Links.Opposite_Element
22064               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22065
22066         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Null =>
22067            return
22068              AMF.Internals.Links.Opposite_Element
22069               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22070
22071         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Real =>
22072            return
22073              AMF.Internals.Links.Opposite_Element
22074               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22075
22076         when AMF.Internals.Tables.UML_Types.E_UML_Literal_String =>
22077            return
22078              AMF.Internals.Links.Opposite_Element
22079               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22080
22081         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Unlimited_Natural =>
22082            return
22083              AMF.Internals.Links.Opposite_Element
22084               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22085
22086         when AMF.Internals.Tables.UML_Types.E_UML_Loop_Node =>
22087            return
22088              AMF.Internals.Links.Opposite_Element
22089               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22090
22091         when AMF.Internals.Tables.UML_Types.E_UML_Manifestation =>
22092            return
22093              AMF.Internals.Links.Opposite_Element
22094               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22095
22096         when AMF.Internals.Tables.UML_Types.E_UML_Merge_Node =>
22097            return
22098              AMF.Internals.Links.Opposite_Element
22099               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22100
22101         when AMF.Internals.Tables.UML_Types.E_UML_Message =>
22102            return
22103              AMF.Internals.Links.Opposite_Element
22104               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22105
22106         when AMF.Internals.Tables.UML_Types.E_UML_Message_Occurrence_Specification =>
22107            return
22108              AMF.Internals.Links.Opposite_Element
22109               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22110
22111         when AMF.Internals.Tables.UML_Types.E_UML_Model =>
22112            return
22113              AMF.Internals.Links.Opposite_Element
22114               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22115
22116         when AMF.Internals.Tables.UML_Types.E_UML_Node =>
22117            return
22118              AMF.Internals.Links.Opposite_Element
22119               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22120
22121         when AMF.Internals.Tables.UML_Types.E_UML_Object_Flow =>
22122            return
22123              AMF.Internals.Links.Opposite_Element
22124               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22125
22126         when AMF.Internals.Tables.UML_Types.E_UML_Occurrence_Specification =>
22127            return
22128              AMF.Internals.Links.Opposite_Element
22129               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22130
22131         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Action =>
22132            return
22133              AMF.Internals.Links.Opposite_Element
22134               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22135
22136         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Behavior =>
22137            return
22138              AMF.Internals.Links.Opposite_Element
22139               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22140
22141         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Expression =>
22142            return
22143              AMF.Internals.Links.Opposite_Element
22144               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22145
22146         when AMF.Internals.Tables.UML_Types.E_UML_Operation =>
22147            return
22148              AMF.Internals.Links.Opposite_Element
22149               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22150
22151         when AMF.Internals.Tables.UML_Types.E_UML_Operation_Template_Parameter =>
22152            return
22153              AMF.Internals.Links.Opposite_Element
22154               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22155
22156         when AMF.Internals.Tables.UML_Types.E_UML_Output_Pin =>
22157            return
22158              AMF.Internals.Links.Opposite_Element
22159               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22160
22161         when AMF.Internals.Tables.UML_Types.E_UML_Package =>
22162            return
22163              AMF.Internals.Links.Opposite_Element
22164               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22165
22166         when AMF.Internals.Tables.UML_Types.E_UML_Package_Import =>
22167            return
22168              AMF.Internals.Links.Opposite_Element
22169               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22170
22171         when AMF.Internals.Tables.UML_Types.E_UML_Package_Merge =>
22172            return
22173              AMF.Internals.Links.Opposite_Element
22174               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22175
22176         when AMF.Internals.Tables.UML_Types.E_UML_Parameter =>
22177            return
22178              AMF.Internals.Links.Opposite_Element
22179               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22180
22181         when AMF.Internals.Tables.UML_Types.E_UML_Parameter_Set =>
22182            return
22183              AMF.Internals.Links.Opposite_Element
22184               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22185
22186         when AMF.Internals.Tables.UML_Types.E_UML_Part_Decomposition =>
22187            return
22188              AMF.Internals.Links.Opposite_Element
22189               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22190
22191         when AMF.Internals.Tables.UML_Types.E_UML_Port =>
22192            return
22193              AMF.Internals.Links.Opposite_Element
22194               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22195
22196         when AMF.Internals.Tables.UML_Types.E_UML_Primitive_Type =>
22197            return
22198              AMF.Internals.Links.Opposite_Element
22199               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22200
22201         when AMF.Internals.Tables.UML_Types.E_UML_Profile =>
22202            return
22203              AMF.Internals.Links.Opposite_Element
22204               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22205
22206         when AMF.Internals.Tables.UML_Types.E_UML_Profile_Application =>
22207            return
22208              AMF.Internals.Links.Opposite_Element
22209               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22210
22211         when AMF.Internals.Tables.UML_Types.E_UML_Property =>
22212            return
22213              AMF.Internals.Links.Opposite_Element
22214               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22215
22216         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_Conformance =>
22217            return
22218              AMF.Internals.Links.Opposite_Element
22219               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22220
22221         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_State_Machine =>
22222            return
22223              AMF.Internals.Links.Opposite_Element
22224               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22225
22226         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_Transition =>
22227            return
22228              AMF.Internals.Links.Opposite_Element
22229               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22230
22231         when AMF.Internals.Tables.UML_Types.E_UML_Pseudostate =>
22232            return
22233              AMF.Internals.Links.Opposite_Element
22234               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22235
22236         when AMF.Internals.Tables.UML_Types.E_UML_Qualifier_Value =>
22237            return
22238              AMF.Internals.Links.Opposite_Element
22239               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22240
22241         when AMF.Internals.Tables.UML_Types.E_UML_Raise_Exception_Action =>
22242            return
22243              AMF.Internals.Links.Opposite_Element
22244               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22245
22246         when AMF.Internals.Tables.UML_Types.E_UML_Read_Extent_Action =>
22247            return
22248              AMF.Internals.Links.Opposite_Element
22249               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22250
22251         when AMF.Internals.Tables.UML_Types.E_UML_Read_Is_Classified_Object_Action =>
22252            return
22253              AMF.Internals.Links.Opposite_Element
22254               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22255
22256         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Action =>
22257            return
22258              AMF.Internals.Links.Opposite_Element
22259               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22260
22261         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Object_End_Action =>
22262            return
22263              AMF.Internals.Links.Opposite_Element
22264               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22265
22266         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Object_End_Qualifier_Action =>
22267            return
22268              AMF.Internals.Links.Opposite_Element
22269               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22270
22271         when AMF.Internals.Tables.UML_Types.E_UML_Read_Self_Action =>
22272            return
22273              AMF.Internals.Links.Opposite_Element
22274               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22275
22276         when AMF.Internals.Tables.UML_Types.E_UML_Read_Structural_Feature_Action =>
22277            return
22278              AMF.Internals.Links.Opposite_Element
22279               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22280
22281         when AMF.Internals.Tables.UML_Types.E_UML_Read_Variable_Action =>
22282            return
22283              AMF.Internals.Links.Opposite_Element
22284               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22285
22286         when AMF.Internals.Tables.UML_Types.E_UML_Realization =>
22287            return
22288              AMF.Internals.Links.Opposite_Element
22289               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22290
22291         when AMF.Internals.Tables.UML_Types.E_UML_Reception =>
22292            return
22293              AMF.Internals.Links.Opposite_Element
22294               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22295
22296         when AMF.Internals.Tables.UML_Types.E_UML_Reclassify_Object_Action =>
22297            return
22298              AMF.Internals.Links.Opposite_Element
22299               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22300
22301         when AMF.Internals.Tables.UML_Types.E_UML_Redefinable_Template_Signature =>
22302            return
22303              AMF.Internals.Links.Opposite_Element
22304               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22305
22306         when AMF.Internals.Tables.UML_Types.E_UML_Reduce_Action =>
22307            return
22308              AMF.Internals.Links.Opposite_Element
22309               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22310
22311         when AMF.Internals.Tables.UML_Types.E_UML_Region =>
22312            return
22313              AMF.Internals.Links.Opposite_Element
22314               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22315
22316         when AMF.Internals.Tables.UML_Types.E_UML_Remove_Structural_Feature_Value_Action =>
22317            return
22318              AMF.Internals.Links.Opposite_Element
22319               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22320
22321         when AMF.Internals.Tables.UML_Types.E_UML_Remove_Variable_Value_Action =>
22322            return
22323              AMF.Internals.Links.Opposite_Element
22324               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22325
22326         when AMF.Internals.Tables.UML_Types.E_UML_Reply_Action =>
22327            return
22328              AMF.Internals.Links.Opposite_Element
22329               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22330
22331         when AMF.Internals.Tables.UML_Types.E_UML_Send_Object_Action =>
22332            return
22333              AMF.Internals.Links.Opposite_Element
22334               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22335
22336         when AMF.Internals.Tables.UML_Types.E_UML_Send_Signal_Action =>
22337            return
22338              AMF.Internals.Links.Opposite_Element
22339               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22340
22341         when AMF.Internals.Tables.UML_Types.E_UML_Sequence_Node =>
22342            return
22343              AMF.Internals.Links.Opposite_Element
22344               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22345
22346         when AMF.Internals.Tables.UML_Types.E_UML_Signal =>
22347            return
22348              AMF.Internals.Links.Opposite_Element
22349               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22350
22351         when AMF.Internals.Tables.UML_Types.E_UML_Signal_Event =>
22352            return
22353              AMF.Internals.Links.Opposite_Element
22354               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22355
22356         when AMF.Internals.Tables.UML_Types.E_UML_Slot =>
22357            return
22358              AMF.Internals.Links.Opposite_Element
22359               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22360
22361         when AMF.Internals.Tables.UML_Types.E_UML_Start_Classifier_Behavior_Action =>
22362            return
22363              AMF.Internals.Links.Opposite_Element
22364               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22365
22366         when AMF.Internals.Tables.UML_Types.E_UML_Start_Object_Behavior_Action =>
22367            return
22368              AMF.Internals.Links.Opposite_Element
22369               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22370
22371         when AMF.Internals.Tables.UML_Types.E_UML_State =>
22372            return
22373              AMF.Internals.Links.Opposite_Element
22374               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22375
22376         when AMF.Internals.Tables.UML_Types.E_UML_State_Invariant =>
22377            return
22378              AMF.Internals.Links.Opposite_Element
22379               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22380
22381         when AMF.Internals.Tables.UML_Types.E_UML_State_Machine =>
22382            return
22383              AMF.Internals.Links.Opposite_Element
22384               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22385
22386         when AMF.Internals.Tables.UML_Types.E_UML_Stereotype =>
22387            return
22388              AMF.Internals.Links.Opposite_Element
22389               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22390
22391         when AMF.Internals.Tables.UML_Types.E_UML_String_Expression =>
22392            return
22393              AMF.Internals.Links.Opposite_Element
22394               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22395
22396         when AMF.Internals.Tables.UML_Types.E_UML_Structured_Activity_Node =>
22397            return
22398              AMF.Internals.Links.Opposite_Element
22399               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22400
22401         when AMF.Internals.Tables.UML_Types.E_UML_Substitution =>
22402            return
22403              AMF.Internals.Links.Opposite_Element
22404               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22405
22406         when AMF.Internals.Tables.UML_Types.E_UML_Template_Binding =>
22407            return
22408              AMF.Internals.Links.Opposite_Element
22409               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22410
22411         when AMF.Internals.Tables.UML_Types.E_UML_Template_Parameter =>
22412            return
22413              AMF.Internals.Links.Opposite_Element
22414               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22415
22416         when AMF.Internals.Tables.UML_Types.E_UML_Template_Parameter_Substitution =>
22417            return
22418              AMF.Internals.Links.Opposite_Element
22419               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22420
22421         when AMF.Internals.Tables.UML_Types.E_UML_Template_Signature =>
22422            return
22423              AMF.Internals.Links.Opposite_Element
22424               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22425
22426         when AMF.Internals.Tables.UML_Types.E_UML_Test_Identity_Action =>
22427            return
22428              AMF.Internals.Links.Opposite_Element
22429               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22430
22431         when AMF.Internals.Tables.UML_Types.E_UML_Time_Constraint =>
22432            return
22433              AMF.Internals.Links.Opposite_Element
22434               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22435
22436         when AMF.Internals.Tables.UML_Types.E_UML_Time_Event =>
22437            return
22438              AMF.Internals.Links.Opposite_Element
22439               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22440
22441         when AMF.Internals.Tables.UML_Types.E_UML_Time_Expression =>
22442            return
22443              AMF.Internals.Links.Opposite_Element
22444               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22445
22446         when AMF.Internals.Tables.UML_Types.E_UML_Time_Interval =>
22447            return
22448              AMF.Internals.Links.Opposite_Element
22449               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22450
22451         when AMF.Internals.Tables.UML_Types.E_UML_Time_Observation =>
22452            return
22453              AMF.Internals.Links.Opposite_Element
22454               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22455
22456         when AMF.Internals.Tables.UML_Types.E_UML_Transition =>
22457            return
22458              AMF.Internals.Links.Opposite_Element
22459               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22460
22461         when AMF.Internals.Tables.UML_Types.E_UML_Trigger =>
22462            return
22463              AMF.Internals.Links.Opposite_Element
22464               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22465
22466         when AMF.Internals.Tables.UML_Types.E_UML_Unmarshall_Action =>
22467            return
22468              AMF.Internals.Links.Opposite_Element
22469               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22470
22471         when AMF.Internals.Tables.UML_Types.E_UML_Usage =>
22472            return
22473              AMF.Internals.Links.Opposite_Element
22474               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22475
22476         when AMF.Internals.Tables.UML_Types.E_UML_Use_Case =>
22477            return
22478              AMF.Internals.Links.Opposite_Element
22479               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22480
22481         when AMF.Internals.Tables.UML_Types.E_UML_Value_Pin =>
22482            return
22483              AMF.Internals.Links.Opposite_Element
22484               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22485
22486         when AMF.Internals.Tables.UML_Types.E_UML_Value_Specification_Action =>
22487            return
22488              AMF.Internals.Links.Opposite_Element
22489               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22490
22491         when AMF.Internals.Tables.UML_Types.E_UML_Variable =>
22492            return
22493              AMF.Internals.Links.Opposite_Element
22494               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Link, Self);
22495
22496         when others =>
22497            raise Program_Error;
22498      end case;
22499   end Internal_Get_Owner;
22500
22501   -------------------------------------
22502   -- Internal_Get_Owning_Association --
22503   -------------------------------------
22504
22505   function Internal_Get_Owning_Association
22506    (Self : AMF.Internals.AMF_Element)
22507       return AMF.Internals.AMF_Element is
22508   begin
22509      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
22510         when AMF.Internals.Tables.UML_Types.E_UML_Extension_End =>
22511            return
22512              AMF.Internals.Links.Opposite_Element
22513               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (33).Link, Self);
22514
22515         when AMF.Internals.Tables.UML_Types.E_UML_Port =>
22516            return
22517              AMF.Internals.Links.Opposite_Element
22518               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (33).Link, Self);
22519
22520         when AMF.Internals.Tables.UML_Types.E_UML_Property =>
22521            return
22522              AMF.Internals.Links.Opposite_Element
22523               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (33).Link, Self);
22524
22525         when others =>
22526            raise Program_Error;
22527      end case;
22528   end Internal_Get_Owning_Association;
22529
22530   ---------------------------------
22531   -- Internal_Get_Owning_Element --
22532   ---------------------------------
22533
22534   function Internal_Get_Owning_Element
22535    (Self : AMF.Internals.AMF_Element)
22536       return AMF.Internals.AMF_Element is
22537   begin
22538      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
22539         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Activity_Diagram =>
22540            return
22541              AMF.Internals.Links.Opposite_Element
22542               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (15).Link, Self);
22543
22544         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Association_End_Label =>
22545            return
22546              AMF.Internals.Links.Opposite_Element
22547               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (15).Link, Self);
22548
22549         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Association_Or_Connector_Or_Link_Shape =>
22550            return
22551              AMF.Internals.Links.Opposite_Element
22552               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (15).Link, Self);
22553
22554         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Class_Diagram =>
22555            return
22556              AMF.Internals.Links.Opposite_Element
22557               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (15).Link, Self);
22558
22559         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Classifier_Shape =>
22560            return
22561              AMF.Internals.Links.Opposite_Element
22562               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (15).Link, Self);
22563
22564         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Compartment =>
22565            return
22566              AMF.Internals.Links.Opposite_Element
22567               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (15).Link, Self);
22568
22569         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Compartmentable_Shape =>
22570            return
22571              AMF.Internals.Links.Opposite_Element
22572               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (15).Link, Self);
22573
22574         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Component_Diagram =>
22575            return
22576              AMF.Internals.Links.Opposite_Element
22577               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (15).Link, Self);
22578
22579         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Composite_Structure_Diagram =>
22580            return
22581              AMF.Internals.Links.Opposite_Element
22582               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (15).Link, Self);
22583
22584         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Deployment_Diagram =>
22585            return
22586              AMF.Internals.Links.Opposite_Element
22587               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (15).Link, Self);
22588
22589         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Edge =>
22590            return
22591              AMF.Internals.Links.Opposite_Element
22592               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (15).Link, Self);
22593
22594         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Interaction_Diagram =>
22595            return
22596              AMF.Internals.Links.Opposite_Element
22597               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (15).Link, Self);
22598
22599         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Interaction_Table_Label =>
22600            return
22601              AMF.Internals.Links.Opposite_Element
22602               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (15).Link, Self);
22603
22604         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Keyword_Label =>
22605            return
22606              AMF.Internals.Links.Opposite_Element
22607               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (15).Link, Self);
22608
22609         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Label =>
22610            return
22611              AMF.Internals.Links.Opposite_Element
22612               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (15).Link, Self);
22613
22614         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Multiplicity_Label =>
22615            return
22616              AMF.Internals.Links.Opposite_Element
22617               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (15).Link, Self);
22618
22619         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Name_Label =>
22620            return
22621              AMF.Internals.Links.Opposite_Element
22622               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (15).Link, Self);
22623
22624         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Object_Diagram =>
22625            return
22626              AMF.Internals.Links.Opposite_Element
22627               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (15).Link, Self);
22628
22629         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Package_Diagram =>
22630            return
22631              AMF.Internals.Links.Opposite_Element
22632               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (15).Link, Self);
22633
22634         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Profile_Diagram =>
22635            return
22636              AMF.Internals.Links.Opposite_Element
22637               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (15).Link, Self);
22638
22639         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Redefines_Label =>
22640            return
22641              AMF.Internals.Links.Opposite_Element
22642               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (15).Link, Self);
22643
22644         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Shape =>
22645            return
22646              AMF.Internals.Links.Opposite_Element
22647               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (15).Link, Self);
22648
22649         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_State_Machine_Diagram =>
22650            return
22651              AMF.Internals.Links.Opposite_Element
22652               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (15).Link, Self);
22653
22654         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_State_Shape =>
22655            return
22656              AMF.Internals.Links.Opposite_Element
22657               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (15).Link, Self);
22658
22659         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Stereotype_Property_Value_Label =>
22660            return
22661              AMF.Internals.Links.Opposite_Element
22662               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (15).Link, Self);
22663
22664         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Typed_Element_Label =>
22665            return
22666              AMF.Internals.Links.Opposite_Element
22667               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (15).Link, Self);
22668
22669         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Use_Case_Diagram =>
22670            return
22671              AMF.Internals.Links.Opposite_Element
22672               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (15).Link, Self);
22673
22674         when others =>
22675            raise Program_Error;
22676      end case;
22677   end Internal_Get_Owning_Element;
22678
22679   ------------------------------------
22680   -- Internal_Get_Owning_Expression --
22681   ------------------------------------
22682
22683   function Internal_Get_Owning_Expression
22684    (Self : AMF.Internals.AMF_Element)
22685       return AMF.Internals.AMF_Element is
22686   begin
22687      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
22688         when AMF.Internals.Tables.UML_Types.E_UML_String_Expression =>
22689            return
22690              AMF.Internals.Links.Opposite_Element
22691               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Link, Self);
22692
22693         when others =>
22694            raise Program_Error;
22695      end case;
22696   end Internal_Get_Owning_Expression;
22697
22698   ----------------------------------
22699   -- Internal_Get_Owning_Instance --
22700   ----------------------------------
22701
22702   function Internal_Get_Owning_Instance
22703    (Self : AMF.Internals.AMF_Element)
22704       return AMF.Internals.AMF_Element is
22705   begin
22706      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
22707         when AMF.Internals.Tables.UML_Types.E_UML_Slot =>
22708            return
22709              AMF.Internals.Links.Opposite_Element
22710               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
22711
22712         when others =>
22713            raise Program_Error;
22714      end case;
22715   end Internal_Get_Owning_Instance;
22716
22717   --------------------------------------------
22718   -- Internal_Get_Owning_Template_Parameter --
22719   --------------------------------------------
22720
22721   function Internal_Get_Owning_Template_Parameter
22722    (Self : AMF.Internals.AMF_Element)
22723       return AMF.Internals.AMF_Element is
22724   begin
22725      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
22726         when AMF.Internals.Tables.UML_Types.E_UML_Abstraction =>
22727            return
22728              AMF.Internals.Links.Opposite_Element
22729               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
22730
22731         when AMF.Internals.Tables.UML_Types.E_UML_Activity =>
22732            return
22733              AMF.Internals.Links.Opposite_Element
22734               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
22735
22736         when AMF.Internals.Tables.UML_Types.E_UML_Actor =>
22737            return
22738              AMF.Internals.Links.Opposite_Element
22739               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
22740
22741         when AMF.Internals.Tables.UML_Types.E_UML_Any_Receive_Event =>
22742            return
22743              AMF.Internals.Links.Opposite_Element
22744               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
22745
22746         when AMF.Internals.Tables.UML_Types.E_UML_Artifact =>
22747            return
22748              AMF.Internals.Links.Opposite_Element
22749               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
22750
22751         when AMF.Internals.Tables.UML_Types.E_UML_Association =>
22752            return
22753              AMF.Internals.Links.Opposite_Element
22754               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
22755
22756         when AMF.Internals.Tables.UML_Types.E_UML_Association_Class =>
22757            return
22758              AMF.Internals.Links.Opposite_Element
22759               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
22760
22761         when AMF.Internals.Tables.UML_Types.E_UML_Call_Event =>
22762            return
22763              AMF.Internals.Links.Opposite_Element
22764               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
22765
22766         when AMF.Internals.Tables.UML_Types.E_UML_Change_Event =>
22767            return
22768              AMF.Internals.Links.Opposite_Element
22769               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
22770
22771         when AMF.Internals.Tables.UML_Types.E_UML_Class =>
22772            return
22773              AMF.Internals.Links.Opposite_Element
22774               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
22775
22776         when AMF.Internals.Tables.UML_Types.E_UML_Collaboration =>
22777            return
22778              AMF.Internals.Links.Opposite_Element
22779               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
22780
22781         when AMF.Internals.Tables.UML_Types.E_UML_Communication_Path =>
22782            return
22783              AMF.Internals.Links.Opposite_Element
22784               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
22785
22786         when AMF.Internals.Tables.UML_Types.E_UML_Component =>
22787            return
22788              AMF.Internals.Links.Opposite_Element
22789               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
22790
22791         when AMF.Internals.Tables.UML_Types.E_UML_Component_Realization =>
22792            return
22793              AMF.Internals.Links.Opposite_Element
22794               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
22795
22796         when AMF.Internals.Tables.UML_Types.E_UML_Constraint =>
22797            return
22798              AMF.Internals.Links.Opposite_Element
22799               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
22800
22801         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Activity_Diagram =>
22802            return
22803              AMF.Internals.Links.Opposite_Element
22804               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
22805
22806         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Class_Diagram =>
22807            return
22808              AMF.Internals.Links.Opposite_Element
22809               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
22810
22811         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Component_Diagram =>
22812            return
22813              AMF.Internals.Links.Opposite_Element
22814               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
22815
22816         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Composite_Structure_Diagram =>
22817            return
22818              AMF.Internals.Links.Opposite_Element
22819               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
22820
22821         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Deployment_Diagram =>
22822            return
22823              AMF.Internals.Links.Opposite_Element
22824               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
22825
22826         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Interaction_Diagram =>
22827            return
22828              AMF.Internals.Links.Opposite_Element
22829               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
22830
22831         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Object_Diagram =>
22832            return
22833              AMF.Internals.Links.Opposite_Element
22834               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
22835
22836         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Package_Diagram =>
22837            return
22838              AMF.Internals.Links.Opposite_Element
22839               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
22840
22841         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Profile_Diagram =>
22842            return
22843              AMF.Internals.Links.Opposite_Element
22844               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
22845
22846         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_State_Machine_Diagram =>
22847            return
22848              AMF.Internals.Links.Opposite_Element
22849               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
22850
22851         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Style =>
22852            return
22853              AMF.Internals.Links.Opposite_Element
22854               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
22855
22856         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Use_Case_Diagram =>
22857            return
22858              AMF.Internals.Links.Opposite_Element
22859               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
22860
22861         when AMF.Internals.Tables.UML_Types.E_UML_Data_Type =>
22862            return
22863              AMF.Internals.Links.Opposite_Element
22864               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
22865
22866         when AMF.Internals.Tables.UML_Types.E_UML_Dependency =>
22867            return
22868              AMF.Internals.Links.Opposite_Element
22869               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
22870
22871         when AMF.Internals.Tables.UML_Types.E_UML_Deployment =>
22872            return
22873              AMF.Internals.Links.Opposite_Element
22874               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
22875
22876         when AMF.Internals.Tables.UML_Types.E_UML_Deployment_Specification =>
22877            return
22878              AMF.Internals.Links.Opposite_Element
22879               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
22880
22881         when AMF.Internals.Tables.UML_Types.E_UML_Device =>
22882            return
22883              AMF.Internals.Links.Opposite_Element
22884               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
22885
22886         when AMF.Internals.Tables.UML_Types.E_UML_Duration =>
22887            return
22888              AMF.Internals.Links.Opposite_Element
22889               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
22890
22891         when AMF.Internals.Tables.UML_Types.E_UML_Duration_Constraint =>
22892            return
22893              AMF.Internals.Links.Opposite_Element
22894               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
22895
22896         when AMF.Internals.Tables.UML_Types.E_UML_Duration_Interval =>
22897            return
22898              AMF.Internals.Links.Opposite_Element
22899               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
22900
22901         when AMF.Internals.Tables.UML_Types.E_UML_Duration_Observation =>
22902            return
22903              AMF.Internals.Links.Opposite_Element
22904               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
22905
22906         when AMF.Internals.Tables.UML_Types.E_UML_Enumeration =>
22907            return
22908              AMF.Internals.Links.Opposite_Element
22909               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
22910
22911         when AMF.Internals.Tables.UML_Types.E_UML_Enumeration_Literal =>
22912            return
22913              AMF.Internals.Links.Opposite_Element
22914               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
22915
22916         when AMF.Internals.Tables.UML_Types.E_UML_Execution_Environment =>
22917            return
22918              AMF.Internals.Links.Opposite_Element
22919               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
22920
22921         when AMF.Internals.Tables.UML_Types.E_UML_Expression =>
22922            return
22923              AMF.Internals.Links.Opposite_Element
22924               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
22925
22926         when AMF.Internals.Tables.UML_Types.E_UML_Extension =>
22927            return
22928              AMF.Internals.Links.Opposite_Element
22929               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
22930
22931         when AMF.Internals.Tables.UML_Types.E_UML_Extension_End =>
22932            return
22933              AMF.Internals.Links.Opposite_Element
22934               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
22935
22936         when AMF.Internals.Tables.UML_Types.E_UML_Function_Behavior =>
22937            return
22938              AMF.Internals.Links.Opposite_Element
22939               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
22940
22941         when AMF.Internals.Tables.UML_Types.E_UML_Generalization_Set =>
22942            return
22943              AMF.Internals.Links.Opposite_Element
22944               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
22945
22946         when AMF.Internals.Tables.UML_Types.E_UML_Information_Flow =>
22947            return
22948              AMF.Internals.Links.Opposite_Element
22949               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
22950
22951         when AMF.Internals.Tables.UML_Types.E_UML_Information_Item =>
22952            return
22953              AMF.Internals.Links.Opposite_Element
22954               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
22955
22956         when AMF.Internals.Tables.UML_Types.E_UML_Instance_Specification =>
22957            return
22958              AMF.Internals.Links.Opposite_Element
22959               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
22960
22961         when AMF.Internals.Tables.UML_Types.E_UML_Instance_Value =>
22962            return
22963              AMF.Internals.Links.Opposite_Element
22964               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
22965
22966         when AMF.Internals.Tables.UML_Types.E_UML_Interaction =>
22967            return
22968              AMF.Internals.Links.Opposite_Element
22969               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
22970
22971         when AMF.Internals.Tables.UML_Types.E_UML_Interaction_Constraint =>
22972            return
22973              AMF.Internals.Links.Opposite_Element
22974               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
22975
22976         when AMF.Internals.Tables.UML_Types.E_UML_Interface =>
22977            return
22978              AMF.Internals.Links.Opposite_Element
22979               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
22980
22981         when AMF.Internals.Tables.UML_Types.E_UML_Interface_Realization =>
22982            return
22983              AMF.Internals.Links.Opposite_Element
22984               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
22985
22986         when AMF.Internals.Tables.UML_Types.E_UML_Interval =>
22987            return
22988              AMF.Internals.Links.Opposite_Element
22989               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
22990
22991         when AMF.Internals.Tables.UML_Types.E_UML_Interval_Constraint =>
22992            return
22993              AMF.Internals.Links.Opposite_Element
22994               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
22995
22996         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Boolean =>
22997            return
22998              AMF.Internals.Links.Opposite_Element
22999               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
23000
23001         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Integer =>
23002            return
23003              AMF.Internals.Links.Opposite_Element
23004               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
23005
23006         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Null =>
23007            return
23008              AMF.Internals.Links.Opposite_Element
23009               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
23010
23011         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Real =>
23012            return
23013              AMF.Internals.Links.Opposite_Element
23014               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
23015
23016         when AMF.Internals.Tables.UML_Types.E_UML_Literal_String =>
23017            return
23018              AMF.Internals.Links.Opposite_Element
23019               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
23020
23021         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Unlimited_Natural =>
23022            return
23023              AMF.Internals.Links.Opposite_Element
23024               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
23025
23026         when AMF.Internals.Tables.UML_Types.E_UML_Manifestation =>
23027            return
23028              AMF.Internals.Links.Opposite_Element
23029               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
23030
23031         when AMF.Internals.Tables.UML_Types.E_UML_Model =>
23032            return
23033              AMF.Internals.Links.Opposite_Element
23034               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
23035
23036         when AMF.Internals.Tables.UML_Types.E_UML_Node =>
23037            return
23038              AMF.Internals.Links.Opposite_Element
23039               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
23040
23041         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Behavior =>
23042            return
23043              AMF.Internals.Links.Opposite_Element
23044               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
23045
23046         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Expression =>
23047            return
23048              AMF.Internals.Links.Opposite_Element
23049               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
23050
23051         when AMF.Internals.Tables.UML_Types.E_UML_Operation =>
23052            return
23053              AMF.Internals.Links.Opposite_Element
23054               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
23055
23056         when AMF.Internals.Tables.UML_Types.E_UML_Package =>
23057            return
23058              AMF.Internals.Links.Opposite_Element
23059               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
23060
23061         when AMF.Internals.Tables.UML_Types.E_UML_Parameter =>
23062            return
23063              AMF.Internals.Links.Opposite_Element
23064               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
23065
23066         when AMF.Internals.Tables.UML_Types.E_UML_Port =>
23067            return
23068              AMF.Internals.Links.Opposite_Element
23069               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
23070
23071         when AMF.Internals.Tables.UML_Types.E_UML_Primitive_Type =>
23072            return
23073              AMF.Internals.Links.Opposite_Element
23074               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
23075
23076         when AMF.Internals.Tables.UML_Types.E_UML_Profile =>
23077            return
23078              AMF.Internals.Links.Opposite_Element
23079               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
23080
23081         when AMF.Internals.Tables.UML_Types.E_UML_Property =>
23082            return
23083              AMF.Internals.Links.Opposite_Element
23084               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
23085
23086         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_State_Machine =>
23087            return
23088              AMF.Internals.Links.Opposite_Element
23089               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
23090
23091         when AMF.Internals.Tables.UML_Types.E_UML_Realization =>
23092            return
23093              AMF.Internals.Links.Opposite_Element
23094               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
23095
23096         when AMF.Internals.Tables.UML_Types.E_UML_Signal =>
23097            return
23098              AMF.Internals.Links.Opposite_Element
23099               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
23100
23101         when AMF.Internals.Tables.UML_Types.E_UML_Signal_Event =>
23102            return
23103              AMF.Internals.Links.Opposite_Element
23104               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
23105
23106         when AMF.Internals.Tables.UML_Types.E_UML_State_Machine =>
23107            return
23108              AMF.Internals.Links.Opposite_Element
23109               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
23110
23111         when AMF.Internals.Tables.UML_Types.E_UML_Stereotype =>
23112            return
23113              AMF.Internals.Links.Opposite_Element
23114               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
23115
23116         when AMF.Internals.Tables.UML_Types.E_UML_String_Expression =>
23117            return
23118              AMF.Internals.Links.Opposite_Element
23119               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
23120
23121         when AMF.Internals.Tables.UML_Types.E_UML_Substitution =>
23122            return
23123              AMF.Internals.Links.Opposite_Element
23124               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
23125
23126         when AMF.Internals.Tables.UML_Types.E_UML_Time_Constraint =>
23127            return
23128              AMF.Internals.Links.Opposite_Element
23129               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
23130
23131         when AMF.Internals.Tables.UML_Types.E_UML_Time_Event =>
23132            return
23133              AMF.Internals.Links.Opposite_Element
23134               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
23135
23136         when AMF.Internals.Tables.UML_Types.E_UML_Time_Expression =>
23137            return
23138              AMF.Internals.Links.Opposite_Element
23139               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
23140
23141         when AMF.Internals.Tables.UML_Types.E_UML_Time_Interval =>
23142            return
23143              AMF.Internals.Links.Opposite_Element
23144               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
23145
23146         when AMF.Internals.Tables.UML_Types.E_UML_Time_Observation =>
23147            return
23148              AMF.Internals.Links.Opposite_Element
23149               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
23150
23151         when AMF.Internals.Tables.UML_Types.E_UML_Usage =>
23152            return
23153              AMF.Internals.Links.Opposite_Element
23154               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
23155
23156         when AMF.Internals.Tables.UML_Types.E_UML_Use_Case =>
23157            return
23158              AMF.Internals.Links.Opposite_Element
23159               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
23160
23161         when AMF.Internals.Tables.UML_Types.E_UML_Variable =>
23162            return
23163              AMF.Internals.Links.Opposite_Element
23164               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
23165
23166         when others =>
23167            raise Program_Error;
23168      end case;
23169   end Internal_Get_Owning_Template_Parameter;
23170
23171   --------------------------
23172   -- Internal_Get_Package --
23173   --------------------------
23174
23175   function Internal_Get_Package
23176    (Self : AMF.Internals.AMF_Element)
23177       return AMF.Internals.AMF_Element is
23178   begin
23179      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
23180         when AMF.Internals.Tables.UML_Types.E_UML_Activity =>
23181            return
23182              AMF.Internals.Links.Opposite_Element
23183               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Link, Self);
23184
23185         when AMF.Internals.Tables.UML_Types.E_UML_Actor =>
23186            return
23187              AMF.Internals.Links.Opposite_Element
23188               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Link, Self);
23189
23190         when AMF.Internals.Tables.UML_Types.E_UML_Artifact =>
23191            return
23192              AMF.Internals.Links.Opposite_Element
23193               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Link, Self);
23194
23195         when AMF.Internals.Tables.UML_Types.E_UML_Association =>
23196            return
23197              AMF.Internals.Links.Opposite_Element
23198               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Link, Self);
23199
23200         when AMF.Internals.Tables.UML_Types.E_UML_Association_Class =>
23201            return
23202              AMF.Internals.Links.Opposite_Element
23203               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Link, Self);
23204
23205         when AMF.Internals.Tables.UML_Types.E_UML_Class =>
23206            return
23207              AMF.Internals.Links.Opposite_Element
23208               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Link, Self);
23209
23210         when AMF.Internals.Tables.UML_Types.E_UML_Collaboration =>
23211            return
23212              AMF.Internals.Links.Opposite_Element
23213               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Link, Self);
23214
23215         when AMF.Internals.Tables.UML_Types.E_UML_Communication_Path =>
23216            return
23217              AMF.Internals.Links.Opposite_Element
23218               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Link, Self);
23219
23220         when AMF.Internals.Tables.UML_Types.E_UML_Component =>
23221            return
23222              AMF.Internals.Links.Opposite_Element
23223               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Link, Self);
23224
23225         when AMF.Internals.Tables.UML_Types.E_UML_Data_Type =>
23226            return
23227              AMF.Internals.Links.Opposite_Element
23228               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Link, Self);
23229
23230         when AMF.Internals.Tables.UML_Types.E_UML_Deployment_Specification =>
23231            return
23232              AMF.Internals.Links.Opposite_Element
23233               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Link, Self);
23234
23235         when AMF.Internals.Tables.UML_Types.E_UML_Device =>
23236            return
23237              AMF.Internals.Links.Opposite_Element
23238               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Link, Self);
23239
23240         when AMF.Internals.Tables.UML_Types.E_UML_Enumeration =>
23241            return
23242              AMF.Internals.Links.Opposite_Element
23243               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Link, Self);
23244
23245         when AMF.Internals.Tables.UML_Types.E_UML_Execution_Environment =>
23246            return
23247              AMF.Internals.Links.Opposite_Element
23248               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Link, Self);
23249
23250         when AMF.Internals.Tables.UML_Types.E_UML_Extension =>
23251            return
23252              AMF.Internals.Links.Opposite_Element
23253               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Link, Self);
23254
23255         when AMF.Internals.Tables.UML_Types.E_UML_Function_Behavior =>
23256            return
23257              AMF.Internals.Links.Opposite_Element
23258               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Link, Self);
23259
23260         when AMF.Internals.Tables.UML_Types.E_UML_Information_Item =>
23261            return
23262              AMF.Internals.Links.Opposite_Element
23263               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Link, Self);
23264
23265         when AMF.Internals.Tables.UML_Types.E_UML_Interaction =>
23266            return
23267              AMF.Internals.Links.Opposite_Element
23268               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Link, Self);
23269
23270         when AMF.Internals.Tables.UML_Types.E_UML_Interface =>
23271            return
23272              AMF.Internals.Links.Opposite_Element
23273               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Link, Self);
23274
23275         when AMF.Internals.Tables.UML_Types.E_UML_Node =>
23276            return
23277              AMF.Internals.Links.Opposite_Element
23278               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Link, Self);
23279
23280         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Behavior =>
23281            return
23282              AMF.Internals.Links.Opposite_Element
23283               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Link, Self);
23284
23285         when AMF.Internals.Tables.UML_Types.E_UML_Primitive_Type =>
23286            return
23287              AMF.Internals.Links.Opposite_Element
23288               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Link, Self);
23289
23290         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_State_Machine =>
23291            return
23292              AMF.Internals.Links.Opposite_Element
23293               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Link, Self);
23294
23295         when AMF.Internals.Tables.UML_Types.E_UML_Signal =>
23296            return
23297              AMF.Internals.Links.Opposite_Element
23298               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Link, Self);
23299
23300         when AMF.Internals.Tables.UML_Types.E_UML_State_Machine =>
23301            return
23302              AMF.Internals.Links.Opposite_Element
23303               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Link, Self);
23304
23305         when AMF.Internals.Tables.UML_Types.E_UML_Stereotype =>
23306            return
23307              AMF.Internals.Links.Opposite_Element
23308               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Link, Self);
23309
23310         when AMF.Internals.Tables.UML_Types.E_UML_Use_Case =>
23311            return
23312              AMF.Internals.Links.Opposite_Element
23313               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Link, Self);
23314
23315         when others =>
23316            raise Program_Error;
23317      end case;
23318   end Internal_Get_Package;
23319
23320   ---------------------------------
23321   -- Internal_Get_Package_Import --
23322   ---------------------------------
23323
23324   function Internal_Get_Package_Import
23325    (Self : AMF.Internals.AMF_Element)
23326       return AMF.Internals.AMF_Collection_Of_Element is
23327   begin
23328      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
23329         when AMF.Internals.Tables.UML_Types.E_UML_Activity =>
23330            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 17;
23331
23332         when AMF.Internals.Tables.UML_Types.E_UML_Actor =>
23333            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 17;
23334
23335         when AMF.Internals.Tables.UML_Types.E_UML_Artifact =>
23336            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 17;
23337
23338         when AMF.Internals.Tables.UML_Types.E_UML_Association =>
23339            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 17;
23340
23341         when AMF.Internals.Tables.UML_Types.E_UML_Association_Class =>
23342            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 17;
23343
23344         when AMF.Internals.Tables.UML_Types.E_UML_Class =>
23345            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 17;
23346
23347         when AMF.Internals.Tables.UML_Types.E_UML_Collaboration =>
23348            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 17;
23349
23350         when AMF.Internals.Tables.UML_Types.E_UML_Communication_Path =>
23351            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 17;
23352
23353         when AMF.Internals.Tables.UML_Types.E_UML_Component =>
23354            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 17;
23355
23356         when AMF.Internals.Tables.UML_Types.E_UML_Conditional_Node =>
23357            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 17;
23358
23359         when AMF.Internals.Tables.UML_Types.E_UML_Data_Type =>
23360            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 17;
23361
23362         when AMF.Internals.Tables.UML_Types.E_UML_Deployment_Specification =>
23363            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 17;
23364
23365         when AMF.Internals.Tables.UML_Types.E_UML_Device =>
23366            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 17;
23367
23368         when AMF.Internals.Tables.UML_Types.E_UML_Enumeration =>
23369            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 17;
23370
23371         when AMF.Internals.Tables.UML_Types.E_UML_Execution_Environment =>
23372            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 17;
23373
23374         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Region =>
23375            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 17;
23376
23377         when AMF.Internals.Tables.UML_Types.E_UML_Extension =>
23378            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 17;
23379
23380         when AMF.Internals.Tables.UML_Types.E_UML_Final_State =>
23381            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 17;
23382
23383         when AMF.Internals.Tables.UML_Types.E_UML_Function_Behavior =>
23384            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 17;
23385
23386         when AMF.Internals.Tables.UML_Types.E_UML_Information_Item =>
23387            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 17;
23388
23389         when AMF.Internals.Tables.UML_Types.E_UML_Interaction =>
23390            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 17;
23391
23392         when AMF.Internals.Tables.UML_Types.E_UML_Interaction_Operand =>
23393            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 17;
23394
23395         when AMF.Internals.Tables.UML_Types.E_UML_Interface =>
23396            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 17;
23397
23398         when AMF.Internals.Tables.UML_Types.E_UML_Loop_Node =>
23399            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 17;
23400
23401         when AMF.Internals.Tables.UML_Types.E_UML_Model =>
23402            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 17;
23403
23404         when AMF.Internals.Tables.UML_Types.E_UML_Node =>
23405            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 17;
23406
23407         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Behavior =>
23408            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 17;
23409
23410         when AMF.Internals.Tables.UML_Types.E_UML_Operation =>
23411            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 17;
23412
23413         when AMF.Internals.Tables.UML_Types.E_UML_Package =>
23414            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 17;
23415
23416         when AMF.Internals.Tables.UML_Types.E_UML_Primitive_Type =>
23417            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 17;
23418
23419         when AMF.Internals.Tables.UML_Types.E_UML_Profile =>
23420            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 17;
23421
23422         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_State_Machine =>
23423            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 17;
23424
23425         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_Transition =>
23426            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 17;
23427
23428         when AMF.Internals.Tables.UML_Types.E_UML_Reception =>
23429            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 17;
23430
23431         when AMF.Internals.Tables.UML_Types.E_UML_Region =>
23432            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 17;
23433
23434         when AMF.Internals.Tables.UML_Types.E_UML_Sequence_Node =>
23435            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 17;
23436
23437         when AMF.Internals.Tables.UML_Types.E_UML_Signal =>
23438            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 17;
23439
23440         when AMF.Internals.Tables.UML_Types.E_UML_State =>
23441            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 17;
23442
23443         when AMF.Internals.Tables.UML_Types.E_UML_State_Machine =>
23444            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 17;
23445
23446         when AMF.Internals.Tables.UML_Types.E_UML_Stereotype =>
23447            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 17;
23448
23449         when AMF.Internals.Tables.UML_Types.E_UML_Structured_Activity_Node =>
23450            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 17;
23451
23452         when AMF.Internals.Tables.UML_Types.E_UML_Transition =>
23453            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 17;
23454
23455         when AMF.Internals.Tables.UML_Types.E_UML_Use_Case =>
23456            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 17;
23457
23458         when others =>
23459            raise Program_Error;
23460      end case;
23461   end Internal_Get_Package_Import;
23462
23463   --------------------------------
23464   -- Internal_Get_Package_Merge --
23465   --------------------------------
23466
23467   function Internal_Get_Package_Merge
23468    (Self : AMF.Internals.AMF_Element)
23469       return AMF.Internals.AMF_Collection_Of_Element is
23470   begin
23471      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
23472         when AMF.Internals.Tables.UML_Types.E_UML_Model =>
23473            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
23474
23475         when AMF.Internals.Tables.UML_Types.E_UML_Package =>
23476            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
23477
23478         when AMF.Internals.Tables.UML_Types.E_UML_Profile =>
23479            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
23480
23481         when others =>
23482            raise Program_Error;
23483      end case;
23484   end Internal_Get_Package_Merge;
23485
23486   -----------------------------------
23487   -- Internal_Get_Packaged_Element --
23488   -----------------------------------
23489
23490   function Internal_Get_Packaged_Element
23491    (Self : AMF.Internals.AMF_Element)
23492       return AMF.Internals.AMF_Collection_Of_Element is
23493   begin
23494      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
23495         when AMF.Internals.Tables.UML_Types.E_UML_Component =>
23496            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 24;
23497
23498         when AMF.Internals.Tables.UML_Types.E_UML_Model =>
23499            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
23500
23501         when AMF.Internals.Tables.UML_Types.E_UML_Package =>
23502            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
23503
23504         when AMF.Internals.Tables.UML_Types.E_UML_Profile =>
23505            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
23506
23507         when others =>
23508            raise Program_Error;
23509      end case;
23510   end Internal_Get_Packaged_Element;
23511
23512   ----------------------------
23513   -- Internal_Get_Parameter --
23514   ----------------------------
23515
23516   function Internal_Get_Parameter
23517    (Self : AMF.Internals.AMF_Element)
23518       return AMF.Internals.AMF_Element is
23519   begin
23520      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
23521         when AMF.Internals.Tables.UML_Types.E_UML_Activity_Parameter_Node =>
23522            return
23523              AMF.Internals.Links.Opposite_Element
23524               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
23525
23526         when others =>
23527            raise Program_Error;
23528      end case;
23529   end Internal_Get_Parameter;
23530
23531   ----------------------------
23532   -- Internal_Get_Parameter --
23533   ----------------------------
23534
23535   function Internal_Get_Parameter
23536    (Self : AMF.Internals.AMF_Element)
23537       return AMF.Internals.AMF_Collection_Of_Element is
23538   begin
23539      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
23540         when AMF.Internals.Tables.UML_Types.E_UML_Parameter_Set =>
23541            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
23542
23543         when AMF.Internals.Tables.UML_Types.E_UML_Redefinable_Template_Signature =>
23544            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
23545
23546         when AMF.Internals.Tables.UML_Types.E_UML_Template_Signature =>
23547            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
23548
23549         when others =>
23550            raise Program_Error;
23551      end case;
23552   end Internal_Get_Parameter;
23553
23554   --------------------------------
23555   -- Internal_Get_Parameter_Set --
23556   --------------------------------
23557
23558   function Internal_Get_Parameter_Set
23559    (Self : AMF.Internals.AMF_Element)
23560       return AMF.Internals.AMF_Collection_Of_Element is
23561   begin
23562      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
23563         when AMF.Internals.Tables.UML_Types.E_UML_Parameter =>
23564            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
23565
23566         when others =>
23567            raise Program_Error;
23568      end case;
23569   end Internal_Get_Parameter_Set;
23570
23571   -----------------------------------------
23572   -- Internal_Get_Parameter_Substitution --
23573   -----------------------------------------
23574
23575   function Internal_Get_Parameter_Substitution
23576    (Self : AMF.Internals.AMF_Element)
23577       return AMF.Internals.AMF_Collection_Of_Element is
23578   begin
23579      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
23580         when AMF.Internals.Tables.UML_Types.E_UML_Template_Binding =>
23581            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
23582
23583         when others =>
23584            raise Program_Error;
23585      end case;
23586   end Internal_Get_Parameter_Substitution;
23587
23588   --------------------------------------
23589   -- Internal_Get_Parametered_Element --
23590   --------------------------------------
23591
23592   function Internal_Get_Parametered_Element
23593    (Self : AMF.Internals.AMF_Element)
23594       return AMF.Internals.AMF_Element is
23595   begin
23596      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
23597         when AMF.Internals.Tables.UML_Types.E_UML_Classifier_Template_Parameter =>
23598            return
23599              AMF.Internals.Links.Opposite_Element
23600               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
23601
23602         when AMF.Internals.Tables.UML_Types.E_UML_Connectable_Element_Template_Parameter =>
23603            return
23604              AMF.Internals.Links.Opposite_Element
23605               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Link, Self);
23606
23607         when AMF.Internals.Tables.UML_Types.E_UML_Operation_Template_Parameter =>
23608            return
23609              AMF.Internals.Links.Opposite_Element
23610               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Link, Self);
23611
23612         when AMF.Internals.Tables.UML_Types.E_UML_Template_Parameter =>
23613            return
23614              AMF.Internals.Links.Opposite_Element
23615               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (5).Link, Self);
23616
23617         when others =>
23618            raise Program_Error;
23619      end case;
23620   end Internal_Get_Parametered_Element;
23621
23622   -----------------------
23623   -- Internal_Get_Part --
23624   -----------------------
23625
23626   function Internal_Get_Part
23627    (Self : AMF.Internals.AMF_Element)
23628       return AMF.Internals.AMF_Collection_Of_Element is
23629   begin
23630      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
23631         when AMF.Internals.Tables.UML_Types.E_UML_Activity =>
23632            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 30;
23633
23634         when AMF.Internals.Tables.UML_Types.E_UML_Association_Class =>
23635            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 30;
23636
23637         when AMF.Internals.Tables.UML_Types.E_UML_Class =>
23638            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 30;
23639
23640         when AMF.Internals.Tables.UML_Types.E_UML_Collaboration =>
23641            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 30;
23642
23643         when AMF.Internals.Tables.UML_Types.E_UML_Component =>
23644            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 30;
23645
23646         when AMF.Internals.Tables.UML_Types.E_UML_Device =>
23647            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 30;
23648
23649         when AMF.Internals.Tables.UML_Types.E_UML_Execution_Environment =>
23650            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 30;
23651
23652         when AMF.Internals.Tables.UML_Types.E_UML_Function_Behavior =>
23653            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 30;
23654
23655         when AMF.Internals.Tables.UML_Types.E_UML_Interaction =>
23656            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 30;
23657
23658         when AMF.Internals.Tables.UML_Types.E_UML_Node =>
23659            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 30;
23660
23661         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Behavior =>
23662            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 30;
23663
23664         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_State_Machine =>
23665            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 30;
23666
23667         when AMF.Internals.Tables.UML_Types.E_UML_State_Machine =>
23668            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 30;
23669
23670         when AMF.Internals.Tables.UML_Types.E_UML_Stereotype =>
23671            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 30;
23672
23673         when others =>
23674            raise Program_Error;
23675      end case;
23676   end Internal_Get_Part;
23677
23678   ---------------------------------
23679   -- Internal_Get_Part_With_Port --
23680   ---------------------------------
23681
23682   function Internal_Get_Part_With_Port
23683    (Self : AMF.Internals.AMF_Element)
23684       return AMF.Internals.AMF_Element is
23685   begin
23686      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
23687         when AMF.Internals.Tables.UML_Types.E_UML_Connector_End =>
23688            return
23689              AMF.Internals.Links.Opposite_Element
23690               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
23691
23692         when others =>
23693            raise Program_Error;
23694      end case;
23695   end Internal_Get_Part_With_Port;
23696
23697   ----------------------------
23698   -- Internal_Get_Partition --
23699   ----------------------------
23700
23701   function Internal_Get_Partition
23702    (Self : AMF.Internals.AMF_Element)
23703       return AMF.Internals.AMF_Collection_Of_Element is
23704   begin
23705      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
23706         when AMF.Internals.Tables.UML_Types.E_UML_Activity =>
23707            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 45;
23708
23709         when others =>
23710            raise Program_Error;
23711      end case;
23712   end Internal_Get_Partition;
23713
23714   -----------------------
23715   -- Internal_Get_Port --
23716   -----------------------
23717
23718   function Internal_Get_Port
23719    (Self : AMF.Internals.AMF_Element)
23720       return AMF.Internals.AMF_Collection_Of_Element is
23721   begin
23722      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
23723         when AMF.Internals.Tables.UML_Types.E_UML_Trigger =>
23724            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
23725
23726         when others =>
23727            raise Program_Error;
23728      end case;
23729   end Internal_Get_Port;
23730
23731   ---------------------------------
23732   -- Internal_Get_Post_Condition --
23733   ---------------------------------
23734
23735   function Internal_Get_Post_Condition
23736    (Self : AMF.Internals.AMF_Element)
23737       return AMF.Internals.AMF_Element is
23738   begin
23739      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
23740         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_Transition =>
23741            return
23742              AMF.Internals.Links.Opposite_Element
23743               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Link, Self);
23744
23745         when others =>
23746            raise Program_Error;
23747      end case;
23748   end Internal_Get_Post_Condition;
23749
23750   --------------------------------
23751   -- Internal_Get_Postcondition --
23752   --------------------------------
23753
23754   function Internal_Get_Postcondition
23755    (Self : AMF.Internals.AMF_Element)
23756       return AMF.Internals.AMF_Collection_Of_Element is
23757   begin
23758      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
23759         when AMF.Internals.Tables.UML_Types.E_UML_Activity =>
23760            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 41;
23761
23762         when AMF.Internals.Tables.UML_Types.E_UML_Function_Behavior =>
23763            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 41;
23764
23765         when AMF.Internals.Tables.UML_Types.E_UML_Interaction =>
23766            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 41;
23767
23768         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Behavior =>
23769            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 41;
23770
23771         when AMF.Internals.Tables.UML_Types.E_UML_Operation =>
23772            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 19;
23773
23774         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_State_Machine =>
23775            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 41;
23776
23777         when AMF.Internals.Tables.UML_Types.E_UML_State_Machine =>
23778            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 41;
23779
23780         when others =>
23781            raise Program_Error;
23782      end case;
23783   end Internal_Get_Postcondition;
23784
23785   ----------------------------
23786   -- Internal_Get_Powertype --
23787   ----------------------------
23788
23789   function Internal_Get_Powertype
23790    (Self : AMF.Internals.AMF_Element)
23791       return AMF.Internals.AMF_Element is
23792   begin
23793      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
23794         when AMF.Internals.Tables.UML_Types.E_UML_Generalization_Set =>
23795            return
23796              AMF.Internals.Links.Opposite_Element
23797               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (11).Link, Self);
23798
23799         when others =>
23800            raise Program_Error;
23801      end case;
23802   end Internal_Get_Powertype;
23803
23804   -----------------------------------
23805   -- Internal_Get_Powertype_Extent --
23806   -----------------------------------
23807
23808   function Internal_Get_Powertype_Extent
23809    (Self : AMF.Internals.AMF_Element)
23810       return AMF.Internals.AMF_Collection_Of_Element is
23811   begin
23812      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
23813         when AMF.Internals.Tables.UML_Types.E_UML_Activity =>
23814            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 20;
23815
23816         when AMF.Internals.Tables.UML_Types.E_UML_Actor =>
23817            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 20;
23818
23819         when AMF.Internals.Tables.UML_Types.E_UML_Artifact =>
23820            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 20;
23821
23822         when AMF.Internals.Tables.UML_Types.E_UML_Association =>
23823            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 20;
23824
23825         when AMF.Internals.Tables.UML_Types.E_UML_Association_Class =>
23826            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 20;
23827
23828         when AMF.Internals.Tables.UML_Types.E_UML_Class =>
23829            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 20;
23830
23831         when AMF.Internals.Tables.UML_Types.E_UML_Collaboration =>
23832            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 20;
23833
23834         when AMF.Internals.Tables.UML_Types.E_UML_Communication_Path =>
23835            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 20;
23836
23837         when AMF.Internals.Tables.UML_Types.E_UML_Component =>
23838            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 20;
23839
23840         when AMF.Internals.Tables.UML_Types.E_UML_Data_Type =>
23841            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 20;
23842
23843         when AMF.Internals.Tables.UML_Types.E_UML_Deployment_Specification =>
23844            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 20;
23845
23846         when AMF.Internals.Tables.UML_Types.E_UML_Device =>
23847            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 20;
23848
23849         when AMF.Internals.Tables.UML_Types.E_UML_Enumeration =>
23850            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 20;
23851
23852         when AMF.Internals.Tables.UML_Types.E_UML_Execution_Environment =>
23853            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 20;
23854
23855         when AMF.Internals.Tables.UML_Types.E_UML_Extension =>
23856            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 20;
23857
23858         when AMF.Internals.Tables.UML_Types.E_UML_Function_Behavior =>
23859            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 20;
23860
23861         when AMF.Internals.Tables.UML_Types.E_UML_Information_Item =>
23862            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 20;
23863
23864         when AMF.Internals.Tables.UML_Types.E_UML_Interaction =>
23865            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 20;
23866
23867         when AMF.Internals.Tables.UML_Types.E_UML_Interface =>
23868            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 20;
23869
23870         when AMF.Internals.Tables.UML_Types.E_UML_Node =>
23871            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 20;
23872
23873         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Behavior =>
23874            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 20;
23875
23876         when AMF.Internals.Tables.UML_Types.E_UML_Primitive_Type =>
23877            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 20;
23878
23879         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_State_Machine =>
23880            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 20;
23881
23882         when AMF.Internals.Tables.UML_Types.E_UML_Signal =>
23883            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 20;
23884
23885         when AMF.Internals.Tables.UML_Types.E_UML_State_Machine =>
23886            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 20;
23887
23888         when AMF.Internals.Tables.UML_Types.E_UML_Stereotype =>
23889            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 20;
23890
23891         when AMF.Internals.Tables.UML_Types.E_UML_Use_Case =>
23892            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 20;
23893
23894         when others =>
23895            raise Program_Error;
23896      end case;
23897   end Internal_Get_Powertype_Extent;
23898
23899   --------------------------------
23900   -- Internal_Get_Pre_Condition --
23901   --------------------------------
23902
23903   function Internal_Get_Pre_Condition
23904    (Self : AMF.Internals.AMF_Element)
23905       return AMF.Internals.AMF_Element is
23906   begin
23907      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
23908         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_Transition =>
23909            return
23910              AMF.Internals.Links.Opposite_Element
23911               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (17).Link, Self);
23912
23913         when others =>
23914            raise Program_Error;
23915      end case;
23916   end Internal_Get_Pre_Condition;
23917
23918   -------------------------------
23919   -- Internal_Get_Precondition --
23920   -------------------------------
23921
23922   function Internal_Get_Precondition
23923    (Self : AMF.Internals.AMF_Element)
23924       return AMF.Internals.AMF_Collection_Of_Element is
23925   begin
23926      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
23927         when AMF.Internals.Tables.UML_Types.E_UML_Activity =>
23928            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 42;
23929
23930         when AMF.Internals.Tables.UML_Types.E_UML_Function_Behavior =>
23931            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 42;
23932
23933         when AMF.Internals.Tables.UML_Types.E_UML_Interaction =>
23934            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 42;
23935
23936         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Behavior =>
23937            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 42;
23938
23939         when AMF.Internals.Tables.UML_Types.E_UML_Operation =>
23940            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 20;
23941
23942         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_State_Machine =>
23943            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 42;
23944
23945         when AMF.Internals.Tables.UML_Types.E_UML_State_Machine =>
23946            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 42;
23947
23948         when others =>
23949            raise Program_Error;
23950      end case;
23951   end Internal_Get_Precondition;
23952
23953   -------------------------------------
23954   -- Internal_Get_Predecessor_Clause --
23955   -------------------------------------
23956
23957   function Internal_Get_Predecessor_Clause
23958    (Self : AMF.Internals.AMF_Element)
23959       return AMF.Internals.AMF_Collection_Of_Element is
23960   begin
23961      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
23962         when AMF.Internals.Tables.UML_Types.E_UML_Clause =>
23963            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
23964
23965         when others =>
23966            raise Program_Error;
23967      end case;
23968   end Internal_Get_Predecessor_Clause;
23969
23970   --------------------------
23971   -- Internal_Get_Profile --
23972   --------------------------
23973
23974   function Internal_Get_Profile
23975    (Self : AMF.Internals.AMF_Element)
23976       return AMF.Internals.AMF_Element is
23977   begin
23978      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
23979         when AMF.Internals.Tables.UML_Types.E_UML_Stereotype =>
23980            return
23981              AMF.Internals.Links.Opposite_Element
23982               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (18).Link, Self);
23983
23984         when others =>
23985            raise Program_Error;
23986      end case;
23987   end Internal_Get_Profile;
23988
23989   --------------------------------------
23990   -- Internal_Get_Profile_Application --
23991   --------------------------------------
23992
23993   function Internal_Get_Profile_Application
23994    (Self : AMF.Internals.AMF_Element)
23995       return AMF.Internals.AMF_Collection_Of_Element is
23996   begin
23997      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
23998         when AMF.Internals.Tables.UML_Types.E_UML_Model =>
23999            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
24000
24001         when AMF.Internals.Tables.UML_Types.E_UML_Package =>
24002            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
24003
24004         when AMF.Internals.Tables.UML_Types.E_UML_Profile =>
24005            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
24006
24007         when others =>
24008            raise Program_Error;
24009      end case;
24010   end Internal_Get_Profile_Application;
24011
24012   ---------------------------------
24013   -- Internal_Get_Protected_Node --
24014   ---------------------------------
24015
24016   function Internal_Get_Protected_Node
24017    (Self : AMF.Internals.AMF_Element)
24018       return AMF.Internals.AMF_Element is
24019   begin
24020      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
24021         when AMF.Internals.Tables.UML_Types.E_UML_Exception_Handler =>
24022            return
24023              AMF.Internals.Links.Opposite_Element
24024               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
24025
24026         when others =>
24027            raise Program_Error;
24028      end case;
24029   end Internal_Get_Protected_Node;
24030
24031   ---------------------------
24032   -- Internal_Get_Protocol --
24033   ---------------------------
24034
24035   function Internal_Get_Protocol
24036    (Self : AMF.Internals.AMF_Element)
24037       return AMF.Internals.AMF_Element is
24038   begin
24039      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
24040         when AMF.Internals.Tables.UML_Types.E_UML_Interface =>
24041            return
24042              AMF.Internals.Links.Opposite_Element
24043               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (17).Link, Self);
24044
24045         when AMF.Internals.Tables.UML_Types.E_UML_Port =>
24046            return
24047              AMF.Internals.Links.Opposite_Element
24048               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (37).Link, Self);
24049
24050         when others =>
24051            raise Program_Error;
24052      end case;
24053   end Internal_Get_Protocol;
24054
24055   ---------------------------
24056   -- Internal_Get_Provided --
24057   ---------------------------
24058
24059   function Internal_Get_Provided
24060    (Self : AMF.Internals.AMF_Element)
24061       return AMF.Internals.AMF_Collection_Of_Element is
24062   begin
24063      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
24064         when AMF.Internals.Tables.UML_Types.E_UML_Component =>
24065            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 27;
24066
24067         when AMF.Internals.Tables.UML_Types.E_UML_Port =>
24068            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
24069
24070         when others =>
24071            raise Program_Error;
24072      end case;
24073   end Internal_Get_Provided;
24074
24075   ---------------------------------
24076   -- Internal_Get_Qualified_Name --
24077   ---------------------------------
24078
24079   function Internal_Get_Qualified_Name
24080    (Self : AMF.Internals.AMF_Element)
24081       return Matreshka.Internals.Strings.Shared_String_Access is
24082   begin
24083      return
24084        AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (5).String_Value;
24085   end Internal_Get_Qualified_Name;
24086
24087   ----------------------------
24088   -- Internal_Get_Qualifier --
24089   ----------------------------
24090
24091   function Internal_Get_Qualifier
24092    (Self : AMF.Internals.AMF_Element)
24093       return AMF.Internals.AMF_Collection_Of_Element is
24094   begin
24095      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
24096         when AMF.Internals.Tables.UML_Types.E_UML_Extension_End =>
24097            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
24098
24099         when AMF.Internals.Tables.UML_Types.E_UML_Link_End_Creation_Data =>
24100            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
24101
24102         when AMF.Internals.Tables.UML_Types.E_UML_Link_End_Data =>
24103            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
24104
24105         when AMF.Internals.Tables.UML_Types.E_UML_Link_End_Destruction_Data =>
24106            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
24107
24108         when AMF.Internals.Tables.UML_Types.E_UML_Port =>
24109            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
24110
24111         when AMF.Internals.Tables.UML_Types.E_UML_Property =>
24112            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
24113
24114         when others =>
24115            raise Program_Error;
24116      end case;
24117   end Internal_Get_Qualifier;
24118
24119   ----------------------------
24120   -- Internal_Get_Qualifier --
24121   ----------------------------
24122
24123   function Internal_Get_Qualifier
24124    (Self : AMF.Internals.AMF_Element)
24125       return AMF.Internals.AMF_Element is
24126   begin
24127      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
24128         when AMF.Internals.Tables.UML_Types.E_UML_Qualifier_Value =>
24129            return
24130              AMF.Internals.Links.Opposite_Element
24131               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (2).Link, Self);
24132
24133         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Object_End_Qualifier_Action =>
24134            return
24135              AMF.Internals.Links.Opposite_Element
24136               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (13).Link, Self);
24137
24138         when others =>
24139            raise Program_Error;
24140      end case;
24141   end Internal_Get_Qualifier;
24142
24143   -----------------------------------
24144   -- Internal_Get_Raised_Exception --
24145   -----------------------------------
24146
24147   function Internal_Get_Raised_Exception
24148    (Self : AMF.Internals.AMF_Element)
24149       return AMF.Internals.AMF_Collection_Of_Element is
24150   begin
24151      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
24152         when AMF.Internals.Tables.UML_Types.E_UML_Operation =>
24153            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
24154
24155         when AMF.Internals.Tables.UML_Types.E_UML_Reception =>
24156            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
24157
24158         when others =>
24159            raise Program_Error;
24160      end case;
24161   end Internal_Get_Raised_Exception;
24162
24163   ------------------------------
24164   -- Internal_Get_Realization --
24165   ------------------------------
24166
24167   function Internal_Get_Realization
24168    (Self : AMF.Internals.AMF_Element)
24169       return AMF.Internals.AMF_Collection_Of_Element is
24170   begin
24171      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
24172         when AMF.Internals.Tables.UML_Types.E_UML_Component =>
24173            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 39;
24174
24175         when AMF.Internals.Tables.UML_Types.E_UML_Information_Flow =>
24176            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
24177
24178         when others =>
24179            raise Program_Error;
24180      end case;
24181   end Internal_Get_Realization;
24182
24183   ------------------------------------------
24184   -- Internal_Get_Realizing_Activity_Edge --
24185   ------------------------------------------
24186
24187   function Internal_Get_Realizing_Activity_Edge
24188    (Self : AMF.Internals.AMF_Element)
24189       return AMF.Internals.AMF_Collection_Of_Element is
24190   begin
24191      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
24192         when AMF.Internals.Tables.UML_Types.E_UML_Information_Flow =>
24193            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
24194
24195         when others =>
24196            raise Program_Error;
24197      end case;
24198   end Internal_Get_Realizing_Activity_Edge;
24199
24200   ---------------------------------------
24201   -- Internal_Get_Realizing_Classifier --
24202   ---------------------------------------
24203
24204   function Internal_Get_Realizing_Classifier
24205    (Self : AMF.Internals.AMF_Element)
24206       return AMF.Internals.AMF_Collection_Of_Element is
24207   begin
24208      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
24209         when AMF.Internals.Tables.UML_Types.E_UML_Component_Realization =>
24210            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
24211
24212         when others =>
24213            raise Program_Error;
24214      end case;
24215   end Internal_Get_Realizing_Classifier;
24216
24217   --------------------------------------
24218   -- Internal_Get_Realizing_Connector --
24219   --------------------------------------
24220
24221   function Internal_Get_Realizing_Connector
24222    (Self : AMF.Internals.AMF_Element)
24223       return AMF.Internals.AMF_Collection_Of_Element is
24224   begin
24225      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
24226         when AMF.Internals.Tables.UML_Types.E_UML_Information_Flow =>
24227            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
24228
24229         when others =>
24230            raise Program_Error;
24231      end case;
24232   end Internal_Get_Realizing_Connector;
24233
24234   ------------------------------------
24235   -- Internal_Get_Realizing_Message --
24236   ------------------------------------
24237
24238   function Internal_Get_Realizing_Message
24239    (Self : AMF.Internals.AMF_Element)
24240       return AMF.Internals.AMF_Collection_Of_Element is
24241   begin
24242      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
24243         when AMF.Internals.Tables.UML_Types.E_UML_Information_Flow =>
24244            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 12;
24245
24246         when others =>
24247            raise Program_Error;
24248      end case;
24249   end Internal_Get_Realizing_Message;
24250
24251   --------------------------------
24252   -- Internal_Get_Receive_Event --
24253   --------------------------------
24254
24255   function Internal_Get_Receive_Event
24256    (Self : AMF.Internals.AMF_Element)
24257       return AMF.Internals.AMF_Element is
24258   begin
24259      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
24260         when AMF.Internals.Tables.UML_Types.E_UML_Message =>
24261            return
24262              AMF.Internals.Links.Opposite_Element
24263               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (11).Link, Self);
24264
24265         when others =>
24266            raise Program_Error;
24267      end case;
24268   end Internal_Get_Receive_Event;
24269
24270   ------------------------------------
24271   -- Internal_Get_Receiving_Package --
24272   ------------------------------------
24273
24274   function Internal_Get_Receiving_Package
24275    (Self : AMF.Internals.AMF_Element)
24276       return AMF.Internals.AMF_Element is
24277   begin
24278      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
24279         when AMF.Internals.Tables.UML_Types.E_UML_Package_Merge =>
24280            return
24281              AMF.Internals.Links.Opposite_Element
24282               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
24283
24284         when others =>
24285            raise Program_Error;
24286      end case;
24287   end Internal_Get_Receiving_Package;
24288
24289   -------------------------------------
24290   -- Internal_Get_Redefined_Behavior --
24291   -------------------------------------
24292
24293   function Internal_Get_Redefined_Behavior
24294    (Self : AMF.Internals.AMF_Element)
24295       return AMF.Internals.AMF_Collection_Of_Element is
24296   begin
24297      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
24298         when AMF.Internals.Tables.UML_Types.E_UML_Activity =>
24299            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 43;
24300
24301         when AMF.Internals.Tables.UML_Types.E_UML_Function_Behavior =>
24302            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 43;
24303
24304         when AMF.Internals.Tables.UML_Types.E_UML_Interaction =>
24305            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 43;
24306
24307         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Behavior =>
24308            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 43;
24309
24310         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_State_Machine =>
24311            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 43;
24312
24313         when AMF.Internals.Tables.UML_Types.E_UML_State_Machine =>
24314            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 43;
24315
24316         when others =>
24317            raise Program_Error;
24318      end case;
24319   end Internal_Get_Redefined_Behavior;
24320
24321   ---------------------------------------
24322   -- Internal_Get_Redefined_Classifier --
24323   ---------------------------------------
24324
24325   function Internal_Get_Redefined_Classifier
24326    (Self : AMF.Internals.AMF_Element)
24327       return AMF.Internals.AMF_Collection_Of_Element is
24328   begin
24329      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
24330         when AMF.Internals.Tables.UML_Types.E_UML_Activity =>
24331            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 21;
24332
24333         when AMF.Internals.Tables.UML_Types.E_UML_Actor =>
24334            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 21;
24335
24336         when AMF.Internals.Tables.UML_Types.E_UML_Artifact =>
24337            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 21;
24338
24339         when AMF.Internals.Tables.UML_Types.E_UML_Association =>
24340            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 21;
24341
24342         when AMF.Internals.Tables.UML_Types.E_UML_Association_Class =>
24343            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 21;
24344
24345         when AMF.Internals.Tables.UML_Types.E_UML_Class =>
24346            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 21;
24347
24348         when AMF.Internals.Tables.UML_Types.E_UML_Collaboration =>
24349            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 21;
24350
24351         when AMF.Internals.Tables.UML_Types.E_UML_Communication_Path =>
24352            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 21;
24353
24354         when AMF.Internals.Tables.UML_Types.E_UML_Component =>
24355            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 21;
24356
24357         when AMF.Internals.Tables.UML_Types.E_UML_Data_Type =>
24358            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 21;
24359
24360         when AMF.Internals.Tables.UML_Types.E_UML_Deployment_Specification =>
24361            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 21;
24362
24363         when AMF.Internals.Tables.UML_Types.E_UML_Device =>
24364            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 21;
24365
24366         when AMF.Internals.Tables.UML_Types.E_UML_Enumeration =>
24367            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 21;
24368
24369         when AMF.Internals.Tables.UML_Types.E_UML_Execution_Environment =>
24370            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 21;
24371
24372         when AMF.Internals.Tables.UML_Types.E_UML_Extension =>
24373            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 21;
24374
24375         when AMF.Internals.Tables.UML_Types.E_UML_Function_Behavior =>
24376            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 21;
24377
24378         when AMF.Internals.Tables.UML_Types.E_UML_Information_Item =>
24379            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 21;
24380
24381         when AMF.Internals.Tables.UML_Types.E_UML_Interaction =>
24382            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 21;
24383
24384         when AMF.Internals.Tables.UML_Types.E_UML_Interface =>
24385            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 21;
24386
24387         when AMF.Internals.Tables.UML_Types.E_UML_Node =>
24388            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 21;
24389
24390         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Behavior =>
24391            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 21;
24392
24393         when AMF.Internals.Tables.UML_Types.E_UML_Primitive_Type =>
24394            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 21;
24395
24396         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_State_Machine =>
24397            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 21;
24398
24399         when AMF.Internals.Tables.UML_Types.E_UML_Signal =>
24400            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 21;
24401
24402         when AMF.Internals.Tables.UML_Types.E_UML_State_Machine =>
24403            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 21;
24404
24405         when AMF.Internals.Tables.UML_Types.E_UML_Stereotype =>
24406            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 21;
24407
24408         when AMF.Internals.Tables.UML_Types.E_UML_Use_Case =>
24409            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 21;
24410
24411         when others =>
24412            raise Program_Error;
24413      end case;
24414   end Internal_Get_Redefined_Classifier;
24415
24416   --------------------------------------
24417   -- Internal_Get_Redefined_Connector --
24418   --------------------------------------
24419
24420   function Internal_Get_Redefined_Connector
24421    (Self : AMF.Internals.AMF_Element)
24422       return AMF.Internals.AMF_Collection_Of_Element is
24423   begin
24424      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
24425         when AMF.Internals.Tables.UML_Types.E_UML_Connector =>
24426            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
24427
24428         when others =>
24429            raise Program_Error;
24430      end case;
24431   end Internal_Get_Redefined_Connector;
24432
24433   ---------------------------------
24434   -- Internal_Get_Redefined_Edge --
24435   ---------------------------------
24436
24437   function Internal_Get_Redefined_Edge
24438    (Self : AMF.Internals.AMF_Element)
24439       return AMF.Internals.AMF_Collection_Of_Element is
24440   begin
24441      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
24442         when AMF.Internals.Tables.UML_Types.E_UML_Control_Flow =>
24443            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
24444
24445         when AMF.Internals.Tables.UML_Types.E_UML_Object_Flow =>
24446            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 8;
24447
24448         when others =>
24449            raise Program_Error;
24450      end case;
24451   end Internal_Get_Redefined_Edge;
24452
24453   ------------------------------------
24454   -- Internal_Get_Redefined_Element --
24455   ------------------------------------
24456
24457   function Internal_Get_Redefined_Element
24458    (Self : AMF.Internals.AMF_Element)
24459       return AMF.Internals.AMF_Collection_Of_Element is
24460   begin
24461      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
24462         when AMF.Internals.Tables.UML_Types.E_UML_Accept_Call_Action =>
24463            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24464
24465         when AMF.Internals.Tables.UML_Types.E_UML_Accept_Event_Action =>
24466            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24467
24468         when AMF.Internals.Tables.UML_Types.E_UML_Action_Input_Pin =>
24469            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24470
24471         when AMF.Internals.Tables.UML_Types.E_UML_Activity =>
24472            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24473
24474         when AMF.Internals.Tables.UML_Types.E_UML_Activity_Final_Node =>
24475            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24476
24477         when AMF.Internals.Tables.UML_Types.E_UML_Activity_Parameter_Node =>
24478            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24479
24480         when AMF.Internals.Tables.UML_Types.E_UML_Actor =>
24481            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24482
24483         when AMF.Internals.Tables.UML_Types.E_UML_Add_Structural_Feature_Value_Action =>
24484            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24485
24486         when AMF.Internals.Tables.UML_Types.E_UML_Add_Variable_Value_Action =>
24487            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24488
24489         when AMF.Internals.Tables.UML_Types.E_UML_Artifact =>
24490            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24491
24492         when AMF.Internals.Tables.UML_Types.E_UML_Association =>
24493            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24494
24495         when AMF.Internals.Tables.UML_Types.E_UML_Association_Class =>
24496            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24497
24498         when AMF.Internals.Tables.UML_Types.E_UML_Broadcast_Signal_Action =>
24499            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24500
24501         when AMF.Internals.Tables.UML_Types.E_UML_Call_Behavior_Action =>
24502            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24503
24504         when AMF.Internals.Tables.UML_Types.E_UML_Call_Operation_Action =>
24505            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24506
24507         when AMF.Internals.Tables.UML_Types.E_UML_Central_Buffer_Node =>
24508            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24509
24510         when AMF.Internals.Tables.UML_Types.E_UML_Class =>
24511            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24512
24513         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Association_Action =>
24514            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24515
24516         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Structural_Feature_Action =>
24517            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24518
24519         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Variable_Action =>
24520            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24521
24522         when AMF.Internals.Tables.UML_Types.E_UML_Collaboration =>
24523            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24524
24525         when AMF.Internals.Tables.UML_Types.E_UML_Communication_Path =>
24526            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24527
24528         when AMF.Internals.Tables.UML_Types.E_UML_Component =>
24529            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24530
24531         when AMF.Internals.Tables.UML_Types.E_UML_Conditional_Node =>
24532            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24533
24534         when AMF.Internals.Tables.UML_Types.E_UML_Connector =>
24535            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24536
24537         when AMF.Internals.Tables.UML_Types.E_UML_Control_Flow =>
24538            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24539
24540         when AMF.Internals.Tables.UML_Types.E_UML_Create_Link_Action =>
24541            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24542
24543         when AMF.Internals.Tables.UML_Types.E_UML_Create_Link_Object_Action =>
24544            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24545
24546         when AMF.Internals.Tables.UML_Types.E_UML_Create_Object_Action =>
24547            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24548
24549         when AMF.Internals.Tables.UML_Types.E_UML_Data_Store_Node =>
24550            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24551
24552         when AMF.Internals.Tables.UML_Types.E_UML_Data_Type =>
24553            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24554
24555         when AMF.Internals.Tables.UML_Types.E_UML_Decision_Node =>
24556            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24557
24558         when AMF.Internals.Tables.UML_Types.E_UML_Deployment_Specification =>
24559            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24560
24561         when AMF.Internals.Tables.UML_Types.E_UML_Destroy_Link_Action =>
24562            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24563
24564         when AMF.Internals.Tables.UML_Types.E_UML_Destroy_Object_Action =>
24565            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24566
24567         when AMF.Internals.Tables.UML_Types.E_UML_Device =>
24568            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24569
24570         when AMF.Internals.Tables.UML_Types.E_UML_Enumeration =>
24571            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24572
24573         when AMF.Internals.Tables.UML_Types.E_UML_Execution_Environment =>
24574            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24575
24576         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Node =>
24577            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24578
24579         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Region =>
24580            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24581
24582         when AMF.Internals.Tables.UML_Types.E_UML_Extension =>
24583            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24584
24585         when AMF.Internals.Tables.UML_Types.E_UML_Extension_End =>
24586            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24587
24588         when AMF.Internals.Tables.UML_Types.E_UML_Extension_Point =>
24589            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24590
24591         when AMF.Internals.Tables.UML_Types.E_UML_Final_State =>
24592            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24593
24594         when AMF.Internals.Tables.UML_Types.E_UML_Flow_Final_Node =>
24595            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24596
24597         when AMF.Internals.Tables.UML_Types.E_UML_Fork_Node =>
24598            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24599
24600         when AMF.Internals.Tables.UML_Types.E_UML_Function_Behavior =>
24601            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24602
24603         when AMF.Internals.Tables.UML_Types.E_UML_Information_Item =>
24604            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24605
24606         when AMF.Internals.Tables.UML_Types.E_UML_Initial_Node =>
24607            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24608
24609         when AMF.Internals.Tables.UML_Types.E_UML_Input_Pin =>
24610            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24611
24612         when AMF.Internals.Tables.UML_Types.E_UML_Interaction =>
24613            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24614
24615         when AMF.Internals.Tables.UML_Types.E_UML_Interface =>
24616            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24617
24618         when AMF.Internals.Tables.UML_Types.E_UML_Join_Node =>
24619            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24620
24621         when AMF.Internals.Tables.UML_Types.E_UML_Loop_Node =>
24622            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24623
24624         when AMF.Internals.Tables.UML_Types.E_UML_Merge_Node =>
24625            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24626
24627         when AMF.Internals.Tables.UML_Types.E_UML_Node =>
24628            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24629
24630         when AMF.Internals.Tables.UML_Types.E_UML_Object_Flow =>
24631            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24632
24633         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Action =>
24634            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24635
24636         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Behavior =>
24637            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24638
24639         when AMF.Internals.Tables.UML_Types.E_UML_Operation =>
24640            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24641
24642         when AMF.Internals.Tables.UML_Types.E_UML_Output_Pin =>
24643            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24644
24645         when AMF.Internals.Tables.UML_Types.E_UML_Port =>
24646            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24647
24648         when AMF.Internals.Tables.UML_Types.E_UML_Primitive_Type =>
24649            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24650
24651         when AMF.Internals.Tables.UML_Types.E_UML_Property =>
24652            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24653
24654         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_State_Machine =>
24655            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24656
24657         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_Transition =>
24658            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24659
24660         when AMF.Internals.Tables.UML_Types.E_UML_Raise_Exception_Action =>
24661            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24662
24663         when AMF.Internals.Tables.UML_Types.E_UML_Read_Extent_Action =>
24664            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24665
24666         when AMF.Internals.Tables.UML_Types.E_UML_Read_Is_Classified_Object_Action =>
24667            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24668
24669         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Action =>
24670            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24671
24672         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Object_End_Action =>
24673            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24674
24675         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Object_End_Qualifier_Action =>
24676            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24677
24678         when AMF.Internals.Tables.UML_Types.E_UML_Read_Self_Action =>
24679            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24680
24681         when AMF.Internals.Tables.UML_Types.E_UML_Read_Structural_Feature_Action =>
24682            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24683
24684         when AMF.Internals.Tables.UML_Types.E_UML_Read_Variable_Action =>
24685            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24686
24687         when AMF.Internals.Tables.UML_Types.E_UML_Reception =>
24688            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24689
24690         when AMF.Internals.Tables.UML_Types.E_UML_Reclassify_Object_Action =>
24691            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24692
24693         when AMF.Internals.Tables.UML_Types.E_UML_Redefinable_Template_Signature =>
24694            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24695
24696         when AMF.Internals.Tables.UML_Types.E_UML_Reduce_Action =>
24697            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24698
24699         when AMF.Internals.Tables.UML_Types.E_UML_Region =>
24700            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24701
24702         when AMF.Internals.Tables.UML_Types.E_UML_Remove_Structural_Feature_Value_Action =>
24703            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24704
24705         when AMF.Internals.Tables.UML_Types.E_UML_Remove_Variable_Value_Action =>
24706            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24707
24708         when AMF.Internals.Tables.UML_Types.E_UML_Reply_Action =>
24709            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24710
24711         when AMF.Internals.Tables.UML_Types.E_UML_Send_Object_Action =>
24712            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24713
24714         when AMF.Internals.Tables.UML_Types.E_UML_Send_Signal_Action =>
24715            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24716
24717         when AMF.Internals.Tables.UML_Types.E_UML_Sequence_Node =>
24718            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24719
24720         when AMF.Internals.Tables.UML_Types.E_UML_Signal =>
24721            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24722
24723         when AMF.Internals.Tables.UML_Types.E_UML_Start_Classifier_Behavior_Action =>
24724            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24725
24726         when AMF.Internals.Tables.UML_Types.E_UML_Start_Object_Behavior_Action =>
24727            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24728
24729         when AMF.Internals.Tables.UML_Types.E_UML_State =>
24730            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24731
24732         when AMF.Internals.Tables.UML_Types.E_UML_State_Machine =>
24733            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24734
24735         when AMF.Internals.Tables.UML_Types.E_UML_Stereotype =>
24736            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24737
24738         when AMF.Internals.Tables.UML_Types.E_UML_Structured_Activity_Node =>
24739            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24740
24741         when AMF.Internals.Tables.UML_Types.E_UML_Test_Identity_Action =>
24742            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24743
24744         when AMF.Internals.Tables.UML_Types.E_UML_Transition =>
24745            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24746
24747         when AMF.Internals.Tables.UML_Types.E_UML_Unmarshall_Action =>
24748            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24749
24750         when AMF.Internals.Tables.UML_Types.E_UML_Use_Case =>
24751            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24752
24753         when AMF.Internals.Tables.UML_Types.E_UML_Value_Pin =>
24754            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24755
24756         when AMF.Internals.Tables.UML_Types.E_UML_Value_Specification_Action =>
24757            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
24758
24759         when others =>
24760            raise Program_Error;
24761      end case;
24762   end Internal_Get_Redefined_Element;
24763
24764   --------------------------------------
24765   -- Internal_Get_Redefined_Interface --
24766   --------------------------------------
24767
24768   function Internal_Get_Redefined_Interface
24769    (Self : AMF.Internals.AMF_Element)
24770       return AMF.Internals.AMF_Collection_Of_Element is
24771   begin
24772      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
24773         when AMF.Internals.Tables.UML_Types.E_UML_Interface =>
24774            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 28;
24775
24776         when others =>
24777            raise Program_Error;
24778      end case;
24779   end Internal_Get_Redefined_Interface;
24780
24781   ---------------------------------
24782   -- Internal_Get_Redefined_Node --
24783   ---------------------------------
24784
24785   function Internal_Get_Redefined_Node
24786    (Self : AMF.Internals.AMF_Element)
24787       return AMF.Internals.AMF_Collection_Of_Element is
24788   begin
24789      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
24790         when AMF.Internals.Tables.UML_Types.E_UML_Accept_Call_Action =>
24791            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
24792
24793         when AMF.Internals.Tables.UML_Types.E_UML_Accept_Event_Action =>
24794            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
24795
24796         when AMF.Internals.Tables.UML_Types.E_UML_Action_Input_Pin =>
24797            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
24798
24799         when AMF.Internals.Tables.UML_Types.E_UML_Activity_Final_Node =>
24800            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
24801
24802         when AMF.Internals.Tables.UML_Types.E_UML_Activity_Parameter_Node =>
24803            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
24804
24805         when AMF.Internals.Tables.UML_Types.E_UML_Add_Structural_Feature_Value_Action =>
24806            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
24807
24808         when AMF.Internals.Tables.UML_Types.E_UML_Add_Variable_Value_Action =>
24809            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
24810
24811         when AMF.Internals.Tables.UML_Types.E_UML_Broadcast_Signal_Action =>
24812            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
24813
24814         when AMF.Internals.Tables.UML_Types.E_UML_Call_Behavior_Action =>
24815            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
24816
24817         when AMF.Internals.Tables.UML_Types.E_UML_Call_Operation_Action =>
24818            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
24819
24820         when AMF.Internals.Tables.UML_Types.E_UML_Central_Buffer_Node =>
24821            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
24822
24823         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Association_Action =>
24824            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
24825
24826         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Structural_Feature_Action =>
24827            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
24828
24829         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Variable_Action =>
24830            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
24831
24832         when AMF.Internals.Tables.UML_Types.E_UML_Conditional_Node =>
24833            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
24834
24835         when AMF.Internals.Tables.UML_Types.E_UML_Create_Link_Action =>
24836            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
24837
24838         when AMF.Internals.Tables.UML_Types.E_UML_Create_Link_Object_Action =>
24839            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
24840
24841         when AMF.Internals.Tables.UML_Types.E_UML_Create_Object_Action =>
24842            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
24843
24844         when AMF.Internals.Tables.UML_Types.E_UML_Data_Store_Node =>
24845            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
24846
24847         when AMF.Internals.Tables.UML_Types.E_UML_Decision_Node =>
24848            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
24849
24850         when AMF.Internals.Tables.UML_Types.E_UML_Destroy_Link_Action =>
24851            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
24852
24853         when AMF.Internals.Tables.UML_Types.E_UML_Destroy_Object_Action =>
24854            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
24855
24856         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Node =>
24857            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
24858
24859         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Region =>
24860            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
24861
24862         when AMF.Internals.Tables.UML_Types.E_UML_Flow_Final_Node =>
24863            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
24864
24865         when AMF.Internals.Tables.UML_Types.E_UML_Fork_Node =>
24866            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
24867
24868         when AMF.Internals.Tables.UML_Types.E_UML_Initial_Node =>
24869            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
24870
24871         when AMF.Internals.Tables.UML_Types.E_UML_Input_Pin =>
24872            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
24873
24874         when AMF.Internals.Tables.UML_Types.E_UML_Join_Node =>
24875            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
24876
24877         when AMF.Internals.Tables.UML_Types.E_UML_Loop_Node =>
24878            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
24879
24880         when AMF.Internals.Tables.UML_Types.E_UML_Merge_Node =>
24881            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
24882
24883         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Action =>
24884            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
24885
24886         when AMF.Internals.Tables.UML_Types.E_UML_Output_Pin =>
24887            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
24888
24889         when AMF.Internals.Tables.UML_Types.E_UML_Raise_Exception_Action =>
24890            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
24891
24892         when AMF.Internals.Tables.UML_Types.E_UML_Read_Extent_Action =>
24893            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
24894
24895         when AMF.Internals.Tables.UML_Types.E_UML_Read_Is_Classified_Object_Action =>
24896            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
24897
24898         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Action =>
24899            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
24900
24901         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Object_End_Action =>
24902            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
24903
24904         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Object_End_Qualifier_Action =>
24905            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
24906
24907         when AMF.Internals.Tables.UML_Types.E_UML_Read_Self_Action =>
24908            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
24909
24910         when AMF.Internals.Tables.UML_Types.E_UML_Read_Structural_Feature_Action =>
24911            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
24912
24913         when AMF.Internals.Tables.UML_Types.E_UML_Read_Variable_Action =>
24914            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
24915
24916         when AMF.Internals.Tables.UML_Types.E_UML_Reclassify_Object_Action =>
24917            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
24918
24919         when AMF.Internals.Tables.UML_Types.E_UML_Reduce_Action =>
24920            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
24921
24922         when AMF.Internals.Tables.UML_Types.E_UML_Remove_Structural_Feature_Value_Action =>
24923            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
24924
24925         when AMF.Internals.Tables.UML_Types.E_UML_Remove_Variable_Value_Action =>
24926            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
24927
24928         when AMF.Internals.Tables.UML_Types.E_UML_Reply_Action =>
24929            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
24930
24931         when AMF.Internals.Tables.UML_Types.E_UML_Send_Object_Action =>
24932            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
24933
24934         when AMF.Internals.Tables.UML_Types.E_UML_Send_Signal_Action =>
24935            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
24936
24937         when AMF.Internals.Tables.UML_Types.E_UML_Sequence_Node =>
24938            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
24939
24940         when AMF.Internals.Tables.UML_Types.E_UML_Start_Classifier_Behavior_Action =>
24941            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
24942
24943         when AMF.Internals.Tables.UML_Types.E_UML_Start_Object_Behavior_Action =>
24944            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
24945
24946         when AMF.Internals.Tables.UML_Types.E_UML_Structured_Activity_Node =>
24947            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
24948
24949         when AMF.Internals.Tables.UML_Types.E_UML_Test_Identity_Action =>
24950            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
24951
24952         when AMF.Internals.Tables.UML_Types.E_UML_Unmarshall_Action =>
24953            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
24954
24955         when AMF.Internals.Tables.UML_Types.E_UML_Value_Pin =>
24956            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
24957
24958         when AMF.Internals.Tables.UML_Types.E_UML_Value_Specification_Action =>
24959            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
24960
24961         when others =>
24962            raise Program_Error;
24963      end case;
24964   end Internal_Get_Redefined_Node;
24965
24966   --------------------------------------
24967   -- Internal_Get_Redefined_Operation --
24968   --------------------------------------
24969
24970   function Internal_Get_Redefined_Operation
24971    (Self : AMF.Internals.AMF_Element)
24972       return AMF.Internals.AMF_Collection_Of_Element is
24973   begin
24974      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
24975         when AMF.Internals.Tables.UML_Types.E_UML_Operation =>
24976            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 22;
24977
24978         when others =>
24979            raise Program_Error;
24980      end case;
24981   end Internal_Get_Redefined_Operation;
24982
24983   ---------------------------------
24984   -- Internal_Get_Redefined_Port --
24985   ---------------------------------
24986
24987   function Internal_Get_Redefined_Port
24988    (Self : AMF.Internals.AMF_Element)
24989       return AMF.Internals.AMF_Collection_Of_Element is
24990   begin
24991      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
24992         when AMF.Internals.Tables.UML_Types.E_UML_Port =>
24993            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 12;
24994
24995         when others =>
24996            raise Program_Error;
24997      end case;
24998   end Internal_Get_Redefined_Port;
24999
25000   -------------------------------------
25001   -- Internal_Get_Redefined_Property --
25002   -------------------------------------
25003
25004   function Internal_Get_Redefined_Property
25005    (Self : AMF.Internals.AMF_Element)
25006       return AMF.Internals.AMF_Collection_Of_Element is
25007   begin
25008      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
25009         when AMF.Internals.Tables.UML_Types.E_UML_Extension_End =>
25010            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
25011
25012         when AMF.Internals.Tables.UML_Types.E_UML_Port =>
25013            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
25014
25015         when AMF.Internals.Tables.UML_Types.E_UML_Property =>
25016            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 9;
25017
25018         when others =>
25019            raise Program_Error;
25020      end case;
25021   end Internal_Get_Redefined_Property;
25022
25023   ----------------------------------
25024   -- Internal_Get_Redefined_State --
25025   ----------------------------------
25026
25027   function Internal_Get_Redefined_State
25028    (Self : AMF.Internals.AMF_Element)
25029       return AMF.Internals.AMF_Element is
25030   begin
25031      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
25032         when AMF.Internals.Tables.UML_Types.E_UML_Final_State =>
25033            return
25034              AMF.Internals.Links.Opposite_Element
25035               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (15).Link, Self);
25036
25037         when AMF.Internals.Tables.UML_Types.E_UML_State =>
25038            return
25039              AMF.Internals.Links.Opposite_Element
25040               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (15).Link, Self);
25041
25042         when others =>
25043            raise Program_Error;
25044      end case;
25045   end Internal_Get_Redefined_State;
25046
25047   ---------------------------------------
25048   -- Internal_Get_Redefined_Transition --
25049   ---------------------------------------
25050
25051   function Internal_Get_Redefined_Transition
25052    (Self : AMF.Internals.AMF_Element)
25053       return AMF.Internals.AMF_Element is
25054   begin
25055      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
25056         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_Transition =>
25057            return
25058              AMF.Internals.Links.Opposite_Element
25059               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Link, Self);
25060
25061         when AMF.Internals.Tables.UML_Types.E_UML_Transition =>
25062            return
25063              AMF.Internals.Links.Opposite_Element
25064               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Link, Self);
25065
25066         when others =>
25067            raise Program_Error;
25068      end case;
25069   end Internal_Get_Redefined_Transition;
25070
25071   ---------------------------------------
25072   -- Internal_Get_Redefinition_Context --
25073   ---------------------------------------
25074
25075   function Internal_Get_Redefinition_Context
25076    (Self : AMF.Internals.AMF_Element)
25077       return AMF.Internals.AMF_Collection_Of_Element is
25078   begin
25079      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
25080         when AMF.Internals.Tables.UML_Types.E_UML_Accept_Call_Action =>
25081            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25082
25083         when AMF.Internals.Tables.UML_Types.E_UML_Accept_Event_Action =>
25084            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25085
25086         when AMF.Internals.Tables.UML_Types.E_UML_Action_Input_Pin =>
25087            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25088
25089         when AMF.Internals.Tables.UML_Types.E_UML_Activity =>
25090            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25091
25092         when AMF.Internals.Tables.UML_Types.E_UML_Activity_Final_Node =>
25093            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25094
25095         when AMF.Internals.Tables.UML_Types.E_UML_Activity_Parameter_Node =>
25096            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25097
25098         when AMF.Internals.Tables.UML_Types.E_UML_Actor =>
25099            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25100
25101         when AMF.Internals.Tables.UML_Types.E_UML_Add_Structural_Feature_Value_Action =>
25102            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25103
25104         when AMF.Internals.Tables.UML_Types.E_UML_Add_Variable_Value_Action =>
25105            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25106
25107         when AMF.Internals.Tables.UML_Types.E_UML_Artifact =>
25108            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25109
25110         when AMF.Internals.Tables.UML_Types.E_UML_Association =>
25111            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25112
25113         when AMF.Internals.Tables.UML_Types.E_UML_Association_Class =>
25114            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25115
25116         when AMF.Internals.Tables.UML_Types.E_UML_Broadcast_Signal_Action =>
25117            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25118
25119         when AMF.Internals.Tables.UML_Types.E_UML_Call_Behavior_Action =>
25120            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25121
25122         when AMF.Internals.Tables.UML_Types.E_UML_Call_Operation_Action =>
25123            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25124
25125         when AMF.Internals.Tables.UML_Types.E_UML_Central_Buffer_Node =>
25126            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25127
25128         when AMF.Internals.Tables.UML_Types.E_UML_Class =>
25129            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25130
25131         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Association_Action =>
25132            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25133
25134         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Structural_Feature_Action =>
25135            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25136
25137         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Variable_Action =>
25138            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25139
25140         when AMF.Internals.Tables.UML_Types.E_UML_Collaboration =>
25141            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25142
25143         when AMF.Internals.Tables.UML_Types.E_UML_Communication_Path =>
25144            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25145
25146         when AMF.Internals.Tables.UML_Types.E_UML_Component =>
25147            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25148
25149         when AMF.Internals.Tables.UML_Types.E_UML_Conditional_Node =>
25150            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25151
25152         when AMF.Internals.Tables.UML_Types.E_UML_Connector =>
25153            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25154
25155         when AMF.Internals.Tables.UML_Types.E_UML_Control_Flow =>
25156            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25157
25158         when AMF.Internals.Tables.UML_Types.E_UML_Create_Link_Action =>
25159            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25160
25161         when AMF.Internals.Tables.UML_Types.E_UML_Create_Link_Object_Action =>
25162            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25163
25164         when AMF.Internals.Tables.UML_Types.E_UML_Create_Object_Action =>
25165            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25166
25167         when AMF.Internals.Tables.UML_Types.E_UML_Data_Store_Node =>
25168            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25169
25170         when AMF.Internals.Tables.UML_Types.E_UML_Data_Type =>
25171            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25172
25173         when AMF.Internals.Tables.UML_Types.E_UML_Decision_Node =>
25174            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25175
25176         when AMF.Internals.Tables.UML_Types.E_UML_Deployment_Specification =>
25177            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25178
25179         when AMF.Internals.Tables.UML_Types.E_UML_Destroy_Link_Action =>
25180            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25181
25182         when AMF.Internals.Tables.UML_Types.E_UML_Destroy_Object_Action =>
25183            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25184
25185         when AMF.Internals.Tables.UML_Types.E_UML_Device =>
25186            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25187
25188         when AMF.Internals.Tables.UML_Types.E_UML_Enumeration =>
25189            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25190
25191         when AMF.Internals.Tables.UML_Types.E_UML_Execution_Environment =>
25192            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25193
25194         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Node =>
25195            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25196
25197         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Region =>
25198            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25199
25200         when AMF.Internals.Tables.UML_Types.E_UML_Extension =>
25201            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25202
25203         when AMF.Internals.Tables.UML_Types.E_UML_Extension_End =>
25204            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25205
25206         when AMF.Internals.Tables.UML_Types.E_UML_Extension_Point =>
25207            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25208
25209         when AMF.Internals.Tables.UML_Types.E_UML_Final_State =>
25210            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25211
25212         when AMF.Internals.Tables.UML_Types.E_UML_Flow_Final_Node =>
25213            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25214
25215         when AMF.Internals.Tables.UML_Types.E_UML_Fork_Node =>
25216            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25217
25218         when AMF.Internals.Tables.UML_Types.E_UML_Function_Behavior =>
25219            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25220
25221         when AMF.Internals.Tables.UML_Types.E_UML_Information_Item =>
25222            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25223
25224         when AMF.Internals.Tables.UML_Types.E_UML_Initial_Node =>
25225            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25226
25227         when AMF.Internals.Tables.UML_Types.E_UML_Input_Pin =>
25228            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25229
25230         when AMF.Internals.Tables.UML_Types.E_UML_Interaction =>
25231            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25232
25233         when AMF.Internals.Tables.UML_Types.E_UML_Interface =>
25234            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25235
25236         when AMF.Internals.Tables.UML_Types.E_UML_Join_Node =>
25237            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25238
25239         when AMF.Internals.Tables.UML_Types.E_UML_Loop_Node =>
25240            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25241
25242         when AMF.Internals.Tables.UML_Types.E_UML_Merge_Node =>
25243            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25244
25245         when AMF.Internals.Tables.UML_Types.E_UML_Node =>
25246            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25247
25248         when AMF.Internals.Tables.UML_Types.E_UML_Object_Flow =>
25249            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25250
25251         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Action =>
25252            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25253
25254         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Behavior =>
25255            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25256
25257         when AMF.Internals.Tables.UML_Types.E_UML_Operation =>
25258            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25259
25260         when AMF.Internals.Tables.UML_Types.E_UML_Output_Pin =>
25261            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25262
25263         when AMF.Internals.Tables.UML_Types.E_UML_Port =>
25264            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25265
25266         when AMF.Internals.Tables.UML_Types.E_UML_Primitive_Type =>
25267            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25268
25269         when AMF.Internals.Tables.UML_Types.E_UML_Property =>
25270            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25271
25272         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_State_Machine =>
25273            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25274
25275         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_Transition =>
25276            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25277
25278         when AMF.Internals.Tables.UML_Types.E_UML_Raise_Exception_Action =>
25279            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25280
25281         when AMF.Internals.Tables.UML_Types.E_UML_Read_Extent_Action =>
25282            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25283
25284         when AMF.Internals.Tables.UML_Types.E_UML_Read_Is_Classified_Object_Action =>
25285            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25286
25287         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Action =>
25288            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25289
25290         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Object_End_Action =>
25291            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25292
25293         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Object_End_Qualifier_Action =>
25294            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25295
25296         when AMF.Internals.Tables.UML_Types.E_UML_Read_Self_Action =>
25297            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25298
25299         when AMF.Internals.Tables.UML_Types.E_UML_Read_Structural_Feature_Action =>
25300            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25301
25302         when AMF.Internals.Tables.UML_Types.E_UML_Read_Variable_Action =>
25303            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25304
25305         when AMF.Internals.Tables.UML_Types.E_UML_Reception =>
25306            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25307
25308         when AMF.Internals.Tables.UML_Types.E_UML_Reclassify_Object_Action =>
25309            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25310
25311         when AMF.Internals.Tables.UML_Types.E_UML_Redefinable_Template_Signature =>
25312            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25313
25314         when AMF.Internals.Tables.UML_Types.E_UML_Reduce_Action =>
25315            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25316
25317         when AMF.Internals.Tables.UML_Types.E_UML_Region =>
25318            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25319
25320         when AMF.Internals.Tables.UML_Types.E_UML_Remove_Structural_Feature_Value_Action =>
25321            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25322
25323         when AMF.Internals.Tables.UML_Types.E_UML_Remove_Variable_Value_Action =>
25324            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25325
25326         when AMF.Internals.Tables.UML_Types.E_UML_Reply_Action =>
25327            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25328
25329         when AMF.Internals.Tables.UML_Types.E_UML_Send_Object_Action =>
25330            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25331
25332         when AMF.Internals.Tables.UML_Types.E_UML_Send_Signal_Action =>
25333            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25334
25335         when AMF.Internals.Tables.UML_Types.E_UML_Sequence_Node =>
25336            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25337
25338         when AMF.Internals.Tables.UML_Types.E_UML_Signal =>
25339            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25340
25341         when AMF.Internals.Tables.UML_Types.E_UML_Start_Classifier_Behavior_Action =>
25342            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25343
25344         when AMF.Internals.Tables.UML_Types.E_UML_Start_Object_Behavior_Action =>
25345            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25346
25347         when AMF.Internals.Tables.UML_Types.E_UML_State =>
25348            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25349
25350         when AMF.Internals.Tables.UML_Types.E_UML_State_Machine =>
25351            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25352
25353         when AMF.Internals.Tables.UML_Types.E_UML_Stereotype =>
25354            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25355
25356         when AMF.Internals.Tables.UML_Types.E_UML_Structured_Activity_Node =>
25357            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25358
25359         when AMF.Internals.Tables.UML_Types.E_UML_Test_Identity_Action =>
25360            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25361
25362         when AMF.Internals.Tables.UML_Types.E_UML_Transition =>
25363            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25364
25365         when AMF.Internals.Tables.UML_Types.E_UML_Unmarshall_Action =>
25366            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25367
25368         when AMF.Internals.Tables.UML_Types.E_UML_Use_Case =>
25369            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25370
25371         when AMF.Internals.Tables.UML_Types.E_UML_Value_Pin =>
25372            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25373
25374         when AMF.Internals.Tables.UML_Types.E_UML_Value_Specification_Action =>
25375            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
25376
25377         when others =>
25378            raise Program_Error;
25379      end case;
25380   end Internal_Get_Redefinition_Context;
25381
25382   ---------------------------------------
25383   -- Internal_Get_Redefinition_Context --
25384   ---------------------------------------
25385
25386   function Internal_Get_Redefinition_Context
25387    (Self : AMF.Internals.AMF_Element)
25388       return AMF.Internals.AMF_Element is
25389   begin
25390      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
25391         when AMF.Internals.Tables.UML_Types.E_UML_Final_State =>
25392            return
25393              AMF.Internals.Links.Opposite_Element
25394               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Link, Self);
25395
25396         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_Transition =>
25397            return
25398              AMF.Internals.Links.Opposite_Element
25399               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (13).Link, Self);
25400
25401         when AMF.Internals.Tables.UML_Types.E_UML_Region =>
25402            return
25403              AMF.Internals.Links.Opposite_Element
25404               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
25405
25406         when AMF.Internals.Tables.UML_Types.E_UML_State =>
25407            return
25408              AMF.Internals.Links.Opposite_Element
25409               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Link, Self);
25410
25411         when AMF.Internals.Tables.UML_Types.E_UML_Transition =>
25412            return
25413              AMF.Internals.Links.Opposite_Element
25414               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (13).Link, Self);
25415
25416         when others =>
25417            raise Program_Error;
25418      end case;
25419   end Internal_Get_Redefinition_Context;
25420
25421   --------------------------
25422   -- Internal_Get_Reducer --
25423   --------------------------
25424
25425   function Internal_Get_Reducer
25426    (Self : AMF.Internals.AMF_Element)
25427       return AMF.Internals.AMF_Element is
25428   begin
25429      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
25430         when AMF.Internals.Tables.UML_Types.E_UML_Reduce_Action =>
25431            return
25432              AMF.Internals.Links.Opposite_Element
25433               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Link, Self);
25434
25435         when others =>
25436            raise Program_Error;
25437      end case;
25438   end Internal_Get_Reducer;
25439
25440   ---------------------------
25441   -- Internal_Get_Referred --
25442   ---------------------------
25443
25444   function Internal_Get_Referred
25445    (Self : AMF.Internals.AMF_Element)
25446       return AMF.Internals.AMF_Collection_Of_Element is
25447   begin
25448      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
25449         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_Transition =>
25450            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
25451
25452         when others =>
25453            raise Program_Error;
25454      end case;
25455   end Internal_Get_Referred;
25456
25457   ----------------------------
25458   -- Internal_Get_Refers_To --
25459   ----------------------------
25460
25461   function Internal_Get_Refers_To
25462    (Self : AMF.Internals.AMF_Element)
25463       return AMF.Internals.AMF_Element is
25464   begin
25465      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
25466         when AMF.Internals.Tables.UML_Types.E_UML_Interaction_Use =>
25467            return
25468              AMF.Internals.Links.Opposite_Element
25469               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Link, Self);
25470
25471         when AMF.Internals.Tables.UML_Types.E_UML_Part_Decomposition =>
25472            return
25473              AMF.Internals.Links.Opposite_Element
25474               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Link, Self);
25475
25476         when others =>
25477            raise Program_Error;
25478      end case;
25479   end Internal_Get_Refers_To;
25480
25481   -------------------------
25482   -- Internal_Get_Region --
25483   -------------------------
25484
25485   function Internal_Get_Region
25486    (Self : AMF.Internals.AMF_Element)
25487       return AMF.Internals.AMF_Collection_Of_Element is
25488   begin
25489      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
25490         when AMF.Internals.Tables.UML_Types.E_UML_Final_State =>
25491            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
25492
25493         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_State_Machine =>
25494            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 44;
25495
25496         when AMF.Internals.Tables.UML_Types.E_UML_State =>
25497            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 11;
25498
25499         when AMF.Internals.Tables.UML_Types.E_UML_State_Machine =>
25500            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 44;
25501
25502         when others =>
25503            raise Program_Error;
25504      end case;
25505   end Internal_Get_Region;
25506
25507   ----------------------------------
25508   -- Internal_Get_Region_As_Input --
25509   ----------------------------------
25510
25511   function Internal_Get_Region_As_Input
25512    (Self : AMF.Internals.AMF_Element)
25513       return AMF.Internals.AMF_Element is
25514   begin
25515      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
25516         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Node =>
25517            return
25518              AMF.Internals.Links.Opposite_Element
25519               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
25520
25521         when others =>
25522            raise Program_Error;
25523      end case;
25524   end Internal_Get_Region_As_Input;
25525
25526   -----------------------------------
25527   -- Internal_Get_Region_As_Output --
25528   -----------------------------------
25529
25530   function Internal_Get_Region_As_Output
25531    (Self : AMF.Internals.AMF_Element)
25532       return AMF.Internals.AMF_Element is
25533   begin
25534      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
25535         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Node =>
25536            return
25537              AMF.Internals.Links.Opposite_Element
25538               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Link, Self);
25539
25540         when others =>
25541            raise Program_Error;
25542      end case;
25543   end Internal_Get_Region_As_Output;
25544
25545   ----------------------------------
25546   -- Internal_Get_Related_Element --
25547   ----------------------------------
25548
25549   function Internal_Get_Related_Element
25550    (Self : AMF.Internals.AMF_Element)
25551       return AMF.Internals.AMF_Collection_Of_Element is
25552   begin
25553      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
25554         when AMF.Internals.Tables.UML_Types.E_UML_Abstraction =>
25555            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 24;
25556
25557         when AMF.Internals.Tables.UML_Types.E_UML_Association =>
25558            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 24;
25559
25560         when AMF.Internals.Tables.UML_Types.E_UML_Association_Class =>
25561            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 24;
25562
25563         when AMF.Internals.Tables.UML_Types.E_UML_Communication_Path =>
25564            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 24;
25565
25566         when AMF.Internals.Tables.UML_Types.E_UML_Component_Realization =>
25567            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 24;
25568
25569         when AMF.Internals.Tables.UML_Types.E_UML_Dependency =>
25570            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 24;
25571
25572         when AMF.Internals.Tables.UML_Types.E_UML_Deployment =>
25573            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 24;
25574
25575         when AMF.Internals.Tables.UML_Types.E_UML_Element_Import =>
25576            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 24;
25577
25578         when AMF.Internals.Tables.UML_Types.E_UML_Extend =>
25579            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 24;
25580
25581         when AMF.Internals.Tables.UML_Types.E_UML_Extension =>
25582            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 24;
25583
25584         when AMF.Internals.Tables.UML_Types.E_UML_Generalization =>
25585            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 24;
25586
25587         when AMF.Internals.Tables.UML_Types.E_UML_Include =>
25588            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 24;
25589
25590         when AMF.Internals.Tables.UML_Types.E_UML_Information_Flow =>
25591            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 24;
25592
25593         when AMF.Internals.Tables.UML_Types.E_UML_Interface_Realization =>
25594            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 24;
25595
25596         when AMF.Internals.Tables.UML_Types.E_UML_Manifestation =>
25597            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 24;
25598
25599         when AMF.Internals.Tables.UML_Types.E_UML_Package_Import =>
25600            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 24;
25601
25602         when AMF.Internals.Tables.UML_Types.E_UML_Package_Merge =>
25603            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 24;
25604
25605         when AMF.Internals.Tables.UML_Types.E_UML_Profile_Application =>
25606            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 24;
25607
25608         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_Conformance =>
25609            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 24;
25610
25611         when AMF.Internals.Tables.UML_Types.E_UML_Realization =>
25612            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 24;
25613
25614         when AMF.Internals.Tables.UML_Types.E_UML_Substitution =>
25615            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 24;
25616
25617         when AMF.Internals.Tables.UML_Types.E_UML_Template_Binding =>
25618            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 24;
25619
25620         when AMF.Internals.Tables.UML_Types.E_UML_Usage =>
25621            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 24;
25622
25623         when others =>
25624            raise Program_Error;
25625      end case;
25626   end Internal_Get_Related_Element;
25627
25628   ----------------------------
25629   -- Internal_Get_Remove_At --
25630   ----------------------------
25631
25632   function Internal_Get_Remove_At
25633    (Self : AMF.Internals.AMF_Element)
25634       return AMF.Internals.AMF_Element is
25635   begin
25636      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
25637         when AMF.Internals.Tables.UML_Types.E_UML_Remove_Structural_Feature_Value_Action =>
25638            return
25639              AMF.Internals.Links.Opposite_Element
25640               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (17).Link, Self);
25641
25642         when AMF.Internals.Tables.UML_Types.E_UML_Remove_Variable_Value_Action =>
25643            return
25644              AMF.Internals.Links.Opposite_Element
25645               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (15).Link, Self);
25646
25647         when others =>
25648            raise Program_Error;
25649      end case;
25650   end Internal_Get_Remove_At;
25651
25652   --------------------------------
25653   -- Internal_Get_Reply_To_Call --
25654   --------------------------------
25655
25656   function Internal_Get_Reply_To_Call
25657    (Self : AMF.Internals.AMF_Element)
25658       return AMF.Internals.AMF_Element is
25659   begin
25660      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
25661         when AMF.Internals.Tables.UML_Types.E_UML_Reply_Action =>
25662            return
25663              AMF.Internals.Links.Opposite_Element
25664               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Link, Self);
25665
25666         when others =>
25667            raise Program_Error;
25668      end case;
25669   end Internal_Get_Reply_To_Call;
25670
25671   ------------------------------
25672   -- Internal_Get_Reply_Value --
25673   ------------------------------
25674
25675   function Internal_Get_Reply_Value
25676    (Self : AMF.Internals.AMF_Element)
25677       return AMF.Internals.AMF_Collection_Of_Element is
25678   begin
25679      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
25680         when AMF.Internals.Tables.UML_Types.E_UML_Reply_Action =>
25681            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 12;
25682
25683         when others =>
25684            raise Program_Error;
25685      end case;
25686   end Internal_Get_Reply_Value;
25687
25688   ---------------------------------
25689   -- Internal_Get_Representation --
25690   ---------------------------------
25691
25692   function Internal_Get_Representation
25693    (Self : AMF.Internals.AMF_Element)
25694       return AMF.Internals.AMF_Element is
25695   begin
25696      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
25697         when AMF.Internals.Tables.UML_Types.E_UML_Activity =>
25698            return
25699              AMF.Internals.Links.Opposite_Element
25700               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (15).Link, Self);
25701
25702         when AMF.Internals.Tables.UML_Types.E_UML_Actor =>
25703            return
25704              AMF.Internals.Links.Opposite_Element
25705               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (15).Link, Self);
25706
25707         when AMF.Internals.Tables.UML_Types.E_UML_Artifact =>
25708            return
25709              AMF.Internals.Links.Opposite_Element
25710               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (15).Link, Self);
25711
25712         when AMF.Internals.Tables.UML_Types.E_UML_Association =>
25713            return
25714              AMF.Internals.Links.Opposite_Element
25715               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (15).Link, Self);
25716
25717         when AMF.Internals.Tables.UML_Types.E_UML_Association_Class =>
25718            return
25719              AMF.Internals.Links.Opposite_Element
25720               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (15).Link, Self);
25721
25722         when AMF.Internals.Tables.UML_Types.E_UML_Class =>
25723            return
25724              AMF.Internals.Links.Opposite_Element
25725               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (15).Link, Self);
25726
25727         when AMF.Internals.Tables.UML_Types.E_UML_Collaboration =>
25728            return
25729              AMF.Internals.Links.Opposite_Element
25730               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (15).Link, Self);
25731
25732         when AMF.Internals.Tables.UML_Types.E_UML_Communication_Path =>
25733            return
25734              AMF.Internals.Links.Opposite_Element
25735               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (15).Link, Self);
25736
25737         when AMF.Internals.Tables.UML_Types.E_UML_Component =>
25738            return
25739              AMF.Internals.Links.Opposite_Element
25740               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (15).Link, Self);
25741
25742         when AMF.Internals.Tables.UML_Types.E_UML_Data_Type =>
25743            return
25744              AMF.Internals.Links.Opposite_Element
25745               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (15).Link, Self);
25746
25747         when AMF.Internals.Tables.UML_Types.E_UML_Deployment_Specification =>
25748            return
25749              AMF.Internals.Links.Opposite_Element
25750               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (15).Link, Self);
25751
25752         when AMF.Internals.Tables.UML_Types.E_UML_Device =>
25753            return
25754              AMF.Internals.Links.Opposite_Element
25755               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (15).Link, Self);
25756
25757         when AMF.Internals.Tables.UML_Types.E_UML_Enumeration =>
25758            return
25759              AMF.Internals.Links.Opposite_Element
25760               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (15).Link, Self);
25761
25762         when AMF.Internals.Tables.UML_Types.E_UML_Execution_Environment =>
25763            return
25764              AMF.Internals.Links.Opposite_Element
25765               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (15).Link, Self);
25766
25767         when AMF.Internals.Tables.UML_Types.E_UML_Extension =>
25768            return
25769              AMF.Internals.Links.Opposite_Element
25770               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (15).Link, Self);
25771
25772         when AMF.Internals.Tables.UML_Types.E_UML_Function_Behavior =>
25773            return
25774              AMF.Internals.Links.Opposite_Element
25775               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (15).Link, Self);
25776
25777         when AMF.Internals.Tables.UML_Types.E_UML_Information_Item =>
25778            return
25779              AMF.Internals.Links.Opposite_Element
25780               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (15).Link, Self);
25781
25782         when AMF.Internals.Tables.UML_Types.E_UML_Interaction =>
25783            return
25784              AMF.Internals.Links.Opposite_Element
25785               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (15).Link, Self);
25786
25787         when AMF.Internals.Tables.UML_Types.E_UML_Interface =>
25788            return
25789              AMF.Internals.Links.Opposite_Element
25790               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (15).Link, Self);
25791
25792         when AMF.Internals.Tables.UML_Types.E_UML_Node =>
25793            return
25794              AMF.Internals.Links.Opposite_Element
25795               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (15).Link, Self);
25796
25797         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Behavior =>
25798            return
25799              AMF.Internals.Links.Opposite_Element
25800               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (15).Link, Self);
25801
25802         when AMF.Internals.Tables.UML_Types.E_UML_Primitive_Type =>
25803            return
25804              AMF.Internals.Links.Opposite_Element
25805               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (15).Link, Self);
25806
25807         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_State_Machine =>
25808            return
25809              AMF.Internals.Links.Opposite_Element
25810               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (15).Link, Self);
25811
25812         when AMF.Internals.Tables.UML_Types.E_UML_Signal =>
25813            return
25814              AMF.Internals.Links.Opposite_Element
25815               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (15).Link, Self);
25816
25817         when AMF.Internals.Tables.UML_Types.E_UML_State_Machine =>
25818            return
25819              AMF.Internals.Links.Opposite_Element
25820               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (15).Link, Self);
25821
25822         when AMF.Internals.Tables.UML_Types.E_UML_Stereotype =>
25823            return
25824              AMF.Internals.Links.Opposite_Element
25825               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (15).Link, Self);
25826
25827         when AMF.Internals.Tables.UML_Types.E_UML_Use_Case =>
25828            return
25829              AMF.Internals.Links.Opposite_Element
25830               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (15).Link, Self);
25831
25832         when others =>
25833            raise Program_Error;
25834      end case;
25835   end Internal_Get_Representation;
25836
25837   ------------------------------
25838   -- Internal_Get_Represented --
25839   ------------------------------
25840
25841   function Internal_Get_Represented
25842    (Self : AMF.Internals.AMF_Element)
25843       return AMF.Internals.AMF_Collection_Of_Element is
25844   begin
25845      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
25846         when AMF.Internals.Tables.UML_Types.E_UML_Information_Item =>
25847            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 24;
25848
25849         when others =>
25850            raise Program_Error;
25851      end case;
25852   end Internal_Get_Represented;
25853
25854   -----------------------------
25855   -- Internal_Get_Represents --
25856   -----------------------------
25857
25858   function Internal_Get_Represents
25859    (Self : AMF.Internals.AMF_Element)
25860       return AMF.Internals.AMF_Element is
25861   begin
25862      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
25863         when AMF.Internals.Tables.UML_Types.E_UML_Activity_Partition =>
25864            return
25865              AMF.Internals.Links.Opposite_Element
25866               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
25867
25868         when AMF.Internals.Tables.UML_Types.E_UML_Lifeline =>
25869            return
25870              AMF.Internals.Links.Opposite_Element
25871               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
25872
25873         when others =>
25874            raise Program_Error;
25875      end case;
25876   end Internal_Get_Represents;
25877
25878   --------------------------
25879   -- Internal_Get_Request --
25880   --------------------------
25881
25882   function Internal_Get_Request
25883    (Self : AMF.Internals.AMF_Element)
25884       return AMF.Internals.AMF_Element is
25885   begin
25886      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
25887         when AMF.Internals.Tables.UML_Types.E_UML_Send_Object_Action =>
25888            return
25889              AMF.Internals.Links.Opposite_Element
25890               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (13).Link, Self);
25891
25892         when others =>
25893            raise Program_Error;
25894      end case;
25895   end Internal_Get_Request;
25896
25897   ---------------------------
25898   -- Internal_Get_Required --
25899   ---------------------------
25900
25901   function Internal_Get_Required
25902    (Self : AMF.Internals.AMF_Element)
25903       return AMF.Internals.AMF_Collection_Of_Element is
25904   begin
25905      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
25906         when AMF.Internals.Tables.UML_Types.E_UML_Component =>
25907            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 40;
25908
25909         when AMF.Internals.Tables.UML_Types.E_UML_Port =>
25910            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 13;
25911
25912         when others =>
25913            raise Program_Error;
25914      end case;
25915   end Internal_Get_Required;
25916
25917   -----------------------------
25918   -- Internal_Get_Resolution --
25919   -----------------------------
25920
25921   function Internal_Get_Resolution
25922    (Self : AMF.Internals.AMF_Element)
25923       return AMF.Real is
25924   begin
25925      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (19).Real_Value;
25926   end Internal_Get_Resolution;
25927
25928   -------------------------
25929   -- Internal_Get_Result --
25930   -------------------------
25931
25932   function Internal_Get_Result
25933    (Self : AMF.Internals.AMF_Element)
25934       return AMF.Internals.AMF_Collection_Of_Element is
25935   begin
25936      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
25937         when AMF.Internals.Tables.UML_Types.E_UML_Accept_Call_Action =>
25938            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 12;
25939
25940         when AMF.Internals.Tables.UML_Types.E_UML_Accept_Event_Action =>
25941            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 12;
25942
25943         when AMF.Internals.Tables.UML_Types.E_UML_Call_Behavior_Action =>
25944            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 13;
25945
25946         when AMF.Internals.Tables.UML_Types.E_UML_Call_Operation_Action =>
25947            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 13;
25948
25949         when AMF.Internals.Tables.UML_Types.E_UML_Conditional_Node =>
25950            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 32;
25951
25952         when AMF.Internals.Tables.UML_Types.E_UML_Loop_Node =>
25953            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 35;
25954
25955         when AMF.Internals.Tables.UML_Types.E_UML_Start_Object_Behavior_Action =>
25956            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 13;
25957
25958         when AMF.Internals.Tables.UML_Types.E_UML_Unmarshall_Action =>
25959            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 12;
25960
25961         when others =>
25962            raise Program_Error;
25963      end case;
25964   end Internal_Get_Result;
25965
25966   -------------------------
25967   -- Internal_Get_Result --
25968   -------------------------
25969
25970   function Internal_Get_Result
25971    (Self : AMF.Internals.AMF_Element)
25972       return AMF.Internals.AMF_Element is
25973   begin
25974      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
25975         when AMF.Internals.Tables.UML_Types.E_UML_Add_Structural_Feature_Value_Action =>
25976            return
25977              AMF.Internals.Links.Opposite_Element
25978               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (15).Link, Self);
25979
25980         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Structural_Feature_Action =>
25981            return
25982              AMF.Internals.Links.Opposite_Element
25983               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Link, Self);
25984
25985         when AMF.Internals.Tables.UML_Types.E_UML_Create_Link_Object_Action =>
25986            return
25987              AMF.Internals.Links.Opposite_Element
25988               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Link, Self);
25989
25990         when AMF.Internals.Tables.UML_Types.E_UML_Create_Object_Action =>
25991            return
25992              AMF.Internals.Links.Opposite_Element
25993               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (13).Link, Self);
25994
25995         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Expression =>
25996            return
25997              AMF.Internals.Links.Opposite_Element
25998               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
25999
26000         when AMF.Internals.Tables.UML_Types.E_UML_Read_Extent_Action =>
26001            return
26002              AMF.Internals.Links.Opposite_Element
26003               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (13).Link, Self);
26004
26005         when AMF.Internals.Tables.UML_Types.E_UML_Read_Is_Classified_Object_Action =>
26006            return
26007              AMF.Internals.Links.Opposite_Element
26008               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (15).Link, Self);
26009
26010         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Action =>
26011            return
26012              AMF.Internals.Links.Opposite_Element
26013               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Link, Self);
26014
26015         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Object_End_Action =>
26016            return
26017              AMF.Internals.Links.Opposite_Element
26018               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Link, Self);
26019
26020         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Object_End_Qualifier_Action =>
26021            return
26022              AMF.Internals.Links.Opposite_Element
26023               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Link, Self);
26024
26025         when AMF.Internals.Tables.UML_Types.E_UML_Read_Self_Action =>
26026            return
26027              AMF.Internals.Links.Opposite_Element
26028               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Link, Self);
26029
26030         when AMF.Internals.Tables.UML_Types.E_UML_Read_Structural_Feature_Action =>
26031            return
26032              AMF.Internals.Links.Opposite_Element
26033               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Link, Self);
26034
26035         when AMF.Internals.Tables.UML_Types.E_UML_Read_Variable_Action =>
26036            return
26037              AMF.Internals.Links.Opposite_Element
26038               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (13).Link, Self);
26039
26040         when AMF.Internals.Tables.UML_Types.E_UML_Reduce_Action =>
26041            return
26042              AMF.Internals.Links.Opposite_Element
26043               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (15).Link, Self);
26044
26045         when AMF.Internals.Tables.UML_Types.E_UML_Remove_Structural_Feature_Value_Action =>
26046            return
26047              AMF.Internals.Links.Opposite_Element
26048               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (15).Link, Self);
26049
26050         when AMF.Internals.Tables.UML_Types.E_UML_Test_Identity_Action =>
26051            return
26052              AMF.Internals.Links.Opposite_Element
26053               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (13).Link, Self);
26054
26055         when AMF.Internals.Tables.UML_Types.E_UML_Value_Specification_Action =>
26056            return
26057              AMF.Internals.Links.Opposite_Element
26058               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Link, Self);
26059
26060         when others =>
26061            raise Program_Error;
26062      end case;
26063   end Internal_Get_Result;
26064
26065   -------------------------------------
26066   -- Internal_Get_Return_Information --
26067   -------------------------------------
26068
26069   function Internal_Get_Return_Information
26070    (Self : AMF.Internals.AMF_Element)
26071       return AMF.Internals.AMF_Element is
26072   begin
26073      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
26074         when AMF.Internals.Tables.UML_Types.E_UML_Accept_Call_Action =>
26075            return
26076              AMF.Internals.Links.Opposite_Element
26077               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (13).Link, Self);
26078
26079         when AMF.Internals.Tables.UML_Types.E_UML_Reply_Action =>
26080            return
26081              AMF.Internals.Links.Opposite_Element
26082               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (13).Link, Self);
26083
26084         when others =>
26085            raise Program_Error;
26086      end case;
26087   end Internal_Get_Return_Information;
26088
26089   -------------------------------
26090   -- Internal_Get_Return_Value --
26091   -------------------------------
26092
26093   function Internal_Get_Return_Value
26094    (Self : AMF.Internals.AMF_Element)
26095       return AMF.Internals.AMF_Element is
26096   begin
26097      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
26098         when AMF.Internals.Tables.UML_Types.E_UML_Interaction_Use =>
26099            return
26100              AMF.Internals.Links.Opposite_Element
26101               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
26102
26103         when AMF.Internals.Tables.UML_Types.E_UML_Part_Decomposition =>
26104            return
26105              AMF.Internals.Links.Opposite_Element
26106               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
26107
26108         when others =>
26109            raise Program_Error;
26110      end case;
26111   end Internal_Get_Return_Value;
26112
26113   -----------------------------------------
26114   -- Internal_Get_Return_Value_Recipient --
26115   -----------------------------------------
26116
26117   function Internal_Get_Return_Value_Recipient
26118    (Self : AMF.Internals.AMF_Element)
26119       return AMF.Internals.AMF_Element is
26120   begin
26121      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
26122         when AMF.Internals.Tables.UML_Types.E_UML_Interaction_Use =>
26123            return
26124              AMF.Internals.Links.Opposite_Element
26125               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
26126
26127         when AMF.Internals.Tables.UML_Types.E_UML_Part_Decomposition =>
26128            return
26129              AMF.Internals.Links.Opposite_Element
26130               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
26131
26132         when others =>
26133            raise Program_Error;
26134      end case;
26135   end Internal_Get_Return_Value_Recipient;
26136
26137   -----------------------
26138   -- Internal_Get_Role --
26139   -----------------------
26140
26141   function Internal_Get_Role
26142    (Self : AMF.Internals.AMF_Element)
26143       return AMF.Internals.AMF_Element is
26144   begin
26145      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
26146         when AMF.Internals.Tables.UML_Types.E_UML_Connector_End =>
26147            return
26148              AMF.Internals.Links.Opposite_Element
26149               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
26150
26151         when others =>
26152            raise Program_Error;
26153      end case;
26154   end Internal_Get_Role;
26155
26156   -----------------------
26157   -- Internal_Get_Role --
26158   -----------------------
26159
26160   function Internal_Get_Role
26161    (Self : AMF.Internals.AMF_Element)
26162       return AMF.Internals.AMF_Collection_Of_Element is
26163   begin
26164      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
26165         when AMF.Internals.Tables.UML_Types.E_UML_Activity =>
26166            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 31;
26167
26168         when AMF.Internals.Tables.UML_Types.E_UML_Association_Class =>
26169            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 31;
26170
26171         when AMF.Internals.Tables.UML_Types.E_UML_Class =>
26172            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 31;
26173
26174         when AMF.Internals.Tables.UML_Types.E_UML_Collaboration =>
26175            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 31;
26176
26177         when AMF.Internals.Tables.UML_Types.E_UML_Component =>
26178            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 31;
26179
26180         when AMF.Internals.Tables.UML_Types.E_UML_Device =>
26181            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 31;
26182
26183         when AMF.Internals.Tables.UML_Types.E_UML_Execution_Environment =>
26184            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 31;
26185
26186         when AMF.Internals.Tables.UML_Types.E_UML_Function_Behavior =>
26187            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 31;
26188
26189         when AMF.Internals.Tables.UML_Types.E_UML_Interaction =>
26190            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 31;
26191
26192         when AMF.Internals.Tables.UML_Types.E_UML_Node =>
26193            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 31;
26194
26195         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Behavior =>
26196            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 31;
26197
26198         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_State_Machine =>
26199            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 31;
26200
26201         when AMF.Internals.Tables.UML_Types.E_UML_State_Machine =>
26202            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 31;
26203
26204         when AMF.Internals.Tables.UML_Types.E_UML_Stereotype =>
26205            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 31;
26206
26207         when others =>
26208            raise Program_Error;
26209      end case;
26210   end Internal_Get_Role;
26211
26212   -------------------------------
26213   -- Internal_Get_Role_Binding --
26214   -------------------------------
26215
26216   function Internal_Get_Role_Binding
26217    (Self : AMF.Internals.AMF_Element)
26218       return AMF.Internals.AMF_Collection_Of_Element is
26219   begin
26220      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
26221         when AMF.Internals.Tables.UML_Types.E_UML_Collaboration_Use =>
26222            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
26223
26224         when others =>
26225            raise Program_Error;
26226      end case;
26227   end Internal_Get_Role_Binding;
26228
26229   ------------------------
26230   -- Internal_Get_Scope --
26231   ------------------------
26232
26233   function Internal_Get_Scope
26234    (Self : AMF.Internals.AMF_Element)
26235       return AMF.Internals.AMF_Element is
26236   begin
26237      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
26238         when AMF.Internals.Tables.UML_Types.E_UML_Variable =>
26239            return
26240              AMF.Internals.Links.Opposite_Element
26241               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (17).Link, Self);
26242
26243         when others =>
26244            raise Program_Error;
26245      end case;
26246   end Internal_Get_Scope;
26247
26248   -------------------------
26249   -- Internal_Get_Second --
26250   -------------------------
26251
26252   function Internal_Get_Second
26253    (Self : AMF.Internals.AMF_Element)
26254       return AMF.Internals.AMF_Element is
26255   begin
26256      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
26257         when AMF.Internals.Tables.UML_Types.E_UML_Test_Identity_Action =>
26258            return
26259              AMF.Internals.Links.Opposite_Element
26260               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Link, Self);
26261
26262         when others =>
26263            raise Program_Error;
26264      end case;
26265   end Internal_Get_Second;
26266
26267   ----------------------------
26268   -- Internal_Get_Selection --
26269   ----------------------------
26270
26271   function Internal_Get_Selection
26272    (Self : AMF.Internals.AMF_Element)
26273       return AMF.Internals.AMF_Element is
26274   begin
26275      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
26276         when AMF.Internals.Tables.UML_Types.E_UML_Action_Input_Pin =>
26277            return
26278              AMF.Internals.Links.Opposite_Element
26279               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (19).Link, Self);
26280
26281         when AMF.Internals.Tables.UML_Types.E_UML_Activity_Parameter_Node =>
26282            return
26283              AMF.Internals.Links.Opposite_Element
26284               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (19).Link, Self);
26285
26286         when AMF.Internals.Tables.UML_Types.E_UML_Central_Buffer_Node =>
26287            return
26288              AMF.Internals.Links.Opposite_Element
26289               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (19).Link, Self);
26290
26291         when AMF.Internals.Tables.UML_Types.E_UML_Data_Store_Node =>
26292            return
26293              AMF.Internals.Links.Opposite_Element
26294               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (19).Link, Self);
26295
26296         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Node =>
26297            return
26298              AMF.Internals.Links.Opposite_Element
26299               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (19).Link, Self);
26300
26301         when AMF.Internals.Tables.UML_Types.E_UML_Input_Pin =>
26302            return
26303              AMF.Internals.Links.Opposite_Element
26304               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (19).Link, Self);
26305
26306         when AMF.Internals.Tables.UML_Types.E_UML_Object_Flow =>
26307            return
26308              AMF.Internals.Links.Opposite_Element
26309               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (17).Link, Self);
26310
26311         when AMF.Internals.Tables.UML_Types.E_UML_Output_Pin =>
26312            return
26313              AMF.Internals.Links.Opposite_Element
26314               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (19).Link, Self);
26315
26316         when AMF.Internals.Tables.UML_Types.E_UML_Value_Pin =>
26317            return
26318              AMF.Internals.Links.Opposite_Element
26319               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (19).Link, Self);
26320
26321         when others =>
26322            raise Program_Error;
26323      end case;
26324   end Internal_Get_Selection;
26325
26326   ---------------------------
26327   -- Internal_Get_Selector --
26328   ---------------------------
26329
26330   function Internal_Get_Selector
26331    (Self : AMF.Internals.AMF_Element)
26332       return AMF.Internals.AMF_Element is
26333   begin
26334      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
26335         when AMF.Internals.Tables.UML_Types.E_UML_Lifeline =>
26336            return
26337              AMF.Internals.Links.Opposite_Element
26338               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
26339
26340         when others =>
26341            raise Program_Error;
26342      end case;
26343   end Internal_Get_Selector;
26344
26345   -----------------------------
26346   -- Internal_Get_Send_Event --
26347   -----------------------------
26348
26349   function Internal_Get_Send_Event
26350    (Self : AMF.Internals.AMF_Element)
26351       return AMF.Internals.AMF_Element is
26352   begin
26353      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
26354         when AMF.Internals.Tables.UML_Types.E_UML_Message =>
26355            return
26356              AMF.Internals.Links.Opposite_Element
26357               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Link, Self);
26358
26359         when others =>
26360            raise Program_Error;
26361      end case;
26362   end Internal_Get_Send_Event;
26363
26364   --------------------------
26365   -- Internal_Get_Setting --
26366   --------------------------
26367
26368   function Internal_Get_Setting
26369    (Self : AMF.Internals.AMF_Element)
26370       return Boolean is
26371   begin
26372      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Boolean_Value;
26373   end Internal_Get_Setting;
26374
26375   -----------------------------
26376   -- Internal_Get_Setup_Part --
26377   -----------------------------
26378
26379   function Internal_Get_Setup_Part
26380    (Self : AMF.Internals.AMF_Element)
26381       return AMF.Internals.AMF_Collection_Of_Element is
26382   begin
26383      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
26384         when AMF.Internals.Tables.UML_Types.E_UML_Loop_Node =>
26385            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 36;
26386
26387         when others =>
26388            raise Program_Error;
26389      end case;
26390   end Internal_Get_Setup_Part;
26391
26392   -------------------------------
26393   -- Internal_Get_Shared_Style --
26394   -------------------------------
26395
26396   function Internal_Get_Shared_Style
26397    (Self : AMF.Internals.AMF_Element)
26398       return AMF.Internals.AMF_Element is
26399   begin
26400      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
26401         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Activity_Diagram =>
26402            return
26403              AMF.Internals.Links.Opposite_Element
26404               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Link, Self);
26405
26406         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Association_End_Label =>
26407            return
26408              AMF.Internals.Links.Opposite_Element
26409               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Link, Self);
26410
26411         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Association_Or_Connector_Or_Link_Shape =>
26412            return
26413              AMF.Internals.Links.Opposite_Element
26414               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Link, Self);
26415
26416         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Class_Diagram =>
26417            return
26418              AMF.Internals.Links.Opposite_Element
26419               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Link, Self);
26420
26421         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Classifier_Shape =>
26422            return
26423              AMF.Internals.Links.Opposite_Element
26424               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Link, Self);
26425
26426         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Compartment =>
26427            return
26428              AMF.Internals.Links.Opposite_Element
26429               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Link, Self);
26430
26431         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Compartmentable_Shape =>
26432            return
26433              AMF.Internals.Links.Opposite_Element
26434               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Link, Self);
26435
26436         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Component_Diagram =>
26437            return
26438              AMF.Internals.Links.Opposite_Element
26439               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Link, Self);
26440
26441         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Composite_Structure_Diagram =>
26442            return
26443              AMF.Internals.Links.Opposite_Element
26444               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Link, Self);
26445
26446         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Deployment_Diagram =>
26447            return
26448              AMF.Internals.Links.Opposite_Element
26449               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Link, Self);
26450
26451         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Edge =>
26452            return
26453              AMF.Internals.Links.Opposite_Element
26454               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Link, Self);
26455
26456         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Interaction_Diagram =>
26457            return
26458              AMF.Internals.Links.Opposite_Element
26459               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Link, Self);
26460
26461         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Interaction_Table_Label =>
26462            return
26463              AMF.Internals.Links.Opposite_Element
26464               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Link, Self);
26465
26466         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Keyword_Label =>
26467            return
26468              AMF.Internals.Links.Opposite_Element
26469               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Link, Self);
26470
26471         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Label =>
26472            return
26473              AMF.Internals.Links.Opposite_Element
26474               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Link, Self);
26475
26476         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Multiplicity_Label =>
26477            return
26478              AMF.Internals.Links.Opposite_Element
26479               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Link, Self);
26480
26481         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Name_Label =>
26482            return
26483              AMF.Internals.Links.Opposite_Element
26484               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Link, Self);
26485
26486         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Object_Diagram =>
26487            return
26488              AMF.Internals.Links.Opposite_Element
26489               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Link, Self);
26490
26491         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Package_Diagram =>
26492            return
26493              AMF.Internals.Links.Opposite_Element
26494               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Link, Self);
26495
26496         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Profile_Diagram =>
26497            return
26498              AMF.Internals.Links.Opposite_Element
26499               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Link, Self);
26500
26501         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Redefines_Label =>
26502            return
26503              AMF.Internals.Links.Opposite_Element
26504               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Link, Self);
26505
26506         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Shape =>
26507            return
26508              AMF.Internals.Links.Opposite_Element
26509               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Link, Self);
26510
26511         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_State_Machine_Diagram =>
26512            return
26513              AMF.Internals.Links.Opposite_Element
26514               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Link, Self);
26515
26516         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_State_Shape =>
26517            return
26518              AMF.Internals.Links.Opposite_Element
26519               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Link, Self);
26520
26521         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Stereotype_Property_Value_Label =>
26522            return
26523              AMF.Internals.Links.Opposite_Element
26524               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Link, Self);
26525
26526         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Typed_Element_Label =>
26527            return
26528              AMF.Internals.Links.Opposite_Element
26529               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Link, Self);
26530
26531         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Use_Case_Diagram =>
26532            return
26533              AMF.Internals.Links.Opposite_Element
26534               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Link, Self);
26535
26536         when others =>
26537            raise Program_Error;
26538      end case;
26539   end Internal_Get_Shared_Style;
26540
26541   -------------------------
26542   -- Internal_Get_Signal --
26543   -------------------------
26544
26545   function Internal_Get_Signal
26546    (Self : AMF.Internals.AMF_Element)
26547       return AMF.Internals.AMF_Element is
26548   begin
26549      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
26550         when AMF.Internals.Tables.UML_Types.E_UML_Broadcast_Signal_Action =>
26551            return
26552              AMF.Internals.Links.Opposite_Element
26553               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (13).Link, Self);
26554
26555         when AMF.Internals.Tables.UML_Types.E_UML_Reception =>
26556            return
26557              AMF.Internals.Links.Opposite_Element
26558               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
26559
26560         when AMF.Internals.Tables.UML_Types.E_UML_Send_Signal_Action =>
26561            return
26562              AMF.Internals.Links.Opposite_Element
26563               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (13).Link, Self);
26564
26565         when AMF.Internals.Tables.UML_Types.E_UML_Signal_Event =>
26566            return
26567              AMF.Internals.Links.Opposite_Element
26568               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Link, Self);
26569
26570         when others =>
26571            raise Program_Error;
26572      end case;
26573   end Internal_Get_Signal;
26574
26575   ----------------------------
26576   -- Internal_Get_Signature --
26577   ----------------------------
26578
26579   function Internal_Get_Signature
26580    (Self : AMF.Internals.AMF_Element)
26581       return AMF.Internals.AMF_Element is
26582   begin
26583      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
26584         when AMF.Internals.Tables.UML_Types.E_UML_Classifier_Template_Parameter =>
26585            return
26586              AMF.Internals.Links.Opposite_Element
26587               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (6).Link, Self);
26588
26589         when AMF.Internals.Tables.UML_Types.E_UML_Connectable_Element_Template_Parameter =>
26590            return
26591              AMF.Internals.Links.Opposite_Element
26592               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (6).Link, Self);
26593
26594         when AMF.Internals.Tables.UML_Types.E_UML_Message =>
26595            return
26596              AMF.Internals.Links.Opposite_Element
26597               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (13).Link, Self);
26598
26599         when AMF.Internals.Tables.UML_Types.E_UML_Operation_Template_Parameter =>
26600            return
26601              AMF.Internals.Links.Opposite_Element
26602               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (6).Link, Self);
26603
26604         when AMF.Internals.Tables.UML_Types.E_UML_Template_Binding =>
26605            return
26606              AMF.Internals.Links.Opposite_Element
26607               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
26608
26609         when AMF.Internals.Tables.UML_Types.E_UML_Template_Parameter =>
26610            return
26611              AMF.Internals.Links.Opposite_Element
26612               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (6).Link, Self);
26613
26614         when others =>
26615            raise Program_Error;
26616      end case;
26617   end Internal_Get_Signature;
26618
26619   -----------------------
26620   -- Internal_Get_Slot --
26621   -----------------------
26622
26623   function Internal_Get_Slot
26624    (Self : AMF.Internals.AMF_Element)
26625       return AMF.Internals.AMF_Collection_Of_Element is
26626   begin
26627      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
26628         when AMF.Internals.Tables.UML_Types.E_UML_Enumeration_Literal =>
26629            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
26630
26631         when AMF.Internals.Tables.UML_Types.E_UML_Instance_Specification =>
26632            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
26633
26634         when others =>
26635            raise Program_Error;
26636      end case;
26637   end Internal_Get_Slot;
26638
26639   -------------------------
26640   -- Internal_Get_Source --
26641   -------------------------
26642
26643   function Internal_Get_Source
26644    (Self : AMF.Internals.AMF_Element)
26645       return AMF.Internals.AMF_Element is
26646   begin
26647      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
26648         when AMF.Internals.Tables.UML_Types.E_UML_Control_Flow =>
26649            return
26650              AMF.Internals.Links.Opposite_Element
26651               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Link, Self);
26652
26653         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Edge =>
26654            return
26655              AMF.Internals.Links.Opposite_Element
26656               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
26657
26658         when AMF.Internals.Tables.UML_Types.E_UML_Object_Flow =>
26659            return
26660              AMF.Internals.Links.Opposite_Element
26661               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Link, Self);
26662
26663         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_Transition =>
26664            return
26665              AMF.Internals.Links.Opposite_Element
26666               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Link, Self);
26667
26668         when AMF.Internals.Tables.UML_Types.E_UML_Transition =>
26669            return
26670              AMF.Internals.Links.Opposite_Element
26671               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Link, Self);
26672
26673         when others =>
26674            raise Program_Error;
26675      end case;
26676   end Internal_Get_Source;
26677
26678   -------------------------
26679   -- Internal_Get_Source --
26680   -------------------------
26681
26682   function Internal_Get_Source
26683    (Self : AMF.Internals.AMF_Element)
26684       return AMF.Internals.AMF_Collection_Of_Element is
26685   begin
26686      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
26687         when AMF.Internals.Tables.UML_Types.E_UML_Abstraction =>
26688            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
26689
26690         when AMF.Internals.Tables.UML_Types.E_UML_Component_Realization =>
26691            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
26692
26693         when AMF.Internals.Tables.UML_Types.E_UML_Dependency =>
26694            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
26695
26696         when AMF.Internals.Tables.UML_Types.E_UML_Deployment =>
26697            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
26698
26699         when AMF.Internals.Tables.UML_Types.E_UML_Element_Import =>
26700            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
26701
26702         when AMF.Internals.Tables.UML_Types.E_UML_Extend =>
26703            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
26704
26705         when AMF.Internals.Tables.UML_Types.E_UML_Generalization =>
26706            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
26707
26708         when AMF.Internals.Tables.UML_Types.E_UML_Include =>
26709            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
26710
26711         when AMF.Internals.Tables.UML_Types.E_UML_Information_Flow =>
26712            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
26713
26714         when AMF.Internals.Tables.UML_Types.E_UML_Interface_Realization =>
26715            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
26716
26717         when AMF.Internals.Tables.UML_Types.E_UML_Manifestation =>
26718            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
26719
26720         when AMF.Internals.Tables.UML_Types.E_UML_Package_Import =>
26721            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
26722
26723         when AMF.Internals.Tables.UML_Types.E_UML_Package_Merge =>
26724            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
26725
26726         when AMF.Internals.Tables.UML_Types.E_UML_Profile_Application =>
26727            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
26728
26729         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_Conformance =>
26730            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
26731
26732         when AMF.Internals.Tables.UML_Types.E_UML_Realization =>
26733            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
26734
26735         when AMF.Internals.Tables.UML_Types.E_UML_Substitution =>
26736            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
26737
26738         when AMF.Internals.Tables.UML_Types.E_UML_Template_Binding =>
26739            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
26740
26741         when AMF.Internals.Tables.UML_Types.E_UML_Usage =>
26742            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
26743
26744         when others =>
26745            raise Program_Error;
26746      end case;
26747   end Internal_Get_Source;
26748
26749   ---------------------------
26750   -- Internal_Get_Specific --
26751   ---------------------------
26752
26753   function Internal_Get_Specific
26754    (Self : AMF.Internals.AMF_Element)
26755       return AMF.Internals.AMF_Element is
26756   begin
26757      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
26758         when AMF.Internals.Tables.UML_Types.E_UML_Generalization =>
26759            return
26760              AMF.Internals.Links.Opposite_Element
26761               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Link, Self);
26762
26763         when others =>
26764            raise Program_Error;
26765      end case;
26766   end Internal_Get_Specific;
26767
26768   -----------------------------------
26769   -- Internal_Get_Specific_Machine --
26770   -----------------------------------
26771
26772   function Internal_Get_Specific_Machine
26773    (Self : AMF.Internals.AMF_Element)
26774       return AMF.Internals.AMF_Element is
26775   begin
26776      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
26777         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_Conformance =>
26778            return
26779              AMF.Internals.Links.Opposite_Element
26780               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
26781
26782         when others =>
26783            raise Program_Error;
26784      end case;
26785   end Internal_Get_Specific_Machine;
26786
26787   --------------------------------
26788   -- Internal_Get_Specification --
26789   --------------------------------
26790
26791   function Internal_Get_Specification
26792    (Self : AMF.Internals.AMF_Element)
26793       return AMF.Internals.AMF_Element is
26794   begin
26795      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
26796         when AMF.Internals.Tables.UML_Types.E_UML_Activity =>
26797            return
26798              AMF.Internals.Links.Opposite_Element
26799               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (23).Link, Self);
26800
26801         when AMF.Internals.Tables.UML_Types.E_UML_Constraint =>
26802            return
26803              AMF.Internals.Links.Opposite_Element
26804               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
26805
26806         when AMF.Internals.Tables.UML_Types.E_UML_Duration_Constraint =>
26807            return
26808              AMF.Internals.Links.Opposite_Element
26809               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
26810
26811         when AMF.Internals.Tables.UML_Types.E_UML_Enumeration_Literal =>
26812            return
26813              AMF.Internals.Links.Opposite_Element
26814               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Link, Self);
26815
26816         when AMF.Internals.Tables.UML_Types.E_UML_Function_Behavior =>
26817            return
26818              AMF.Internals.Links.Opposite_Element
26819               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (23).Link, Self);
26820
26821         when AMF.Internals.Tables.UML_Types.E_UML_Instance_Specification =>
26822            return
26823              AMF.Internals.Links.Opposite_Element
26824               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Link, Self);
26825
26826         when AMF.Internals.Tables.UML_Types.E_UML_Interaction =>
26827            return
26828              AMF.Internals.Links.Opposite_Element
26829               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (23).Link, Self);
26830
26831         when AMF.Internals.Tables.UML_Types.E_UML_Interaction_Constraint =>
26832            return
26833              AMF.Internals.Links.Opposite_Element
26834               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
26835
26836         when AMF.Internals.Tables.UML_Types.E_UML_Interval_Constraint =>
26837            return
26838              AMF.Internals.Links.Opposite_Element
26839               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
26840
26841         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Behavior =>
26842            return
26843              AMF.Internals.Links.Opposite_Element
26844               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (23).Link, Self);
26845
26846         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_State_Machine =>
26847            return
26848              AMF.Internals.Links.Opposite_Element
26849               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (23).Link, Self);
26850
26851         when AMF.Internals.Tables.UML_Types.E_UML_State_Machine =>
26852            return
26853              AMF.Internals.Links.Opposite_Element
26854               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (23).Link, Self);
26855
26856         when AMF.Internals.Tables.UML_Types.E_UML_Time_Constraint =>
26857            return
26858              AMF.Internals.Links.Opposite_Element
26859               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
26860
26861         when others =>
26862            raise Program_Error;
26863      end case;
26864   end Internal_Get_Specification;
26865
26866   ------------------------
26867   -- Internal_Get_Start --
26868   ------------------------
26869
26870   function Internal_Get_Start
26871    (Self : AMF.Internals.AMF_Element)
26872       return AMF.Internals.AMF_Element is
26873   begin
26874      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
26875         when AMF.Internals.Tables.UML_Types.E_UML_Action_Execution_Specification =>
26876            return
26877              AMF.Internals.Links.Opposite_Element
26878               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
26879
26880         when AMF.Internals.Tables.UML_Types.E_UML_Behavior_Execution_Specification =>
26881            return
26882              AMF.Internals.Links.Opposite_Element
26883               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
26884
26885         when others =>
26886            raise Program_Error;
26887      end case;
26888   end Internal_Get_Start;
26889
26890   ------------------------
26891   -- Internal_Get_State --
26892   ------------------------
26893
26894   function Internal_Get_State
26895    (Self : AMF.Internals.AMF_Element)
26896       return AMF.Internals.AMF_Element is
26897   begin
26898      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
26899         when AMF.Internals.Tables.UML_Types.E_UML_Connection_Point_Reference =>
26900            return
26901              AMF.Internals.Links.Opposite_Element
26902               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Link, Self);
26903
26904         when AMF.Internals.Tables.UML_Types.E_UML_Pseudostate =>
26905            return
26906              AMF.Internals.Links.Opposite_Element
26907               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
26908
26909         when AMF.Internals.Tables.UML_Types.E_UML_Region =>
26910            return
26911              AMF.Internals.Links.Opposite_Element
26912               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
26913
26914         when others =>
26915            raise Program_Error;
26916      end case;
26917   end Internal_Get_State;
26918
26919   ----------------------------------
26920   -- Internal_Get_State_Invariant --
26921   ----------------------------------
26922
26923   function Internal_Get_State_Invariant
26924    (Self : AMF.Internals.AMF_Element)
26925       return AMF.Internals.AMF_Element is
26926   begin
26927      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
26928         when AMF.Internals.Tables.UML_Types.E_UML_Final_State =>
26929            return
26930              AMF.Internals.Links.Opposite_Element
26931               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (17).Link, Self);
26932
26933         when AMF.Internals.Tables.UML_Types.E_UML_State =>
26934            return
26935              AMF.Internals.Links.Opposite_Element
26936               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (17).Link, Self);
26937
26938         when others =>
26939            raise Program_Error;
26940      end case;
26941   end Internal_Get_State_Invariant;
26942
26943   --------------------------------
26944   -- Internal_Get_State_Machine --
26945   --------------------------------
26946
26947   function Internal_Get_State_Machine
26948    (Self : AMF.Internals.AMF_Element)
26949       return AMF.Internals.AMF_Element is
26950   begin
26951      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
26952         when AMF.Internals.Tables.UML_Types.E_UML_Pseudostate =>
26953            return
26954              AMF.Internals.Links.Opposite_Element
26955               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
26956
26957         when AMF.Internals.Tables.UML_Types.E_UML_Region =>
26958            return
26959              AMF.Internals.Links.Opposite_Element
26960               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (11).Link, Self);
26961
26962         when others =>
26963            raise Program_Error;
26964      end case;
26965   end Internal_Get_State_Machine;
26966
26967   --------------------------------------
26968   -- Internal_Get_Stereotyped_Element --
26969   --------------------------------------
26970
26971   function Internal_Get_Stereotyped_Element
26972    (Self : AMF.Internals.AMF_Element)
26973       return AMF.Internals.AMF_Element is
26974   begin
26975      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
26976         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Stereotype_Property_Value_Label =>
26977            return
26978              AMF.Internals.Links.Opposite_Element
26979               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
26980
26981         when others =>
26982            raise Program_Error;
26983      end case;
26984   end Internal_Get_Stereotyped_Element;
26985
26986   -------------------------------------
26987   -- Internal_Get_Structural_Feature --
26988   -------------------------------------
26989
26990   function Internal_Get_Structural_Feature
26991    (Self : AMF.Internals.AMF_Element)
26992       return AMF.Internals.AMF_Element is
26993   begin
26994      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
26995         when AMF.Internals.Tables.UML_Types.E_UML_Add_Structural_Feature_Value_Action =>
26996            return
26997              AMF.Internals.Links.Opposite_Element
26998               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (13).Link, Self);
26999
27000         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Structural_Feature_Action =>
27001            return
27002              AMF.Internals.Links.Opposite_Element
27003               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (13).Link, Self);
27004
27005         when AMF.Internals.Tables.UML_Types.E_UML_Read_Structural_Feature_Action =>
27006            return
27007              AMF.Internals.Links.Opposite_Element
27008               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (13).Link, Self);
27009
27010         when AMF.Internals.Tables.UML_Types.E_UML_Remove_Structural_Feature_Value_Action =>
27011            return
27012              AMF.Internals.Links.Opposite_Element
27013               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (13).Link, Self);
27014
27015         when others =>
27016            raise Program_Error;
27017      end case;
27018   end Internal_Get_Structural_Feature;
27019
27020   ----------------------------------
27021   -- Internal_Get_Structured_Node --
27022   ----------------------------------
27023
27024   function Internal_Get_Structured_Node
27025    (Self : AMF.Internals.AMF_Element)
27026       return AMF.Internals.AMF_Collection_Of_Element is
27027   begin
27028      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
27029         when AMF.Internals.Tables.UML_Types.E_UML_Activity =>
27030            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 46;
27031
27032         when others =>
27033            raise Program_Error;
27034      end case;
27035   end Internal_Get_Structured_Node;
27036
27037   ----------------------------------------
27038   -- Internal_Get_Structured_Node_Input --
27039   ----------------------------------------
27040
27041   function Internal_Get_Structured_Node_Input
27042    (Self : AMF.Internals.AMF_Element)
27043       return AMF.Internals.AMF_Collection_Of_Element is
27044   begin
27045      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
27046         when AMF.Internals.Tables.UML_Types.E_UML_Conditional_Node =>
27047            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 28;
27048
27049         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Region =>
27050            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 28;
27051
27052         when AMF.Internals.Tables.UML_Types.E_UML_Loop_Node =>
27053            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 28;
27054
27055         when AMF.Internals.Tables.UML_Types.E_UML_Sequence_Node =>
27056            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 28;
27057
27058         when AMF.Internals.Tables.UML_Types.E_UML_Structured_Activity_Node =>
27059            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 28;
27060
27061         when others =>
27062            raise Program_Error;
27063      end case;
27064   end Internal_Get_Structured_Node_Input;
27065
27066   -----------------------------------------
27067   -- Internal_Get_Structured_Node_Output --
27068   -----------------------------------------
27069
27070   function Internal_Get_Structured_Node_Output
27071    (Self : AMF.Internals.AMF_Element)
27072       return AMF.Internals.AMF_Collection_Of_Element is
27073   begin
27074      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
27075         when AMF.Internals.Tables.UML_Types.E_UML_Conditional_Node =>
27076            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 29;
27077
27078         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Region =>
27079            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 29;
27080
27081         when AMF.Internals.Tables.UML_Types.E_UML_Loop_Node =>
27082            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 29;
27083
27084         when AMF.Internals.Tables.UML_Types.E_UML_Sequence_Node =>
27085            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 29;
27086
27087         when AMF.Internals.Tables.UML_Types.E_UML_Structured_Activity_Node =>
27088            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 29;
27089
27090         when others =>
27091            raise Program_Error;
27092      end case;
27093   end Internal_Get_Structured_Node_Output;
27094
27095   ---------------------------------
27096   -- Internal_Get_Sub_Expression --
27097   ---------------------------------
27098
27099   function Internal_Get_Sub_Expression
27100    (Self : AMF.Internals.AMF_Element)
27101       return AMF.Internals.AMF_Collection_Of_Element is
27102   begin
27103      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
27104         when AMF.Internals.Tables.UML_Types.E_UML_String_Expression =>
27105            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
27106
27107         when others =>
27108            raise Program_Error;
27109      end case;
27110   end Internal_Get_Sub_Expression;
27111
27112   ---------------------------
27113   -- Internal_Get_Subgroup --
27114   ---------------------------
27115
27116   function Internal_Get_Subgroup
27117    (Self : AMF.Internals.AMF_Element)
27118       return AMF.Internals.AMF_Collection_Of_Element is
27119   begin
27120      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
27121         when AMF.Internals.Tables.UML_Types.E_UML_Activity_Partition =>
27122            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 25;
27123
27124         when AMF.Internals.Tables.UML_Types.E_UML_Conditional_Node =>
27125            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 25;
27126
27127         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Region =>
27128            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 25;
27129
27130         when AMF.Internals.Tables.UML_Types.E_UML_Interruptible_Activity_Region =>
27131            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 25;
27132
27133         when AMF.Internals.Tables.UML_Types.E_UML_Loop_Node =>
27134            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 25;
27135
27136         when AMF.Internals.Tables.UML_Types.E_UML_Sequence_Node =>
27137            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 25;
27138
27139         when AMF.Internals.Tables.UML_Types.E_UML_Structured_Activity_Node =>
27140            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 25;
27141
27142         when others =>
27143            raise Program_Error;
27144      end case;
27145   end Internal_Get_Subgroup;
27146
27147   --------------------------
27148   -- Internal_Get_Subject --
27149   --------------------------
27150
27151   function Internal_Get_Subject
27152    (Self : AMF.Internals.AMF_Element)
27153       return AMF.Internals.AMF_Collection_Of_Element is
27154   begin
27155      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
27156         when AMF.Internals.Tables.UML_Types.E_UML_Use_Case =>
27157            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 29;
27158
27159         when others =>
27160            raise Program_Error;
27161      end case;
27162   end Internal_Get_Subject;
27163
27164   -----------------------------
27165   -- Internal_Get_Submachine --
27166   -----------------------------
27167
27168   function Internal_Get_Submachine
27169    (Self : AMF.Internals.AMF_Element)
27170       return AMF.Internals.AMF_Element is
27171   begin
27172      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
27173         when AMF.Internals.Tables.UML_Types.E_UML_Final_State =>
27174            return
27175              AMF.Internals.Links.Opposite_Element
27176               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (18).Link, Self);
27177
27178         when AMF.Internals.Tables.UML_Types.E_UML_State =>
27179            return
27180              AMF.Internals.Links.Opposite_Element
27181               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (18).Link, Self);
27182
27183         when others =>
27184            raise Program_Error;
27185      end case;
27186   end Internal_Get_Submachine;
27187
27188   -----------------------------------
27189   -- Internal_Get_Submachine_State --
27190   -----------------------------------
27191
27192   function Internal_Get_Submachine_State
27193    (Self : AMF.Internals.AMF_Element)
27194       return AMF.Internals.AMF_Collection_Of_Element is
27195   begin
27196      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
27197         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_State_Machine =>
27198            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 45;
27199
27200         when AMF.Internals.Tables.UML_Types.E_UML_State_Machine =>
27201            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 45;
27202
27203         when others =>
27204            raise Program_Error;
27205      end case;
27206   end Internal_Get_Submachine_State;
27207
27208   -------------------------------
27209   -- Internal_Get_Subpartition --
27210   -------------------------------
27211
27212   function Internal_Get_Subpartition
27213    (Self : AMF.Internals.AMF_Element)
27214       return AMF.Internals.AMF_Collection_Of_Element is
27215   begin
27216      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
27217         when AMF.Internals.Tables.UML_Types.E_UML_Activity_Partition =>
27218            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
27219
27220         when others =>
27221            raise Program_Error;
27222      end case;
27223   end Internal_Get_Subpartition;
27224
27225   -------------------------------------
27226   -- Internal_Get_Subsetted_Property --
27227   -------------------------------------
27228
27229   function Internal_Get_Subsetted_Property
27230    (Self : AMF.Internals.AMF_Element)
27231       return AMF.Internals.AMF_Collection_Of_Element is
27232   begin
27233      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
27234         when AMF.Internals.Tables.UML_Types.E_UML_Extension_End =>
27235            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
27236
27237         when AMF.Internals.Tables.UML_Types.E_UML_Port =>
27238            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
27239
27240         when AMF.Internals.Tables.UML_Types.E_UML_Property =>
27241            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 10;
27242
27243         when others =>
27244            raise Program_Error;
27245      end case;
27246   end Internal_Get_Subsetted_Property;
27247
27248   ------------------------------------------
27249   -- Internal_Get_Substituting_Classifier --
27250   ------------------------------------------
27251
27252   function Internal_Get_Substituting_Classifier
27253    (Self : AMF.Internals.AMF_Element)
27254       return AMF.Internals.AMF_Element is
27255   begin
27256      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
27257         when AMF.Internals.Tables.UML_Types.E_UML_Substitution =>
27258            return
27259              AMF.Internals.Links.Opposite_Element
27260               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (11).Link, Self);
27261
27262         when others =>
27263            raise Program_Error;
27264      end case;
27265   end Internal_Get_Substituting_Classifier;
27266
27267   -------------------------------
27268   -- Internal_Get_Substitution --
27269   -------------------------------
27270
27271   function Internal_Get_Substitution
27272    (Self : AMF.Internals.AMF_Element)
27273       return AMF.Internals.AMF_Collection_Of_Element is
27274   begin
27275      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
27276         when AMF.Internals.Tables.UML_Types.E_UML_Activity =>
27277            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 22;
27278
27279         when AMF.Internals.Tables.UML_Types.E_UML_Actor =>
27280            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 22;
27281
27282         when AMF.Internals.Tables.UML_Types.E_UML_Artifact =>
27283            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 22;
27284
27285         when AMF.Internals.Tables.UML_Types.E_UML_Association =>
27286            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 22;
27287
27288         when AMF.Internals.Tables.UML_Types.E_UML_Association_Class =>
27289            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 22;
27290
27291         when AMF.Internals.Tables.UML_Types.E_UML_Class =>
27292            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 22;
27293
27294         when AMF.Internals.Tables.UML_Types.E_UML_Collaboration =>
27295            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 22;
27296
27297         when AMF.Internals.Tables.UML_Types.E_UML_Communication_Path =>
27298            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 22;
27299
27300         when AMF.Internals.Tables.UML_Types.E_UML_Component =>
27301            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 22;
27302
27303         when AMF.Internals.Tables.UML_Types.E_UML_Data_Type =>
27304            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 22;
27305
27306         when AMF.Internals.Tables.UML_Types.E_UML_Deployment_Specification =>
27307            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 22;
27308
27309         when AMF.Internals.Tables.UML_Types.E_UML_Device =>
27310            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 22;
27311
27312         when AMF.Internals.Tables.UML_Types.E_UML_Enumeration =>
27313            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 22;
27314
27315         when AMF.Internals.Tables.UML_Types.E_UML_Execution_Environment =>
27316            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 22;
27317
27318         when AMF.Internals.Tables.UML_Types.E_UML_Extension =>
27319            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 22;
27320
27321         when AMF.Internals.Tables.UML_Types.E_UML_Function_Behavior =>
27322            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 22;
27323
27324         when AMF.Internals.Tables.UML_Types.E_UML_Information_Item =>
27325            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 22;
27326
27327         when AMF.Internals.Tables.UML_Types.E_UML_Interaction =>
27328            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 22;
27329
27330         when AMF.Internals.Tables.UML_Types.E_UML_Interface =>
27331            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 22;
27332
27333         when AMF.Internals.Tables.UML_Types.E_UML_Node =>
27334            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 22;
27335
27336         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Behavior =>
27337            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 22;
27338
27339         when AMF.Internals.Tables.UML_Types.E_UML_Primitive_Type =>
27340            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 22;
27341
27342         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_State_Machine =>
27343            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 22;
27344
27345         when AMF.Internals.Tables.UML_Types.E_UML_Signal =>
27346            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 22;
27347
27348         when AMF.Internals.Tables.UML_Types.E_UML_State_Machine =>
27349            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 22;
27350
27351         when AMF.Internals.Tables.UML_Types.E_UML_Stereotype =>
27352            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 22;
27353
27354         when AMF.Internals.Tables.UML_Types.E_UML_Use_Case =>
27355            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 22;
27356
27357         when others =>
27358            raise Program_Error;
27359      end case;
27360   end Internal_Get_Substitution;
27361
27362   ----------------------------
27363   -- Internal_Get_Subvertex --
27364   ----------------------------
27365
27366   function Internal_Get_Subvertex
27367    (Self : AMF.Internals.AMF_Element)
27368       return AMF.Internals.AMF_Collection_Of_Element is
27369   begin
27370      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
27371         when AMF.Internals.Tables.UML_Types.E_UML_Region =>
27372            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
27373
27374         when others =>
27375            raise Program_Error;
27376      end case;
27377   end Internal_Get_Subvertex;
27378
27379   -----------------------------------
27380   -- Internal_Get_Successor_Clause --
27381   -----------------------------------
27382
27383   function Internal_Get_Successor_Clause
27384    (Self : AMF.Internals.AMF_Element)
27385       return AMF.Internals.AMF_Collection_Of_Element is
27386   begin
27387      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
27388         when AMF.Internals.Tables.UML_Types.E_UML_Clause =>
27389            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
27390
27391         when others =>
27392            raise Program_Error;
27393      end case;
27394   end Internal_Get_Successor_Clause;
27395
27396   ------------------------------
27397   -- Internal_Get_Super_Class --
27398   ------------------------------
27399
27400   function Internal_Get_Super_Class
27401    (Self : AMF.Internals.AMF_Element)
27402       return AMF.Internals.AMF_Collection_Of_Element is
27403   begin
27404      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
27405         when AMF.Internals.Tables.UML_Types.E_UML_Activity =>
27406            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 38;
27407
27408         when AMF.Internals.Tables.UML_Types.E_UML_Association_Class =>
27409            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 38;
27410
27411         when AMF.Internals.Tables.UML_Types.E_UML_Class =>
27412            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 38;
27413
27414         when AMF.Internals.Tables.UML_Types.E_UML_Component =>
27415            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 38;
27416
27417         when AMF.Internals.Tables.UML_Types.E_UML_Device =>
27418            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 38;
27419
27420         when AMF.Internals.Tables.UML_Types.E_UML_Execution_Environment =>
27421            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 38;
27422
27423         when AMF.Internals.Tables.UML_Types.E_UML_Function_Behavior =>
27424            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 38;
27425
27426         when AMF.Internals.Tables.UML_Types.E_UML_Interaction =>
27427            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 38;
27428
27429         when AMF.Internals.Tables.UML_Types.E_UML_Node =>
27430            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 38;
27431
27432         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Behavior =>
27433            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 38;
27434
27435         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_State_Machine =>
27436            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 38;
27437
27438         when AMF.Internals.Tables.UML_Types.E_UML_State_Machine =>
27439            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 38;
27440
27441         when AMF.Internals.Tables.UML_Types.E_UML_Stereotype =>
27442            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 38;
27443
27444         when others =>
27445            raise Program_Error;
27446      end case;
27447   end Internal_Get_Super_Class;
27448
27449   ------------------------------
27450   -- Internal_Get_Super_Group --
27451   ------------------------------
27452
27453   function Internal_Get_Super_Group
27454    (Self : AMF.Internals.AMF_Element)
27455       return AMF.Internals.AMF_Element is
27456   begin
27457      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
27458         when AMF.Internals.Tables.UML_Types.E_UML_Activity_Partition =>
27459            return
27460              AMF.Internals.Links.Opposite_Element
27461               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (13).Link, Self);
27462
27463         when AMF.Internals.Tables.UML_Types.E_UML_Conditional_Node =>
27464            return
27465              AMF.Internals.Links.Opposite_Element
27466               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (13).Link, Self);
27467
27468         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Region =>
27469            return
27470              AMF.Internals.Links.Opposite_Element
27471               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (13).Link, Self);
27472
27473         when AMF.Internals.Tables.UML_Types.E_UML_Interruptible_Activity_Region =>
27474            return
27475              AMF.Internals.Links.Opposite_Element
27476               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (13).Link, Self);
27477
27478         when AMF.Internals.Tables.UML_Types.E_UML_Loop_Node =>
27479            return
27480              AMF.Internals.Links.Opposite_Element
27481               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (13).Link, Self);
27482
27483         when AMF.Internals.Tables.UML_Types.E_UML_Sequence_Node =>
27484            return
27485              AMF.Internals.Links.Opposite_Element
27486               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (13).Link, Self);
27487
27488         when AMF.Internals.Tables.UML_Types.E_UML_Structured_Activity_Node =>
27489            return
27490              AMF.Internals.Links.Opposite_Element
27491               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (13).Link, Self);
27492
27493         when others =>
27494            raise Program_Error;
27495      end case;
27496   end Internal_Get_Super_Group;
27497
27498   ----------------------------------
27499   -- Internal_Get_Super_Partition --
27500   ----------------------------------
27501
27502   function Internal_Get_Super_Partition
27503    (Self : AMF.Internals.AMF_Element)
27504       return AMF.Internals.AMF_Element is
27505   begin
27506      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
27507         when AMF.Internals.Tables.UML_Types.E_UML_Activity_Partition =>
27508            return
27509              AMF.Internals.Links.Opposite_Element
27510               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
27511
27512         when others =>
27513            raise Program_Error;
27514      end case;
27515   end Internal_Get_Super_Partition;
27516
27517   ---------------------------
27518   -- Internal_Get_Supplier --
27519   ---------------------------
27520
27521   function Internal_Get_Supplier
27522    (Self : AMF.Internals.AMF_Element)
27523       return AMF.Internals.AMF_Collection_Of_Element is
27524   begin
27525      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
27526         when AMF.Internals.Tables.UML_Types.E_UML_Abstraction =>
27527            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
27528
27529         when AMF.Internals.Tables.UML_Types.E_UML_Component_Realization =>
27530            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
27531
27532         when AMF.Internals.Tables.UML_Types.E_UML_Dependency =>
27533            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
27534
27535         when AMF.Internals.Tables.UML_Types.E_UML_Deployment =>
27536            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
27537
27538         when AMF.Internals.Tables.UML_Types.E_UML_Interface_Realization =>
27539            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
27540
27541         when AMF.Internals.Tables.UML_Types.E_UML_Manifestation =>
27542            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
27543
27544         when AMF.Internals.Tables.UML_Types.E_UML_Realization =>
27545            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
27546
27547         when AMF.Internals.Tables.UML_Types.E_UML_Substitution =>
27548            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
27549
27550         when AMF.Internals.Tables.UML_Types.E_UML_Usage =>
27551            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
27552
27553         when others =>
27554            raise Program_Error;
27555      end case;
27556   end Internal_Get_Supplier;
27557
27558   -------------------------
27559   -- Internal_Get_Symbol --
27560   -------------------------
27561
27562   function Internal_Get_Symbol
27563    (Self : AMF.Internals.AMF_Element)
27564       return Matreshka.Internals.Strings.Shared_String_Access is
27565   begin
27566      return
27567        AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).String_Value;
27568   end Internal_Get_Symbol;
27569
27570   -------------------------
27571   -- Internal_Get_Target --
27572   -------------------------
27573
27574   function Internal_Get_Target
27575    (Self : AMF.Internals.AMF_Element)
27576       return AMF.Internals.AMF_Element is
27577   begin
27578      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
27579         when AMF.Internals.Tables.UML_Types.E_UML_Call_Operation_Action =>
27580            return
27581              AMF.Internals.Links.Opposite_Element
27582               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (15).Link, Self);
27583
27584         when AMF.Internals.Tables.UML_Types.E_UML_Control_Flow =>
27585            return
27586              AMF.Internals.Links.Opposite_Element
27587               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (13).Link, Self);
27588
27589         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Edge =>
27590            return
27591              AMF.Internals.Links.Opposite_Element
27592               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (5).Link, Self);
27593
27594         when AMF.Internals.Tables.UML_Types.E_UML_Destroy_Object_Action =>
27595            return
27596              AMF.Internals.Links.Opposite_Element
27597               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Link, Self);
27598
27599         when AMF.Internals.Tables.UML_Types.E_UML_Object_Flow =>
27600            return
27601              AMF.Internals.Links.Opposite_Element
27602               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (13).Link, Self);
27603
27604         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_Transition =>
27605            return
27606              AMF.Internals.Links.Opposite_Element
27607               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (15).Link, Self);
27608
27609         when AMF.Internals.Tables.UML_Types.E_UML_Send_Object_Action =>
27610            return
27611              AMF.Internals.Links.Opposite_Element
27612               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Link, Self);
27613
27614         when AMF.Internals.Tables.UML_Types.E_UML_Send_Signal_Action =>
27615            return
27616              AMF.Internals.Links.Opposite_Element
27617               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Link, Self);
27618
27619         when AMF.Internals.Tables.UML_Types.E_UML_Transition =>
27620            return
27621              AMF.Internals.Links.Opposite_Element
27622               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (15).Link, Self);
27623
27624         when others =>
27625            raise Program_Error;
27626      end case;
27627   end Internal_Get_Target;
27628
27629   -------------------------
27630   -- Internal_Get_Target --
27631   -------------------------
27632
27633   function Internal_Get_Target
27634    (Self : AMF.Internals.AMF_Element)
27635       return AMF.Internals.AMF_Collection_Of_Element is
27636   begin
27637      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
27638         when AMF.Internals.Tables.UML_Types.E_UML_Abstraction =>
27639            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
27640
27641         when AMF.Internals.Tables.UML_Types.E_UML_Component_Realization =>
27642            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
27643
27644         when AMF.Internals.Tables.UML_Types.E_UML_Dependency =>
27645            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
27646
27647         when AMF.Internals.Tables.UML_Types.E_UML_Deployment =>
27648            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
27649
27650         when AMF.Internals.Tables.UML_Types.E_UML_Element_Import =>
27651            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
27652
27653         when AMF.Internals.Tables.UML_Types.E_UML_Extend =>
27654            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
27655
27656         when AMF.Internals.Tables.UML_Types.E_UML_Generalization =>
27657            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
27658
27659         when AMF.Internals.Tables.UML_Types.E_UML_Include =>
27660            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
27661
27662         when AMF.Internals.Tables.UML_Types.E_UML_Information_Flow =>
27663            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
27664
27665         when AMF.Internals.Tables.UML_Types.E_UML_Interface_Realization =>
27666            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
27667
27668         when AMF.Internals.Tables.UML_Types.E_UML_Manifestation =>
27669            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
27670
27671         when AMF.Internals.Tables.UML_Types.E_UML_Package_Import =>
27672            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
27673
27674         when AMF.Internals.Tables.UML_Types.E_UML_Package_Merge =>
27675            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
27676
27677         when AMF.Internals.Tables.UML_Types.E_UML_Profile_Application =>
27678            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
27679
27680         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_Conformance =>
27681            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
27682
27683         when AMF.Internals.Tables.UML_Types.E_UML_Realization =>
27684            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
27685
27686         when AMF.Internals.Tables.UML_Types.E_UML_Substitution =>
27687            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
27688
27689         when AMF.Internals.Tables.UML_Types.E_UML_Template_Binding =>
27690            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
27691
27692         when AMF.Internals.Tables.UML_Types.E_UML_Usage =>
27693            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
27694
27695         when others =>
27696            raise Program_Error;
27697      end case;
27698   end Internal_Get_Target;
27699
27700   ---------------------------
27701   -- Internal_Get_Template --
27702   ---------------------------
27703
27704   function Internal_Get_Template
27705    (Self : AMF.Internals.AMF_Element)
27706       return AMF.Internals.AMF_Element is
27707   begin
27708      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
27709         when AMF.Internals.Tables.UML_Types.E_UML_Redefinable_Template_Signature =>
27710            return
27711              AMF.Internals.Links.Opposite_Element
27712               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
27713
27714         when AMF.Internals.Tables.UML_Types.E_UML_Template_Signature =>
27715            return
27716              AMF.Internals.Links.Opposite_Element
27717               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
27718
27719         when others =>
27720            raise Program_Error;
27721      end case;
27722   end Internal_Get_Template;
27723
27724   -----------------------------------
27725   -- Internal_Get_Template_Binding --
27726   -----------------------------------
27727
27728   function Internal_Get_Template_Binding
27729    (Self : AMF.Internals.AMF_Element)
27730       return AMF.Internals.AMF_Element is
27731   begin
27732      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
27733         when AMF.Internals.Tables.UML_Types.E_UML_Template_Parameter_Substitution =>
27734            return
27735              AMF.Internals.Links.Opposite_Element
27736               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (5).Link, Self);
27737
27738         when others =>
27739            raise Program_Error;
27740      end case;
27741   end Internal_Get_Template_Binding;
27742
27743   -----------------------------------
27744   -- Internal_Get_Template_Binding --
27745   -----------------------------------
27746
27747   function Internal_Get_Template_Binding
27748    (Self : AMF.Internals.AMF_Element)
27749       return AMF.Internals.AMF_Collection_Of_Element is
27750   begin
27751      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
27752         when AMF.Internals.Tables.UML_Types.E_UML_Activity =>
27753            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
27754
27755         when AMF.Internals.Tables.UML_Types.E_UML_Actor =>
27756            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
27757
27758         when AMF.Internals.Tables.UML_Types.E_UML_Artifact =>
27759            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
27760
27761         when AMF.Internals.Tables.UML_Types.E_UML_Association =>
27762            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
27763
27764         when AMF.Internals.Tables.UML_Types.E_UML_Association_Class =>
27765            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
27766
27767         when AMF.Internals.Tables.UML_Types.E_UML_Class =>
27768            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
27769
27770         when AMF.Internals.Tables.UML_Types.E_UML_Collaboration =>
27771            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
27772
27773         when AMF.Internals.Tables.UML_Types.E_UML_Communication_Path =>
27774            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
27775
27776         when AMF.Internals.Tables.UML_Types.E_UML_Component =>
27777            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
27778
27779         when AMF.Internals.Tables.UML_Types.E_UML_Data_Type =>
27780            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
27781
27782         when AMF.Internals.Tables.UML_Types.E_UML_Deployment_Specification =>
27783            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
27784
27785         when AMF.Internals.Tables.UML_Types.E_UML_Device =>
27786            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
27787
27788         when AMF.Internals.Tables.UML_Types.E_UML_Enumeration =>
27789            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
27790
27791         when AMF.Internals.Tables.UML_Types.E_UML_Execution_Environment =>
27792            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
27793
27794         when AMF.Internals.Tables.UML_Types.E_UML_Extension =>
27795            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
27796
27797         when AMF.Internals.Tables.UML_Types.E_UML_Function_Behavior =>
27798            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
27799
27800         when AMF.Internals.Tables.UML_Types.E_UML_Information_Item =>
27801            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
27802
27803         when AMF.Internals.Tables.UML_Types.E_UML_Interaction =>
27804            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
27805
27806         when AMF.Internals.Tables.UML_Types.E_UML_Interface =>
27807            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
27808
27809         when AMF.Internals.Tables.UML_Types.E_UML_Model =>
27810            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
27811
27812         when AMF.Internals.Tables.UML_Types.E_UML_Node =>
27813            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
27814
27815         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Behavior =>
27816            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
27817
27818         when AMF.Internals.Tables.UML_Types.E_UML_Operation =>
27819            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
27820
27821         when AMF.Internals.Tables.UML_Types.E_UML_Package =>
27822            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
27823
27824         when AMF.Internals.Tables.UML_Types.E_UML_Primitive_Type =>
27825            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
27826
27827         when AMF.Internals.Tables.UML_Types.E_UML_Profile =>
27828            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
27829
27830         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_State_Machine =>
27831            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
27832
27833         when AMF.Internals.Tables.UML_Types.E_UML_Signal =>
27834            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
27835
27836         when AMF.Internals.Tables.UML_Types.E_UML_State_Machine =>
27837            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
27838
27839         when AMF.Internals.Tables.UML_Types.E_UML_Stereotype =>
27840            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
27841
27842         when AMF.Internals.Tables.UML_Types.E_UML_String_Expression =>
27843            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
27844
27845         when AMF.Internals.Tables.UML_Types.E_UML_Use_Case =>
27846            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
27847
27848         when others =>
27849            raise Program_Error;
27850      end case;
27851   end Internal_Get_Template_Binding;
27852
27853   -------------------------------------
27854   -- Internal_Get_Template_Parameter --
27855   -------------------------------------
27856
27857   function Internal_Get_Template_Parameter
27858    (Self : AMF.Internals.AMF_Element)
27859       return AMF.Internals.AMF_Element is
27860   begin
27861      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
27862         when AMF.Internals.Tables.UML_Types.E_UML_Abstraction =>
27863            return
27864              AMF.Internals.Links.Opposite_Element
27865               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
27866
27867         when AMF.Internals.Tables.UML_Types.E_UML_Activity =>
27868            return
27869              AMF.Internals.Links.Opposite_Element
27870               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Link, Self);
27871
27872         when AMF.Internals.Tables.UML_Types.E_UML_Actor =>
27873            return
27874              AMF.Internals.Links.Opposite_Element
27875               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Link, Self);
27876
27877         when AMF.Internals.Tables.UML_Types.E_UML_Any_Receive_Event =>
27878            return
27879              AMF.Internals.Links.Opposite_Element
27880               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
27881
27882         when AMF.Internals.Tables.UML_Types.E_UML_Artifact =>
27883            return
27884              AMF.Internals.Links.Opposite_Element
27885               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Link, Self);
27886
27887         when AMF.Internals.Tables.UML_Types.E_UML_Association =>
27888            return
27889              AMF.Internals.Links.Opposite_Element
27890               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Link, Self);
27891
27892         when AMF.Internals.Tables.UML_Types.E_UML_Association_Class =>
27893            return
27894              AMF.Internals.Links.Opposite_Element
27895               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Link, Self);
27896
27897         when AMF.Internals.Tables.UML_Types.E_UML_Call_Event =>
27898            return
27899              AMF.Internals.Links.Opposite_Element
27900               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
27901
27902         when AMF.Internals.Tables.UML_Types.E_UML_Change_Event =>
27903            return
27904              AMF.Internals.Links.Opposite_Element
27905               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
27906
27907         when AMF.Internals.Tables.UML_Types.E_UML_Class =>
27908            return
27909              AMF.Internals.Links.Opposite_Element
27910               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Link, Self);
27911
27912         when AMF.Internals.Tables.UML_Types.E_UML_Collaboration =>
27913            return
27914              AMF.Internals.Links.Opposite_Element
27915               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Link, Self);
27916
27917         when AMF.Internals.Tables.UML_Types.E_UML_Communication_Path =>
27918            return
27919              AMF.Internals.Links.Opposite_Element
27920               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Link, Self);
27921
27922         when AMF.Internals.Tables.UML_Types.E_UML_Component =>
27923            return
27924              AMF.Internals.Links.Opposite_Element
27925               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Link, Self);
27926
27927         when AMF.Internals.Tables.UML_Types.E_UML_Component_Realization =>
27928            return
27929              AMF.Internals.Links.Opposite_Element
27930               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
27931
27932         when AMF.Internals.Tables.UML_Types.E_UML_Constraint =>
27933            return
27934              AMF.Internals.Links.Opposite_Element
27935               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
27936
27937         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Activity_Diagram =>
27938            return
27939              AMF.Internals.Links.Opposite_Element
27940               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
27941
27942         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Class_Diagram =>
27943            return
27944              AMF.Internals.Links.Opposite_Element
27945               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
27946
27947         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Component_Diagram =>
27948            return
27949              AMF.Internals.Links.Opposite_Element
27950               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
27951
27952         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Composite_Structure_Diagram =>
27953            return
27954              AMF.Internals.Links.Opposite_Element
27955               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
27956
27957         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Deployment_Diagram =>
27958            return
27959              AMF.Internals.Links.Opposite_Element
27960               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
27961
27962         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Interaction_Diagram =>
27963            return
27964              AMF.Internals.Links.Opposite_Element
27965               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
27966
27967         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Object_Diagram =>
27968            return
27969              AMF.Internals.Links.Opposite_Element
27970               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
27971
27972         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Package_Diagram =>
27973            return
27974              AMF.Internals.Links.Opposite_Element
27975               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
27976
27977         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Profile_Diagram =>
27978            return
27979              AMF.Internals.Links.Opposite_Element
27980               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
27981
27982         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_State_Machine_Diagram =>
27983            return
27984              AMF.Internals.Links.Opposite_Element
27985               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
27986
27987         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Style =>
27988            return
27989              AMF.Internals.Links.Opposite_Element
27990               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
27991
27992         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Use_Case_Diagram =>
27993            return
27994              AMF.Internals.Links.Opposite_Element
27995               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
27996
27997         when AMF.Internals.Tables.UML_Types.E_UML_Data_Type =>
27998            return
27999              AMF.Internals.Links.Opposite_Element
28000               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Link, Self);
28001
28002         when AMF.Internals.Tables.UML_Types.E_UML_Dependency =>
28003            return
28004              AMF.Internals.Links.Opposite_Element
28005               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
28006
28007         when AMF.Internals.Tables.UML_Types.E_UML_Deployment =>
28008            return
28009              AMF.Internals.Links.Opposite_Element
28010               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
28011
28012         when AMF.Internals.Tables.UML_Types.E_UML_Deployment_Specification =>
28013            return
28014              AMF.Internals.Links.Opposite_Element
28015               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Link, Self);
28016
28017         when AMF.Internals.Tables.UML_Types.E_UML_Device =>
28018            return
28019              AMF.Internals.Links.Opposite_Element
28020               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Link, Self);
28021
28022         when AMF.Internals.Tables.UML_Types.E_UML_Duration =>
28023            return
28024              AMF.Internals.Links.Opposite_Element
28025               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
28026
28027         when AMF.Internals.Tables.UML_Types.E_UML_Duration_Constraint =>
28028            return
28029              AMF.Internals.Links.Opposite_Element
28030               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
28031
28032         when AMF.Internals.Tables.UML_Types.E_UML_Duration_Interval =>
28033            return
28034              AMF.Internals.Links.Opposite_Element
28035               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
28036
28037         when AMF.Internals.Tables.UML_Types.E_UML_Duration_Observation =>
28038            return
28039              AMF.Internals.Links.Opposite_Element
28040               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
28041
28042         when AMF.Internals.Tables.UML_Types.E_UML_Enumeration =>
28043            return
28044              AMF.Internals.Links.Opposite_Element
28045               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Link, Self);
28046
28047         when AMF.Internals.Tables.UML_Types.E_UML_Enumeration_Literal =>
28048            return
28049              AMF.Internals.Links.Opposite_Element
28050               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
28051
28052         when AMF.Internals.Tables.UML_Types.E_UML_Execution_Environment =>
28053            return
28054              AMF.Internals.Links.Opposite_Element
28055               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Link, Self);
28056
28057         when AMF.Internals.Tables.UML_Types.E_UML_Expression =>
28058            return
28059              AMF.Internals.Links.Opposite_Element
28060               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
28061
28062         when AMF.Internals.Tables.UML_Types.E_UML_Extension =>
28063            return
28064              AMF.Internals.Links.Opposite_Element
28065               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Link, Self);
28066
28067         when AMF.Internals.Tables.UML_Types.E_UML_Extension_End =>
28068            return
28069              AMF.Internals.Links.Opposite_Element
28070               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (19).Link, Self);
28071
28072         when AMF.Internals.Tables.UML_Types.E_UML_Function_Behavior =>
28073            return
28074              AMF.Internals.Links.Opposite_Element
28075               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Link, Self);
28076
28077         when AMF.Internals.Tables.UML_Types.E_UML_Generalization_Set =>
28078            return
28079              AMF.Internals.Links.Opposite_Element
28080               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
28081
28082         when AMF.Internals.Tables.UML_Types.E_UML_Information_Flow =>
28083            return
28084              AMF.Internals.Links.Opposite_Element
28085               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
28086
28087         when AMF.Internals.Tables.UML_Types.E_UML_Information_Item =>
28088            return
28089              AMF.Internals.Links.Opposite_Element
28090               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Link, Self);
28091
28092         when AMF.Internals.Tables.UML_Types.E_UML_Instance_Specification =>
28093            return
28094              AMF.Internals.Links.Opposite_Element
28095               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
28096
28097         when AMF.Internals.Tables.UML_Types.E_UML_Instance_Value =>
28098            return
28099              AMF.Internals.Links.Opposite_Element
28100               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
28101
28102         when AMF.Internals.Tables.UML_Types.E_UML_Interaction =>
28103            return
28104              AMF.Internals.Links.Opposite_Element
28105               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Link, Self);
28106
28107         when AMF.Internals.Tables.UML_Types.E_UML_Interaction_Constraint =>
28108            return
28109              AMF.Internals.Links.Opposite_Element
28110               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
28111
28112         when AMF.Internals.Tables.UML_Types.E_UML_Interface =>
28113            return
28114              AMF.Internals.Links.Opposite_Element
28115               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Link, Self);
28116
28117         when AMF.Internals.Tables.UML_Types.E_UML_Interface_Realization =>
28118            return
28119              AMF.Internals.Links.Opposite_Element
28120               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
28121
28122         when AMF.Internals.Tables.UML_Types.E_UML_Interval =>
28123            return
28124              AMF.Internals.Links.Opposite_Element
28125               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
28126
28127         when AMF.Internals.Tables.UML_Types.E_UML_Interval_Constraint =>
28128            return
28129              AMF.Internals.Links.Opposite_Element
28130               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
28131
28132         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Boolean =>
28133            return
28134              AMF.Internals.Links.Opposite_Element
28135               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
28136
28137         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Integer =>
28138            return
28139              AMF.Internals.Links.Opposite_Element
28140               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
28141
28142         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Null =>
28143            return
28144              AMF.Internals.Links.Opposite_Element
28145               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
28146
28147         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Real =>
28148            return
28149              AMF.Internals.Links.Opposite_Element
28150               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
28151
28152         when AMF.Internals.Tables.UML_Types.E_UML_Literal_String =>
28153            return
28154              AMF.Internals.Links.Opposite_Element
28155               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
28156
28157         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Unlimited_Natural =>
28158            return
28159              AMF.Internals.Links.Opposite_Element
28160               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
28161
28162         when AMF.Internals.Tables.UML_Types.E_UML_Manifestation =>
28163            return
28164              AMF.Internals.Links.Opposite_Element
28165               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
28166
28167         when AMF.Internals.Tables.UML_Types.E_UML_Model =>
28168            return
28169              AMF.Internals.Links.Opposite_Element
28170               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
28171
28172         when AMF.Internals.Tables.UML_Types.E_UML_Node =>
28173            return
28174              AMF.Internals.Links.Opposite_Element
28175               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Link, Self);
28176
28177         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Behavior =>
28178            return
28179              AMF.Internals.Links.Opposite_Element
28180               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Link, Self);
28181
28182         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Expression =>
28183            return
28184              AMF.Internals.Links.Opposite_Element
28185               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
28186
28187         when AMF.Internals.Tables.UML_Types.E_UML_Operation =>
28188            return
28189              AMF.Internals.Links.Opposite_Element
28190               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (23).Link, Self);
28191
28192         when AMF.Internals.Tables.UML_Types.E_UML_Package =>
28193            return
28194              AMF.Internals.Links.Opposite_Element
28195               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
28196
28197         when AMF.Internals.Tables.UML_Types.E_UML_Parameter =>
28198            return
28199              AMF.Internals.Links.Opposite_Element
28200               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (19).Link, Self);
28201
28202         when AMF.Internals.Tables.UML_Types.E_UML_Port =>
28203            return
28204              AMF.Internals.Links.Opposite_Element
28205               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (19).Link, Self);
28206
28207         when AMF.Internals.Tables.UML_Types.E_UML_Primitive_Type =>
28208            return
28209              AMF.Internals.Links.Opposite_Element
28210               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Link, Self);
28211
28212         when AMF.Internals.Tables.UML_Types.E_UML_Profile =>
28213            return
28214              AMF.Internals.Links.Opposite_Element
28215               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
28216
28217         when AMF.Internals.Tables.UML_Types.E_UML_Property =>
28218            return
28219              AMF.Internals.Links.Opposite_Element
28220               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (19).Link, Self);
28221
28222         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_State_Machine =>
28223            return
28224              AMF.Internals.Links.Opposite_Element
28225               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Link, Self);
28226
28227         when AMF.Internals.Tables.UML_Types.E_UML_Realization =>
28228            return
28229              AMF.Internals.Links.Opposite_Element
28230               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
28231
28232         when AMF.Internals.Tables.UML_Types.E_UML_Signal =>
28233            return
28234              AMF.Internals.Links.Opposite_Element
28235               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Link, Self);
28236
28237         when AMF.Internals.Tables.UML_Types.E_UML_Signal_Event =>
28238            return
28239              AMF.Internals.Links.Opposite_Element
28240               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
28241
28242         when AMF.Internals.Tables.UML_Types.E_UML_State_Machine =>
28243            return
28244              AMF.Internals.Links.Opposite_Element
28245               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Link, Self);
28246
28247         when AMF.Internals.Tables.UML_Types.E_UML_Stereotype =>
28248            return
28249              AMF.Internals.Links.Opposite_Element
28250               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Link, Self);
28251
28252         when AMF.Internals.Tables.UML_Types.E_UML_String_Expression =>
28253            return
28254              AMF.Internals.Links.Opposite_Element
28255               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
28256
28257         when AMF.Internals.Tables.UML_Types.E_UML_Substitution =>
28258            return
28259              AMF.Internals.Links.Opposite_Element
28260               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
28261
28262         when AMF.Internals.Tables.UML_Types.E_UML_Time_Constraint =>
28263            return
28264              AMF.Internals.Links.Opposite_Element
28265               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
28266
28267         when AMF.Internals.Tables.UML_Types.E_UML_Time_Event =>
28268            return
28269              AMF.Internals.Links.Opposite_Element
28270               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
28271
28272         when AMF.Internals.Tables.UML_Types.E_UML_Time_Expression =>
28273            return
28274              AMF.Internals.Links.Opposite_Element
28275               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
28276
28277         when AMF.Internals.Tables.UML_Types.E_UML_Time_Interval =>
28278            return
28279              AMF.Internals.Links.Opposite_Element
28280               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
28281
28282         when AMF.Internals.Tables.UML_Types.E_UML_Time_Observation =>
28283            return
28284              AMF.Internals.Links.Opposite_Element
28285               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
28286
28287         when AMF.Internals.Tables.UML_Types.E_UML_Usage =>
28288            return
28289              AMF.Internals.Links.Opposite_Element
28290               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
28291
28292         when AMF.Internals.Tables.UML_Types.E_UML_Use_Case =>
28293            return
28294              AMF.Internals.Links.Opposite_Element
28295               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Link, Self);
28296
28297         when AMF.Internals.Tables.UML_Types.E_UML_Variable =>
28298            return
28299              AMF.Internals.Links.Opposite_Element
28300               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (19).Link, Self);
28301
28302         when others =>
28303            raise Program_Error;
28304      end case;
28305   end Internal_Get_Template_Parameter;
28306
28307   -----------------------
28308   -- Internal_Get_Test --
28309   -----------------------
28310
28311   function Internal_Get_Test
28312    (Self : AMF.Internals.AMF_Element)
28313       return AMF.Internals.AMF_Collection_Of_Element is
28314   begin
28315      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
28316         when AMF.Internals.Tables.UML_Types.E_UML_Clause =>
28317            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
28318
28319         when AMF.Internals.Tables.UML_Types.E_UML_Loop_Node =>
28320            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 37;
28321
28322         when others =>
28323            raise Program_Error;
28324      end case;
28325   end Internal_Get_Test;
28326
28327   -----------------------
28328   -- Internal_Get_Text --
28329   -----------------------
28330
28331   function Internal_Get_Text
28332    (Self : AMF.Internals.AMF_Element)
28333       return Matreshka.Internals.Strings.Shared_String_Access is
28334   begin
28335      return
28336        AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).String_Value;
28337   end Internal_Get_Text;
28338
28339   ---------------------------
28340   -- Internal_Get_To_After --
28341   ---------------------------
28342
28343   function Internal_Get_To_After
28344    (Self : AMF.Internals.AMF_Element)
28345       return AMF.Internals.AMF_Collection_Of_Element is
28346   begin
28347      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
28348         when AMF.Internals.Tables.UML_Types.E_UML_Destruction_Occurrence_Specification =>
28349            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
28350
28351         when AMF.Internals.Tables.UML_Types.E_UML_Execution_Occurrence_Specification =>
28352            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
28353
28354         when AMF.Internals.Tables.UML_Types.E_UML_Message_Occurrence_Specification =>
28355            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
28356
28357         when AMF.Internals.Tables.UML_Types.E_UML_Occurrence_Specification =>
28358            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 4;
28359
28360         when others =>
28361            raise Program_Error;
28362      end case;
28363   end Internal_Get_To_After;
28364
28365   ----------------------------
28366   -- Internal_Get_To_Before --
28367   ----------------------------
28368
28369   function Internal_Get_To_Before
28370    (Self : AMF.Internals.AMF_Element)
28371       return AMF.Internals.AMF_Collection_Of_Element is
28372   begin
28373      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
28374         when AMF.Internals.Tables.UML_Types.E_UML_Destruction_Occurrence_Specification =>
28375            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
28376
28377         when AMF.Internals.Tables.UML_Types.E_UML_Execution_Occurrence_Specification =>
28378            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
28379
28380         when AMF.Internals.Tables.UML_Types.E_UML_Message_Occurrence_Specification =>
28381            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
28382
28383         when AMF.Internals.Tables.UML_Types.E_UML_Occurrence_Specification =>
28384            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 5;
28385
28386         when others =>
28387            raise Program_Error;
28388      end case;
28389   end Internal_Get_To_Before;
28390
28391   ---------------------------------
28392   -- Internal_Get_Transformation --
28393   ---------------------------------
28394
28395   function Internal_Get_Transformation
28396    (Self : AMF.Internals.AMF_Element)
28397       return AMF.Internals.AMF_Element is
28398   begin
28399      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
28400         when AMF.Internals.Tables.UML_Types.E_UML_Object_Flow =>
28401            return
28402              AMF.Internals.Links.Opposite_Element
28403               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (18).Link, Self);
28404
28405         when others =>
28406            raise Program_Error;
28407      end case;
28408   end Internal_Get_Transformation;
28409
28410   -----------------------------
28411   -- Internal_Get_Transition --
28412   -----------------------------
28413
28414   function Internal_Get_Transition
28415    (Self : AMF.Internals.AMF_Element)
28416       return AMF.Internals.AMF_Collection_Of_Element is
28417   begin
28418      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
28419         when AMF.Internals.Tables.UML_Types.E_UML_Region =>
28420            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 7;
28421
28422         when others =>
28423            raise Program_Error;
28424      end case;
28425   end Internal_Get_Transition;
28426
28427   --------------------------
28428   -- Internal_Get_Trigger --
28429   --------------------------
28430
28431   function Internal_Get_Trigger
28432    (Self : AMF.Internals.AMF_Element)
28433       return AMF.Internals.AMF_Collection_Of_Element is
28434   begin
28435      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
28436         when AMF.Internals.Tables.UML_Types.E_UML_Accept_Call_Action =>
28437            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 13;
28438
28439         when AMF.Internals.Tables.UML_Types.E_UML_Accept_Event_Action =>
28440            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 13;
28441
28442         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_Transition =>
28443            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
28444
28445         when AMF.Internals.Tables.UML_Types.E_UML_Transition =>
28446            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 6;
28447
28448         when others =>
28449            raise Program_Error;
28450      end case;
28451   end Internal_Get_Trigger;
28452
28453   -----------------------
28454   -- Internal_Get_Type --
28455   -----------------------
28456
28457   function Internal_Get_Type
28458    (Self : AMF.Internals.AMF_Element)
28459       return AMF.Internals.AMF_Element is
28460   begin
28461      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
28462         when AMF.Internals.Tables.UML_Types.E_UML_Action_Input_Pin =>
28463            return
28464              AMF.Internals.Links.Opposite_Element
28465               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (11).Link, Self);
28466
28467         when AMF.Internals.Tables.UML_Types.E_UML_Activity_Parameter_Node =>
28468            return
28469              AMF.Internals.Links.Opposite_Element
28470               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (11).Link, Self);
28471
28472         when AMF.Internals.Tables.UML_Types.E_UML_Central_Buffer_Node =>
28473            return
28474              AMF.Internals.Links.Opposite_Element
28475               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (11).Link, Self);
28476
28477         when AMF.Internals.Tables.UML_Types.E_UML_Collaboration_Use =>
28478            return
28479              AMF.Internals.Links.Opposite_Element
28480               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Link, Self);
28481
28482         when AMF.Internals.Tables.UML_Types.E_UML_Connector =>
28483            return
28484              AMF.Internals.Links.Opposite_Element
28485               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (9).Link, Self);
28486
28487         when AMF.Internals.Tables.UML_Types.E_UML_Data_Store_Node =>
28488            return
28489              AMF.Internals.Links.Opposite_Element
28490               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (11).Link, Self);
28491
28492         when AMF.Internals.Tables.UML_Types.E_UML_Duration =>
28493            return
28494              AMF.Internals.Links.Opposite_Element
28495               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (11).Link, Self);
28496
28497         when AMF.Internals.Tables.UML_Types.E_UML_Duration_Interval =>
28498            return
28499              AMF.Internals.Links.Opposite_Element
28500               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (11).Link, Self);
28501
28502         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Node =>
28503            return
28504              AMF.Internals.Links.Opposite_Element
28505               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (11).Link, Self);
28506
28507         when AMF.Internals.Tables.UML_Types.E_UML_Expression =>
28508            return
28509              AMF.Internals.Links.Opposite_Element
28510               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (11).Link, Self);
28511
28512         when AMF.Internals.Tables.UML_Types.E_UML_Extension_End =>
28513            return
28514              AMF.Internals.Links.Opposite_Element
28515               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (34).Link, Self);
28516
28517         when AMF.Internals.Tables.UML_Types.E_UML_Input_Pin =>
28518            return
28519              AMF.Internals.Links.Opposite_Element
28520               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (11).Link, Self);
28521
28522         when AMF.Internals.Tables.UML_Types.E_UML_Instance_Value =>
28523            return
28524              AMF.Internals.Links.Opposite_Element
28525               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (11).Link, Self);
28526
28527         when AMF.Internals.Tables.UML_Types.E_UML_Interval =>
28528            return
28529              AMF.Internals.Links.Opposite_Element
28530               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (11).Link, Self);
28531
28532         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Boolean =>
28533            return
28534              AMF.Internals.Links.Opposite_Element
28535               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (11).Link, Self);
28536
28537         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Integer =>
28538            return
28539              AMF.Internals.Links.Opposite_Element
28540               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (11).Link, Self);
28541
28542         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Null =>
28543            return
28544              AMF.Internals.Links.Opposite_Element
28545               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (11).Link, Self);
28546
28547         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Real =>
28548            return
28549              AMF.Internals.Links.Opposite_Element
28550               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (11).Link, Self);
28551
28552         when AMF.Internals.Tables.UML_Types.E_UML_Literal_String =>
28553            return
28554              AMF.Internals.Links.Opposite_Element
28555               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (11).Link, Self);
28556
28557         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Unlimited_Natural =>
28558            return
28559              AMF.Internals.Links.Opposite_Element
28560               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (11).Link, Self);
28561
28562         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Expression =>
28563            return
28564              AMF.Internals.Links.Opposite_Element
28565               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (11).Link, Self);
28566
28567         when AMF.Internals.Tables.UML_Types.E_UML_Operation =>
28568            return
28569              AMF.Internals.Links.Opposite_Element
28570               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (24).Link, Self);
28571
28572         when AMF.Internals.Tables.UML_Types.E_UML_Output_Pin =>
28573            return
28574              AMF.Internals.Links.Opposite_Element
28575               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (11).Link, Self);
28576
28577         when AMF.Internals.Tables.UML_Types.E_UML_Parameter =>
28578            return
28579              AMF.Internals.Links.Opposite_Element
28580               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (11).Link, Self);
28581
28582         when AMF.Internals.Tables.UML_Types.E_UML_Port =>
28583            return
28584              AMF.Internals.Links.Opposite_Element
28585               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (11).Link, Self);
28586
28587         when AMF.Internals.Tables.UML_Types.E_UML_Property =>
28588            return
28589              AMF.Internals.Links.Opposite_Element
28590               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (11).Link, Self);
28591
28592         when AMF.Internals.Tables.UML_Types.E_UML_String_Expression =>
28593            return
28594              AMF.Internals.Links.Opposite_Element
28595               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (11).Link, Self);
28596
28597         when AMF.Internals.Tables.UML_Types.E_UML_Time_Expression =>
28598            return
28599              AMF.Internals.Links.Opposite_Element
28600               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (11).Link, Self);
28601
28602         when AMF.Internals.Tables.UML_Types.E_UML_Time_Interval =>
28603            return
28604              AMF.Internals.Links.Opposite_Element
28605               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (11).Link, Self);
28606
28607         when AMF.Internals.Tables.UML_Types.E_UML_Value_Pin =>
28608            return
28609              AMF.Internals.Links.Opposite_Element
28610               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (11).Link, Self);
28611
28612         when AMF.Internals.Tables.UML_Types.E_UML_Variable =>
28613            return
28614              AMF.Internals.Links.Opposite_Element
28615               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (11).Link, Self);
28616
28617         when others =>
28618            raise Program_Error;
28619      end case;
28620   end Internal_Get_Type;
28621
28622   ----------------------------------
28623   -- Internal_Get_Unmarshall_Type --
28624   ----------------------------------
28625
28626   function Internal_Get_Unmarshall_Type
28627    (Self : AMF.Internals.AMF_Element)
28628       return AMF.Internals.AMF_Element is
28629   begin
28630      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
28631         when AMF.Internals.Tables.UML_Types.E_UML_Unmarshall_Action =>
28632            return
28633              AMF.Internals.Links.Opposite_Element
28634               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (13).Link, Self);
28635
28636         when others =>
28637            raise Program_Error;
28638      end case;
28639   end Internal_Get_Unmarshall_Type;
28640
28641   ------------------------
28642   -- Internal_Get_Upper --
28643   ------------------------
28644
28645   function Internal_Get_Upper
28646    (Self : AMF.Internals.AMF_Element)
28647       return AMF.Optional_Unlimited_Natural is
28648   begin
28649      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (15).Unlimited_Natural_Holder;
28650   end Internal_Get_Upper;
28651
28652   ------------------------------
28653   -- Internal_Get_Upper_Bound --
28654   ------------------------------
28655
28656   function Internal_Get_Upper_Bound
28657    (Self : AMF.Internals.AMF_Element)
28658       return AMF.Internals.AMF_Element is
28659   begin
28660      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
28661         when AMF.Internals.Tables.UML_Types.E_UML_Action_Input_Pin =>
28662            return
28663              AMF.Internals.Links.Opposite_Element
28664               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (20).Link, Self);
28665
28666         when AMF.Internals.Tables.UML_Types.E_UML_Activity_Parameter_Node =>
28667            return
28668              AMF.Internals.Links.Opposite_Element
28669               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (20).Link, Self);
28670
28671         when AMF.Internals.Tables.UML_Types.E_UML_Central_Buffer_Node =>
28672            return
28673              AMF.Internals.Links.Opposite_Element
28674               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (20).Link, Self);
28675
28676         when AMF.Internals.Tables.UML_Types.E_UML_Data_Store_Node =>
28677            return
28678              AMF.Internals.Links.Opposite_Element
28679               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (20).Link, Self);
28680
28681         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Node =>
28682            return
28683              AMF.Internals.Links.Opposite_Element
28684               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (20).Link, Self);
28685
28686         when AMF.Internals.Tables.UML_Types.E_UML_Input_Pin =>
28687            return
28688              AMF.Internals.Links.Opposite_Element
28689               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (20).Link, Self);
28690
28691         when AMF.Internals.Tables.UML_Types.E_UML_Output_Pin =>
28692            return
28693              AMF.Internals.Links.Opposite_Element
28694               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (20).Link, Self);
28695
28696         when AMF.Internals.Tables.UML_Types.E_UML_Value_Pin =>
28697            return
28698              AMF.Internals.Links.Opposite_Element
28699               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (20).Link, Self);
28700
28701         when others =>
28702            raise Program_Error;
28703      end case;
28704   end Internal_Get_Upper_Bound;
28705
28706   ------------------------------
28707   -- Internal_Get_Upper_Value --
28708   ------------------------------
28709
28710   function Internal_Get_Upper_Value
28711    (Self : AMF.Internals.AMF_Element)
28712       return AMF.Internals.AMF_Element is
28713   begin
28714      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
28715         when AMF.Internals.Tables.UML_Types.E_UML_Action_Input_Pin =>
28716            return
28717              AMF.Internals.Links.Opposite_Element
28718               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Link, Self);
28719
28720         when AMF.Internals.Tables.UML_Types.E_UML_Connector_End =>
28721            return
28722              AMF.Internals.Links.Opposite_Element
28723               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Link, Self);
28724
28725         when AMF.Internals.Tables.UML_Types.E_UML_Extension_End =>
28726            return
28727              AMF.Internals.Links.Opposite_Element
28728               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Link, Self);
28729
28730         when AMF.Internals.Tables.UML_Types.E_UML_Input_Pin =>
28731            return
28732              AMF.Internals.Links.Opposite_Element
28733               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Link, Self);
28734
28735         when AMF.Internals.Tables.UML_Types.E_UML_Output_Pin =>
28736            return
28737              AMF.Internals.Links.Opposite_Element
28738               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Link, Self);
28739
28740         when AMF.Internals.Tables.UML_Types.E_UML_Parameter =>
28741            return
28742              AMF.Internals.Links.Opposite_Element
28743               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Link, Self);
28744
28745         when AMF.Internals.Tables.UML_Types.E_UML_Port =>
28746            return
28747              AMF.Internals.Links.Opposite_Element
28748               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Link, Self);
28749
28750         when AMF.Internals.Tables.UML_Types.E_UML_Property =>
28751            return
28752              AMF.Internals.Links.Opposite_Element
28753               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Link, Self);
28754
28755         when AMF.Internals.Tables.UML_Types.E_UML_Value_Pin =>
28756            return
28757              AMF.Internals.Links.Opposite_Element
28758               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Link, Self);
28759
28760         when AMF.Internals.Tables.UML_Types.E_UML_Variable =>
28761            return
28762              AMF.Internals.Links.Opposite_Element
28763               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Link, Self);
28764
28765         when others =>
28766            raise Program_Error;
28767      end case;
28768   end Internal_Get_Upper_Value;
28769
28770   ---------------------------
28771   -- Internal_Get_Use_Case --
28772   ---------------------------
28773
28774   function Internal_Get_Use_Case
28775    (Self : AMF.Internals.AMF_Element)
28776       return AMF.Internals.AMF_Collection_Of_Element is
28777   begin
28778      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
28779         when AMF.Internals.Tables.UML_Types.E_UML_Activity =>
28780            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 23;
28781
28782         when AMF.Internals.Tables.UML_Types.E_UML_Actor =>
28783            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 23;
28784
28785         when AMF.Internals.Tables.UML_Types.E_UML_Artifact =>
28786            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 23;
28787
28788         when AMF.Internals.Tables.UML_Types.E_UML_Association =>
28789            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 23;
28790
28791         when AMF.Internals.Tables.UML_Types.E_UML_Association_Class =>
28792            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 23;
28793
28794         when AMF.Internals.Tables.UML_Types.E_UML_Class =>
28795            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 23;
28796
28797         when AMF.Internals.Tables.UML_Types.E_UML_Collaboration =>
28798            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 23;
28799
28800         when AMF.Internals.Tables.UML_Types.E_UML_Communication_Path =>
28801            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 23;
28802
28803         when AMF.Internals.Tables.UML_Types.E_UML_Component =>
28804            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 23;
28805
28806         when AMF.Internals.Tables.UML_Types.E_UML_Data_Type =>
28807            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 23;
28808
28809         when AMF.Internals.Tables.UML_Types.E_UML_Deployment_Specification =>
28810            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 23;
28811
28812         when AMF.Internals.Tables.UML_Types.E_UML_Device =>
28813            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 23;
28814
28815         when AMF.Internals.Tables.UML_Types.E_UML_Enumeration =>
28816            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 23;
28817
28818         when AMF.Internals.Tables.UML_Types.E_UML_Execution_Environment =>
28819            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 23;
28820
28821         when AMF.Internals.Tables.UML_Types.E_UML_Extension =>
28822            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 23;
28823
28824         when AMF.Internals.Tables.UML_Types.E_UML_Function_Behavior =>
28825            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 23;
28826
28827         when AMF.Internals.Tables.UML_Types.E_UML_Information_Item =>
28828            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 23;
28829
28830         when AMF.Internals.Tables.UML_Types.E_UML_Interaction =>
28831            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 23;
28832
28833         when AMF.Internals.Tables.UML_Types.E_UML_Interface =>
28834            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 23;
28835
28836         when AMF.Internals.Tables.UML_Types.E_UML_Node =>
28837            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 23;
28838
28839         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Behavior =>
28840            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 23;
28841
28842         when AMF.Internals.Tables.UML_Types.E_UML_Primitive_Type =>
28843            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 23;
28844
28845         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_State_Machine =>
28846            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 23;
28847
28848         when AMF.Internals.Tables.UML_Types.E_UML_Signal =>
28849            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 23;
28850
28851         when AMF.Internals.Tables.UML_Types.E_UML_State_Machine =>
28852            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 23;
28853
28854         when AMF.Internals.Tables.UML_Types.E_UML_Stereotype =>
28855            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 23;
28856
28857         when AMF.Internals.Tables.UML_Types.E_UML_Use_Case =>
28858            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 23;
28859
28860         when others =>
28861            raise Program_Error;
28862      end case;
28863   end Internal_Get_Use_Case;
28864
28865   ---------------------------
28866   -- Internal_Get_Use_Case --
28867   ---------------------------
28868
28869   function Internal_Get_Use_Case
28870    (Self : AMF.Internals.AMF_Element)
28871       return AMF.Internals.AMF_Element is
28872   begin
28873      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
28874         when AMF.Internals.Tables.UML_Types.E_UML_Extension_Point =>
28875            return
28876              AMF.Internals.Links.Opposite_Element
28877               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Link, Self);
28878
28879         when others =>
28880            raise Program_Error;
28881      end case;
28882   end Internal_Get_Use_Case;
28883
28884   -----------------------------------
28885   -- Internal_Get_Utilized_Element --
28886   -----------------------------------
28887
28888   function Internal_Get_Utilized_Element
28889    (Self : AMF.Internals.AMF_Element)
28890       return AMF.Internals.AMF_Element is
28891   begin
28892      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
28893         when AMF.Internals.Tables.UML_Types.E_UML_Manifestation =>
28894            return
28895              AMF.Internals.Links.Opposite_Element
28896               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
28897
28898         when others =>
28899            raise Program_Error;
28900      end case;
28901   end Internal_Get_Utilized_Element;
28902
28903   ------------------------
28904   -- Internal_Get_Value --
28905   ------------------------
28906
28907   function Internal_Get_Value
28908    (Self : AMF.Internals.AMF_Element)
28909       return Boolean is
28910   begin
28911      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Boolean_Value;
28912   end Internal_Get_Value;
28913
28914   ------------------------
28915   -- Internal_Get_Value --
28916   ------------------------
28917
28918   function Internal_Get_Value
28919    (Self : AMF.Internals.AMF_Element)
28920       return Integer is
28921   begin
28922      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Integer_Value;
28923   end Internal_Get_Value;
28924
28925   ------------------------
28926   -- Internal_Get_Value --
28927   ------------------------
28928
28929   function Internal_Get_Value
28930    (Self : AMF.Internals.AMF_Element)
28931       return AMF.Real is
28932   begin
28933      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Real_Value;
28934   end Internal_Get_Value;
28935
28936   ------------------------
28937   -- Internal_Get_Value --
28938   ------------------------
28939
28940   function Internal_Get_Value
28941    (Self : AMF.Internals.AMF_Element)
28942       return Matreshka.Internals.Strings.Shared_String_Access is
28943   begin
28944      return
28945        AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).String_Value;
28946   end Internal_Get_Value;
28947
28948   ------------------------
28949   -- Internal_Get_Value --
28950   ------------------------
28951
28952   function Internal_Get_Value
28953    (Self : AMF.Internals.AMF_Element)
28954       return AMF.Unlimited_Natural is
28955   begin
28956      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Unlimited_Natural_Value;
28957   end Internal_Get_Value;
28958
28959   ------------------------
28960   -- Internal_Get_Value --
28961   ------------------------
28962
28963   function Internal_Get_Value
28964    (Self : AMF.Internals.AMF_Element)
28965       return AMF.Internals.AMF_Collection_Of_Element is
28966   begin
28967      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
28968         when AMF.Internals.Tables.UML_Types.E_UML_Slot =>
28969            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 3;
28970
28971         when others =>
28972            raise Program_Error;
28973      end case;
28974   end Internal_Get_Value;
28975
28976   ------------------------
28977   -- Internal_Get_Value --
28978   ------------------------
28979
28980   function Internal_Get_Value
28981    (Self : AMF.Internals.AMF_Element)
28982       return AMF.Internals.AMF_Element is
28983   begin
28984      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
28985         when AMF.Internals.Tables.UML_Types.E_UML_Add_Structural_Feature_Value_Action =>
28986            return
28987              AMF.Internals.Links.Opposite_Element
28988               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Link, Self);
28989
28990         when AMF.Internals.Tables.UML_Types.E_UML_Add_Variable_Value_Action =>
28991            return
28992              AMF.Internals.Links.Opposite_Element
28993               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (13).Link, Self);
28994
28995         when AMF.Internals.Tables.UML_Types.E_UML_Link_End_Creation_Data =>
28996            return
28997              AMF.Internals.Links.Opposite_Element
28998               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
28999
29000         when AMF.Internals.Tables.UML_Types.E_UML_Link_End_Data =>
29001            return
29002              AMF.Internals.Links.Opposite_Element
29003               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
29004
29005         when AMF.Internals.Tables.UML_Types.E_UML_Link_End_Destruction_Data =>
29006            return
29007              AMF.Internals.Links.Opposite_Element
29008               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
29009
29010         when AMF.Internals.Tables.UML_Types.E_UML_Qualifier_Value =>
29011            return
29012              AMF.Internals.Links.Opposite_Element
29013               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Link, Self);
29014
29015         when AMF.Internals.Tables.UML_Types.E_UML_Remove_Structural_Feature_Value_Action =>
29016            return
29017              AMF.Internals.Links.Opposite_Element
29018               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Link, Self);
29019
29020         when AMF.Internals.Tables.UML_Types.E_UML_Remove_Variable_Value_Action =>
29021            return
29022              AMF.Internals.Links.Opposite_Element
29023               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (13).Link, Self);
29024
29025         when AMF.Internals.Tables.UML_Types.E_UML_Value_Pin =>
29026            return
29027              AMF.Internals.Links.Opposite_Element
29028               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (22).Link, Self);
29029
29030         when AMF.Internals.Tables.UML_Types.E_UML_Value_Specification_Action =>
29031            return
29032              AMF.Internals.Links.Opposite_Element
29033               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (13).Link, Self);
29034
29035         when others =>
29036            raise Program_Error;
29037      end case;
29038   end Internal_Get_Value;
29039
29040   ---------------------------
29041   -- Internal_Get_Variable --
29042   ---------------------------
29043
29044   function Internal_Get_Variable
29045    (Self : AMF.Internals.AMF_Element)
29046       return AMF.Internals.AMF_Collection_Of_Element is
29047   begin
29048      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
29049         when AMF.Internals.Tables.UML_Types.E_UML_Activity =>
29050            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 47;
29051
29052         when AMF.Internals.Tables.UML_Types.E_UML_Conditional_Node =>
29053            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 30;
29054
29055         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Region =>
29056            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 30;
29057
29058         when AMF.Internals.Tables.UML_Types.E_UML_Loop_Node =>
29059            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 30;
29060
29061         when AMF.Internals.Tables.UML_Types.E_UML_Sequence_Node =>
29062            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 30;
29063
29064         when AMF.Internals.Tables.UML_Types.E_UML_Structured_Activity_Node =>
29065            return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (0).Collection + 30;
29066
29067         when others =>
29068            raise Program_Error;
29069      end case;
29070   end Internal_Get_Variable;
29071
29072   ---------------------------
29073   -- Internal_Get_Variable --
29074   ---------------------------
29075
29076   function Internal_Get_Variable
29077    (Self : AMF.Internals.AMF_Element)
29078       return AMF.Internals.AMF_Element is
29079   begin
29080      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
29081         when AMF.Internals.Tables.UML_Types.E_UML_Add_Variable_Value_Action =>
29082            return
29083              AMF.Internals.Links.Opposite_Element
29084               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Link, Self);
29085
29086         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Variable_Action =>
29087            return
29088              AMF.Internals.Links.Opposite_Element
29089               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Link, Self);
29090
29091         when AMF.Internals.Tables.UML_Types.E_UML_Read_Variable_Action =>
29092            return
29093              AMF.Internals.Links.Opposite_Element
29094               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Link, Self);
29095
29096         when AMF.Internals.Tables.UML_Types.E_UML_Remove_Variable_Value_Action =>
29097            return
29098              AMF.Internals.Links.Opposite_Element
29099               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Link, Self);
29100
29101         when others =>
29102            raise Program_Error;
29103      end case;
29104   end Internal_Get_Variable;
29105
29106   ----------------------------
29107   -- Internal_Get_Viewpoint --
29108   ----------------------------
29109
29110   function Internal_Get_Viewpoint
29111    (Self : AMF.Internals.AMF_Element)
29112       return Matreshka.Internals.Strings.Shared_String_Access is
29113   begin
29114      return
29115        AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).String_Value;
29116   end Internal_Get_Viewpoint;
29117
29118   -----------------------------
29119   -- Internal_Get_Visibility --
29120   -----------------------------
29121
29122   function Internal_Get_Visibility
29123    (Self : AMF.Internals.AMF_Element)
29124       return AMF.UML.UML_Visibility_Kind is
29125   begin
29126      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (2).Visibility_Kind_Value;
29127   end Internal_Get_Visibility;
29128
29129   -----------------------------
29130   -- Internal_Get_Visibility --
29131   -----------------------------
29132
29133   function Internal_Get_Visibility
29134    (Self : AMF.Internals.AMF_Element)
29135       return AMF.UML.Optional_UML_Visibility_Kind is
29136   begin
29137      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (6).Visibility_Kind_Holder;
29138   end Internal_Get_Visibility;
29139
29140   ---------------------------
29141   -- Internal_Get_Waypoint --
29142   ---------------------------
29143
29144   function Internal_Get_Waypoint
29145    (Self : AMF.Internals.AMF_Element)
29146       return AMF.DC.Sequence_Of_DC_Point is
29147   begin
29148      return AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Point_Collection;
29149   end Internal_Get_Waypoint;
29150
29151   -------------------------
29152   -- Internal_Get_Weight --
29153   -------------------------
29154
29155   function Internal_Get_Weight
29156    (Self : AMF.Internals.AMF_Element)
29157       return AMF.Internals.AMF_Element is
29158   begin
29159      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
29160         when AMF.Internals.Tables.UML_Types.E_UML_Control_Flow =>
29161            return
29162              AMF.Internals.Links.Opposite_Element
29163               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Link, Self);
29164
29165         when AMF.Internals.Tables.UML_Types.E_UML_Object_Flow =>
29166            return
29167              AMF.Internals.Links.Opposite_Element
29168               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Link, Self);
29169
29170         when others =>
29171            raise Program_Error;
29172      end case;
29173   end Internal_Get_Weight;
29174
29175   -----------------------
29176   -- Internal_Get_When --
29177   -----------------------
29178
29179   function Internal_Get_When
29180    (Self : AMF.Internals.AMF_Element)
29181       return AMF.Internals.AMF_Element is
29182   begin
29183      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
29184         when AMF.Internals.Tables.UML_Types.E_UML_Time_Event =>
29185            return
29186              AMF.Internals.Links.Opposite_Element
29187               (AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Link, Self);
29188
29189         when others =>
29190            raise Program_Error;
29191      end case;
29192   end Internal_Get_When;
29193
29194   ----------------------
29195   -- Internal_Set_URI --
29196   ----------------------
29197
29198   procedure Internal_Set_URI
29199    (Self : AMF.Internals.AMF_Element;
29200     To   : Matreshka.Internals.Strings.Shared_String_Access)
29201   is
29202      Old : Matreshka.Internals.Strings.Shared_String_Access;
29203
29204   begin
29205      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).String_Value;
29206
29207      UML_Element_Table.Table (Self).Member (7).String_Value := To;
29208
29209      if UML_Element_Table.Table (Self).Member (7).String_Value /= null then
29210         Matreshka.Internals.Strings.Reference
29211          (UML_Element_Table.Table (Self).Member (7).String_Value);
29212      end if;
29213
29214      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
29215       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Package_URI, Old, To);
29216
29217      if Old /= null then
29218         Matreshka.Internals.Strings.Reference (Old);
29219      end if;
29220   end Internal_Set_URI;
29221
29222   ------------------------------
29223   -- Internal_Set_Abstraction --
29224   ------------------------------
29225
29226   procedure Internal_Set_Abstraction
29227    (Self : AMF.Internals.AMF_Element;
29228     To   : AMF.Internals.AMF_Element) is
29229   begin
29230      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
29231         when AMF.Internals.Tables.UML_Types.E_UML_Component_Realization =>
29232            AMF.Internals.Links.Create_Link
29233             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Component_Realization_Abstraction,
29234              To,
29235              Self);
29236
29237         when others =>
29238            raise Program_Error;
29239      end case;
29240   end Internal_Set_Abstraction;
29241
29242   -------------------------
29243   -- Internal_Set_Action --
29244   -------------------------
29245
29246   procedure Internal_Set_Action
29247    (Self : AMF.Internals.AMF_Element;
29248     To   : AMF.Internals.AMF_Element) is
29249   begin
29250      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
29251         when AMF.Internals.Tables.UML_Types.E_UML_Action_Execution_Specification =>
29252            AMF.Internals.Links.Create_Link
29253             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Action_Execution_Specification_Action_Action_Execution_Specification,
29254              Self,
29255              To);
29256
29257         when others =>
29258            raise Program_Error;
29259      end case;
29260   end Internal_Set_Action;
29261
29262   ---------------------------
29263   -- Internal_Set_Activity --
29264   ---------------------------
29265
29266   procedure Internal_Set_Activity
29267    (Self : AMF.Internals.AMF_Element;
29268     To   : AMF.Internals.AMF_Element) is
29269   begin
29270      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
29271         when AMF.Internals.Tables.UML_Types.E_UML_Accept_Call_Action =>
29272            AMF.Internals.Links.Create_Link
29273             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Activity_Node_Activity,
29274              To,
29275              Self);
29276
29277         when AMF.Internals.Tables.UML_Types.E_UML_Accept_Event_Action =>
29278            AMF.Internals.Links.Create_Link
29279             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Activity_Node_Activity,
29280              To,
29281              Self);
29282
29283         when AMF.Internals.Tables.UML_Types.E_UML_Action_Input_Pin =>
29284            AMF.Internals.Links.Create_Link
29285             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Activity_Node_Activity,
29286              To,
29287              Self);
29288
29289         when AMF.Internals.Tables.UML_Types.E_UML_Activity_Final_Node =>
29290            AMF.Internals.Links.Create_Link
29291             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Activity_Node_Activity,
29292              To,
29293              Self);
29294
29295         when AMF.Internals.Tables.UML_Types.E_UML_Activity_Parameter_Node =>
29296            AMF.Internals.Links.Create_Link
29297             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Activity_Node_Activity,
29298              To,
29299              Self);
29300
29301         when AMF.Internals.Tables.UML_Types.E_UML_Add_Structural_Feature_Value_Action =>
29302            AMF.Internals.Links.Create_Link
29303             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Activity_Node_Activity,
29304              To,
29305              Self);
29306
29307         when AMF.Internals.Tables.UML_Types.E_UML_Add_Variable_Value_Action =>
29308            AMF.Internals.Links.Create_Link
29309             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Activity_Node_Activity,
29310              To,
29311              Self);
29312
29313         when AMF.Internals.Tables.UML_Types.E_UML_Broadcast_Signal_Action =>
29314            AMF.Internals.Links.Create_Link
29315             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Activity_Node_Activity,
29316              To,
29317              Self);
29318
29319         when AMF.Internals.Tables.UML_Types.E_UML_Call_Behavior_Action =>
29320            AMF.Internals.Links.Create_Link
29321             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Activity_Node_Activity,
29322              To,
29323              Self);
29324
29325         when AMF.Internals.Tables.UML_Types.E_UML_Call_Operation_Action =>
29326            AMF.Internals.Links.Create_Link
29327             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Activity_Node_Activity,
29328              To,
29329              Self);
29330
29331         when AMF.Internals.Tables.UML_Types.E_UML_Central_Buffer_Node =>
29332            AMF.Internals.Links.Create_Link
29333             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Activity_Node_Activity,
29334              To,
29335              Self);
29336
29337         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Association_Action =>
29338            AMF.Internals.Links.Create_Link
29339             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Activity_Node_Activity,
29340              To,
29341              Self);
29342
29343         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Structural_Feature_Action =>
29344            AMF.Internals.Links.Create_Link
29345             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Activity_Node_Activity,
29346              To,
29347              Self);
29348
29349         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Variable_Action =>
29350            AMF.Internals.Links.Create_Link
29351             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Activity_Node_Activity,
29352              To,
29353              Self);
29354
29355         when AMF.Internals.Tables.UML_Types.E_UML_Conditional_Node =>
29356            AMF.Internals.Links.Create_Link
29357             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Activity_Node_Activity,
29358              To,
29359              Self);
29360
29361         when AMF.Internals.Tables.UML_Types.E_UML_Control_Flow =>
29362            AMF.Internals.Links.Create_Link
29363             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Activity_Edge_Activity,
29364              To,
29365              Self);
29366
29367         when AMF.Internals.Tables.UML_Types.E_UML_Create_Link_Action =>
29368            AMF.Internals.Links.Create_Link
29369             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Activity_Node_Activity,
29370              To,
29371              Self);
29372
29373         when AMF.Internals.Tables.UML_Types.E_UML_Create_Link_Object_Action =>
29374            AMF.Internals.Links.Create_Link
29375             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Activity_Node_Activity,
29376              To,
29377              Self);
29378
29379         when AMF.Internals.Tables.UML_Types.E_UML_Create_Object_Action =>
29380            AMF.Internals.Links.Create_Link
29381             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Activity_Node_Activity,
29382              To,
29383              Self);
29384
29385         when AMF.Internals.Tables.UML_Types.E_UML_Data_Store_Node =>
29386            AMF.Internals.Links.Create_Link
29387             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Activity_Node_Activity,
29388              To,
29389              Self);
29390
29391         when AMF.Internals.Tables.UML_Types.E_UML_Decision_Node =>
29392            AMF.Internals.Links.Create_Link
29393             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Activity_Node_Activity,
29394              To,
29395              Self);
29396
29397         when AMF.Internals.Tables.UML_Types.E_UML_Destroy_Link_Action =>
29398            AMF.Internals.Links.Create_Link
29399             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Activity_Node_Activity,
29400              To,
29401              Self);
29402
29403         when AMF.Internals.Tables.UML_Types.E_UML_Destroy_Object_Action =>
29404            AMF.Internals.Links.Create_Link
29405             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Activity_Node_Activity,
29406              To,
29407              Self);
29408
29409         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Node =>
29410            AMF.Internals.Links.Create_Link
29411             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Activity_Node_Activity,
29412              To,
29413              Self);
29414
29415         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Region =>
29416            AMF.Internals.Links.Create_Link
29417             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Activity_Node_Activity,
29418              To,
29419              Self);
29420
29421         when AMF.Internals.Tables.UML_Types.E_UML_Flow_Final_Node =>
29422            AMF.Internals.Links.Create_Link
29423             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Activity_Node_Activity,
29424              To,
29425              Self);
29426
29427         when AMF.Internals.Tables.UML_Types.E_UML_Fork_Node =>
29428            AMF.Internals.Links.Create_Link
29429             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Activity_Node_Activity,
29430              To,
29431              Self);
29432
29433         when AMF.Internals.Tables.UML_Types.E_UML_Initial_Node =>
29434            AMF.Internals.Links.Create_Link
29435             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Activity_Node_Activity,
29436              To,
29437              Self);
29438
29439         when AMF.Internals.Tables.UML_Types.E_UML_Input_Pin =>
29440            AMF.Internals.Links.Create_Link
29441             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Activity_Node_Activity,
29442              To,
29443              Self);
29444
29445         when AMF.Internals.Tables.UML_Types.E_UML_Join_Node =>
29446            AMF.Internals.Links.Create_Link
29447             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Activity_Node_Activity,
29448              To,
29449              Self);
29450
29451         when AMF.Internals.Tables.UML_Types.E_UML_Loop_Node =>
29452            AMF.Internals.Links.Create_Link
29453             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Activity_Node_Activity,
29454              To,
29455              Self);
29456
29457         when AMF.Internals.Tables.UML_Types.E_UML_Merge_Node =>
29458            AMF.Internals.Links.Create_Link
29459             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Activity_Node_Activity,
29460              To,
29461              Self);
29462
29463         when AMF.Internals.Tables.UML_Types.E_UML_Object_Flow =>
29464            AMF.Internals.Links.Create_Link
29465             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Activity_Edge_Activity,
29466              To,
29467              Self);
29468
29469         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Action =>
29470            AMF.Internals.Links.Create_Link
29471             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Activity_Node_Activity,
29472              To,
29473              Self);
29474
29475         when AMF.Internals.Tables.UML_Types.E_UML_Output_Pin =>
29476            AMF.Internals.Links.Create_Link
29477             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Activity_Node_Activity,
29478              To,
29479              Self);
29480
29481         when AMF.Internals.Tables.UML_Types.E_UML_Raise_Exception_Action =>
29482            AMF.Internals.Links.Create_Link
29483             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Activity_Node_Activity,
29484              To,
29485              Self);
29486
29487         when AMF.Internals.Tables.UML_Types.E_UML_Read_Extent_Action =>
29488            AMF.Internals.Links.Create_Link
29489             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Activity_Node_Activity,
29490              To,
29491              Self);
29492
29493         when AMF.Internals.Tables.UML_Types.E_UML_Read_Is_Classified_Object_Action =>
29494            AMF.Internals.Links.Create_Link
29495             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Activity_Node_Activity,
29496              To,
29497              Self);
29498
29499         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Action =>
29500            AMF.Internals.Links.Create_Link
29501             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Activity_Node_Activity,
29502              To,
29503              Self);
29504
29505         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Object_End_Action =>
29506            AMF.Internals.Links.Create_Link
29507             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Activity_Node_Activity,
29508              To,
29509              Self);
29510
29511         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Object_End_Qualifier_Action =>
29512            AMF.Internals.Links.Create_Link
29513             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Activity_Node_Activity,
29514              To,
29515              Self);
29516
29517         when AMF.Internals.Tables.UML_Types.E_UML_Read_Self_Action =>
29518            AMF.Internals.Links.Create_Link
29519             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Activity_Node_Activity,
29520              To,
29521              Self);
29522
29523         when AMF.Internals.Tables.UML_Types.E_UML_Read_Structural_Feature_Action =>
29524            AMF.Internals.Links.Create_Link
29525             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Activity_Node_Activity,
29526              To,
29527              Self);
29528
29529         when AMF.Internals.Tables.UML_Types.E_UML_Read_Variable_Action =>
29530            AMF.Internals.Links.Create_Link
29531             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Activity_Node_Activity,
29532              To,
29533              Self);
29534
29535         when AMF.Internals.Tables.UML_Types.E_UML_Reclassify_Object_Action =>
29536            AMF.Internals.Links.Create_Link
29537             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Activity_Node_Activity,
29538              To,
29539              Self);
29540
29541         when AMF.Internals.Tables.UML_Types.E_UML_Reduce_Action =>
29542            AMF.Internals.Links.Create_Link
29543             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Activity_Node_Activity,
29544              To,
29545              Self);
29546
29547         when AMF.Internals.Tables.UML_Types.E_UML_Remove_Structural_Feature_Value_Action =>
29548            AMF.Internals.Links.Create_Link
29549             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Activity_Node_Activity,
29550              To,
29551              Self);
29552
29553         when AMF.Internals.Tables.UML_Types.E_UML_Remove_Variable_Value_Action =>
29554            AMF.Internals.Links.Create_Link
29555             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Activity_Node_Activity,
29556              To,
29557              Self);
29558
29559         when AMF.Internals.Tables.UML_Types.E_UML_Reply_Action =>
29560            AMF.Internals.Links.Create_Link
29561             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Activity_Node_Activity,
29562              To,
29563              Self);
29564
29565         when AMF.Internals.Tables.UML_Types.E_UML_Send_Object_Action =>
29566            AMF.Internals.Links.Create_Link
29567             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Activity_Node_Activity,
29568              To,
29569              Self);
29570
29571         when AMF.Internals.Tables.UML_Types.E_UML_Send_Signal_Action =>
29572            AMF.Internals.Links.Create_Link
29573             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Activity_Node_Activity,
29574              To,
29575              Self);
29576
29577         when AMF.Internals.Tables.UML_Types.E_UML_Sequence_Node =>
29578            AMF.Internals.Links.Create_Link
29579             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Activity_Node_Activity,
29580              To,
29581              Self);
29582
29583         when AMF.Internals.Tables.UML_Types.E_UML_Start_Classifier_Behavior_Action =>
29584            AMF.Internals.Links.Create_Link
29585             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Activity_Node_Activity,
29586              To,
29587              Self);
29588
29589         when AMF.Internals.Tables.UML_Types.E_UML_Start_Object_Behavior_Action =>
29590            AMF.Internals.Links.Create_Link
29591             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Activity_Node_Activity,
29592              To,
29593              Self);
29594
29595         when AMF.Internals.Tables.UML_Types.E_UML_Structured_Activity_Node =>
29596            AMF.Internals.Links.Create_Link
29597             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Activity_Node_Activity,
29598              To,
29599              Self);
29600
29601         when AMF.Internals.Tables.UML_Types.E_UML_Test_Identity_Action =>
29602            AMF.Internals.Links.Create_Link
29603             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Activity_Node_Activity,
29604              To,
29605              Self);
29606
29607         when AMF.Internals.Tables.UML_Types.E_UML_Unmarshall_Action =>
29608            AMF.Internals.Links.Create_Link
29609             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Activity_Node_Activity,
29610              To,
29611              Self);
29612
29613         when AMF.Internals.Tables.UML_Types.E_UML_Value_Pin =>
29614            AMF.Internals.Links.Create_Link
29615             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Activity_Node_Activity,
29616              To,
29617              Self);
29618
29619         when AMF.Internals.Tables.UML_Types.E_UML_Value_Specification_Action =>
29620            AMF.Internals.Links.Create_Link
29621             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Activity_Node_Activity,
29622              To,
29623              Self);
29624
29625         when others =>
29626            raise Program_Error;
29627      end case;
29628   end Internal_Set_Activity;
29629
29630   ---------------------------------
29631   -- Internal_Set_Activity_Scope --
29632   ---------------------------------
29633
29634   procedure Internal_Set_Activity_Scope
29635    (Self : AMF.Internals.AMF_Element;
29636     To   : AMF.Internals.AMF_Element) is
29637   begin
29638      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
29639         when AMF.Internals.Tables.UML_Types.E_UML_Variable =>
29640            AMF.Internals.Links.Create_Link
29641             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Activity_Variable_Activity_Scope,
29642              To,
29643              Self);
29644
29645         when others =>
29646            raise Program_Error;
29647      end case;
29648   end Internal_Set_Activity_Scope;
29649
29650   -------------------------
29651   -- Internal_Set_Actual --
29652   -------------------------
29653
29654   procedure Internal_Set_Actual
29655    (Self : AMF.Internals.AMF_Element;
29656     To   : AMF.Internals.AMF_Element) is
29657   begin
29658      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
29659         when AMF.Internals.Tables.UML_Types.E_UML_Template_Parameter_Substitution =>
29660            AMF.Internals.Links.Create_Link
29661             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Substitution_Actual_Template_Parameter_Substitution,
29662              Self,
29663              To);
29664
29665         when others =>
29666            raise Program_Error;
29667      end case;
29668   end Internal_Set_Actual;
29669
29670   ---------------------------
29671   -- Internal_Set_Addition --
29672   ---------------------------
29673
29674   procedure Internal_Set_Addition
29675    (Self : AMF.Internals.AMF_Element;
29676     To   : AMF.Internals.AMF_Element) is
29677   begin
29678      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
29679         when AMF.Internals.Tables.UML_Types.E_UML_Include =>
29680            AMF.Internals.Links.Create_Link
29681             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Include_Addition_Include,
29682              Self,
29683              To);
29684
29685         when others =>
29686            raise Program_Error;
29687      end case;
29688   end Internal_Set_Addition;
29689
29690   ------------------------
29691   -- Internal_Set_After --
29692   ------------------------
29693
29694   procedure Internal_Set_After
29695    (Self : AMF.Internals.AMF_Element;
29696     To   : AMF.Internals.AMF_Element) is
29697   begin
29698      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
29699         when AMF.Internals.Tables.UML_Types.E_UML_General_Ordering =>
29700            AMF.Internals.Links.Create_Link
29701             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Occurrence_Specification_To_Before_After,
29702              To,
29703              Self);
29704
29705         when others =>
29706            raise Program_Error;
29707      end case;
29708   end Internal_Set_After;
29709
29710   ------------------------------
29711   -- Internal_Set_Aggregation --
29712   ------------------------------
29713
29714   procedure Internal_Set_Aggregation
29715    (Self : AMF.Internals.AMF_Element;
29716     To   : AMF.UML.UML_Aggregation_Kind)
29717   is
29718      Old : AMF.UML.UML_Aggregation_Kind;
29719
29720   begin
29721      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (22).Aggregation_Kind_Value;
29722      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (22).Aggregation_Kind_Value := To;
29723
29724      AMF.Internals.Tables.UML_Notification.Notify_Attribute_Set
29725       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Aggregation, Old, To);
29726   end Internal_Set_Aggregation;
29727
29728   ------------------------
29729   -- Internal_Set_Alias --
29730   ------------------------
29731
29732   procedure Internal_Set_Alias
29733    (Self : AMF.Internals.AMF_Element;
29734     To   : Matreshka.Internals.Strings.Shared_String_Access)
29735   is
29736      Old : Matreshka.Internals.Strings.Shared_String_Access;
29737
29738   begin
29739      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).String_Value;
29740
29741      UML_Element_Table.Table (Self).Member (3).String_Value := To;
29742
29743      if UML_Element_Table.Table (Self).Member (3).String_Value /= null then
29744         Matreshka.Internals.Strings.Reference
29745          (UML_Element_Table.Table (Self).Member (3).String_Value);
29746      end if;
29747
29748      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
29749       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Import_Alias, Old, To);
29750
29751      if Old /= null then
29752         Matreshka.Internals.Strings.Reference (Old);
29753      end if;
29754   end Internal_Set_Alias;
29755
29756   --------------------------------------
29757   -- Internal_Set_Allow_Substitutable --
29758   --------------------------------------
29759
29760   procedure Internal_Set_Allow_Substitutable
29761    (Self : AMF.Internals.AMF_Element;
29762     To   : Boolean)
29763   is
29764      Old : Boolean;
29765
29766   begin
29767      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Boolean_Value;
29768      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Boolean_Value := To;
29769
29770      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
29771       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Template_Parameter_Allow_Substitutable, Old, To);
29772   end Internal_Set_Allow_Substitutable;
29773
29774   ----------------------------------
29775   -- Internal_Set_Applied_Profile --
29776   ----------------------------------
29777
29778   procedure Internal_Set_Applied_Profile
29779    (Self : AMF.Internals.AMF_Element;
29780     To   : AMF.Internals.AMF_Element) is
29781   begin
29782      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
29783         when AMF.Internals.Tables.UML_Types.E_UML_Profile_Application =>
29784            AMF.Internals.Links.Create_Link
29785             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Profile_Application_Applied_Profile_Profile_Application,
29786              Self,
29787              To);
29788
29789         when others =>
29790            raise Program_Error;
29791      end case;
29792   end Internal_Set_Applied_Profile;
29793
29794   -----------------------------------
29795   -- Internal_Set_Applying_Package --
29796   -----------------------------------
29797
29798   procedure Internal_Set_Applying_Package
29799    (Self : AMF.Internals.AMF_Element;
29800     To   : AMF.Internals.AMF_Element) is
29801   begin
29802      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
29803         when AMF.Internals.Tables.UML_Types.E_UML_Profile_Application =>
29804            AMF.Internals.Links.Create_Link
29805             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Package_Profile_Application_Applying_Package,
29806              To,
29807              Self);
29808
29809         when others =>
29810            raise Program_Error;
29811      end case;
29812   end Internal_Set_Applying_Package;
29813
29814   ------------------------------
29815   -- Internal_Set_Association --
29816   ------------------------------
29817
29818   procedure Internal_Set_Association
29819    (Self : AMF.Internals.AMF_Element;
29820     To   : AMF.Internals.AMF_Element) is
29821   begin
29822      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
29823         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Association_Action =>
29824            AMF.Internals.Links.Create_Link
29825             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Clear_Association_Action_Association_Clear_Association_Action,
29826              Self,
29827              To);
29828
29829         when AMF.Internals.Tables.UML_Types.E_UML_Extension_End =>
29830            AMF.Internals.Links.Create_Link
29831             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Association_Member_End_Association,
29832              To,
29833              Self);
29834
29835         when AMF.Internals.Tables.UML_Types.E_UML_Port =>
29836            AMF.Internals.Links.Create_Link
29837             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Association_Member_End_Association,
29838              To,
29839              Self);
29840
29841         when AMF.Internals.Tables.UML_Types.E_UML_Property =>
29842            AMF.Internals.Links.Create_Link
29843             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Association_Member_End_Association,
29844              To,
29845              Self);
29846
29847         when others =>
29848            raise Program_Error;
29849      end case;
29850   end Internal_Set_Association;
29851
29852   ----------------------------------
29853   -- Internal_Set_Association_End --
29854   ----------------------------------
29855
29856   procedure Internal_Set_Association_End
29857    (Self : AMF.Internals.AMF_Element;
29858     To   : AMF.Internals.AMF_Element) is
29859   begin
29860      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
29861         when AMF.Internals.Tables.UML_Types.E_UML_Extension_End =>
29862            AMF.Internals.Links.Create_Link
29863             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Property_Qualifier_Association_End,
29864              To,
29865              Self);
29866
29867         when AMF.Internals.Tables.UML_Types.E_UML_Port =>
29868            AMF.Internals.Links.Create_Link
29869             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Property_Qualifier_Association_End,
29870              To,
29871              Self);
29872
29873         when AMF.Internals.Tables.UML_Types.E_UML_Property =>
29874            AMF.Internals.Links.Create_Link
29875             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Property_Qualifier_Association_End,
29876              To,
29877              Self);
29878
29879         when others =>
29880            raise Program_Error;
29881      end case;
29882   end Internal_Set_Association_End;
29883
29884   -----------------------------------
29885   -- Internal_Set_Base_Abstraction --
29886   -----------------------------------
29887
29888   procedure Internal_Set_Base_Abstraction
29889    (Self : AMF.Internals.AMF_Element;
29890     To   : AMF.Internals.AMF_Element) is
29891   begin
29892      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
29893         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Derive =>
29894            AMF.Internals.Links.Create_Link
29895             (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MA_Standard_Profile_L2_A_Extension_Derive_Base_Abstraction,
29896              To,
29897              Self);
29898
29899         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Refine =>
29900            AMF.Internals.Links.Create_Link
29901             (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MA_Standard_Profile_L2_A_Extension_Refine_Base_Abstraction,
29902              To,
29903              Self);
29904
29905         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Trace =>
29906            AMF.Internals.Links.Create_Link
29907             (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MA_Standard_Profile_L2_A_Extension_Trace_Base_Abstraction,
29908              To,
29909              Self);
29910
29911         when others =>
29912            raise Program_Error;
29913      end case;
29914   end Internal_Set_Base_Abstraction;
29915
29916   --------------------------------
29917   -- Internal_Set_Base_Artifact --
29918   --------------------------------
29919
29920   procedure Internal_Set_Base_Artifact
29921    (Self : AMF.Internals.AMF_Element;
29922     To   : AMF.Internals.AMF_Element) is
29923   begin
29924      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
29925         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Document =>
29926            AMF.Internals.Links.Create_Link
29927             (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MA_Standard_Profile_L2_A_Extension_Document_Base_Artifact,
29928              To,
29929              Self);
29930
29931         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Executable =>
29932            AMF.Internals.Links.Create_Link
29933             (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MA_Standard_Profile_L2_A_Extension_Executable_Base_Artifact,
29934              To,
29935              Self);
29936
29937         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Library =>
29938            AMF.Internals.Links.Create_Link
29939             (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MA_Standard_Profile_L2_A_Extension_File_Base_Artifact,
29940              To,
29941              Self);
29942
29943         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Script =>
29944            AMF.Internals.Links.Create_Link
29945             (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MA_Standard_Profile_L2_A_Extension_File_Base_Artifact,
29946              To,
29947              Self);
29948
29949         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Source =>
29950            AMF.Internals.Links.Create_Link
29951             (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MA_Standard_Profile_L2_A_Extension_File_Base_Artifact,
29952              To,
29953              Self);
29954
29955         when others =>
29956            raise Program_Error;
29957      end case;
29958   end Internal_Set_Base_Artifact;
29959
29960   ------------------------------------------
29961   -- Internal_Set_Base_Behavioral_Feature --
29962   ------------------------------------------
29963
29964   procedure Internal_Set_Base_Behavioral_Feature
29965    (Self : AMF.Internals.AMF_Element;
29966     To   : AMF.Internals.AMF_Element) is
29967   begin
29968      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
29969         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Create =>
29970            AMF.Internals.Links.Create_Link
29971             (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MA_Standard_Profile_L2_A_Extension_Create_Base_Behavioral_Feature,
29972              To,
29973              Self);
29974
29975         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Destroy =>
29976            AMF.Internals.Links.Create_Link
29977             (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MA_Standard_Profile_L2_A_Extension_Destroy_Base_Behavioral_Feature,
29978              To,
29979              Self);
29980
29981         when others =>
29982            raise Program_Error;
29983      end case;
29984   end Internal_Set_Base_Behavioral_Feature;
29985
29986   -----------------------------
29987   -- Internal_Set_Base_Class --
29988   -----------------------------
29989
29990   procedure Internal_Set_Base_Class
29991    (Self : AMF.Internals.AMF_Element;
29992     To   : AMF.Internals.AMF_Element) is
29993   begin
29994      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
29995         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Auxiliary =>
29996            AMF.Internals.Links.Create_Link
29997             (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MA_Standard_Profile_L2_A_Extension_Auxiliary_Base_Class,
29998              To,
29999              Self);
30000
30001         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Focus =>
30002            AMF.Internals.Links.Create_Link
30003             (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MA_Standard_Profile_L2_A_Extension_Focus_Base_Class,
30004              To,
30005              Self);
30006
30007         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Implementation_Class =>
30008            AMF.Internals.Links.Create_Link
30009             (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MA_Standard_Profile_L2_A_Extension_Implementation_Class_Base_Class,
30010              To,
30011              Self);
30012
30013         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Metaclass =>
30014            AMF.Internals.Links.Create_Link
30015             (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MA_Standard_Profile_L2_A_Extension_Metaclass_Base_Class,
30016              To,
30017              Self);
30018
30019         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Type =>
30020            AMF.Internals.Links.Create_Link
30021             (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MA_Standard_Profile_L2_A_Extension_Type_Base_Class,
30022              To,
30023              Self);
30024
30025         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Utility =>
30026            AMF.Internals.Links.Create_Link
30027             (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MA_Standard_Profile_L2_A_Extension_Utility_Base_Class,
30028              To,
30029              Self);
30030
30031         when others =>
30032            raise Program_Error;
30033      end case;
30034   end Internal_Set_Base_Class;
30035
30036   ----------------------------------
30037   -- Internal_Set_Base_Classifier --
30038   ----------------------------------
30039
30040   procedure Internal_Set_Base_Classifier
30041    (Self : AMF.Internals.AMF_Element;
30042     To   : AMF.Internals.AMF_Element) is
30043   begin
30044      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
30045         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Realization =>
30046            AMF.Internals.Links.Create_Link
30047             (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MA_Standard_Profile_L2_A_Extension_Realization_Base_Classifier,
30048              To,
30049              Self);
30050
30051         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Specification =>
30052            AMF.Internals.Links.Create_Link
30053             (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MA_Standard_Profile_L2_A_Extension_Specification_Base_Classifier,
30054              To,
30055              Self);
30056
30057         when others =>
30058            raise Program_Error;
30059      end case;
30060   end Internal_Set_Base_Classifier;
30061
30062   ---------------------------------
30063   -- Internal_Set_Base_Component --
30064   ---------------------------------
30065
30066   procedure Internal_Set_Base_Component
30067    (Self : AMF.Internals.AMF_Element;
30068     To   : AMF.Internals.AMF_Element) is
30069   begin
30070      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
30071         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Entity =>
30072            AMF.Internals.Links.Create_Link
30073             (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MA_Standard_Profile_L2_A_Extension_Entity_Base_Component,
30074              To,
30075              Self);
30076
30077         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Implement =>
30078            AMF.Internals.Links.Create_Link
30079             (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MA_Standard_Profile_L2_A_Extension_Implement_Base_Component,
30080              To,
30081              Self);
30082
30083         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Process =>
30084            AMF.Internals.Links.Create_Link
30085             (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MA_Standard_Profile_L2_A_Extension_Process_Base_Component,
30086              To,
30087              Self);
30088
30089         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Service =>
30090            AMF.Internals.Links.Create_Link
30091             (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MA_Standard_Profile_L2_A_Extension_Service_Base_Component,
30092              To,
30093              Self);
30094
30095         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Subsystem =>
30096            AMF.Internals.Links.Create_Link
30097             (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MA_Standard_Profile_L2_A_Extension_Subsystem_Base_Component,
30098              To,
30099              Self);
30100
30101         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L3_Build_Component =>
30102            AMF.Internals.Links.Create_Link
30103             (AMF.Internals.Tables.Standard_Profile_L3_Metamodel.MA_Standard_Profile_L3_A_Extension_Build_Component_Base_Component,
30104              To,
30105              Self);
30106
30107         when others =>
30108            raise Program_Error;
30109      end case;
30110   end Internal_Set_Base_Component;
30111
30112   -----------------------------
30113   -- Internal_Set_Base_Model --
30114   -----------------------------
30115
30116   procedure Internal_Set_Base_Model
30117    (Self : AMF.Internals.AMF_Element;
30118     To   : AMF.Internals.AMF_Element) is
30119   begin
30120      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
30121         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L3_Metamodel =>
30122            AMF.Internals.Links.Create_Link
30123             (AMF.Internals.Tables.Standard_Profile_L3_Metamodel.MA_Standard_Profile_L3_A_Extension_Metamodel_Base_Model,
30124              To,
30125              Self);
30126
30127         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L3_System_Model =>
30128            AMF.Internals.Links.Create_Link
30129             (AMF.Internals.Tables.Standard_Profile_L3_Metamodel.MA_Standard_Profile_L3_A_Extension_System_Model_Base_Model,
30130              To,
30131              Self);
30132
30133         when others =>
30134            raise Program_Error;
30135      end case;
30136   end Internal_Set_Base_Model;
30137
30138   -------------------------------
30139   -- Internal_Set_Base_Package --
30140   -------------------------------
30141
30142   procedure Internal_Set_Base_Package
30143    (Self : AMF.Internals.AMF_Element;
30144     To   : AMF.Internals.AMF_Element) is
30145   begin
30146      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
30147         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Framework =>
30148            AMF.Internals.Links.Create_Link
30149             (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MA_Standard_Profile_L2_A_Extension_Framework_Base_Package,
30150              To,
30151              Self);
30152
30153         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Model_Library =>
30154            AMF.Internals.Links.Create_Link
30155             (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MA_Standard_Profile_L2_A_Extension_Model_Library_Base_Package,
30156              To,
30157              Self);
30158
30159         when others =>
30160            raise Program_Error;
30161      end case;
30162   end Internal_Set_Base_Package;
30163
30164   -----------------------------
30165   -- Internal_Set_Base_Usage --
30166   -----------------------------
30167
30168   procedure Internal_Set_Base_Usage
30169    (Self : AMF.Internals.AMF_Element;
30170     To   : AMF.Internals.AMF_Element) is
30171   begin
30172      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
30173         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Call =>
30174            AMF.Internals.Links.Create_Link
30175             (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MA_Standard_Profile_L2_A_Extension_Call_Base_Usage,
30176              To,
30177              Self);
30178
30179         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Create =>
30180            AMF.Internals.Links.Create_Link
30181             (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MA_Standard_Profile_L2_A_Extension_Create_Base_Usage,
30182              To,
30183              Self);
30184
30185         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Instantiate =>
30186            AMF.Internals.Links.Create_Link
30187             (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MA_Standard_Profile_L2_A_Extension_Instantiate_Base_Usage,
30188              To,
30189              Self);
30190
30191         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Responsibility =>
30192            AMF.Internals.Links.Create_Link
30193             (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MA_Standard_Profile_L2_A_Extension_Responsibility_Base_Usage,
30194              To,
30195              Self);
30196
30197         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Send =>
30198            AMF.Internals.Links.Create_Link
30199             (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MA_Standard_Profile_L2_A_Extension_Send_Base_Usage,
30200              To,
30201              Self);
30202
30203         when others =>
30204            raise Program_Error;
30205      end case;
30206   end Internal_Set_Base_Usage;
30207
30208   -------------------------
30209   -- Internal_Set_Before --
30210   -------------------------
30211
30212   procedure Internal_Set_Before
30213    (Self : AMF.Internals.AMF_Element;
30214     To   : AMF.Internals.AMF_Element) is
30215   begin
30216      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
30217         when AMF.Internals.Tables.UML_Types.E_UML_General_Ordering =>
30218            AMF.Internals.Links.Create_Link
30219             (AMF.Internals.Tables.UML_Metamodel.MA_UML_General_Ordering_Before_To_After,
30220              Self,
30221              To);
30222
30223         when others =>
30224            raise Program_Error;
30225      end case;
30226   end Internal_Set_Before;
30227
30228   ---------------------------
30229   -- Internal_Set_Behavior --
30230   ---------------------------
30231
30232   procedure Internal_Set_Behavior
30233    (Self : AMF.Internals.AMF_Element;
30234     To   : AMF.Internals.AMF_Element) is
30235   begin
30236      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
30237         when AMF.Internals.Tables.UML_Types.E_UML_Behavior_Execution_Specification =>
30238            AMF.Internals.Links.Create_Link
30239             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Behavior_Execution_Specification_Behavior_Behavior_Execution_Specification,
30240              Self,
30241              To);
30242
30243         when AMF.Internals.Tables.UML_Types.E_UML_Call_Behavior_Action =>
30244            AMF.Internals.Links.Create_Link
30245             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Call_Behavior_Action_Behavior_Call_Behavior_Action,
30246              Self,
30247              To);
30248
30249         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Expression =>
30250            AMF.Internals.Links.Create_Link
30251             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Opaque_Expression_Behavior_Opaque_Expression,
30252              Self,
30253              To);
30254
30255         when others =>
30256            raise Program_Error;
30257      end case;
30258   end Internal_Set_Behavior;
30259
30260   -----------------------
30261   -- Internal_Set_Body --
30262   -----------------------
30263
30264   procedure Internal_Set_Body
30265    (Self : AMF.Internals.AMF_Element;
30266     To   : Matreshka.Internals.Strings.Shared_String_Access)
30267   is
30268      Old : Matreshka.Internals.Strings.Shared_String_Access;
30269
30270   begin
30271      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (2).String_Value;
30272
30273      UML_Element_Table.Table (Self).Member (2).String_Value := To;
30274
30275      if UML_Element_Table.Table (Self).Member (2).String_Value /= null then
30276         Matreshka.Internals.Strings.Reference
30277          (UML_Element_Table.Table (Self).Member (2).String_Value);
30278      end if;
30279
30280      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
30281       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Comment_Body, Old, To);
30282
30283      if Old /= null then
30284         Matreshka.Internals.Strings.Reference (Old);
30285      end if;
30286   end Internal_Set_Body;
30287
30288   ---------------------------------
30289   -- Internal_Set_Body_Condition --
30290   ---------------------------------
30291
30292   procedure Internal_Set_Body_Condition
30293    (Self : AMF.Internals.AMF_Element;
30294     To   : AMF.Internals.AMF_Element) is
30295   begin
30296      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
30297         when AMF.Internals.Tables.UML_Types.E_UML_Operation =>
30298            AMF.Internals.Links.Create_Link
30299             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Operation_Body_Condition_Body_Context,
30300              Self,
30301              To);
30302
30303         when others =>
30304            raise Program_Error;
30305      end case;
30306   end Internal_Set_Body_Condition;
30307
30308   --------------------------------
30309   -- Internal_Set_Bound_Element --
30310   --------------------------------
30311
30312   procedure Internal_Set_Bound_Element
30313    (Self : AMF.Internals.AMF_Element;
30314     To   : AMF.Internals.AMF_Element) is
30315   begin
30316      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
30317         when AMF.Internals.Tables.UML_Types.E_UML_Template_Binding =>
30318            AMF.Internals.Links.Create_Link
30319             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Templateable_Element_Template_Binding_Bound_Element,
30320              To,
30321              Self);
30322
30323         when others =>
30324            raise Program_Error;
30325      end case;
30326   end Internal_Set_Bound_Element;
30327
30328   -------------------------
30329   -- Internal_Set_Bounds --
30330   -------------------------
30331
30332   procedure Internal_Set_Bounds
30333    (Self : AMF.Internals.AMF_Element;
30334     To   : AMF.DC.Optional_DC_Bounds)
30335   is
30336      Old : AMF.DC.Optional_DC_Bounds;
30337
30338   begin
30339      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (17).Bounds_Holder;
30340      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (17).Bounds_Holder := To;
30341
30342      AMF.Internals.Tables.DC_Notification.Notify_Attribute_Set
30343       (Self, AMF.Internals.Tables.DI_Metamodel.MP_DI_Shape_Bounds, Old, To);
30344   end Internal_Set_Bounds;
30345
30346   ------------------------------------
30347   -- Internal_Set_Change_Expression --
30348   ------------------------------------
30349
30350   procedure Internal_Set_Change_Expression
30351    (Self : AMF.Internals.AMF_Element;
30352     To   : AMF.Internals.AMF_Element) is
30353   begin
30354      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
30355         when AMF.Internals.Tables.UML_Types.E_UML_Change_Event =>
30356            AMF.Internals.Links.Create_Link
30357             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Change_Event_Change_Expression_Change_Event,
30358              Self,
30359              To);
30360
30361         when others =>
30362            raise Program_Error;
30363      end case;
30364   end Internal_Set_Change_Expression;
30365
30366   ------------------------
30367   -- Internal_Set_Class --
30368   ------------------------
30369
30370   procedure Internal_Set_Class
30371    (Self : AMF.Internals.AMF_Element;
30372     To   : AMF.Internals.AMF_Element) is
30373   begin
30374      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
30375         when AMF.Internals.Tables.UML_Types.E_UML_Extension_End =>
30376            AMF.Internals.Links.Create_Link
30377             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Class_Owned_Attribute_Class,
30378              To,
30379              Self);
30380
30381         when AMF.Internals.Tables.UML_Types.E_UML_Operation =>
30382            AMF.Internals.Links.Create_Link
30383             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Class_Owned_Operation_Class,
30384              To,
30385              Self);
30386
30387         when AMF.Internals.Tables.UML_Types.E_UML_Port =>
30388            AMF.Internals.Links.Create_Link
30389             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Class_Owned_Attribute_Class,
30390              To,
30391              Self);
30392
30393         when AMF.Internals.Tables.UML_Types.E_UML_Property =>
30394            AMF.Internals.Links.Create_Link
30395             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Class_Owned_Attribute_Class,
30396              To,
30397              Self);
30398
30399         when others =>
30400            raise Program_Error;
30401      end case;
30402   end Internal_Set_Class;
30403
30404   -----------------------------
30405   -- Internal_Set_Classifier --
30406   -----------------------------
30407
30408   procedure Internal_Set_Classifier
30409    (Self : AMF.Internals.AMF_Element;
30410     To   : AMF.Internals.AMF_Element) is
30411   begin
30412      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
30413         when AMF.Internals.Tables.UML_Types.E_UML_Create_Object_Action =>
30414            AMF.Internals.Links.Create_Link
30415             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Create_Object_Action_Classifier_Create_Object_Action,
30416              Self,
30417              To);
30418
30419         when AMF.Internals.Tables.UML_Types.E_UML_Enumeration_Literal =>
30420            AMF.Internals.Links.Create_Link
30421             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Enumeration_Literal_Classifier_Enumeration_Literal,
30422              Self,
30423              To);
30424
30425         when AMF.Internals.Tables.UML_Types.E_UML_Read_Extent_Action =>
30426            AMF.Internals.Links.Create_Link
30427             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Read_Extent_Action_Classifier_Read_Extent_Action,
30428              Self,
30429              To);
30430
30431         when AMF.Internals.Tables.UML_Types.E_UML_Read_Is_Classified_Object_Action =>
30432            AMF.Internals.Links.Create_Link
30433             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Read_Is_Classified_Object_Action_Classifier_Read_Is_Classified_Object_Action,
30434              Self,
30435              To);
30436
30437         when AMF.Internals.Tables.UML_Types.E_UML_Redefinable_Template_Signature =>
30438            AMF.Internals.Links.Create_Link
30439             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Owned_Template_Signature_Classifier,
30440              To,
30441              Self);
30442
30443         when others =>
30444            raise Program_Error;
30445      end case;
30446   end Internal_Set_Classifier;
30447
30448   --------------------------------------
30449   -- Internal_Set_Classifier_Behavior --
30450   --------------------------------------
30451
30452   procedure Internal_Set_Classifier_Behavior
30453    (Self : AMF.Internals.AMF_Element;
30454     To   : AMF.Internals.AMF_Element) is
30455   begin
30456      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
30457         when AMF.Internals.Tables.UML_Types.E_UML_Activity =>
30458            AMF.Internals.Links.Create_Link
30459             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Behaviored_Classifier_Classifier_Behavior_Behaviored_Classifier,
30460              Self,
30461              To);
30462
30463         when AMF.Internals.Tables.UML_Types.E_UML_Actor =>
30464            AMF.Internals.Links.Create_Link
30465             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Behaviored_Classifier_Classifier_Behavior_Behaviored_Classifier,
30466              Self,
30467              To);
30468
30469         when AMF.Internals.Tables.UML_Types.E_UML_Association_Class =>
30470            AMF.Internals.Links.Create_Link
30471             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Behaviored_Classifier_Classifier_Behavior_Behaviored_Classifier,
30472              Self,
30473              To);
30474
30475         when AMF.Internals.Tables.UML_Types.E_UML_Class =>
30476            AMF.Internals.Links.Create_Link
30477             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Behaviored_Classifier_Classifier_Behavior_Behaviored_Classifier,
30478              Self,
30479              To);
30480
30481         when AMF.Internals.Tables.UML_Types.E_UML_Collaboration =>
30482            AMF.Internals.Links.Create_Link
30483             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Behaviored_Classifier_Classifier_Behavior_Behaviored_Classifier,
30484              Self,
30485              To);
30486
30487         when AMF.Internals.Tables.UML_Types.E_UML_Component =>
30488            AMF.Internals.Links.Create_Link
30489             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Behaviored_Classifier_Classifier_Behavior_Behaviored_Classifier,
30490              Self,
30491              To);
30492
30493         when AMF.Internals.Tables.UML_Types.E_UML_Device =>
30494            AMF.Internals.Links.Create_Link
30495             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Behaviored_Classifier_Classifier_Behavior_Behaviored_Classifier,
30496              Self,
30497              To);
30498
30499         when AMF.Internals.Tables.UML_Types.E_UML_Execution_Environment =>
30500            AMF.Internals.Links.Create_Link
30501             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Behaviored_Classifier_Classifier_Behavior_Behaviored_Classifier,
30502              Self,
30503              To);
30504
30505         when AMF.Internals.Tables.UML_Types.E_UML_Function_Behavior =>
30506            AMF.Internals.Links.Create_Link
30507             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Behaviored_Classifier_Classifier_Behavior_Behaviored_Classifier,
30508              Self,
30509              To);
30510
30511         when AMF.Internals.Tables.UML_Types.E_UML_Interaction =>
30512            AMF.Internals.Links.Create_Link
30513             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Behaviored_Classifier_Classifier_Behavior_Behaviored_Classifier,
30514              Self,
30515              To);
30516
30517         when AMF.Internals.Tables.UML_Types.E_UML_Node =>
30518            AMF.Internals.Links.Create_Link
30519             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Behaviored_Classifier_Classifier_Behavior_Behaviored_Classifier,
30520              Self,
30521              To);
30522
30523         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Behavior =>
30524            AMF.Internals.Links.Create_Link
30525             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Behaviored_Classifier_Classifier_Behavior_Behaviored_Classifier,
30526              Self,
30527              To);
30528
30529         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_State_Machine =>
30530            AMF.Internals.Links.Create_Link
30531             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Behaviored_Classifier_Classifier_Behavior_Behaviored_Classifier,
30532              Self,
30533              To);
30534
30535         when AMF.Internals.Tables.UML_Types.E_UML_State_Machine =>
30536            AMF.Internals.Links.Create_Link
30537             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Behaviored_Classifier_Classifier_Behavior_Behaviored_Classifier,
30538              Self,
30539              To);
30540
30541         when AMF.Internals.Tables.UML_Types.E_UML_Stereotype =>
30542            AMF.Internals.Links.Create_Link
30543             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Behaviored_Classifier_Classifier_Behavior_Behaviored_Classifier,
30544              Self,
30545              To);
30546
30547         when AMF.Internals.Tables.UML_Types.E_UML_Use_Case =>
30548            AMF.Internals.Links.Create_Link
30549             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Behaviored_Classifier_Classifier_Behavior_Behaviored_Classifier,
30550              Self,
30551              To);
30552
30553         when others =>
30554            raise Program_Error;
30555      end case;
30556   end Internal_Set_Classifier_Behavior;
30557
30558   -----------------------------
30559   -- Internal_Set_Collection --
30560   -----------------------------
30561
30562   procedure Internal_Set_Collection
30563    (Self : AMF.Internals.AMF_Element;
30564     To   : AMF.Internals.AMF_Element) is
30565   begin
30566      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
30567         when AMF.Internals.Tables.UML_Types.E_UML_Reduce_Action =>
30568            AMF.Internals.Links.Create_Link
30569             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Reduce_Action_Collection_Reduce_Action,
30570              Self,
30571              To);
30572
30573         when others =>
30574            raise Program_Error;
30575      end case;
30576   end Internal_Set_Collection;
30577
30578   ------------------------------
30579   -- Internal_Set_Computation --
30580   ------------------------------
30581
30582   procedure Internal_Set_Computation
30583    (Self : AMF.Internals.AMF_Element;
30584     To   : AMF.Internals.AMF_Element) is
30585   begin
30586      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
30587         when AMF.Internals.Tables.UML_Types.E_Standard_Profile_L2_Derive =>
30588            AMF.Internals.Links.Create_Link
30589             (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MA_Standard_Profile_L2_A_Extension_Derive_Computation,
30590              To,
30591              Self);
30592
30593         when others =>
30594            raise Program_Error;
30595      end case;
30596   end Internal_Set_Computation;
30597
30598   ------------------------------
30599   -- Internal_Set_Concurrency --
30600   ------------------------------
30601
30602   procedure Internal_Set_Concurrency
30603    (Self : AMF.Internals.AMF_Element;
30604     To   : AMF.UML.UML_Call_Concurrency_Kind)
30605   is
30606      Old : AMF.UML.UML_Call_Concurrency_Kind;
30607
30608   begin
30609      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Call_Concurrency_Kind_Value;
30610      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Call_Concurrency_Kind_Value := To;
30611
30612      AMF.Internals.Tables.UML_Notification.Notify_Attribute_Set
30613       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavioral_Feature_Concurrency, Old, To);
30614   end Internal_Set_Concurrency;
30615
30616   ----------------------------
30617   -- Internal_Set_Condition --
30618   ----------------------------
30619
30620   procedure Internal_Set_Condition
30621    (Self : AMF.Internals.AMF_Element;
30622     To   : AMF.Internals.AMF_Element) is
30623   begin
30624      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
30625         when AMF.Internals.Tables.UML_Types.E_UML_Extend =>
30626            AMF.Internals.Links.Create_Link
30627             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Extend_Condition_Extend,
30628              Self,
30629              To);
30630
30631         when others =>
30632            raise Program_Error;
30633      end case;
30634   end Internal_Set_Condition;
30635
30636   ----------------------------
30637   -- Internal_Set_Connector --
30638   ----------------------------
30639
30640   procedure Internal_Set_Connector
30641    (Self : AMF.Internals.AMF_Element;
30642     To   : AMF.Internals.AMF_Element) is
30643   begin
30644      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
30645         when AMF.Internals.Tables.UML_Types.E_UML_Message =>
30646            AMF.Internals.Links.Create_Link
30647             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Message_Connector_Message,
30648              Self,
30649              To);
30650
30651         when others =>
30652            raise Program_Error;
30653      end case;
30654   end Internal_Set_Connector;
30655
30656   ----------------------------
30657   -- Internal_Set_Container --
30658   ----------------------------
30659
30660   procedure Internal_Set_Container
30661    (Self : AMF.Internals.AMF_Element;
30662     To   : AMF.Internals.AMF_Element) is
30663   begin
30664      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
30665         when AMF.Internals.Tables.UML_Types.E_UML_Connection_Point_Reference =>
30666            AMF.Internals.Links.Create_Link
30667             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Region_Subvertex_Container,
30668              To,
30669              Self);
30670
30671         when AMF.Internals.Tables.UML_Types.E_UML_Final_State =>
30672            AMF.Internals.Links.Create_Link
30673             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Region_Subvertex_Container,
30674              To,
30675              Self);
30676
30677         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_Transition =>
30678            AMF.Internals.Links.Create_Link
30679             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Region_Transition_Container,
30680              To,
30681              Self);
30682
30683         when AMF.Internals.Tables.UML_Types.E_UML_Pseudostate =>
30684            AMF.Internals.Links.Create_Link
30685             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Region_Subvertex_Container,
30686              To,
30687              Self);
30688
30689         when AMF.Internals.Tables.UML_Types.E_UML_State =>
30690            AMF.Internals.Links.Create_Link
30691             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Region_Subvertex_Container,
30692              To,
30693              Self);
30694
30695         when AMF.Internals.Tables.UML_Types.E_UML_Transition =>
30696            AMF.Internals.Links.Create_Link
30697             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Region_Transition_Container,
30698              To,
30699              Self);
30700
30701         when others =>
30702            raise Program_Error;
30703      end case;
30704   end Internal_Set_Container;
30705
30706   --------------------------
30707   -- Internal_Set_Content --
30708   --------------------------
30709
30710   procedure Internal_Set_Content
30711    (Self : AMF.Internals.AMF_Element;
30712     To   : Matreshka.Internals.Strings.Shared_String_Access)
30713   is
30714      Old : Matreshka.Internals.Strings.Shared_String_Access;
30715
30716   begin
30717      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (2).String_Value;
30718
30719      UML_Element_Table.Table (Self).Member (2).String_Value := To;
30720
30721      if UML_Element_Table.Table (Self).Member (2).String_Value /= null then
30722         Matreshka.Internals.Strings.Reference
30723          (UML_Element_Table.Table (Self).Member (2).String_Value);
30724      end if;
30725
30726      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
30727       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Image_Content, Old, To);
30728
30729      if Old /= null then
30730         Matreshka.Internals.Strings.Reference (Old);
30731      end if;
30732   end Internal_Set_Content;
30733
30734   ---------------------------
30735   -- Internal_Set_Contract --
30736   ---------------------------
30737
30738   procedure Internal_Set_Contract
30739    (Self : AMF.Internals.AMF_Element;
30740     To   : AMF.Internals.AMF_Element) is
30741   begin
30742      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
30743         when AMF.Internals.Tables.UML_Types.E_UML_Interface_Realization =>
30744            AMF.Internals.Links.Create_Link
30745             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Interface_Realization_Contract_Interface_Realization,
30746              Self,
30747              To);
30748
30749         when AMF.Internals.Tables.UML_Types.E_UML_Substitution =>
30750            AMF.Internals.Links.Create_Link
30751             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Substitution_Contract_Substitution,
30752              Self,
30753              To);
30754
30755         when others =>
30756            raise Program_Error;
30757      end case;
30758   end Internal_Set_Contract;
30759
30760   --------------------------
30761   -- Internal_Set_Covered --
30762   --------------------------
30763
30764   procedure Internal_Set_Covered
30765    (Self : AMF.Internals.AMF_Element;
30766     To   : AMF.Internals.AMF_Element) is
30767   begin
30768      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
30769         when AMF.Internals.Tables.UML_Types.E_UML_Destruction_Occurrence_Specification =>
30770            AMF.Internals.Links.Create_Link
30771             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Occurrence_Specification_Covered_Events,
30772              Self,
30773              To);
30774
30775         when AMF.Internals.Tables.UML_Types.E_UML_Execution_Occurrence_Specification =>
30776            AMF.Internals.Links.Create_Link
30777             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Occurrence_Specification_Covered_Events,
30778              Self,
30779              To);
30780
30781         when AMF.Internals.Tables.UML_Types.E_UML_Message_Occurrence_Specification =>
30782            AMF.Internals.Links.Create_Link
30783             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Occurrence_Specification_Covered_Events,
30784              Self,
30785              To);
30786
30787         when AMF.Internals.Tables.UML_Types.E_UML_Occurrence_Specification =>
30788            AMF.Internals.Links.Create_Link
30789             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Occurrence_Specification_Covered_Events,
30790              Self,
30791              To);
30792
30793         when AMF.Internals.Tables.UML_Types.E_UML_State_Invariant =>
30794            AMF.Internals.Links.Create_Link
30795             (AMF.Internals.Tables.UML_Metamodel.MA_UML_State_Invariant_Covered_State_Invariant,
30796              Self,
30797              To);
30798
30799         when others =>
30800            raise Program_Error;
30801      end case;
30802   end Internal_Set_Covered;
30803
30804   ---------------------------
30805   -- Internal_Set_Datatype --
30806   ---------------------------
30807
30808   procedure Internal_Set_Datatype
30809    (Self : AMF.Internals.AMF_Element;
30810     To   : AMF.Internals.AMF_Element) is
30811   begin
30812      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
30813         when AMF.Internals.Tables.UML_Types.E_UML_Extension_End =>
30814            AMF.Internals.Links.Create_Link
30815             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Data_Type_Owned_Attribute_Datatype,
30816              To,
30817              Self);
30818
30819         when AMF.Internals.Tables.UML_Types.E_UML_Operation =>
30820            AMF.Internals.Links.Create_Link
30821             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Data_Type_Owned_Operation_Datatype,
30822              To,
30823              Self);
30824
30825         when AMF.Internals.Tables.UML_Types.E_UML_Port =>
30826            AMF.Internals.Links.Create_Link
30827             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Data_Type_Owned_Attribute_Datatype,
30828              To,
30829              Self);
30830
30831         when AMF.Internals.Tables.UML_Types.E_UML_Property =>
30832            AMF.Internals.Links.Create_Link
30833             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Data_Type_Owned_Attribute_Datatype,
30834              To,
30835              Self);
30836
30837         when others =>
30838            raise Program_Error;
30839      end case;
30840   end Internal_Set_Datatype;
30841
30842   --------------------------
30843   -- Internal_Set_Decider --
30844   --------------------------
30845
30846   procedure Internal_Set_Decider
30847    (Self : AMF.Internals.AMF_Element;
30848     To   : AMF.Internals.AMF_Element) is
30849   begin
30850      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
30851         when AMF.Internals.Tables.UML_Types.E_UML_Clause =>
30852            AMF.Internals.Links.Create_Link
30853             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Clause_Decider_Clause,
30854              Self,
30855              To);
30856
30857         when AMF.Internals.Tables.UML_Types.E_UML_Loop_Node =>
30858            AMF.Internals.Links.Create_Link
30859             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Loop_Node_Decider_Loop_Node,
30860              Self,
30861              To);
30862
30863         when others =>
30864            raise Program_Error;
30865      end case;
30866   end Internal_Set_Decider;
30867
30868   ---------------------------------
30869   -- Internal_Set_Decision_Input --
30870   ---------------------------------
30871
30872   procedure Internal_Set_Decision_Input
30873    (Self : AMF.Internals.AMF_Element;
30874     To   : AMF.Internals.AMF_Element) is
30875   begin
30876      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
30877         when AMF.Internals.Tables.UML_Types.E_UML_Decision_Node =>
30878            AMF.Internals.Links.Create_Link
30879             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Decision_Node_Decision_Input_Decision_Node,
30880              Self,
30881              To);
30882
30883         when others =>
30884            raise Program_Error;
30885      end case;
30886   end Internal_Set_Decision_Input;
30887
30888   --------------------------------------
30889   -- Internal_Set_Decision_Input_Flow --
30890   --------------------------------------
30891
30892   procedure Internal_Set_Decision_Input_Flow
30893    (Self : AMF.Internals.AMF_Element;
30894     To   : AMF.Internals.AMF_Element) is
30895   begin
30896      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
30897         when AMF.Internals.Tables.UML_Types.E_UML_Decision_Node =>
30898            AMF.Internals.Links.Create_Link
30899             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Decision_Node_Decision_Input_Flow_Decision_Node,
30900              Self,
30901              To);
30902
30903         when others =>
30904            raise Program_Error;
30905      end case;
30906   end Internal_Set_Decision_Input_Flow;
30907
30908   --------------------------------
30909   -- Internal_Set_Decomposed_As --
30910   --------------------------------
30911
30912   procedure Internal_Set_Decomposed_As
30913    (Self : AMF.Internals.AMF_Element;
30914     To   : AMF.Internals.AMF_Element) is
30915   begin
30916      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
30917         when AMF.Internals.Tables.UML_Types.E_UML_Lifeline =>
30918            AMF.Internals.Links.Create_Link
30919             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Lifeline_Decomposed_As_Lifeline,
30920              Self,
30921              To);
30922
30923         when others =>
30924            raise Program_Error;
30925      end case;
30926   end Internal_Set_Decomposed_As;
30927
30928   --------------------------
30929   -- Internal_Set_Default --
30930   --------------------------
30931
30932   procedure Internal_Set_Default
30933    (Self : AMF.Internals.AMF_Element;
30934     To   : Matreshka.Internals.Strings.Shared_String_Access)
30935   is
30936      Old : Matreshka.Internals.Strings.Shared_String_Access;
30937
30938   begin
30939      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (21).String_Value;
30940
30941      UML_Element_Table.Table (Self).Member (21).String_Value := To;
30942
30943      if UML_Element_Table.Table (Self).Member (21).String_Value /= null then
30944         Matreshka.Internals.Strings.Reference
30945          (UML_Element_Table.Table (Self).Member (21).String_Value);
30946      end if;
30947
30948      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
30949       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Default, Old, To);
30950
30951      if Old /= null then
30952         Matreshka.Internals.Strings.Reference (Old);
30953      end if;
30954   end Internal_Set_Default;
30955
30956   --------------------------
30957   -- Internal_Set_Default --
30958   --------------------------
30959
30960   procedure Internal_Set_Default
30961    (Self : AMF.Internals.AMF_Element;
30962     To   : AMF.Internals.AMF_Element) is
30963   begin
30964      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
30965         when AMF.Internals.Tables.UML_Types.E_UML_Classifier_Template_Parameter =>
30966            AMF.Internals.Links.Create_Link
30967             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Default_Template_Parameter,
30968              Self,
30969              To);
30970
30971         when AMF.Internals.Tables.UML_Types.E_UML_Connectable_Element_Template_Parameter =>
30972            AMF.Internals.Links.Create_Link
30973             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Default_Template_Parameter,
30974              Self,
30975              To);
30976
30977         when AMF.Internals.Tables.UML_Types.E_UML_Operation_Template_Parameter =>
30978            AMF.Internals.Links.Create_Link
30979             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Default_Template_Parameter,
30980              Self,
30981              To);
30982
30983         when AMF.Internals.Tables.UML_Types.E_UML_Template_Parameter =>
30984            AMF.Internals.Links.Create_Link
30985             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Default_Template_Parameter,
30986              Self,
30987              To);
30988
30989         when others =>
30990            raise Program_Error;
30991      end case;
30992   end Internal_Set_Default;
30993
30994   --------------------------------
30995   -- Internal_Set_Default_Value --
30996   --------------------------------
30997
30998   procedure Internal_Set_Default_Value
30999    (Self : AMF.Internals.AMF_Element;
31000     To   : AMF.Internals.AMF_Element) is
31001   begin
31002      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
31003         when AMF.Internals.Tables.UML_Types.E_UML_Extension_End =>
31004            AMF.Internals.Links.Create_Link
31005             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Property_Default_Value_Owning_Property,
31006              Self,
31007              To);
31008
31009         when AMF.Internals.Tables.UML_Types.E_UML_Parameter =>
31010            AMF.Internals.Links.Create_Link
31011             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Parameter_Default_Value_Owning_Parameter,
31012              Self,
31013              To);
31014
31015         when AMF.Internals.Tables.UML_Types.E_UML_Port =>
31016            AMF.Internals.Links.Create_Link
31017             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Property_Default_Value_Owning_Property,
31018              Self,
31019              To);
31020
31021         when AMF.Internals.Tables.UML_Types.E_UML_Property =>
31022            AMF.Internals.Links.Create_Link
31023             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Property_Default_Value_Owning_Property,
31024              Self,
31025              To);
31026
31027         when others =>
31028            raise Program_Error;
31029      end case;
31030   end Internal_Set_Default_Value;
31031
31032   -----------------------------------
31033   -- Internal_Set_Defining_Feature --
31034   -----------------------------------
31035
31036   procedure Internal_Set_Defining_Feature
31037    (Self : AMF.Internals.AMF_Element;
31038     To   : AMF.Internals.AMF_Element) is
31039   begin
31040      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
31041         when AMF.Internals.Tables.UML_Types.E_UML_Slot =>
31042            AMF.Internals.Links.Create_Link
31043             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Slot_Defining_Feature_Slot,
31044              Self,
31045              To);
31046
31047         when others =>
31048            raise Program_Error;
31049      end case;
31050   end Internal_Set_Defining_Feature;
31051
31052   -----------------------------
31053   -- Internal_Set_Deployment --
31054   -----------------------------
31055
31056   procedure Internal_Set_Deployment
31057    (Self : AMF.Internals.AMF_Element;
31058     To   : AMF.Internals.AMF_Element) is
31059   begin
31060      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
31061         when AMF.Internals.Tables.UML_Types.E_UML_Deployment_Specification =>
31062            AMF.Internals.Links.Create_Link
31063             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Deployment_Configuration_Deployment,
31064              To,
31065              Self);
31066
31067         when others =>
31068            raise Program_Error;
31069      end case;
31070   end Internal_Set_Deployment;
31071
31072   --------------------------------------
31073   -- Internal_Set_Deployment_Location --
31074   --------------------------------------
31075
31076   procedure Internal_Set_Deployment_Location
31077    (Self : AMF.Internals.AMF_Element;
31078     To   : Matreshka.Internals.Strings.Shared_String_Access)
31079   is
31080      Old : Matreshka.Internals.Strings.Shared_String_Access;
31081
31082   begin
31083      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (19).String_Value;
31084
31085      UML_Element_Table.Table (Self).Member (19).String_Value := To;
31086
31087      if UML_Element_Table.Table (Self).Member (19).String_Value /= null then
31088         Matreshka.Internals.Strings.Reference
31089          (UML_Element_Table.Table (Self).Member (19).String_Value);
31090      end if;
31091
31092      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
31093       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Deployment_Specification_Deployment_Location, Old, To);
31094
31095      if Old /= null then
31096         Matreshka.Internals.Strings.Reference (Old);
31097      end if;
31098   end Internal_Set_Deployment_Location;
31099
31100   -----------------------------
31101   -- Internal_Set_Destroy_At --
31102   -----------------------------
31103
31104   procedure Internal_Set_Destroy_At
31105    (Self : AMF.Internals.AMF_Element;
31106     To   : AMF.Internals.AMF_Element) is
31107   begin
31108      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
31109         when AMF.Internals.Tables.UML_Types.E_UML_Link_End_Destruction_Data =>
31110            AMF.Internals.Links.Create_Link
31111             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Link_End_Destruction_Data_Destroy_At_Link_End_Destruction_Data,
31112              Self,
31113              To);
31114
31115         when others =>
31116            raise Program_Error;
31117      end case;
31118   end Internal_Set_Destroy_At;
31119
31120   ----------------------------
31121   -- Internal_Set_Direction --
31122   ----------------------------
31123
31124   procedure Internal_Set_Direction
31125    (Self : AMF.Internals.AMF_Element;
31126     To   : AMF.UML.UML_Parameter_Direction_Kind)
31127   is
31128      Old : AMF.UML.UML_Parameter_Direction_Kind;
31129
31130   begin
31131      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (17).Parameter_Direction_Kind_Value;
31132      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (17).Parameter_Direction_Kind_Value := To;
31133
31134      AMF.Internals.Tables.UML_Notification.Notify_Attribute_Set
31135       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameter_Direction, Old, To);
31136   end Internal_Set_Direction;
31137
31138   ------------------------------
31139   -- Internal_Set_Do_Activity --
31140   ------------------------------
31141
31142   procedure Internal_Set_Do_Activity
31143    (Self : AMF.Internals.AMF_Element;
31144     To   : AMF.Internals.AMF_Element) is
31145   begin
31146      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
31147         when AMF.Internals.Tables.UML_Types.E_UML_Final_State =>
31148            AMF.Internals.Links.Create_Link
31149             (AMF.Internals.Tables.UML_Metamodel.MA_UML_State_Do_Activity_State,
31150              Self,
31151              To);
31152
31153         when AMF.Internals.Tables.UML_Types.E_UML_State =>
31154            AMF.Internals.Links.Create_Link
31155             (AMF.Internals.Tables.UML_Metamodel.MA_UML_State_Do_Activity_State,
31156              Self,
31157              To);
31158
31159         when others =>
31160            raise Program_Error;
31161      end case;
31162   end Internal_Set_Do_Activity;
31163
31164   --------------------------------
31165   -- Internal_Set_Documentation --
31166   --------------------------------
31167
31168   procedure Internal_Set_Documentation
31169    (Self : AMF.Internals.AMF_Element;
31170     To   : Matreshka.Internals.Strings.Shared_String_Access)
31171   is
31172      Old : Matreshka.Internals.Strings.Shared_String_Access;
31173
31174   begin
31175      Old :=
31176        AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (18).String_Value;
31177
31178      UML_Element_Table.Table (Self).Member (18).String_Value := To;
31179      Matreshka.Internals.Strings.Reference
31180       (UML_Element_Table.Table (Self).Member (18).String_Value);
31181
31182      AMF.Internals.Tables.DC_Notification.Notify_Attribute_Set
31183       (Self, AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Documentation, Old, To);
31184      Matreshka.Internals.Strings.Dereference (Old);
31185   end Internal_Set_Documentation;
31186
31187   -------------------------
31188   -- Internal_Set_Effect --
31189   -------------------------
31190
31191   procedure Internal_Set_Effect
31192    (Self : AMF.Internals.AMF_Element;
31193     To   : AMF.UML.Optional_UML_Parameter_Effect_Kind)
31194   is
31195      Old : AMF.UML.Optional_UML_Parameter_Effect_Kind;
31196
31197   begin
31198      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (18).Parameter_Effect_Kind_Holder;
31199      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (18).Parameter_Effect_Kind_Holder := To;
31200
31201      AMF.Internals.Tables.UML_Notification.Notify_Attribute_Set
31202       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameter_Effect, Old, To);
31203   end Internal_Set_Effect;
31204
31205   -------------------------
31206   -- Internal_Set_Effect --
31207   -------------------------
31208
31209   procedure Internal_Set_Effect
31210    (Self : AMF.Internals.AMF_Element;
31211     To   : AMF.Internals.AMF_Element) is
31212   begin
31213      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
31214         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_Transition =>
31215            AMF.Internals.Links.Create_Link
31216             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Transition_Effect_Transition,
31217              Self,
31218              To);
31219
31220         when AMF.Internals.Tables.UML_Types.E_UML_Transition =>
31221            AMF.Internals.Links.Create_Link
31222             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Transition_Effect_Transition,
31223              Self,
31224              To);
31225
31226         when others =>
31227            raise Program_Error;
31228      end case;
31229   end Internal_Set_Effect;
31230
31231   ----------------------------------------
31232   -- Internal_Set_Enclosing_Interaction --
31233   ----------------------------------------
31234
31235   procedure Internal_Set_Enclosing_Interaction
31236    (Self : AMF.Internals.AMF_Element;
31237     To   : AMF.Internals.AMF_Element) is
31238   begin
31239      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
31240         when AMF.Internals.Tables.UML_Types.E_UML_Action_Execution_Specification =>
31241            AMF.Internals.Links.Create_Link
31242             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Interaction_Fragment_Enclosing_Interaction,
31243              To,
31244              Self);
31245
31246         when AMF.Internals.Tables.UML_Types.E_UML_Behavior_Execution_Specification =>
31247            AMF.Internals.Links.Create_Link
31248             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Interaction_Fragment_Enclosing_Interaction,
31249              To,
31250              Self);
31251
31252         when AMF.Internals.Tables.UML_Types.E_UML_Combined_Fragment =>
31253            AMF.Internals.Links.Create_Link
31254             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Interaction_Fragment_Enclosing_Interaction,
31255              To,
31256              Self);
31257
31258         when AMF.Internals.Tables.UML_Types.E_UML_Consider_Ignore_Fragment =>
31259            AMF.Internals.Links.Create_Link
31260             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Interaction_Fragment_Enclosing_Interaction,
31261              To,
31262              Self);
31263
31264         when AMF.Internals.Tables.UML_Types.E_UML_Continuation =>
31265            AMF.Internals.Links.Create_Link
31266             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Interaction_Fragment_Enclosing_Interaction,
31267              To,
31268              Self);
31269
31270         when AMF.Internals.Tables.UML_Types.E_UML_Destruction_Occurrence_Specification =>
31271            AMF.Internals.Links.Create_Link
31272             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Interaction_Fragment_Enclosing_Interaction,
31273              To,
31274              Self);
31275
31276         when AMF.Internals.Tables.UML_Types.E_UML_Execution_Occurrence_Specification =>
31277            AMF.Internals.Links.Create_Link
31278             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Interaction_Fragment_Enclosing_Interaction,
31279              To,
31280              Self);
31281
31282         when AMF.Internals.Tables.UML_Types.E_UML_Interaction =>
31283            AMF.Internals.Links.Create_Link
31284             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Interaction_Fragment_Enclosing_Interaction,
31285              To,
31286              Self);
31287
31288         when AMF.Internals.Tables.UML_Types.E_UML_Interaction_Operand =>
31289            AMF.Internals.Links.Create_Link
31290             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Interaction_Fragment_Enclosing_Interaction,
31291              To,
31292              Self);
31293
31294         when AMF.Internals.Tables.UML_Types.E_UML_Interaction_Use =>
31295            AMF.Internals.Links.Create_Link
31296             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Interaction_Fragment_Enclosing_Interaction,
31297              To,
31298              Self);
31299
31300         when AMF.Internals.Tables.UML_Types.E_UML_Message_Occurrence_Specification =>
31301            AMF.Internals.Links.Create_Link
31302             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Interaction_Fragment_Enclosing_Interaction,
31303              To,
31304              Self);
31305
31306         when AMF.Internals.Tables.UML_Types.E_UML_Occurrence_Specification =>
31307            AMF.Internals.Links.Create_Link
31308             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Interaction_Fragment_Enclosing_Interaction,
31309              To,
31310              Self);
31311
31312         when AMF.Internals.Tables.UML_Types.E_UML_Part_Decomposition =>
31313            AMF.Internals.Links.Create_Link
31314             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Interaction_Fragment_Enclosing_Interaction,
31315              To,
31316              Self);
31317
31318         when AMF.Internals.Tables.UML_Types.E_UML_State_Invariant =>
31319            AMF.Internals.Links.Create_Link
31320             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Interaction_Fragment_Enclosing_Interaction,
31321              To,
31322              Self);
31323
31324         when others =>
31325            raise Program_Error;
31326      end case;
31327   end Internal_Set_Enclosing_Interaction;
31328
31329   ------------------------------------
31330   -- Internal_Set_Enclosing_Operand --
31331   ------------------------------------
31332
31333   procedure Internal_Set_Enclosing_Operand
31334    (Self : AMF.Internals.AMF_Element;
31335     To   : AMF.Internals.AMF_Element) is
31336   begin
31337      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
31338         when AMF.Internals.Tables.UML_Types.E_UML_Action_Execution_Specification =>
31339            AMF.Internals.Links.Create_Link
31340             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Interaction_Operand_Fragment_Enclosing_Operand,
31341              To,
31342              Self);
31343
31344         when AMF.Internals.Tables.UML_Types.E_UML_Behavior_Execution_Specification =>
31345            AMF.Internals.Links.Create_Link
31346             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Interaction_Operand_Fragment_Enclosing_Operand,
31347              To,
31348              Self);
31349
31350         when AMF.Internals.Tables.UML_Types.E_UML_Combined_Fragment =>
31351            AMF.Internals.Links.Create_Link
31352             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Interaction_Operand_Fragment_Enclosing_Operand,
31353              To,
31354              Self);
31355
31356         when AMF.Internals.Tables.UML_Types.E_UML_Consider_Ignore_Fragment =>
31357            AMF.Internals.Links.Create_Link
31358             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Interaction_Operand_Fragment_Enclosing_Operand,
31359              To,
31360              Self);
31361
31362         when AMF.Internals.Tables.UML_Types.E_UML_Continuation =>
31363            AMF.Internals.Links.Create_Link
31364             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Interaction_Operand_Fragment_Enclosing_Operand,
31365              To,
31366              Self);
31367
31368         when AMF.Internals.Tables.UML_Types.E_UML_Destruction_Occurrence_Specification =>
31369            AMF.Internals.Links.Create_Link
31370             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Interaction_Operand_Fragment_Enclosing_Operand,
31371              To,
31372              Self);
31373
31374         when AMF.Internals.Tables.UML_Types.E_UML_Execution_Occurrence_Specification =>
31375            AMF.Internals.Links.Create_Link
31376             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Interaction_Operand_Fragment_Enclosing_Operand,
31377              To,
31378              Self);
31379
31380         when AMF.Internals.Tables.UML_Types.E_UML_Interaction =>
31381            AMF.Internals.Links.Create_Link
31382             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Interaction_Operand_Fragment_Enclosing_Operand,
31383              To,
31384              Self);
31385
31386         when AMF.Internals.Tables.UML_Types.E_UML_Interaction_Operand =>
31387            AMF.Internals.Links.Create_Link
31388             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Interaction_Operand_Fragment_Enclosing_Operand,
31389              To,
31390              Self);
31391
31392         when AMF.Internals.Tables.UML_Types.E_UML_Interaction_Use =>
31393            AMF.Internals.Links.Create_Link
31394             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Interaction_Operand_Fragment_Enclosing_Operand,
31395              To,
31396              Self);
31397
31398         when AMF.Internals.Tables.UML_Types.E_UML_Message_Occurrence_Specification =>
31399            AMF.Internals.Links.Create_Link
31400             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Interaction_Operand_Fragment_Enclosing_Operand,
31401              To,
31402              Self);
31403
31404         when AMF.Internals.Tables.UML_Types.E_UML_Occurrence_Specification =>
31405            AMF.Internals.Links.Create_Link
31406             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Interaction_Operand_Fragment_Enclosing_Operand,
31407              To,
31408              Self);
31409
31410         when AMF.Internals.Tables.UML_Types.E_UML_Part_Decomposition =>
31411            AMF.Internals.Links.Create_Link
31412             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Interaction_Operand_Fragment_Enclosing_Operand,
31413              To,
31414              Self);
31415
31416         when AMF.Internals.Tables.UML_Types.E_UML_State_Invariant =>
31417            AMF.Internals.Links.Create_Link
31418             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Interaction_Operand_Fragment_Enclosing_Operand,
31419              To,
31420              Self);
31421
31422         when others =>
31423            raise Program_Error;
31424      end case;
31425   end Internal_Set_Enclosing_Operand;
31426
31427   ----------------------
31428   -- Internal_Set_End --
31429   ----------------------
31430
31431   procedure Internal_Set_End
31432    (Self : AMF.Internals.AMF_Element;
31433     To   : AMF.Internals.AMF_Element) is
31434   begin
31435      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
31436         when AMF.Internals.Tables.UML_Types.E_UML_Link_End_Creation_Data =>
31437            AMF.Internals.Links.Create_Link
31438             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Link_End_Data_End_Link_End_Data,
31439              Self,
31440              To);
31441
31442         when AMF.Internals.Tables.UML_Types.E_UML_Link_End_Data =>
31443            AMF.Internals.Links.Create_Link
31444             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Link_End_Data_End_Link_End_Data,
31445              Self,
31446              To);
31447
31448         when AMF.Internals.Tables.UML_Types.E_UML_Link_End_Destruction_Data =>
31449            AMF.Internals.Links.Create_Link
31450             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Link_End_Data_End_Link_End_Data,
31451              Self,
31452              To);
31453
31454         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Object_End_Action =>
31455            AMF.Internals.Links.Create_Link
31456             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Read_Link_Object_End_Action_End_Read_Link_Object_End_Action,
31457              Self,
31458              To);
31459
31460         when others =>
31461            raise Program_Error;
31462      end case;
31463   end Internal_Set_End;
31464
31465   ------------------------
31466   -- Internal_Set_Entry --
31467   ------------------------
31468
31469   procedure Internal_Set_Entry
31470    (Self : AMF.Internals.AMF_Element;
31471     To   : AMF.Internals.AMF_Element) is
31472   begin
31473      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
31474         when AMF.Internals.Tables.UML_Types.E_UML_Final_State =>
31475            AMF.Internals.Links.Create_Link
31476             (AMF.Internals.Tables.UML_Metamodel.MA_UML_State_Entry_State,
31477              Self,
31478              To);
31479
31480         when AMF.Internals.Tables.UML_Types.E_UML_State =>
31481            AMF.Internals.Links.Create_Link
31482             (AMF.Internals.Tables.UML_Metamodel.MA_UML_State_Entry_State,
31483              Self,
31484              To);
31485
31486         when others =>
31487            raise Program_Error;
31488      end case;
31489   end Internal_Set_Entry;
31490
31491   ------------------------------
31492   -- Internal_Set_Enumeration --
31493   ------------------------------
31494
31495   procedure Internal_Set_Enumeration
31496    (Self : AMF.Internals.AMF_Element;
31497     To   : AMF.Internals.AMF_Element) is
31498   begin
31499      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
31500         when AMF.Internals.Tables.UML_Types.E_UML_Enumeration_Literal =>
31501            AMF.Internals.Links.Create_Link
31502             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Enumeration_Owned_Literal_Enumeration,
31503              To,
31504              Self);
31505
31506         when others =>
31507            raise Program_Error;
31508      end case;
31509   end Internal_Set_Enumeration;
31510
31511   ------------------------
31512   -- Internal_Set_Event --
31513   ------------------------
31514
31515   procedure Internal_Set_Event
31516    (Self : AMF.Internals.AMF_Element;
31517     To   : AMF.Internals.AMF_Element) is
31518   begin
31519      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
31520         when AMF.Internals.Tables.UML_Types.E_UML_Time_Observation =>
31521            AMF.Internals.Links.Create_Link
31522             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Time_Observation_Event_Time_Observation,
31523              Self,
31524              To);
31525
31526         when AMF.Internals.Tables.UML_Types.E_UML_Trigger =>
31527            AMF.Internals.Links.Create_Link
31528             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Trigger_Event_Trigger,
31529              Self,
31530              To);
31531
31532         when others =>
31533            raise Program_Error;
31534      end case;
31535   end Internal_Set_Event;
31536
31537   ----------------------------
31538   -- Internal_Set_Exception --
31539   ----------------------------
31540
31541   procedure Internal_Set_Exception
31542    (Self : AMF.Internals.AMF_Element;
31543     To   : AMF.Internals.AMF_Element) is
31544   begin
31545      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
31546         when AMF.Internals.Tables.UML_Types.E_UML_Raise_Exception_Action =>
31547            AMF.Internals.Links.Create_Link
31548             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Raise_Exception_Action_Exception_Raise_Exception_Action,
31549              Self,
31550              To);
31551
31552         when others =>
31553            raise Program_Error;
31554      end case;
31555   end Internal_Set_Exception;
31556
31557   ----------------------------------
31558   -- Internal_Set_Exception_Input --
31559   ----------------------------------
31560
31561   procedure Internal_Set_Exception_Input
31562    (Self : AMF.Internals.AMF_Element;
31563     To   : AMF.Internals.AMF_Element) is
31564   begin
31565      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
31566         when AMF.Internals.Tables.UML_Types.E_UML_Exception_Handler =>
31567            AMF.Internals.Links.Create_Link
31568             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Exception_Handler_Exception_Input_Exception_Handler,
31569              Self,
31570              To);
31571
31572         when others =>
31573            raise Program_Error;
31574      end case;
31575   end Internal_Set_Exception_Input;
31576
31577   ----------------------------
31578   -- Internal_Set_Execution --
31579   ----------------------------
31580
31581   procedure Internal_Set_Execution
31582    (Self : AMF.Internals.AMF_Element;
31583     To   : AMF.Internals.AMF_Element) is
31584   begin
31585      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
31586         when AMF.Internals.Tables.UML_Types.E_UML_Execution_Occurrence_Specification =>
31587            AMF.Internals.Links.Create_Link
31588             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Execution_Occurrence_Specification_Execution_Execution_Occurrence_Specification,
31589              Self,
31590              To);
31591
31592         when others =>
31593            raise Program_Error;
31594      end case;
31595   end Internal_Set_Execution;
31596
31597   -------------------------------------
31598   -- Internal_Set_Execution_Location --
31599   -------------------------------------
31600
31601   procedure Internal_Set_Execution_Location
31602    (Self : AMF.Internals.AMF_Element;
31603     To   : Matreshka.Internals.Strings.Shared_String_Access)
31604   is
31605      Old : Matreshka.Internals.Strings.Shared_String_Access;
31606
31607   begin
31608      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (20).String_Value;
31609
31610      UML_Element_Table.Table (Self).Member (20).String_Value := To;
31611
31612      if UML_Element_Table.Table (Self).Member (20).String_Value /= null then
31613         Matreshka.Internals.Strings.Reference
31614          (UML_Element_Table.Table (Self).Member (20).String_Value);
31615      end if;
31616
31617      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
31618       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Deployment_Specification_Execution_Location, Old, To);
31619
31620      if Old /= null then
31621         Matreshka.Internals.Strings.Reference (Old);
31622      end if;
31623   end Internal_Set_Execution_Location;
31624
31625   -----------------------
31626   -- Internal_Set_Exit --
31627   -----------------------
31628
31629   procedure Internal_Set_Exit
31630    (Self : AMF.Internals.AMF_Element;
31631     To   : AMF.Internals.AMF_Element) is
31632   begin
31633      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
31634         when AMF.Internals.Tables.UML_Types.E_UML_Final_State =>
31635            AMF.Internals.Links.Create_Link
31636             (AMF.Internals.Tables.UML_Metamodel.MA_UML_State_Exit_State,
31637              Self,
31638              To);
31639
31640         when AMF.Internals.Tables.UML_Types.E_UML_State =>
31641            AMF.Internals.Links.Create_Link
31642             (AMF.Internals.Tables.UML_Metamodel.MA_UML_State_Exit_State,
31643              Self,
31644              To);
31645
31646         when others =>
31647            raise Program_Error;
31648      end case;
31649   end Internal_Set_Exit;
31650
31651   -----------------------
31652   -- Internal_Set_Expr --
31653   -----------------------
31654
31655   procedure Internal_Set_Expr
31656    (Self : AMF.Internals.AMF_Element;
31657     To   : AMF.Internals.AMF_Element) is
31658   begin
31659      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
31660         when AMF.Internals.Tables.UML_Types.E_UML_Duration =>
31661            AMF.Internals.Links.Create_Link
31662             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Duration_Expr_Duration,
31663              Self,
31664              To);
31665
31666         when AMF.Internals.Tables.UML_Types.E_UML_Time_Expression =>
31667            AMF.Internals.Links.Create_Link
31668             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Time_Expression_Expr_Time_Expression,
31669              Self,
31670              To);
31671
31672         when others =>
31673            raise Program_Error;
31674      end case;
31675   end Internal_Set_Expr;
31676
31677   --------------------------------
31678   -- Internal_Set_Extended_Case --
31679   --------------------------------
31680
31681   procedure Internal_Set_Extended_Case
31682    (Self : AMF.Internals.AMF_Element;
31683     To   : AMF.Internals.AMF_Element) is
31684   begin
31685      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
31686         when AMF.Internals.Tables.UML_Types.E_UML_Extend =>
31687            AMF.Internals.Links.Create_Link
31688             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Extend_Extended_Case_Extend,
31689              Self,
31690              To);
31691
31692         when others =>
31693            raise Program_Error;
31694      end case;
31695   end Internal_Set_Extended_Case;
31696
31697   ----------------------------------
31698   -- Internal_Set_Extended_Region --
31699   ----------------------------------
31700
31701   procedure Internal_Set_Extended_Region
31702    (Self : AMF.Internals.AMF_Element;
31703     To   : AMF.Internals.AMF_Element) is
31704   begin
31705      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
31706         when AMF.Internals.Tables.UML_Types.E_UML_Region =>
31707            AMF.Internals.Links.Create_Link
31708             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Region_Extended_Region_Region,
31709              Self,
31710              To);
31711
31712         when others =>
31713            raise Program_Error;
31714      end case;
31715   end Internal_Set_Extended_Region;
31716
31717   ----------------------------
31718   -- Internal_Set_Extension --
31719   ----------------------------
31720
31721   procedure Internal_Set_Extension
31722    (Self : AMF.Internals.AMF_Element;
31723     To   : AMF.Internals.AMF_Element) is
31724   begin
31725      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
31726         when AMF.Internals.Tables.UML_Types.E_UML_Extend =>
31727            AMF.Internals.Links.Create_Link
31728             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Use_Case_Extend_Extension,
31729              To,
31730              Self);
31731
31732         when others =>
31733            raise Program_Error;
31734      end case;
31735   end Internal_Set_Extension;
31736
31737   ----------------------------
31738   -- Internal_Set_File_Name --
31739   ----------------------------
31740
31741   procedure Internal_Set_File_Name
31742    (Self : AMF.Internals.AMF_Element;
31743     To   : Matreshka.Internals.Strings.Shared_String_Access)
31744   is
31745      Old : Matreshka.Internals.Strings.Shared_String_Access;
31746
31747   begin
31748      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (17).String_Value;
31749
31750      UML_Element_Table.Table (Self).Member (17).String_Value := To;
31751
31752      if UML_Element_Table.Table (Self).Member (17).String_Value /= null then
31753         Matreshka.Internals.Strings.Reference
31754          (UML_Element_Table.Table (Self).Member (17).String_Value);
31755      end if;
31756
31757      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
31758       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Artifact_File_Name, Old, To);
31759
31760      if Old /= null then
31761         Matreshka.Internals.Strings.Reference (Old);
31762      end if;
31763   end Internal_Set_File_Name;
31764
31765   -------------------------
31766   -- Internal_Set_Finish --
31767   -------------------------
31768
31769   procedure Internal_Set_Finish
31770    (Self : AMF.Internals.AMF_Element;
31771     To   : AMF.Internals.AMF_Element) is
31772   begin
31773      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
31774         when AMF.Internals.Tables.UML_Types.E_UML_Action_Execution_Specification =>
31775            AMF.Internals.Links.Create_Link
31776             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Execution_Specification_Finish_Execution_Specification,
31777              Self,
31778              To);
31779
31780         when AMF.Internals.Tables.UML_Types.E_UML_Behavior_Execution_Specification =>
31781            AMF.Internals.Links.Create_Link
31782             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Execution_Specification_Finish_Execution_Specification,
31783              Self,
31784              To);
31785
31786         when others =>
31787            raise Program_Error;
31788      end case;
31789   end Internal_Set_Finish;
31790
31791   ------------------------
31792   -- Internal_Set_First --
31793   ------------------------
31794
31795   procedure Internal_Set_First
31796    (Self : AMF.Internals.AMF_Element;
31797     To   : AMF.Internals.AMF_Element) is
31798   begin
31799      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
31800         when AMF.Internals.Tables.UML_Types.E_UML_Test_Identity_Action =>
31801            AMF.Internals.Links.Create_Link
31802             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Test_Identity_Action_First_Test_Identity_Action,
31803              Self,
31804              To);
31805
31806         when others =>
31807            raise Program_Error;
31808      end case;
31809   end Internal_Set_First;
31810
31811   ------------------------------
31812   -- Internal_Set_First_Event --
31813   ------------------------------
31814
31815   procedure Internal_Set_First_Event
31816    (Self : AMF.Internals.AMF_Element;
31817     To   : AMF.Optional_Boolean)
31818   is
31819      Old : AMF.Optional_Boolean;
31820
31821   begin
31822      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Boolean_Holder;
31823      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Boolean_Holder := To;
31824
31825      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
31826       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Time_Constraint_First_Event, Old, To);
31827   end Internal_Set_First_Event;
31828
31829   ------------------------------
31830   -- Internal_Set_First_Event --
31831   ------------------------------
31832
31833   procedure Internal_Set_First_Event
31834    (Self : AMF.Internals.AMF_Element;
31835     To   : Boolean)
31836   is
31837      Old : Boolean;
31838
31839   begin
31840      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Boolean_Value;
31841      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Boolean_Value := To;
31842
31843      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
31844       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Time_Observation_First_Event, Old, To);
31845   end Internal_Set_First_Event;
31846
31847   ----------------------------
31848   -- Internal_Set_Font_Name --
31849   ----------------------------
31850
31851   procedure Internal_Set_Font_Name
31852    (Self : AMF.Internals.AMF_Element;
31853     To   : Matreshka.Internals.Strings.Shared_String_Access)
31854   is
31855      Old : Matreshka.Internals.Strings.Shared_String_Access;
31856
31857   begin
31858      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).String_Value;
31859
31860      UML_Element_Table.Table (Self).Member (7).String_Value := To;
31861
31862      if UML_Element_Table.Table (Self).Member (7).String_Value /= null then
31863         Matreshka.Internals.Strings.Reference
31864          (UML_Element_Table.Table (Self).Member (7).String_Value);
31865      end if;
31866
31867      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
31868       (Self, AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Style_Font_Name, Old, To);
31869
31870      if Old /= null then
31871         Matreshka.Internals.Strings.Reference (Old);
31872      end if;
31873   end Internal_Set_Font_Name;
31874
31875   ----------------------------
31876   -- Internal_Set_Font_Size --
31877   ----------------------------
31878
31879   procedure Internal_Set_Font_Size
31880    (Self : AMF.Internals.AMF_Element;
31881     To   : AMF.Optional_Real)
31882   is
31883      Old : AMF.Optional_Real;
31884
31885   begin
31886      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Real_Holder;
31887      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Real_Holder := To;
31888
31889      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
31890       (Self, AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Style_Font_Size, Old, To);
31891   end Internal_Set_Font_Size;
31892
31893   -------------------------
31894   -- Internal_Set_Formal --
31895   -------------------------
31896
31897   procedure Internal_Set_Formal
31898    (Self : AMF.Internals.AMF_Element;
31899     To   : AMF.Internals.AMF_Element) is
31900   begin
31901      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
31902         when AMF.Internals.Tables.UML_Types.E_UML_Template_Parameter_Substitution =>
31903            AMF.Internals.Links.Create_Link
31904             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Substitution_Formal_Template_Parameter_Substitution,
31905              Self,
31906              To);
31907
31908         when others =>
31909            raise Program_Error;
31910      end case;
31911   end Internal_Set_Formal;
31912
31913   -------------------------
31914   -- Internal_Set_Format --
31915   -------------------------
31916
31917   procedure Internal_Set_Format
31918    (Self : AMF.Internals.AMF_Element;
31919     To   : Matreshka.Internals.Strings.Shared_String_Access)
31920   is
31921      Old : Matreshka.Internals.Strings.Shared_String_Access;
31922
31923   begin
31924      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).String_Value;
31925
31926      UML_Element_Table.Table (Self).Member (3).String_Value := To;
31927
31928      if UML_Element_Table.Table (Self).Member (3).String_Value /= null then
31929         Matreshka.Internals.Strings.Reference
31930          (UML_Element_Table.Table (Self).Member (3).String_Value);
31931      end if;
31932
31933      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
31934       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Image_Format, Old, To);
31935
31936      if Old /= null then
31937         Matreshka.Internals.Strings.Reference (Old);
31938      end if;
31939   end Internal_Set_Format;
31940
31941   ------------------------------
31942   -- Internal_Set_From_Action --
31943   ------------------------------
31944
31945   procedure Internal_Set_From_Action
31946    (Self : AMF.Internals.AMF_Element;
31947     To   : AMF.Internals.AMF_Element) is
31948   begin
31949      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
31950         when AMF.Internals.Tables.UML_Types.E_UML_Action_Input_Pin =>
31951            AMF.Internals.Links.Create_Link
31952             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Action_Input_Pin_From_Action_Action_Input_Pin,
31953              Self,
31954              To);
31955
31956         when others =>
31957            raise Program_Error;
31958      end case;
31959   end Internal_Set_From_Action;
31960
31961   --------------------------
31962   -- Internal_Set_General --
31963   --------------------------
31964
31965   procedure Internal_Set_General
31966    (Self : AMF.Internals.AMF_Element;
31967     To   : AMF.Internals.AMF_Element) is
31968   begin
31969      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
31970         when AMF.Internals.Tables.UML_Types.E_UML_Generalization =>
31971            AMF.Internals.Links.Create_Link
31972             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Generalization_General_Generalization,
31973              Self,
31974              To);
31975
31976         when others =>
31977            raise Program_Error;
31978      end case;
31979   end Internal_Set_General;
31980
31981   ----------------------------------
31982   -- Internal_Set_General_Machine --
31983   ----------------------------------
31984
31985   procedure Internal_Set_General_Machine
31986    (Self : AMF.Internals.AMF_Element;
31987     To   : AMF.Internals.AMF_Element) is
31988   begin
31989      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
31990         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_Conformance =>
31991            AMF.Internals.Links.Create_Link
31992             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Protocol_Conformance_General_Machine_Protocol_Conformance,
31993              Self,
31994              To);
31995
31996         when others =>
31997            raise Program_Error;
31998      end case;
31999   end Internal_Set_General_Machine;
32000
32001   ------------------------
32002   -- Internal_Set_Guard --
32003   ------------------------
32004
32005   procedure Internal_Set_Guard
32006    (Self : AMF.Internals.AMF_Element;
32007     To   : AMF.Internals.AMF_Element) is
32008   begin
32009      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
32010         when AMF.Internals.Tables.UML_Types.E_UML_Control_Flow =>
32011            AMF.Internals.Links.Create_Link
32012             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Activity_Edge_Guard_Activity_Edge,
32013              Self,
32014              To);
32015
32016         when AMF.Internals.Tables.UML_Types.E_UML_Interaction_Operand =>
32017            AMF.Internals.Links.Create_Link
32018             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Interaction_Operand_Guard_Interaction_Operand,
32019              Self,
32020              To);
32021
32022         when AMF.Internals.Tables.UML_Types.E_UML_Object_Flow =>
32023            AMF.Internals.Links.Create_Link
32024             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Activity_Edge_Guard_Activity_Edge,
32025              Self,
32026              To);
32027
32028         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_Transition =>
32029            AMF.Internals.Links.Create_Link
32030             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Transition_Guard_Transition,
32031              Self,
32032              To);
32033
32034         when AMF.Internals.Tables.UML_Types.E_UML_Transition =>
32035            AMF.Internals.Links.Create_Link
32036             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Transition_Guard_Transition,
32037              Self,
32038              To);
32039
32040         when others =>
32041            raise Program_Error;
32042      end case;
32043   end Internal_Set_Guard;
32044
32045   -------------------------------
32046   -- Internal_Set_Handler_Body --
32047   -------------------------------
32048
32049   procedure Internal_Set_Handler_Body
32050    (Self : AMF.Internals.AMF_Element;
32051     To   : AMF.Internals.AMF_Element) is
32052   begin
32053      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
32054         when AMF.Internals.Tables.UML_Types.E_UML_Exception_Handler =>
32055            AMF.Internals.Links.Create_Link
32056             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Exception_Handler_Handler_Body_Exception_Handler,
32057              Self,
32058              To);
32059
32060         when others =>
32061            raise Program_Error;
32062      end case;
32063   end Internal_Set_Handler_Body;
32064
32065   --------------------------
32066   -- Internal_Set_Heading --
32067   --------------------------
32068
32069   procedure Internal_Set_Heading
32070    (Self : AMF.Internals.AMF_Element;
32071     To   : AMF.Internals.AMF_Element) is
32072   begin
32073      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
32074         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Activity_Diagram =>
32075            AMF.Internals.Links.Create_Link
32076             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Heading_Headed_Diagram,
32077              Self,
32078              To);
32079
32080         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Class_Diagram =>
32081            AMF.Internals.Links.Create_Link
32082             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Heading_Headed_Diagram,
32083              Self,
32084              To);
32085
32086         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Component_Diagram =>
32087            AMF.Internals.Links.Create_Link
32088             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Heading_Headed_Diagram,
32089              Self,
32090              To);
32091
32092         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Composite_Structure_Diagram =>
32093            AMF.Internals.Links.Create_Link
32094             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Heading_Headed_Diagram,
32095              Self,
32096              To);
32097
32098         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Deployment_Diagram =>
32099            AMF.Internals.Links.Create_Link
32100             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Heading_Headed_Diagram,
32101              Self,
32102              To);
32103
32104         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Interaction_Diagram =>
32105            AMF.Internals.Links.Create_Link
32106             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Heading_Headed_Diagram,
32107              Self,
32108              To);
32109
32110         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Object_Diagram =>
32111            AMF.Internals.Links.Create_Link
32112             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Heading_Headed_Diagram,
32113              Self,
32114              To);
32115
32116         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Package_Diagram =>
32117            AMF.Internals.Links.Create_Link
32118             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Heading_Headed_Diagram,
32119              Self,
32120              To);
32121
32122         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Profile_Diagram =>
32123            AMF.Internals.Links.Create_Link
32124             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Heading_Headed_Diagram,
32125              Self,
32126              To);
32127
32128         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_State_Machine_Diagram =>
32129            AMF.Internals.Links.Create_Link
32130             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Heading_Headed_Diagram,
32131              Self,
32132              To);
32133
32134         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Use_Case_Diagram =>
32135            AMF.Internals.Links.Create_Link
32136             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Heading_Headed_Diagram,
32137              Self,
32138              To);
32139
32140         when others =>
32141            raise Program_Error;
32142      end case;
32143   end Internal_Set_Heading;
32144
32145   ------------------------------------------
32146   -- Internal_Set_Implementing_Classifier --
32147   ------------------------------------------
32148
32149   procedure Internal_Set_Implementing_Classifier
32150    (Self : AMF.Internals.AMF_Element;
32151     To   : AMF.Internals.AMF_Element) is
32152   begin
32153      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
32154         when AMF.Internals.Tables.UML_Types.E_UML_Interface_Realization =>
32155            AMF.Internals.Links.Create_Link
32156             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Behaviored_Classifier_Interface_Realization_Implementing_Classifier,
32157              To,
32158              Self);
32159
32160         when others =>
32161            raise Program_Error;
32162      end case;
32163   end Internal_Set_Implementing_Classifier;
32164
32165   -----------------------------------
32166   -- Internal_Set_Imported_Element --
32167   -----------------------------------
32168
32169   procedure Internal_Set_Imported_Element
32170    (Self : AMF.Internals.AMF_Element;
32171     To   : AMF.Internals.AMF_Element) is
32172   begin
32173      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
32174         when AMF.Internals.Tables.UML_Types.E_UML_Element_Import =>
32175            AMF.Internals.Links.Create_Link
32176             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Element_Import_Imported_Element_Element_Import,
32177              Self,
32178              To);
32179
32180         when others =>
32181            raise Program_Error;
32182      end case;
32183   end Internal_Set_Imported_Element;
32184
32185   -----------------------------------
32186   -- Internal_Set_Imported_Package --
32187   -----------------------------------
32188
32189   procedure Internal_Set_Imported_Package
32190    (Self : AMF.Internals.AMF_Element;
32191     To   : AMF.Internals.AMF_Element) is
32192   begin
32193      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
32194         when AMF.Internals.Tables.UML_Types.E_UML_Package_Import =>
32195            AMF.Internals.Links.Create_Link
32196             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Package_Import_Imported_Package_Package_Import,
32197              Self,
32198              To);
32199
32200         when others =>
32201            raise Program_Error;
32202      end case;
32203   end Internal_Set_Imported_Package;
32204
32205   --------------------------------------
32206   -- Internal_Set_Importing_Namespace --
32207   --------------------------------------
32208
32209   procedure Internal_Set_Importing_Namespace
32210    (Self : AMF.Internals.AMF_Element;
32211     To   : AMF.Internals.AMF_Element) is
32212   begin
32213      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
32214         when AMF.Internals.Tables.UML_Types.E_UML_Element_Import =>
32215            AMF.Internals.Links.Create_Link
32216             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Namespace_Element_Import_Importing_Namespace,
32217              To,
32218              Self);
32219
32220         when AMF.Internals.Tables.UML_Types.E_UML_Package_Import =>
32221            AMF.Internals.Links.Create_Link
32222             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Namespace_Package_Import_Importing_Namespace,
32223              To,
32224              Self);
32225
32226         when others =>
32227            raise Program_Error;
32228      end case;
32229   end Internal_Set_Importing_Namespace;
32230
32231   ------------------------------
32232   -- Internal_Set_In_Activity --
32233   ------------------------------
32234
32235   procedure Internal_Set_In_Activity
32236    (Self : AMF.Internals.AMF_Element;
32237     To   : AMF.Internals.AMF_Element) is
32238   begin
32239      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
32240         when AMF.Internals.Tables.UML_Types.E_UML_Activity_Partition =>
32241            AMF.Internals.Links.Create_Link
32242             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Activity_Group_In_Activity,
32243              To,
32244              Self);
32245
32246         when AMF.Internals.Tables.UML_Types.E_UML_Conditional_Node =>
32247            AMF.Internals.Links.Create_Link
32248             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Activity_Group_In_Activity,
32249              To,
32250              Self);
32251
32252         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Region =>
32253            AMF.Internals.Links.Create_Link
32254             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Activity_Group_In_Activity,
32255              To,
32256              Self);
32257
32258         when AMF.Internals.Tables.UML_Types.E_UML_Interruptible_Activity_Region =>
32259            AMF.Internals.Links.Create_Link
32260             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Activity_Group_In_Activity,
32261              To,
32262              Self);
32263
32264         when AMF.Internals.Tables.UML_Types.E_UML_Loop_Node =>
32265            AMF.Internals.Links.Create_Link
32266             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Activity_Group_In_Activity,
32267              To,
32268              Self);
32269
32270         when AMF.Internals.Tables.UML_Types.E_UML_Sequence_Node =>
32271            AMF.Internals.Links.Create_Link
32272             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Activity_Group_In_Activity,
32273              To,
32274              Self);
32275
32276         when AMF.Internals.Tables.UML_Types.E_UML_Structured_Activity_Node =>
32277            AMF.Internals.Links.Create_Link
32278             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Activity_Group_In_Activity,
32279              To,
32280              Self);
32281
32282         when others =>
32283            raise Program_Error;
32284      end case;
32285   end Internal_Set_In_Activity;
32286
32287   -------------------------------------
32288   -- Internal_Set_In_Structured_Node --
32289   -------------------------------------
32290
32291   procedure Internal_Set_In_Structured_Node
32292    (Self : AMF.Internals.AMF_Element;
32293     To   : AMF.Internals.AMF_Element) is
32294   begin
32295      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
32296         when AMF.Internals.Tables.UML_Types.E_UML_Accept_Call_Action =>
32297            AMF.Internals.Links.Create_Link
32298             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Structured_Activity_Node_Node_In_Structured_Node,
32299              To,
32300              Self);
32301
32302         when AMF.Internals.Tables.UML_Types.E_UML_Accept_Event_Action =>
32303            AMF.Internals.Links.Create_Link
32304             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Structured_Activity_Node_Node_In_Structured_Node,
32305              To,
32306              Self);
32307
32308         when AMF.Internals.Tables.UML_Types.E_UML_Action_Input_Pin =>
32309            AMF.Internals.Links.Create_Link
32310             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Structured_Activity_Node_Node_In_Structured_Node,
32311              To,
32312              Self);
32313
32314         when AMF.Internals.Tables.UML_Types.E_UML_Activity_Final_Node =>
32315            AMF.Internals.Links.Create_Link
32316             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Structured_Activity_Node_Node_In_Structured_Node,
32317              To,
32318              Self);
32319
32320         when AMF.Internals.Tables.UML_Types.E_UML_Activity_Parameter_Node =>
32321            AMF.Internals.Links.Create_Link
32322             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Structured_Activity_Node_Node_In_Structured_Node,
32323              To,
32324              Self);
32325
32326         when AMF.Internals.Tables.UML_Types.E_UML_Add_Structural_Feature_Value_Action =>
32327            AMF.Internals.Links.Create_Link
32328             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Structured_Activity_Node_Node_In_Structured_Node,
32329              To,
32330              Self);
32331
32332         when AMF.Internals.Tables.UML_Types.E_UML_Add_Variable_Value_Action =>
32333            AMF.Internals.Links.Create_Link
32334             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Structured_Activity_Node_Node_In_Structured_Node,
32335              To,
32336              Self);
32337
32338         when AMF.Internals.Tables.UML_Types.E_UML_Broadcast_Signal_Action =>
32339            AMF.Internals.Links.Create_Link
32340             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Structured_Activity_Node_Node_In_Structured_Node,
32341              To,
32342              Self);
32343
32344         when AMF.Internals.Tables.UML_Types.E_UML_Call_Behavior_Action =>
32345            AMF.Internals.Links.Create_Link
32346             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Structured_Activity_Node_Node_In_Structured_Node,
32347              To,
32348              Self);
32349
32350         when AMF.Internals.Tables.UML_Types.E_UML_Call_Operation_Action =>
32351            AMF.Internals.Links.Create_Link
32352             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Structured_Activity_Node_Node_In_Structured_Node,
32353              To,
32354              Self);
32355
32356         when AMF.Internals.Tables.UML_Types.E_UML_Central_Buffer_Node =>
32357            AMF.Internals.Links.Create_Link
32358             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Structured_Activity_Node_Node_In_Structured_Node,
32359              To,
32360              Self);
32361
32362         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Association_Action =>
32363            AMF.Internals.Links.Create_Link
32364             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Structured_Activity_Node_Node_In_Structured_Node,
32365              To,
32366              Self);
32367
32368         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Structural_Feature_Action =>
32369            AMF.Internals.Links.Create_Link
32370             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Structured_Activity_Node_Node_In_Structured_Node,
32371              To,
32372              Self);
32373
32374         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Variable_Action =>
32375            AMF.Internals.Links.Create_Link
32376             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Structured_Activity_Node_Node_In_Structured_Node,
32377              To,
32378              Self);
32379
32380         when AMF.Internals.Tables.UML_Types.E_UML_Conditional_Node =>
32381            AMF.Internals.Links.Create_Link
32382             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Structured_Activity_Node_Node_In_Structured_Node,
32383              To,
32384              Self);
32385
32386         when AMF.Internals.Tables.UML_Types.E_UML_Control_Flow =>
32387            AMF.Internals.Links.Create_Link
32388             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Structured_Activity_Node_Edge_In_Structured_Node,
32389              To,
32390              Self);
32391
32392         when AMF.Internals.Tables.UML_Types.E_UML_Create_Link_Action =>
32393            AMF.Internals.Links.Create_Link
32394             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Structured_Activity_Node_Node_In_Structured_Node,
32395              To,
32396              Self);
32397
32398         when AMF.Internals.Tables.UML_Types.E_UML_Create_Link_Object_Action =>
32399            AMF.Internals.Links.Create_Link
32400             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Structured_Activity_Node_Node_In_Structured_Node,
32401              To,
32402              Self);
32403
32404         when AMF.Internals.Tables.UML_Types.E_UML_Create_Object_Action =>
32405            AMF.Internals.Links.Create_Link
32406             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Structured_Activity_Node_Node_In_Structured_Node,
32407              To,
32408              Self);
32409
32410         when AMF.Internals.Tables.UML_Types.E_UML_Data_Store_Node =>
32411            AMF.Internals.Links.Create_Link
32412             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Structured_Activity_Node_Node_In_Structured_Node,
32413              To,
32414              Self);
32415
32416         when AMF.Internals.Tables.UML_Types.E_UML_Decision_Node =>
32417            AMF.Internals.Links.Create_Link
32418             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Structured_Activity_Node_Node_In_Structured_Node,
32419              To,
32420              Self);
32421
32422         when AMF.Internals.Tables.UML_Types.E_UML_Destroy_Link_Action =>
32423            AMF.Internals.Links.Create_Link
32424             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Structured_Activity_Node_Node_In_Structured_Node,
32425              To,
32426              Self);
32427
32428         when AMF.Internals.Tables.UML_Types.E_UML_Destroy_Object_Action =>
32429            AMF.Internals.Links.Create_Link
32430             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Structured_Activity_Node_Node_In_Structured_Node,
32431              To,
32432              Self);
32433
32434         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Node =>
32435            AMF.Internals.Links.Create_Link
32436             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Structured_Activity_Node_Node_In_Structured_Node,
32437              To,
32438              Self);
32439
32440         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Region =>
32441            AMF.Internals.Links.Create_Link
32442             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Structured_Activity_Node_Node_In_Structured_Node,
32443              To,
32444              Self);
32445
32446         when AMF.Internals.Tables.UML_Types.E_UML_Flow_Final_Node =>
32447            AMF.Internals.Links.Create_Link
32448             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Structured_Activity_Node_Node_In_Structured_Node,
32449              To,
32450              Self);
32451
32452         when AMF.Internals.Tables.UML_Types.E_UML_Fork_Node =>
32453            AMF.Internals.Links.Create_Link
32454             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Structured_Activity_Node_Node_In_Structured_Node,
32455              To,
32456              Self);
32457
32458         when AMF.Internals.Tables.UML_Types.E_UML_Initial_Node =>
32459            AMF.Internals.Links.Create_Link
32460             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Structured_Activity_Node_Node_In_Structured_Node,
32461              To,
32462              Self);
32463
32464         when AMF.Internals.Tables.UML_Types.E_UML_Input_Pin =>
32465            AMF.Internals.Links.Create_Link
32466             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Structured_Activity_Node_Node_In_Structured_Node,
32467              To,
32468              Self);
32469
32470         when AMF.Internals.Tables.UML_Types.E_UML_Join_Node =>
32471            AMF.Internals.Links.Create_Link
32472             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Structured_Activity_Node_Node_In_Structured_Node,
32473              To,
32474              Self);
32475
32476         when AMF.Internals.Tables.UML_Types.E_UML_Loop_Node =>
32477            AMF.Internals.Links.Create_Link
32478             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Structured_Activity_Node_Node_In_Structured_Node,
32479              To,
32480              Self);
32481
32482         when AMF.Internals.Tables.UML_Types.E_UML_Merge_Node =>
32483            AMF.Internals.Links.Create_Link
32484             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Structured_Activity_Node_Node_In_Structured_Node,
32485              To,
32486              Self);
32487
32488         when AMF.Internals.Tables.UML_Types.E_UML_Object_Flow =>
32489            AMF.Internals.Links.Create_Link
32490             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Structured_Activity_Node_Edge_In_Structured_Node,
32491              To,
32492              Self);
32493
32494         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Action =>
32495            AMF.Internals.Links.Create_Link
32496             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Structured_Activity_Node_Node_In_Structured_Node,
32497              To,
32498              Self);
32499
32500         when AMF.Internals.Tables.UML_Types.E_UML_Output_Pin =>
32501            AMF.Internals.Links.Create_Link
32502             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Structured_Activity_Node_Node_In_Structured_Node,
32503              To,
32504              Self);
32505
32506         when AMF.Internals.Tables.UML_Types.E_UML_Raise_Exception_Action =>
32507            AMF.Internals.Links.Create_Link
32508             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Structured_Activity_Node_Node_In_Structured_Node,
32509              To,
32510              Self);
32511
32512         when AMF.Internals.Tables.UML_Types.E_UML_Read_Extent_Action =>
32513            AMF.Internals.Links.Create_Link
32514             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Structured_Activity_Node_Node_In_Structured_Node,
32515              To,
32516              Self);
32517
32518         when AMF.Internals.Tables.UML_Types.E_UML_Read_Is_Classified_Object_Action =>
32519            AMF.Internals.Links.Create_Link
32520             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Structured_Activity_Node_Node_In_Structured_Node,
32521              To,
32522              Self);
32523
32524         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Action =>
32525            AMF.Internals.Links.Create_Link
32526             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Structured_Activity_Node_Node_In_Structured_Node,
32527              To,
32528              Self);
32529
32530         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Object_End_Action =>
32531            AMF.Internals.Links.Create_Link
32532             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Structured_Activity_Node_Node_In_Structured_Node,
32533              To,
32534              Self);
32535
32536         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Object_End_Qualifier_Action =>
32537            AMF.Internals.Links.Create_Link
32538             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Structured_Activity_Node_Node_In_Structured_Node,
32539              To,
32540              Self);
32541
32542         when AMF.Internals.Tables.UML_Types.E_UML_Read_Self_Action =>
32543            AMF.Internals.Links.Create_Link
32544             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Structured_Activity_Node_Node_In_Structured_Node,
32545              To,
32546              Self);
32547
32548         when AMF.Internals.Tables.UML_Types.E_UML_Read_Structural_Feature_Action =>
32549            AMF.Internals.Links.Create_Link
32550             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Structured_Activity_Node_Node_In_Structured_Node,
32551              To,
32552              Self);
32553
32554         when AMF.Internals.Tables.UML_Types.E_UML_Read_Variable_Action =>
32555            AMF.Internals.Links.Create_Link
32556             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Structured_Activity_Node_Node_In_Structured_Node,
32557              To,
32558              Self);
32559
32560         when AMF.Internals.Tables.UML_Types.E_UML_Reclassify_Object_Action =>
32561            AMF.Internals.Links.Create_Link
32562             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Structured_Activity_Node_Node_In_Structured_Node,
32563              To,
32564              Self);
32565
32566         when AMF.Internals.Tables.UML_Types.E_UML_Reduce_Action =>
32567            AMF.Internals.Links.Create_Link
32568             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Structured_Activity_Node_Node_In_Structured_Node,
32569              To,
32570              Self);
32571
32572         when AMF.Internals.Tables.UML_Types.E_UML_Remove_Structural_Feature_Value_Action =>
32573            AMF.Internals.Links.Create_Link
32574             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Structured_Activity_Node_Node_In_Structured_Node,
32575              To,
32576              Self);
32577
32578         when AMF.Internals.Tables.UML_Types.E_UML_Remove_Variable_Value_Action =>
32579            AMF.Internals.Links.Create_Link
32580             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Structured_Activity_Node_Node_In_Structured_Node,
32581              To,
32582              Self);
32583
32584         when AMF.Internals.Tables.UML_Types.E_UML_Reply_Action =>
32585            AMF.Internals.Links.Create_Link
32586             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Structured_Activity_Node_Node_In_Structured_Node,
32587              To,
32588              Self);
32589
32590         when AMF.Internals.Tables.UML_Types.E_UML_Send_Object_Action =>
32591            AMF.Internals.Links.Create_Link
32592             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Structured_Activity_Node_Node_In_Structured_Node,
32593              To,
32594              Self);
32595
32596         when AMF.Internals.Tables.UML_Types.E_UML_Send_Signal_Action =>
32597            AMF.Internals.Links.Create_Link
32598             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Structured_Activity_Node_Node_In_Structured_Node,
32599              To,
32600              Self);
32601
32602         when AMF.Internals.Tables.UML_Types.E_UML_Sequence_Node =>
32603            AMF.Internals.Links.Create_Link
32604             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Structured_Activity_Node_Node_In_Structured_Node,
32605              To,
32606              Self);
32607
32608         when AMF.Internals.Tables.UML_Types.E_UML_Start_Classifier_Behavior_Action =>
32609            AMF.Internals.Links.Create_Link
32610             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Structured_Activity_Node_Node_In_Structured_Node,
32611              To,
32612              Self);
32613
32614         when AMF.Internals.Tables.UML_Types.E_UML_Start_Object_Behavior_Action =>
32615            AMF.Internals.Links.Create_Link
32616             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Structured_Activity_Node_Node_In_Structured_Node,
32617              To,
32618              Self);
32619
32620         when AMF.Internals.Tables.UML_Types.E_UML_Structured_Activity_Node =>
32621            AMF.Internals.Links.Create_Link
32622             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Structured_Activity_Node_Node_In_Structured_Node,
32623              To,
32624              Self);
32625
32626         when AMF.Internals.Tables.UML_Types.E_UML_Test_Identity_Action =>
32627            AMF.Internals.Links.Create_Link
32628             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Structured_Activity_Node_Node_In_Structured_Node,
32629              To,
32630              Self);
32631
32632         when AMF.Internals.Tables.UML_Types.E_UML_Unmarshall_Action =>
32633            AMF.Internals.Links.Create_Link
32634             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Structured_Activity_Node_Node_In_Structured_Node,
32635              To,
32636              Self);
32637
32638         when AMF.Internals.Tables.UML_Types.E_UML_Value_Pin =>
32639            AMF.Internals.Links.Create_Link
32640             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Structured_Activity_Node_Node_In_Structured_Node,
32641              To,
32642              Self);
32643
32644         when AMF.Internals.Tables.UML_Types.E_UML_Value_Specification_Action =>
32645            AMF.Internals.Links.Create_Link
32646             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Structured_Activity_Node_Node_In_Structured_Node,
32647              To,
32648              Self);
32649
32650         when others =>
32651            raise Program_Error;
32652      end case;
32653   end Internal_Set_In_Structured_Node;
32654
32655   ---------------------------------
32656   -- Internal_Set_Including_Case --
32657   ---------------------------------
32658
32659   procedure Internal_Set_Including_Case
32660    (Self : AMF.Internals.AMF_Element;
32661     To   : AMF.Internals.AMF_Element) is
32662   begin
32663      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
32664         when AMF.Internals.Tables.UML_Types.E_UML_Include =>
32665            AMF.Internals.Links.Create_Link
32666             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Use_Case_Include_Including_Case,
32667              To,
32668              Self);
32669
32670         when others =>
32671            raise Program_Error;
32672      end case;
32673   end Internal_Set_Including_Case;
32674
32675   -----------------------------------------
32676   -- Internal_Set_Inherited_State_Border --
32677   -----------------------------------------
32678
32679   procedure Internal_Set_Inherited_State_Border
32680    (Self : AMF.Internals.AMF_Element;
32681     To   : AMF.UMLDI.Optional_UMLDI_UML_Inherited_State_Border_Kind)
32682   is
32683      Old : AMF.UMLDI.Optional_UMLDI_UML_Inherited_State_Border_Kind;
32684
32685   begin
32686      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (24).UML_Inherited_State_Border_Kind_Holder;
32687      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (24).UML_Inherited_State_Border_Kind_Holder := To;
32688
32689      AMF.Internals.Tables.UMLDI_Notification.Notify_Attribute_Set
32690       (Self, AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_State_Machine_Diagram_Inherited_State_Border, Old, To);
32691   end Internal_Set_Inherited_State_Border;
32692
32693   ----------------------------
32694   -- Internal_Set_Insert_At --
32695   ----------------------------
32696
32697   procedure Internal_Set_Insert_At
32698    (Self : AMF.Internals.AMF_Element;
32699     To   : AMF.Internals.AMF_Element) is
32700   begin
32701      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
32702         when AMF.Internals.Tables.UML_Types.E_UML_Add_Structural_Feature_Value_Action =>
32703            AMF.Internals.Links.Create_Link
32704             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Add_Structural_Feature_Value_Action_Insert_At_Add_Structural_Feature_Value_Action,
32705              Self,
32706              To);
32707
32708         when AMF.Internals.Tables.UML_Types.E_UML_Add_Variable_Value_Action =>
32709            AMF.Internals.Links.Create_Link
32710             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Add_Variable_Value_Action_Insert_At_Add_Variable_Value_Action,
32711              Self,
32712              To);
32713
32714         when AMF.Internals.Tables.UML_Types.E_UML_Link_End_Creation_Data =>
32715            AMF.Internals.Links.Create_Link
32716             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Link_End_Creation_Data_Insert_At_Link_End_Creation_Data,
32717              Self,
32718              To);
32719
32720         when others =>
32721            raise Program_Error;
32722      end case;
32723   end Internal_Set_Insert_At;
32724
32725   ---------------------------
32726   -- Internal_Set_Instance --
32727   ---------------------------
32728
32729   procedure Internal_Set_Instance
32730    (Self : AMF.Internals.AMF_Element;
32731     To   : AMF.Internals.AMF_Element) is
32732   begin
32733      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
32734         when AMF.Internals.Tables.UML_Types.E_UML_Instance_Value =>
32735            AMF.Internals.Links.Create_Link
32736             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Instance_Value_Instance_Instance_Value,
32737              Self,
32738              To);
32739
32740         when others =>
32741            raise Program_Error;
32742      end case;
32743   end Internal_Set_Instance;
32744
32745   ------------------------------
32746   -- Internal_Set_Interaction --
32747   ------------------------------
32748
32749   procedure Internal_Set_Interaction
32750    (Self : AMF.Internals.AMF_Element;
32751     To   : AMF.Internals.AMF_Element) is
32752   begin
32753      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
32754         when AMF.Internals.Tables.UML_Types.E_UML_Lifeline =>
32755            AMF.Internals.Links.Create_Link
32756             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Interaction_Lifeline_Interaction,
32757              To,
32758              Self);
32759
32760         when AMF.Internals.Tables.UML_Types.E_UML_Message =>
32761            AMF.Internals.Links.Create_Link
32762             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Interaction_Message_Interaction,
32763              To,
32764              Self);
32765
32766         when others =>
32767            raise Program_Error;
32768      end case;
32769   end Internal_Set_Interaction;
32770
32771   ---------------------------------------
32772   -- Internal_Set_Interaction_Operator --
32773   ---------------------------------------
32774
32775   procedure Internal_Set_Interaction_Operator
32776    (Self : AMF.Internals.AMF_Element;
32777     To   : AMF.UML.UML_Interaction_Operator_Kind)
32778   is
32779      Old : AMF.UML.UML_Interaction_Operator_Kind;
32780
32781   begin
32782      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Interaction_Operator_Kind_Value;
32783      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Interaction_Operator_Kind_Value := To;
32784
32785      AMF.Internals.Tables.UML_Notification.Notify_Attribute_Set
32786       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Combined_Fragment_Interaction_Operator, Old, To);
32787   end Internal_Set_Interaction_Operator;
32788
32789   ----------------------------
32790   -- Internal_Set_Interface --
32791   ----------------------------
32792
32793   procedure Internal_Set_Interface
32794    (Self : AMF.Internals.AMF_Element;
32795     To   : AMF.Internals.AMF_Element) is
32796   begin
32797      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
32798         when AMF.Internals.Tables.UML_Types.E_UML_Extension_End =>
32799            AMF.Internals.Links.Create_Link
32800             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Interface_Owned_Attribute_Interface,
32801              To,
32802              Self);
32803
32804         when AMF.Internals.Tables.UML_Types.E_UML_Operation =>
32805            AMF.Internals.Links.Create_Link
32806             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Interface_Owned_Operation_Interface,
32807              To,
32808              Self);
32809
32810         when AMF.Internals.Tables.UML_Types.E_UML_Port =>
32811            AMF.Internals.Links.Create_Link
32812             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Interface_Owned_Attribute_Interface,
32813              To,
32814              Self);
32815
32816         when AMF.Internals.Tables.UML_Types.E_UML_Property =>
32817            AMF.Internals.Links.Create_Link
32818             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Interface_Owned_Attribute_Interface,
32819              To,
32820              Self);
32821
32822         when others =>
32823            raise Program_Error;
32824      end case;
32825   end Internal_Set_Interface;
32826
32827   -----------------------------
32828   -- Internal_Set_Interrupts --
32829   -----------------------------
32830
32831   procedure Internal_Set_Interrupts
32832    (Self : AMF.Internals.AMF_Element;
32833     To   : AMF.Internals.AMF_Element) is
32834   begin
32835      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
32836         when AMF.Internals.Tables.UML_Types.E_UML_Control_Flow =>
32837            AMF.Internals.Links.Create_Link
32838             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Interruptible_Activity_Region_Interrupting_Edge_Interrupts,
32839              To,
32840              Self);
32841
32842         when AMF.Internals.Tables.UML_Types.E_UML_Object_Flow =>
32843            AMF.Internals.Links.Create_Link
32844             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Interruptible_Activity_Region_Interrupting_Edge_Interrupts,
32845              To,
32846              Self);
32847
32848         when others =>
32849            raise Program_Error;
32850      end case;
32851   end Internal_Set_Interrupts;
32852
32853   ----------------------------
32854   -- Internal_Set_Invariant --
32855   ----------------------------
32856
32857   procedure Internal_Set_Invariant
32858    (Self : AMF.Internals.AMF_Element;
32859     To   : AMF.Internals.AMF_Element) is
32860   begin
32861      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
32862         when AMF.Internals.Tables.UML_Types.E_UML_State_Invariant =>
32863            AMF.Internals.Links.Create_Link
32864             (AMF.Internals.Tables.UML_Metamodel.MA_UML_State_Invariant_Invariant_State_Invariant,
32865              Self,
32866              To);
32867
32868         when others =>
32869            raise Program_Error;
32870      end case;
32871   end Internal_Set_Invariant;
32872
32873   ------------------------------
32874   -- Internal_Set_Is_Abstract --
32875   ------------------------------
32876
32877   procedure Internal_Set_Is_Abstract
32878    (Self : AMF.Internals.AMF_Element;
32879     To   : Boolean)
32880   is
32881      Old : Boolean;
32882
32883   begin
32884      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (11).Boolean_Value;
32885      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (11).Boolean_Value := To;
32886
32887      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
32888       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Is_Abstract, Old, To);
32889   end Internal_Set_Is_Abstract;
32890
32891   ----------------------------
32892   -- Internal_Set_Is_Active --
32893   ----------------------------
32894
32895   procedure Internal_Set_Is_Active
32896    (Self : AMF.Internals.AMF_Element;
32897     To   : Boolean)
32898   is
32899      Old : Boolean;
32900
32901   begin
32902      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (20).Boolean_Value;
32903      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (20).Boolean_Value := To;
32904
32905      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
32906       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Class_Is_Active, Old, To);
32907   end Internal_Set_Is_Active;
32908
32909   ------------------------------------
32910   -- Internal_Set_Is_Activity_Frame --
32911   ------------------------------------
32912
32913   procedure Internal_Set_Is_Activity_Frame
32914    (Self : AMF.Internals.AMF_Element;
32915     To   : Boolean)
32916   is
32917      Old : Boolean;
32918
32919   begin
32920      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (24).Boolean_Value;
32921      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (24).Boolean_Value := To;
32922
32923      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
32924       (Self, AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Activity_Diagram_Is_Activity_Frame, Old, To);
32925   end Internal_Set_Is_Activity_Frame;
32926
32927   -------------------------------------------
32928   -- Internal_Set_Is_Association_Dot_Shown --
32929   -------------------------------------------
32930
32931   procedure Internal_Set_Is_Association_Dot_Shown
32932    (Self : AMF.Internals.AMF_Element;
32933     To   : Boolean)
32934   is
32935      Old : Boolean;
32936
32937   begin
32938      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (23).Boolean_Value;
32939      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (23).Boolean_Value := To;
32940
32941      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
32942       (Self, AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Class_Or_Composite_Structure_Diagram_Is_Association_Dot_Shown, Old, To);
32943   end Internal_Set_Is_Association_Dot_Shown;
32944
32945   -----------------------------
32946   -- Internal_Set_Is_Assured --
32947   -----------------------------
32948
32949   procedure Internal_Set_Is_Assured
32950    (Self : AMF.Internals.AMF_Element;
32951     To   : Boolean)
32952   is
32953      Old : Boolean;
32954
32955   begin
32956      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Boolean_Value;
32957      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Boolean_Value := To;
32958
32959      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
32960       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Conditional_Node_Is_Assured, Old, To);
32961   end Internal_Set_Is_Assured;
32962
32963   ------------------------------
32964   -- Internal_Set_Is_Behavior --
32965   ------------------------------
32966
32967   procedure Internal_Set_Is_Behavior
32968    (Self : AMF.Internals.AMF_Element;
32969     To   : Boolean)
32970   is
32971      Old : Boolean;
32972
32973   begin
32974      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (34).Boolean_Value;
32975      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (34).Boolean_Value := To;
32976
32977      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
32978       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Port_Is_Behavior, Old, To);
32979   end Internal_Set_Is_Behavior;
32980
32981   -----------------------------------------
32982   -- Internal_Set_Is_Collapse_State_Icon --
32983   -----------------------------------------
32984
32985   procedure Internal_Set_Is_Collapse_State_Icon
32986    (Self : AMF.Internals.AMF_Element;
32987     To   : Boolean)
32988   is
32989      Old : Boolean;
32990
32991   begin
32992      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (25).Boolean_Value;
32993      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (25).Boolean_Value := To;
32994
32995      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
32996       (Self, AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_State_Machine_Diagram_Is_Collapse_State_Icon, Old, To);
32997   end Internal_Set_Is_Collapse_State_Icon;
32998
32999   ---------------------------------------
33000   -- Internal_Set_Is_Combine_Duplicate --
33001   ---------------------------------------
33002
33003   procedure Internal_Set_Is_Combine_Duplicate
33004    (Self : AMF.Internals.AMF_Element;
33005     To   : Boolean)
33006   is
33007      Old : Boolean;
33008
33009   begin
33010      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Boolean_Value;
33011      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Boolean_Value := To;
33012
33013      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
33014       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Join_Node_Is_Combine_Duplicate, Old, To);
33015   end Internal_Set_Is_Combine_Duplicate;
33016
33017   -------------------------------
33018   -- Internal_Set_Is_Composite --
33019   -------------------------------
33020
33021   procedure Internal_Set_Is_Composite
33022    (Self : AMF.Internals.AMF_Element;
33023     To   : Boolean)
33024   is
33025      Old : Boolean;
33026
33027   begin
33028      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (20).Boolean_Value;
33029      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (20).Boolean_Value := To;
33030
33031      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
33032       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Is_Composite, Old, To);
33033   end Internal_Set_Is_Composite;
33034
33035   --------------------------------
33036   -- Internal_Set_Is_Conjugated --
33037   --------------------------------
33038
33039   procedure Internal_Set_Is_Conjugated
33040    (Self : AMF.Internals.AMF_Element;
33041     To   : Boolean)
33042   is
33043      Old : Boolean;
33044
33045   begin
33046      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (35).Boolean_Value;
33047      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (35).Boolean_Value := To;
33048
33049      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
33050       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Port_Is_Conjugated, Old, To);
33051   end Internal_Set_Is_Conjugated;
33052
33053   -----------------------------
33054   -- Internal_Set_Is_Control --
33055   -----------------------------
33056
33057   procedure Internal_Set_Is_Control
33058    (Self : AMF.Internals.AMF_Element;
33059     To   : Boolean)
33060   is
33061      Old : Boolean;
33062
33063   begin
33064      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (21).Boolean_Value;
33065      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (21).Boolean_Value := To;
33066
33067      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
33068       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Pin_Is_Control, Old, To);
33069   end Internal_Set_Is_Control;
33070
33071   ----------------------------------
33072   -- Internal_Set_Is_Control_Type --
33073   ----------------------------------
33074
33075   procedure Internal_Set_Is_Control_Type
33076    (Self : AMF.Internals.AMF_Element;
33077     To   : Boolean)
33078   is
33079      Old : Boolean;
33080
33081   begin
33082      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (17).Boolean_Value;
33083      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (17).Boolean_Value := To;
33084
33085      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
33086       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_Is_Control_Type, Old, To);
33087   end Internal_Set_Is_Control_Type;
33088
33089   ------------------------------
33090   -- Internal_Set_Is_Covering --
33091   ------------------------------
33092
33093   procedure Internal_Set_Is_Covering
33094    (Self : AMF.Internals.AMF_Element;
33095     To   : Boolean)
33096   is
33097      Old : Boolean;
33098
33099   begin
33100      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Boolean_Value;
33101      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Boolean_Value := To;
33102
33103      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
33104       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Generalization_Set_Is_Covering, Old, To);
33105   end Internal_Set_Is_Covering;
33106
33107   -----------------------------
33108   -- Internal_Set_Is_Derived --
33109   -----------------------------
33110
33111   procedure Internal_Set_Is_Derived
33112    (Self : AMF.Internals.AMF_Element;
33113     To   : Boolean)
33114   is
33115      Old : Boolean;
33116
33117   begin
33118      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (18).Boolean_Value;
33119      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (18).Boolean_Value := To;
33120
33121      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
33122       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Association_Is_Derived, Old, To);
33123   end Internal_Set_Is_Derived;
33124
33125   -----------------------------------
33126   -- Internal_Set_Is_Derived_Union --
33127   -----------------------------------
33128
33129   procedure Internal_Set_Is_Derived_Union
33130    (Self : AMF.Internals.AMF_Element;
33131     To   : Boolean)
33132   is
33133      Old : Boolean;
33134
33135   begin
33136      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (30).Boolean_Value;
33137      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (30).Boolean_Value := To;
33138
33139      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
33140       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Is_Derived_Union, Old, To);
33141   end Internal_Set_Is_Derived_Union;
33142
33143   ----------------------------------------
33144   -- Internal_Set_Is_Destroy_Duplicates --
33145   ----------------------------------------
33146
33147   procedure Internal_Set_Is_Destroy_Duplicates
33148    (Self : AMF.Internals.AMF_Element;
33149     To   : Boolean)
33150   is
33151      Old : Boolean;
33152
33153   begin
33154      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (5).Boolean_Value;
33155      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (5).Boolean_Value := To;
33156
33157      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
33158       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Link_End_Destruction_Data_Is_Destroy_Duplicates, Old, To);
33159   end Internal_Set_Is_Destroy_Duplicates;
33160
33161   -----------------------------------
33162   -- Internal_Set_Is_Destroy_Links --
33163   -----------------------------------
33164
33165   procedure Internal_Set_Is_Destroy_Links
33166    (Self : AMF.Internals.AMF_Element;
33167     To   : Boolean)
33168   is
33169      Old : Boolean;
33170
33171   begin
33172      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Boolean_Value;
33173      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Boolean_Value := To;
33174
33175      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
33176       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Destroy_Object_Action_Is_Destroy_Links, Old, To);
33177   end Internal_Set_Is_Destroy_Links;
33178
33179   -------------------------------------------
33180   -- Internal_Set_Is_Destroy_Owned_Objects --
33181   -------------------------------------------
33182
33183   procedure Internal_Set_Is_Destroy_Owned_Objects
33184    (Self : AMF.Internals.AMF_Element;
33185     To   : Boolean)
33186   is
33187      Old : Boolean;
33188
33189   begin
33190      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (13).Boolean_Value;
33191      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (13).Boolean_Value := To;
33192
33193      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
33194       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Destroy_Object_Action_Is_Destroy_Owned_Objects, Old, To);
33195   end Internal_Set_Is_Destroy_Owned_Objects;
33196
33197   ---------------------------------
33198   -- Internal_Set_Is_Determinate --
33199   ---------------------------------
33200
33201   procedure Internal_Set_Is_Determinate
33202    (Self : AMF.Internals.AMF_Element;
33203     To   : Boolean)
33204   is
33205      Old : Boolean;
33206
33207   begin
33208      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (17).Boolean_Value;
33209      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (17).Boolean_Value := To;
33210
33211      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
33212       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Conditional_Node_Is_Determinate, Old, To);
33213   end Internal_Set_Is_Determinate;
33214
33215   -------------------------------
33216   -- Internal_Set_Is_Dimension --
33217   -------------------------------
33218
33219   procedure Internal_Set_Is_Dimension
33220    (Self : AMF.Internals.AMF_Element;
33221     To   : Boolean)
33222   is
33223      Old : Boolean;
33224
33225   begin
33226      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Boolean_Value;
33227      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Boolean_Value := To;
33228
33229      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
33230       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Partition_Is_Dimension, Old, To);
33231   end Internal_Set_Is_Dimension;
33232
33233   ----------------------------
33234   -- Internal_Set_Is_Direct --
33235   ----------------------------
33236
33237   procedure Internal_Set_Is_Direct
33238    (Self : AMF.Internals.AMF_Element;
33239     To   : Boolean)
33240   is
33241      Old : Boolean;
33242
33243   begin
33244      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (13).Boolean_Value;
33245      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (13).Boolean_Value := To;
33246
33247      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
33248       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Read_Is_Classified_Object_Action_Is_Direct, Old, To);
33249   end Internal_Set_Is_Direct;
33250
33251   ------------------------------
33252   -- Internal_Set_Is_Disjoint --
33253   ------------------------------
33254
33255   procedure Internal_Set_Is_Disjoint
33256    (Self : AMF.Internals.AMF_Element;
33257     To   : Boolean)
33258   is
33259      Old : Boolean;
33260
33261   begin
33262      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Boolean_Value;
33263      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Boolean_Value := To;
33264
33265      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
33266       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Generalization_Set_Is_Disjoint, Old, To);
33267   end Internal_Set_Is_Disjoint;
33268
33269   ----------------------------------
33270   -- Internal_Set_Is_Double_Sided --
33271   ----------------------------------
33272
33273   procedure Internal_Set_Is_Double_Sided
33274    (Self : AMF.Internals.AMF_Element;
33275     To   : Boolean)
33276   is
33277      Old : Boolean;
33278
33279   begin
33280      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Boolean_Value;
33281      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Boolean_Value := To;
33282
33283      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
33284       (Self, AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Classifier_Shape_Is_Double_Sided, Old, To);
33285   end Internal_Set_Is_Double_Sided;
33286
33287   -------------------------------
33288   -- Internal_Set_Is_Exception --
33289   -------------------------------
33290
33291   procedure Internal_Set_Is_Exception
33292    (Self : AMF.Internals.AMF_Element;
33293     To   : Boolean)
33294   is
33295      Old : Boolean;
33296
33297   begin
33298      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (20).Boolean_Value;
33299      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (20).Boolean_Value := To;
33300
33301      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
33302       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameter_Is_Exception, Old, To);
33303   end Internal_Set_Is_Exception;
33304
33305   ------------------------------
33306   -- Internal_Set_Is_External --
33307   ------------------------------
33308
33309   procedure Internal_Set_Is_External
33310    (Self : AMF.Internals.AMF_Element;
33311     To   : Boolean)
33312   is
33313      Old : Boolean;
33314
33315   begin
33316      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Boolean_Value;
33317      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (8).Boolean_Value := To;
33318
33319      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
33320       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Partition_Is_External, Old, To);
33321   end Internal_Set_Is_External;
33322
33323   ------------------------------------------
33324   -- Internal_Set_Is_Final_Specialization --
33325   ------------------------------------------
33326
33327   procedure Internal_Set_Is_Final_Specialization
33328    (Self : AMF.Internals.AMF_Element;
33329     To   : Boolean)
33330   is
33331      Old : Boolean;
33332
33333   begin
33334      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (13).Boolean_Value;
33335      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (13).Boolean_Value := To;
33336
33337      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
33338       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Classifier_Is_Final_Specialization, Old, To);
33339   end Internal_Set_Is_Final_Specialization;
33340
33341   ---------------------------
33342   -- Internal_Set_Is_Frame --
33343   ---------------------------
33344
33345   procedure Internal_Set_Is_Frame
33346    (Self : AMF.Internals.AMF_Element;
33347     To   : Boolean)
33348   is
33349      Old : Boolean;
33350
33351   begin
33352      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (21).Boolean_Value;
33353      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (21).Boolean_Value := To;
33354
33355      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
33356       (Self, AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Is_Frame, Old, To);
33357   end Internal_Set_Is_Frame;
33358
33359   ------------------------
33360   -- Internal_Set_Is_ID --
33361   ------------------------
33362
33363   procedure Internal_Set_Is_ID
33364    (Self : AMF.Internals.AMF_Element;
33365     To   : Boolean)
33366   is
33367      Old : Boolean;
33368
33369   begin
33370      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (31).Boolean_Value;
33371      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (31).Boolean_Value := To;
33372
33373      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
33374       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Property_Is_ID, Old, To);
33375   end Internal_Set_Is_ID;
33376
33377   --------------------------
33378   -- Internal_Set_Is_Icon --
33379   --------------------------
33380
33381   procedure Internal_Set_Is_Icon
33382    (Self : AMF.Internals.AMF_Element;
33383     To   : Boolean)
33384   is
33385      Old : Boolean;
33386
33387   begin
33388      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (13).Boolean_Value;
33389      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (13).Boolean_Value := To;
33390
33391      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
33392       (Self, AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Element_Is_Icon, Old, To);
33393   end Internal_Set_Is_Icon;
33394
33395   -------------------------------------------
33396   -- Internal_Set_Is_Indent_For_Visibility --
33397   -------------------------------------------
33398
33399   procedure Internal_Set_Is_Indent_For_Visibility
33400    (Self : AMF.Internals.AMF_Element;
33401     To   : Boolean)
33402   is
33403      Old : Boolean;
33404
33405   begin
33406      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (2).Boolean_Value;
33407      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (2).Boolean_Value := To;
33408
33409      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
33410       (Self, AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Classifier_Shape_Is_Indent_For_Visibility, Old, To);
33411   end Internal_Set_Is_Indent_For_Visibility;
33412
33413   ---------------------------------------------
33414   -- Internal_Set_Is_Indirectly_Instantiated --
33415   ---------------------------------------------
33416
33417   procedure Internal_Set_Is_Indirectly_Instantiated
33418    (Self : AMF.Internals.AMF_Element;
33419     To   : Boolean)
33420   is
33421      Old : Boolean;
33422
33423   begin
33424      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (18).Boolean_Value;
33425      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (18).Boolean_Value := To;
33426
33427      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
33428       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Component_Is_Indirectly_Instantiated, Old, To);
33429   end Internal_Set_Is_Indirectly_Instantiated;
33430
33431   -------------------------
33432   -- Internal_Set_Is_Iso --
33433   -------------------------
33434
33435   procedure Internal_Set_Is_Iso
33436    (Self : AMF.Internals.AMF_Element;
33437     To   : Boolean)
33438   is
33439      Old : Boolean;
33440
33441   begin
33442      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (22).Boolean_Value;
33443      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (22).Boolean_Value := To;
33444
33445      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
33446       (Self, AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Diagram_Is_Iso, Old, To);
33447   end Internal_Set_Is_Iso;
33448
33449   --------------------------
33450   -- Internal_Set_Is_Leaf --
33451   --------------------------
33452
33453   procedure Internal_Set_Is_Leaf
33454    (Self : AMF.Internals.AMF_Element;
33455     To   : Boolean)
33456   is
33457      Old : Boolean;
33458
33459   begin
33460      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Boolean_Value;
33461      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Boolean_Value := To;
33462
33463      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
33464       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Redefinable_Element_Is_Leaf, Old, To);
33465   end Internal_Set_Is_Leaf;
33466
33467   ---------------------------------------
33468   -- Internal_Set_Is_Locally_Reentrant --
33469   ---------------------------------------
33470
33471   procedure Internal_Set_Is_Locally_Reentrant
33472    (Self : AMF.Internals.AMF_Element;
33473     To   : Boolean)
33474   is
33475      Old : Boolean;
33476
33477   begin
33478      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (11).Boolean_Value;
33479      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (11).Boolean_Value := To;
33480
33481      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
33482       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Action_Is_Locally_Reentrant, Old, To);
33483   end Internal_Set_Is_Locally_Reentrant;
33484
33485   -------------------------------
33486   -- Internal_Set_Is_Multicast --
33487   -------------------------------
33488
33489   procedure Internal_Set_Is_Multicast
33490    (Self : AMF.Internals.AMF_Element;
33491     To   : Boolean)
33492   is
33493      Old : Boolean;
33494
33495   begin
33496      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (15).Boolean_Value;
33497      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (15).Boolean_Value := To;
33498
33499      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
33500       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Flow_Is_Multicast, Old, To);
33501   end Internal_Set_Is_Multicast;
33502
33503   ----------------------------------
33504   -- Internal_Set_Is_Multireceive --
33505   ----------------------------------
33506
33507   procedure Internal_Set_Is_Multireceive
33508    (Self : AMF.Internals.AMF_Element;
33509     To   : Boolean)
33510   is
33511      Old : Boolean;
33512
33513   begin
33514      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Boolean_Value;
33515      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Boolean_Value := To;
33516
33517      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
33518       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Flow_Is_Multireceive, Old, To);
33519   end Internal_Set_Is_Multireceive;
33520
33521   -----------------------------
33522   -- Internal_Set_Is_Ordered --
33523   -----------------------------
33524
33525   procedure Internal_Set_Is_Ordered
33526    (Self : AMF.Internals.AMF_Element;
33527     To   : Boolean)
33528   is
33529      Old : Boolean;
33530
33531   begin
33532      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Boolean_Value;
33533      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Boolean_Value := To;
33534
33535      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
33536       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Is_Ordered, Old, To);
33537   end Internal_Set_Is_Ordered;
33538
33539   ---------------------------
33540   -- Internal_Set_Is_Query --
33541   ---------------------------
33542
33543   procedure Internal_Set_Is_Query
33544    (Self : AMF.Internals.AMF_Element;
33545     To   : Boolean)
33546   is
33547      Old : Boolean;
33548
33549   begin
33550      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (22).Boolean_Value;
33551      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (22).Boolean_Value := To;
33552
33553      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
33554       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Operation_Is_Query, Old, To);
33555   end Internal_Set_Is_Query;
33556
33557   -------------------------------
33558   -- Internal_Set_Is_Read_Only --
33559   -------------------------------
33560
33561   procedure Internal_Set_Is_Read_Only
33562    (Self : AMF.Internals.AMF_Element;
33563     To   : Boolean)
33564   is
33565      Old : Boolean;
33566
33567   begin
33568      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (24).Boolean_Value;
33569      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (24).Boolean_Value := To;
33570
33571      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
33572       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Is_Read_Only, Old, To);
33573   end Internal_Set_Is_Read_Only;
33574
33575   -------------------------------
33576   -- Internal_Set_Is_Reentrant --
33577   -------------------------------
33578
33579   procedure Internal_Set_Is_Reentrant
33580    (Self : AMF.Internals.AMF_Element;
33581     To   : Boolean)
33582   is
33583      Old : Boolean;
33584
33585   begin
33586      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (22).Boolean_Value;
33587      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (22).Boolean_Value := To;
33588
33589      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
33590       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Behavior_Is_Reentrant, Old, To);
33591   end Internal_Set_Is_Reentrant;
33592
33593   ------------------------------
33594   -- Internal_Set_Is_Relative --
33595   ------------------------------
33596
33597   procedure Internal_Set_Is_Relative
33598    (Self : AMF.Internals.AMF_Element;
33599     To   : Boolean)
33600   is
33601      Old : Boolean;
33602
33603   begin
33604      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Boolean_Value;
33605      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Boolean_Value := To;
33606
33607      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
33608       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Time_Event_Is_Relative, Old, To);
33609   end Internal_Set_Is_Relative;
33610
33611   ---------------------------------------
33612   -- Internal_Set_Is_Remove_Duplicates --
33613   ---------------------------------------
33614
33615   procedure Internal_Set_Is_Remove_Duplicates
33616    (Self : AMF.Internals.AMF_Element;
33617     To   : Boolean)
33618   is
33619      Old : Boolean;
33620
33621   begin
33622      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Boolean_Value;
33623      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Boolean_Value := To;
33624
33625      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
33626       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Remove_Structural_Feature_Value_Action_Is_Remove_Duplicates, Old, To);
33627   end Internal_Set_Is_Remove_Duplicates;
33628
33629   ---------------------------------
33630   -- Internal_Set_Is_Replace_All --
33631   ---------------------------------
33632
33633   procedure Internal_Set_Is_Replace_All
33634    (Self : AMF.Internals.AMF_Element;
33635     To   : Boolean)
33636   is
33637      Old : Boolean;
33638
33639   begin
33640      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Boolean_Value;
33641      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Boolean_Value := To;
33642
33643      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
33644       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Add_Structural_Feature_Value_Action_Is_Replace_All, Old, To);
33645   end Internal_Set_Is_Replace_All;
33646
33647   -----------------------------
33648   -- Internal_Set_Is_Service --
33649   -----------------------------
33650
33651   procedure Internal_Set_Is_Service
33652    (Self : AMF.Internals.AMF_Element;
33653     To   : Boolean)
33654   is
33655      Old : Boolean;
33656
33657   begin
33658      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (36).Boolean_Value;
33659      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (36).Boolean_Value := To;
33660
33661      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
33662       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Port_Is_Service, Old, To);
33663   end Internal_Set_Is_Service;
33664
33665   --------------------------------------
33666   -- Internal_Set_Is_Single_Execution --
33667   --------------------------------------
33668
33669   procedure Internal_Set_Is_Single_Execution
33670    (Self : AMF.Internals.AMF_Element;
33671     To   : Boolean)
33672   is
33673      Old : Boolean;
33674
33675   begin
33676      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (18).Boolean_Value;
33677      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (18).Boolean_Value := To;
33678
33679      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
33680       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Activity_Is_Single_Execution, Old, To);
33681   end Internal_Set_Is_Single_Execution;
33682
33683   ----------------------------
33684   -- Internal_Set_Is_Static --
33685   ----------------------------
33686
33687   procedure Internal_Set_Is_Static
33688    (Self : AMF.Internals.AMF_Element;
33689     To   : Boolean)
33690   is
33691      Old : Boolean;
33692
33693   begin
33694      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (17).Boolean_Value;
33695      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (17).Boolean_Value := To;
33696
33697      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
33698       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Feature_Is_Static, Old, To);
33699   end Internal_Set_Is_Static;
33700
33701   ----------------------------
33702   -- Internal_Set_Is_Stream --
33703   ----------------------------
33704
33705   procedure Internal_Set_Is_Stream
33706    (Self : AMF.Internals.AMF_Element;
33707     To   : Boolean)
33708   is
33709      Old : Boolean;
33710
33711   begin
33712      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (22).Boolean_Value;
33713      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (22).Boolean_Value := To;
33714
33715      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
33716       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Parameter_Is_Stream, Old, To);
33717   end Internal_Set_Is_Stream;
33718
33719   ----------------------------
33720   -- Internal_Set_Is_Strict --
33721   ----------------------------
33722
33723   procedure Internal_Set_Is_Strict
33724    (Self : AMF.Internals.AMF_Element;
33725     To   : Boolean)
33726   is
33727      Old : Boolean;
33728
33729   begin
33730      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Boolean_Value;
33731      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).Boolean_Value := To;
33732
33733      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
33734       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Profile_Application_Is_Strict, Old, To);
33735   end Internal_Set_Is_Strict;
33736
33737   -----------------------------------
33738   -- Internal_Set_Is_Substitutable --
33739   -----------------------------------
33740
33741   procedure Internal_Set_Is_Substitutable
33742    (Self : AMF.Internals.AMF_Element;
33743     To   : AMF.Optional_Boolean)
33744   is
33745      Old : AMF.Optional_Boolean;
33746
33747   begin
33748      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Boolean_Holder;
33749      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (3).Boolean_Holder := To;
33750
33751      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
33752       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Generalization_Is_Substitutable, Old, To);
33753   end Internal_Set_Is_Substitutable;
33754
33755   ---------------------------------
33756   -- Internal_Set_Is_Synchronous --
33757   ---------------------------------
33758
33759   procedure Internal_Set_Is_Synchronous
33760    (Self : AMF.Internals.AMF_Element;
33761     To   : Boolean)
33762   is
33763      Old : Boolean;
33764
33765   begin
33766      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (13).Boolean_Value;
33767      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (13).Boolean_Value := To;
33768
33769      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
33770       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Call_Action_Is_Synchronous, Old, To);
33771   end Internal_Set_Is_Synchronous;
33772
33773   ----------------------------
33774   -- Internal_Set_Is_Tabbed --
33775   ----------------------------
33776
33777   procedure Internal_Set_Is_Tabbed
33778    (Self : AMF.Internals.AMF_Element;
33779     To   : Boolean)
33780   is
33781      Old : Boolean;
33782
33783   begin
33784      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Boolean_Value;
33785      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).Boolean_Value := To;
33786
33787      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
33788       (Self, AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_State_Shape_Is_Tabbed, Old, To);
33789   end Internal_Set_Is_Tabbed;
33790
33791   ----------------------------------
33792   -- Internal_Set_Is_Tested_First --
33793   ----------------------------------
33794
33795   procedure Internal_Set_Is_Tested_First
33796    (Self : AMF.Internals.AMF_Element;
33797     To   : Boolean)
33798   is
33799      Old : Boolean;
33800
33801   begin
33802      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (17).Boolean_Value;
33803      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (17).Boolean_Value := To;
33804
33805      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
33806       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Loop_Node_Is_Tested_First, Old, To);
33807   end Internal_Set_Is_Tested_First;
33808
33809   -----------------------------------------
33810   -- Internal_Set_Is_Transition_Oriented --
33811   -----------------------------------------
33812
33813   procedure Internal_Set_Is_Transition_Oriented
33814    (Self : AMF.Internals.AMF_Element;
33815     To   : Boolean)
33816   is
33817      Old : Boolean;
33818
33819   begin
33820      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (26).Boolean_Value;
33821      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (26).Boolean_Value := To;
33822
33823      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
33824       (Self, AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_State_Machine_Diagram_Is_Transition_Oriented, Old, To);
33825   end Internal_Set_Is_Transition_Oriented;
33826
33827   ----------------------------
33828   -- Internal_Set_Is_Unique --
33829   ----------------------------
33830
33831   procedure Internal_Set_Is_Unique
33832    (Self : AMF.Internals.AMF_Element;
33833     To   : Boolean)
33834   is
33835      Old : Boolean;
33836
33837   begin
33838      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (13).Boolean_Value;
33839      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (13).Boolean_Value := To;
33840
33841      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
33842       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Is_Unique, Old, To);
33843   end Internal_Set_Is_Unique;
33844
33845   --------------------------------
33846   -- Internal_Set_Is_Unmarshall --
33847   --------------------------------
33848
33849   procedure Internal_Set_Is_Unmarshall
33850    (Self : AMF.Internals.AMF_Element;
33851     To   : Boolean)
33852   is
33853      Old : Boolean;
33854
33855   begin
33856      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Boolean_Value;
33857      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).Boolean_Value := To;
33858
33859      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
33860       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Accept_Event_Action_Is_Unmarshall, Old, To);
33861   end Internal_Set_Is_Unmarshall;
33862
33863   ----------------------------
33864   -- Internal_Set_Join_Spec --
33865   ----------------------------
33866
33867   procedure Internal_Set_Join_Spec
33868    (Self : AMF.Internals.AMF_Element;
33869     To   : AMF.Internals.AMF_Element) is
33870   begin
33871      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
33872         when AMF.Internals.Tables.UML_Types.E_UML_Join_Node =>
33873            AMF.Internals.Links.Create_Link
33874             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Join_Node_Join_Spec_Join_Node,
33875              Self,
33876              To);
33877
33878         when others =>
33879            raise Program_Error;
33880      end case;
33881   end Internal_Set_Join_Spec;
33882
33883   -----------------------
33884   -- Internal_Set_Kind --
33885   -----------------------
33886
33887   procedure Internal_Set_Kind
33888    (Self : AMF.Internals.AMF_Element;
33889     To   : AMF.UML.UML_Pseudostate_Kind)
33890   is
33891      Old : AMF.UML.UML_Pseudostate_Kind;
33892
33893   begin
33894      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Pseudostate_Kind_Value;
33895      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Pseudostate_Kind_Value := To;
33896
33897      AMF.Internals.Tables.UML_Notification.Notify_Attribute_Set
33898       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Pseudostate_Kind, Old, To);
33899   end Internal_Set_Kind;
33900
33901   -----------------------
33902   -- Internal_Set_Kind --
33903   -----------------------
33904
33905   procedure Internal_Set_Kind
33906    (Self : AMF.Internals.AMF_Element;
33907     To   : AMF.UML.UML_Transition_Kind)
33908   is
33909      Old : AMF.UML.UML_Transition_Kind;
33910
33911   begin
33912      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (11).Transition_Kind_Value;
33913      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (11).Transition_Kind_Value := To;
33914
33915      AMF.Internals.Tables.UML_Notification.Notify_Attribute_Set
33916       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Transition_Kind, Old, To);
33917   end Internal_Set_Kind;
33918
33919   -----------------------
33920   -- Internal_Set_Kind --
33921   -----------------------
33922
33923   procedure Internal_Set_Kind
33924    (Self : AMF.Internals.AMF_Element;
33925     To   : AMF.UMLDI.UMLDI_UML_Association_Or_Connector_Or_Link_Shape_Kind)
33926   is
33927      Old : AMF.UMLDI.UMLDI_UML_Association_Or_Connector_Or_Link_Shape_Kind;
33928
33929   begin
33930      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).UML_Association_Or_Connector_Or_Link_Shape_Kind_Value;
33931      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).UML_Association_Or_Connector_Or_Link_Shape_Kind_Value := To;
33932
33933      AMF.Internals.Tables.UMLDI_Notification.Notify_Attribute_Set
33934       (Self, AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Association_Or_Connector_Or_Link_Shape_Kind, Old, To);
33935   end Internal_Set_Kind;
33936
33937   -----------------------
33938   -- Internal_Set_Kind --
33939   -----------------------
33940
33941   procedure Internal_Set_Kind
33942    (Self : AMF.Internals.AMF_Element;
33943     To   : AMF.UMLDI.UMLDI_UML_Interaction_Diagram_Kind)
33944   is
33945      Old : AMF.UMLDI.UMLDI_UML_Interaction_Diagram_Kind;
33946
33947   begin
33948      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (24).UML_Interaction_Diagram_Kind_Value;
33949      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (24).UML_Interaction_Diagram_Kind_Value := To;
33950
33951      AMF.Internals.Tables.UMLDI_Notification.Notify_Attribute_Set
33952       (Self, AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Interaction_Diagram_Kind, Old, To);
33953   end Internal_Set_Kind;
33954
33955   -----------------------
33956   -- Internal_Set_Kind --
33957   -----------------------
33958
33959   procedure Internal_Set_Kind
33960    (Self : AMF.Internals.AMF_Element;
33961     To   : AMF.UMLDI.UMLDI_UML_Interaction_Table_Label_Kind)
33962   is
33963      Old : AMF.UMLDI.UMLDI_UML_Interaction_Table_Label_Kind;
33964
33965   begin
33966      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (2).UML_Interaction_Table_Label_Kind_Value;
33967      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (2).UML_Interaction_Table_Label_Kind_Value := To;
33968
33969      AMF.Internals.Tables.UMLDI_Notification.Notify_Attribute_Set
33970       (Self, AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Interaction_Table_Label_Kind, Old, To);
33971   end Internal_Set_Kind;
33972
33973   ------------------------------
33974   -- Internal_Set_Local_Style --
33975   ------------------------------
33976
33977   procedure Internal_Set_Local_Style
33978    (Self : AMF.Internals.AMF_Element;
33979     To   : AMF.Internals.AMF_Element) is
33980   begin
33981      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
33982         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Activity_Diagram =>
33983            AMF.Internals.Links.Create_Link
33984             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Local_Style_Styled_Element,
33985              Self,
33986              To);
33987
33988         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Association_End_Label =>
33989            AMF.Internals.Links.Create_Link
33990             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Local_Style_Styled_Element,
33991              Self,
33992              To);
33993
33994         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Association_Or_Connector_Or_Link_Shape =>
33995            AMF.Internals.Links.Create_Link
33996             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Local_Style_Styled_Element,
33997              Self,
33998              To);
33999
34000         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Class_Diagram =>
34001            AMF.Internals.Links.Create_Link
34002             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Local_Style_Styled_Element,
34003              Self,
34004              To);
34005
34006         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Classifier_Shape =>
34007            AMF.Internals.Links.Create_Link
34008             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Local_Style_Styled_Element,
34009              Self,
34010              To);
34011
34012         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Compartment =>
34013            AMF.Internals.Links.Create_Link
34014             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Local_Style_Styled_Element,
34015              Self,
34016              To);
34017
34018         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Compartmentable_Shape =>
34019            AMF.Internals.Links.Create_Link
34020             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Local_Style_Styled_Element,
34021              Self,
34022              To);
34023
34024         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Component_Diagram =>
34025            AMF.Internals.Links.Create_Link
34026             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Local_Style_Styled_Element,
34027              Self,
34028              To);
34029
34030         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Composite_Structure_Diagram =>
34031            AMF.Internals.Links.Create_Link
34032             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Local_Style_Styled_Element,
34033              Self,
34034              To);
34035
34036         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Deployment_Diagram =>
34037            AMF.Internals.Links.Create_Link
34038             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Local_Style_Styled_Element,
34039              Self,
34040              To);
34041
34042         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Edge =>
34043            AMF.Internals.Links.Create_Link
34044             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Local_Style_Styled_Element,
34045              Self,
34046              To);
34047
34048         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Interaction_Diagram =>
34049            AMF.Internals.Links.Create_Link
34050             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Local_Style_Styled_Element,
34051              Self,
34052              To);
34053
34054         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Interaction_Table_Label =>
34055            AMF.Internals.Links.Create_Link
34056             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Local_Style_Styled_Element,
34057              Self,
34058              To);
34059
34060         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Keyword_Label =>
34061            AMF.Internals.Links.Create_Link
34062             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Local_Style_Styled_Element,
34063              Self,
34064              To);
34065
34066         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Label =>
34067            AMF.Internals.Links.Create_Link
34068             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Local_Style_Styled_Element,
34069              Self,
34070              To);
34071
34072         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Multiplicity_Label =>
34073            AMF.Internals.Links.Create_Link
34074             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Local_Style_Styled_Element,
34075              Self,
34076              To);
34077
34078         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Name_Label =>
34079            AMF.Internals.Links.Create_Link
34080             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Local_Style_Styled_Element,
34081              Self,
34082              To);
34083
34084         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Object_Diagram =>
34085            AMF.Internals.Links.Create_Link
34086             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Local_Style_Styled_Element,
34087              Self,
34088              To);
34089
34090         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Package_Diagram =>
34091            AMF.Internals.Links.Create_Link
34092             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Local_Style_Styled_Element,
34093              Self,
34094              To);
34095
34096         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Profile_Diagram =>
34097            AMF.Internals.Links.Create_Link
34098             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Local_Style_Styled_Element,
34099              Self,
34100              To);
34101
34102         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Redefines_Label =>
34103            AMF.Internals.Links.Create_Link
34104             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Local_Style_Styled_Element,
34105              Self,
34106              To);
34107
34108         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Shape =>
34109            AMF.Internals.Links.Create_Link
34110             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Local_Style_Styled_Element,
34111              Self,
34112              To);
34113
34114         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_State_Machine_Diagram =>
34115            AMF.Internals.Links.Create_Link
34116             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Local_Style_Styled_Element,
34117              Self,
34118              To);
34119
34120         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_State_Shape =>
34121            AMF.Internals.Links.Create_Link
34122             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Local_Style_Styled_Element,
34123              Self,
34124              To);
34125
34126         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Stereotype_Property_Value_Label =>
34127            AMF.Internals.Links.Create_Link
34128             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Local_Style_Styled_Element,
34129              Self,
34130              To);
34131
34132         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Typed_Element_Label =>
34133            AMF.Internals.Links.Create_Link
34134             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Local_Style_Styled_Element,
34135              Self,
34136              To);
34137
34138         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Use_Case_Diagram =>
34139            AMF.Internals.Links.Create_Link
34140             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Local_Style_Styled_Element,
34141              Self,
34142              To);
34143
34144         when others =>
34145            raise Program_Error;
34146      end case;
34147   end Internal_Set_Local_Style;
34148
34149   ---------------------------
34150   -- Internal_Set_Location --
34151   ---------------------------
34152
34153   procedure Internal_Set_Location
34154    (Self : AMF.Internals.AMF_Element;
34155     To   : AMF.Internals.AMF_Element) is
34156   begin
34157      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
34158         when AMF.Internals.Tables.UML_Types.E_UML_Deployment =>
34159            AMF.Internals.Links.Create_Link
34160             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Deployment_Target_Deployment_Location,
34161              To,
34162              Self);
34163
34164         when others =>
34165            raise Program_Error;
34166      end case;
34167   end Internal_Set_Location;
34168
34169   ---------------------------
34170   -- Internal_Set_Location --
34171   ---------------------------
34172
34173   procedure Internal_Set_Location
34174    (Self : AMF.Internals.AMF_Element;
34175     To   : Matreshka.Internals.Strings.Shared_String_Access)
34176   is
34177      Old : Matreshka.Internals.Strings.Shared_String_Access;
34178
34179   begin
34180      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (4).String_Value;
34181
34182      UML_Element_Table.Table (Self).Member (4).String_Value := To;
34183
34184      if UML_Element_Table.Table (Self).Member (4).String_Value /= null then
34185         Matreshka.Internals.Strings.Reference
34186          (UML_Element_Table.Table (Self).Member (4).String_Value);
34187      end if;
34188
34189      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
34190       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Image_Location, Old, To);
34191
34192      if Old /= null then
34193         Matreshka.Internals.Strings.Reference (Old);
34194      end if;
34195   end Internal_Set_Location;
34196
34197   ------------------------
34198   -- Internal_Set_Lower --
34199   ------------------------
34200
34201   procedure Internal_Set_Lower
34202    (Self : AMF.Internals.AMF_Element;
34203     To   : AMF.Optional_Integer)
34204   is
34205      Old : AMF.Optional_Integer;
34206
34207   begin
34208      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Integer_Holder;
34209      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (14).Integer_Holder := To;
34210
34211      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
34212       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Lower, Old, To);
34213   end Internal_Set_Lower;
34214
34215   ------------------------------
34216   -- Internal_Set_Lower_Value --
34217   ------------------------------
34218
34219   procedure Internal_Set_Lower_Value
34220    (Self : AMF.Internals.AMF_Element;
34221     To   : AMF.Internals.AMF_Element) is
34222   begin
34223      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
34224         when AMF.Internals.Tables.UML_Types.E_UML_Action_Input_Pin =>
34225            AMF.Internals.Links.Create_Link
34226             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Multiplicity_Element_Lower_Value_Owning_Lower,
34227              Self,
34228              To);
34229
34230         when AMF.Internals.Tables.UML_Types.E_UML_Connector_End =>
34231            AMF.Internals.Links.Create_Link
34232             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Multiplicity_Element_Lower_Value_Owning_Lower,
34233              Self,
34234              To);
34235
34236         when AMF.Internals.Tables.UML_Types.E_UML_Extension_End =>
34237            AMF.Internals.Links.Create_Link
34238             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Multiplicity_Element_Lower_Value_Owning_Lower,
34239              Self,
34240              To);
34241
34242         when AMF.Internals.Tables.UML_Types.E_UML_Input_Pin =>
34243            AMF.Internals.Links.Create_Link
34244             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Multiplicity_Element_Lower_Value_Owning_Lower,
34245              Self,
34246              To);
34247
34248         when AMF.Internals.Tables.UML_Types.E_UML_Output_Pin =>
34249            AMF.Internals.Links.Create_Link
34250             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Multiplicity_Element_Lower_Value_Owning_Lower,
34251              Self,
34252              To);
34253
34254         when AMF.Internals.Tables.UML_Types.E_UML_Parameter =>
34255            AMF.Internals.Links.Create_Link
34256             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Multiplicity_Element_Lower_Value_Owning_Lower,
34257              Self,
34258              To);
34259
34260         when AMF.Internals.Tables.UML_Types.E_UML_Port =>
34261            AMF.Internals.Links.Create_Link
34262             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Multiplicity_Element_Lower_Value_Owning_Lower,
34263              Self,
34264              To);
34265
34266         when AMF.Internals.Tables.UML_Types.E_UML_Property =>
34267            AMF.Internals.Links.Create_Link
34268             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Multiplicity_Element_Lower_Value_Owning_Lower,
34269              Self,
34270              To);
34271
34272         when AMF.Internals.Tables.UML_Types.E_UML_Value_Pin =>
34273            AMF.Internals.Links.Create_Link
34274             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Multiplicity_Element_Lower_Value_Owning_Lower,
34275              Self,
34276              To);
34277
34278         when AMF.Internals.Tables.UML_Types.E_UML_Variable =>
34279            AMF.Internals.Links.Create_Link
34280             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Multiplicity_Element_Lower_Value_Owning_Lower,
34281              Self,
34282              To);
34283
34284         when others =>
34285            raise Program_Error;
34286      end case;
34287   end Internal_Set_Lower_Value;
34288
34289   --------------------------
34290   -- Internal_Set_Mapping --
34291   --------------------------
34292
34293   procedure Internal_Set_Mapping
34294    (Self : AMF.Internals.AMF_Element;
34295     To   : AMF.Internals.AMF_Element) is
34296   begin
34297      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
34298         when AMF.Internals.Tables.UML_Types.E_UML_Abstraction =>
34299            AMF.Internals.Links.Create_Link
34300             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Abstraction_Mapping_Abstraction,
34301              Self,
34302              To);
34303
34304         when AMF.Internals.Tables.UML_Types.E_UML_Component_Realization =>
34305            AMF.Internals.Links.Create_Link
34306             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Abstraction_Mapping_Abstraction,
34307              Self,
34308              To);
34309
34310         when AMF.Internals.Tables.UML_Types.E_UML_Interface_Realization =>
34311            AMF.Internals.Links.Create_Link
34312             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Abstraction_Mapping_Abstraction,
34313              Self,
34314              To);
34315
34316         when AMF.Internals.Tables.UML_Types.E_UML_Manifestation =>
34317            AMF.Internals.Links.Create_Link
34318             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Abstraction_Mapping_Abstraction,
34319              Self,
34320              To);
34321
34322         when AMF.Internals.Tables.UML_Types.E_UML_Realization =>
34323            AMF.Internals.Links.Create_Link
34324             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Abstraction_Mapping_Abstraction,
34325              Self,
34326              To);
34327
34328         when AMF.Internals.Tables.UML_Types.E_UML_Substitution =>
34329            AMF.Internals.Links.Create_Link
34330             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Abstraction_Mapping_Abstraction,
34331              Self,
34332              To);
34333
34334         when others =>
34335            raise Program_Error;
34336      end case;
34337   end Internal_Set_Mapping;
34338
34339   ----------------------
34340   -- Internal_Set_Max --
34341   ----------------------
34342
34343   procedure Internal_Set_Max
34344    (Self : AMF.Internals.AMF_Element;
34345     To   : AMF.Internals.AMF_Element) is
34346   begin
34347      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
34348         when AMF.Internals.Tables.UML_Types.E_UML_Duration_Interval =>
34349            AMF.Internals.Links.Create_Link
34350             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Duration_Interval_Max_Duration_Interval,
34351              Self,
34352              To);
34353
34354         when AMF.Internals.Tables.UML_Types.E_UML_Interval =>
34355            AMF.Internals.Links.Create_Link
34356             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Interval_Max_Interval,
34357              Self,
34358              To);
34359
34360         when AMF.Internals.Tables.UML_Types.E_UML_Time_Interval =>
34361            AMF.Internals.Links.Create_Link
34362             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Interval_Max_Interval,
34363              Self,
34364              To);
34365
34366         when others =>
34367            raise Program_Error;
34368      end case;
34369   end Internal_Set_Max;
34370
34371   -------------------------
34372   -- Internal_Set_Maxint --
34373   -------------------------
34374
34375   procedure Internal_Set_Maxint
34376    (Self : AMF.Internals.AMF_Element;
34377     To   : AMF.Internals.AMF_Element) is
34378   begin
34379      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
34380         when AMF.Internals.Tables.UML_Types.E_UML_Interaction_Constraint =>
34381            AMF.Internals.Links.Create_Link
34382             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Interaction_Constraint_Maxint_Interaction_Constraint,
34383              Self,
34384              To);
34385
34386         when others =>
34387            raise Program_Error;
34388      end case;
34389   end Internal_Set_Maxint;
34390
34391   ---------------------------------
34392   -- Internal_Set_Merged_Package --
34393   ---------------------------------
34394
34395   procedure Internal_Set_Merged_Package
34396    (Self : AMF.Internals.AMF_Element;
34397     To   : AMF.Internals.AMF_Element) is
34398   begin
34399      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
34400         when AMF.Internals.Tables.UML_Types.E_UML_Package_Merge =>
34401            AMF.Internals.Links.Create_Link
34402             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Package_Merge_Merged_Package_Package_Merge,
34403              Self,
34404              To);
34405
34406         when others =>
34407            raise Program_Error;
34408      end case;
34409   end Internal_Set_Merged_Package;
34410
34411   --------------------------
34412   -- Internal_Set_Message --
34413   --------------------------
34414
34415   procedure Internal_Set_Message
34416    (Self : AMF.Internals.AMF_Element;
34417     To   : AMF.Internals.AMF_Element) is
34418   begin
34419      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
34420         when AMF.Internals.Tables.UML_Types.E_UML_Destruction_Occurrence_Specification =>
34421            AMF.Internals.Links.Create_Link
34422             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Message_End_Message_Message_End,
34423              Self,
34424              To);
34425
34426         when AMF.Internals.Tables.UML_Types.E_UML_Gate =>
34427            AMF.Internals.Links.Create_Link
34428             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Message_End_Message_Message_End,
34429              Self,
34430              To);
34431
34432         when AMF.Internals.Tables.UML_Types.E_UML_Message_Occurrence_Specification =>
34433            AMF.Internals.Links.Create_Link
34434             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Message_End_Message_Message_End,
34435              Self,
34436              To);
34437
34438         when others =>
34439            raise Program_Error;
34440      end case;
34441   end Internal_Set_Message;
34442
34443   -------------------------------
34444   -- Internal_Set_Message_Sort --
34445   -------------------------------
34446
34447   procedure Internal_Set_Message_Sort
34448    (Self : AMF.Internals.AMF_Element;
34449     To   : AMF.UML.UML_Message_Sort)
34450   is
34451      Old : AMF.UML.UML_Message_Sort;
34452
34453   begin
34454      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Message_Sort_Value;
34455      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (10).Message_Sort_Value := To;
34456
34457      AMF.Internals.Tables.UML_Notification.Notify_Attribute_Set
34458       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Message_Message_Sort, Old, To);
34459   end Internal_Set_Message_Sort;
34460
34461   ----------------------
34462   -- Internal_Set_Min --
34463   ----------------------
34464
34465   procedure Internal_Set_Min
34466    (Self : AMF.Internals.AMF_Element;
34467     To   : AMF.Internals.AMF_Element) is
34468   begin
34469      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
34470         when AMF.Internals.Tables.UML_Types.E_UML_Duration_Interval =>
34471            AMF.Internals.Links.Create_Link
34472             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Duration_Interval_Min_Duration_Interval,
34473              Self,
34474              To);
34475
34476         when AMF.Internals.Tables.UML_Types.E_UML_Interval =>
34477            AMF.Internals.Links.Create_Link
34478             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Interval_Min_Interval,
34479              Self,
34480              To);
34481
34482         when AMF.Internals.Tables.UML_Types.E_UML_Time_Interval =>
34483            AMF.Internals.Links.Create_Link
34484             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Interval_Min_Interval,
34485              Self,
34486              To);
34487
34488         when others =>
34489            raise Program_Error;
34490      end case;
34491   end Internal_Set_Min;
34492
34493   -------------------------
34494   -- Internal_Set_Minint --
34495   -------------------------
34496
34497   procedure Internal_Set_Minint
34498    (Self : AMF.Internals.AMF_Element;
34499     To   : AMF.Internals.AMF_Element) is
34500   begin
34501      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
34502         when AMF.Internals.Tables.UML_Types.E_UML_Interaction_Constraint =>
34503            AMF.Internals.Links.Create_Link
34504             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Interaction_Constraint_Minint_Interaction_Constraint,
34505              Self,
34506              To);
34507
34508         when others =>
34509            raise Program_Error;
34510      end case;
34511   end Internal_Set_Minint;
34512
34513   -----------------------
34514   -- Internal_Set_Mode --
34515   -----------------------
34516
34517   procedure Internal_Set_Mode
34518    (Self : AMF.Internals.AMF_Element;
34519     To   : AMF.UML.UML_Expansion_Kind)
34520   is
34521      Old : AMF.UML.UML_Expansion_Kind;
34522
34523   begin
34524      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Expansion_Kind_Value;
34525      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (16).Expansion_Kind_Value := To;
34526
34527      AMF.Internals.Tables.UML_Notification.Notify_Attribute_Set
34528       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Expansion_Region_Mode, Old, To);
34529   end Internal_Set_Mode;
34530
34531   -------------------------------
34532   -- Internal_Set_Mode_Element --
34533   -------------------------------
34534
34535   procedure Internal_Set_Mode_Element
34536    (Self : AMF.Internals.AMF_Element;
34537     To   : AMF.Internals.AMF_Element) is
34538   begin
34539      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
34540         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Name_Label =>
34541            AMF.Internals.Links.Create_Link
34542             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Name_Label_Mode_Element_Uml_Diagram_Element,
34543              Self,
34544              To);
34545
34546         when others =>
34547            raise Program_Error;
34548      end case;
34549   end Internal_Set_Mode_Element;
34550
34551   --------------------------------
34552   -- Internal_Set_Model_Element --
34553   --------------------------------
34554
34555   procedure Internal_Set_Model_Element
34556    (Self : AMF.Internals.AMF_Element;
34557     To   : AMF.Internals.AMF_Element) is
34558   begin
34559      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
34560         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Activity_Diagram =>
34561            AMF.Internals.Links.Create_Link
34562             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Activity_Diagram_Model_Element_Uml_Diagram_Element,
34563              Self,
34564              To);
34565
34566         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Association_End_Label =>
34567            AMF.Internals.Links.Create_Link
34568             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Association_End_Label_Model_Element_Uml_Diagram_Element,
34569              Self,
34570              To);
34571
34572         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Association_Or_Connector_Or_Link_Shape =>
34573            AMF.Internals.Links.Create_Link
34574             (AMF.Internals.Tables.DI_Metamodel.MA_DI_Diagram_Element_Model_Element_Diagram_Element,
34575              Self,
34576              To);
34577
34578         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Class_Diagram =>
34579            AMF.Internals.Links.Create_Link
34580             (AMF.Internals.Tables.DI_Metamodel.MA_DI_Diagram_Element_Model_Element_Diagram_Element,
34581              Self,
34582              To);
34583
34584         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Classifier_Shape =>
34585            AMF.Internals.Links.Create_Link
34586             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Classifier_Shape_Model_Element_Uml_Diagram_Element,
34587              Self,
34588              To);
34589
34590         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Compartment =>
34591            AMF.Internals.Links.Create_Link
34592             (AMF.Internals.Tables.DI_Metamodel.MA_DI_Diagram_Element_Model_Element_Diagram_Element,
34593              Self,
34594              To);
34595
34596         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Compartmentable_Shape =>
34597            AMF.Internals.Links.Create_Link
34598             (AMF.Internals.Tables.DI_Metamodel.MA_DI_Diagram_Element_Model_Element_Diagram_Element,
34599              Self,
34600              To);
34601
34602         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Component_Diagram =>
34603            AMF.Internals.Links.Create_Link
34604             (AMF.Internals.Tables.DI_Metamodel.MA_DI_Diagram_Element_Model_Element_Diagram_Element,
34605              Self,
34606              To);
34607
34608         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Composite_Structure_Diagram =>
34609            AMF.Internals.Links.Create_Link
34610             (AMF.Internals.Tables.DI_Metamodel.MA_DI_Diagram_Element_Model_Element_Diagram_Element,
34611              Self,
34612              To);
34613
34614         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Deployment_Diagram =>
34615            AMF.Internals.Links.Create_Link
34616             (AMF.Internals.Tables.DI_Metamodel.MA_DI_Diagram_Element_Model_Element_Diagram_Element,
34617              Self,
34618              To);
34619
34620         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Edge =>
34621            AMF.Internals.Links.Create_Link
34622             (AMF.Internals.Tables.DI_Metamodel.MA_DI_Diagram_Element_Model_Element_Diagram_Element,
34623              Self,
34624              To);
34625
34626         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Interaction_Diagram =>
34627            AMF.Internals.Links.Create_Link
34628             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Behavior_Diagram_Model_Element_Uml_Diagram_Element,
34629              Self,
34630              To);
34631
34632         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Interaction_Table_Label =>
34633            AMF.Internals.Links.Create_Link
34634             (AMF.Internals.Tables.DI_Metamodel.MA_DI_Diagram_Element_Model_Element_Diagram_Element,
34635              Self,
34636              To);
34637
34638         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Keyword_Label =>
34639            AMF.Internals.Links.Create_Link
34640             (AMF.Internals.Tables.DI_Metamodel.MA_DI_Diagram_Element_Model_Element_Diagram_Element,
34641              Self,
34642              To);
34643
34644         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Label =>
34645            AMF.Internals.Links.Create_Link
34646             (AMF.Internals.Tables.DI_Metamodel.MA_DI_Diagram_Element_Model_Element_Diagram_Element,
34647              Self,
34648              To);
34649
34650         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Multiplicity_Label =>
34651            AMF.Internals.Links.Create_Link
34652             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Multiplicity_Label_Model_Element_Uml_Diagram_Element,
34653              Self,
34654              To);
34655
34656         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Name_Label =>
34657            AMF.Internals.Links.Create_Link
34658             (AMF.Internals.Tables.DI_Metamodel.MA_DI_Diagram_Element_Model_Element_Diagram_Element,
34659              Self,
34660              To);
34661
34662         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Object_Diagram =>
34663            AMF.Internals.Links.Create_Link
34664             (AMF.Internals.Tables.DI_Metamodel.MA_DI_Diagram_Element_Model_Element_Diagram_Element,
34665              Self,
34666              To);
34667
34668         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Package_Diagram =>
34669            AMF.Internals.Links.Create_Link
34670             (AMF.Internals.Tables.DI_Metamodel.MA_DI_Diagram_Element_Model_Element_Diagram_Element,
34671              Self,
34672              To);
34673
34674         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Profile_Diagram =>
34675            AMF.Internals.Links.Create_Link
34676             (AMF.Internals.Tables.DI_Metamodel.MA_DI_Diagram_Element_Model_Element_Diagram_Element,
34677              Self,
34678              To);
34679
34680         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Redefines_Label =>
34681            AMF.Internals.Links.Create_Link
34682             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Redefines_Label_Model_Element_Uml_Diagram_Element,
34683              Self,
34684              To);
34685
34686         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Shape =>
34687            AMF.Internals.Links.Create_Link
34688             (AMF.Internals.Tables.DI_Metamodel.MA_DI_Diagram_Element_Model_Element_Diagram_Element,
34689              Self,
34690              To);
34691
34692         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_State_Machine_Diagram =>
34693            AMF.Internals.Links.Create_Link
34694             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Behavior_Diagram_Model_Element_Uml_Diagram_Element,
34695              Self,
34696              To);
34697
34698         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_State_Shape =>
34699            AMF.Internals.Links.Create_Link
34700             (AMF.Internals.Tables.DI_Metamodel.MA_DI_Diagram_Element_Model_Element_Diagram_Element,
34701              Self,
34702              To);
34703
34704         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Stereotype_Property_Value_Label =>
34705            AMF.Internals.Links.Create_Link
34706             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Stereotype_Property_Value_Label_Model_Element_Uml_Diagram_Element,
34707              Self,
34708              To);
34709
34710         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Typed_Element_Label =>
34711            AMF.Internals.Links.Create_Link
34712             (AMF.Internals.Tables.DI_Metamodel.MA_DI_Diagram_Element_Model_Element_Diagram_Element,
34713              Self,
34714              To);
34715
34716         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Use_Case_Diagram =>
34717            AMF.Internals.Links.Create_Link
34718             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Behavior_Diagram_Model_Element_Uml_Diagram_Element,
34719              Self,
34720              To);
34721
34722         when others =>
34723            raise Program_Error;
34724      end case;
34725   end Internal_Set_Model_Element;
34726
34727   -------------------------------
34728   -- Internal_Set_Must_Isolate --
34729   -------------------------------
34730
34731   procedure Internal_Set_Must_Isolate
34732    (Self : AMF.Internals.AMF_Element;
34733     To   : Boolean)
34734   is
34735      Old : Boolean;
34736
34737   begin
34738      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (15).Boolean_Value;
34739      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (15).Boolean_Value := To;
34740
34741      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
34742       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Structured_Activity_Node_Must_Isolate, Old, To);
34743   end Internal_Set_Must_Isolate;
34744
34745   -----------------------
34746   -- Internal_Set_Name --
34747   -----------------------
34748
34749   procedure Internal_Set_Name
34750    (Self : AMF.Internals.AMF_Element;
34751     To   : Matreshka.Internals.Strings.Shared_String_Access)
34752   is
34753      Old : Matreshka.Internals.Strings.Shared_String_Access;
34754
34755   begin
34756      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (2).String_Value;
34757
34758      UML_Element_Table.Table (Self).Member (2).String_Value := To;
34759
34760      if UML_Element_Table.Table (Self).Member (2).String_Value /= null then
34761         Matreshka.Internals.Strings.Reference
34762          (UML_Element_Table.Table (Self).Member (2).String_Value);
34763      end if;
34764
34765      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
34766       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Name, Old, To);
34767
34768      if Old /= null then
34769         Matreshka.Internals.Strings.Reference (Old);
34770      end if;
34771   end Internal_Set_Name;
34772
34773   ----------------------------------
34774   -- Internal_Set_Name_Expression --
34775   ----------------------------------
34776
34777   procedure Internal_Set_Name_Expression
34778    (Self : AMF.Internals.AMF_Element;
34779     To   : AMF.Internals.AMF_Element) is
34780   begin
34781      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
34782         when AMF.Internals.Tables.UML_Types.E_UML_Abstraction =>
34783            AMF.Internals.Links.Create_Link
34784             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
34785              Self,
34786              To);
34787
34788         when AMF.Internals.Tables.UML_Types.E_UML_Accept_Call_Action =>
34789            AMF.Internals.Links.Create_Link
34790             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
34791              Self,
34792              To);
34793
34794         when AMF.Internals.Tables.UML_Types.E_UML_Accept_Event_Action =>
34795            AMF.Internals.Links.Create_Link
34796             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
34797              Self,
34798              To);
34799
34800         when AMF.Internals.Tables.UML_Types.E_UML_Action_Execution_Specification =>
34801            AMF.Internals.Links.Create_Link
34802             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
34803              Self,
34804              To);
34805
34806         when AMF.Internals.Tables.UML_Types.E_UML_Action_Input_Pin =>
34807            AMF.Internals.Links.Create_Link
34808             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
34809              Self,
34810              To);
34811
34812         when AMF.Internals.Tables.UML_Types.E_UML_Activity =>
34813            AMF.Internals.Links.Create_Link
34814             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
34815              Self,
34816              To);
34817
34818         when AMF.Internals.Tables.UML_Types.E_UML_Activity_Final_Node =>
34819            AMF.Internals.Links.Create_Link
34820             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
34821              Self,
34822              To);
34823
34824         when AMF.Internals.Tables.UML_Types.E_UML_Activity_Parameter_Node =>
34825            AMF.Internals.Links.Create_Link
34826             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
34827              Self,
34828              To);
34829
34830         when AMF.Internals.Tables.UML_Types.E_UML_Activity_Partition =>
34831            AMF.Internals.Links.Create_Link
34832             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
34833              Self,
34834              To);
34835
34836         when AMF.Internals.Tables.UML_Types.E_UML_Actor =>
34837            AMF.Internals.Links.Create_Link
34838             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
34839              Self,
34840              To);
34841
34842         when AMF.Internals.Tables.UML_Types.E_UML_Add_Structural_Feature_Value_Action =>
34843            AMF.Internals.Links.Create_Link
34844             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
34845              Self,
34846              To);
34847
34848         when AMF.Internals.Tables.UML_Types.E_UML_Add_Variable_Value_Action =>
34849            AMF.Internals.Links.Create_Link
34850             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
34851              Self,
34852              To);
34853
34854         when AMF.Internals.Tables.UML_Types.E_UML_Any_Receive_Event =>
34855            AMF.Internals.Links.Create_Link
34856             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
34857              Self,
34858              To);
34859
34860         when AMF.Internals.Tables.UML_Types.E_UML_Artifact =>
34861            AMF.Internals.Links.Create_Link
34862             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
34863              Self,
34864              To);
34865
34866         when AMF.Internals.Tables.UML_Types.E_UML_Association =>
34867            AMF.Internals.Links.Create_Link
34868             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
34869              Self,
34870              To);
34871
34872         when AMF.Internals.Tables.UML_Types.E_UML_Association_Class =>
34873            AMF.Internals.Links.Create_Link
34874             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
34875              Self,
34876              To);
34877
34878         when AMF.Internals.Tables.UML_Types.E_UML_Behavior_Execution_Specification =>
34879            AMF.Internals.Links.Create_Link
34880             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
34881              Self,
34882              To);
34883
34884         when AMF.Internals.Tables.UML_Types.E_UML_Broadcast_Signal_Action =>
34885            AMF.Internals.Links.Create_Link
34886             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
34887              Self,
34888              To);
34889
34890         when AMF.Internals.Tables.UML_Types.E_UML_Call_Behavior_Action =>
34891            AMF.Internals.Links.Create_Link
34892             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
34893              Self,
34894              To);
34895
34896         when AMF.Internals.Tables.UML_Types.E_UML_Call_Event =>
34897            AMF.Internals.Links.Create_Link
34898             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
34899              Self,
34900              To);
34901
34902         when AMF.Internals.Tables.UML_Types.E_UML_Call_Operation_Action =>
34903            AMF.Internals.Links.Create_Link
34904             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
34905              Self,
34906              To);
34907
34908         when AMF.Internals.Tables.UML_Types.E_UML_Central_Buffer_Node =>
34909            AMF.Internals.Links.Create_Link
34910             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
34911              Self,
34912              To);
34913
34914         when AMF.Internals.Tables.UML_Types.E_UML_Change_Event =>
34915            AMF.Internals.Links.Create_Link
34916             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
34917              Self,
34918              To);
34919
34920         when AMF.Internals.Tables.UML_Types.E_UML_Class =>
34921            AMF.Internals.Links.Create_Link
34922             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
34923              Self,
34924              To);
34925
34926         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Association_Action =>
34927            AMF.Internals.Links.Create_Link
34928             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
34929              Self,
34930              To);
34931
34932         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Structural_Feature_Action =>
34933            AMF.Internals.Links.Create_Link
34934             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
34935              Self,
34936              To);
34937
34938         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Variable_Action =>
34939            AMF.Internals.Links.Create_Link
34940             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
34941              Self,
34942              To);
34943
34944         when AMF.Internals.Tables.UML_Types.E_UML_Collaboration =>
34945            AMF.Internals.Links.Create_Link
34946             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
34947              Self,
34948              To);
34949
34950         when AMF.Internals.Tables.UML_Types.E_UML_Collaboration_Use =>
34951            AMF.Internals.Links.Create_Link
34952             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
34953              Self,
34954              To);
34955
34956         when AMF.Internals.Tables.UML_Types.E_UML_Combined_Fragment =>
34957            AMF.Internals.Links.Create_Link
34958             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
34959              Self,
34960              To);
34961
34962         when AMF.Internals.Tables.UML_Types.E_UML_Communication_Path =>
34963            AMF.Internals.Links.Create_Link
34964             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
34965              Self,
34966              To);
34967
34968         when AMF.Internals.Tables.UML_Types.E_UML_Component =>
34969            AMF.Internals.Links.Create_Link
34970             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
34971              Self,
34972              To);
34973
34974         when AMF.Internals.Tables.UML_Types.E_UML_Component_Realization =>
34975            AMF.Internals.Links.Create_Link
34976             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
34977              Self,
34978              To);
34979
34980         when AMF.Internals.Tables.UML_Types.E_UML_Conditional_Node =>
34981            AMF.Internals.Links.Create_Link
34982             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
34983              Self,
34984              To);
34985
34986         when AMF.Internals.Tables.UML_Types.E_UML_Connection_Point_Reference =>
34987            AMF.Internals.Links.Create_Link
34988             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
34989              Self,
34990              To);
34991
34992         when AMF.Internals.Tables.UML_Types.E_UML_Connector =>
34993            AMF.Internals.Links.Create_Link
34994             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
34995              Self,
34996              To);
34997
34998         when AMF.Internals.Tables.UML_Types.E_UML_Consider_Ignore_Fragment =>
34999            AMF.Internals.Links.Create_Link
35000             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35001              Self,
35002              To);
35003
35004         when AMF.Internals.Tables.UML_Types.E_UML_Constraint =>
35005            AMF.Internals.Links.Create_Link
35006             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35007              Self,
35008              To);
35009
35010         when AMF.Internals.Tables.UML_Types.E_UML_Continuation =>
35011            AMF.Internals.Links.Create_Link
35012             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35013              Self,
35014              To);
35015
35016         when AMF.Internals.Tables.UML_Types.E_UML_Control_Flow =>
35017            AMF.Internals.Links.Create_Link
35018             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35019              Self,
35020              To);
35021
35022         when AMF.Internals.Tables.UML_Types.E_UML_Create_Link_Action =>
35023            AMF.Internals.Links.Create_Link
35024             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35025              Self,
35026              To);
35027
35028         when AMF.Internals.Tables.UML_Types.E_UML_Create_Link_Object_Action =>
35029            AMF.Internals.Links.Create_Link
35030             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35031              Self,
35032              To);
35033
35034         when AMF.Internals.Tables.UML_Types.E_UML_Create_Object_Action =>
35035            AMF.Internals.Links.Create_Link
35036             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35037              Self,
35038              To);
35039
35040         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Activity_Diagram =>
35041            AMF.Internals.Links.Create_Link
35042             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35043              Self,
35044              To);
35045
35046         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Class_Diagram =>
35047            AMF.Internals.Links.Create_Link
35048             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35049              Self,
35050              To);
35051
35052         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Component_Diagram =>
35053            AMF.Internals.Links.Create_Link
35054             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35055              Self,
35056              To);
35057
35058         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Composite_Structure_Diagram =>
35059            AMF.Internals.Links.Create_Link
35060             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35061              Self,
35062              To);
35063
35064         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Deployment_Diagram =>
35065            AMF.Internals.Links.Create_Link
35066             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35067              Self,
35068              To);
35069
35070         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Interaction_Diagram =>
35071            AMF.Internals.Links.Create_Link
35072             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35073              Self,
35074              To);
35075
35076         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Object_Diagram =>
35077            AMF.Internals.Links.Create_Link
35078             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35079              Self,
35080              To);
35081
35082         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Package_Diagram =>
35083            AMF.Internals.Links.Create_Link
35084             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35085              Self,
35086              To);
35087
35088         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Profile_Diagram =>
35089            AMF.Internals.Links.Create_Link
35090             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35091              Self,
35092              To);
35093
35094         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_State_Machine_Diagram =>
35095            AMF.Internals.Links.Create_Link
35096             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35097              Self,
35098              To);
35099
35100         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Style =>
35101            AMF.Internals.Links.Create_Link
35102             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35103              Self,
35104              To);
35105
35106         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Use_Case_Diagram =>
35107            AMF.Internals.Links.Create_Link
35108             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35109              Self,
35110              To);
35111
35112         when AMF.Internals.Tables.UML_Types.E_UML_Data_Store_Node =>
35113            AMF.Internals.Links.Create_Link
35114             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35115              Self,
35116              To);
35117
35118         when AMF.Internals.Tables.UML_Types.E_UML_Data_Type =>
35119            AMF.Internals.Links.Create_Link
35120             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35121              Self,
35122              To);
35123
35124         when AMF.Internals.Tables.UML_Types.E_UML_Decision_Node =>
35125            AMF.Internals.Links.Create_Link
35126             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35127              Self,
35128              To);
35129
35130         when AMF.Internals.Tables.UML_Types.E_UML_Dependency =>
35131            AMF.Internals.Links.Create_Link
35132             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35133              Self,
35134              To);
35135
35136         when AMF.Internals.Tables.UML_Types.E_UML_Deployment =>
35137            AMF.Internals.Links.Create_Link
35138             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35139              Self,
35140              To);
35141
35142         when AMF.Internals.Tables.UML_Types.E_UML_Deployment_Specification =>
35143            AMF.Internals.Links.Create_Link
35144             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35145              Self,
35146              To);
35147
35148         when AMF.Internals.Tables.UML_Types.E_UML_Destroy_Link_Action =>
35149            AMF.Internals.Links.Create_Link
35150             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35151              Self,
35152              To);
35153
35154         when AMF.Internals.Tables.UML_Types.E_UML_Destroy_Object_Action =>
35155            AMF.Internals.Links.Create_Link
35156             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35157              Self,
35158              To);
35159
35160         when AMF.Internals.Tables.UML_Types.E_UML_Destruction_Occurrence_Specification =>
35161            AMF.Internals.Links.Create_Link
35162             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35163              Self,
35164              To);
35165
35166         when AMF.Internals.Tables.UML_Types.E_UML_Device =>
35167            AMF.Internals.Links.Create_Link
35168             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35169              Self,
35170              To);
35171
35172         when AMF.Internals.Tables.UML_Types.E_UML_Duration =>
35173            AMF.Internals.Links.Create_Link
35174             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35175              Self,
35176              To);
35177
35178         when AMF.Internals.Tables.UML_Types.E_UML_Duration_Constraint =>
35179            AMF.Internals.Links.Create_Link
35180             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35181              Self,
35182              To);
35183
35184         when AMF.Internals.Tables.UML_Types.E_UML_Duration_Interval =>
35185            AMF.Internals.Links.Create_Link
35186             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35187              Self,
35188              To);
35189
35190         when AMF.Internals.Tables.UML_Types.E_UML_Duration_Observation =>
35191            AMF.Internals.Links.Create_Link
35192             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35193              Self,
35194              To);
35195
35196         when AMF.Internals.Tables.UML_Types.E_UML_Enumeration =>
35197            AMF.Internals.Links.Create_Link
35198             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35199              Self,
35200              To);
35201
35202         when AMF.Internals.Tables.UML_Types.E_UML_Enumeration_Literal =>
35203            AMF.Internals.Links.Create_Link
35204             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35205              Self,
35206              To);
35207
35208         when AMF.Internals.Tables.UML_Types.E_UML_Execution_Environment =>
35209            AMF.Internals.Links.Create_Link
35210             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35211              Self,
35212              To);
35213
35214         when AMF.Internals.Tables.UML_Types.E_UML_Execution_Occurrence_Specification =>
35215            AMF.Internals.Links.Create_Link
35216             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35217              Self,
35218              To);
35219
35220         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Node =>
35221            AMF.Internals.Links.Create_Link
35222             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35223              Self,
35224              To);
35225
35226         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Region =>
35227            AMF.Internals.Links.Create_Link
35228             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35229              Self,
35230              To);
35231
35232         when AMF.Internals.Tables.UML_Types.E_UML_Expression =>
35233            AMF.Internals.Links.Create_Link
35234             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35235              Self,
35236              To);
35237
35238         when AMF.Internals.Tables.UML_Types.E_UML_Extend =>
35239            AMF.Internals.Links.Create_Link
35240             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35241              Self,
35242              To);
35243
35244         when AMF.Internals.Tables.UML_Types.E_UML_Extension =>
35245            AMF.Internals.Links.Create_Link
35246             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35247              Self,
35248              To);
35249
35250         when AMF.Internals.Tables.UML_Types.E_UML_Extension_End =>
35251            AMF.Internals.Links.Create_Link
35252             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35253              Self,
35254              To);
35255
35256         when AMF.Internals.Tables.UML_Types.E_UML_Extension_Point =>
35257            AMF.Internals.Links.Create_Link
35258             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35259              Self,
35260              To);
35261
35262         when AMF.Internals.Tables.UML_Types.E_UML_Final_State =>
35263            AMF.Internals.Links.Create_Link
35264             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35265              Self,
35266              To);
35267
35268         when AMF.Internals.Tables.UML_Types.E_UML_Flow_Final_Node =>
35269            AMF.Internals.Links.Create_Link
35270             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35271              Self,
35272              To);
35273
35274         when AMF.Internals.Tables.UML_Types.E_UML_Fork_Node =>
35275            AMF.Internals.Links.Create_Link
35276             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35277              Self,
35278              To);
35279
35280         when AMF.Internals.Tables.UML_Types.E_UML_Function_Behavior =>
35281            AMF.Internals.Links.Create_Link
35282             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35283              Self,
35284              To);
35285
35286         when AMF.Internals.Tables.UML_Types.E_UML_Gate =>
35287            AMF.Internals.Links.Create_Link
35288             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35289              Self,
35290              To);
35291
35292         when AMF.Internals.Tables.UML_Types.E_UML_General_Ordering =>
35293            AMF.Internals.Links.Create_Link
35294             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35295              Self,
35296              To);
35297
35298         when AMF.Internals.Tables.UML_Types.E_UML_Generalization_Set =>
35299            AMF.Internals.Links.Create_Link
35300             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35301              Self,
35302              To);
35303
35304         when AMF.Internals.Tables.UML_Types.E_UML_Include =>
35305            AMF.Internals.Links.Create_Link
35306             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35307              Self,
35308              To);
35309
35310         when AMF.Internals.Tables.UML_Types.E_UML_Information_Flow =>
35311            AMF.Internals.Links.Create_Link
35312             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35313              Self,
35314              To);
35315
35316         when AMF.Internals.Tables.UML_Types.E_UML_Information_Item =>
35317            AMF.Internals.Links.Create_Link
35318             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35319              Self,
35320              To);
35321
35322         when AMF.Internals.Tables.UML_Types.E_UML_Initial_Node =>
35323            AMF.Internals.Links.Create_Link
35324             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35325              Self,
35326              To);
35327
35328         when AMF.Internals.Tables.UML_Types.E_UML_Input_Pin =>
35329            AMF.Internals.Links.Create_Link
35330             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35331              Self,
35332              To);
35333
35334         when AMF.Internals.Tables.UML_Types.E_UML_Instance_Specification =>
35335            AMF.Internals.Links.Create_Link
35336             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35337              Self,
35338              To);
35339
35340         when AMF.Internals.Tables.UML_Types.E_UML_Instance_Value =>
35341            AMF.Internals.Links.Create_Link
35342             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35343              Self,
35344              To);
35345
35346         when AMF.Internals.Tables.UML_Types.E_UML_Interaction =>
35347            AMF.Internals.Links.Create_Link
35348             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35349              Self,
35350              To);
35351
35352         when AMF.Internals.Tables.UML_Types.E_UML_Interaction_Constraint =>
35353            AMF.Internals.Links.Create_Link
35354             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35355              Self,
35356              To);
35357
35358         when AMF.Internals.Tables.UML_Types.E_UML_Interaction_Operand =>
35359            AMF.Internals.Links.Create_Link
35360             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35361              Self,
35362              To);
35363
35364         when AMF.Internals.Tables.UML_Types.E_UML_Interaction_Use =>
35365            AMF.Internals.Links.Create_Link
35366             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35367              Self,
35368              To);
35369
35370         when AMF.Internals.Tables.UML_Types.E_UML_Interface =>
35371            AMF.Internals.Links.Create_Link
35372             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35373              Self,
35374              To);
35375
35376         when AMF.Internals.Tables.UML_Types.E_UML_Interface_Realization =>
35377            AMF.Internals.Links.Create_Link
35378             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35379              Self,
35380              To);
35381
35382         when AMF.Internals.Tables.UML_Types.E_UML_Interruptible_Activity_Region =>
35383            AMF.Internals.Links.Create_Link
35384             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35385              Self,
35386              To);
35387
35388         when AMF.Internals.Tables.UML_Types.E_UML_Interval =>
35389            AMF.Internals.Links.Create_Link
35390             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35391              Self,
35392              To);
35393
35394         when AMF.Internals.Tables.UML_Types.E_UML_Interval_Constraint =>
35395            AMF.Internals.Links.Create_Link
35396             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35397              Self,
35398              To);
35399
35400         when AMF.Internals.Tables.UML_Types.E_UML_Join_Node =>
35401            AMF.Internals.Links.Create_Link
35402             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35403              Self,
35404              To);
35405
35406         when AMF.Internals.Tables.UML_Types.E_UML_Lifeline =>
35407            AMF.Internals.Links.Create_Link
35408             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35409              Self,
35410              To);
35411
35412         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Boolean =>
35413            AMF.Internals.Links.Create_Link
35414             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35415              Self,
35416              To);
35417
35418         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Integer =>
35419            AMF.Internals.Links.Create_Link
35420             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35421              Self,
35422              To);
35423
35424         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Null =>
35425            AMF.Internals.Links.Create_Link
35426             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35427              Self,
35428              To);
35429
35430         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Real =>
35431            AMF.Internals.Links.Create_Link
35432             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35433              Self,
35434              To);
35435
35436         when AMF.Internals.Tables.UML_Types.E_UML_Literal_String =>
35437            AMF.Internals.Links.Create_Link
35438             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35439              Self,
35440              To);
35441
35442         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Unlimited_Natural =>
35443            AMF.Internals.Links.Create_Link
35444             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35445              Self,
35446              To);
35447
35448         when AMF.Internals.Tables.UML_Types.E_UML_Loop_Node =>
35449            AMF.Internals.Links.Create_Link
35450             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35451              Self,
35452              To);
35453
35454         when AMF.Internals.Tables.UML_Types.E_UML_Manifestation =>
35455            AMF.Internals.Links.Create_Link
35456             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35457              Self,
35458              To);
35459
35460         when AMF.Internals.Tables.UML_Types.E_UML_Merge_Node =>
35461            AMF.Internals.Links.Create_Link
35462             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35463              Self,
35464              To);
35465
35466         when AMF.Internals.Tables.UML_Types.E_UML_Message =>
35467            AMF.Internals.Links.Create_Link
35468             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35469              Self,
35470              To);
35471
35472         when AMF.Internals.Tables.UML_Types.E_UML_Message_Occurrence_Specification =>
35473            AMF.Internals.Links.Create_Link
35474             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35475              Self,
35476              To);
35477
35478         when AMF.Internals.Tables.UML_Types.E_UML_Model =>
35479            AMF.Internals.Links.Create_Link
35480             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35481              Self,
35482              To);
35483
35484         when AMF.Internals.Tables.UML_Types.E_UML_Node =>
35485            AMF.Internals.Links.Create_Link
35486             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35487              Self,
35488              To);
35489
35490         when AMF.Internals.Tables.UML_Types.E_UML_Object_Flow =>
35491            AMF.Internals.Links.Create_Link
35492             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35493              Self,
35494              To);
35495
35496         when AMF.Internals.Tables.UML_Types.E_UML_Occurrence_Specification =>
35497            AMF.Internals.Links.Create_Link
35498             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35499              Self,
35500              To);
35501
35502         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Action =>
35503            AMF.Internals.Links.Create_Link
35504             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35505              Self,
35506              To);
35507
35508         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Behavior =>
35509            AMF.Internals.Links.Create_Link
35510             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35511              Self,
35512              To);
35513
35514         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Expression =>
35515            AMF.Internals.Links.Create_Link
35516             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35517              Self,
35518              To);
35519
35520         when AMF.Internals.Tables.UML_Types.E_UML_Operation =>
35521            AMF.Internals.Links.Create_Link
35522             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35523              Self,
35524              To);
35525
35526         when AMF.Internals.Tables.UML_Types.E_UML_Output_Pin =>
35527            AMF.Internals.Links.Create_Link
35528             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35529              Self,
35530              To);
35531
35532         when AMF.Internals.Tables.UML_Types.E_UML_Package =>
35533            AMF.Internals.Links.Create_Link
35534             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35535              Self,
35536              To);
35537
35538         when AMF.Internals.Tables.UML_Types.E_UML_Parameter =>
35539            AMF.Internals.Links.Create_Link
35540             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35541              Self,
35542              To);
35543
35544         when AMF.Internals.Tables.UML_Types.E_UML_Parameter_Set =>
35545            AMF.Internals.Links.Create_Link
35546             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35547              Self,
35548              To);
35549
35550         when AMF.Internals.Tables.UML_Types.E_UML_Part_Decomposition =>
35551            AMF.Internals.Links.Create_Link
35552             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35553              Self,
35554              To);
35555
35556         when AMF.Internals.Tables.UML_Types.E_UML_Port =>
35557            AMF.Internals.Links.Create_Link
35558             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35559              Self,
35560              To);
35561
35562         when AMF.Internals.Tables.UML_Types.E_UML_Primitive_Type =>
35563            AMF.Internals.Links.Create_Link
35564             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35565              Self,
35566              To);
35567
35568         when AMF.Internals.Tables.UML_Types.E_UML_Profile =>
35569            AMF.Internals.Links.Create_Link
35570             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35571              Self,
35572              To);
35573
35574         when AMF.Internals.Tables.UML_Types.E_UML_Property =>
35575            AMF.Internals.Links.Create_Link
35576             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35577              Self,
35578              To);
35579
35580         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_State_Machine =>
35581            AMF.Internals.Links.Create_Link
35582             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35583              Self,
35584              To);
35585
35586         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_Transition =>
35587            AMF.Internals.Links.Create_Link
35588             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35589              Self,
35590              To);
35591
35592         when AMF.Internals.Tables.UML_Types.E_UML_Pseudostate =>
35593            AMF.Internals.Links.Create_Link
35594             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35595              Self,
35596              To);
35597
35598         when AMF.Internals.Tables.UML_Types.E_UML_Raise_Exception_Action =>
35599            AMF.Internals.Links.Create_Link
35600             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35601              Self,
35602              To);
35603
35604         when AMF.Internals.Tables.UML_Types.E_UML_Read_Extent_Action =>
35605            AMF.Internals.Links.Create_Link
35606             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35607              Self,
35608              To);
35609
35610         when AMF.Internals.Tables.UML_Types.E_UML_Read_Is_Classified_Object_Action =>
35611            AMF.Internals.Links.Create_Link
35612             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35613              Self,
35614              To);
35615
35616         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Action =>
35617            AMF.Internals.Links.Create_Link
35618             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35619              Self,
35620              To);
35621
35622         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Object_End_Action =>
35623            AMF.Internals.Links.Create_Link
35624             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35625              Self,
35626              To);
35627
35628         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Object_End_Qualifier_Action =>
35629            AMF.Internals.Links.Create_Link
35630             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35631              Self,
35632              To);
35633
35634         when AMF.Internals.Tables.UML_Types.E_UML_Read_Self_Action =>
35635            AMF.Internals.Links.Create_Link
35636             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35637              Self,
35638              To);
35639
35640         when AMF.Internals.Tables.UML_Types.E_UML_Read_Structural_Feature_Action =>
35641            AMF.Internals.Links.Create_Link
35642             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35643              Self,
35644              To);
35645
35646         when AMF.Internals.Tables.UML_Types.E_UML_Read_Variable_Action =>
35647            AMF.Internals.Links.Create_Link
35648             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35649              Self,
35650              To);
35651
35652         when AMF.Internals.Tables.UML_Types.E_UML_Realization =>
35653            AMF.Internals.Links.Create_Link
35654             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35655              Self,
35656              To);
35657
35658         when AMF.Internals.Tables.UML_Types.E_UML_Reception =>
35659            AMF.Internals.Links.Create_Link
35660             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35661              Self,
35662              To);
35663
35664         when AMF.Internals.Tables.UML_Types.E_UML_Reclassify_Object_Action =>
35665            AMF.Internals.Links.Create_Link
35666             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35667              Self,
35668              To);
35669
35670         when AMF.Internals.Tables.UML_Types.E_UML_Redefinable_Template_Signature =>
35671            AMF.Internals.Links.Create_Link
35672             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35673              Self,
35674              To);
35675
35676         when AMF.Internals.Tables.UML_Types.E_UML_Reduce_Action =>
35677            AMF.Internals.Links.Create_Link
35678             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35679              Self,
35680              To);
35681
35682         when AMF.Internals.Tables.UML_Types.E_UML_Region =>
35683            AMF.Internals.Links.Create_Link
35684             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35685              Self,
35686              To);
35687
35688         when AMF.Internals.Tables.UML_Types.E_UML_Remove_Structural_Feature_Value_Action =>
35689            AMF.Internals.Links.Create_Link
35690             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35691              Self,
35692              To);
35693
35694         when AMF.Internals.Tables.UML_Types.E_UML_Remove_Variable_Value_Action =>
35695            AMF.Internals.Links.Create_Link
35696             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35697              Self,
35698              To);
35699
35700         when AMF.Internals.Tables.UML_Types.E_UML_Reply_Action =>
35701            AMF.Internals.Links.Create_Link
35702             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35703              Self,
35704              To);
35705
35706         when AMF.Internals.Tables.UML_Types.E_UML_Send_Object_Action =>
35707            AMF.Internals.Links.Create_Link
35708             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35709              Self,
35710              To);
35711
35712         when AMF.Internals.Tables.UML_Types.E_UML_Send_Signal_Action =>
35713            AMF.Internals.Links.Create_Link
35714             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35715              Self,
35716              To);
35717
35718         when AMF.Internals.Tables.UML_Types.E_UML_Sequence_Node =>
35719            AMF.Internals.Links.Create_Link
35720             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35721              Self,
35722              To);
35723
35724         when AMF.Internals.Tables.UML_Types.E_UML_Signal =>
35725            AMF.Internals.Links.Create_Link
35726             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35727              Self,
35728              To);
35729
35730         when AMF.Internals.Tables.UML_Types.E_UML_Signal_Event =>
35731            AMF.Internals.Links.Create_Link
35732             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35733              Self,
35734              To);
35735
35736         when AMF.Internals.Tables.UML_Types.E_UML_Start_Classifier_Behavior_Action =>
35737            AMF.Internals.Links.Create_Link
35738             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35739              Self,
35740              To);
35741
35742         when AMF.Internals.Tables.UML_Types.E_UML_Start_Object_Behavior_Action =>
35743            AMF.Internals.Links.Create_Link
35744             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35745              Self,
35746              To);
35747
35748         when AMF.Internals.Tables.UML_Types.E_UML_State =>
35749            AMF.Internals.Links.Create_Link
35750             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35751              Self,
35752              To);
35753
35754         when AMF.Internals.Tables.UML_Types.E_UML_State_Invariant =>
35755            AMF.Internals.Links.Create_Link
35756             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35757              Self,
35758              To);
35759
35760         when AMF.Internals.Tables.UML_Types.E_UML_State_Machine =>
35761            AMF.Internals.Links.Create_Link
35762             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35763              Self,
35764              To);
35765
35766         when AMF.Internals.Tables.UML_Types.E_UML_Stereotype =>
35767            AMF.Internals.Links.Create_Link
35768             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35769              Self,
35770              To);
35771
35772         when AMF.Internals.Tables.UML_Types.E_UML_String_Expression =>
35773            AMF.Internals.Links.Create_Link
35774             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35775              Self,
35776              To);
35777
35778         when AMF.Internals.Tables.UML_Types.E_UML_Structured_Activity_Node =>
35779            AMF.Internals.Links.Create_Link
35780             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35781              Self,
35782              To);
35783
35784         when AMF.Internals.Tables.UML_Types.E_UML_Substitution =>
35785            AMF.Internals.Links.Create_Link
35786             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35787              Self,
35788              To);
35789
35790         when AMF.Internals.Tables.UML_Types.E_UML_Test_Identity_Action =>
35791            AMF.Internals.Links.Create_Link
35792             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35793              Self,
35794              To);
35795
35796         when AMF.Internals.Tables.UML_Types.E_UML_Time_Constraint =>
35797            AMF.Internals.Links.Create_Link
35798             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35799              Self,
35800              To);
35801
35802         when AMF.Internals.Tables.UML_Types.E_UML_Time_Event =>
35803            AMF.Internals.Links.Create_Link
35804             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35805              Self,
35806              To);
35807
35808         when AMF.Internals.Tables.UML_Types.E_UML_Time_Expression =>
35809            AMF.Internals.Links.Create_Link
35810             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35811              Self,
35812              To);
35813
35814         when AMF.Internals.Tables.UML_Types.E_UML_Time_Interval =>
35815            AMF.Internals.Links.Create_Link
35816             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35817              Self,
35818              To);
35819
35820         when AMF.Internals.Tables.UML_Types.E_UML_Time_Observation =>
35821            AMF.Internals.Links.Create_Link
35822             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35823              Self,
35824              To);
35825
35826         when AMF.Internals.Tables.UML_Types.E_UML_Transition =>
35827            AMF.Internals.Links.Create_Link
35828             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35829              Self,
35830              To);
35831
35832         when AMF.Internals.Tables.UML_Types.E_UML_Trigger =>
35833            AMF.Internals.Links.Create_Link
35834             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35835              Self,
35836              To);
35837
35838         when AMF.Internals.Tables.UML_Types.E_UML_Unmarshall_Action =>
35839            AMF.Internals.Links.Create_Link
35840             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35841              Self,
35842              To);
35843
35844         when AMF.Internals.Tables.UML_Types.E_UML_Usage =>
35845            AMF.Internals.Links.Create_Link
35846             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35847              Self,
35848              To);
35849
35850         when AMF.Internals.Tables.UML_Types.E_UML_Use_Case =>
35851            AMF.Internals.Links.Create_Link
35852             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35853              Self,
35854              To);
35855
35856         when AMF.Internals.Tables.UML_Types.E_UML_Value_Pin =>
35857            AMF.Internals.Links.Create_Link
35858             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35859              Self,
35860              To);
35861
35862         when AMF.Internals.Tables.UML_Types.E_UML_Value_Specification_Action =>
35863            AMF.Internals.Links.Create_Link
35864             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35865              Self,
35866              To);
35867
35868         when AMF.Internals.Tables.UML_Types.E_UML_Variable =>
35869            AMF.Internals.Links.Create_Link
35870             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Named_Element_Name_Expression_Named_Element,
35871              Self,
35872              To);
35873
35874         when others =>
35875            raise Program_Error;
35876      end case;
35877   end Internal_Set_Name_Expression;
35878
35879   ----------------------------------------
35880   -- Internal_Set_Navigability_Notation --
35881   ----------------------------------------
35882
35883   procedure Internal_Set_Navigability_Notation
35884    (Self : AMF.Internals.AMF_Element;
35885     To   : AMF.UMLDI.UMLDI_UML_Navigability_Notation_Kind)
35886   is
35887      Old : AMF.UMLDI.UMLDI_UML_Navigability_Notation_Kind;
35888
35889   begin
35890      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (24).UML_Navigability_Notation_Kind_Value;
35891      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (24).UML_Navigability_Notation_Kind_Value := To;
35892
35893      AMF.Internals.Tables.UMLDI_Notification.Notify_Attribute_Set
35894       (Self, AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Class_Or_Composite_Structure_Diagram_Navigability_Notation, Old, To);
35895   end Internal_Set_Navigability_Notation;
35896
35897   ----------------------------------
35898   -- Internal_Set_Nesting_Package --
35899   ----------------------------------
35900
35901   procedure Internal_Set_Nesting_Package
35902    (Self : AMF.Internals.AMF_Element;
35903     To   : AMF.Internals.AMF_Element) is
35904   begin
35905      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
35906         when AMF.Internals.Tables.UML_Types.E_UML_Model =>
35907            AMF.Internals.Links.Create_Link
35908             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Package_Nested_Package_Nesting_Package,
35909              To,
35910              Self);
35911
35912         when AMF.Internals.Tables.UML_Types.E_UML_Package =>
35913            AMF.Internals.Links.Create_Link
35914             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Package_Nested_Package_Nesting_Package,
35915              To,
35916              Self);
35917
35918         when AMF.Internals.Tables.UML_Types.E_UML_Profile =>
35919            AMF.Internals.Links.Create_Link
35920             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Package_Nested_Package_Nesting_Package,
35921              To,
35922              Self);
35923
35924         when others =>
35925            raise Program_Error;
35926      end case;
35927   end Internal_Set_Nesting_Package;
35928
35929   --------------------------------------------
35930   -- Internal_Set_Non_Navigability_Notation --
35931   --------------------------------------------
35932
35933   procedure Internal_Set_Non_Navigability_Notation
35934    (Self : AMF.Internals.AMF_Element;
35935     To   : AMF.UMLDI.UMLDI_UML_Navigability_Notation_Kind)
35936   is
35937      Old : AMF.UMLDI.UMLDI_UML_Navigability_Notation_Kind;
35938
35939   begin
35940      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (25).UML_Navigability_Notation_Kind_Value;
35941      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (25).UML_Navigability_Notation_Kind_Value := To;
35942
35943      AMF.Internals.Tables.UMLDI_Notification.Notify_Attribute_Set
35944       (Self, AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Class_Or_Composite_Structure_Diagram_Non_Navigability_Notation, Old, To);
35945   end Internal_Set_Non_Navigability_Notation;
35946
35947   -------------------------
35948   -- Internal_Set_Object --
35949   -------------------------
35950
35951   procedure Internal_Set_Object
35952    (Self : AMF.Internals.AMF_Element;
35953     To   : AMF.Internals.AMF_Element) is
35954   begin
35955      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
35956         when AMF.Internals.Tables.UML_Types.E_UML_Add_Structural_Feature_Value_Action =>
35957            AMF.Internals.Links.Create_Link
35958             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Structural_Feature_Action_Object_Structural_Feature_Action,
35959              Self,
35960              To);
35961
35962         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Association_Action =>
35963            AMF.Internals.Links.Create_Link
35964             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Clear_Association_Action_Object_Clear_Association_Action,
35965              Self,
35966              To);
35967
35968         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Structural_Feature_Action =>
35969            AMF.Internals.Links.Create_Link
35970             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Structural_Feature_Action_Object_Structural_Feature_Action,
35971              Self,
35972              To);
35973
35974         when AMF.Internals.Tables.UML_Types.E_UML_Read_Is_Classified_Object_Action =>
35975            AMF.Internals.Links.Create_Link
35976             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Read_Is_Classified_Object_Action_Object_Read_Is_Classified_Object_Action,
35977              Self,
35978              To);
35979
35980         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Object_End_Action =>
35981            AMF.Internals.Links.Create_Link
35982             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Read_Link_Object_End_Action_Object_Read_Link_Object_End_Action,
35983              Self,
35984              To);
35985
35986         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Object_End_Qualifier_Action =>
35987            AMF.Internals.Links.Create_Link
35988             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Read_Link_Object_End_Qualifier_Action_Object_Read_Link_Object_End_Qualifier_Action,
35989              Self,
35990              To);
35991
35992         when AMF.Internals.Tables.UML_Types.E_UML_Read_Structural_Feature_Action =>
35993            AMF.Internals.Links.Create_Link
35994             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Structural_Feature_Action_Object_Structural_Feature_Action,
35995              Self,
35996              To);
35997
35998         when AMF.Internals.Tables.UML_Types.E_UML_Reclassify_Object_Action =>
35999            AMF.Internals.Links.Create_Link
36000             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Reclassify_Object_Action_Object_Reclassify_Object_Action,
36001              Self,
36002              To);
36003
36004         when AMF.Internals.Tables.UML_Types.E_UML_Remove_Structural_Feature_Value_Action =>
36005            AMF.Internals.Links.Create_Link
36006             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Structural_Feature_Action_Object_Structural_Feature_Action,
36007              Self,
36008              To);
36009
36010         when AMF.Internals.Tables.UML_Types.E_UML_Start_Classifier_Behavior_Action =>
36011            AMF.Internals.Links.Create_Link
36012             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Start_Classifier_Behavior_Action_Object_Start_Classifier_Behavior_Action,
36013              Self,
36014              To);
36015
36016         when AMF.Internals.Tables.UML_Types.E_UML_Start_Object_Behavior_Action =>
36017            AMF.Internals.Links.Create_Link
36018             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Start_Object_Behavior_Action_Object_Start_Object_Behavior_Action,
36019              Self,
36020              To);
36021
36022         when AMF.Internals.Tables.UML_Types.E_UML_Unmarshall_Action =>
36023            AMF.Internals.Links.Create_Link
36024             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Unmarshall_Action_Object_Unmarshall_Action,
36025              Self,
36026              To);
36027
36028         when others =>
36029            raise Program_Error;
36030      end case;
36031   end Internal_Set_Object;
36032
36033   --------------------------
36034   -- Internal_Set_On_Port --
36035   --------------------------
36036
36037   procedure Internal_Set_On_Port
36038    (Self : AMF.Internals.AMF_Element;
36039     To   : AMF.Internals.AMF_Element) is
36040   begin
36041      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
36042         when AMF.Internals.Tables.UML_Types.E_UML_Broadcast_Signal_Action =>
36043            AMF.Internals.Links.Create_Link
36044             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Invocation_Action_On_Port_Invocation_Action,
36045              Self,
36046              To);
36047
36048         when AMF.Internals.Tables.UML_Types.E_UML_Call_Behavior_Action =>
36049            AMF.Internals.Links.Create_Link
36050             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Invocation_Action_On_Port_Invocation_Action,
36051              Self,
36052              To);
36053
36054         when AMF.Internals.Tables.UML_Types.E_UML_Call_Operation_Action =>
36055            AMF.Internals.Links.Create_Link
36056             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Invocation_Action_On_Port_Invocation_Action,
36057              Self,
36058              To);
36059
36060         when AMF.Internals.Tables.UML_Types.E_UML_Send_Object_Action =>
36061            AMF.Internals.Links.Create_Link
36062             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Invocation_Action_On_Port_Invocation_Action,
36063              Self,
36064              To);
36065
36066         when AMF.Internals.Tables.UML_Types.E_UML_Send_Signal_Action =>
36067            AMF.Internals.Links.Create_Link
36068             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Invocation_Action_On_Port_Invocation_Action,
36069              Self,
36070              To);
36071
36072         when AMF.Internals.Tables.UML_Types.E_UML_Start_Object_Behavior_Action =>
36073            AMF.Internals.Links.Create_Link
36074             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Invocation_Action_On_Port_Invocation_Action,
36075              Self,
36076              To);
36077
36078         when others =>
36079            raise Program_Error;
36080      end case;
36081   end Internal_Set_On_Port;
36082
36083   ----------------------------
36084   -- Internal_Set_Operation --
36085   ----------------------------
36086
36087   procedure Internal_Set_Operation
36088    (Self : AMF.Internals.AMF_Element;
36089     To   : AMF.Internals.AMF_Element) is
36090   begin
36091      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
36092         when AMF.Internals.Tables.UML_Types.E_UML_Call_Event =>
36093            AMF.Internals.Links.Create_Link
36094             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Call_Event_Operation_Call_Event,
36095              Self,
36096              To);
36097
36098         when AMF.Internals.Tables.UML_Types.E_UML_Call_Operation_Action =>
36099            AMF.Internals.Links.Create_Link
36100             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Call_Operation_Action_Operation_Call_Operation_Action,
36101              Self,
36102              To);
36103
36104         when AMF.Internals.Tables.UML_Types.E_UML_Parameter =>
36105            AMF.Internals.Links.Create_Link
36106             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Operation_Owned_Parameter_Operation,
36107              To,
36108              Self);
36109
36110         when others =>
36111            raise Program_Error;
36112      end case;
36113   end Internal_Set_Operation;
36114
36115   ---------------------------
36116   -- Internal_Set_Opposite --
36117   ---------------------------
36118
36119   procedure Internal_Set_Opposite
36120    (Self : AMF.Internals.AMF_Element;
36121     To   : AMF.Internals.AMF_Element) is
36122   begin
36123      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
36124         when AMF.Internals.Tables.UML_Types.E_UML_Extension_End =>
36125            AMF.Internals.Links.Create_Link
36126             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Property_Opposite_Property,
36127              Self,
36128              To);
36129
36130         when AMF.Internals.Tables.UML_Types.E_UML_Port =>
36131            AMF.Internals.Links.Create_Link
36132             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Property_Opposite_Property,
36133              Self,
36134              To);
36135
36136         when AMF.Internals.Tables.UML_Types.E_UML_Property =>
36137            AMF.Internals.Links.Create_Link
36138             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Property_Opposite_Property,
36139              Self,
36140              To);
36141
36142         when others =>
36143            raise Program_Error;
36144      end case;
36145   end Internal_Set_Opposite;
36146
36147   ---------------------------
36148   -- Internal_Set_Ordering --
36149   ---------------------------
36150
36151   procedure Internal_Set_Ordering
36152    (Self : AMF.Internals.AMF_Element;
36153     To   : AMF.UML.UML_Object_Node_Ordering_Kind)
36154   is
36155      Old : AMF.UML.UML_Object_Node_Ordering_Kind;
36156
36157   begin
36158      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (18).Object_Node_Ordering_Kind_Value;
36159      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (18).Object_Node_Ordering_Kind_Value := To;
36160
36161      AMF.Internals.Tables.UML_Notification.Notify_Attribute_Set
36162       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Object_Node_Ordering, Old, To);
36163   end Internal_Set_Ordering;
36164
36165   -------------------------------
36166   -- Internal_Set_Owned_Actual --
36167   -------------------------------
36168
36169   procedure Internal_Set_Owned_Actual
36170    (Self : AMF.Internals.AMF_Element;
36171     To   : AMF.Internals.AMF_Element) is
36172   begin
36173      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
36174         when AMF.Internals.Tables.UML_Types.E_UML_Template_Parameter_Substitution =>
36175            AMF.Internals.Links.Create_Link
36176             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Substitution_Owned_Actual_Template_Parameter_Substitution,
36177              Self,
36178              To);
36179
36180         when others =>
36181            raise Program_Error;
36182      end case;
36183   end Internal_Set_Owned_Actual;
36184
36185   --------------------------------
36186   -- Internal_Set_Owned_Default --
36187   --------------------------------
36188
36189   procedure Internal_Set_Owned_Default
36190    (Self : AMF.Internals.AMF_Element;
36191     To   : AMF.Internals.AMF_Element) is
36192   begin
36193      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
36194         when AMF.Internals.Tables.UML_Types.E_UML_Classifier_Template_Parameter =>
36195            AMF.Internals.Links.Create_Link
36196             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Default_Template_Parameter,
36197              Self,
36198              To);
36199
36200         when AMF.Internals.Tables.UML_Types.E_UML_Connectable_Element_Template_Parameter =>
36201            AMF.Internals.Links.Create_Link
36202             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Default_Template_Parameter,
36203              Self,
36204              To);
36205
36206         when AMF.Internals.Tables.UML_Types.E_UML_Operation_Template_Parameter =>
36207            AMF.Internals.Links.Create_Link
36208             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Default_Template_Parameter,
36209              Self,
36210              To);
36211
36212         when AMF.Internals.Tables.UML_Types.E_UML_Template_Parameter =>
36213            AMF.Internals.Links.Create_Link
36214             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Default_Template_Parameter,
36215              Self,
36216              To);
36217
36218         when others =>
36219            raise Program_Error;
36220      end case;
36221   end Internal_Set_Owned_Default;
36222
36223   ----------------------------
36224   -- Internal_Set_Owned_End --
36225   ----------------------------
36226
36227   procedure Internal_Set_Owned_End
36228    (Self : AMF.Internals.AMF_Element;
36229     To   : AMF.Internals.AMF_Element) is
36230   begin
36231      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
36232         when AMF.Internals.Tables.UML_Types.E_UML_Extension =>
36233            AMF.Internals.Links.Create_Link
36234             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Extension_Owned_End_Extension,
36235              Self,
36236              To);
36237
36238         when others =>
36239            raise Program_Error;
36240      end case;
36241   end Internal_Set_Owned_End;
36242
36243   --------------------------------------------
36244   -- Internal_Set_Owned_Parametered_Element --
36245   --------------------------------------------
36246
36247   procedure Internal_Set_Owned_Parametered_Element
36248    (Self : AMF.Internals.AMF_Element;
36249     To   : AMF.Internals.AMF_Element) is
36250   begin
36251      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
36252         when AMF.Internals.Tables.UML_Types.E_UML_Classifier_Template_Parameter =>
36253            AMF.Internals.Links.Create_Link
36254             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
36255              Self,
36256              To);
36257
36258         when AMF.Internals.Tables.UML_Types.E_UML_Connectable_Element_Template_Parameter =>
36259            AMF.Internals.Links.Create_Link
36260             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
36261              Self,
36262              To);
36263
36264         when AMF.Internals.Tables.UML_Types.E_UML_Operation_Template_Parameter =>
36265            AMF.Internals.Links.Create_Link
36266             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
36267              Self,
36268              To);
36269
36270         when AMF.Internals.Tables.UML_Types.E_UML_Template_Parameter =>
36271            AMF.Internals.Links.Create_Link
36272             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
36273              Self,
36274              To);
36275
36276         when others =>
36277            raise Program_Error;
36278      end case;
36279   end Internal_Set_Owned_Parametered_Element;
36280
36281   -------------------------------------------
36282   -- Internal_Set_Owned_Template_Signature --
36283   -------------------------------------------
36284
36285   procedure Internal_Set_Owned_Template_Signature
36286    (Self : AMF.Internals.AMF_Element;
36287     To   : AMF.Internals.AMF_Element) is
36288   begin
36289      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
36290         when AMF.Internals.Tables.UML_Types.E_UML_Activity =>
36291            AMF.Internals.Links.Create_Link
36292             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Owned_Template_Signature_Classifier,
36293              Self,
36294              To);
36295
36296         when AMF.Internals.Tables.UML_Types.E_UML_Actor =>
36297            AMF.Internals.Links.Create_Link
36298             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Owned_Template_Signature_Classifier,
36299              Self,
36300              To);
36301
36302         when AMF.Internals.Tables.UML_Types.E_UML_Artifact =>
36303            AMF.Internals.Links.Create_Link
36304             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Owned_Template_Signature_Classifier,
36305              Self,
36306              To);
36307
36308         when AMF.Internals.Tables.UML_Types.E_UML_Association =>
36309            AMF.Internals.Links.Create_Link
36310             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Owned_Template_Signature_Classifier,
36311              Self,
36312              To);
36313
36314         when AMF.Internals.Tables.UML_Types.E_UML_Association_Class =>
36315            AMF.Internals.Links.Create_Link
36316             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Owned_Template_Signature_Classifier,
36317              Self,
36318              To);
36319
36320         when AMF.Internals.Tables.UML_Types.E_UML_Class =>
36321            AMF.Internals.Links.Create_Link
36322             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Owned_Template_Signature_Classifier,
36323              Self,
36324              To);
36325
36326         when AMF.Internals.Tables.UML_Types.E_UML_Collaboration =>
36327            AMF.Internals.Links.Create_Link
36328             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Owned_Template_Signature_Classifier,
36329              Self,
36330              To);
36331
36332         when AMF.Internals.Tables.UML_Types.E_UML_Communication_Path =>
36333            AMF.Internals.Links.Create_Link
36334             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Owned_Template_Signature_Classifier,
36335              Self,
36336              To);
36337
36338         when AMF.Internals.Tables.UML_Types.E_UML_Component =>
36339            AMF.Internals.Links.Create_Link
36340             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Owned_Template_Signature_Classifier,
36341              Self,
36342              To);
36343
36344         when AMF.Internals.Tables.UML_Types.E_UML_Data_Type =>
36345            AMF.Internals.Links.Create_Link
36346             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Owned_Template_Signature_Classifier,
36347              Self,
36348              To);
36349
36350         when AMF.Internals.Tables.UML_Types.E_UML_Deployment_Specification =>
36351            AMF.Internals.Links.Create_Link
36352             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Owned_Template_Signature_Classifier,
36353              Self,
36354              To);
36355
36356         when AMF.Internals.Tables.UML_Types.E_UML_Device =>
36357            AMF.Internals.Links.Create_Link
36358             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Owned_Template_Signature_Classifier,
36359              Self,
36360              To);
36361
36362         when AMF.Internals.Tables.UML_Types.E_UML_Enumeration =>
36363            AMF.Internals.Links.Create_Link
36364             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Owned_Template_Signature_Classifier,
36365              Self,
36366              To);
36367
36368         when AMF.Internals.Tables.UML_Types.E_UML_Execution_Environment =>
36369            AMF.Internals.Links.Create_Link
36370             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Owned_Template_Signature_Classifier,
36371              Self,
36372              To);
36373
36374         when AMF.Internals.Tables.UML_Types.E_UML_Extension =>
36375            AMF.Internals.Links.Create_Link
36376             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Owned_Template_Signature_Classifier,
36377              Self,
36378              To);
36379
36380         when AMF.Internals.Tables.UML_Types.E_UML_Function_Behavior =>
36381            AMF.Internals.Links.Create_Link
36382             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Owned_Template_Signature_Classifier,
36383              Self,
36384              To);
36385
36386         when AMF.Internals.Tables.UML_Types.E_UML_Information_Item =>
36387            AMF.Internals.Links.Create_Link
36388             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Owned_Template_Signature_Classifier,
36389              Self,
36390              To);
36391
36392         when AMF.Internals.Tables.UML_Types.E_UML_Interaction =>
36393            AMF.Internals.Links.Create_Link
36394             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Owned_Template_Signature_Classifier,
36395              Self,
36396              To);
36397
36398         when AMF.Internals.Tables.UML_Types.E_UML_Interface =>
36399            AMF.Internals.Links.Create_Link
36400             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Owned_Template_Signature_Classifier,
36401              Self,
36402              To);
36403
36404         when AMF.Internals.Tables.UML_Types.E_UML_Model =>
36405            AMF.Internals.Links.Create_Link
36406             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Templateable_Element_Owned_Template_Signature_Template,
36407              Self,
36408              To);
36409
36410         when AMF.Internals.Tables.UML_Types.E_UML_Node =>
36411            AMF.Internals.Links.Create_Link
36412             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Owned_Template_Signature_Classifier,
36413              Self,
36414              To);
36415
36416         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Behavior =>
36417            AMF.Internals.Links.Create_Link
36418             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Owned_Template_Signature_Classifier,
36419              Self,
36420              To);
36421
36422         when AMF.Internals.Tables.UML_Types.E_UML_Operation =>
36423            AMF.Internals.Links.Create_Link
36424             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Templateable_Element_Owned_Template_Signature_Template,
36425              Self,
36426              To);
36427
36428         when AMF.Internals.Tables.UML_Types.E_UML_Package =>
36429            AMF.Internals.Links.Create_Link
36430             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Templateable_Element_Owned_Template_Signature_Template,
36431              Self,
36432              To);
36433
36434         when AMF.Internals.Tables.UML_Types.E_UML_Primitive_Type =>
36435            AMF.Internals.Links.Create_Link
36436             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Owned_Template_Signature_Classifier,
36437              Self,
36438              To);
36439
36440         when AMF.Internals.Tables.UML_Types.E_UML_Profile =>
36441            AMF.Internals.Links.Create_Link
36442             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Templateable_Element_Owned_Template_Signature_Template,
36443              Self,
36444              To);
36445
36446         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_State_Machine =>
36447            AMF.Internals.Links.Create_Link
36448             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Owned_Template_Signature_Classifier,
36449              Self,
36450              To);
36451
36452         when AMF.Internals.Tables.UML_Types.E_UML_Signal =>
36453            AMF.Internals.Links.Create_Link
36454             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Owned_Template_Signature_Classifier,
36455              Self,
36456              To);
36457
36458         when AMF.Internals.Tables.UML_Types.E_UML_State_Machine =>
36459            AMF.Internals.Links.Create_Link
36460             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Owned_Template_Signature_Classifier,
36461              Self,
36462              To);
36463
36464         when AMF.Internals.Tables.UML_Types.E_UML_Stereotype =>
36465            AMF.Internals.Links.Create_Link
36466             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Owned_Template_Signature_Classifier,
36467              Self,
36468              To);
36469
36470         when AMF.Internals.Tables.UML_Types.E_UML_String_Expression =>
36471            AMF.Internals.Links.Create_Link
36472             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Templateable_Element_Owned_Template_Signature_Template,
36473              Self,
36474              To);
36475
36476         when AMF.Internals.Tables.UML_Types.E_UML_Use_Case =>
36477            AMF.Internals.Links.Create_Link
36478             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Owned_Template_Signature_Classifier,
36479              Self,
36480              To);
36481
36482         when others =>
36483            raise Program_Error;
36484      end case;
36485   end Internal_Set_Owned_Template_Signature;
36486
36487   -------------------------------------
36488   -- Internal_Set_Owning_Association --
36489   -------------------------------------
36490
36491   procedure Internal_Set_Owning_Association
36492    (Self : AMF.Internals.AMF_Element;
36493     To   : AMF.Internals.AMF_Element) is
36494   begin
36495      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
36496         when AMF.Internals.Tables.UML_Types.E_UML_Extension_End =>
36497            AMF.Internals.Links.Create_Link
36498             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Association_Owned_End_Owning_Association,
36499              To,
36500              Self);
36501
36502         when AMF.Internals.Tables.UML_Types.E_UML_Port =>
36503            AMF.Internals.Links.Create_Link
36504             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Association_Owned_End_Owning_Association,
36505              To,
36506              Self);
36507
36508         when AMF.Internals.Tables.UML_Types.E_UML_Property =>
36509            AMF.Internals.Links.Create_Link
36510             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Association_Owned_End_Owning_Association,
36511              To,
36512              Self);
36513
36514         when others =>
36515            raise Program_Error;
36516      end case;
36517   end Internal_Set_Owning_Association;
36518
36519   ---------------------------------
36520   -- Internal_Set_Owning_Element --
36521   ---------------------------------
36522
36523   procedure Internal_Set_Owning_Element
36524    (Self : AMF.Internals.AMF_Element;
36525     To   : AMF.Internals.AMF_Element) is
36526   begin
36527      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
36528         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Activity_Diagram =>
36529            AMF.Internals.Links.Create_Link
36530             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Owned_Element_Owning_Element,
36531              To,
36532              Self);
36533
36534         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Association_End_Label =>
36535            AMF.Internals.Links.Create_Link
36536             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Owned_Element_Owning_Element,
36537              To,
36538              Self);
36539
36540         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Association_Or_Connector_Or_Link_Shape =>
36541            AMF.Internals.Links.Create_Link
36542             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Owned_Element_Owning_Element,
36543              To,
36544              Self);
36545
36546         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Class_Diagram =>
36547            AMF.Internals.Links.Create_Link
36548             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Owned_Element_Owning_Element,
36549              To,
36550              Self);
36551
36552         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Classifier_Shape =>
36553            AMF.Internals.Links.Create_Link
36554             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Owned_Element_Owning_Element,
36555              To,
36556              Self);
36557
36558         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Compartment =>
36559            AMF.Internals.Links.Create_Link
36560             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Owned_Element_Owning_Element,
36561              To,
36562              Self);
36563
36564         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Compartmentable_Shape =>
36565            AMF.Internals.Links.Create_Link
36566             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Owned_Element_Owning_Element,
36567              To,
36568              Self);
36569
36570         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Component_Diagram =>
36571            AMF.Internals.Links.Create_Link
36572             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Owned_Element_Owning_Element,
36573              To,
36574              Self);
36575
36576         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Composite_Structure_Diagram =>
36577            AMF.Internals.Links.Create_Link
36578             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Owned_Element_Owning_Element,
36579              To,
36580              Self);
36581
36582         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Deployment_Diagram =>
36583            AMF.Internals.Links.Create_Link
36584             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Owned_Element_Owning_Element,
36585              To,
36586              Self);
36587
36588         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Edge =>
36589            AMF.Internals.Links.Create_Link
36590             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Owned_Element_Owning_Element,
36591              To,
36592              Self);
36593
36594         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Interaction_Diagram =>
36595            AMF.Internals.Links.Create_Link
36596             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Owned_Element_Owning_Element,
36597              To,
36598              Self);
36599
36600         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Interaction_Table_Label =>
36601            AMF.Internals.Links.Create_Link
36602             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Owned_Element_Owning_Element,
36603              To,
36604              Self);
36605
36606         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Keyword_Label =>
36607            AMF.Internals.Links.Create_Link
36608             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Owned_Element_Owning_Element,
36609              To,
36610              Self);
36611
36612         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Label =>
36613            AMF.Internals.Links.Create_Link
36614             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Owned_Element_Owning_Element,
36615              To,
36616              Self);
36617
36618         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Multiplicity_Label =>
36619            AMF.Internals.Links.Create_Link
36620             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Owned_Element_Owning_Element,
36621              To,
36622              Self);
36623
36624         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Name_Label =>
36625            AMF.Internals.Links.Create_Link
36626             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Owned_Element_Owning_Element,
36627              To,
36628              Self);
36629
36630         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Object_Diagram =>
36631            AMF.Internals.Links.Create_Link
36632             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Owned_Element_Owning_Element,
36633              To,
36634              Self);
36635
36636         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Package_Diagram =>
36637            AMF.Internals.Links.Create_Link
36638             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Owned_Element_Owning_Element,
36639              To,
36640              Self);
36641
36642         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Profile_Diagram =>
36643            AMF.Internals.Links.Create_Link
36644             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Owned_Element_Owning_Element,
36645              To,
36646              Self);
36647
36648         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Redefines_Label =>
36649            AMF.Internals.Links.Create_Link
36650             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Owned_Element_Owning_Element,
36651              To,
36652              Self);
36653
36654         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Shape =>
36655            AMF.Internals.Links.Create_Link
36656             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Owned_Element_Owning_Element,
36657              To,
36658              Self);
36659
36660         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_State_Machine_Diagram =>
36661            AMF.Internals.Links.Create_Link
36662             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Owned_Element_Owning_Element,
36663              To,
36664              Self);
36665
36666         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_State_Shape =>
36667            AMF.Internals.Links.Create_Link
36668             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Owned_Element_Owning_Element,
36669              To,
36670              Self);
36671
36672         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Stereotype_Property_Value_Label =>
36673            AMF.Internals.Links.Create_Link
36674             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Owned_Element_Owning_Element,
36675              To,
36676              Self);
36677
36678         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Typed_Element_Label =>
36679            AMF.Internals.Links.Create_Link
36680             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Owned_Element_Owning_Element,
36681              To,
36682              Self);
36683
36684         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Use_Case_Diagram =>
36685            AMF.Internals.Links.Create_Link
36686             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Owned_Element_Owning_Element,
36687              To,
36688              Self);
36689
36690         when others =>
36691            raise Program_Error;
36692      end case;
36693   end Internal_Set_Owning_Element;
36694
36695   ------------------------------------
36696   -- Internal_Set_Owning_Expression --
36697   ------------------------------------
36698
36699   procedure Internal_Set_Owning_Expression
36700    (Self : AMF.Internals.AMF_Element;
36701     To   : AMF.Internals.AMF_Element) is
36702   begin
36703      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
36704         when AMF.Internals.Tables.UML_Types.E_UML_String_Expression =>
36705            AMF.Internals.Links.Create_Link
36706             (AMF.Internals.Tables.UML_Metamodel.MA_UML_String_Expression_Sub_Expression_Owning_Expression,
36707              To,
36708              Self);
36709
36710         when others =>
36711            raise Program_Error;
36712      end case;
36713   end Internal_Set_Owning_Expression;
36714
36715   ----------------------------------
36716   -- Internal_Set_Owning_Instance --
36717   ----------------------------------
36718
36719   procedure Internal_Set_Owning_Instance
36720    (Self : AMF.Internals.AMF_Element;
36721     To   : AMF.Internals.AMF_Element) is
36722   begin
36723      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
36724         when AMF.Internals.Tables.UML_Types.E_UML_Slot =>
36725            AMF.Internals.Links.Create_Link
36726             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Instance_Specification_Slot_Owning_Instance,
36727              To,
36728              Self);
36729
36730         when others =>
36731            raise Program_Error;
36732      end case;
36733   end Internal_Set_Owning_Instance;
36734
36735   --------------------------------------------
36736   -- Internal_Set_Owning_Template_Parameter --
36737   --------------------------------------------
36738
36739   procedure Internal_Set_Owning_Template_Parameter
36740    (Self : AMF.Internals.AMF_Element;
36741     To   : AMF.Internals.AMF_Element) is
36742   begin
36743      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
36744         when AMF.Internals.Tables.UML_Types.E_UML_Abstraction =>
36745            AMF.Internals.Links.Create_Link
36746             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
36747              To,
36748              Self);
36749
36750         when AMF.Internals.Tables.UML_Types.E_UML_Activity =>
36751            AMF.Internals.Links.Create_Link
36752             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
36753              To,
36754              Self);
36755
36756         when AMF.Internals.Tables.UML_Types.E_UML_Actor =>
36757            AMF.Internals.Links.Create_Link
36758             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
36759              To,
36760              Self);
36761
36762         when AMF.Internals.Tables.UML_Types.E_UML_Any_Receive_Event =>
36763            AMF.Internals.Links.Create_Link
36764             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
36765              To,
36766              Self);
36767
36768         when AMF.Internals.Tables.UML_Types.E_UML_Artifact =>
36769            AMF.Internals.Links.Create_Link
36770             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
36771              To,
36772              Self);
36773
36774         when AMF.Internals.Tables.UML_Types.E_UML_Association =>
36775            AMF.Internals.Links.Create_Link
36776             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
36777              To,
36778              Self);
36779
36780         when AMF.Internals.Tables.UML_Types.E_UML_Association_Class =>
36781            AMF.Internals.Links.Create_Link
36782             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
36783              To,
36784              Self);
36785
36786         when AMF.Internals.Tables.UML_Types.E_UML_Call_Event =>
36787            AMF.Internals.Links.Create_Link
36788             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
36789              To,
36790              Self);
36791
36792         when AMF.Internals.Tables.UML_Types.E_UML_Change_Event =>
36793            AMF.Internals.Links.Create_Link
36794             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
36795              To,
36796              Self);
36797
36798         when AMF.Internals.Tables.UML_Types.E_UML_Class =>
36799            AMF.Internals.Links.Create_Link
36800             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
36801              To,
36802              Self);
36803
36804         when AMF.Internals.Tables.UML_Types.E_UML_Collaboration =>
36805            AMF.Internals.Links.Create_Link
36806             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
36807              To,
36808              Self);
36809
36810         when AMF.Internals.Tables.UML_Types.E_UML_Communication_Path =>
36811            AMF.Internals.Links.Create_Link
36812             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
36813              To,
36814              Self);
36815
36816         when AMF.Internals.Tables.UML_Types.E_UML_Component =>
36817            AMF.Internals.Links.Create_Link
36818             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
36819              To,
36820              Self);
36821
36822         when AMF.Internals.Tables.UML_Types.E_UML_Component_Realization =>
36823            AMF.Internals.Links.Create_Link
36824             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
36825              To,
36826              Self);
36827
36828         when AMF.Internals.Tables.UML_Types.E_UML_Constraint =>
36829            AMF.Internals.Links.Create_Link
36830             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
36831              To,
36832              Self);
36833
36834         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Activity_Diagram =>
36835            AMF.Internals.Links.Create_Link
36836             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
36837              To,
36838              Self);
36839
36840         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Class_Diagram =>
36841            AMF.Internals.Links.Create_Link
36842             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
36843              To,
36844              Self);
36845
36846         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Component_Diagram =>
36847            AMF.Internals.Links.Create_Link
36848             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
36849              To,
36850              Self);
36851
36852         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Composite_Structure_Diagram =>
36853            AMF.Internals.Links.Create_Link
36854             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
36855              To,
36856              Self);
36857
36858         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Deployment_Diagram =>
36859            AMF.Internals.Links.Create_Link
36860             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
36861              To,
36862              Self);
36863
36864         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Interaction_Diagram =>
36865            AMF.Internals.Links.Create_Link
36866             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
36867              To,
36868              Self);
36869
36870         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Object_Diagram =>
36871            AMF.Internals.Links.Create_Link
36872             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
36873              To,
36874              Self);
36875
36876         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Package_Diagram =>
36877            AMF.Internals.Links.Create_Link
36878             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
36879              To,
36880              Self);
36881
36882         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Profile_Diagram =>
36883            AMF.Internals.Links.Create_Link
36884             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
36885              To,
36886              Self);
36887
36888         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_State_Machine_Diagram =>
36889            AMF.Internals.Links.Create_Link
36890             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
36891              To,
36892              Self);
36893
36894         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Style =>
36895            AMF.Internals.Links.Create_Link
36896             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
36897              To,
36898              Self);
36899
36900         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Use_Case_Diagram =>
36901            AMF.Internals.Links.Create_Link
36902             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
36903              To,
36904              Self);
36905
36906         when AMF.Internals.Tables.UML_Types.E_UML_Data_Type =>
36907            AMF.Internals.Links.Create_Link
36908             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
36909              To,
36910              Self);
36911
36912         when AMF.Internals.Tables.UML_Types.E_UML_Dependency =>
36913            AMF.Internals.Links.Create_Link
36914             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
36915              To,
36916              Self);
36917
36918         when AMF.Internals.Tables.UML_Types.E_UML_Deployment =>
36919            AMF.Internals.Links.Create_Link
36920             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
36921              To,
36922              Self);
36923
36924         when AMF.Internals.Tables.UML_Types.E_UML_Deployment_Specification =>
36925            AMF.Internals.Links.Create_Link
36926             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
36927              To,
36928              Self);
36929
36930         when AMF.Internals.Tables.UML_Types.E_UML_Device =>
36931            AMF.Internals.Links.Create_Link
36932             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
36933              To,
36934              Self);
36935
36936         when AMF.Internals.Tables.UML_Types.E_UML_Duration =>
36937            AMF.Internals.Links.Create_Link
36938             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
36939              To,
36940              Self);
36941
36942         when AMF.Internals.Tables.UML_Types.E_UML_Duration_Constraint =>
36943            AMF.Internals.Links.Create_Link
36944             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
36945              To,
36946              Self);
36947
36948         when AMF.Internals.Tables.UML_Types.E_UML_Duration_Interval =>
36949            AMF.Internals.Links.Create_Link
36950             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
36951              To,
36952              Self);
36953
36954         when AMF.Internals.Tables.UML_Types.E_UML_Duration_Observation =>
36955            AMF.Internals.Links.Create_Link
36956             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
36957              To,
36958              Self);
36959
36960         when AMF.Internals.Tables.UML_Types.E_UML_Enumeration =>
36961            AMF.Internals.Links.Create_Link
36962             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
36963              To,
36964              Self);
36965
36966         when AMF.Internals.Tables.UML_Types.E_UML_Enumeration_Literal =>
36967            AMF.Internals.Links.Create_Link
36968             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
36969              To,
36970              Self);
36971
36972         when AMF.Internals.Tables.UML_Types.E_UML_Execution_Environment =>
36973            AMF.Internals.Links.Create_Link
36974             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
36975              To,
36976              Self);
36977
36978         when AMF.Internals.Tables.UML_Types.E_UML_Expression =>
36979            AMF.Internals.Links.Create_Link
36980             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
36981              To,
36982              Self);
36983
36984         when AMF.Internals.Tables.UML_Types.E_UML_Extension =>
36985            AMF.Internals.Links.Create_Link
36986             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
36987              To,
36988              Self);
36989
36990         when AMF.Internals.Tables.UML_Types.E_UML_Extension_End =>
36991            AMF.Internals.Links.Create_Link
36992             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
36993              To,
36994              Self);
36995
36996         when AMF.Internals.Tables.UML_Types.E_UML_Function_Behavior =>
36997            AMF.Internals.Links.Create_Link
36998             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
36999              To,
37000              Self);
37001
37002         when AMF.Internals.Tables.UML_Types.E_UML_Generalization_Set =>
37003            AMF.Internals.Links.Create_Link
37004             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
37005              To,
37006              Self);
37007
37008         when AMF.Internals.Tables.UML_Types.E_UML_Information_Flow =>
37009            AMF.Internals.Links.Create_Link
37010             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
37011              To,
37012              Self);
37013
37014         when AMF.Internals.Tables.UML_Types.E_UML_Information_Item =>
37015            AMF.Internals.Links.Create_Link
37016             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
37017              To,
37018              Self);
37019
37020         when AMF.Internals.Tables.UML_Types.E_UML_Instance_Specification =>
37021            AMF.Internals.Links.Create_Link
37022             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
37023              To,
37024              Self);
37025
37026         when AMF.Internals.Tables.UML_Types.E_UML_Instance_Value =>
37027            AMF.Internals.Links.Create_Link
37028             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
37029              To,
37030              Self);
37031
37032         when AMF.Internals.Tables.UML_Types.E_UML_Interaction =>
37033            AMF.Internals.Links.Create_Link
37034             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
37035              To,
37036              Self);
37037
37038         when AMF.Internals.Tables.UML_Types.E_UML_Interaction_Constraint =>
37039            AMF.Internals.Links.Create_Link
37040             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
37041              To,
37042              Self);
37043
37044         when AMF.Internals.Tables.UML_Types.E_UML_Interface =>
37045            AMF.Internals.Links.Create_Link
37046             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
37047              To,
37048              Self);
37049
37050         when AMF.Internals.Tables.UML_Types.E_UML_Interface_Realization =>
37051            AMF.Internals.Links.Create_Link
37052             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
37053              To,
37054              Self);
37055
37056         when AMF.Internals.Tables.UML_Types.E_UML_Interval =>
37057            AMF.Internals.Links.Create_Link
37058             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
37059              To,
37060              Self);
37061
37062         when AMF.Internals.Tables.UML_Types.E_UML_Interval_Constraint =>
37063            AMF.Internals.Links.Create_Link
37064             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
37065              To,
37066              Self);
37067
37068         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Boolean =>
37069            AMF.Internals.Links.Create_Link
37070             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
37071              To,
37072              Self);
37073
37074         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Integer =>
37075            AMF.Internals.Links.Create_Link
37076             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
37077              To,
37078              Self);
37079
37080         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Null =>
37081            AMF.Internals.Links.Create_Link
37082             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
37083              To,
37084              Self);
37085
37086         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Real =>
37087            AMF.Internals.Links.Create_Link
37088             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
37089              To,
37090              Self);
37091
37092         when AMF.Internals.Tables.UML_Types.E_UML_Literal_String =>
37093            AMF.Internals.Links.Create_Link
37094             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
37095              To,
37096              Self);
37097
37098         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Unlimited_Natural =>
37099            AMF.Internals.Links.Create_Link
37100             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
37101              To,
37102              Self);
37103
37104         when AMF.Internals.Tables.UML_Types.E_UML_Manifestation =>
37105            AMF.Internals.Links.Create_Link
37106             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
37107              To,
37108              Self);
37109
37110         when AMF.Internals.Tables.UML_Types.E_UML_Model =>
37111            AMF.Internals.Links.Create_Link
37112             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
37113              To,
37114              Self);
37115
37116         when AMF.Internals.Tables.UML_Types.E_UML_Node =>
37117            AMF.Internals.Links.Create_Link
37118             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
37119              To,
37120              Self);
37121
37122         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Behavior =>
37123            AMF.Internals.Links.Create_Link
37124             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
37125              To,
37126              Self);
37127
37128         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Expression =>
37129            AMF.Internals.Links.Create_Link
37130             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
37131              To,
37132              Self);
37133
37134         when AMF.Internals.Tables.UML_Types.E_UML_Operation =>
37135            AMF.Internals.Links.Create_Link
37136             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
37137              To,
37138              Self);
37139
37140         when AMF.Internals.Tables.UML_Types.E_UML_Package =>
37141            AMF.Internals.Links.Create_Link
37142             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
37143              To,
37144              Self);
37145
37146         when AMF.Internals.Tables.UML_Types.E_UML_Parameter =>
37147            AMF.Internals.Links.Create_Link
37148             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
37149              To,
37150              Self);
37151
37152         when AMF.Internals.Tables.UML_Types.E_UML_Port =>
37153            AMF.Internals.Links.Create_Link
37154             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
37155              To,
37156              Self);
37157
37158         when AMF.Internals.Tables.UML_Types.E_UML_Primitive_Type =>
37159            AMF.Internals.Links.Create_Link
37160             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
37161              To,
37162              Self);
37163
37164         when AMF.Internals.Tables.UML_Types.E_UML_Profile =>
37165            AMF.Internals.Links.Create_Link
37166             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
37167              To,
37168              Self);
37169
37170         when AMF.Internals.Tables.UML_Types.E_UML_Property =>
37171            AMF.Internals.Links.Create_Link
37172             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
37173              To,
37174              Self);
37175
37176         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_State_Machine =>
37177            AMF.Internals.Links.Create_Link
37178             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
37179              To,
37180              Self);
37181
37182         when AMF.Internals.Tables.UML_Types.E_UML_Realization =>
37183            AMF.Internals.Links.Create_Link
37184             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
37185              To,
37186              Self);
37187
37188         when AMF.Internals.Tables.UML_Types.E_UML_Signal =>
37189            AMF.Internals.Links.Create_Link
37190             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
37191              To,
37192              Self);
37193
37194         when AMF.Internals.Tables.UML_Types.E_UML_Signal_Event =>
37195            AMF.Internals.Links.Create_Link
37196             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
37197              To,
37198              Self);
37199
37200         when AMF.Internals.Tables.UML_Types.E_UML_State_Machine =>
37201            AMF.Internals.Links.Create_Link
37202             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
37203              To,
37204              Self);
37205
37206         when AMF.Internals.Tables.UML_Types.E_UML_Stereotype =>
37207            AMF.Internals.Links.Create_Link
37208             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
37209              To,
37210              Self);
37211
37212         when AMF.Internals.Tables.UML_Types.E_UML_String_Expression =>
37213            AMF.Internals.Links.Create_Link
37214             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
37215              To,
37216              Self);
37217
37218         when AMF.Internals.Tables.UML_Types.E_UML_Substitution =>
37219            AMF.Internals.Links.Create_Link
37220             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
37221              To,
37222              Self);
37223
37224         when AMF.Internals.Tables.UML_Types.E_UML_Time_Constraint =>
37225            AMF.Internals.Links.Create_Link
37226             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
37227              To,
37228              Self);
37229
37230         when AMF.Internals.Tables.UML_Types.E_UML_Time_Event =>
37231            AMF.Internals.Links.Create_Link
37232             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
37233              To,
37234              Self);
37235
37236         when AMF.Internals.Tables.UML_Types.E_UML_Time_Expression =>
37237            AMF.Internals.Links.Create_Link
37238             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
37239              To,
37240              Self);
37241
37242         when AMF.Internals.Tables.UML_Types.E_UML_Time_Interval =>
37243            AMF.Internals.Links.Create_Link
37244             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
37245              To,
37246              Self);
37247
37248         when AMF.Internals.Tables.UML_Types.E_UML_Time_Observation =>
37249            AMF.Internals.Links.Create_Link
37250             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
37251              To,
37252              Self);
37253
37254         when AMF.Internals.Tables.UML_Types.E_UML_Usage =>
37255            AMF.Internals.Links.Create_Link
37256             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
37257              To,
37258              Self);
37259
37260         when AMF.Internals.Tables.UML_Types.E_UML_Use_Case =>
37261            AMF.Internals.Links.Create_Link
37262             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
37263              To,
37264              Self);
37265
37266         when AMF.Internals.Tables.UML_Types.E_UML_Variable =>
37267            AMF.Internals.Links.Create_Link
37268             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Owned_Parametered_Element_Owning_Template_Parameter,
37269              To,
37270              Self);
37271
37272         when others =>
37273            raise Program_Error;
37274      end case;
37275   end Internal_Set_Owning_Template_Parameter;
37276
37277   --------------------------
37278   -- Internal_Set_Package --
37279   --------------------------
37280
37281   procedure Internal_Set_Package
37282    (Self : AMF.Internals.AMF_Element;
37283     To   : AMF.Internals.AMF_Element) is
37284   begin
37285      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
37286         when AMF.Internals.Tables.UML_Types.E_UML_Activity =>
37287            AMF.Internals.Links.Create_Link
37288             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Package_Owned_Type_Package,
37289              To,
37290              Self);
37291
37292         when AMF.Internals.Tables.UML_Types.E_UML_Actor =>
37293            AMF.Internals.Links.Create_Link
37294             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Package_Owned_Type_Package,
37295              To,
37296              Self);
37297
37298         when AMF.Internals.Tables.UML_Types.E_UML_Artifact =>
37299            AMF.Internals.Links.Create_Link
37300             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Package_Owned_Type_Package,
37301              To,
37302              Self);
37303
37304         when AMF.Internals.Tables.UML_Types.E_UML_Association =>
37305            AMF.Internals.Links.Create_Link
37306             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Package_Owned_Type_Package,
37307              To,
37308              Self);
37309
37310         when AMF.Internals.Tables.UML_Types.E_UML_Association_Class =>
37311            AMF.Internals.Links.Create_Link
37312             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Package_Owned_Type_Package,
37313              To,
37314              Self);
37315
37316         when AMF.Internals.Tables.UML_Types.E_UML_Class =>
37317            AMF.Internals.Links.Create_Link
37318             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Package_Owned_Type_Package,
37319              To,
37320              Self);
37321
37322         when AMF.Internals.Tables.UML_Types.E_UML_Collaboration =>
37323            AMF.Internals.Links.Create_Link
37324             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Package_Owned_Type_Package,
37325              To,
37326              Self);
37327
37328         when AMF.Internals.Tables.UML_Types.E_UML_Communication_Path =>
37329            AMF.Internals.Links.Create_Link
37330             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Package_Owned_Type_Package,
37331              To,
37332              Self);
37333
37334         when AMF.Internals.Tables.UML_Types.E_UML_Component =>
37335            AMF.Internals.Links.Create_Link
37336             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Package_Owned_Type_Package,
37337              To,
37338              Self);
37339
37340         when AMF.Internals.Tables.UML_Types.E_UML_Data_Type =>
37341            AMF.Internals.Links.Create_Link
37342             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Package_Owned_Type_Package,
37343              To,
37344              Self);
37345
37346         when AMF.Internals.Tables.UML_Types.E_UML_Deployment_Specification =>
37347            AMF.Internals.Links.Create_Link
37348             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Package_Owned_Type_Package,
37349              To,
37350              Self);
37351
37352         when AMF.Internals.Tables.UML_Types.E_UML_Device =>
37353            AMF.Internals.Links.Create_Link
37354             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Package_Owned_Type_Package,
37355              To,
37356              Self);
37357
37358         when AMF.Internals.Tables.UML_Types.E_UML_Enumeration =>
37359            AMF.Internals.Links.Create_Link
37360             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Package_Owned_Type_Package,
37361              To,
37362              Self);
37363
37364         when AMF.Internals.Tables.UML_Types.E_UML_Execution_Environment =>
37365            AMF.Internals.Links.Create_Link
37366             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Package_Owned_Type_Package,
37367              To,
37368              Self);
37369
37370         when AMF.Internals.Tables.UML_Types.E_UML_Extension =>
37371            AMF.Internals.Links.Create_Link
37372             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Package_Owned_Type_Package,
37373              To,
37374              Self);
37375
37376         when AMF.Internals.Tables.UML_Types.E_UML_Function_Behavior =>
37377            AMF.Internals.Links.Create_Link
37378             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Package_Owned_Type_Package,
37379              To,
37380              Self);
37381
37382         when AMF.Internals.Tables.UML_Types.E_UML_Information_Item =>
37383            AMF.Internals.Links.Create_Link
37384             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Package_Owned_Type_Package,
37385              To,
37386              Self);
37387
37388         when AMF.Internals.Tables.UML_Types.E_UML_Interaction =>
37389            AMF.Internals.Links.Create_Link
37390             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Package_Owned_Type_Package,
37391              To,
37392              Self);
37393
37394         when AMF.Internals.Tables.UML_Types.E_UML_Interface =>
37395            AMF.Internals.Links.Create_Link
37396             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Package_Owned_Type_Package,
37397              To,
37398              Self);
37399
37400         when AMF.Internals.Tables.UML_Types.E_UML_Node =>
37401            AMF.Internals.Links.Create_Link
37402             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Package_Owned_Type_Package,
37403              To,
37404              Self);
37405
37406         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Behavior =>
37407            AMF.Internals.Links.Create_Link
37408             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Package_Owned_Type_Package,
37409              To,
37410              Self);
37411
37412         when AMF.Internals.Tables.UML_Types.E_UML_Primitive_Type =>
37413            AMF.Internals.Links.Create_Link
37414             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Package_Owned_Type_Package,
37415              To,
37416              Self);
37417
37418         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_State_Machine =>
37419            AMF.Internals.Links.Create_Link
37420             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Package_Owned_Type_Package,
37421              To,
37422              Self);
37423
37424         when AMF.Internals.Tables.UML_Types.E_UML_Signal =>
37425            AMF.Internals.Links.Create_Link
37426             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Package_Owned_Type_Package,
37427              To,
37428              Self);
37429
37430         when AMF.Internals.Tables.UML_Types.E_UML_State_Machine =>
37431            AMF.Internals.Links.Create_Link
37432             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Package_Owned_Type_Package,
37433              To,
37434              Self);
37435
37436         when AMF.Internals.Tables.UML_Types.E_UML_Stereotype =>
37437            AMF.Internals.Links.Create_Link
37438             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Package_Owned_Type_Package,
37439              To,
37440              Self);
37441
37442         when AMF.Internals.Tables.UML_Types.E_UML_Use_Case =>
37443            AMF.Internals.Links.Create_Link
37444             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Package_Owned_Type_Package,
37445              To,
37446              Self);
37447
37448         when others =>
37449            raise Program_Error;
37450      end case;
37451   end Internal_Set_Package;
37452
37453   ----------------------------
37454   -- Internal_Set_Parameter --
37455   ----------------------------
37456
37457   procedure Internal_Set_Parameter
37458    (Self : AMF.Internals.AMF_Element;
37459     To   : AMF.Internals.AMF_Element) is
37460   begin
37461      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
37462         when AMF.Internals.Tables.UML_Types.E_UML_Activity_Parameter_Node =>
37463            AMF.Internals.Links.Create_Link
37464             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Activity_Parameter_Node_Parameter_Activity_Parameter_Node,
37465              Self,
37466              To);
37467
37468         when others =>
37469            raise Program_Error;
37470      end case;
37471   end Internal_Set_Parameter;
37472
37473   --------------------------------------
37474   -- Internal_Set_Parametered_Element --
37475   --------------------------------------
37476
37477   procedure Internal_Set_Parametered_Element
37478    (Self : AMF.Internals.AMF_Element;
37479     To   : AMF.Internals.AMF_Element) is
37480   begin
37481      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
37482         when AMF.Internals.Tables.UML_Types.E_UML_Classifier_Template_Parameter =>
37483            AMF.Internals.Links.Create_Link
37484             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Template_Parameter_Parametered_Element,
37485              To,
37486              Self);
37487
37488         when AMF.Internals.Tables.UML_Types.E_UML_Connectable_Element_Template_Parameter =>
37489            AMF.Internals.Links.Create_Link
37490             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Connectable_Element_Template_Parameter_Parametered_Element,
37491              To,
37492              Self);
37493
37494         when AMF.Internals.Tables.UML_Types.E_UML_Operation_Template_Parameter =>
37495            AMF.Internals.Links.Create_Link
37496             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Operation_Template_Parameter_Parametered_Element,
37497              To,
37498              Self);
37499
37500         when AMF.Internals.Tables.UML_Types.E_UML_Template_Parameter =>
37501            AMF.Internals.Links.Create_Link
37502             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Parametered_Element_Template_Parameter,
37503              Self,
37504              To);
37505
37506         when others =>
37507            raise Program_Error;
37508      end case;
37509   end Internal_Set_Parametered_Element;
37510
37511   ---------------------------------
37512   -- Internal_Set_Part_With_Port --
37513   ---------------------------------
37514
37515   procedure Internal_Set_Part_With_Port
37516    (Self : AMF.Internals.AMF_Element;
37517     To   : AMF.Internals.AMF_Element) is
37518   begin
37519      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
37520         when AMF.Internals.Tables.UML_Types.E_UML_Connector_End =>
37521            AMF.Internals.Links.Create_Link
37522             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Connector_End_Part_With_Port_Connector_End,
37523              Self,
37524              To);
37525
37526         when others =>
37527            raise Program_Error;
37528      end case;
37529   end Internal_Set_Part_With_Port;
37530
37531   ---------------------------------
37532   -- Internal_Set_Post_Condition --
37533   ---------------------------------
37534
37535   procedure Internal_Set_Post_Condition
37536    (Self : AMF.Internals.AMF_Element;
37537     To   : AMF.Internals.AMF_Element) is
37538   begin
37539      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
37540         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_Transition =>
37541            AMF.Internals.Links.Create_Link
37542             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Protocol_Transition_Post_Condition_Owning_Transition,
37543              Self,
37544              To);
37545
37546         when others =>
37547            raise Program_Error;
37548      end case;
37549   end Internal_Set_Post_Condition;
37550
37551   ----------------------------
37552   -- Internal_Set_Powertype --
37553   ----------------------------
37554
37555   procedure Internal_Set_Powertype
37556    (Self : AMF.Internals.AMF_Element;
37557     To   : AMF.Internals.AMF_Element) is
37558   begin
37559      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
37560         when AMF.Internals.Tables.UML_Types.E_UML_Generalization_Set =>
37561            AMF.Internals.Links.Create_Link
37562             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Powertype_Extent_Powertype,
37563              To,
37564              Self);
37565
37566         when others =>
37567            raise Program_Error;
37568      end case;
37569   end Internal_Set_Powertype;
37570
37571   --------------------------------
37572   -- Internal_Set_Pre_Condition --
37573   --------------------------------
37574
37575   procedure Internal_Set_Pre_Condition
37576    (Self : AMF.Internals.AMF_Element;
37577     To   : AMF.Internals.AMF_Element) is
37578   begin
37579      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
37580         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_Transition =>
37581            AMF.Internals.Links.Create_Link
37582             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Protocol_Transition_Pre_Condition_Protocol_Transition,
37583              Self,
37584              To);
37585
37586         when others =>
37587            raise Program_Error;
37588      end case;
37589   end Internal_Set_Pre_Condition;
37590
37591   ---------------------------------
37592   -- Internal_Set_Protected_Node --
37593   ---------------------------------
37594
37595   procedure Internal_Set_Protected_Node
37596    (Self : AMF.Internals.AMF_Element;
37597     To   : AMF.Internals.AMF_Element) is
37598   begin
37599      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
37600         when AMF.Internals.Tables.UML_Types.E_UML_Exception_Handler =>
37601            AMF.Internals.Links.Create_Link
37602             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Executable_Node_Handler_Protected_Node,
37603              To,
37604              Self);
37605
37606         when others =>
37607            raise Program_Error;
37608      end case;
37609   end Internal_Set_Protected_Node;
37610
37611   ---------------------------
37612   -- Internal_Set_Protocol --
37613   ---------------------------
37614
37615   procedure Internal_Set_Protocol
37616    (Self : AMF.Internals.AMF_Element;
37617     To   : AMF.Internals.AMF_Element) is
37618   begin
37619      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
37620         when AMF.Internals.Tables.UML_Types.E_UML_Interface =>
37621            AMF.Internals.Links.Create_Link
37622             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Interface_Protocol_Interface,
37623              Self,
37624              To);
37625
37626         when AMF.Internals.Tables.UML_Types.E_UML_Port =>
37627            AMF.Internals.Links.Create_Link
37628             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Port_Protocol_Port,
37629              Self,
37630              To);
37631
37632         when others =>
37633            raise Program_Error;
37634      end case;
37635   end Internal_Set_Protocol;
37636
37637   ----------------------------
37638   -- Internal_Set_Qualifier --
37639   ----------------------------
37640
37641   procedure Internal_Set_Qualifier
37642    (Self : AMF.Internals.AMF_Element;
37643     To   : AMF.Internals.AMF_Element) is
37644   begin
37645      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
37646         when AMF.Internals.Tables.UML_Types.E_UML_Qualifier_Value =>
37647            AMF.Internals.Links.Create_Link
37648             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Qualifier_Value_Qualifier_Qualifier_Value,
37649              Self,
37650              To);
37651
37652         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Object_End_Qualifier_Action =>
37653            AMF.Internals.Links.Create_Link
37654             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Read_Link_Object_End_Qualifier_Action_Qualifier_Read_Link_Object_End_Qualifier_Action,
37655              Self,
37656              To);
37657
37658         when others =>
37659            raise Program_Error;
37660      end case;
37661   end Internal_Set_Qualifier;
37662
37663   --------------------------------
37664   -- Internal_Set_Receive_Event --
37665   --------------------------------
37666
37667   procedure Internal_Set_Receive_Event
37668    (Self : AMF.Internals.AMF_Element;
37669     To   : AMF.Internals.AMF_Element) is
37670   begin
37671      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
37672         when AMF.Internals.Tables.UML_Types.E_UML_Message =>
37673            AMF.Internals.Links.Create_Link
37674             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Message_Receive_Event_End_Message,
37675              Self,
37676              To);
37677
37678         when others =>
37679            raise Program_Error;
37680      end case;
37681   end Internal_Set_Receive_Event;
37682
37683   ------------------------------------
37684   -- Internal_Set_Receiving_Package --
37685   ------------------------------------
37686
37687   procedure Internal_Set_Receiving_Package
37688    (Self : AMF.Internals.AMF_Element;
37689     To   : AMF.Internals.AMF_Element) is
37690   begin
37691      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
37692         when AMF.Internals.Tables.UML_Types.E_UML_Package_Merge =>
37693            AMF.Internals.Links.Create_Link
37694             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Package_Package_Merge_Receiving_Package,
37695              To,
37696              Self);
37697
37698         when others =>
37699            raise Program_Error;
37700      end case;
37701   end Internal_Set_Receiving_Package;
37702
37703   ----------------------------------
37704   -- Internal_Set_Redefined_State --
37705   ----------------------------------
37706
37707   procedure Internal_Set_Redefined_State
37708    (Self : AMF.Internals.AMF_Element;
37709     To   : AMF.Internals.AMF_Element) is
37710   begin
37711      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
37712         when AMF.Internals.Tables.UML_Types.E_UML_Final_State =>
37713            AMF.Internals.Links.Create_Link
37714             (AMF.Internals.Tables.UML_Metamodel.MA_UML_State_Redefined_State_State,
37715              Self,
37716              To);
37717
37718         when AMF.Internals.Tables.UML_Types.E_UML_State =>
37719            AMF.Internals.Links.Create_Link
37720             (AMF.Internals.Tables.UML_Metamodel.MA_UML_State_Redefined_State_State,
37721              Self,
37722              To);
37723
37724         when others =>
37725            raise Program_Error;
37726      end case;
37727   end Internal_Set_Redefined_State;
37728
37729   ---------------------------------------
37730   -- Internal_Set_Redefined_Transition --
37731   ---------------------------------------
37732
37733   procedure Internal_Set_Redefined_Transition
37734    (Self : AMF.Internals.AMF_Element;
37735     To   : AMF.Internals.AMF_Element) is
37736   begin
37737      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
37738         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_Transition =>
37739            AMF.Internals.Links.Create_Link
37740             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Transition_Redefined_Transition_Transition,
37741              Self,
37742              To);
37743
37744         when AMF.Internals.Tables.UML_Types.E_UML_Transition =>
37745            AMF.Internals.Links.Create_Link
37746             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Transition_Redefined_Transition_Transition,
37747              Self,
37748              To);
37749
37750         when others =>
37751            raise Program_Error;
37752      end case;
37753   end Internal_Set_Redefined_Transition;
37754
37755   --------------------------
37756   -- Internal_Set_Reducer --
37757   --------------------------
37758
37759   procedure Internal_Set_Reducer
37760    (Self : AMF.Internals.AMF_Element;
37761     To   : AMF.Internals.AMF_Element) is
37762   begin
37763      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
37764         when AMF.Internals.Tables.UML_Types.E_UML_Reduce_Action =>
37765            AMF.Internals.Links.Create_Link
37766             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Reduce_Action_Reducer_Reduce_Action,
37767              Self,
37768              To);
37769
37770         when others =>
37771            raise Program_Error;
37772      end case;
37773   end Internal_Set_Reducer;
37774
37775   ----------------------------
37776   -- Internal_Set_Refers_To --
37777   ----------------------------
37778
37779   procedure Internal_Set_Refers_To
37780    (Self : AMF.Internals.AMF_Element;
37781     To   : AMF.Internals.AMF_Element) is
37782   begin
37783      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
37784         when AMF.Internals.Tables.UML_Types.E_UML_Interaction_Use =>
37785            AMF.Internals.Links.Create_Link
37786             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Interaction_Use_Refers_To_Interaction_Use,
37787              Self,
37788              To);
37789
37790         when AMF.Internals.Tables.UML_Types.E_UML_Part_Decomposition =>
37791            AMF.Internals.Links.Create_Link
37792             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Interaction_Use_Refers_To_Interaction_Use,
37793              Self,
37794              To);
37795
37796         when others =>
37797            raise Program_Error;
37798      end case;
37799   end Internal_Set_Refers_To;
37800
37801   ----------------------------------
37802   -- Internal_Set_Region_As_Input --
37803   ----------------------------------
37804
37805   procedure Internal_Set_Region_As_Input
37806    (Self : AMF.Internals.AMF_Element;
37807     To   : AMF.Internals.AMF_Element) is
37808   begin
37809      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
37810         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Node =>
37811            AMF.Internals.Links.Create_Link
37812             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Expansion_Region_Input_Element_Region_As_Input,
37813              To,
37814              Self);
37815
37816         when others =>
37817            raise Program_Error;
37818      end case;
37819   end Internal_Set_Region_As_Input;
37820
37821   -----------------------------------
37822   -- Internal_Set_Region_As_Output --
37823   -----------------------------------
37824
37825   procedure Internal_Set_Region_As_Output
37826    (Self : AMF.Internals.AMF_Element;
37827     To   : AMF.Internals.AMF_Element) is
37828   begin
37829      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
37830         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Node =>
37831            AMF.Internals.Links.Create_Link
37832             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Expansion_Region_Output_Element_Region_As_Output,
37833              To,
37834              Self);
37835
37836         when others =>
37837            raise Program_Error;
37838      end case;
37839   end Internal_Set_Region_As_Output;
37840
37841   ----------------------------
37842   -- Internal_Set_Remove_At --
37843   ----------------------------
37844
37845   procedure Internal_Set_Remove_At
37846    (Self : AMF.Internals.AMF_Element;
37847     To   : AMF.Internals.AMF_Element) is
37848   begin
37849      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
37850         when AMF.Internals.Tables.UML_Types.E_UML_Remove_Structural_Feature_Value_Action =>
37851            AMF.Internals.Links.Create_Link
37852             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Remove_Structural_Feature_Value_Action_Remove_At_Remove_Structural_Feature_Value_Action,
37853              Self,
37854              To);
37855
37856         when AMF.Internals.Tables.UML_Types.E_UML_Remove_Variable_Value_Action =>
37857            AMF.Internals.Links.Create_Link
37858             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Remove_Variable_Value_Action_Remove_At_Remove_Variable_Value_Action,
37859              Self,
37860              To);
37861
37862         when others =>
37863            raise Program_Error;
37864      end case;
37865   end Internal_Set_Remove_At;
37866
37867   --------------------------------
37868   -- Internal_Set_Reply_To_Call --
37869   --------------------------------
37870
37871   procedure Internal_Set_Reply_To_Call
37872    (Self : AMF.Internals.AMF_Element;
37873     To   : AMF.Internals.AMF_Element) is
37874   begin
37875      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
37876         when AMF.Internals.Tables.UML_Types.E_UML_Reply_Action =>
37877            AMF.Internals.Links.Create_Link
37878             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Reply_Action_Reply_To_Call_Reply_Action,
37879              Self,
37880              To);
37881
37882         when others =>
37883            raise Program_Error;
37884      end case;
37885   end Internal_Set_Reply_To_Call;
37886
37887   ---------------------------------
37888   -- Internal_Set_Representation --
37889   ---------------------------------
37890
37891   procedure Internal_Set_Representation
37892    (Self : AMF.Internals.AMF_Element;
37893     To   : AMF.Internals.AMF_Element) is
37894   begin
37895      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
37896         when AMF.Internals.Tables.UML_Types.E_UML_Activity =>
37897            AMF.Internals.Links.Create_Link
37898             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Representation_Classifier,
37899              Self,
37900              To);
37901
37902         when AMF.Internals.Tables.UML_Types.E_UML_Actor =>
37903            AMF.Internals.Links.Create_Link
37904             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Representation_Classifier,
37905              Self,
37906              To);
37907
37908         when AMF.Internals.Tables.UML_Types.E_UML_Artifact =>
37909            AMF.Internals.Links.Create_Link
37910             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Representation_Classifier,
37911              Self,
37912              To);
37913
37914         when AMF.Internals.Tables.UML_Types.E_UML_Association =>
37915            AMF.Internals.Links.Create_Link
37916             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Representation_Classifier,
37917              Self,
37918              To);
37919
37920         when AMF.Internals.Tables.UML_Types.E_UML_Association_Class =>
37921            AMF.Internals.Links.Create_Link
37922             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Representation_Classifier,
37923              Self,
37924              To);
37925
37926         when AMF.Internals.Tables.UML_Types.E_UML_Class =>
37927            AMF.Internals.Links.Create_Link
37928             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Representation_Classifier,
37929              Self,
37930              To);
37931
37932         when AMF.Internals.Tables.UML_Types.E_UML_Collaboration =>
37933            AMF.Internals.Links.Create_Link
37934             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Representation_Classifier,
37935              Self,
37936              To);
37937
37938         when AMF.Internals.Tables.UML_Types.E_UML_Communication_Path =>
37939            AMF.Internals.Links.Create_Link
37940             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Representation_Classifier,
37941              Self,
37942              To);
37943
37944         when AMF.Internals.Tables.UML_Types.E_UML_Component =>
37945            AMF.Internals.Links.Create_Link
37946             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Representation_Classifier,
37947              Self,
37948              To);
37949
37950         when AMF.Internals.Tables.UML_Types.E_UML_Data_Type =>
37951            AMF.Internals.Links.Create_Link
37952             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Representation_Classifier,
37953              Self,
37954              To);
37955
37956         when AMF.Internals.Tables.UML_Types.E_UML_Deployment_Specification =>
37957            AMF.Internals.Links.Create_Link
37958             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Representation_Classifier,
37959              Self,
37960              To);
37961
37962         when AMF.Internals.Tables.UML_Types.E_UML_Device =>
37963            AMF.Internals.Links.Create_Link
37964             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Representation_Classifier,
37965              Self,
37966              To);
37967
37968         when AMF.Internals.Tables.UML_Types.E_UML_Enumeration =>
37969            AMF.Internals.Links.Create_Link
37970             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Representation_Classifier,
37971              Self,
37972              To);
37973
37974         when AMF.Internals.Tables.UML_Types.E_UML_Execution_Environment =>
37975            AMF.Internals.Links.Create_Link
37976             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Representation_Classifier,
37977              Self,
37978              To);
37979
37980         when AMF.Internals.Tables.UML_Types.E_UML_Extension =>
37981            AMF.Internals.Links.Create_Link
37982             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Representation_Classifier,
37983              Self,
37984              To);
37985
37986         when AMF.Internals.Tables.UML_Types.E_UML_Function_Behavior =>
37987            AMF.Internals.Links.Create_Link
37988             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Representation_Classifier,
37989              Self,
37990              To);
37991
37992         when AMF.Internals.Tables.UML_Types.E_UML_Information_Item =>
37993            AMF.Internals.Links.Create_Link
37994             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Representation_Classifier,
37995              Self,
37996              To);
37997
37998         when AMF.Internals.Tables.UML_Types.E_UML_Interaction =>
37999            AMF.Internals.Links.Create_Link
38000             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Representation_Classifier,
38001              Self,
38002              To);
38003
38004         when AMF.Internals.Tables.UML_Types.E_UML_Interface =>
38005            AMF.Internals.Links.Create_Link
38006             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Representation_Classifier,
38007              Self,
38008              To);
38009
38010         when AMF.Internals.Tables.UML_Types.E_UML_Node =>
38011            AMF.Internals.Links.Create_Link
38012             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Representation_Classifier,
38013              Self,
38014              To);
38015
38016         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Behavior =>
38017            AMF.Internals.Links.Create_Link
38018             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Representation_Classifier,
38019              Self,
38020              To);
38021
38022         when AMF.Internals.Tables.UML_Types.E_UML_Primitive_Type =>
38023            AMF.Internals.Links.Create_Link
38024             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Representation_Classifier,
38025              Self,
38026              To);
38027
38028         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_State_Machine =>
38029            AMF.Internals.Links.Create_Link
38030             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Representation_Classifier,
38031              Self,
38032              To);
38033
38034         when AMF.Internals.Tables.UML_Types.E_UML_Signal =>
38035            AMF.Internals.Links.Create_Link
38036             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Representation_Classifier,
38037              Self,
38038              To);
38039
38040         when AMF.Internals.Tables.UML_Types.E_UML_State_Machine =>
38041            AMF.Internals.Links.Create_Link
38042             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Representation_Classifier,
38043              Self,
38044              To);
38045
38046         when AMF.Internals.Tables.UML_Types.E_UML_Stereotype =>
38047            AMF.Internals.Links.Create_Link
38048             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Representation_Classifier,
38049              Self,
38050              To);
38051
38052         when AMF.Internals.Tables.UML_Types.E_UML_Use_Case =>
38053            AMF.Internals.Links.Create_Link
38054             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Representation_Classifier,
38055              Self,
38056              To);
38057
38058         when others =>
38059            raise Program_Error;
38060      end case;
38061   end Internal_Set_Representation;
38062
38063   -----------------------------
38064   -- Internal_Set_Represents --
38065   -----------------------------
38066
38067   procedure Internal_Set_Represents
38068    (Self : AMF.Internals.AMF_Element;
38069     To   : AMF.Internals.AMF_Element) is
38070   begin
38071      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
38072         when AMF.Internals.Tables.UML_Types.E_UML_Activity_Partition =>
38073            AMF.Internals.Links.Create_Link
38074             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Activity_Partition_Represents_Activity_Partition,
38075              Self,
38076              To);
38077
38078         when AMF.Internals.Tables.UML_Types.E_UML_Lifeline =>
38079            AMF.Internals.Links.Create_Link
38080             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Lifeline_Represents_Lifeline,
38081              Self,
38082              To);
38083
38084         when others =>
38085            raise Program_Error;
38086      end case;
38087   end Internal_Set_Represents;
38088
38089   --------------------------
38090   -- Internal_Set_Request --
38091   --------------------------
38092
38093   procedure Internal_Set_Request
38094    (Self : AMF.Internals.AMF_Element;
38095     To   : AMF.Internals.AMF_Element) is
38096   begin
38097      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
38098         when AMF.Internals.Tables.UML_Types.E_UML_Send_Object_Action =>
38099            AMF.Internals.Links.Create_Link
38100             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Send_Object_Action_Request_Send_Object_Action,
38101              Self,
38102              To);
38103
38104         when others =>
38105            raise Program_Error;
38106      end case;
38107   end Internal_Set_Request;
38108
38109   -----------------------------
38110   -- Internal_Set_Resolution --
38111   -----------------------------
38112
38113   procedure Internal_Set_Resolution
38114    (Self : AMF.Internals.AMF_Element;
38115     To   : AMF.Real)
38116   is
38117      Old : AMF.Real;
38118
38119   begin
38120      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (19).Real_Value;
38121      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (19).Real_Value := To;
38122
38123      AMF.Internals.Tables.DC_Notification.Notify_Attribute_Set
38124       (Self, AMF.Internals.Tables.DI_Metamodel.MP_DI_Diagram_Resolution, Old, To);
38125   end Internal_Set_Resolution;
38126
38127   -------------------------
38128   -- Internal_Set_Result --
38129   -------------------------
38130
38131   procedure Internal_Set_Result
38132    (Self : AMF.Internals.AMF_Element;
38133     To   : AMF.Internals.AMF_Element) is
38134   begin
38135      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
38136         when AMF.Internals.Tables.UML_Types.E_UML_Add_Structural_Feature_Value_Action =>
38137            AMF.Internals.Links.Create_Link
38138             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Write_Structural_Feature_Action_Result_Write_Structural_Feature_Action,
38139              Self,
38140              To);
38141
38142         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Structural_Feature_Action =>
38143            AMF.Internals.Links.Create_Link
38144             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Clear_Structural_Feature_Action_Result_Clear_Structural_Feature_Action,
38145              Self,
38146              To);
38147
38148         when AMF.Internals.Tables.UML_Types.E_UML_Create_Link_Object_Action =>
38149            AMF.Internals.Links.Create_Link
38150             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Create_Link_Object_Action_Result_Create_Link_Object_Action,
38151              Self,
38152              To);
38153
38154         when AMF.Internals.Tables.UML_Types.E_UML_Create_Object_Action =>
38155            AMF.Internals.Links.Create_Link
38156             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Create_Object_Action_Result_Create_Object_Action,
38157              Self,
38158              To);
38159
38160         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Expression =>
38161            AMF.Internals.Links.Create_Link
38162             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Opaque_Expression_Result_Opaque_Expression,
38163              Self,
38164              To);
38165
38166         when AMF.Internals.Tables.UML_Types.E_UML_Read_Extent_Action =>
38167            AMF.Internals.Links.Create_Link
38168             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Read_Extent_Action_Result_Read_Extent_Action,
38169              Self,
38170              To);
38171
38172         when AMF.Internals.Tables.UML_Types.E_UML_Read_Is_Classified_Object_Action =>
38173            AMF.Internals.Links.Create_Link
38174             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Read_Is_Classified_Object_Action_Result_Read_Is_Classified_Object_Action,
38175              Self,
38176              To);
38177
38178         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Action =>
38179            AMF.Internals.Links.Create_Link
38180             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Read_Link_Action_Result_Read_Link_Action,
38181              Self,
38182              To);
38183
38184         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Object_End_Action =>
38185            AMF.Internals.Links.Create_Link
38186             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Read_Link_Object_End_Action_Result_Read_Link_Object_End_Action,
38187              Self,
38188              To);
38189
38190         when AMF.Internals.Tables.UML_Types.E_UML_Read_Link_Object_End_Qualifier_Action =>
38191            AMF.Internals.Links.Create_Link
38192             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Read_Link_Object_End_Qualifier_Action_Result_Read_Link_Object_End_Qualifier_Action,
38193              Self,
38194              To);
38195
38196         when AMF.Internals.Tables.UML_Types.E_UML_Read_Self_Action =>
38197            AMF.Internals.Links.Create_Link
38198             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Read_Self_Action_Result_Read_Self_Action,
38199              Self,
38200              To);
38201
38202         when AMF.Internals.Tables.UML_Types.E_UML_Read_Structural_Feature_Action =>
38203            AMF.Internals.Links.Create_Link
38204             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Read_Structural_Feature_Action_Result_Read_Structural_Feature_Action,
38205              Self,
38206              To);
38207
38208         when AMF.Internals.Tables.UML_Types.E_UML_Read_Variable_Action =>
38209            AMF.Internals.Links.Create_Link
38210             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Read_Variable_Action_Result_Read_Variable_Action,
38211              Self,
38212              To);
38213
38214         when AMF.Internals.Tables.UML_Types.E_UML_Reduce_Action =>
38215            AMF.Internals.Links.Create_Link
38216             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Reduce_Action_Result_Reduce_Action,
38217              Self,
38218              To);
38219
38220         when AMF.Internals.Tables.UML_Types.E_UML_Remove_Structural_Feature_Value_Action =>
38221            AMF.Internals.Links.Create_Link
38222             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Write_Structural_Feature_Action_Result_Write_Structural_Feature_Action,
38223              Self,
38224              To);
38225
38226         when AMF.Internals.Tables.UML_Types.E_UML_Test_Identity_Action =>
38227            AMF.Internals.Links.Create_Link
38228             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Test_Identity_Action_Result_Test_Identity_Action,
38229              Self,
38230              To);
38231
38232         when AMF.Internals.Tables.UML_Types.E_UML_Value_Specification_Action =>
38233            AMF.Internals.Links.Create_Link
38234             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Value_Specification_Action_Result_Value_Specification_Action,
38235              Self,
38236              To);
38237
38238         when others =>
38239            raise Program_Error;
38240      end case;
38241   end Internal_Set_Result;
38242
38243   -------------------------------------
38244   -- Internal_Set_Return_Information --
38245   -------------------------------------
38246
38247   procedure Internal_Set_Return_Information
38248    (Self : AMF.Internals.AMF_Element;
38249     To   : AMF.Internals.AMF_Element) is
38250   begin
38251      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
38252         when AMF.Internals.Tables.UML_Types.E_UML_Accept_Call_Action =>
38253            AMF.Internals.Links.Create_Link
38254             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Accept_Call_Action_Return_Information_Accept_Call_Action,
38255              Self,
38256              To);
38257
38258         when AMF.Internals.Tables.UML_Types.E_UML_Reply_Action =>
38259            AMF.Internals.Links.Create_Link
38260             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Reply_Action_Return_Information_Reply_Action,
38261              Self,
38262              To);
38263
38264         when others =>
38265            raise Program_Error;
38266      end case;
38267   end Internal_Set_Return_Information;
38268
38269   -------------------------------
38270   -- Internal_Set_Return_Value --
38271   -------------------------------
38272
38273   procedure Internal_Set_Return_Value
38274    (Self : AMF.Internals.AMF_Element;
38275     To   : AMF.Internals.AMF_Element) is
38276   begin
38277      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
38278         when AMF.Internals.Tables.UML_Types.E_UML_Interaction_Use =>
38279            AMF.Internals.Links.Create_Link
38280             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Interaction_Use_Return_Value_Interaction_Use,
38281              Self,
38282              To);
38283
38284         when AMF.Internals.Tables.UML_Types.E_UML_Part_Decomposition =>
38285            AMF.Internals.Links.Create_Link
38286             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Interaction_Use_Return_Value_Interaction_Use,
38287              Self,
38288              To);
38289
38290         when others =>
38291            raise Program_Error;
38292      end case;
38293   end Internal_Set_Return_Value;
38294
38295   -----------------------------------------
38296   -- Internal_Set_Return_Value_Recipient --
38297   -----------------------------------------
38298
38299   procedure Internal_Set_Return_Value_Recipient
38300    (Self : AMF.Internals.AMF_Element;
38301     To   : AMF.Internals.AMF_Element) is
38302   begin
38303      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
38304         when AMF.Internals.Tables.UML_Types.E_UML_Interaction_Use =>
38305            AMF.Internals.Links.Create_Link
38306             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Interaction_Use_Return_Value_Recipient_Interaction_Use,
38307              Self,
38308              To);
38309
38310         when AMF.Internals.Tables.UML_Types.E_UML_Part_Decomposition =>
38311            AMF.Internals.Links.Create_Link
38312             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Interaction_Use_Return_Value_Recipient_Interaction_Use,
38313              Self,
38314              To);
38315
38316         when others =>
38317            raise Program_Error;
38318      end case;
38319   end Internal_Set_Return_Value_Recipient;
38320
38321   -----------------------
38322   -- Internal_Set_Role --
38323   -----------------------
38324
38325   procedure Internal_Set_Role
38326    (Self : AMF.Internals.AMF_Element;
38327     To   : AMF.Internals.AMF_Element) is
38328   begin
38329      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
38330         when AMF.Internals.Tables.UML_Types.E_UML_Connector_End =>
38331            AMF.Internals.Links.Create_Link
38332             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Connectable_Element_End_Role,
38333              To,
38334              Self);
38335
38336         when others =>
38337            raise Program_Error;
38338      end case;
38339   end Internal_Set_Role;
38340
38341   ------------------------
38342   -- Internal_Set_Scope --
38343   ------------------------
38344
38345   procedure Internal_Set_Scope
38346    (Self : AMF.Internals.AMF_Element;
38347     To   : AMF.Internals.AMF_Element) is
38348   begin
38349      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
38350         when AMF.Internals.Tables.UML_Types.E_UML_Variable =>
38351            AMF.Internals.Links.Create_Link
38352             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Structured_Activity_Node_Variable_Scope,
38353              To,
38354              Self);
38355
38356         when others =>
38357            raise Program_Error;
38358      end case;
38359   end Internal_Set_Scope;
38360
38361   -------------------------
38362   -- Internal_Set_Second --
38363   -------------------------
38364
38365   procedure Internal_Set_Second
38366    (Self : AMF.Internals.AMF_Element;
38367     To   : AMF.Internals.AMF_Element) is
38368   begin
38369      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
38370         when AMF.Internals.Tables.UML_Types.E_UML_Test_Identity_Action =>
38371            AMF.Internals.Links.Create_Link
38372             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Test_Identity_Action_Second_Test_Identity_Action,
38373              Self,
38374              To);
38375
38376         when others =>
38377            raise Program_Error;
38378      end case;
38379   end Internal_Set_Second;
38380
38381   ----------------------------
38382   -- Internal_Set_Selection --
38383   ----------------------------
38384
38385   procedure Internal_Set_Selection
38386    (Self : AMF.Internals.AMF_Element;
38387     To   : AMF.Internals.AMF_Element) is
38388   begin
38389      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
38390         when AMF.Internals.Tables.UML_Types.E_UML_Action_Input_Pin =>
38391            AMF.Internals.Links.Create_Link
38392             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Object_Node_Selection_Object_Node,
38393              Self,
38394              To);
38395
38396         when AMF.Internals.Tables.UML_Types.E_UML_Activity_Parameter_Node =>
38397            AMF.Internals.Links.Create_Link
38398             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Object_Node_Selection_Object_Node,
38399              Self,
38400              To);
38401
38402         when AMF.Internals.Tables.UML_Types.E_UML_Central_Buffer_Node =>
38403            AMF.Internals.Links.Create_Link
38404             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Object_Node_Selection_Object_Node,
38405              Self,
38406              To);
38407
38408         when AMF.Internals.Tables.UML_Types.E_UML_Data_Store_Node =>
38409            AMF.Internals.Links.Create_Link
38410             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Object_Node_Selection_Object_Node,
38411              Self,
38412              To);
38413
38414         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Node =>
38415            AMF.Internals.Links.Create_Link
38416             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Object_Node_Selection_Object_Node,
38417              Self,
38418              To);
38419
38420         when AMF.Internals.Tables.UML_Types.E_UML_Input_Pin =>
38421            AMF.Internals.Links.Create_Link
38422             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Object_Node_Selection_Object_Node,
38423              Self,
38424              To);
38425
38426         when AMF.Internals.Tables.UML_Types.E_UML_Object_Flow =>
38427            AMF.Internals.Links.Create_Link
38428             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Object_Flow_Selection_Object_Flow,
38429              Self,
38430              To);
38431
38432         when AMF.Internals.Tables.UML_Types.E_UML_Output_Pin =>
38433            AMF.Internals.Links.Create_Link
38434             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Object_Node_Selection_Object_Node,
38435              Self,
38436              To);
38437
38438         when AMF.Internals.Tables.UML_Types.E_UML_Value_Pin =>
38439            AMF.Internals.Links.Create_Link
38440             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Object_Node_Selection_Object_Node,
38441              Self,
38442              To);
38443
38444         when others =>
38445            raise Program_Error;
38446      end case;
38447   end Internal_Set_Selection;
38448
38449   ---------------------------
38450   -- Internal_Set_Selector --
38451   ---------------------------
38452
38453   procedure Internal_Set_Selector
38454    (Self : AMF.Internals.AMF_Element;
38455     To   : AMF.Internals.AMF_Element) is
38456   begin
38457      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
38458         when AMF.Internals.Tables.UML_Types.E_UML_Lifeline =>
38459            AMF.Internals.Links.Create_Link
38460             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Lifeline_Selector_Lifeline,
38461              Self,
38462              To);
38463
38464         when others =>
38465            raise Program_Error;
38466      end case;
38467   end Internal_Set_Selector;
38468
38469   -----------------------------
38470   -- Internal_Set_Send_Event --
38471   -----------------------------
38472
38473   procedure Internal_Set_Send_Event
38474    (Self : AMF.Internals.AMF_Element;
38475     To   : AMF.Internals.AMF_Element) is
38476   begin
38477      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
38478         when AMF.Internals.Tables.UML_Types.E_UML_Message =>
38479            AMF.Internals.Links.Create_Link
38480             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Message_Send_Event_End_Message,
38481              Self,
38482              To);
38483
38484         when others =>
38485            raise Program_Error;
38486      end case;
38487   end Internal_Set_Send_Event;
38488
38489   --------------------------
38490   -- Internal_Set_Setting --
38491   --------------------------
38492
38493   procedure Internal_Set_Setting
38494    (Self : AMF.Internals.AMF_Element;
38495     To   : Boolean)
38496   is
38497      Old : Boolean;
38498
38499   begin
38500      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Boolean_Value;
38501      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Boolean_Value := To;
38502
38503      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
38504       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Continuation_Setting, Old, To);
38505   end Internal_Set_Setting;
38506
38507   -------------------------------
38508   -- Internal_Set_Shared_Style --
38509   -------------------------------
38510
38511   procedure Internal_Set_Shared_Style
38512    (Self : AMF.Internals.AMF_Element;
38513     To   : AMF.Internals.AMF_Element) is
38514   begin
38515      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
38516         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Activity_Diagram =>
38517            AMF.Internals.Links.Create_Link
38518             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Shared_Style_Styled_Element,
38519              Self,
38520              To);
38521
38522         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Association_End_Label =>
38523            AMF.Internals.Links.Create_Link
38524             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Shared_Style_Styled_Element,
38525              Self,
38526              To);
38527
38528         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Association_Or_Connector_Or_Link_Shape =>
38529            AMF.Internals.Links.Create_Link
38530             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Shared_Style_Styled_Element,
38531              Self,
38532              To);
38533
38534         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Class_Diagram =>
38535            AMF.Internals.Links.Create_Link
38536             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Shared_Style_Styled_Element,
38537              Self,
38538              To);
38539
38540         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Classifier_Shape =>
38541            AMF.Internals.Links.Create_Link
38542             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Shared_Style_Styled_Element,
38543              Self,
38544              To);
38545
38546         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Compartment =>
38547            AMF.Internals.Links.Create_Link
38548             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Shared_Style_Styled_Element,
38549              Self,
38550              To);
38551
38552         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Compartmentable_Shape =>
38553            AMF.Internals.Links.Create_Link
38554             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Shared_Style_Styled_Element,
38555              Self,
38556              To);
38557
38558         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Component_Diagram =>
38559            AMF.Internals.Links.Create_Link
38560             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Shared_Style_Styled_Element,
38561              Self,
38562              To);
38563
38564         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Composite_Structure_Diagram =>
38565            AMF.Internals.Links.Create_Link
38566             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Shared_Style_Styled_Element,
38567              Self,
38568              To);
38569
38570         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Deployment_Diagram =>
38571            AMF.Internals.Links.Create_Link
38572             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Shared_Style_Styled_Element,
38573              Self,
38574              To);
38575
38576         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Edge =>
38577            AMF.Internals.Links.Create_Link
38578             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Shared_Style_Styled_Element,
38579              Self,
38580              To);
38581
38582         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Interaction_Diagram =>
38583            AMF.Internals.Links.Create_Link
38584             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Shared_Style_Styled_Element,
38585              Self,
38586              To);
38587
38588         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Interaction_Table_Label =>
38589            AMF.Internals.Links.Create_Link
38590             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Shared_Style_Styled_Element,
38591              Self,
38592              To);
38593
38594         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Keyword_Label =>
38595            AMF.Internals.Links.Create_Link
38596             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Shared_Style_Styled_Element,
38597              Self,
38598              To);
38599
38600         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Label =>
38601            AMF.Internals.Links.Create_Link
38602             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Shared_Style_Styled_Element,
38603              Self,
38604              To);
38605
38606         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Multiplicity_Label =>
38607            AMF.Internals.Links.Create_Link
38608             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Shared_Style_Styled_Element,
38609              Self,
38610              To);
38611
38612         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Name_Label =>
38613            AMF.Internals.Links.Create_Link
38614             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Shared_Style_Styled_Element,
38615              Self,
38616              To);
38617
38618         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Object_Diagram =>
38619            AMF.Internals.Links.Create_Link
38620             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Shared_Style_Styled_Element,
38621              Self,
38622              To);
38623
38624         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Package_Diagram =>
38625            AMF.Internals.Links.Create_Link
38626             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Shared_Style_Styled_Element,
38627              Self,
38628              To);
38629
38630         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Profile_Diagram =>
38631            AMF.Internals.Links.Create_Link
38632             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Shared_Style_Styled_Element,
38633              Self,
38634              To);
38635
38636         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Redefines_Label =>
38637            AMF.Internals.Links.Create_Link
38638             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Shared_Style_Styled_Element,
38639              Self,
38640              To);
38641
38642         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Shape =>
38643            AMF.Internals.Links.Create_Link
38644             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Shared_Style_Styled_Element,
38645              Self,
38646              To);
38647
38648         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_State_Machine_Diagram =>
38649            AMF.Internals.Links.Create_Link
38650             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Shared_Style_Styled_Element,
38651              Self,
38652              To);
38653
38654         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_State_Shape =>
38655            AMF.Internals.Links.Create_Link
38656             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Shared_Style_Styled_Element,
38657              Self,
38658              To);
38659
38660         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Stereotype_Property_Value_Label =>
38661            AMF.Internals.Links.Create_Link
38662             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Shared_Style_Styled_Element,
38663              Self,
38664              To);
38665
38666         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Typed_Element_Label =>
38667            AMF.Internals.Links.Create_Link
38668             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Shared_Style_Styled_Element,
38669              Self,
38670              To);
38671
38672         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Use_Case_Diagram =>
38673            AMF.Internals.Links.Create_Link
38674             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Diagram_Element_Shared_Style_Styled_Element,
38675              Self,
38676              To);
38677
38678         when others =>
38679            raise Program_Error;
38680      end case;
38681   end Internal_Set_Shared_Style;
38682
38683   -------------------------
38684   -- Internal_Set_Signal --
38685   -------------------------
38686
38687   procedure Internal_Set_Signal
38688    (Self : AMF.Internals.AMF_Element;
38689     To   : AMF.Internals.AMF_Element) is
38690   begin
38691      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
38692         when AMF.Internals.Tables.UML_Types.E_UML_Broadcast_Signal_Action =>
38693            AMF.Internals.Links.Create_Link
38694             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Broadcast_Signal_Action_Signal_Broadcast_Signal_Action,
38695              Self,
38696              To);
38697
38698         when AMF.Internals.Tables.UML_Types.E_UML_Reception =>
38699            AMF.Internals.Links.Create_Link
38700             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Reception_Signal_Reception,
38701              Self,
38702              To);
38703
38704         when AMF.Internals.Tables.UML_Types.E_UML_Send_Signal_Action =>
38705            AMF.Internals.Links.Create_Link
38706             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Send_Signal_Action_Signal_Send_Signal_Action,
38707              Self,
38708              To);
38709
38710         when AMF.Internals.Tables.UML_Types.E_UML_Signal_Event =>
38711            AMF.Internals.Links.Create_Link
38712             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Signal_Event_Signal_Signal_Event,
38713              Self,
38714              To);
38715
38716         when others =>
38717            raise Program_Error;
38718      end case;
38719   end Internal_Set_Signal;
38720
38721   ----------------------------
38722   -- Internal_Set_Signature --
38723   ----------------------------
38724
38725   procedure Internal_Set_Signature
38726    (Self : AMF.Internals.AMF_Element;
38727     To   : AMF.Internals.AMF_Element) is
38728   begin
38729      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
38730         when AMF.Internals.Tables.UML_Types.E_UML_Classifier_Template_Parameter =>
38731            AMF.Internals.Links.Create_Link
38732             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Signature_Owned_Parameter_Signature,
38733              To,
38734              Self);
38735
38736         when AMF.Internals.Tables.UML_Types.E_UML_Connectable_Element_Template_Parameter =>
38737            AMF.Internals.Links.Create_Link
38738             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Signature_Owned_Parameter_Signature,
38739              To,
38740              Self);
38741
38742         when AMF.Internals.Tables.UML_Types.E_UML_Message =>
38743            AMF.Internals.Links.Create_Link
38744             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Message_Signature_Message,
38745              Self,
38746              To);
38747
38748         when AMF.Internals.Tables.UML_Types.E_UML_Operation_Template_Parameter =>
38749            AMF.Internals.Links.Create_Link
38750             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Signature_Owned_Parameter_Signature,
38751              To,
38752              Self);
38753
38754         when AMF.Internals.Tables.UML_Types.E_UML_Template_Binding =>
38755            AMF.Internals.Links.Create_Link
38756             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Binding_Signature_Template_Binding,
38757              Self,
38758              To);
38759
38760         when AMF.Internals.Tables.UML_Types.E_UML_Template_Parameter =>
38761            AMF.Internals.Links.Create_Link
38762             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Signature_Owned_Parameter_Signature,
38763              To,
38764              Self);
38765
38766         when others =>
38767            raise Program_Error;
38768      end case;
38769   end Internal_Set_Signature;
38770
38771   -------------------------
38772   -- Internal_Set_Source --
38773   -------------------------
38774
38775   procedure Internal_Set_Source
38776    (Self : AMF.Internals.AMF_Element;
38777     To   : AMF.Internals.AMF_Element) is
38778   begin
38779      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
38780         when AMF.Internals.Tables.UML_Types.E_UML_Control_Flow =>
38781            AMF.Internals.Links.Create_Link
38782             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Activity_Node_Outgoing_Source,
38783              To,
38784              Self);
38785
38786         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Edge =>
38787            AMF.Internals.Links.Create_Link
38788             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Edge_Source_Source_Edge,
38789              Self,
38790              To);
38791
38792         when AMF.Internals.Tables.UML_Types.E_UML_Object_Flow =>
38793            AMF.Internals.Links.Create_Link
38794             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Activity_Node_Outgoing_Source,
38795              To,
38796              Self);
38797
38798         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_Transition =>
38799            AMF.Internals.Links.Create_Link
38800             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Vertex_Outgoing_Source,
38801              To,
38802              Self);
38803
38804         when AMF.Internals.Tables.UML_Types.E_UML_Transition =>
38805            AMF.Internals.Links.Create_Link
38806             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Vertex_Outgoing_Source,
38807              To,
38808              Self);
38809
38810         when others =>
38811            raise Program_Error;
38812      end case;
38813   end Internal_Set_Source;
38814
38815   ---------------------------
38816   -- Internal_Set_Specific --
38817   ---------------------------
38818
38819   procedure Internal_Set_Specific
38820    (Self : AMF.Internals.AMF_Element;
38821     To   : AMF.Internals.AMF_Element) is
38822   begin
38823      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
38824         when AMF.Internals.Tables.UML_Types.E_UML_Generalization =>
38825            AMF.Internals.Links.Create_Link
38826             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Generalization_Specific,
38827              To,
38828              Self);
38829
38830         when others =>
38831            raise Program_Error;
38832      end case;
38833   end Internal_Set_Specific;
38834
38835   -----------------------------------
38836   -- Internal_Set_Specific_Machine --
38837   -----------------------------------
38838
38839   procedure Internal_Set_Specific_Machine
38840    (Self : AMF.Internals.AMF_Element;
38841     To   : AMF.Internals.AMF_Element) is
38842   begin
38843      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
38844         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_Conformance =>
38845            AMF.Internals.Links.Create_Link
38846             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Protocol_State_Machine_Conformance_Specific_Machine,
38847              To,
38848              Self);
38849
38850         when others =>
38851            raise Program_Error;
38852      end case;
38853   end Internal_Set_Specific_Machine;
38854
38855   --------------------------------
38856   -- Internal_Set_Specification --
38857   --------------------------------
38858
38859   procedure Internal_Set_Specification
38860    (Self : AMF.Internals.AMF_Element;
38861     To   : AMF.Internals.AMF_Element) is
38862   begin
38863      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
38864         when AMF.Internals.Tables.UML_Types.E_UML_Activity =>
38865            AMF.Internals.Links.Create_Link
38866             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Behavioral_Feature_Method_Specification,
38867              To,
38868              Self);
38869
38870         when AMF.Internals.Tables.UML_Types.E_UML_Constraint =>
38871            AMF.Internals.Links.Create_Link
38872             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Constraint_Specification_Owning_Constraint,
38873              Self,
38874              To);
38875
38876         when AMF.Internals.Tables.UML_Types.E_UML_Duration_Constraint =>
38877            AMF.Internals.Links.Create_Link
38878             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Constraint_Specification_Owning_Constraint,
38879              Self,
38880              To);
38881
38882         when AMF.Internals.Tables.UML_Types.E_UML_Enumeration_Literal =>
38883            AMF.Internals.Links.Create_Link
38884             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Instance_Specification_Specification_Owning_Instance_Spec,
38885              Self,
38886              To);
38887
38888         when AMF.Internals.Tables.UML_Types.E_UML_Function_Behavior =>
38889            AMF.Internals.Links.Create_Link
38890             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Behavioral_Feature_Method_Specification,
38891              To,
38892              Self);
38893
38894         when AMF.Internals.Tables.UML_Types.E_UML_Instance_Specification =>
38895            AMF.Internals.Links.Create_Link
38896             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Instance_Specification_Specification_Owning_Instance_Spec,
38897              Self,
38898              To);
38899
38900         when AMF.Internals.Tables.UML_Types.E_UML_Interaction =>
38901            AMF.Internals.Links.Create_Link
38902             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Behavioral_Feature_Method_Specification,
38903              To,
38904              Self);
38905
38906         when AMF.Internals.Tables.UML_Types.E_UML_Interaction_Constraint =>
38907            AMF.Internals.Links.Create_Link
38908             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Constraint_Specification_Owning_Constraint,
38909              Self,
38910              To);
38911
38912         when AMF.Internals.Tables.UML_Types.E_UML_Interval_Constraint =>
38913            AMF.Internals.Links.Create_Link
38914             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Constraint_Specification_Owning_Constraint,
38915              Self,
38916              To);
38917
38918         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Behavior =>
38919            AMF.Internals.Links.Create_Link
38920             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Behavioral_Feature_Method_Specification,
38921              To,
38922              Self);
38923
38924         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_State_Machine =>
38925            AMF.Internals.Links.Create_Link
38926             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Behavioral_Feature_Method_Specification,
38927              To,
38928              Self);
38929
38930         when AMF.Internals.Tables.UML_Types.E_UML_State_Machine =>
38931            AMF.Internals.Links.Create_Link
38932             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Behavioral_Feature_Method_Specification,
38933              To,
38934              Self);
38935
38936         when AMF.Internals.Tables.UML_Types.E_UML_Time_Constraint =>
38937            AMF.Internals.Links.Create_Link
38938             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Constraint_Specification_Owning_Constraint,
38939              Self,
38940              To);
38941
38942         when others =>
38943            raise Program_Error;
38944      end case;
38945   end Internal_Set_Specification;
38946
38947   ------------------------
38948   -- Internal_Set_Start --
38949   ------------------------
38950
38951   procedure Internal_Set_Start
38952    (Self : AMF.Internals.AMF_Element;
38953     To   : AMF.Internals.AMF_Element) is
38954   begin
38955      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
38956         when AMF.Internals.Tables.UML_Types.E_UML_Action_Execution_Specification =>
38957            AMF.Internals.Links.Create_Link
38958             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Execution_Specification_Start_Execution_Specification,
38959              Self,
38960              To);
38961
38962         when AMF.Internals.Tables.UML_Types.E_UML_Behavior_Execution_Specification =>
38963            AMF.Internals.Links.Create_Link
38964             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Execution_Specification_Start_Execution_Specification,
38965              Self,
38966              To);
38967
38968         when others =>
38969            raise Program_Error;
38970      end case;
38971   end Internal_Set_Start;
38972
38973   ------------------------
38974   -- Internal_Set_State --
38975   ------------------------
38976
38977   procedure Internal_Set_State
38978    (Self : AMF.Internals.AMF_Element;
38979     To   : AMF.Internals.AMF_Element) is
38980   begin
38981      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
38982         when AMF.Internals.Tables.UML_Types.E_UML_Connection_Point_Reference =>
38983            AMF.Internals.Links.Create_Link
38984             (AMF.Internals.Tables.UML_Metamodel.MA_UML_State_Connection_State,
38985              To,
38986              Self);
38987
38988         when AMF.Internals.Tables.UML_Types.E_UML_Pseudostate =>
38989            AMF.Internals.Links.Create_Link
38990             (AMF.Internals.Tables.UML_Metamodel.MA_UML_State_Connection_Point_State,
38991              To,
38992              Self);
38993
38994         when AMF.Internals.Tables.UML_Types.E_UML_Region =>
38995            AMF.Internals.Links.Create_Link
38996             (AMF.Internals.Tables.UML_Metamodel.MA_UML_State_Region_State,
38997              To,
38998              Self);
38999
39000         when others =>
39001            raise Program_Error;
39002      end case;
39003   end Internal_Set_State;
39004
39005   ----------------------------------
39006   -- Internal_Set_State_Invariant --
39007   ----------------------------------
39008
39009   procedure Internal_Set_State_Invariant
39010    (Self : AMF.Internals.AMF_Element;
39011     To   : AMF.Internals.AMF_Element) is
39012   begin
39013      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
39014         when AMF.Internals.Tables.UML_Types.E_UML_Final_State =>
39015            AMF.Internals.Links.Create_Link
39016             (AMF.Internals.Tables.UML_Metamodel.MA_UML_State_State_Invariant_Owning_State,
39017              Self,
39018              To);
39019
39020         when AMF.Internals.Tables.UML_Types.E_UML_State =>
39021            AMF.Internals.Links.Create_Link
39022             (AMF.Internals.Tables.UML_Metamodel.MA_UML_State_State_Invariant_Owning_State,
39023              Self,
39024              To);
39025
39026         when others =>
39027            raise Program_Error;
39028      end case;
39029   end Internal_Set_State_Invariant;
39030
39031   --------------------------------
39032   -- Internal_Set_State_Machine --
39033   --------------------------------
39034
39035   procedure Internal_Set_State_Machine
39036    (Self : AMF.Internals.AMF_Element;
39037     To   : AMF.Internals.AMF_Element) is
39038   begin
39039      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
39040         when AMF.Internals.Tables.UML_Types.E_UML_Pseudostate =>
39041            AMF.Internals.Links.Create_Link
39042             (AMF.Internals.Tables.UML_Metamodel.MA_UML_State_Machine_Connection_Point_State_Machine,
39043              To,
39044              Self);
39045
39046         when AMF.Internals.Tables.UML_Types.E_UML_Region =>
39047            AMF.Internals.Links.Create_Link
39048             (AMF.Internals.Tables.UML_Metamodel.MA_UML_State_Machine_Region_State_Machine,
39049              To,
39050              Self);
39051
39052         when others =>
39053            raise Program_Error;
39054      end case;
39055   end Internal_Set_State_Machine;
39056
39057   --------------------------------------
39058   -- Internal_Set_Stereotyped_Element --
39059   --------------------------------------
39060
39061   procedure Internal_Set_Stereotyped_Element
39062    (Self : AMF.Internals.AMF_Element;
39063     To   : AMF.Internals.AMF_Element) is
39064   begin
39065      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
39066         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Stereotype_Property_Value_Label =>
39067            AMF.Internals.Links.Create_Link
39068             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Stereotype_Property_Value_Label_Stereotyped_Element_Label_Showing_Stereotype_Value,
39069              Self,
39070              To);
39071
39072         when others =>
39073            raise Program_Error;
39074      end case;
39075   end Internal_Set_Stereotyped_Element;
39076
39077   -------------------------------------
39078   -- Internal_Set_Structural_Feature --
39079   -------------------------------------
39080
39081   procedure Internal_Set_Structural_Feature
39082    (Self : AMF.Internals.AMF_Element;
39083     To   : AMF.Internals.AMF_Element) is
39084   begin
39085      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
39086         when AMF.Internals.Tables.UML_Types.E_UML_Add_Structural_Feature_Value_Action =>
39087            AMF.Internals.Links.Create_Link
39088             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Structural_Feature_Action_Structural_Feature_Structural_Feature_Action,
39089              Self,
39090              To);
39091
39092         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Structural_Feature_Action =>
39093            AMF.Internals.Links.Create_Link
39094             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Structural_Feature_Action_Structural_Feature_Structural_Feature_Action,
39095              Self,
39096              To);
39097
39098         when AMF.Internals.Tables.UML_Types.E_UML_Read_Structural_Feature_Action =>
39099            AMF.Internals.Links.Create_Link
39100             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Structural_Feature_Action_Structural_Feature_Structural_Feature_Action,
39101              Self,
39102              To);
39103
39104         when AMF.Internals.Tables.UML_Types.E_UML_Remove_Structural_Feature_Value_Action =>
39105            AMF.Internals.Links.Create_Link
39106             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Structural_Feature_Action_Structural_Feature_Structural_Feature_Action,
39107              Self,
39108              To);
39109
39110         when others =>
39111            raise Program_Error;
39112      end case;
39113   end Internal_Set_Structural_Feature;
39114
39115   -----------------------------
39116   -- Internal_Set_Submachine --
39117   -----------------------------
39118
39119   procedure Internal_Set_Submachine
39120    (Self : AMF.Internals.AMF_Element;
39121     To   : AMF.Internals.AMF_Element) is
39122   begin
39123      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
39124         when AMF.Internals.Tables.UML_Types.E_UML_Final_State =>
39125            AMF.Internals.Links.Create_Link
39126             (AMF.Internals.Tables.UML_Metamodel.MA_UML_State_Machine_Submachine_State_Submachine,
39127              To,
39128              Self);
39129
39130         when AMF.Internals.Tables.UML_Types.E_UML_State =>
39131            AMF.Internals.Links.Create_Link
39132             (AMF.Internals.Tables.UML_Metamodel.MA_UML_State_Machine_Submachine_State_Submachine,
39133              To,
39134              Self);
39135
39136         when others =>
39137            raise Program_Error;
39138      end case;
39139   end Internal_Set_Submachine;
39140
39141   ------------------------------------------
39142   -- Internal_Set_Substituting_Classifier --
39143   ------------------------------------------
39144
39145   procedure Internal_Set_Substituting_Classifier
39146    (Self : AMF.Internals.AMF_Element;
39147     To   : AMF.Internals.AMF_Element) is
39148   begin
39149      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
39150         when AMF.Internals.Tables.UML_Types.E_UML_Substitution =>
39151            AMF.Internals.Links.Create_Link
39152             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Substitution_Substituting_Classifier,
39153              To,
39154              Self);
39155
39156         when others =>
39157            raise Program_Error;
39158      end case;
39159   end Internal_Set_Substituting_Classifier;
39160
39161   ----------------------------------
39162   -- Internal_Set_Super_Partition --
39163   ----------------------------------
39164
39165   procedure Internal_Set_Super_Partition
39166    (Self : AMF.Internals.AMF_Element;
39167     To   : AMF.Internals.AMF_Element) is
39168   begin
39169      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
39170         when AMF.Internals.Tables.UML_Types.E_UML_Activity_Partition =>
39171            AMF.Internals.Links.Create_Link
39172             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Activity_Partition_Subpartition_Super_Partition,
39173              To,
39174              Self);
39175
39176         when others =>
39177            raise Program_Error;
39178      end case;
39179   end Internal_Set_Super_Partition;
39180
39181   -------------------------
39182   -- Internal_Set_Symbol --
39183   -------------------------
39184
39185   procedure Internal_Set_Symbol
39186    (Self : AMF.Internals.AMF_Element;
39187     To   : Matreshka.Internals.Strings.Shared_String_Access)
39188   is
39189      Old : Matreshka.Internals.Strings.Shared_String_Access;
39190
39191   begin
39192      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).String_Value;
39193
39194      UML_Element_Table.Table (Self).Member (7).String_Value := To;
39195
39196      if UML_Element_Table.Table (Self).Member (7).String_Value /= null then
39197         Matreshka.Internals.Strings.Reference
39198          (UML_Element_Table.Table (Self).Member (7).String_Value);
39199      end if;
39200
39201      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
39202       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Expression_Symbol, Old, To);
39203
39204      if Old /= null then
39205         Matreshka.Internals.Strings.Reference (Old);
39206      end if;
39207   end Internal_Set_Symbol;
39208
39209   -------------------------
39210   -- Internal_Set_Target --
39211   -------------------------
39212
39213   procedure Internal_Set_Target
39214    (Self : AMF.Internals.AMF_Element;
39215     To   : AMF.Internals.AMF_Element) is
39216   begin
39217      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
39218         when AMF.Internals.Tables.UML_Types.E_UML_Call_Operation_Action =>
39219            AMF.Internals.Links.Create_Link
39220             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Call_Operation_Action_Target_Call_Operation_Action,
39221              Self,
39222              To);
39223
39224         when AMF.Internals.Tables.UML_Types.E_UML_Control_Flow =>
39225            AMF.Internals.Links.Create_Link
39226             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Activity_Node_Incoming_Target,
39227              To,
39228              Self);
39229
39230         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Edge =>
39231            AMF.Internals.Links.Create_Link
39232             (AMF.Internals.Tables.UMLDI_Metamodel.MA_UMLDI_UML_Edge_Target_Target_Edge,
39233              Self,
39234              To);
39235
39236         when AMF.Internals.Tables.UML_Types.E_UML_Destroy_Object_Action =>
39237            AMF.Internals.Links.Create_Link
39238             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Destroy_Object_Action_Target_Destroy_Object_Action,
39239              Self,
39240              To);
39241
39242         when AMF.Internals.Tables.UML_Types.E_UML_Object_Flow =>
39243            AMF.Internals.Links.Create_Link
39244             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Activity_Node_Incoming_Target,
39245              To,
39246              Self);
39247
39248         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_Transition =>
39249            AMF.Internals.Links.Create_Link
39250             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Vertex_Incoming_Target,
39251              To,
39252              Self);
39253
39254         when AMF.Internals.Tables.UML_Types.E_UML_Send_Object_Action =>
39255            AMF.Internals.Links.Create_Link
39256             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Send_Object_Action_Target_Send_Object_Action,
39257              Self,
39258              To);
39259
39260         when AMF.Internals.Tables.UML_Types.E_UML_Send_Signal_Action =>
39261            AMF.Internals.Links.Create_Link
39262             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Send_Signal_Action_Target_Send_Signal_Action,
39263              Self,
39264              To);
39265
39266         when AMF.Internals.Tables.UML_Types.E_UML_Transition =>
39267            AMF.Internals.Links.Create_Link
39268             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Vertex_Incoming_Target,
39269              To,
39270              Self);
39271
39272         when others =>
39273            raise Program_Error;
39274      end case;
39275   end Internal_Set_Target;
39276
39277   ---------------------------
39278   -- Internal_Set_Template --
39279   ---------------------------
39280
39281   procedure Internal_Set_Template
39282    (Self : AMF.Internals.AMF_Element;
39283     To   : AMF.Internals.AMF_Element) is
39284   begin
39285      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
39286         when AMF.Internals.Tables.UML_Types.E_UML_Redefinable_Template_Signature =>
39287            AMF.Internals.Links.Create_Link
39288             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Templateable_Element_Owned_Template_Signature_Template,
39289              To,
39290              Self);
39291
39292         when AMF.Internals.Tables.UML_Types.E_UML_Template_Signature =>
39293            AMF.Internals.Links.Create_Link
39294             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Templateable_Element_Owned_Template_Signature_Template,
39295              To,
39296              Self);
39297
39298         when others =>
39299            raise Program_Error;
39300      end case;
39301   end Internal_Set_Template;
39302
39303   -----------------------------------
39304   -- Internal_Set_Template_Binding --
39305   -----------------------------------
39306
39307   procedure Internal_Set_Template_Binding
39308    (Self : AMF.Internals.AMF_Element;
39309     To   : AMF.Internals.AMF_Element) is
39310   begin
39311      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
39312         when AMF.Internals.Tables.UML_Types.E_UML_Template_Parameter_Substitution =>
39313            AMF.Internals.Links.Create_Link
39314             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Binding_Parameter_Substitution_Template_Binding,
39315              To,
39316              Self);
39317
39318         when others =>
39319            raise Program_Error;
39320      end case;
39321   end Internal_Set_Template_Binding;
39322
39323   -------------------------------------
39324   -- Internal_Set_Template_Parameter --
39325   -------------------------------------
39326
39327   procedure Internal_Set_Template_Parameter
39328    (Self : AMF.Internals.AMF_Element;
39329     To   : AMF.Internals.AMF_Element) is
39330   begin
39331      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
39332         when AMF.Internals.Tables.UML_Types.E_UML_Abstraction =>
39333            AMF.Internals.Links.Create_Link
39334             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Parametered_Element_Template_Parameter,
39335              To,
39336              Self);
39337
39338         when AMF.Internals.Tables.UML_Types.E_UML_Activity =>
39339            AMF.Internals.Links.Create_Link
39340             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Template_Parameter_Parametered_Element,
39341              Self,
39342              To);
39343
39344         when AMF.Internals.Tables.UML_Types.E_UML_Actor =>
39345            AMF.Internals.Links.Create_Link
39346             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Template_Parameter_Parametered_Element,
39347              Self,
39348              To);
39349
39350         when AMF.Internals.Tables.UML_Types.E_UML_Any_Receive_Event =>
39351            AMF.Internals.Links.Create_Link
39352             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Parametered_Element_Template_Parameter,
39353              To,
39354              Self);
39355
39356         when AMF.Internals.Tables.UML_Types.E_UML_Artifact =>
39357            AMF.Internals.Links.Create_Link
39358             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Template_Parameter_Parametered_Element,
39359              Self,
39360              To);
39361
39362         when AMF.Internals.Tables.UML_Types.E_UML_Association =>
39363            AMF.Internals.Links.Create_Link
39364             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Template_Parameter_Parametered_Element,
39365              Self,
39366              To);
39367
39368         when AMF.Internals.Tables.UML_Types.E_UML_Association_Class =>
39369            AMF.Internals.Links.Create_Link
39370             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Template_Parameter_Parametered_Element,
39371              Self,
39372              To);
39373
39374         when AMF.Internals.Tables.UML_Types.E_UML_Call_Event =>
39375            AMF.Internals.Links.Create_Link
39376             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Parametered_Element_Template_Parameter,
39377              To,
39378              Self);
39379
39380         when AMF.Internals.Tables.UML_Types.E_UML_Change_Event =>
39381            AMF.Internals.Links.Create_Link
39382             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Parametered_Element_Template_Parameter,
39383              To,
39384              Self);
39385
39386         when AMF.Internals.Tables.UML_Types.E_UML_Class =>
39387            AMF.Internals.Links.Create_Link
39388             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Template_Parameter_Parametered_Element,
39389              Self,
39390              To);
39391
39392         when AMF.Internals.Tables.UML_Types.E_UML_Collaboration =>
39393            AMF.Internals.Links.Create_Link
39394             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Template_Parameter_Parametered_Element,
39395              Self,
39396              To);
39397
39398         when AMF.Internals.Tables.UML_Types.E_UML_Communication_Path =>
39399            AMF.Internals.Links.Create_Link
39400             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Template_Parameter_Parametered_Element,
39401              Self,
39402              To);
39403
39404         when AMF.Internals.Tables.UML_Types.E_UML_Component =>
39405            AMF.Internals.Links.Create_Link
39406             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Template_Parameter_Parametered_Element,
39407              Self,
39408              To);
39409
39410         when AMF.Internals.Tables.UML_Types.E_UML_Component_Realization =>
39411            AMF.Internals.Links.Create_Link
39412             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Parametered_Element_Template_Parameter,
39413              To,
39414              Self);
39415
39416         when AMF.Internals.Tables.UML_Types.E_UML_Constraint =>
39417            AMF.Internals.Links.Create_Link
39418             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Parametered_Element_Template_Parameter,
39419              To,
39420              Self);
39421
39422         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Activity_Diagram =>
39423            AMF.Internals.Links.Create_Link
39424             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Parametered_Element_Template_Parameter,
39425              To,
39426              Self);
39427
39428         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Class_Diagram =>
39429            AMF.Internals.Links.Create_Link
39430             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Parametered_Element_Template_Parameter,
39431              To,
39432              Self);
39433
39434         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Component_Diagram =>
39435            AMF.Internals.Links.Create_Link
39436             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Parametered_Element_Template_Parameter,
39437              To,
39438              Self);
39439
39440         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Composite_Structure_Diagram =>
39441            AMF.Internals.Links.Create_Link
39442             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Parametered_Element_Template_Parameter,
39443              To,
39444              Self);
39445
39446         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Deployment_Diagram =>
39447            AMF.Internals.Links.Create_Link
39448             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Parametered_Element_Template_Parameter,
39449              To,
39450              Self);
39451
39452         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Interaction_Diagram =>
39453            AMF.Internals.Links.Create_Link
39454             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Parametered_Element_Template_Parameter,
39455              To,
39456              Self);
39457
39458         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Object_Diagram =>
39459            AMF.Internals.Links.Create_Link
39460             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Parametered_Element_Template_Parameter,
39461              To,
39462              Self);
39463
39464         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Package_Diagram =>
39465            AMF.Internals.Links.Create_Link
39466             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Parametered_Element_Template_Parameter,
39467              To,
39468              Self);
39469
39470         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Profile_Diagram =>
39471            AMF.Internals.Links.Create_Link
39472             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Parametered_Element_Template_Parameter,
39473              To,
39474              Self);
39475
39476         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_State_Machine_Diagram =>
39477            AMF.Internals.Links.Create_Link
39478             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Parametered_Element_Template_Parameter,
39479              To,
39480              Self);
39481
39482         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Style =>
39483            AMF.Internals.Links.Create_Link
39484             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Parametered_Element_Template_Parameter,
39485              To,
39486              Self);
39487
39488         when AMF.Internals.Tables.UML_Types.E_UMLDI_UML_Use_Case_Diagram =>
39489            AMF.Internals.Links.Create_Link
39490             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Parametered_Element_Template_Parameter,
39491              To,
39492              Self);
39493
39494         when AMF.Internals.Tables.UML_Types.E_UML_Data_Type =>
39495            AMF.Internals.Links.Create_Link
39496             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Template_Parameter_Parametered_Element,
39497              Self,
39498              To);
39499
39500         when AMF.Internals.Tables.UML_Types.E_UML_Dependency =>
39501            AMF.Internals.Links.Create_Link
39502             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Parametered_Element_Template_Parameter,
39503              To,
39504              Self);
39505
39506         when AMF.Internals.Tables.UML_Types.E_UML_Deployment =>
39507            AMF.Internals.Links.Create_Link
39508             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Parametered_Element_Template_Parameter,
39509              To,
39510              Self);
39511
39512         when AMF.Internals.Tables.UML_Types.E_UML_Deployment_Specification =>
39513            AMF.Internals.Links.Create_Link
39514             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Template_Parameter_Parametered_Element,
39515              Self,
39516              To);
39517
39518         when AMF.Internals.Tables.UML_Types.E_UML_Device =>
39519            AMF.Internals.Links.Create_Link
39520             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Template_Parameter_Parametered_Element,
39521              Self,
39522              To);
39523
39524         when AMF.Internals.Tables.UML_Types.E_UML_Duration =>
39525            AMF.Internals.Links.Create_Link
39526             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Parametered_Element_Template_Parameter,
39527              To,
39528              Self);
39529
39530         when AMF.Internals.Tables.UML_Types.E_UML_Duration_Constraint =>
39531            AMF.Internals.Links.Create_Link
39532             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Parametered_Element_Template_Parameter,
39533              To,
39534              Self);
39535
39536         when AMF.Internals.Tables.UML_Types.E_UML_Duration_Interval =>
39537            AMF.Internals.Links.Create_Link
39538             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Parametered_Element_Template_Parameter,
39539              To,
39540              Self);
39541
39542         when AMF.Internals.Tables.UML_Types.E_UML_Duration_Observation =>
39543            AMF.Internals.Links.Create_Link
39544             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Parametered_Element_Template_Parameter,
39545              To,
39546              Self);
39547
39548         when AMF.Internals.Tables.UML_Types.E_UML_Enumeration =>
39549            AMF.Internals.Links.Create_Link
39550             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Template_Parameter_Parametered_Element,
39551              Self,
39552              To);
39553
39554         when AMF.Internals.Tables.UML_Types.E_UML_Enumeration_Literal =>
39555            AMF.Internals.Links.Create_Link
39556             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Parametered_Element_Template_Parameter,
39557              To,
39558              Self);
39559
39560         when AMF.Internals.Tables.UML_Types.E_UML_Execution_Environment =>
39561            AMF.Internals.Links.Create_Link
39562             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Template_Parameter_Parametered_Element,
39563              Self,
39564              To);
39565
39566         when AMF.Internals.Tables.UML_Types.E_UML_Expression =>
39567            AMF.Internals.Links.Create_Link
39568             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Parametered_Element_Template_Parameter,
39569              To,
39570              Self);
39571
39572         when AMF.Internals.Tables.UML_Types.E_UML_Extension =>
39573            AMF.Internals.Links.Create_Link
39574             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Template_Parameter_Parametered_Element,
39575              Self,
39576              To);
39577
39578         when AMF.Internals.Tables.UML_Types.E_UML_Extension_End =>
39579            AMF.Internals.Links.Create_Link
39580             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Connectable_Element_Template_Parameter_Parametered_Element,
39581              Self,
39582              To);
39583
39584         when AMF.Internals.Tables.UML_Types.E_UML_Function_Behavior =>
39585            AMF.Internals.Links.Create_Link
39586             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Template_Parameter_Parametered_Element,
39587              Self,
39588              To);
39589
39590         when AMF.Internals.Tables.UML_Types.E_UML_Generalization_Set =>
39591            AMF.Internals.Links.Create_Link
39592             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Parametered_Element_Template_Parameter,
39593              To,
39594              Self);
39595
39596         when AMF.Internals.Tables.UML_Types.E_UML_Information_Flow =>
39597            AMF.Internals.Links.Create_Link
39598             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Parametered_Element_Template_Parameter,
39599              To,
39600              Self);
39601
39602         when AMF.Internals.Tables.UML_Types.E_UML_Information_Item =>
39603            AMF.Internals.Links.Create_Link
39604             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Template_Parameter_Parametered_Element,
39605              Self,
39606              To);
39607
39608         when AMF.Internals.Tables.UML_Types.E_UML_Instance_Specification =>
39609            AMF.Internals.Links.Create_Link
39610             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Parametered_Element_Template_Parameter,
39611              To,
39612              Self);
39613
39614         when AMF.Internals.Tables.UML_Types.E_UML_Instance_Value =>
39615            AMF.Internals.Links.Create_Link
39616             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Parametered_Element_Template_Parameter,
39617              To,
39618              Self);
39619
39620         when AMF.Internals.Tables.UML_Types.E_UML_Interaction =>
39621            AMF.Internals.Links.Create_Link
39622             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Template_Parameter_Parametered_Element,
39623              Self,
39624              To);
39625
39626         when AMF.Internals.Tables.UML_Types.E_UML_Interaction_Constraint =>
39627            AMF.Internals.Links.Create_Link
39628             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Parametered_Element_Template_Parameter,
39629              To,
39630              Self);
39631
39632         when AMF.Internals.Tables.UML_Types.E_UML_Interface =>
39633            AMF.Internals.Links.Create_Link
39634             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Template_Parameter_Parametered_Element,
39635              Self,
39636              To);
39637
39638         when AMF.Internals.Tables.UML_Types.E_UML_Interface_Realization =>
39639            AMF.Internals.Links.Create_Link
39640             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Parametered_Element_Template_Parameter,
39641              To,
39642              Self);
39643
39644         when AMF.Internals.Tables.UML_Types.E_UML_Interval =>
39645            AMF.Internals.Links.Create_Link
39646             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Parametered_Element_Template_Parameter,
39647              To,
39648              Self);
39649
39650         when AMF.Internals.Tables.UML_Types.E_UML_Interval_Constraint =>
39651            AMF.Internals.Links.Create_Link
39652             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Parametered_Element_Template_Parameter,
39653              To,
39654              Self);
39655
39656         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Boolean =>
39657            AMF.Internals.Links.Create_Link
39658             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Parametered_Element_Template_Parameter,
39659              To,
39660              Self);
39661
39662         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Integer =>
39663            AMF.Internals.Links.Create_Link
39664             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Parametered_Element_Template_Parameter,
39665              To,
39666              Self);
39667
39668         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Null =>
39669            AMF.Internals.Links.Create_Link
39670             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Parametered_Element_Template_Parameter,
39671              To,
39672              Self);
39673
39674         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Real =>
39675            AMF.Internals.Links.Create_Link
39676             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Parametered_Element_Template_Parameter,
39677              To,
39678              Self);
39679
39680         when AMF.Internals.Tables.UML_Types.E_UML_Literal_String =>
39681            AMF.Internals.Links.Create_Link
39682             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Parametered_Element_Template_Parameter,
39683              To,
39684              Self);
39685
39686         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Unlimited_Natural =>
39687            AMF.Internals.Links.Create_Link
39688             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Parametered_Element_Template_Parameter,
39689              To,
39690              Self);
39691
39692         when AMF.Internals.Tables.UML_Types.E_UML_Manifestation =>
39693            AMF.Internals.Links.Create_Link
39694             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Parametered_Element_Template_Parameter,
39695              To,
39696              Self);
39697
39698         when AMF.Internals.Tables.UML_Types.E_UML_Model =>
39699            AMF.Internals.Links.Create_Link
39700             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Parametered_Element_Template_Parameter,
39701              To,
39702              Self);
39703
39704         when AMF.Internals.Tables.UML_Types.E_UML_Node =>
39705            AMF.Internals.Links.Create_Link
39706             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Template_Parameter_Parametered_Element,
39707              Self,
39708              To);
39709
39710         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Behavior =>
39711            AMF.Internals.Links.Create_Link
39712             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Template_Parameter_Parametered_Element,
39713              Self,
39714              To);
39715
39716         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Expression =>
39717            AMF.Internals.Links.Create_Link
39718             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Parametered_Element_Template_Parameter,
39719              To,
39720              Self);
39721
39722         when AMF.Internals.Tables.UML_Types.E_UML_Operation =>
39723            AMF.Internals.Links.Create_Link
39724             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Operation_Template_Parameter_Parametered_Element,
39725              Self,
39726              To);
39727
39728         when AMF.Internals.Tables.UML_Types.E_UML_Package =>
39729            AMF.Internals.Links.Create_Link
39730             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Parametered_Element_Template_Parameter,
39731              To,
39732              Self);
39733
39734         when AMF.Internals.Tables.UML_Types.E_UML_Parameter =>
39735            AMF.Internals.Links.Create_Link
39736             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Connectable_Element_Template_Parameter_Parametered_Element,
39737              Self,
39738              To);
39739
39740         when AMF.Internals.Tables.UML_Types.E_UML_Port =>
39741            AMF.Internals.Links.Create_Link
39742             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Connectable_Element_Template_Parameter_Parametered_Element,
39743              Self,
39744              To);
39745
39746         when AMF.Internals.Tables.UML_Types.E_UML_Primitive_Type =>
39747            AMF.Internals.Links.Create_Link
39748             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Template_Parameter_Parametered_Element,
39749              Self,
39750              To);
39751
39752         when AMF.Internals.Tables.UML_Types.E_UML_Profile =>
39753            AMF.Internals.Links.Create_Link
39754             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Parametered_Element_Template_Parameter,
39755              To,
39756              Self);
39757
39758         when AMF.Internals.Tables.UML_Types.E_UML_Property =>
39759            AMF.Internals.Links.Create_Link
39760             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Connectable_Element_Template_Parameter_Parametered_Element,
39761              Self,
39762              To);
39763
39764         when AMF.Internals.Tables.UML_Types.E_UML_Protocol_State_Machine =>
39765            AMF.Internals.Links.Create_Link
39766             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Template_Parameter_Parametered_Element,
39767              Self,
39768              To);
39769
39770         when AMF.Internals.Tables.UML_Types.E_UML_Realization =>
39771            AMF.Internals.Links.Create_Link
39772             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Parametered_Element_Template_Parameter,
39773              To,
39774              Self);
39775
39776         when AMF.Internals.Tables.UML_Types.E_UML_Signal =>
39777            AMF.Internals.Links.Create_Link
39778             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Template_Parameter_Parametered_Element,
39779              Self,
39780              To);
39781
39782         when AMF.Internals.Tables.UML_Types.E_UML_Signal_Event =>
39783            AMF.Internals.Links.Create_Link
39784             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Parametered_Element_Template_Parameter,
39785              To,
39786              Self);
39787
39788         when AMF.Internals.Tables.UML_Types.E_UML_State_Machine =>
39789            AMF.Internals.Links.Create_Link
39790             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Template_Parameter_Parametered_Element,
39791              Self,
39792              To);
39793
39794         when AMF.Internals.Tables.UML_Types.E_UML_Stereotype =>
39795            AMF.Internals.Links.Create_Link
39796             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Template_Parameter_Parametered_Element,
39797              Self,
39798              To);
39799
39800         when AMF.Internals.Tables.UML_Types.E_UML_String_Expression =>
39801            AMF.Internals.Links.Create_Link
39802             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Parametered_Element_Template_Parameter,
39803              To,
39804              Self);
39805
39806         when AMF.Internals.Tables.UML_Types.E_UML_Substitution =>
39807            AMF.Internals.Links.Create_Link
39808             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Parametered_Element_Template_Parameter,
39809              To,
39810              Self);
39811
39812         when AMF.Internals.Tables.UML_Types.E_UML_Time_Constraint =>
39813            AMF.Internals.Links.Create_Link
39814             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Parametered_Element_Template_Parameter,
39815              To,
39816              Self);
39817
39818         when AMF.Internals.Tables.UML_Types.E_UML_Time_Event =>
39819            AMF.Internals.Links.Create_Link
39820             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Parametered_Element_Template_Parameter,
39821              To,
39822              Self);
39823
39824         when AMF.Internals.Tables.UML_Types.E_UML_Time_Expression =>
39825            AMF.Internals.Links.Create_Link
39826             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Parametered_Element_Template_Parameter,
39827              To,
39828              Self);
39829
39830         when AMF.Internals.Tables.UML_Types.E_UML_Time_Interval =>
39831            AMF.Internals.Links.Create_Link
39832             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Parametered_Element_Template_Parameter,
39833              To,
39834              Self);
39835
39836         when AMF.Internals.Tables.UML_Types.E_UML_Time_Observation =>
39837            AMF.Internals.Links.Create_Link
39838             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Parametered_Element_Template_Parameter,
39839              To,
39840              Self);
39841
39842         when AMF.Internals.Tables.UML_Types.E_UML_Usage =>
39843            AMF.Internals.Links.Create_Link
39844             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Template_Parameter_Parametered_Element_Template_Parameter,
39845              To,
39846              Self);
39847
39848         when AMF.Internals.Tables.UML_Types.E_UML_Use_Case =>
39849            AMF.Internals.Links.Create_Link
39850             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Classifier_Template_Parameter_Parametered_Element,
39851              Self,
39852              To);
39853
39854         when AMF.Internals.Tables.UML_Types.E_UML_Variable =>
39855            AMF.Internals.Links.Create_Link
39856             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Connectable_Element_Template_Parameter_Parametered_Element,
39857              Self,
39858              To);
39859
39860         when others =>
39861            raise Program_Error;
39862      end case;
39863   end Internal_Set_Template_Parameter;
39864
39865   -----------------------
39866   -- Internal_Set_Text --
39867   -----------------------
39868
39869   procedure Internal_Set_Text
39870    (Self : AMF.Internals.AMF_Element;
39871     To   : Matreshka.Internals.Strings.Shared_String_Access)
39872   is
39873      Old : Matreshka.Internals.Strings.Shared_String_Access;
39874
39875   begin
39876      Old :=
39877        AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (1).String_Value;
39878
39879      UML_Element_Table.Table (Self).Member (1).String_Value := To;
39880      Matreshka.Internals.Strings.Reference
39881       (UML_Element_Table.Table (Self).Member (1).String_Value);
39882
39883      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
39884       (Self, AMF.Internals.Tables.UMLDI_Metamodel.MP_UMLDI_UML_Label_Text, Old, To);
39885      Matreshka.Internals.Strings.Dereference (Old);
39886   end Internal_Set_Text;
39887
39888   ---------------------------------
39889   -- Internal_Set_Transformation --
39890   ---------------------------------
39891
39892   procedure Internal_Set_Transformation
39893    (Self : AMF.Internals.AMF_Element;
39894     To   : AMF.Internals.AMF_Element) is
39895   begin
39896      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
39897         when AMF.Internals.Tables.UML_Types.E_UML_Object_Flow =>
39898            AMF.Internals.Links.Create_Link
39899             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Object_Flow_Transformation_Object_Flow,
39900              Self,
39901              To);
39902
39903         when others =>
39904            raise Program_Error;
39905      end case;
39906   end Internal_Set_Transformation;
39907
39908   -----------------------
39909   -- Internal_Set_Type --
39910   -----------------------
39911
39912   procedure Internal_Set_Type
39913    (Self : AMF.Internals.AMF_Element;
39914     To   : AMF.Internals.AMF_Element) is
39915   begin
39916      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
39917         when AMF.Internals.Tables.UML_Types.E_UML_Action_Input_Pin =>
39918            AMF.Internals.Links.Create_Link
39919             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Typed_Element_Type_Typed_Element,
39920              Self,
39921              To);
39922
39923         when AMF.Internals.Tables.UML_Types.E_UML_Activity_Parameter_Node =>
39924            AMF.Internals.Links.Create_Link
39925             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Typed_Element_Type_Typed_Element,
39926              Self,
39927              To);
39928
39929         when AMF.Internals.Tables.UML_Types.E_UML_Central_Buffer_Node =>
39930            AMF.Internals.Links.Create_Link
39931             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Typed_Element_Type_Typed_Element,
39932              Self,
39933              To);
39934
39935         when AMF.Internals.Tables.UML_Types.E_UML_Collaboration_Use =>
39936            AMF.Internals.Links.Create_Link
39937             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Collaboration_Use_Type_Collaboration_Use,
39938              Self,
39939              To);
39940
39941         when AMF.Internals.Tables.UML_Types.E_UML_Connector =>
39942            AMF.Internals.Links.Create_Link
39943             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Connector_Type_Connector,
39944              Self,
39945              To);
39946
39947         when AMF.Internals.Tables.UML_Types.E_UML_Data_Store_Node =>
39948            AMF.Internals.Links.Create_Link
39949             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Typed_Element_Type_Typed_Element,
39950              Self,
39951              To);
39952
39953         when AMF.Internals.Tables.UML_Types.E_UML_Duration =>
39954            AMF.Internals.Links.Create_Link
39955             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Typed_Element_Type_Typed_Element,
39956              Self,
39957              To);
39958
39959         when AMF.Internals.Tables.UML_Types.E_UML_Duration_Interval =>
39960            AMF.Internals.Links.Create_Link
39961             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Typed_Element_Type_Typed_Element,
39962              Self,
39963              To);
39964
39965         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Node =>
39966            AMF.Internals.Links.Create_Link
39967             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Typed_Element_Type_Typed_Element,
39968              Self,
39969              To);
39970
39971         when AMF.Internals.Tables.UML_Types.E_UML_Expression =>
39972            AMF.Internals.Links.Create_Link
39973             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Typed_Element_Type_Typed_Element,
39974              Self,
39975              To);
39976
39977         when AMF.Internals.Tables.UML_Types.E_UML_Extension_End =>
39978            AMF.Internals.Links.Create_Link
39979             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Extension_End_Type_Extension_End,
39980              Self,
39981              To);
39982
39983         when AMF.Internals.Tables.UML_Types.E_UML_Input_Pin =>
39984            AMF.Internals.Links.Create_Link
39985             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Typed_Element_Type_Typed_Element,
39986              Self,
39987              To);
39988
39989         when AMF.Internals.Tables.UML_Types.E_UML_Instance_Value =>
39990            AMF.Internals.Links.Create_Link
39991             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Typed_Element_Type_Typed_Element,
39992              Self,
39993              To);
39994
39995         when AMF.Internals.Tables.UML_Types.E_UML_Interval =>
39996            AMF.Internals.Links.Create_Link
39997             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Typed_Element_Type_Typed_Element,
39998              Self,
39999              To);
40000
40001         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Boolean =>
40002            AMF.Internals.Links.Create_Link
40003             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Typed_Element_Type_Typed_Element,
40004              Self,
40005              To);
40006
40007         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Integer =>
40008            AMF.Internals.Links.Create_Link
40009             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Typed_Element_Type_Typed_Element,
40010              Self,
40011              To);
40012
40013         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Null =>
40014            AMF.Internals.Links.Create_Link
40015             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Typed_Element_Type_Typed_Element,
40016              Self,
40017              To);
40018
40019         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Real =>
40020            AMF.Internals.Links.Create_Link
40021             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Typed_Element_Type_Typed_Element,
40022              Self,
40023              To);
40024
40025         when AMF.Internals.Tables.UML_Types.E_UML_Literal_String =>
40026            AMF.Internals.Links.Create_Link
40027             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Typed_Element_Type_Typed_Element,
40028              Self,
40029              To);
40030
40031         when AMF.Internals.Tables.UML_Types.E_UML_Literal_Unlimited_Natural =>
40032            AMF.Internals.Links.Create_Link
40033             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Typed_Element_Type_Typed_Element,
40034              Self,
40035              To);
40036
40037         when AMF.Internals.Tables.UML_Types.E_UML_Opaque_Expression =>
40038            AMF.Internals.Links.Create_Link
40039             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Typed_Element_Type_Typed_Element,
40040              Self,
40041              To);
40042
40043         when AMF.Internals.Tables.UML_Types.E_UML_Operation =>
40044            AMF.Internals.Links.Create_Link
40045             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Operation_Type_Operation,
40046              Self,
40047              To);
40048
40049         when AMF.Internals.Tables.UML_Types.E_UML_Output_Pin =>
40050            AMF.Internals.Links.Create_Link
40051             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Typed_Element_Type_Typed_Element,
40052              Self,
40053              To);
40054
40055         when AMF.Internals.Tables.UML_Types.E_UML_Parameter =>
40056            AMF.Internals.Links.Create_Link
40057             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Typed_Element_Type_Typed_Element,
40058              Self,
40059              To);
40060
40061         when AMF.Internals.Tables.UML_Types.E_UML_Port =>
40062            AMF.Internals.Links.Create_Link
40063             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Typed_Element_Type_Typed_Element,
40064              Self,
40065              To);
40066
40067         when AMF.Internals.Tables.UML_Types.E_UML_Property =>
40068            AMF.Internals.Links.Create_Link
40069             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Typed_Element_Type_Typed_Element,
40070              Self,
40071              To);
40072
40073         when AMF.Internals.Tables.UML_Types.E_UML_String_Expression =>
40074            AMF.Internals.Links.Create_Link
40075             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Typed_Element_Type_Typed_Element,
40076              Self,
40077              To);
40078
40079         when AMF.Internals.Tables.UML_Types.E_UML_Time_Expression =>
40080            AMF.Internals.Links.Create_Link
40081             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Typed_Element_Type_Typed_Element,
40082              Self,
40083              To);
40084
40085         when AMF.Internals.Tables.UML_Types.E_UML_Time_Interval =>
40086            AMF.Internals.Links.Create_Link
40087             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Typed_Element_Type_Typed_Element,
40088              Self,
40089              To);
40090
40091         when AMF.Internals.Tables.UML_Types.E_UML_Value_Pin =>
40092            AMF.Internals.Links.Create_Link
40093             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Typed_Element_Type_Typed_Element,
40094              Self,
40095              To);
40096
40097         when AMF.Internals.Tables.UML_Types.E_UML_Variable =>
40098            AMF.Internals.Links.Create_Link
40099             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Typed_Element_Type_Typed_Element,
40100              Self,
40101              To);
40102
40103         when others =>
40104            raise Program_Error;
40105      end case;
40106   end Internal_Set_Type;
40107
40108   ----------------------------------
40109   -- Internal_Set_Unmarshall_Type --
40110   ----------------------------------
40111
40112   procedure Internal_Set_Unmarshall_Type
40113    (Self : AMF.Internals.AMF_Element;
40114     To   : AMF.Internals.AMF_Element) is
40115   begin
40116      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
40117         when AMF.Internals.Tables.UML_Types.E_UML_Unmarshall_Action =>
40118            AMF.Internals.Links.Create_Link
40119             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Unmarshall_Action_Unmarshall_Type_Unmarshall_Action,
40120              Self,
40121              To);
40122
40123         when others =>
40124            raise Program_Error;
40125      end case;
40126   end Internal_Set_Unmarshall_Type;
40127
40128   ------------------------
40129   -- Internal_Set_Upper --
40130   ------------------------
40131
40132   procedure Internal_Set_Upper
40133    (Self : AMF.Internals.AMF_Element;
40134     To   : AMF.Optional_Unlimited_Natural)
40135   is
40136      Old : AMF.Optional_Unlimited_Natural;
40137
40138   begin
40139      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (15).Unlimited_Natural_Holder;
40140      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (15).Unlimited_Natural_Holder := To;
40141
40142      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
40143       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Multiplicity_Element_Upper, Old, To);
40144   end Internal_Set_Upper;
40145
40146   ------------------------------
40147   -- Internal_Set_Upper_Bound --
40148   ------------------------------
40149
40150   procedure Internal_Set_Upper_Bound
40151    (Self : AMF.Internals.AMF_Element;
40152     To   : AMF.Internals.AMF_Element) is
40153   begin
40154      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
40155         when AMF.Internals.Tables.UML_Types.E_UML_Action_Input_Pin =>
40156            AMF.Internals.Links.Create_Link
40157             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Object_Node_Upper_Bound_Object_Node,
40158              Self,
40159              To);
40160
40161         when AMF.Internals.Tables.UML_Types.E_UML_Activity_Parameter_Node =>
40162            AMF.Internals.Links.Create_Link
40163             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Object_Node_Upper_Bound_Object_Node,
40164              Self,
40165              To);
40166
40167         when AMF.Internals.Tables.UML_Types.E_UML_Central_Buffer_Node =>
40168            AMF.Internals.Links.Create_Link
40169             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Object_Node_Upper_Bound_Object_Node,
40170              Self,
40171              To);
40172
40173         when AMF.Internals.Tables.UML_Types.E_UML_Data_Store_Node =>
40174            AMF.Internals.Links.Create_Link
40175             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Object_Node_Upper_Bound_Object_Node,
40176              Self,
40177              To);
40178
40179         when AMF.Internals.Tables.UML_Types.E_UML_Expansion_Node =>
40180            AMF.Internals.Links.Create_Link
40181             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Object_Node_Upper_Bound_Object_Node,
40182              Self,
40183              To);
40184
40185         when AMF.Internals.Tables.UML_Types.E_UML_Input_Pin =>
40186            AMF.Internals.Links.Create_Link
40187             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Object_Node_Upper_Bound_Object_Node,
40188              Self,
40189              To);
40190
40191         when AMF.Internals.Tables.UML_Types.E_UML_Output_Pin =>
40192            AMF.Internals.Links.Create_Link
40193             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Object_Node_Upper_Bound_Object_Node,
40194              Self,
40195              To);
40196
40197         when AMF.Internals.Tables.UML_Types.E_UML_Value_Pin =>
40198            AMF.Internals.Links.Create_Link
40199             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Object_Node_Upper_Bound_Object_Node,
40200              Self,
40201              To);
40202
40203         when others =>
40204            raise Program_Error;
40205      end case;
40206   end Internal_Set_Upper_Bound;
40207
40208   ------------------------------
40209   -- Internal_Set_Upper_Value --
40210   ------------------------------
40211
40212   procedure Internal_Set_Upper_Value
40213    (Self : AMF.Internals.AMF_Element;
40214     To   : AMF.Internals.AMF_Element) is
40215   begin
40216      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
40217         when AMF.Internals.Tables.UML_Types.E_UML_Action_Input_Pin =>
40218            AMF.Internals.Links.Create_Link
40219             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Multiplicity_Element_Upper_Value_Owning_Upper,
40220              Self,
40221              To);
40222
40223         when AMF.Internals.Tables.UML_Types.E_UML_Connector_End =>
40224            AMF.Internals.Links.Create_Link
40225             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Multiplicity_Element_Upper_Value_Owning_Upper,
40226              Self,
40227              To);
40228
40229         when AMF.Internals.Tables.UML_Types.E_UML_Extension_End =>
40230            AMF.Internals.Links.Create_Link
40231             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Multiplicity_Element_Upper_Value_Owning_Upper,
40232              Self,
40233              To);
40234
40235         when AMF.Internals.Tables.UML_Types.E_UML_Input_Pin =>
40236            AMF.Internals.Links.Create_Link
40237             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Multiplicity_Element_Upper_Value_Owning_Upper,
40238              Self,
40239              To);
40240
40241         when AMF.Internals.Tables.UML_Types.E_UML_Output_Pin =>
40242            AMF.Internals.Links.Create_Link
40243             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Multiplicity_Element_Upper_Value_Owning_Upper,
40244              Self,
40245              To);
40246
40247         when AMF.Internals.Tables.UML_Types.E_UML_Parameter =>
40248            AMF.Internals.Links.Create_Link
40249             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Multiplicity_Element_Upper_Value_Owning_Upper,
40250              Self,
40251              To);
40252
40253         when AMF.Internals.Tables.UML_Types.E_UML_Port =>
40254            AMF.Internals.Links.Create_Link
40255             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Multiplicity_Element_Upper_Value_Owning_Upper,
40256              Self,
40257              To);
40258
40259         when AMF.Internals.Tables.UML_Types.E_UML_Property =>
40260            AMF.Internals.Links.Create_Link
40261             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Multiplicity_Element_Upper_Value_Owning_Upper,
40262              Self,
40263              To);
40264
40265         when AMF.Internals.Tables.UML_Types.E_UML_Value_Pin =>
40266            AMF.Internals.Links.Create_Link
40267             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Multiplicity_Element_Upper_Value_Owning_Upper,
40268              Self,
40269              To);
40270
40271         when AMF.Internals.Tables.UML_Types.E_UML_Variable =>
40272            AMF.Internals.Links.Create_Link
40273             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Multiplicity_Element_Upper_Value_Owning_Upper,
40274              Self,
40275              To);
40276
40277         when others =>
40278            raise Program_Error;
40279      end case;
40280   end Internal_Set_Upper_Value;
40281
40282   ---------------------------
40283   -- Internal_Set_Use_Case --
40284   ---------------------------
40285
40286   procedure Internal_Set_Use_Case
40287    (Self : AMF.Internals.AMF_Element;
40288     To   : AMF.Internals.AMF_Element) is
40289   begin
40290      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
40291         when AMF.Internals.Tables.UML_Types.E_UML_Extension_Point =>
40292            AMF.Internals.Links.Create_Link
40293             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Use_Case_Extension_Point_Use_Case,
40294              To,
40295              Self);
40296
40297         when others =>
40298            raise Program_Error;
40299      end case;
40300   end Internal_Set_Use_Case;
40301
40302   -----------------------------------
40303   -- Internal_Set_Utilized_Element --
40304   -----------------------------------
40305
40306   procedure Internal_Set_Utilized_Element
40307    (Self : AMF.Internals.AMF_Element;
40308     To   : AMF.Internals.AMF_Element) is
40309   begin
40310      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
40311         when AMF.Internals.Tables.UML_Types.E_UML_Manifestation =>
40312            AMF.Internals.Links.Create_Link
40313             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Manifestation_Utilized_Element_Manifestation,
40314              Self,
40315              To);
40316
40317         when others =>
40318            raise Program_Error;
40319      end case;
40320   end Internal_Set_Utilized_Element;
40321
40322   ------------------------
40323   -- Internal_Set_Value --
40324   ------------------------
40325
40326   procedure Internal_Set_Value
40327    (Self : AMF.Internals.AMF_Element;
40328     To   : Boolean)
40329   is
40330      Old : Boolean;
40331
40332   begin
40333      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Boolean_Value;
40334      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Boolean_Value := To;
40335
40336      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
40337       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Literal_Boolean_Value, Old, To);
40338   end Internal_Set_Value;
40339
40340   ------------------------
40341   -- Internal_Set_Value --
40342   ------------------------
40343
40344   procedure Internal_Set_Value
40345    (Self : AMF.Internals.AMF_Element;
40346     To   : Integer)
40347   is
40348      Old : Integer;
40349
40350   begin
40351      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Integer_Value;
40352      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Integer_Value := To;
40353
40354      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
40355       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Literal_Integer_Value, Old, To);
40356   end Internal_Set_Value;
40357
40358   ------------------------
40359   -- Internal_Set_Value --
40360   ------------------------
40361
40362   procedure Internal_Set_Value
40363    (Self : AMF.Internals.AMF_Element;
40364     To   : AMF.Real)
40365   is
40366      Old : AMF.Real;
40367
40368   begin
40369      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Real_Value;
40370      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Real_Value := To;
40371
40372      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
40373       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Literal_Real_Value, Old, To);
40374   end Internal_Set_Value;
40375
40376   ------------------------
40377   -- Internal_Set_Value --
40378   ------------------------
40379
40380   procedure Internal_Set_Value
40381    (Self : AMF.Internals.AMF_Element;
40382     To   : Matreshka.Internals.Strings.Shared_String_Access)
40383   is
40384      Old : Matreshka.Internals.Strings.Shared_String_Access;
40385
40386   begin
40387      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).String_Value;
40388
40389      UML_Element_Table.Table (Self).Member (7).String_Value := To;
40390
40391      if UML_Element_Table.Table (Self).Member (7).String_Value /= null then
40392         Matreshka.Internals.Strings.Reference
40393          (UML_Element_Table.Table (Self).Member (7).String_Value);
40394      end if;
40395
40396      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
40397       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Literal_String_Value, Old, To);
40398
40399      if Old /= null then
40400         Matreshka.Internals.Strings.Reference (Old);
40401      end if;
40402   end Internal_Set_Value;
40403
40404   ------------------------
40405   -- Internal_Set_Value --
40406   ------------------------
40407
40408   procedure Internal_Set_Value
40409    (Self : AMF.Internals.AMF_Element;
40410     To   : AMF.Unlimited_Natural)
40411   is
40412      Old : AMF.Unlimited_Natural;
40413
40414   begin
40415      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Unlimited_Natural_Value;
40416      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (7).Unlimited_Natural_Value := To;
40417
40418      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
40419       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Literal_Unlimited_Natural_Value, Old, To);
40420   end Internal_Set_Value;
40421
40422   ------------------------
40423   -- Internal_Set_Value --
40424   ------------------------
40425
40426   procedure Internal_Set_Value
40427    (Self : AMF.Internals.AMF_Element;
40428     To   : AMF.Internals.AMF_Element) is
40429   begin
40430      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
40431         when AMF.Internals.Tables.UML_Types.E_UML_Add_Structural_Feature_Value_Action =>
40432            AMF.Internals.Links.Create_Link
40433             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Write_Structural_Feature_Action_Value_Write_Structural_Feature_Action,
40434              Self,
40435              To);
40436
40437         when AMF.Internals.Tables.UML_Types.E_UML_Add_Variable_Value_Action =>
40438            AMF.Internals.Links.Create_Link
40439             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Write_Variable_Action_Value_Write_Variable_Action,
40440              Self,
40441              To);
40442
40443         when AMF.Internals.Tables.UML_Types.E_UML_Link_End_Creation_Data =>
40444            AMF.Internals.Links.Create_Link
40445             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Link_End_Data_Value_Link_End_Data,
40446              Self,
40447              To);
40448
40449         when AMF.Internals.Tables.UML_Types.E_UML_Link_End_Data =>
40450            AMF.Internals.Links.Create_Link
40451             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Link_End_Data_Value_Link_End_Data,
40452              Self,
40453              To);
40454
40455         when AMF.Internals.Tables.UML_Types.E_UML_Link_End_Destruction_Data =>
40456            AMF.Internals.Links.Create_Link
40457             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Link_End_Data_Value_Link_End_Data,
40458              Self,
40459              To);
40460
40461         when AMF.Internals.Tables.UML_Types.E_UML_Qualifier_Value =>
40462            AMF.Internals.Links.Create_Link
40463             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Qualifier_Value_Value_Qualifier_Value,
40464              Self,
40465              To);
40466
40467         when AMF.Internals.Tables.UML_Types.E_UML_Remove_Structural_Feature_Value_Action =>
40468            AMF.Internals.Links.Create_Link
40469             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Write_Structural_Feature_Action_Value_Write_Structural_Feature_Action,
40470              Self,
40471              To);
40472
40473         when AMF.Internals.Tables.UML_Types.E_UML_Remove_Variable_Value_Action =>
40474            AMF.Internals.Links.Create_Link
40475             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Write_Variable_Action_Value_Write_Variable_Action,
40476              Self,
40477              To);
40478
40479         when AMF.Internals.Tables.UML_Types.E_UML_Value_Pin =>
40480            AMF.Internals.Links.Create_Link
40481             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Value_Pin_Value_Value_Pin,
40482              Self,
40483              To);
40484
40485         when AMF.Internals.Tables.UML_Types.E_UML_Value_Specification_Action =>
40486            AMF.Internals.Links.Create_Link
40487             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Value_Specification_Action_Value_Value_Specification_Action,
40488              Self,
40489              To);
40490
40491         when others =>
40492            raise Program_Error;
40493      end case;
40494   end Internal_Set_Value;
40495
40496   ---------------------------
40497   -- Internal_Set_Variable --
40498   ---------------------------
40499
40500   procedure Internal_Set_Variable
40501    (Self : AMF.Internals.AMF_Element;
40502     To   : AMF.Internals.AMF_Element) is
40503   begin
40504      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
40505         when AMF.Internals.Tables.UML_Types.E_UML_Add_Variable_Value_Action =>
40506            AMF.Internals.Links.Create_Link
40507             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Variable_Action_Variable_Variable_Action,
40508              Self,
40509              To);
40510
40511         when AMF.Internals.Tables.UML_Types.E_UML_Clear_Variable_Action =>
40512            AMF.Internals.Links.Create_Link
40513             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Variable_Action_Variable_Variable_Action,
40514              Self,
40515              To);
40516
40517         when AMF.Internals.Tables.UML_Types.E_UML_Read_Variable_Action =>
40518            AMF.Internals.Links.Create_Link
40519             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Variable_Action_Variable_Variable_Action,
40520              Self,
40521              To);
40522
40523         when AMF.Internals.Tables.UML_Types.E_UML_Remove_Variable_Value_Action =>
40524            AMF.Internals.Links.Create_Link
40525             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Variable_Action_Variable_Variable_Action,
40526              Self,
40527              To);
40528
40529         when others =>
40530            raise Program_Error;
40531      end case;
40532   end Internal_Set_Variable;
40533
40534   ----------------------------
40535   -- Internal_Set_Viewpoint --
40536   ----------------------------
40537
40538   procedure Internal_Set_Viewpoint
40539    (Self : AMF.Internals.AMF_Element;
40540     To   : Matreshka.Internals.Strings.Shared_String_Access)
40541   is
40542      Old : Matreshka.Internals.Strings.Shared_String_Access;
40543
40544   begin
40545      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (12).String_Value;
40546
40547      UML_Element_Table.Table (Self).Member (12).String_Value := To;
40548
40549      if UML_Element_Table.Table (Self).Member (12).String_Value /= null then
40550         Matreshka.Internals.Strings.Reference
40551          (UML_Element_Table.Table (Self).Member (12).String_Value);
40552      end if;
40553
40554      AMF.Internals.Tables.Primitive_Types_Notification.Notify_Attribute_Set
40555       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Model_Viewpoint, Old, To);
40556
40557      if Old /= null then
40558         Matreshka.Internals.Strings.Reference (Old);
40559      end if;
40560   end Internal_Set_Viewpoint;
40561
40562   -----------------------------
40563   -- Internal_Set_Visibility --
40564   -----------------------------
40565
40566   procedure Internal_Set_Visibility
40567    (Self : AMF.Internals.AMF_Element;
40568     To   : AMF.UML.UML_Visibility_Kind)
40569   is
40570      Old : AMF.UML.UML_Visibility_Kind;
40571
40572   begin
40573      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (2).Visibility_Kind_Value;
40574      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (2).Visibility_Kind_Value := To;
40575
40576      AMF.Internals.Tables.UML_Notification.Notify_Attribute_Set
40577       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Element_Import_Visibility, Old, To);
40578   end Internal_Set_Visibility;
40579
40580   -----------------------------
40581   -- Internal_Set_Visibility --
40582   -----------------------------
40583
40584   procedure Internal_Set_Visibility
40585    (Self : AMF.Internals.AMF_Element;
40586     To   : AMF.UML.Optional_UML_Visibility_Kind)
40587   is
40588      Old : AMF.UML.Optional_UML_Visibility_Kind;
40589
40590   begin
40591      Old := AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (6).Visibility_Kind_Holder;
40592      AMF.Internals.Tables.UML_Element_Table.Table (Self).Member (6).Visibility_Kind_Holder := To;
40593
40594      AMF.Internals.Tables.UML_Notification.Notify_Attribute_Set
40595       (Self, AMF.Internals.Tables.UML_Metamodel.MP_UML_Named_Element_Visibility, Old, To);
40596   end Internal_Set_Visibility;
40597
40598   -------------------------
40599   -- Internal_Set_Weight --
40600   -------------------------
40601
40602   procedure Internal_Set_Weight
40603    (Self : AMF.Internals.AMF_Element;
40604     To   : AMF.Internals.AMF_Element) is
40605   begin
40606      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
40607         when AMF.Internals.Tables.UML_Types.E_UML_Control_Flow =>
40608            AMF.Internals.Links.Create_Link
40609             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Activity_Edge_Weight_Activity_Edge,
40610              Self,
40611              To);
40612
40613         when AMF.Internals.Tables.UML_Types.E_UML_Object_Flow =>
40614            AMF.Internals.Links.Create_Link
40615             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Activity_Edge_Weight_Activity_Edge,
40616              Self,
40617              To);
40618
40619         when others =>
40620            raise Program_Error;
40621      end case;
40622   end Internal_Set_Weight;
40623
40624   -----------------------
40625   -- Internal_Set_When --
40626   -----------------------
40627
40628   procedure Internal_Set_When
40629    (Self : AMF.Internals.AMF_Element;
40630     To   : AMF.Internals.AMF_Element) is
40631   begin
40632      case AMF.Internals.Tables.UML_Element_Table.Table (Self).Kind is
40633         when AMF.Internals.Tables.UML_Types.E_UML_Time_Event =>
40634            AMF.Internals.Links.Create_Link
40635             (AMF.Internals.Tables.UML_Metamodel.MA_UML_Time_Event_When_Time_Event,
40636              Self,
40637              To);
40638
40639         when others =>
40640            raise Program_Error;
40641      end case;
40642   end Internal_Set_When;
40643
40644end AMF.Internals.Tables.UML_Attributes;
40645