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