1------------------------------------------------------------------------------
2--                                                                          --
3--                            Matreshka Project                             --
4--                                                                          --
5--                          Ada Modeling Framework                          --
6--                                                                          --
7--                        Runtime Library Component                         --
8--                                                                          --
9------------------------------------------------------------------------------
10--                                                                          --
11-- Copyright © 2012, Vadim Godunko <vgodunko@gmail.com>                     --
12-- All rights reserved.                                                     --
13--                                                                          --
14-- Redistribution and use in source and binary forms, with or without       --
15-- modification, are permitted provided that the following conditions       --
16-- are met:                                                                 --
17--                                                                          --
18--  * Redistributions of source code must retain the above copyright        --
19--    notice, this list of conditions and the following disclaimer.         --
20--                                                                          --
21--  * Redistributions in binary form must reproduce the above copyright     --
22--    notice, this list of conditions and the following disclaimer in the   --
23--    documentation and/or other materials provided with the distribution.  --
24--                                                                          --
25--  * Neither the name of the Vadim Godunko, IE nor the names of its        --
26--    contributors may be used to endorse or promote products derived from  --
27--    this software without specific prior written permission.              --
28--                                                                          --
29-- THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS      --
30-- "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT        --
31-- LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR    --
32-- A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT     --
33-- HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,   --
34-- SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED --
35-- TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR   --
36-- PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF   --
37-- LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING     --
38-- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS       --
39-- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.             --
40--                                                                          --
41------------------------------------------------------------------------------
42--  $Revision: 3436 $ $Date: 2012-11-14 10:14:34 +0400 (Wed, 14 Nov 2012) $
43------------------------------------------------------------------------------
44with League.Strings.Internals;
45with Matreshka.Internals.Strings;
46
47with AMF.Elements;
48with AMF.Internals.Element_Collections;
49with AMF.Internals.Helpers;
50with AMF.Internals.Tables.UML_Attributes;
51with AMF.Visitors.UMLDI_Iterators;
52with AMF.Visitors.UMLDI_Visitors;
53
54package body AMF.Internals.UMLDI_UML_Activity_Diagrams is
55
56   ---------------------------
57   -- Get_Is_Activity_Frame --
58   ---------------------------
59
60   overriding function Get_Is_Activity_Frame
61    (Self : not null access constant UMLDI_UML_Activity_Diagram_Proxy)
62       return Boolean is
63   begin
64      return
65        AMF.Internals.Tables.UML_Attributes.Internal_Get_Is_Activity_Frame
66         (Self.Element);
67   end Get_Is_Activity_Frame;
68
69   ---------------------------
70   -- Set_Is_Activity_Frame --
71   ---------------------------
72
73   overriding procedure Set_Is_Activity_Frame
74    (Self : not null access UMLDI_UML_Activity_Diagram_Proxy;
75     To   : Boolean) is
76   begin
77      AMF.Internals.Tables.UML_Attributes.Internal_Set_Is_Activity_Frame
78       (Self.Element, To);
79   end Set_Is_Activity_Frame;
80
81   -----------------------
82   -- Get_Model_Element --
83   -----------------------
84
85   overriding function Get_Model_Element
86    (Self : not null access constant UMLDI_UML_Activity_Diagram_Proxy)
87       return AMF.UML.Activities.UML_Activity_Access is
88   begin
89      return
90        AMF.UML.Activities.UML_Activity_Access
91         (AMF.Internals.Helpers.To_Element
92           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Model_Element
93             (Self.Element)));
94   end Get_Model_Element;
95
96   -----------------------
97   -- Set_Model_Element --
98   -----------------------
99
100   overriding procedure Set_Model_Element
101    (Self : not null access UMLDI_UML_Activity_Diagram_Proxy;
102     To   : AMF.UML.Activities.UML_Activity_Access) is
103   begin
104      raise Program_Error;
105--      AMF.Internals.Tables.UML_Attributes.Internal_Set_Model_Element
106--       (Self.Element,
107--        AMF.Internals.Helpers.To_Element
108--         (AMF.Elements.Element_Access (To)));
109   end Set_Model_Element;
110
111   -----------------------
112   -- Get_Model_Element --
113   -----------------------
114
115   overriding function Get_Model_Element
116    (Self : not null access constant UMLDI_UML_Activity_Diagram_Proxy)
117       return AMF.UML.Behaviors.UML_Behavior_Access is
118   begin
119      return
120        AMF.UML.Behaviors.UML_Behavior_Access
121         (AMF.Internals.Helpers.To_Element
122           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Model_Element
123             (Self.Element)));
124   end Get_Model_Element;
125
126   -----------------------
127   -- Set_Model_Element --
128   -----------------------
129
130   overriding procedure Set_Model_Element
131    (Self : not null access UMLDI_UML_Activity_Diagram_Proxy;
132     To   : AMF.UML.Behaviors.UML_Behavior_Access) is
133   begin
134      raise Program_Error;
135--      AMF.Internals.Tables.UML_Attributes.Internal_Set_Model_Element
136--       (Self.Element,
137--        AMF.Internals.Helpers.To_Element
138--         (AMF.Elements.Element_Access (To)));
139   end Set_Model_Element;
140
141   -----------------
142   -- Get_Heading --
143   -----------------
144
145   overriding function Get_Heading
146    (Self : not null access constant UMLDI_UML_Activity_Diagram_Proxy)
147       return AMF.UMLDI.UML_Labels.UMLDI_UML_Label_Access is
148   begin
149      return
150        AMF.UMLDI.UML_Labels.UMLDI_UML_Label_Access
151         (AMF.Internals.Helpers.To_Element
152           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Heading
153             (Self.Element)));
154   end Get_Heading;
155
156   -----------------
157   -- Set_Heading --
158   -----------------
159
160   overriding procedure Set_Heading
161    (Self : not null access UMLDI_UML_Activity_Diagram_Proxy;
162     To   : AMF.UMLDI.UML_Labels.UMLDI_UML_Label_Access) is
163   begin
164      AMF.Internals.Tables.UML_Attributes.Internal_Set_Heading
165       (Self.Element,
166        AMF.Internals.Helpers.To_Element
167         (AMF.Elements.Element_Access (To)));
168   end Set_Heading;
169
170   ------------------
171   -- Get_Is_Frame --
172   ------------------
173
174   overriding function Get_Is_Frame
175    (Self : not null access constant UMLDI_UML_Activity_Diagram_Proxy)
176       return Boolean is
177   begin
178      return
179        AMF.Internals.Tables.UML_Attributes.Internal_Get_Is_Frame
180         (Self.Element);
181   end Get_Is_Frame;
182
183   ------------------
184   -- Set_Is_Frame --
185   ------------------
186
187   overriding procedure Set_Is_Frame
188    (Self : not null access UMLDI_UML_Activity_Diagram_Proxy;
189     To   : Boolean) is
190   begin
191      AMF.Internals.Tables.UML_Attributes.Internal_Set_Is_Frame
192       (Self.Element, To);
193   end Set_Is_Frame;
194
195   ----------------
196   -- Get_Is_Iso --
197   ----------------
198
199   overriding function Get_Is_Iso
200    (Self : not null access constant UMLDI_UML_Activity_Diagram_Proxy)
201       return Boolean is
202   begin
203      return
204        AMF.Internals.Tables.UML_Attributes.Internal_Get_Is_Iso
205         (Self.Element);
206   end Get_Is_Iso;
207
208   ----------------
209   -- Set_Is_Iso --
210   ----------------
211
212   overriding procedure Set_Is_Iso
213    (Self : not null access UMLDI_UML_Activity_Diagram_Proxy;
214     To   : Boolean) is
215   begin
216      AMF.Internals.Tables.UML_Attributes.Internal_Set_Is_Iso
217       (Self.Element, To);
218   end Set_Is_Iso;
219
220   -----------------
221   -- Get_Is_Icon --
222   -----------------
223
224   overriding function Get_Is_Icon
225    (Self : not null access constant UMLDI_UML_Activity_Diagram_Proxy)
226       return Boolean is
227   begin
228      return
229        AMF.Internals.Tables.UML_Attributes.Internal_Get_Is_Icon
230         (Self.Element);
231   end Get_Is_Icon;
232
233   -----------------
234   -- Set_Is_Icon --
235   -----------------
236
237   overriding procedure Set_Is_Icon
238    (Self : not null access UMLDI_UML_Activity_Diagram_Proxy;
239     To   : Boolean) is
240   begin
241      AMF.Internals.Tables.UML_Attributes.Internal_Set_Is_Icon
242       (Self.Element, To);
243   end Set_Is_Icon;
244
245   ---------------------
246   -- Get_Local_Style --
247   ---------------------
248
249   overriding function Get_Local_Style
250    (Self : not null access constant UMLDI_UML_Activity_Diagram_Proxy)
251       return AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access is
252   begin
253      return
254        AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access
255         (AMF.Internals.Helpers.To_Element
256           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Local_Style
257             (Self.Element)));
258   end Get_Local_Style;
259
260   ---------------------
261   -- Set_Local_Style --
262   ---------------------
263
264   overriding procedure Set_Local_Style
265    (Self : not null access UMLDI_UML_Activity_Diagram_Proxy;
266     To   : AMF.UMLDI.UML_Styles.UMLDI_UML_Style_Access) is
267   begin
268      AMF.Internals.Tables.UML_Attributes.Internal_Set_Local_Style
269       (Self.Element,
270        AMF.Internals.Helpers.To_Element
271         (AMF.Elements.Element_Access (To)));
272   end Set_Local_Style;
273
274   -----------------------
275   -- Get_Model_Element --
276   -----------------------
277
278   overriding function Get_Model_Element
279    (Self : not null access constant UMLDI_UML_Activity_Diagram_Proxy)
280       return AMF.UML.Elements.Collections.Set_Of_UML_Element is
281   begin
282      raise Program_Error;
283      return X : AMF.UML.Elements.Collections.Set_Of_UML_Element;
284--      return
285--        AMF.UML.Elements.Collections.Wrap
286--         (AMF.Internals.Element_Collections.Wrap
287--           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Model_Element
288--             (Self.Element)));
289   end Get_Model_Element;
290
291   -----------------------
292   -- Get_Model_Element --
293   -----------------------
294
295   overriding function Get_Model_Element
296    (Self : not null access constant UMLDI_UML_Activity_Diagram_Proxy)
297       return AMF.CMOF.Elements.CMOF_Element_Access is
298   begin
299      return
300        AMF.CMOF.Elements.CMOF_Element_Access
301         (AMF.Internals.Helpers.To_Element
302           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Model_Element
303             (Self.Element)));
304   end Get_Model_Element;
305
306   ---------------------
307   -- Get_Local_Style --
308   ---------------------
309
310   overriding function Get_Local_Style
311    (Self : not null access constant UMLDI_UML_Activity_Diagram_Proxy)
312       return AMF.DI.Styles.DI_Style_Access is
313   begin
314      return
315        AMF.DI.Styles.DI_Style_Access
316         (AMF.Internals.Helpers.To_Element
317           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Local_Style
318             (Self.Element)));
319   end Get_Local_Style;
320
321   ---------------------
322   -- Set_Local_Style --
323   ---------------------
324
325   overriding procedure Set_Local_Style
326    (Self : not null access UMLDI_UML_Activity_Diagram_Proxy;
327     To   : AMF.DI.Styles.DI_Style_Access) is
328   begin
329      AMF.Internals.Tables.UML_Attributes.Internal_Set_Local_Style
330       (Self.Element,
331        AMF.Internals.Helpers.To_Element
332         (AMF.Elements.Element_Access (To)));
333   end Set_Local_Style;
334
335   --------------
336   -- Get_Name --
337   --------------
338
339   overriding function Get_Name
340    (Self : not null access constant UMLDI_UML_Activity_Diagram_Proxy)
341       return League.Strings.Universal_String is
342   begin
343      null;
344      return
345        League.Strings.Internals.Create
346         (AMF.Internals.Tables.UML_Attributes.Internal_Get_Name (Self.Element));
347   end Get_Name;
348
349   --------------
350   -- Set_Name --
351   --------------
352
353   overriding procedure Set_Name
354    (Self : not null access UMLDI_UML_Activity_Diagram_Proxy;
355     To   : League.Strings.Universal_String) is
356   begin
357      AMF.Internals.Tables.UML_Attributes.Internal_Set_Name
358       (Self.Element,
359        League.Strings.Internals.Internal (To));
360   end Set_Name;
361
362   -----------------------
363   -- Get_Documentation --
364   -----------------------
365
366   overriding function Get_Documentation
367    (Self : not null access constant UMLDI_UML_Activity_Diagram_Proxy)
368       return League.Strings.Universal_String is
369   begin
370      null;
371      return
372        League.Strings.Internals.Create
373         (AMF.Internals.Tables.UML_Attributes.Internal_Get_Documentation (Self.Element));
374   end Get_Documentation;
375
376   -----------------------
377   -- Set_Documentation --
378   -----------------------
379
380   overriding procedure Set_Documentation
381    (Self : not null access UMLDI_UML_Activity_Diagram_Proxy;
382     To   : League.Strings.Universal_String) is
383   begin
384      AMF.Internals.Tables.UML_Attributes.Internal_Set_Documentation
385       (Self.Element,
386        League.Strings.Internals.Internal (To));
387   end Set_Documentation;
388
389   --------------------
390   -- Get_Resolution --
391   --------------------
392
393   overriding function Get_Resolution
394    (Self : not null access constant UMLDI_UML_Activity_Diagram_Proxy)
395       return AMF.Real is
396   begin
397      return
398        AMF.Internals.Tables.UML_Attributes.Internal_Get_Resolution
399         (Self.Element);
400   end Get_Resolution;
401
402   --------------------
403   -- Set_Resolution --
404   --------------------
405
406   overriding procedure Set_Resolution
407    (Self : not null access UMLDI_UML_Activity_Diagram_Proxy;
408     To   : AMF.Real) is
409   begin
410      AMF.Internals.Tables.UML_Attributes.Internal_Set_Resolution
411       (Self.Element, To);
412   end Set_Resolution;
413
414   ---------------------------
415   -- Get_Client_Dependency --
416   ---------------------------
417
418   overriding function Get_Client_Dependency
419    (Self : not null access constant UMLDI_UML_Activity_Diagram_Proxy)
420       return AMF.UML.Dependencies.Collections.Set_Of_UML_Dependency is
421   begin
422      return
423        AMF.UML.Dependencies.Collections.Wrap
424         (AMF.Internals.Element_Collections.Wrap
425           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Client_Dependency
426             (Self.Element)));
427   end Get_Client_Dependency;
428
429   --------------
430   -- Get_Name --
431   --------------
432
433   overriding function Get_Name
434    (Self : not null access constant UMLDI_UML_Activity_Diagram_Proxy)
435       return AMF.Optional_String is
436   begin
437      declare
438         use type Matreshka.Internals.Strings.Shared_String_Access;
439
440         Aux : constant Matreshka.Internals.Strings.Shared_String_Access
441           := AMF.Internals.Tables.UML_Attributes.Internal_Get_Name (Self.Element);
442
443      begin
444         if Aux = null then
445            return (Is_Empty => True);
446
447         else
448            return (False, League.Strings.Internals.Create (Aux));
449         end if;
450      end;
451   end Get_Name;
452
453   --------------
454   -- Set_Name --
455   --------------
456
457   overriding procedure Set_Name
458    (Self : not null access UMLDI_UML_Activity_Diagram_Proxy;
459     To   : AMF.Optional_String) is
460   begin
461      if To.Is_Empty then
462         AMF.Internals.Tables.UML_Attributes.Internal_Set_Name
463          (Self.Element, null);
464
465      else
466         AMF.Internals.Tables.UML_Attributes.Internal_Set_Name
467          (Self.Element,
468           League.Strings.Internals.Internal (To.Value));
469      end if;
470   end Set_Name;
471
472   -------------------------
473   -- Get_Name_Expression --
474   -------------------------
475
476   overriding function Get_Name_Expression
477    (Self : not null access constant UMLDI_UML_Activity_Diagram_Proxy)
478       return AMF.UML.String_Expressions.UML_String_Expression_Access is
479   begin
480      return
481        AMF.UML.String_Expressions.UML_String_Expression_Access
482         (AMF.Internals.Helpers.To_Element
483           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Name_Expression
484             (Self.Element)));
485   end Get_Name_Expression;
486
487   -------------------------
488   -- Set_Name_Expression --
489   -------------------------
490
491   overriding procedure Set_Name_Expression
492    (Self : not null access UMLDI_UML_Activity_Diagram_Proxy;
493     To   : AMF.UML.String_Expressions.UML_String_Expression_Access) is
494   begin
495      AMF.Internals.Tables.UML_Attributes.Internal_Set_Name_Expression
496       (Self.Element,
497        AMF.Internals.Helpers.To_Element
498         (AMF.Elements.Element_Access (To)));
499   end Set_Name_Expression;
500
501   -------------------
502   -- Get_Namespace --
503   -------------------
504
505   overriding function Get_Namespace
506    (Self : not null access constant UMLDI_UML_Activity_Diagram_Proxy)
507       return AMF.UML.Namespaces.UML_Namespace_Access is
508   begin
509      return
510        AMF.UML.Namespaces.UML_Namespace_Access
511         (AMF.Internals.Helpers.To_Element
512           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Namespace
513             (Self.Element)));
514   end Get_Namespace;
515
516   ------------------------
517   -- Get_Qualified_Name --
518   ------------------------
519
520   overriding function Get_Qualified_Name
521    (Self : not null access constant UMLDI_UML_Activity_Diagram_Proxy)
522       return AMF.Optional_String is
523   begin
524      declare
525         use type Matreshka.Internals.Strings.Shared_String_Access;
526
527         Aux : constant Matreshka.Internals.Strings.Shared_String_Access
528           := AMF.Internals.Tables.UML_Attributes.Internal_Get_Qualified_Name (Self.Element);
529
530      begin
531         if Aux = null then
532            return (Is_Empty => True);
533
534         else
535            return (False, League.Strings.Internals.Create (Aux));
536         end if;
537      end;
538   end Get_Qualified_Name;
539
540   -----------------------
541   -- Get_Owned_Comment --
542   -----------------------
543
544   overriding function Get_Owned_Comment
545    (Self : not null access constant UMLDI_UML_Activity_Diagram_Proxy)
546       return AMF.UML.Comments.Collections.Set_Of_UML_Comment is
547   begin
548      return
549        AMF.UML.Comments.Collections.Wrap
550         (AMF.Internals.Element_Collections.Wrap
551           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Owned_Comment
552             (Self.Element)));
553   end Get_Owned_Comment;
554
555   -----------------------
556   -- Get_Owned_Element --
557   -----------------------
558
559   overriding function Get_Owned_Element
560    (Self : not null access constant UMLDI_UML_Activity_Diagram_Proxy)
561       return AMF.UML.Elements.Collections.Set_Of_UML_Element is
562   begin
563      return
564        AMF.UML.Elements.Collections.Wrap
565         (AMF.Internals.Element_Collections.Wrap
566           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Owned_Element
567             (Self.Element)));
568   end Get_Owned_Element;
569
570   ---------------
571   -- Get_Owner --
572   ---------------
573
574   overriding function Get_Owner
575    (Self : not null access constant UMLDI_UML_Activity_Diagram_Proxy)
576       return AMF.UML.Elements.UML_Element_Access is
577   begin
578      return
579        AMF.UML.Elements.UML_Element_Access
580         (AMF.Internals.Helpers.To_Element
581           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Owner
582             (Self.Element)));
583   end Get_Owner;
584
585   -----------------------------------
586   -- Get_Owning_Template_Parameter --
587   -----------------------------------
588
589   overriding function Get_Owning_Template_Parameter
590    (Self : not null access constant UMLDI_UML_Activity_Diagram_Proxy)
591       return AMF.UML.Template_Parameters.UML_Template_Parameter_Access is
592   begin
593      return
594        AMF.UML.Template_Parameters.UML_Template_Parameter_Access
595         (AMF.Internals.Helpers.To_Element
596           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Owning_Template_Parameter
597             (Self.Element)));
598   end Get_Owning_Template_Parameter;
599
600   -----------------------------------
601   -- Set_Owning_Template_Parameter --
602   -----------------------------------
603
604   overriding procedure Set_Owning_Template_Parameter
605    (Self : not null access UMLDI_UML_Activity_Diagram_Proxy;
606     To   : AMF.UML.Template_Parameters.UML_Template_Parameter_Access) is
607   begin
608      AMF.Internals.Tables.UML_Attributes.Internal_Set_Owning_Template_Parameter
609       (Self.Element,
610        AMF.Internals.Helpers.To_Element
611         (AMF.Elements.Element_Access (To)));
612   end Set_Owning_Template_Parameter;
613
614   ----------------------------
615   -- Get_Template_Parameter --
616   ----------------------------
617
618   overriding function Get_Template_Parameter
619    (Self : not null access constant UMLDI_UML_Activity_Diagram_Proxy)
620       return AMF.UML.Template_Parameters.UML_Template_Parameter_Access is
621   begin
622      return
623        AMF.UML.Template_Parameters.UML_Template_Parameter_Access
624         (AMF.Internals.Helpers.To_Element
625           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Template_Parameter
626             (Self.Element)));
627   end Get_Template_Parameter;
628
629   ----------------------------
630   -- Set_Template_Parameter --
631   ----------------------------
632
633   overriding procedure Set_Template_Parameter
634    (Self : not null access UMLDI_UML_Activity_Diagram_Proxy;
635     To   : AMF.UML.Template_Parameters.UML_Template_Parameter_Access) is
636   begin
637      AMF.Internals.Tables.UML_Attributes.Internal_Set_Template_Parameter
638       (Self.Element,
639        AMF.Internals.Helpers.To_Element
640         (AMF.Elements.Element_Access (To)));
641   end Set_Template_Parameter;
642
643   --------------------
644   -- All_Namespaces --
645   --------------------
646
647   overriding function All_Namespaces
648    (Self : not null access constant UMLDI_UML_Activity_Diagram_Proxy)
649       return AMF.UML.Namespaces.Collections.Ordered_Set_Of_UML_Namespace is
650   begin
651      --  Generated stub: replace with real body!
652      pragma Compile_Time_Warning (Standard.True, "All_Namespaces unimplemented");
653      raise Program_Error with "Unimplemented procedure UMLDI_UML_Activity_Diagram_Proxy.All_Namespaces";
654      return All_Namespaces (Self);
655   end All_Namespaces;
656
657   -------------------------
658   -- All_Owning_Packages --
659   -------------------------
660
661   overriding function All_Owning_Packages
662    (Self : not null access constant UMLDI_UML_Activity_Diagram_Proxy)
663       return AMF.UML.Packages.Collections.Set_Of_UML_Package is
664   begin
665      --  Generated stub: replace with real body!
666      pragma Compile_Time_Warning (Standard.True, "All_Owning_Packages unimplemented");
667      raise Program_Error with "Unimplemented procedure UMLDI_UML_Activity_Diagram_Proxy.All_Owning_Packages";
668      return All_Owning_Packages (Self);
669   end All_Owning_Packages;
670
671   -----------------------------
672   -- Is_Distinguishable_From --
673   -----------------------------
674
675   overriding function Is_Distinguishable_From
676    (Self : not null access constant UMLDI_UML_Activity_Diagram_Proxy;
677     N : AMF.UML.Named_Elements.UML_Named_Element_Access;
678     Ns : AMF.UML.Namespaces.UML_Namespace_Access)
679       return Boolean is
680   begin
681      --  Generated stub: replace with real body!
682      pragma Compile_Time_Warning (Standard.True, "Is_Distinguishable_From unimplemented");
683      raise Program_Error with "Unimplemented procedure UMLDI_UML_Activity_Diagram_Proxy.Is_Distinguishable_From";
684      return Is_Distinguishable_From (Self, N, Ns);
685   end Is_Distinguishable_From;
686
687   ---------------
688   -- Namespace --
689   ---------------
690
691   overriding function Namespace
692    (Self : not null access constant UMLDI_UML_Activity_Diagram_Proxy)
693       return AMF.UML.Namespaces.UML_Namespace_Access is
694   begin
695      --  Generated stub: replace with real body!
696      pragma Compile_Time_Warning (Standard.True, "Namespace unimplemented");
697      raise Program_Error with "Unimplemented procedure UMLDI_UML_Activity_Diagram_Proxy.Namespace";
698      return Namespace (Self);
699   end Namespace;
700
701   --------------------
702   -- Qualified_Name --
703   --------------------
704
705   overriding function Qualified_Name
706    (Self : not null access constant UMLDI_UML_Activity_Diagram_Proxy)
707       return League.Strings.Universal_String is
708   begin
709      --  Generated stub: replace with real body!
710      pragma Compile_Time_Warning (Standard.True, "Qualified_Name unimplemented");
711      raise Program_Error with "Unimplemented procedure UMLDI_UML_Activity_Diagram_Proxy.Qualified_Name";
712      return Qualified_Name (Self);
713   end Qualified_Name;
714
715   ---------------
716   -- Separator --
717   ---------------
718
719   overriding function Separator
720    (Self : not null access constant UMLDI_UML_Activity_Diagram_Proxy)
721       return League.Strings.Universal_String is
722   begin
723      --  Generated stub: replace with real body!
724      pragma Compile_Time_Warning (Standard.True, "Separator unimplemented");
725      raise Program_Error with "Unimplemented procedure UMLDI_UML_Activity_Diagram_Proxy.Separator";
726      return Separator (Self);
727   end Separator;
728
729   ------------------------
730   -- All_Owned_Elements --
731   ------------------------
732
733   overriding function All_Owned_Elements
734    (Self : not null access constant UMLDI_UML_Activity_Diagram_Proxy)
735       return AMF.UML.Elements.Collections.Set_Of_UML_Element is
736   begin
737      --  Generated stub: replace with real body!
738      pragma Compile_Time_Warning (Standard.True, "All_Owned_Elements unimplemented");
739      raise Program_Error with "Unimplemented procedure UMLDI_UML_Activity_Diagram_Proxy.All_Owned_Elements";
740      return All_Owned_Elements (Self);
741   end All_Owned_Elements;
742
743   ------------------------
744   -- Is_Compatible_With --
745   ------------------------
746
747   overriding function Is_Compatible_With
748    (Self : not null access constant UMLDI_UML_Activity_Diagram_Proxy;
749     P : AMF.UML.Parameterable_Elements.UML_Parameterable_Element_Access)
750       return Boolean is
751   begin
752      --  Generated stub: replace with real body!
753      pragma Compile_Time_Warning (Standard.True, "Is_Compatible_With unimplemented");
754      raise Program_Error with "Unimplemented procedure UMLDI_UML_Activity_Diagram_Proxy.Is_Compatible_With";
755      return Is_Compatible_With (Self, P);
756   end Is_Compatible_With;
757
758   ---------------------------
759   -- Is_Template_Parameter --
760   ---------------------------
761
762   overriding function Is_Template_Parameter
763    (Self : not null access constant UMLDI_UML_Activity_Diagram_Proxy)
764       return Boolean is
765   begin
766      --  Generated stub: replace with real body!
767      pragma Compile_Time_Warning (Standard.True, "Is_Template_Parameter unimplemented");
768      raise Program_Error with "Unimplemented procedure UMLDI_UML_Activity_Diagram_Proxy.Is_Template_Parameter";
769      return Is_Template_Parameter (Self);
770   end Is_Template_Parameter;
771
772   -------------------
773   -- Enter_Element --
774   -------------------
775
776   overriding procedure Enter_Element
777    (Self    : not null access constant UMLDI_UML_Activity_Diagram_Proxy;
778     Visitor : in out AMF.Visitors.Abstract_Visitor'Class;
779     Control : in out AMF.Visitors.Traverse_Control) is
780   begin
781      if Visitor in AMF.Visitors.UMLDI_Visitors.UMLDI_Visitor'Class then
782         AMF.Visitors.UMLDI_Visitors.UMLDI_Visitor'Class
783          (Visitor).Enter_UML_Activity_Diagram
784            (AMF.UMLDI.UML_Activity_Diagrams.UMLDI_UML_Activity_Diagram_Access (Self),
785           Control);
786      end if;
787   end Enter_Element;
788
789   -------------------
790   -- Leave_Element --
791   -------------------
792
793   overriding procedure Leave_Element
794    (Self    : not null access constant UMLDI_UML_Activity_Diagram_Proxy;
795     Visitor : in out AMF.Visitors.Abstract_Visitor'Class;
796     Control : in out AMF.Visitors.Traverse_Control) is
797   begin
798      if Visitor in AMF.Visitors.UMLDI_Visitors.UMLDI_Visitor'Class then
799         AMF.Visitors.UMLDI_Visitors.UMLDI_Visitor'Class
800          (Visitor).Leave_UML_Activity_Diagram
801            (AMF.UMLDI.UML_Activity_Diagrams.UMLDI_UML_Activity_Diagram_Access (Self),
802           Control);
803      end if;
804   end Leave_Element;
805
806   -------------------
807   -- Visit_Element --
808   -------------------
809
810   overriding procedure Visit_Element
811    (Self     : not null access constant UMLDI_UML_Activity_Diagram_Proxy;
812     Iterator : in out AMF.Visitors.Abstract_Iterator'Class;
813     Visitor  : in out AMF.Visitors.Abstract_Visitor'Class;
814     Control  : in out AMF.Visitors.Traverse_Control) is
815   begin
816      if Iterator in AMF.Visitors.UMLDI_Iterators.UMLDI_Iterator'Class then
817         AMF.Visitors.UMLDI_Iterators.UMLDI_Iterator'Class
818          (Iterator).Visit_UML_Activity_Diagram
819            (Visitor,
820             AMF.UMLDI.UML_Activity_Diagrams.UMLDI_UML_Activity_Diagram_Access (Self),
821           Control);
822      end if;
823   end Visit_Element;
824
825end AMF.Internals.UMLDI_UML_Activity_Diagrams;
826