1------------------------------------------------------------------------------
2--                                                                          --
3--                            Matreshka Project                             --
4--                                                                          --
5--                          Ada Modeling Framework                          --
6--                                                                          --
7--                        Runtime Library Component                         --
8--                                                                          --
9------------------------------------------------------------------------------
10--                                                                          --
11-- Copyright © 2011-2012, Vadim Godunko <vgodunko@gmail.com>                --
12-- All rights reserved.                                                     --
13--                                                                          --
14-- Redistribution and use in source and binary forms, with or without       --
15-- modification, are permitted provided that the following conditions       --
16-- are met:                                                                 --
17--                                                                          --
18--  * Redistributions of source code must retain the above copyright        --
19--    notice, this list of conditions and the following disclaimer.         --
20--                                                                          --
21--  * Redistributions in binary form must reproduce the above copyright     --
22--    notice, this list of conditions and the following disclaimer in the   --
23--    documentation and/or other materials provided with the distribution.  --
24--                                                                          --
25--  * Neither the name of the Vadim Godunko, IE nor the names of its        --
26--    contributors may be used to endorse or promote products derived from  --
27--    this software without specific prior written permission.              --
28--                                                                          --
29-- THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS      --
30-- "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT        --
31-- LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR    --
32-- A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT     --
33-- HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,   --
34-- SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED --
35-- TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR   --
36-- PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF   --
37-- LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING     --
38-- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS       --
39-- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.             --
40--                                                                          --
41------------------------------------------------------------------------------
42--  $Revision: 2937 $ $Date: 2012-05-01 21:07:27 +0400 (Tue, 01 May 2012) $
43------------------------------------------------------------------------------
44with AMF.Elements;
45with AMF.Internals.Element_Collections;
46with AMF.Internals.Helpers;
47with AMF.Internals.Tables.UML_Attributes;
48with AMF.Visitors.UML_Iterators;
49with AMF.Visitors.UML_Visitors;
50with League.Strings.Internals;
51with Matreshka.Internals.Strings;
52
53package body AMF.Internals.UML_Activities is
54
55   -------------------
56   -- Enter_Element --
57   -------------------
58
59   overriding procedure Enter_Element
60    (Self    : not null access constant UML_Activity_Proxy;
61     Visitor : in out AMF.Visitors.Abstract_Visitor'Class;
62     Control : in out AMF.Visitors.Traverse_Control) is
63   begin
64      if Visitor in AMF.Visitors.UML_Visitors.UML_Visitor'Class then
65         AMF.Visitors.UML_Visitors.UML_Visitor'Class
66          (Visitor).Enter_Activity
67            (AMF.UML.Activities.UML_Activity_Access (Self),
68           Control);
69      end if;
70   end Enter_Element;
71
72   -------------------
73   -- Leave_Element --
74   -------------------
75
76   overriding procedure Leave_Element
77    (Self    : not null access constant UML_Activity_Proxy;
78     Visitor : in out AMF.Visitors.Abstract_Visitor'Class;
79     Control : in out AMF.Visitors.Traverse_Control) is
80   begin
81      if Visitor in AMF.Visitors.UML_Visitors.UML_Visitor'Class then
82         AMF.Visitors.UML_Visitors.UML_Visitor'Class
83          (Visitor).Leave_Activity
84            (AMF.UML.Activities.UML_Activity_Access (Self),
85           Control);
86      end if;
87   end Leave_Element;
88
89   -------------------
90   -- Visit_Element --
91   -------------------
92
93   overriding procedure Visit_Element
94    (Self     : not null access constant UML_Activity_Proxy;
95     Iterator : in out AMF.Visitors.Abstract_Iterator'Class;
96     Visitor  : in out AMF.Visitors.Abstract_Visitor'Class;
97     Control  : in out AMF.Visitors.Traverse_Control) is
98   begin
99      if Iterator in AMF.Visitors.UML_Iterators.UML_Iterator'Class then
100         AMF.Visitors.UML_Iterators.UML_Iterator'Class
101          (Iterator).Visit_Activity
102            (Visitor,
103             AMF.UML.Activities.UML_Activity_Access (Self),
104             Control);
105      end if;
106   end Visit_Element;
107
108   --------------
109   -- Get_Edge --
110   --------------
111
112   overriding function Get_Edge
113    (Self : not null access constant UML_Activity_Proxy)
114       return AMF.UML.Activity_Edges.Collections.Set_Of_UML_Activity_Edge is
115   begin
116      return
117        AMF.UML.Activity_Edges.Collections.Wrap
118         (AMF.Internals.Element_Collections.Wrap
119           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Edge
120             (Self.Element)));
121   end Get_Edge;
122
123   ---------------
124   -- Get_Group --
125   ---------------
126
127   overriding function Get_Group
128    (Self : not null access constant UML_Activity_Proxy)
129       return AMF.UML.Activity_Groups.Collections.Set_Of_UML_Activity_Group is
130   begin
131      return
132        AMF.UML.Activity_Groups.Collections.Wrap
133         (AMF.Internals.Element_Collections.Wrap
134           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Group
135             (Self.Element)));
136   end Get_Group;
137
138   ----------------------
139   -- Get_Is_Read_Only --
140   ----------------------
141
142   overriding function Get_Is_Read_Only
143    (Self : not null access constant UML_Activity_Proxy)
144       return Boolean is
145   begin
146      return
147        AMF.Internals.Tables.UML_Attributes.Internal_Get_Is_Read_Only
148         (Self.Element);
149   end Get_Is_Read_Only;
150
151   ----------------------
152   -- Set_Is_Read_Only --
153   ----------------------
154
155   overriding procedure Set_Is_Read_Only
156    (Self : not null access UML_Activity_Proxy;
157     To   : Boolean) is
158   begin
159      AMF.Internals.Tables.UML_Attributes.Internal_Set_Is_Read_Only
160       (Self.Element, To);
161   end Set_Is_Read_Only;
162
163   -----------------------------
164   -- Get_Is_Single_Execution --
165   -----------------------------
166
167   overriding function Get_Is_Single_Execution
168    (Self : not null access constant UML_Activity_Proxy)
169       return Boolean is
170   begin
171      return
172        AMF.Internals.Tables.UML_Attributes.Internal_Get_Is_Single_Execution
173         (Self.Element);
174   end Get_Is_Single_Execution;
175
176   -----------------------------
177   -- Set_Is_Single_Execution --
178   -----------------------------
179
180   overriding procedure Set_Is_Single_Execution
181    (Self : not null access UML_Activity_Proxy;
182     To   : Boolean) is
183   begin
184      AMF.Internals.Tables.UML_Attributes.Internal_Set_Is_Single_Execution
185       (Self.Element, To);
186   end Set_Is_Single_Execution;
187
188   --------------
189   -- Get_Node --
190   --------------
191
192   overriding function Get_Node
193    (Self : not null access constant UML_Activity_Proxy)
194       return AMF.UML.Activity_Nodes.Collections.Set_Of_UML_Activity_Node is
195   begin
196      return
197        AMF.UML.Activity_Nodes.Collections.Wrap
198         (AMF.Internals.Element_Collections.Wrap
199           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Node
200             (Self.Element)));
201   end Get_Node;
202
203   -------------------
204   -- Get_Partition --
205   -------------------
206
207   overriding function Get_Partition
208    (Self : not null access constant UML_Activity_Proxy)
209       return AMF.UML.Activity_Partitions.Collections.Set_Of_UML_Activity_Partition is
210   begin
211      return
212        AMF.UML.Activity_Partitions.Collections.Wrap
213         (AMF.Internals.Element_Collections.Wrap
214           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Partition
215             (Self.Element)));
216   end Get_Partition;
217
218   -------------------------
219   -- Get_Structured_Node --
220   -------------------------
221
222   overriding function Get_Structured_Node
223    (Self : not null access constant UML_Activity_Proxy)
224       return AMF.UML.Structured_Activity_Nodes.Collections.Set_Of_UML_Structured_Activity_Node is
225   begin
226      return
227        AMF.UML.Structured_Activity_Nodes.Collections.Wrap
228         (AMF.Internals.Element_Collections.Wrap
229           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Structured_Node
230             (Self.Element)));
231   end Get_Structured_Node;
232
233   ------------------
234   -- Get_Variable --
235   ------------------
236
237   overriding function Get_Variable
238    (Self : not null access constant UML_Activity_Proxy)
239       return AMF.UML.Variables.Collections.Set_Of_UML_Variable is
240   begin
241      return
242        AMF.UML.Variables.Collections.Wrap
243         (AMF.Internals.Element_Collections.Wrap
244           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Variable
245             (Self.Element)));
246   end Get_Variable;
247
248   -----------------
249   -- Get_Context --
250   -----------------
251
252   overriding function Get_Context
253    (Self : not null access constant UML_Activity_Proxy)
254       return AMF.UML.Behaviored_Classifiers.UML_Behaviored_Classifier_Access is
255   begin
256      return
257        AMF.UML.Behaviored_Classifiers.UML_Behaviored_Classifier_Access
258         (AMF.Internals.Helpers.To_Element
259           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Context
260             (Self.Element)));
261   end Get_Context;
262
263   ----------------------
264   -- Get_Is_Reentrant --
265   ----------------------
266
267   overriding function Get_Is_Reentrant
268    (Self : not null access constant UML_Activity_Proxy)
269       return Boolean is
270   begin
271      return
272        AMF.Internals.Tables.UML_Attributes.Internal_Get_Is_Reentrant
273         (Self.Element);
274   end Get_Is_Reentrant;
275
276   ----------------------
277   -- Set_Is_Reentrant --
278   ----------------------
279
280   overriding procedure Set_Is_Reentrant
281    (Self : not null access UML_Activity_Proxy;
282     To   : Boolean) is
283   begin
284      AMF.Internals.Tables.UML_Attributes.Internal_Set_Is_Reentrant
285       (Self.Element, To);
286   end Set_Is_Reentrant;
287
288   -------------------------
289   -- Get_Owned_Parameter --
290   -------------------------
291
292   overriding function Get_Owned_Parameter
293    (Self : not null access constant UML_Activity_Proxy)
294       return AMF.UML.Parameters.Collections.Ordered_Set_Of_UML_Parameter is
295   begin
296      return
297        AMF.UML.Parameters.Collections.Wrap
298         (AMF.Internals.Element_Collections.Wrap
299           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Owned_Parameter
300             (Self.Element)));
301   end Get_Owned_Parameter;
302
303   -----------------------------
304   -- Get_Owned_Parameter_Set --
305   -----------------------------
306
307   overriding function Get_Owned_Parameter_Set
308    (Self : not null access constant UML_Activity_Proxy)
309       return AMF.UML.Parameter_Sets.Collections.Set_Of_UML_Parameter_Set is
310   begin
311      return
312        AMF.UML.Parameter_Sets.Collections.Wrap
313         (AMF.Internals.Element_Collections.Wrap
314           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Owned_Parameter_Set
315             (Self.Element)));
316   end Get_Owned_Parameter_Set;
317
318   -----------------------
319   -- Get_Postcondition --
320   -----------------------
321
322   overriding function Get_Postcondition
323    (Self : not null access constant UML_Activity_Proxy)
324       return AMF.UML.Constraints.Collections.Set_Of_UML_Constraint is
325   begin
326      return
327        AMF.UML.Constraints.Collections.Wrap
328         (AMF.Internals.Element_Collections.Wrap
329           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Postcondition
330             (Self.Element)));
331   end Get_Postcondition;
332
333   ----------------------
334   -- Get_Precondition --
335   ----------------------
336
337   overriding function Get_Precondition
338    (Self : not null access constant UML_Activity_Proxy)
339       return AMF.UML.Constraints.Collections.Set_Of_UML_Constraint is
340   begin
341      return
342        AMF.UML.Constraints.Collections.Wrap
343         (AMF.Internals.Element_Collections.Wrap
344           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Precondition
345             (Self.Element)));
346   end Get_Precondition;
347
348   ----------------------------
349   -- Get_Redefined_Behavior --
350   ----------------------------
351
352   overriding function Get_Redefined_Behavior
353    (Self : not null access constant UML_Activity_Proxy)
354       return AMF.UML.Behaviors.Collections.Set_Of_UML_Behavior is
355   begin
356      return
357        AMF.UML.Behaviors.Collections.Wrap
358         (AMF.Internals.Element_Collections.Wrap
359           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Redefined_Behavior
360             (Self.Element)));
361   end Get_Redefined_Behavior;
362
363   -----------------------
364   -- Get_Specification --
365   -----------------------
366
367   overriding function Get_Specification
368    (Self : not null access constant UML_Activity_Proxy)
369       return AMF.UML.Behavioral_Features.UML_Behavioral_Feature_Access is
370   begin
371      return
372        AMF.UML.Behavioral_Features.UML_Behavioral_Feature_Access
373         (AMF.Internals.Helpers.To_Element
374           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Specification
375             (Self.Element)));
376   end Get_Specification;
377
378   -----------------------
379   -- Set_Specification --
380   -----------------------
381
382   overriding procedure Set_Specification
383    (Self : not null access UML_Activity_Proxy;
384     To   : AMF.UML.Behavioral_Features.UML_Behavioral_Feature_Access) is
385   begin
386      AMF.Internals.Tables.UML_Attributes.Internal_Set_Specification
387       (Self.Element,
388        AMF.Internals.Helpers.To_Element
389         (AMF.Elements.Element_Access (To)));
390   end Set_Specification;
391
392   -------------------
393   -- Get_Extension --
394   -------------------
395
396   overriding function Get_Extension
397    (Self : not null access constant UML_Activity_Proxy)
398       return AMF.UML.Extensions.Collections.Set_Of_UML_Extension is
399   begin
400      return
401        AMF.UML.Extensions.Collections.Wrap
402         (AMF.Internals.Element_Collections.Wrap
403           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Extension
404             (Self.Element)));
405   end Get_Extension;
406
407   ---------------------
408   -- Get_Is_Abstract --
409   ---------------------
410
411   overriding function Get_Is_Abstract
412    (Self : not null access constant UML_Activity_Proxy)
413       return Boolean is
414   begin
415      return
416        AMF.Internals.Tables.UML_Attributes.Internal_Get_Is_Abstract
417         (Self.Element);
418   end Get_Is_Abstract;
419
420   -------------------
421   -- Get_Is_Active --
422   -------------------
423
424   overriding function Get_Is_Active
425    (Self : not null access constant UML_Activity_Proxy)
426       return Boolean is
427   begin
428      return
429        AMF.Internals.Tables.UML_Attributes.Internal_Get_Is_Active
430         (Self.Element);
431   end Get_Is_Active;
432
433   -------------------
434   -- Set_Is_Active --
435   -------------------
436
437   overriding procedure Set_Is_Active
438    (Self : not null access UML_Activity_Proxy;
439     To   : Boolean) is
440   begin
441      AMF.Internals.Tables.UML_Attributes.Internal_Set_Is_Active
442       (Self.Element, To);
443   end Set_Is_Active;
444
445   ---------------------------
446   -- Get_Nested_Classifier --
447   ---------------------------
448
449   overriding function Get_Nested_Classifier
450    (Self : not null access constant UML_Activity_Proxy)
451       return AMF.UML.Classifiers.Collections.Ordered_Set_Of_UML_Classifier is
452   begin
453      return
454        AMF.UML.Classifiers.Collections.Wrap
455         (AMF.Internals.Element_Collections.Wrap
456           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Nested_Classifier
457             (Self.Element)));
458   end Get_Nested_Classifier;
459
460   -------------------------
461   -- Get_Owned_Attribute --
462   -------------------------
463
464   overriding function Get_Owned_Attribute
465    (Self : not null access constant UML_Activity_Proxy)
466       return AMF.UML.Properties.Collections.Ordered_Set_Of_UML_Property is
467   begin
468      return
469        AMF.UML.Properties.Collections.Wrap
470         (AMF.Internals.Element_Collections.Wrap
471           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Owned_Attribute
472             (Self.Element)));
473   end Get_Owned_Attribute;
474
475   -------------------------
476   -- Get_Owned_Operation --
477   -------------------------
478
479   overriding function Get_Owned_Operation
480    (Self : not null access constant UML_Activity_Proxy)
481       return AMF.UML.Operations.Collections.Ordered_Set_Of_UML_Operation is
482   begin
483      return
484        AMF.UML.Operations.Collections.Wrap
485         (AMF.Internals.Element_Collections.Wrap
486           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Owned_Operation
487             (Self.Element)));
488   end Get_Owned_Operation;
489
490   -------------------------
491   -- Get_Owned_Reception --
492   -------------------------
493
494   overriding function Get_Owned_Reception
495    (Self : not null access constant UML_Activity_Proxy)
496       return AMF.UML.Receptions.Collections.Set_Of_UML_Reception is
497   begin
498      return
499        AMF.UML.Receptions.Collections.Wrap
500         (AMF.Internals.Element_Collections.Wrap
501           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Owned_Reception
502             (Self.Element)));
503   end Get_Owned_Reception;
504
505   ---------------------
506   -- Get_Super_Class --
507   ---------------------
508
509   overriding function Get_Super_Class
510    (Self : not null access constant UML_Activity_Proxy)
511       return AMF.UML.Classes.Collections.Set_Of_UML_Class is
512   begin
513      return
514        AMF.UML.Classes.Collections.Wrap
515         (AMF.Internals.Element_Collections.Wrap
516           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Super_Class
517             (Self.Element)));
518   end Get_Super_Class;
519
520   -----------------------------
521   -- Get_Classifier_Behavior --
522   -----------------------------
523
524   overriding function Get_Classifier_Behavior
525    (Self : not null access constant UML_Activity_Proxy)
526       return AMF.UML.Behaviors.UML_Behavior_Access is
527   begin
528      return
529        AMF.UML.Behaviors.UML_Behavior_Access
530         (AMF.Internals.Helpers.To_Element
531           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Classifier_Behavior
532             (Self.Element)));
533   end Get_Classifier_Behavior;
534
535   -----------------------------
536   -- Set_Classifier_Behavior --
537   -----------------------------
538
539   overriding procedure Set_Classifier_Behavior
540    (Self : not null access UML_Activity_Proxy;
541     To   : AMF.UML.Behaviors.UML_Behavior_Access) is
542   begin
543      AMF.Internals.Tables.UML_Attributes.Internal_Set_Classifier_Behavior
544       (Self.Element,
545        AMF.Internals.Helpers.To_Element
546         (AMF.Elements.Element_Access (To)));
547   end Set_Classifier_Behavior;
548
549   -------------------------------
550   -- Get_Interface_Realization --
551   -------------------------------
552
553   overriding function Get_Interface_Realization
554    (Self : not null access constant UML_Activity_Proxy)
555       return AMF.UML.Interface_Realizations.Collections.Set_Of_UML_Interface_Realization is
556   begin
557      return
558        AMF.UML.Interface_Realizations.Collections.Wrap
559         (AMF.Internals.Element_Collections.Wrap
560           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Interface_Realization
561             (Self.Element)));
562   end Get_Interface_Realization;
563
564   ------------------------
565   -- Get_Owned_Behavior --
566   ------------------------
567
568   overriding function Get_Owned_Behavior
569    (Self : not null access constant UML_Activity_Proxy)
570       return AMF.UML.Behaviors.Collections.Set_Of_UML_Behavior is
571   begin
572      return
573        AMF.UML.Behaviors.Collections.Wrap
574         (AMF.Internals.Element_Collections.Wrap
575           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Owned_Behavior
576             (Self.Element)));
577   end Get_Owned_Behavior;
578
579   -------------------
580   -- Get_Attribute --
581   -------------------
582
583   overriding function Get_Attribute
584    (Self : not null access constant UML_Activity_Proxy)
585       return AMF.UML.Properties.Collections.Set_Of_UML_Property is
586   begin
587      return
588        AMF.UML.Properties.Collections.Wrap
589         (AMF.Internals.Element_Collections.Wrap
590           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Attribute
591             (Self.Element)));
592   end Get_Attribute;
593
594   ---------------------------
595   -- Get_Collaboration_Use --
596   ---------------------------
597
598   overriding function Get_Collaboration_Use
599    (Self : not null access constant UML_Activity_Proxy)
600       return AMF.UML.Collaboration_Uses.Collections.Set_Of_UML_Collaboration_Use is
601   begin
602      return
603        AMF.UML.Collaboration_Uses.Collections.Wrap
604         (AMF.Internals.Element_Collections.Wrap
605           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Collaboration_Use
606             (Self.Element)));
607   end Get_Collaboration_Use;
608
609   -----------------
610   -- Get_Feature --
611   -----------------
612
613   overriding function Get_Feature
614    (Self : not null access constant UML_Activity_Proxy)
615       return AMF.UML.Features.Collections.Set_Of_UML_Feature is
616   begin
617      return
618        AMF.UML.Features.Collections.Wrap
619         (AMF.Internals.Element_Collections.Wrap
620           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Feature
621             (Self.Element)));
622   end Get_Feature;
623
624   -----------------
625   -- Get_General --
626   -----------------
627
628   overriding function Get_General
629    (Self : not null access constant UML_Activity_Proxy)
630       return AMF.UML.Classifiers.Collections.Set_Of_UML_Classifier is
631   begin
632      return
633        AMF.UML.Classifiers.Collections.Wrap
634         (AMF.Internals.Element_Collections.Wrap
635           (AMF.Internals.Tables.UML_Attributes.Internal_Get_General
636             (Self.Element)));
637   end Get_General;
638
639   ------------------------
640   -- Get_Generalization --
641   ------------------------
642
643   overriding function Get_Generalization
644    (Self : not null access constant UML_Activity_Proxy)
645       return AMF.UML.Generalizations.Collections.Set_Of_UML_Generalization is
646   begin
647      return
648        AMF.UML.Generalizations.Collections.Wrap
649         (AMF.Internals.Element_Collections.Wrap
650           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Generalization
651             (Self.Element)));
652   end Get_Generalization;
653
654   --------------------------
655   -- Get_Inherited_Member --
656   --------------------------
657
658   overriding function Get_Inherited_Member
659    (Self : not null access constant UML_Activity_Proxy)
660       return AMF.UML.Named_Elements.Collections.Set_Of_UML_Named_Element is
661   begin
662      return
663        AMF.UML.Named_Elements.Collections.Wrap
664         (AMF.Internals.Element_Collections.Wrap
665           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Inherited_Member
666             (Self.Element)));
667   end Get_Inherited_Member;
668
669   ---------------------------------
670   -- Get_Is_Final_Specialization --
671   ---------------------------------
672
673   overriding function Get_Is_Final_Specialization
674    (Self : not null access constant UML_Activity_Proxy)
675       return Boolean is
676   begin
677      return
678        AMF.Internals.Tables.UML_Attributes.Internal_Get_Is_Final_Specialization
679         (Self.Element);
680   end Get_Is_Final_Specialization;
681
682   ---------------------------------
683   -- Set_Is_Final_Specialization --
684   ---------------------------------
685
686   overriding procedure Set_Is_Final_Specialization
687    (Self : not null access UML_Activity_Proxy;
688     To   : Boolean) is
689   begin
690      AMF.Internals.Tables.UML_Attributes.Internal_Set_Is_Final_Specialization
691       (Self.Element, To);
692   end Set_Is_Final_Specialization;
693
694   ----------------------------------
695   -- Get_Owned_Template_Signature --
696   ----------------------------------
697
698   overriding function Get_Owned_Template_Signature
699    (Self : not null access constant UML_Activity_Proxy)
700       return AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access is
701   begin
702      return
703        AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access
704         (AMF.Internals.Helpers.To_Element
705           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Owned_Template_Signature
706             (Self.Element)));
707   end Get_Owned_Template_Signature;
708
709   ----------------------------------
710   -- Set_Owned_Template_Signature --
711   ----------------------------------
712
713   overriding procedure Set_Owned_Template_Signature
714    (Self : not null access UML_Activity_Proxy;
715     To   : AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access) is
716   begin
717      AMF.Internals.Tables.UML_Attributes.Internal_Set_Owned_Template_Signature
718       (Self.Element,
719        AMF.Internals.Helpers.To_Element
720         (AMF.Elements.Element_Access (To)));
721   end Set_Owned_Template_Signature;
722
723   ------------------------
724   -- Get_Owned_Use_Case --
725   ------------------------
726
727   overriding function Get_Owned_Use_Case
728    (Self : not null access constant UML_Activity_Proxy)
729       return AMF.UML.Use_Cases.Collections.Set_Of_UML_Use_Case is
730   begin
731      return
732        AMF.UML.Use_Cases.Collections.Wrap
733         (AMF.Internals.Element_Collections.Wrap
734           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Owned_Use_Case
735             (Self.Element)));
736   end Get_Owned_Use_Case;
737
738   --------------------------
739   -- Get_Powertype_Extent --
740   --------------------------
741
742   overriding function Get_Powertype_Extent
743    (Self : not null access constant UML_Activity_Proxy)
744       return AMF.UML.Generalization_Sets.Collections.Set_Of_UML_Generalization_Set is
745   begin
746      return
747        AMF.UML.Generalization_Sets.Collections.Wrap
748         (AMF.Internals.Element_Collections.Wrap
749           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Powertype_Extent
750             (Self.Element)));
751   end Get_Powertype_Extent;
752
753   ------------------------------
754   -- Get_Redefined_Classifier --
755   ------------------------------
756
757   overriding function Get_Redefined_Classifier
758    (Self : not null access constant UML_Activity_Proxy)
759       return AMF.UML.Classifiers.Collections.Set_Of_UML_Classifier is
760   begin
761      return
762        AMF.UML.Classifiers.Collections.Wrap
763         (AMF.Internals.Element_Collections.Wrap
764           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Redefined_Classifier
765             (Self.Element)));
766   end Get_Redefined_Classifier;
767
768   ------------------------
769   -- Get_Representation --
770   ------------------------
771
772   overriding function Get_Representation
773    (Self : not null access constant UML_Activity_Proxy)
774       return AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access is
775   begin
776      return
777        AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access
778         (AMF.Internals.Helpers.To_Element
779           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Representation
780             (Self.Element)));
781   end Get_Representation;
782
783   ------------------------
784   -- Set_Representation --
785   ------------------------
786
787   overriding procedure Set_Representation
788    (Self : not null access UML_Activity_Proxy;
789     To   : AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access) is
790   begin
791      AMF.Internals.Tables.UML_Attributes.Internal_Set_Representation
792       (Self.Element,
793        AMF.Internals.Helpers.To_Element
794         (AMF.Elements.Element_Access (To)));
795   end Set_Representation;
796
797   ----------------------
798   -- Get_Substitution --
799   ----------------------
800
801   overriding function Get_Substitution
802    (Self : not null access constant UML_Activity_Proxy)
803       return AMF.UML.Substitutions.Collections.Set_Of_UML_Substitution is
804   begin
805      return
806        AMF.UML.Substitutions.Collections.Wrap
807         (AMF.Internals.Element_Collections.Wrap
808           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Substitution
809             (Self.Element)));
810   end Get_Substitution;
811
812   ----------------------------
813   -- Get_Template_Parameter --
814   ----------------------------
815
816   overriding function Get_Template_Parameter
817    (Self : not null access constant UML_Activity_Proxy)
818       return AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access is
819   begin
820      return
821        AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access
822         (AMF.Internals.Helpers.To_Element
823           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Template_Parameter
824             (Self.Element)));
825   end Get_Template_Parameter;
826
827   ----------------------------
828   -- Set_Template_Parameter --
829   ----------------------------
830
831   overriding procedure Set_Template_Parameter
832    (Self : not null access UML_Activity_Proxy;
833     To   : AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access) is
834   begin
835      AMF.Internals.Tables.UML_Attributes.Internal_Set_Template_Parameter
836       (Self.Element,
837        AMF.Internals.Helpers.To_Element
838         (AMF.Elements.Element_Access (To)));
839   end Set_Template_Parameter;
840
841   ------------------
842   -- Get_Use_Case --
843   ------------------
844
845   overriding function Get_Use_Case
846    (Self : not null access constant UML_Activity_Proxy)
847       return AMF.UML.Use_Cases.Collections.Set_Of_UML_Use_Case is
848   begin
849      return
850        AMF.UML.Use_Cases.Collections.Wrap
851         (AMF.Internals.Element_Collections.Wrap
852           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Use_Case
853             (Self.Element)));
854   end Get_Use_Case;
855
856   ------------------------
857   -- Get_Element_Import --
858   ------------------------
859
860   overriding function Get_Element_Import
861    (Self : not null access constant UML_Activity_Proxy)
862       return AMF.UML.Element_Imports.Collections.Set_Of_UML_Element_Import is
863   begin
864      return
865        AMF.UML.Element_Imports.Collections.Wrap
866         (AMF.Internals.Element_Collections.Wrap
867           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Element_Import
868             (Self.Element)));
869   end Get_Element_Import;
870
871   -------------------------
872   -- Get_Imported_Member --
873   -------------------------
874
875   overriding function Get_Imported_Member
876    (Self : not null access constant UML_Activity_Proxy)
877       return AMF.UML.Packageable_Elements.Collections.Set_Of_UML_Packageable_Element is
878   begin
879      return
880        AMF.UML.Packageable_Elements.Collections.Wrap
881         (AMF.Internals.Element_Collections.Wrap
882           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Imported_Member
883             (Self.Element)));
884   end Get_Imported_Member;
885
886   ----------------
887   -- Get_Member --
888   ----------------
889
890   overriding function Get_Member
891    (Self : not null access constant UML_Activity_Proxy)
892       return AMF.UML.Named_Elements.Collections.Set_Of_UML_Named_Element is
893   begin
894      return
895        AMF.UML.Named_Elements.Collections.Wrap
896         (AMF.Internals.Element_Collections.Wrap
897           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Member
898             (Self.Element)));
899   end Get_Member;
900
901   ----------------------
902   -- Get_Owned_Member --
903   ----------------------
904
905   overriding function Get_Owned_Member
906    (Self : not null access constant UML_Activity_Proxy)
907       return AMF.UML.Named_Elements.Collections.Set_Of_UML_Named_Element is
908   begin
909      return
910        AMF.UML.Named_Elements.Collections.Wrap
911         (AMF.Internals.Element_Collections.Wrap
912           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Owned_Member
913             (Self.Element)));
914   end Get_Owned_Member;
915
916   --------------------
917   -- Get_Owned_Rule --
918   --------------------
919
920   overriding function Get_Owned_Rule
921    (Self : not null access constant UML_Activity_Proxy)
922       return AMF.UML.Constraints.Collections.Set_Of_UML_Constraint is
923   begin
924      return
925        AMF.UML.Constraints.Collections.Wrap
926         (AMF.Internals.Element_Collections.Wrap
927           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Owned_Rule
928             (Self.Element)));
929   end Get_Owned_Rule;
930
931   ------------------------
932   -- Get_Package_Import --
933   ------------------------
934
935   overriding function Get_Package_Import
936    (Self : not null access constant UML_Activity_Proxy)
937       return AMF.UML.Package_Imports.Collections.Set_Of_UML_Package_Import is
938   begin
939      return
940        AMF.UML.Package_Imports.Collections.Wrap
941         (AMF.Internals.Element_Collections.Wrap
942           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Package_Import
943             (Self.Element)));
944   end Get_Package_Import;
945
946   ---------------------------
947   -- Get_Client_Dependency --
948   ---------------------------
949
950   overriding function Get_Client_Dependency
951    (Self : not null access constant UML_Activity_Proxy)
952       return AMF.UML.Dependencies.Collections.Set_Of_UML_Dependency is
953   begin
954      return
955        AMF.UML.Dependencies.Collections.Wrap
956         (AMF.Internals.Element_Collections.Wrap
957           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Client_Dependency
958             (Self.Element)));
959   end Get_Client_Dependency;
960
961   -------------------------
962   -- Get_Name_Expression --
963   -------------------------
964
965   overriding function Get_Name_Expression
966    (Self : not null access constant UML_Activity_Proxy)
967       return AMF.UML.String_Expressions.UML_String_Expression_Access is
968   begin
969      return
970        AMF.UML.String_Expressions.UML_String_Expression_Access
971         (AMF.Internals.Helpers.To_Element
972           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Name_Expression
973             (Self.Element)));
974   end Get_Name_Expression;
975
976   -------------------------
977   -- Set_Name_Expression --
978   -------------------------
979
980   overriding procedure Set_Name_Expression
981    (Self : not null access UML_Activity_Proxy;
982     To   : AMF.UML.String_Expressions.UML_String_Expression_Access) is
983   begin
984      AMF.Internals.Tables.UML_Attributes.Internal_Set_Name_Expression
985       (Self.Element,
986        AMF.Internals.Helpers.To_Element
987         (AMF.Elements.Element_Access (To)));
988   end Set_Name_Expression;
989
990   -------------------
991   -- Get_Namespace --
992   -------------------
993
994   overriding function Get_Namespace
995    (Self : not null access constant UML_Activity_Proxy)
996       return AMF.UML.Namespaces.UML_Namespace_Access is
997   begin
998      return
999        AMF.UML.Namespaces.UML_Namespace_Access
1000         (AMF.Internals.Helpers.To_Element
1001           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Namespace
1002             (Self.Element)));
1003   end Get_Namespace;
1004
1005   ------------------------
1006   -- Get_Qualified_Name --
1007   ------------------------
1008
1009   overriding function Get_Qualified_Name
1010    (Self : not null access constant UML_Activity_Proxy)
1011       return AMF.Optional_String is
1012   begin
1013      declare
1014         use type Matreshka.Internals.Strings.Shared_String_Access;
1015
1016         Aux : constant Matreshka.Internals.Strings.Shared_String_Access
1017           := AMF.Internals.Tables.UML_Attributes.Internal_Get_Qualified_Name (Self.Element);
1018
1019      begin
1020         if Aux = null then
1021            return (Is_Empty => True);
1022
1023         else
1024            return (False, League.Strings.Internals.Create (Aux));
1025         end if;
1026      end;
1027   end Get_Qualified_Name;
1028
1029   -----------------
1030   -- Get_Package --
1031   -----------------
1032
1033   overriding function Get_Package
1034    (Self : not null access constant UML_Activity_Proxy)
1035       return AMF.UML.Packages.UML_Package_Access is
1036   begin
1037      return
1038        AMF.UML.Packages.UML_Package_Access
1039         (AMF.Internals.Helpers.To_Element
1040           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Package
1041             (Self.Element)));
1042   end Get_Package;
1043
1044   -----------------
1045   -- Set_Package --
1046   -----------------
1047
1048   overriding procedure Set_Package
1049    (Self : not null access UML_Activity_Proxy;
1050     To   : AMF.UML.Packages.UML_Package_Access) is
1051   begin
1052      AMF.Internals.Tables.UML_Attributes.Internal_Set_Package
1053       (Self.Element,
1054        AMF.Internals.Helpers.To_Element
1055         (AMF.Elements.Element_Access (To)));
1056   end Set_Package;
1057
1058   -----------------------------------
1059   -- Get_Owning_Template_Parameter --
1060   -----------------------------------
1061
1062   overriding function Get_Owning_Template_Parameter
1063    (Self : not null access constant UML_Activity_Proxy)
1064       return AMF.UML.Template_Parameters.UML_Template_Parameter_Access is
1065   begin
1066      return
1067        AMF.UML.Template_Parameters.UML_Template_Parameter_Access
1068         (AMF.Internals.Helpers.To_Element
1069           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Owning_Template_Parameter
1070             (Self.Element)));
1071   end Get_Owning_Template_Parameter;
1072
1073   -----------------------------------
1074   -- Set_Owning_Template_Parameter --
1075   -----------------------------------
1076
1077   overriding procedure Set_Owning_Template_Parameter
1078    (Self : not null access UML_Activity_Proxy;
1079     To   : AMF.UML.Template_Parameters.UML_Template_Parameter_Access) is
1080   begin
1081      AMF.Internals.Tables.UML_Attributes.Internal_Set_Owning_Template_Parameter
1082       (Self.Element,
1083        AMF.Internals.Helpers.To_Element
1084         (AMF.Elements.Element_Access (To)));
1085   end Set_Owning_Template_Parameter;
1086
1087   ----------------------------
1088   -- Get_Template_Parameter --
1089   ----------------------------
1090
1091   overriding function Get_Template_Parameter
1092    (Self : not null access constant UML_Activity_Proxy)
1093       return AMF.UML.Template_Parameters.UML_Template_Parameter_Access is
1094   begin
1095      return
1096        AMF.UML.Template_Parameters.UML_Template_Parameter_Access
1097         (AMF.Internals.Helpers.To_Element
1098           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Template_Parameter
1099             (Self.Element)));
1100   end Get_Template_Parameter;
1101
1102   ----------------------------
1103   -- Set_Template_Parameter --
1104   ----------------------------
1105
1106   overriding procedure Set_Template_Parameter
1107    (Self : not null access UML_Activity_Proxy;
1108     To   : AMF.UML.Template_Parameters.UML_Template_Parameter_Access) is
1109   begin
1110      AMF.Internals.Tables.UML_Attributes.Internal_Set_Template_Parameter
1111       (Self.Element,
1112        AMF.Internals.Helpers.To_Element
1113         (AMF.Elements.Element_Access (To)));
1114   end Set_Template_Parameter;
1115
1116   ----------------------------------
1117   -- Get_Owned_Template_Signature --
1118   ----------------------------------
1119
1120   overriding function Get_Owned_Template_Signature
1121    (Self : not null access constant UML_Activity_Proxy)
1122       return AMF.UML.Template_Signatures.UML_Template_Signature_Access is
1123   begin
1124      return
1125        AMF.UML.Template_Signatures.UML_Template_Signature_Access
1126         (AMF.Internals.Helpers.To_Element
1127           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Owned_Template_Signature
1128             (Self.Element)));
1129   end Get_Owned_Template_Signature;
1130
1131   ----------------------------------
1132   -- Set_Owned_Template_Signature --
1133   ----------------------------------
1134
1135   overriding procedure Set_Owned_Template_Signature
1136    (Self : not null access UML_Activity_Proxy;
1137     To   : AMF.UML.Template_Signatures.UML_Template_Signature_Access) is
1138   begin
1139      AMF.Internals.Tables.UML_Attributes.Internal_Set_Owned_Template_Signature
1140       (Self.Element,
1141        AMF.Internals.Helpers.To_Element
1142         (AMF.Elements.Element_Access (To)));
1143   end Set_Owned_Template_Signature;
1144
1145   --------------------------
1146   -- Get_Template_Binding --
1147   --------------------------
1148
1149   overriding function Get_Template_Binding
1150    (Self : not null access constant UML_Activity_Proxy)
1151       return AMF.UML.Template_Bindings.Collections.Set_Of_UML_Template_Binding is
1152   begin
1153      return
1154        AMF.UML.Template_Bindings.Collections.Wrap
1155         (AMF.Internals.Element_Collections.Wrap
1156           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Template_Binding
1157             (Self.Element)));
1158   end Get_Template_Binding;
1159
1160   -----------------
1161   -- Get_Is_Leaf --
1162   -----------------
1163
1164   overriding function Get_Is_Leaf
1165    (Self : not null access constant UML_Activity_Proxy)
1166       return Boolean is
1167   begin
1168      return
1169        AMF.Internals.Tables.UML_Attributes.Internal_Get_Is_Leaf
1170         (Self.Element);
1171   end Get_Is_Leaf;
1172
1173   -----------------
1174   -- Set_Is_Leaf --
1175   -----------------
1176
1177   overriding procedure Set_Is_Leaf
1178    (Self : not null access UML_Activity_Proxy;
1179     To   : Boolean) is
1180   begin
1181      AMF.Internals.Tables.UML_Attributes.Internal_Set_Is_Leaf
1182       (Self.Element, To);
1183   end Set_Is_Leaf;
1184
1185   ---------------------------
1186   -- Get_Redefined_Element --
1187   ---------------------------
1188
1189   overriding function Get_Redefined_Element
1190    (Self : not null access constant UML_Activity_Proxy)
1191       return AMF.UML.Redefinable_Elements.Collections.Set_Of_UML_Redefinable_Element is
1192   begin
1193      return
1194        AMF.UML.Redefinable_Elements.Collections.Wrap
1195         (AMF.Internals.Element_Collections.Wrap
1196           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Redefined_Element
1197             (Self.Element)));
1198   end Get_Redefined_Element;
1199
1200   ------------------------------
1201   -- Get_Redefinition_Context --
1202   ------------------------------
1203
1204   overriding function Get_Redefinition_Context
1205    (Self : not null access constant UML_Activity_Proxy)
1206       return AMF.UML.Classifiers.Collections.Set_Of_UML_Classifier is
1207   begin
1208      return
1209        AMF.UML.Classifiers.Collections.Wrap
1210         (AMF.Internals.Element_Collections.Wrap
1211           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Redefinition_Context
1212             (Self.Element)));
1213   end Get_Redefinition_Context;
1214
1215   --------------------
1216   -- Get_Owned_Port --
1217   --------------------
1218
1219   overriding function Get_Owned_Port
1220    (Self : not null access constant UML_Activity_Proxy)
1221       return AMF.UML.Ports.Collections.Set_Of_UML_Port is
1222   begin
1223      return
1224        AMF.UML.Ports.Collections.Wrap
1225         (AMF.Internals.Element_Collections.Wrap
1226           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Owned_Port
1227             (Self.Element)));
1228   end Get_Owned_Port;
1229
1230   -------------------------
1231   -- Get_Owned_Connector --
1232   -------------------------
1233
1234   overriding function Get_Owned_Connector
1235    (Self : not null access constant UML_Activity_Proxy)
1236       return AMF.UML.Connectors.Collections.Set_Of_UML_Connector is
1237   begin
1238      return
1239        AMF.UML.Connectors.Collections.Wrap
1240         (AMF.Internals.Element_Collections.Wrap
1241           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Owned_Connector
1242             (Self.Element)));
1243   end Get_Owned_Connector;
1244
1245   --------------
1246   -- Get_Part --
1247   --------------
1248
1249   overriding function Get_Part
1250    (Self : not null access constant UML_Activity_Proxy)
1251       return AMF.UML.Properties.Collections.Set_Of_UML_Property is
1252   begin
1253      return
1254        AMF.UML.Properties.Collections.Wrap
1255         (AMF.Internals.Element_Collections.Wrap
1256           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Part
1257             (Self.Element)));
1258   end Get_Part;
1259
1260   --------------
1261   -- Get_Role --
1262   --------------
1263
1264   overriding function Get_Role
1265    (Self : not null access constant UML_Activity_Proxy)
1266       return AMF.UML.Connectable_Elements.Collections.Set_Of_UML_Connectable_Element is
1267   begin
1268      return
1269        AMF.UML.Connectable_Elements.Collections.Wrap
1270         (AMF.Internals.Element_Collections.Wrap
1271           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Role
1272             (Self.Element)));
1273   end Get_Role;
1274
1275   ---------------------
1276   -- Structured_Node --
1277   ---------------------
1278
1279   overriding function Structured_Node
1280    (Self : not null access constant UML_Activity_Proxy)
1281       return AMF.UML.Structured_Activity_Nodes.Collections.Set_Of_UML_Structured_Activity_Node is
1282   begin
1283      --  Generated stub: replace with real body!
1284      pragma Compile_Time_Warning (Standard.True, "Structured_Node unimplemented");
1285      raise Program_Error with "Unimplemented procedure UML_Activity_Proxy.Structured_Node";
1286      return Structured_Node (Self);
1287   end Structured_Node;
1288
1289   -------------
1290   -- Context --
1291   -------------
1292
1293   overriding function Context
1294    (Self : not null access constant UML_Activity_Proxy)
1295       return AMF.UML.Behaviored_Classifiers.UML_Behaviored_Classifier_Access is
1296   begin
1297      --  Generated stub: replace with real body!
1298      pragma Compile_Time_Warning (Standard.True, "Context unimplemented");
1299      raise Program_Error with "Unimplemented procedure UML_Activity_Proxy.Context";
1300      return Context (Self);
1301   end Context;
1302
1303   ---------------
1304   -- Extension --
1305   ---------------
1306
1307   overriding function Extension
1308    (Self : not null access constant UML_Activity_Proxy)
1309       return AMF.UML.Extensions.Collections.Set_Of_UML_Extension is
1310   begin
1311      --  Generated stub: replace with real body!
1312      pragma Compile_Time_Warning (Standard.True, "Extension unimplemented");
1313      raise Program_Error with "Unimplemented procedure UML_Activity_Proxy.Extension";
1314      return Extension (Self);
1315   end Extension;
1316
1317   -------------
1318   -- Inherit --
1319   -------------
1320
1321   overriding function Inherit
1322    (Self : not null access constant UML_Activity_Proxy;
1323     Inhs : AMF.UML.Named_Elements.Collections.Set_Of_UML_Named_Element)
1324       return AMF.UML.Named_Elements.Collections.Set_Of_UML_Named_Element is
1325   begin
1326      --  Generated stub: replace with real body!
1327      pragma Compile_Time_Warning (Standard.True, "Inherit unimplemented");
1328      raise Program_Error with "Unimplemented procedure UML_Activity_Proxy.Inherit";
1329      return Inherit (Self, Inhs);
1330   end Inherit;
1331
1332   -----------------
1333   -- Super_Class --
1334   -----------------
1335
1336   overriding function Super_Class
1337    (Self : not null access constant UML_Activity_Proxy)
1338       return AMF.UML.Classes.Collections.Set_Of_UML_Class is
1339   begin
1340      --  Generated stub: replace with real body!
1341      pragma Compile_Time_Warning (Standard.True, "Super_Class unimplemented");
1342      raise Program_Error with "Unimplemented procedure UML_Activity_Proxy.Super_Class";
1343      return Super_Class (Self);
1344   end Super_Class;
1345
1346   ------------------
1347   -- All_Features --
1348   ------------------
1349
1350   overriding function All_Features
1351    (Self : not null access constant UML_Activity_Proxy)
1352       return AMF.UML.Features.Collections.Set_Of_UML_Feature is
1353   begin
1354      --  Generated stub: replace with real body!
1355      pragma Compile_Time_Warning (Standard.True, "All_Features unimplemented");
1356      raise Program_Error with "Unimplemented procedure UML_Activity_Proxy.All_Features";
1357      return All_Features (Self);
1358   end All_Features;
1359
1360   -----------------
1361   -- Conforms_To --
1362   -----------------
1363
1364   overriding function Conforms_To
1365    (Self : not null access constant UML_Activity_Proxy;
1366     Other : AMF.UML.Classifiers.UML_Classifier_Access)
1367       return Boolean is
1368   begin
1369      --  Generated stub: replace with real body!
1370      pragma Compile_Time_Warning (Standard.True, "Conforms_To unimplemented");
1371      raise Program_Error with "Unimplemented procedure UML_Activity_Proxy.Conforms_To";
1372      return Conforms_To (Self, Other);
1373   end Conforms_To;
1374
1375   -------------
1376   -- General --
1377   -------------
1378
1379   overriding function General
1380    (Self : not null access constant UML_Activity_Proxy)
1381       return AMF.UML.Classifiers.Collections.Set_Of_UML_Classifier is
1382   begin
1383      --  Generated stub: replace with real body!
1384      pragma Compile_Time_Warning (Standard.True, "General unimplemented");
1385      raise Program_Error with "Unimplemented procedure UML_Activity_Proxy.General";
1386      return General (Self);
1387   end General;
1388
1389   -----------------------
1390   -- Has_Visibility_Of --
1391   -----------------------
1392
1393   overriding function Has_Visibility_Of
1394    (Self : not null access constant UML_Activity_Proxy;
1395     N : AMF.UML.Named_Elements.UML_Named_Element_Access)
1396       return Boolean is
1397   begin
1398      --  Generated stub: replace with real body!
1399      pragma Compile_Time_Warning (Standard.True, "Has_Visibility_Of unimplemented");
1400      raise Program_Error with "Unimplemented procedure UML_Activity_Proxy.Has_Visibility_Of";
1401      return Has_Visibility_Of (Self, N);
1402   end Has_Visibility_Of;
1403
1404   -------------------------
1405   -- Inheritable_Members --
1406   -------------------------
1407
1408   overriding function Inheritable_Members
1409    (Self : not null access constant UML_Activity_Proxy;
1410     C : AMF.UML.Classifiers.UML_Classifier_Access)
1411       return AMF.UML.Named_Elements.Collections.Set_Of_UML_Named_Element is
1412   begin
1413      --  Generated stub: replace with real body!
1414      pragma Compile_Time_Warning (Standard.True, "Inheritable_Members unimplemented");
1415      raise Program_Error with "Unimplemented procedure UML_Activity_Proxy.Inheritable_Members";
1416      return Inheritable_Members (Self, C);
1417   end Inheritable_Members;
1418
1419   ----------------------
1420   -- Inherited_Member --
1421   ----------------------
1422
1423   overriding function Inherited_Member
1424    (Self : not null access constant UML_Activity_Proxy)
1425       return AMF.UML.Named_Elements.Collections.Set_Of_UML_Named_Element is
1426   begin
1427      --  Generated stub: replace with real body!
1428      pragma Compile_Time_Warning (Standard.True, "Inherited_Member unimplemented");
1429      raise Program_Error with "Unimplemented procedure UML_Activity_Proxy.Inherited_Member";
1430      return Inherited_Member (Self);
1431   end Inherited_Member;
1432
1433   -----------------
1434   -- Is_Template --
1435   -----------------
1436
1437   overriding function Is_Template
1438    (Self : not null access constant UML_Activity_Proxy)
1439       return Boolean is
1440   begin
1441      --  Generated stub: replace with real body!
1442      pragma Compile_Time_Warning (Standard.True, "Is_Template unimplemented");
1443      raise Program_Error with "Unimplemented procedure UML_Activity_Proxy.Is_Template";
1444      return Is_Template (Self);
1445   end Is_Template;
1446
1447   -------------------------
1448   -- May_Specialize_Type --
1449   -------------------------
1450
1451   overriding function May_Specialize_Type
1452    (Self : not null access constant UML_Activity_Proxy;
1453     C : AMF.UML.Classifiers.UML_Classifier_Access)
1454       return Boolean is
1455   begin
1456      --  Generated stub: replace with real body!
1457      pragma Compile_Time_Warning (Standard.True, "May_Specialize_Type unimplemented");
1458      raise Program_Error with "Unimplemented procedure UML_Activity_Proxy.May_Specialize_Type";
1459      return May_Specialize_Type (Self, C);
1460   end May_Specialize_Type;
1461
1462   ------------------------
1463   -- Exclude_Collisions --
1464   ------------------------
1465
1466   overriding function Exclude_Collisions
1467    (Self : not null access constant UML_Activity_Proxy;
1468     Imps : AMF.UML.Packageable_Elements.Collections.Set_Of_UML_Packageable_Element)
1469       return AMF.UML.Packageable_Elements.Collections.Set_Of_UML_Packageable_Element is
1470   begin
1471      --  Generated stub: replace with real body!
1472      pragma Compile_Time_Warning (Standard.True, "Exclude_Collisions unimplemented");
1473      raise Program_Error with "Unimplemented procedure UML_Activity_Proxy.Exclude_Collisions";
1474      return Exclude_Collisions (Self, Imps);
1475   end Exclude_Collisions;
1476
1477   -------------------------
1478   -- Get_Names_Of_Member --
1479   -------------------------
1480
1481   overriding function Get_Names_Of_Member
1482    (Self : not null access constant UML_Activity_Proxy;
1483     Element : AMF.UML.Named_Elements.UML_Named_Element_Access)
1484       return AMF.String_Collections.Set_Of_String is
1485   begin
1486      --  Generated stub: replace with real body!
1487      pragma Compile_Time_Warning (Standard.True, "Get_Names_Of_Member unimplemented");
1488      raise Program_Error with "Unimplemented procedure UML_Activity_Proxy.Get_Names_Of_Member";
1489      return Get_Names_Of_Member (Self, Element);
1490   end Get_Names_Of_Member;
1491
1492   --------------------
1493   -- Import_Members --
1494   --------------------
1495
1496   overriding function Import_Members
1497    (Self : not null access constant UML_Activity_Proxy;
1498     Imps : AMF.UML.Packageable_Elements.Collections.Set_Of_UML_Packageable_Element)
1499       return AMF.UML.Packageable_Elements.Collections.Set_Of_UML_Packageable_Element is
1500   begin
1501      --  Generated stub: replace with real body!
1502      pragma Compile_Time_Warning (Standard.True, "Import_Members unimplemented");
1503      raise Program_Error with "Unimplemented procedure UML_Activity_Proxy.Import_Members";
1504      return Import_Members (Self, Imps);
1505   end Import_Members;
1506
1507   ---------------------
1508   -- Imported_Member --
1509   ---------------------
1510
1511   overriding function Imported_Member
1512    (Self : not null access constant UML_Activity_Proxy)
1513       return AMF.UML.Packageable_Elements.Collections.Set_Of_UML_Packageable_Element is
1514   begin
1515      --  Generated stub: replace with real body!
1516      pragma Compile_Time_Warning (Standard.True, "Imported_Member unimplemented");
1517      raise Program_Error with "Unimplemented procedure UML_Activity_Proxy.Imported_Member";
1518      return Imported_Member (Self);
1519   end Imported_Member;
1520
1521   ---------------------------------
1522   -- Members_Are_Distinguishable --
1523   ---------------------------------
1524
1525   overriding function Members_Are_Distinguishable
1526    (Self : not null access constant UML_Activity_Proxy)
1527       return Boolean is
1528   begin
1529      --  Generated stub: replace with real body!
1530      pragma Compile_Time_Warning (Standard.True, "Members_Are_Distinguishable unimplemented");
1531      raise Program_Error with "Unimplemented procedure UML_Activity_Proxy.Members_Are_Distinguishable";
1532      return Members_Are_Distinguishable (Self);
1533   end Members_Are_Distinguishable;
1534
1535   ------------------
1536   -- Owned_Member --
1537   ------------------
1538
1539   overriding function Owned_Member
1540    (Self : not null access constant UML_Activity_Proxy)
1541       return AMF.UML.Named_Elements.Collections.Set_Of_UML_Named_Element is
1542   begin
1543      --  Generated stub: replace with real body!
1544      pragma Compile_Time_Warning (Standard.True, "Owned_Member unimplemented");
1545      raise Program_Error with "Unimplemented procedure UML_Activity_Proxy.Owned_Member";
1546      return Owned_Member (Self);
1547   end Owned_Member;
1548
1549   -------------------------
1550   -- All_Owning_Packages --
1551   -------------------------
1552
1553   overriding function All_Owning_Packages
1554    (Self : not null access constant UML_Activity_Proxy)
1555       return AMF.UML.Packages.Collections.Set_Of_UML_Package is
1556   begin
1557      --  Generated stub: replace with real body!
1558      pragma Compile_Time_Warning (Standard.True, "All_Owning_Packages unimplemented");
1559      raise Program_Error with "Unimplemented procedure UML_Activity_Proxy.All_Owning_Packages";
1560      return All_Owning_Packages (Self);
1561   end All_Owning_Packages;
1562
1563   -----------------------------
1564   -- Is_Distinguishable_From --
1565   -----------------------------
1566
1567   overriding function Is_Distinguishable_From
1568    (Self : not null access constant UML_Activity_Proxy;
1569     N : AMF.UML.Named_Elements.UML_Named_Element_Access;
1570     Ns : AMF.UML.Namespaces.UML_Namespace_Access)
1571       return Boolean is
1572   begin
1573      --  Generated stub: replace with real body!
1574      pragma Compile_Time_Warning (Standard.True, "Is_Distinguishable_From unimplemented");
1575      raise Program_Error with "Unimplemented procedure UML_Activity_Proxy.Is_Distinguishable_From";
1576      return Is_Distinguishable_From (Self, N, Ns);
1577   end Is_Distinguishable_From;
1578
1579   ---------------
1580   -- Namespace --
1581   ---------------
1582
1583   overriding function Namespace
1584    (Self : not null access constant UML_Activity_Proxy)
1585       return AMF.UML.Namespaces.UML_Namespace_Access is
1586   begin
1587      --  Generated stub: replace with real body!
1588      pragma Compile_Time_Warning (Standard.True, "Namespace unimplemented");
1589      raise Program_Error with "Unimplemented procedure UML_Activity_Proxy.Namespace";
1590      return Namespace (Self);
1591   end Namespace;
1592
1593   -----------------
1594   -- Conforms_To --
1595   -----------------
1596
1597   overriding function Conforms_To
1598    (Self : not null access constant UML_Activity_Proxy;
1599     Other : AMF.UML.Types.UML_Type_Access)
1600       return Boolean is
1601   begin
1602      --  Generated stub: replace with real body!
1603      pragma Compile_Time_Warning (Standard.True, "Conforms_To unimplemented");
1604      raise Program_Error with "Unimplemented procedure UML_Activity_Proxy.Conforms_To";
1605      return Conforms_To (Self, Other);
1606   end Conforms_To;
1607
1608   ------------------------
1609   -- Is_Compatible_With --
1610   ------------------------
1611
1612   overriding function Is_Compatible_With
1613    (Self : not null access constant UML_Activity_Proxy;
1614     P : AMF.UML.Parameterable_Elements.UML_Parameterable_Element_Access)
1615       return Boolean is
1616   begin
1617      --  Generated stub: replace with real body!
1618      pragma Compile_Time_Warning (Standard.True, "Is_Compatible_With unimplemented");
1619      raise Program_Error with "Unimplemented procedure UML_Activity_Proxy.Is_Compatible_With";
1620      return Is_Compatible_With (Self, P);
1621   end Is_Compatible_With;
1622
1623   ---------------------------
1624   -- Is_Template_Parameter --
1625   ---------------------------
1626
1627   overriding function Is_Template_Parameter
1628    (Self : not null access constant UML_Activity_Proxy)
1629       return Boolean is
1630   begin
1631      --  Generated stub: replace with real body!
1632      pragma Compile_Time_Warning (Standard.True, "Is_Template_Parameter unimplemented");
1633      raise Program_Error with "Unimplemented procedure UML_Activity_Proxy.Is_Template_Parameter";
1634      return Is_Template_Parameter (Self);
1635   end Is_Template_Parameter;
1636
1637   ----------------------------
1638   -- Parameterable_Elements --
1639   ----------------------------
1640
1641   overriding function Parameterable_Elements
1642    (Self : not null access constant UML_Activity_Proxy)
1643       return AMF.UML.Parameterable_Elements.Collections.Set_Of_UML_Parameterable_Element is
1644   begin
1645      --  Generated stub: replace with real body!
1646      pragma Compile_Time_Warning (Standard.True, "Parameterable_Elements unimplemented");
1647      raise Program_Error with "Unimplemented procedure UML_Activity_Proxy.Parameterable_Elements";
1648      return Parameterable_Elements (Self);
1649   end Parameterable_Elements;
1650
1651   ------------------------
1652   -- Is_Consistent_With --
1653   ------------------------
1654
1655   overriding function Is_Consistent_With
1656    (Self : not null access constant UML_Activity_Proxy;
1657     Redefinee : AMF.UML.Redefinable_Elements.UML_Redefinable_Element_Access)
1658       return Boolean is
1659   begin
1660      --  Generated stub: replace with real body!
1661      pragma Compile_Time_Warning (Standard.True, "Is_Consistent_With unimplemented");
1662      raise Program_Error with "Unimplemented procedure UML_Activity_Proxy.Is_Consistent_With";
1663      return Is_Consistent_With (Self, Redefinee);
1664   end Is_Consistent_With;
1665
1666   -----------------------------------
1667   -- Is_Redefinition_Context_Valid --
1668   -----------------------------------
1669
1670   overriding function Is_Redefinition_Context_Valid
1671    (Self : not null access constant UML_Activity_Proxy;
1672     Redefined : AMF.UML.Redefinable_Elements.UML_Redefinable_Element_Access)
1673       return Boolean is
1674   begin
1675      --  Generated stub: replace with real body!
1676      pragma Compile_Time_Warning (Standard.True, "Is_Redefinition_Context_Valid unimplemented");
1677      raise Program_Error with "Unimplemented procedure UML_Activity_Proxy.Is_Redefinition_Context_Valid";
1678      return Is_Redefinition_Context_Valid (Self, Redefined);
1679   end Is_Redefinition_Context_Valid;
1680
1681   ----------------
1682   -- Owned_Port --
1683   ----------------
1684
1685   overriding function Owned_Port
1686    (Self : not null access constant UML_Activity_Proxy)
1687       return AMF.UML.Ports.Collections.Set_Of_UML_Port is
1688   begin
1689      --  Generated stub: replace with real body!
1690      pragma Compile_Time_Warning (Standard.True, "Owned_Port unimplemented");
1691      raise Program_Error with "Unimplemented procedure UML_Activity_Proxy.Owned_Port";
1692      return Owned_Port (Self);
1693   end Owned_Port;
1694
1695   ----------
1696   -- Part --
1697   ----------
1698
1699   overriding function Part
1700    (Self : not null access constant UML_Activity_Proxy)
1701       return AMF.UML.Properties.Collections.Set_Of_UML_Property is
1702   begin
1703      --  Generated stub: replace with real body!
1704      pragma Compile_Time_Warning (Standard.True, "Part unimplemented");
1705      raise Program_Error with "Unimplemented procedure UML_Activity_Proxy.Part";
1706      return Part (Self);
1707   end Part;
1708
1709end AMF.Internals.UML_Activities;
1710