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_Create_Link_Actions is
54
55   -------------------
56   -- Enter_Element --
57   -------------------
58
59   overriding procedure Enter_Element
60    (Self    : not null access constant UML_Create_Link_Action_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_Create_Link_Action
67            (AMF.UML.Create_Link_Actions.UML_Create_Link_Action_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_Create_Link_Action_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_Create_Link_Action
84            (AMF.UML.Create_Link_Actions.UML_Create_Link_Action_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_Create_Link_Action_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_Create_Link_Action
102            (Visitor,
103             AMF.UML.Create_Link_Actions.UML_Create_Link_Action_Access (Self),
104             Control);
105      end if;
106   end Visit_Element;
107
108   ------------------
109   -- Get_End_Data --
110   ------------------
111
112   overriding function Get_End_Data
113    (Self : not null access constant UML_Create_Link_Action_Proxy)
114       return AMF.UML.Link_End_Creation_Datas.Collections.Set_Of_UML_Link_End_Creation_Data is
115   begin
116      return
117        AMF.UML.Link_End_Creation_Datas.Collections.Wrap
118         (AMF.Internals.Element_Collections.Wrap
119           (AMF.Internals.Tables.UML_Attributes.Internal_Get_End_Data
120             (Self.Element)));
121   end Get_End_Data;
122
123   ------------------
124   -- Get_End_Data --
125   ------------------
126
127   overriding function Get_End_Data
128    (Self : not null access constant UML_Create_Link_Action_Proxy)
129       return AMF.UML.Link_End_Datas.Collections.Set_Of_UML_Link_End_Data is
130   begin
131      return
132        AMF.UML.Link_End_Datas.Collections.Wrap
133         (AMF.Internals.Element_Collections.Wrap
134           (AMF.Internals.Tables.UML_Attributes.Internal_Get_End_Data
135             (Self.Element)));
136   end Get_End_Data;
137
138   ---------------------
139   -- Get_Input_Value --
140   ---------------------
141
142   overriding function Get_Input_Value
143    (Self : not null access constant UML_Create_Link_Action_Proxy)
144       return AMF.UML.Input_Pins.Collections.Set_Of_UML_Input_Pin is
145   begin
146      return
147        AMF.UML.Input_Pins.Collections.Wrap
148         (AMF.Internals.Element_Collections.Wrap
149           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Input_Value
150             (Self.Element)));
151   end Get_Input_Value;
152
153   -----------------
154   -- Get_Context --
155   -----------------
156
157   overriding function Get_Context
158    (Self : not null access constant UML_Create_Link_Action_Proxy)
159       return AMF.UML.Classifiers.UML_Classifier_Access is
160   begin
161      return
162        AMF.UML.Classifiers.UML_Classifier_Access
163         (AMF.Internals.Helpers.To_Element
164           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Context
165             (Self.Element)));
166   end Get_Context;
167
168   ---------------
169   -- Get_Input --
170   ---------------
171
172   overriding function Get_Input
173    (Self : not null access constant UML_Create_Link_Action_Proxy)
174       return AMF.UML.Input_Pins.Collections.Ordered_Set_Of_UML_Input_Pin is
175   begin
176      return
177        AMF.UML.Input_Pins.Collections.Wrap
178         (AMF.Internals.Element_Collections.Wrap
179           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Input
180             (Self.Element)));
181   end Get_Input;
182
183   ------------------------------
184   -- Get_Is_Locally_Reentrant --
185   ------------------------------
186
187   overriding function Get_Is_Locally_Reentrant
188    (Self : not null access constant UML_Create_Link_Action_Proxy)
189       return Boolean is
190   begin
191      return
192        AMF.Internals.Tables.UML_Attributes.Internal_Get_Is_Locally_Reentrant
193         (Self.Element);
194   end Get_Is_Locally_Reentrant;
195
196   ------------------------------
197   -- Set_Is_Locally_Reentrant --
198   ------------------------------
199
200   overriding procedure Set_Is_Locally_Reentrant
201    (Self : not null access UML_Create_Link_Action_Proxy;
202     To   : Boolean) is
203   begin
204      AMF.Internals.Tables.UML_Attributes.Internal_Set_Is_Locally_Reentrant
205       (Self.Element, To);
206   end Set_Is_Locally_Reentrant;
207
208   -----------------------------
209   -- Get_Local_Postcondition --
210   -----------------------------
211
212   overriding function Get_Local_Postcondition
213    (Self : not null access constant UML_Create_Link_Action_Proxy)
214       return AMF.UML.Constraints.Collections.Set_Of_UML_Constraint is
215   begin
216      return
217        AMF.UML.Constraints.Collections.Wrap
218         (AMF.Internals.Element_Collections.Wrap
219           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Local_Postcondition
220             (Self.Element)));
221   end Get_Local_Postcondition;
222
223   ----------------------------
224   -- Get_Local_Precondition --
225   ----------------------------
226
227   overriding function Get_Local_Precondition
228    (Self : not null access constant UML_Create_Link_Action_Proxy)
229       return AMF.UML.Constraints.Collections.Set_Of_UML_Constraint is
230   begin
231      return
232        AMF.UML.Constraints.Collections.Wrap
233         (AMF.Internals.Element_Collections.Wrap
234           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Local_Precondition
235             (Self.Element)));
236   end Get_Local_Precondition;
237
238   ----------------
239   -- Get_Output --
240   ----------------
241
242   overriding function Get_Output
243    (Self : not null access constant UML_Create_Link_Action_Proxy)
244       return AMF.UML.Output_Pins.Collections.Ordered_Set_Of_UML_Output_Pin is
245   begin
246      return
247        AMF.UML.Output_Pins.Collections.Wrap
248         (AMF.Internals.Element_Collections.Wrap
249           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Output
250             (Self.Element)));
251   end Get_Output;
252
253   -----------------
254   -- Get_Handler --
255   -----------------
256
257   overriding function Get_Handler
258    (Self : not null access constant UML_Create_Link_Action_Proxy)
259       return AMF.UML.Exception_Handlers.Collections.Set_Of_UML_Exception_Handler is
260   begin
261      return
262        AMF.UML.Exception_Handlers.Collections.Wrap
263         (AMF.Internals.Element_Collections.Wrap
264           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Handler
265             (Self.Element)));
266   end Get_Handler;
267
268   ------------------
269   -- Get_Activity --
270   ------------------
271
272   overriding function Get_Activity
273    (Self : not null access constant UML_Create_Link_Action_Proxy)
274       return AMF.UML.Activities.UML_Activity_Access is
275   begin
276      return
277        AMF.UML.Activities.UML_Activity_Access
278         (AMF.Internals.Helpers.To_Element
279           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Activity
280             (Self.Element)));
281   end Get_Activity;
282
283   ------------------
284   -- Set_Activity --
285   ------------------
286
287   overriding procedure Set_Activity
288    (Self : not null access UML_Create_Link_Action_Proxy;
289     To   : AMF.UML.Activities.UML_Activity_Access) is
290   begin
291      AMF.Internals.Tables.UML_Attributes.Internal_Set_Activity
292       (Self.Element,
293        AMF.Internals.Helpers.To_Element
294         (AMF.Elements.Element_Access (To)));
295   end Set_Activity;
296
297   ------------------
298   -- Get_In_Group --
299   ------------------
300
301   overriding function Get_In_Group
302    (Self : not null access constant UML_Create_Link_Action_Proxy)
303       return AMF.UML.Activity_Groups.Collections.Set_Of_UML_Activity_Group is
304   begin
305      return
306        AMF.UML.Activity_Groups.Collections.Wrap
307         (AMF.Internals.Element_Collections.Wrap
308           (AMF.Internals.Tables.UML_Attributes.Internal_Get_In_Group
309             (Self.Element)));
310   end Get_In_Group;
311
312   ---------------------------------
313   -- Get_In_Interruptible_Region --
314   ---------------------------------
315
316   overriding function Get_In_Interruptible_Region
317    (Self : not null access constant UML_Create_Link_Action_Proxy)
318       return AMF.UML.Interruptible_Activity_Regions.Collections.Set_Of_UML_Interruptible_Activity_Region is
319   begin
320      return
321        AMF.UML.Interruptible_Activity_Regions.Collections.Wrap
322         (AMF.Internals.Element_Collections.Wrap
323           (AMF.Internals.Tables.UML_Attributes.Internal_Get_In_Interruptible_Region
324             (Self.Element)));
325   end Get_In_Interruptible_Region;
326
327   ----------------------
328   -- Get_In_Partition --
329   ----------------------
330
331   overriding function Get_In_Partition
332    (Self : not null access constant UML_Create_Link_Action_Proxy)
333       return AMF.UML.Activity_Partitions.Collections.Set_Of_UML_Activity_Partition is
334   begin
335      return
336        AMF.UML.Activity_Partitions.Collections.Wrap
337         (AMF.Internals.Element_Collections.Wrap
338           (AMF.Internals.Tables.UML_Attributes.Internal_Get_In_Partition
339             (Self.Element)));
340   end Get_In_Partition;
341
342   ----------------------------
343   -- Get_In_Structured_Node --
344   ----------------------------
345
346   overriding function Get_In_Structured_Node
347    (Self : not null access constant UML_Create_Link_Action_Proxy)
348       return AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access is
349   begin
350      return
351        AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access
352         (AMF.Internals.Helpers.To_Element
353           (AMF.Internals.Tables.UML_Attributes.Internal_Get_In_Structured_Node
354             (Self.Element)));
355   end Get_In_Structured_Node;
356
357   ----------------------------
358   -- Set_In_Structured_Node --
359   ----------------------------
360
361   overriding procedure Set_In_Structured_Node
362    (Self : not null access UML_Create_Link_Action_Proxy;
363     To   : AMF.UML.Structured_Activity_Nodes.UML_Structured_Activity_Node_Access) is
364   begin
365      AMF.Internals.Tables.UML_Attributes.Internal_Set_In_Structured_Node
366       (Self.Element,
367        AMF.Internals.Helpers.To_Element
368         (AMF.Elements.Element_Access (To)));
369   end Set_In_Structured_Node;
370
371   ------------------
372   -- Get_Incoming --
373   ------------------
374
375   overriding function Get_Incoming
376    (Self : not null access constant UML_Create_Link_Action_Proxy)
377       return AMF.UML.Activity_Edges.Collections.Set_Of_UML_Activity_Edge is
378   begin
379      return
380        AMF.UML.Activity_Edges.Collections.Wrap
381         (AMF.Internals.Element_Collections.Wrap
382           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Incoming
383             (Self.Element)));
384   end Get_Incoming;
385
386   ------------------
387   -- Get_Outgoing --
388   ------------------
389
390   overriding function Get_Outgoing
391    (Self : not null access constant UML_Create_Link_Action_Proxy)
392       return AMF.UML.Activity_Edges.Collections.Set_Of_UML_Activity_Edge is
393   begin
394      return
395        AMF.UML.Activity_Edges.Collections.Wrap
396         (AMF.Internals.Element_Collections.Wrap
397           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Outgoing
398             (Self.Element)));
399   end Get_Outgoing;
400
401   ------------------------
402   -- Get_Redefined_Node --
403   ------------------------
404
405   overriding function Get_Redefined_Node
406    (Self : not null access constant UML_Create_Link_Action_Proxy)
407       return AMF.UML.Activity_Nodes.Collections.Set_Of_UML_Activity_Node is
408   begin
409      return
410        AMF.UML.Activity_Nodes.Collections.Wrap
411         (AMF.Internals.Element_Collections.Wrap
412           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Redefined_Node
413             (Self.Element)));
414   end Get_Redefined_Node;
415
416   -----------------
417   -- Get_Is_Leaf --
418   -----------------
419
420   overriding function Get_Is_Leaf
421    (Self : not null access constant UML_Create_Link_Action_Proxy)
422       return Boolean is
423   begin
424      return
425        AMF.Internals.Tables.UML_Attributes.Internal_Get_Is_Leaf
426         (Self.Element);
427   end Get_Is_Leaf;
428
429   -----------------
430   -- Set_Is_Leaf --
431   -----------------
432
433   overriding procedure Set_Is_Leaf
434    (Self : not null access UML_Create_Link_Action_Proxy;
435     To   : Boolean) is
436   begin
437      AMF.Internals.Tables.UML_Attributes.Internal_Set_Is_Leaf
438       (Self.Element, To);
439   end Set_Is_Leaf;
440
441   ---------------------------
442   -- Get_Redefined_Element --
443   ---------------------------
444
445   overriding function Get_Redefined_Element
446    (Self : not null access constant UML_Create_Link_Action_Proxy)
447       return AMF.UML.Redefinable_Elements.Collections.Set_Of_UML_Redefinable_Element is
448   begin
449      return
450        AMF.UML.Redefinable_Elements.Collections.Wrap
451         (AMF.Internals.Element_Collections.Wrap
452           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Redefined_Element
453             (Self.Element)));
454   end Get_Redefined_Element;
455
456   ------------------------------
457   -- Get_Redefinition_Context --
458   ------------------------------
459
460   overriding function Get_Redefinition_Context
461    (Self : not null access constant UML_Create_Link_Action_Proxy)
462       return AMF.UML.Classifiers.Collections.Set_Of_UML_Classifier is
463   begin
464      return
465        AMF.UML.Classifiers.Collections.Wrap
466         (AMF.Internals.Element_Collections.Wrap
467           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Redefinition_Context
468             (Self.Element)));
469   end Get_Redefinition_Context;
470
471   ---------------------------
472   -- Get_Client_Dependency --
473   ---------------------------
474
475   overriding function Get_Client_Dependency
476    (Self : not null access constant UML_Create_Link_Action_Proxy)
477       return AMF.UML.Dependencies.Collections.Set_Of_UML_Dependency is
478   begin
479      return
480        AMF.UML.Dependencies.Collections.Wrap
481         (AMF.Internals.Element_Collections.Wrap
482           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Client_Dependency
483             (Self.Element)));
484   end Get_Client_Dependency;
485
486   -------------------------
487   -- Get_Name_Expression --
488   -------------------------
489
490   overriding function Get_Name_Expression
491    (Self : not null access constant UML_Create_Link_Action_Proxy)
492       return AMF.UML.String_Expressions.UML_String_Expression_Access is
493   begin
494      return
495        AMF.UML.String_Expressions.UML_String_Expression_Access
496         (AMF.Internals.Helpers.To_Element
497           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Name_Expression
498             (Self.Element)));
499   end Get_Name_Expression;
500
501   -------------------------
502   -- Set_Name_Expression --
503   -------------------------
504
505   overriding procedure Set_Name_Expression
506    (Self : not null access UML_Create_Link_Action_Proxy;
507     To   : AMF.UML.String_Expressions.UML_String_Expression_Access) is
508   begin
509      AMF.Internals.Tables.UML_Attributes.Internal_Set_Name_Expression
510       (Self.Element,
511        AMF.Internals.Helpers.To_Element
512         (AMF.Elements.Element_Access (To)));
513   end Set_Name_Expression;
514
515   -------------------
516   -- Get_Namespace --
517   -------------------
518
519   overriding function Get_Namespace
520    (Self : not null access constant UML_Create_Link_Action_Proxy)
521       return AMF.UML.Namespaces.UML_Namespace_Access is
522   begin
523      return
524        AMF.UML.Namespaces.UML_Namespace_Access
525         (AMF.Internals.Helpers.To_Element
526           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Namespace
527             (Self.Element)));
528   end Get_Namespace;
529
530   ------------------------
531   -- Get_Qualified_Name --
532   ------------------------
533
534   overriding function Get_Qualified_Name
535    (Self : not null access constant UML_Create_Link_Action_Proxy)
536       return AMF.Optional_String is
537   begin
538      declare
539         use type Matreshka.Internals.Strings.Shared_String_Access;
540
541         Aux : constant Matreshka.Internals.Strings.Shared_String_Access
542           := AMF.Internals.Tables.UML_Attributes.Internal_Get_Qualified_Name (Self.Element);
543
544      begin
545         if Aux = null then
546            return (Is_Empty => True);
547
548         else
549            return (False, League.Strings.Internals.Create (Aux));
550         end if;
551      end;
552   end Get_Qualified_Name;
553
554   -----------------
555   -- Association --
556   -----------------
557
558   overriding function Association
559    (Self : not null access constant UML_Create_Link_Action_Proxy)
560       return AMF.UML.Associations.UML_Association_Access is
561   begin
562      --  Generated stub: replace with real body!
563      pragma Compile_Time_Warning (Standard.True, "Association unimplemented");
564      raise Program_Error with "Unimplemented procedure UML_Create_Link_Action_Proxy.Association";
565      return Association (Self);
566   end Association;
567
568   -------------
569   -- Context --
570   -------------
571
572   overriding function Context
573    (Self : not null access constant UML_Create_Link_Action_Proxy)
574       return AMF.UML.Classifiers.UML_Classifier_Access is
575   begin
576      --  Generated stub: replace with real body!
577      pragma Compile_Time_Warning (Standard.True, "Context unimplemented");
578      raise Program_Error with "Unimplemented procedure UML_Create_Link_Action_Proxy.Context";
579      return Context (Self);
580   end Context;
581
582   ------------------------
583   -- Is_Consistent_With --
584   ------------------------
585
586   overriding function Is_Consistent_With
587    (Self : not null access constant UML_Create_Link_Action_Proxy;
588     Redefinee : AMF.UML.Redefinable_Elements.UML_Redefinable_Element_Access)
589       return Boolean is
590   begin
591      --  Generated stub: replace with real body!
592      pragma Compile_Time_Warning (Standard.True, "Is_Consistent_With unimplemented");
593      raise Program_Error with "Unimplemented procedure UML_Create_Link_Action_Proxy.Is_Consistent_With";
594      return Is_Consistent_With (Self, Redefinee);
595   end Is_Consistent_With;
596
597   -----------------------------------
598   -- Is_Redefinition_Context_Valid --
599   -----------------------------------
600
601   overriding function Is_Redefinition_Context_Valid
602    (Self : not null access constant UML_Create_Link_Action_Proxy;
603     Redefined : AMF.UML.Redefinable_Elements.UML_Redefinable_Element_Access)
604       return Boolean is
605   begin
606      --  Generated stub: replace with real body!
607      pragma Compile_Time_Warning (Standard.True, "Is_Redefinition_Context_Valid unimplemented");
608      raise Program_Error with "Unimplemented procedure UML_Create_Link_Action_Proxy.Is_Redefinition_Context_Valid";
609      return Is_Redefinition_Context_Valid (Self, Redefined);
610   end Is_Redefinition_Context_Valid;
611
612   -------------------------
613   -- All_Owning_Packages --
614   -------------------------
615
616   overriding function All_Owning_Packages
617    (Self : not null access constant UML_Create_Link_Action_Proxy)
618       return AMF.UML.Packages.Collections.Set_Of_UML_Package is
619   begin
620      --  Generated stub: replace with real body!
621      pragma Compile_Time_Warning (Standard.True, "All_Owning_Packages unimplemented");
622      raise Program_Error with "Unimplemented procedure UML_Create_Link_Action_Proxy.All_Owning_Packages";
623      return All_Owning_Packages (Self);
624   end All_Owning_Packages;
625
626   -----------------------------
627   -- Is_Distinguishable_From --
628   -----------------------------
629
630   overriding function Is_Distinguishable_From
631    (Self : not null access constant UML_Create_Link_Action_Proxy;
632     N : AMF.UML.Named_Elements.UML_Named_Element_Access;
633     Ns : AMF.UML.Namespaces.UML_Namespace_Access)
634       return Boolean is
635   begin
636      --  Generated stub: replace with real body!
637      pragma Compile_Time_Warning (Standard.True, "Is_Distinguishable_From unimplemented");
638      raise Program_Error with "Unimplemented procedure UML_Create_Link_Action_Proxy.Is_Distinguishable_From";
639      return Is_Distinguishable_From (Self, N, Ns);
640   end Is_Distinguishable_From;
641
642   ---------------
643   -- Namespace --
644   ---------------
645
646   overriding function Namespace
647    (Self : not null access constant UML_Create_Link_Action_Proxy)
648       return AMF.UML.Namespaces.UML_Namespace_Access is
649   begin
650      --  Generated stub: replace with real body!
651      pragma Compile_Time_Warning (Standard.True, "Namespace unimplemented");
652      raise Program_Error with "Unimplemented procedure UML_Create_Link_Action_Proxy.Namespace";
653      return Namespace (Self);
654   end Namespace;
655
656end AMF.Internals.UML_Create_Link_Actions;
657