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