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_Components is
54
55   -------------------
56   -- Enter_Element --
57   -------------------
58
59   overriding procedure Enter_Element
60    (Self    : not null access constant UML_Component_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_Component
67            (AMF.UML.Components.UML_Component_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_Component_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_Component
84            (AMF.UML.Components.UML_Component_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_Component_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_Component
102            (Visitor,
103             AMF.UML.Components.UML_Component_Access (Self),
104             Control);
105      end if;
106   end Visit_Element;
107
108   ------------------------------------
109   -- Get_Is_Indirectly_Instantiated --
110   ------------------------------------
111
112   overriding function Get_Is_Indirectly_Instantiated
113    (Self : not null access constant UML_Component_Proxy)
114       return Boolean is
115   begin
116      return
117        AMF.Internals.Tables.UML_Attributes.Internal_Get_Is_Indirectly_Instantiated
118         (Self.Element);
119   end Get_Is_Indirectly_Instantiated;
120
121   ------------------------------------
122   -- Set_Is_Indirectly_Instantiated --
123   ------------------------------------
124
125   overriding procedure Set_Is_Indirectly_Instantiated
126    (Self : not null access UML_Component_Proxy;
127     To   : Boolean) is
128   begin
129      AMF.Internals.Tables.UML_Attributes.Internal_Set_Is_Indirectly_Instantiated
130       (Self.Element, To);
131   end Set_Is_Indirectly_Instantiated;
132
133   --------------------------
134   -- Get_Packaged_Element --
135   --------------------------
136
137   overriding function Get_Packaged_Element
138    (Self : not null access constant UML_Component_Proxy)
139       return AMF.UML.Packageable_Elements.Collections.Set_Of_UML_Packageable_Element is
140   begin
141      return
142        AMF.UML.Packageable_Elements.Collections.Wrap
143         (AMF.Internals.Element_Collections.Wrap
144           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Packaged_Element
145             (Self.Element)));
146   end Get_Packaged_Element;
147
148   ------------------
149   -- Get_Provided --
150   ------------------
151
152   overriding function Get_Provided
153    (Self : not null access constant UML_Component_Proxy)
154       return AMF.UML.Interfaces.Collections.Set_Of_UML_Interface is
155   begin
156      return
157        AMF.UML.Interfaces.Collections.Wrap
158         (AMF.Internals.Element_Collections.Wrap
159           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Provided
160             (Self.Element)));
161   end Get_Provided;
162
163   ---------------------
164   -- Get_Realization --
165   ---------------------
166
167   overriding function Get_Realization
168    (Self : not null access constant UML_Component_Proxy)
169       return AMF.UML.Component_Realizations.Collections.Set_Of_UML_Component_Realization is
170   begin
171      return
172        AMF.UML.Component_Realizations.Collections.Wrap
173         (AMF.Internals.Element_Collections.Wrap
174           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Realization
175             (Self.Element)));
176   end Get_Realization;
177
178   ------------------
179   -- Get_Required --
180   ------------------
181
182   overriding function Get_Required
183    (Self : not null access constant UML_Component_Proxy)
184       return AMF.UML.Interfaces.Collections.Set_Of_UML_Interface is
185   begin
186      return
187        AMF.UML.Interfaces.Collections.Wrap
188         (AMF.Internals.Element_Collections.Wrap
189           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Required
190             (Self.Element)));
191   end Get_Required;
192
193   -------------------
194   -- Get_Extension --
195   -------------------
196
197   overriding function Get_Extension
198    (Self : not null access constant UML_Component_Proxy)
199       return AMF.UML.Extensions.Collections.Set_Of_UML_Extension is
200   begin
201      return
202        AMF.UML.Extensions.Collections.Wrap
203         (AMF.Internals.Element_Collections.Wrap
204           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Extension
205             (Self.Element)));
206   end Get_Extension;
207
208   ---------------------
209   -- Get_Is_Abstract --
210   ---------------------
211
212   overriding function Get_Is_Abstract
213    (Self : not null access constant UML_Component_Proxy)
214       return Boolean is
215   begin
216      return
217        AMF.Internals.Tables.UML_Attributes.Internal_Get_Is_Abstract
218         (Self.Element);
219   end Get_Is_Abstract;
220
221   -------------------
222   -- Get_Is_Active --
223   -------------------
224
225   overriding function Get_Is_Active
226    (Self : not null access constant UML_Component_Proxy)
227       return Boolean is
228   begin
229      return
230        AMF.Internals.Tables.UML_Attributes.Internal_Get_Is_Active
231         (Self.Element);
232   end Get_Is_Active;
233
234   -------------------
235   -- Set_Is_Active --
236   -------------------
237
238   overriding procedure Set_Is_Active
239    (Self : not null access UML_Component_Proxy;
240     To   : Boolean) is
241   begin
242      AMF.Internals.Tables.UML_Attributes.Internal_Set_Is_Active
243       (Self.Element, To);
244   end Set_Is_Active;
245
246   ---------------------------
247   -- Get_Nested_Classifier --
248   ---------------------------
249
250   overriding function Get_Nested_Classifier
251    (Self : not null access constant UML_Component_Proxy)
252       return AMF.UML.Classifiers.Collections.Ordered_Set_Of_UML_Classifier is
253   begin
254      return
255        AMF.UML.Classifiers.Collections.Wrap
256         (AMF.Internals.Element_Collections.Wrap
257           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Nested_Classifier
258             (Self.Element)));
259   end Get_Nested_Classifier;
260
261   -------------------------
262   -- Get_Owned_Attribute --
263   -------------------------
264
265   overriding function Get_Owned_Attribute
266    (Self : not null access constant UML_Component_Proxy)
267       return AMF.UML.Properties.Collections.Ordered_Set_Of_UML_Property is
268   begin
269      return
270        AMF.UML.Properties.Collections.Wrap
271         (AMF.Internals.Element_Collections.Wrap
272           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Owned_Attribute
273             (Self.Element)));
274   end Get_Owned_Attribute;
275
276   -------------------------
277   -- Get_Owned_Operation --
278   -------------------------
279
280   overriding function Get_Owned_Operation
281    (Self : not null access constant UML_Component_Proxy)
282       return AMF.UML.Operations.Collections.Ordered_Set_Of_UML_Operation is
283   begin
284      return
285        AMF.UML.Operations.Collections.Wrap
286         (AMF.Internals.Element_Collections.Wrap
287           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Owned_Operation
288             (Self.Element)));
289   end Get_Owned_Operation;
290
291   -------------------------
292   -- Get_Owned_Reception --
293   -------------------------
294
295   overriding function Get_Owned_Reception
296    (Self : not null access constant UML_Component_Proxy)
297       return AMF.UML.Receptions.Collections.Set_Of_UML_Reception is
298   begin
299      return
300        AMF.UML.Receptions.Collections.Wrap
301         (AMF.Internals.Element_Collections.Wrap
302           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Owned_Reception
303             (Self.Element)));
304   end Get_Owned_Reception;
305
306   ---------------------
307   -- Get_Super_Class --
308   ---------------------
309
310   overriding function Get_Super_Class
311    (Self : not null access constant UML_Component_Proxy)
312       return AMF.UML.Classes.Collections.Set_Of_UML_Class is
313   begin
314      return
315        AMF.UML.Classes.Collections.Wrap
316         (AMF.Internals.Element_Collections.Wrap
317           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Super_Class
318             (Self.Element)));
319   end Get_Super_Class;
320
321   -----------------------------
322   -- Get_Classifier_Behavior --
323   -----------------------------
324
325   overriding function Get_Classifier_Behavior
326    (Self : not null access constant UML_Component_Proxy)
327       return AMF.UML.Behaviors.UML_Behavior_Access is
328   begin
329      return
330        AMF.UML.Behaviors.UML_Behavior_Access
331         (AMF.Internals.Helpers.To_Element
332           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Classifier_Behavior
333             (Self.Element)));
334   end Get_Classifier_Behavior;
335
336   -----------------------------
337   -- Set_Classifier_Behavior --
338   -----------------------------
339
340   overriding procedure Set_Classifier_Behavior
341    (Self : not null access UML_Component_Proxy;
342     To   : AMF.UML.Behaviors.UML_Behavior_Access) is
343   begin
344      AMF.Internals.Tables.UML_Attributes.Internal_Set_Classifier_Behavior
345       (Self.Element,
346        AMF.Internals.Helpers.To_Element
347         (AMF.Elements.Element_Access (To)));
348   end Set_Classifier_Behavior;
349
350   -------------------------------
351   -- Get_Interface_Realization --
352   -------------------------------
353
354   overriding function Get_Interface_Realization
355    (Self : not null access constant UML_Component_Proxy)
356       return AMF.UML.Interface_Realizations.Collections.Set_Of_UML_Interface_Realization is
357   begin
358      return
359        AMF.UML.Interface_Realizations.Collections.Wrap
360         (AMF.Internals.Element_Collections.Wrap
361           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Interface_Realization
362             (Self.Element)));
363   end Get_Interface_Realization;
364
365   ------------------------
366   -- Get_Owned_Behavior --
367   ------------------------
368
369   overriding function Get_Owned_Behavior
370    (Self : not null access constant UML_Component_Proxy)
371       return AMF.UML.Behaviors.Collections.Set_Of_UML_Behavior is
372   begin
373      return
374        AMF.UML.Behaviors.Collections.Wrap
375         (AMF.Internals.Element_Collections.Wrap
376           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Owned_Behavior
377             (Self.Element)));
378   end Get_Owned_Behavior;
379
380   -------------------
381   -- Get_Attribute --
382   -------------------
383
384   overriding function Get_Attribute
385    (Self : not null access constant UML_Component_Proxy)
386       return AMF.UML.Properties.Collections.Set_Of_UML_Property is
387   begin
388      return
389        AMF.UML.Properties.Collections.Wrap
390         (AMF.Internals.Element_Collections.Wrap
391           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Attribute
392             (Self.Element)));
393   end Get_Attribute;
394
395   ---------------------------
396   -- Get_Collaboration_Use --
397   ---------------------------
398
399   overriding function Get_Collaboration_Use
400    (Self : not null access constant UML_Component_Proxy)
401       return AMF.UML.Collaboration_Uses.Collections.Set_Of_UML_Collaboration_Use is
402   begin
403      return
404        AMF.UML.Collaboration_Uses.Collections.Wrap
405         (AMF.Internals.Element_Collections.Wrap
406           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Collaboration_Use
407             (Self.Element)));
408   end Get_Collaboration_Use;
409
410   -----------------
411   -- Get_Feature --
412   -----------------
413
414   overriding function Get_Feature
415    (Self : not null access constant UML_Component_Proxy)
416       return AMF.UML.Features.Collections.Set_Of_UML_Feature is
417   begin
418      return
419        AMF.UML.Features.Collections.Wrap
420         (AMF.Internals.Element_Collections.Wrap
421           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Feature
422             (Self.Element)));
423   end Get_Feature;
424
425   -----------------
426   -- Get_General --
427   -----------------
428
429   overriding function Get_General
430    (Self : not null access constant UML_Component_Proxy)
431       return AMF.UML.Classifiers.Collections.Set_Of_UML_Classifier is
432   begin
433      return
434        AMF.UML.Classifiers.Collections.Wrap
435         (AMF.Internals.Element_Collections.Wrap
436           (AMF.Internals.Tables.UML_Attributes.Internal_Get_General
437             (Self.Element)));
438   end Get_General;
439
440   ------------------------
441   -- Get_Generalization --
442   ------------------------
443
444   overriding function Get_Generalization
445    (Self : not null access constant UML_Component_Proxy)
446       return AMF.UML.Generalizations.Collections.Set_Of_UML_Generalization is
447   begin
448      return
449        AMF.UML.Generalizations.Collections.Wrap
450         (AMF.Internals.Element_Collections.Wrap
451           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Generalization
452             (Self.Element)));
453   end Get_Generalization;
454
455   --------------------------
456   -- Get_Inherited_Member --
457   --------------------------
458
459   overriding function Get_Inherited_Member
460    (Self : not null access constant UML_Component_Proxy)
461       return AMF.UML.Named_Elements.Collections.Set_Of_UML_Named_Element is
462   begin
463      return
464        AMF.UML.Named_Elements.Collections.Wrap
465         (AMF.Internals.Element_Collections.Wrap
466           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Inherited_Member
467             (Self.Element)));
468   end Get_Inherited_Member;
469
470   ---------------------------------
471   -- Get_Is_Final_Specialization --
472   ---------------------------------
473
474   overriding function Get_Is_Final_Specialization
475    (Self : not null access constant UML_Component_Proxy)
476       return Boolean is
477   begin
478      return
479        AMF.Internals.Tables.UML_Attributes.Internal_Get_Is_Final_Specialization
480         (Self.Element);
481   end Get_Is_Final_Specialization;
482
483   ---------------------------------
484   -- Set_Is_Final_Specialization --
485   ---------------------------------
486
487   overriding procedure Set_Is_Final_Specialization
488    (Self : not null access UML_Component_Proxy;
489     To   : Boolean) is
490   begin
491      AMF.Internals.Tables.UML_Attributes.Internal_Set_Is_Final_Specialization
492       (Self.Element, To);
493   end Set_Is_Final_Specialization;
494
495   ----------------------------------
496   -- Get_Owned_Template_Signature --
497   ----------------------------------
498
499   overriding function Get_Owned_Template_Signature
500    (Self : not null access constant UML_Component_Proxy)
501       return AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access is
502   begin
503      return
504        AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access
505         (AMF.Internals.Helpers.To_Element
506           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Owned_Template_Signature
507             (Self.Element)));
508   end Get_Owned_Template_Signature;
509
510   ----------------------------------
511   -- Set_Owned_Template_Signature --
512   ----------------------------------
513
514   overriding procedure Set_Owned_Template_Signature
515    (Self : not null access UML_Component_Proxy;
516     To   : AMF.UML.Redefinable_Template_Signatures.UML_Redefinable_Template_Signature_Access) is
517   begin
518      AMF.Internals.Tables.UML_Attributes.Internal_Set_Owned_Template_Signature
519       (Self.Element,
520        AMF.Internals.Helpers.To_Element
521         (AMF.Elements.Element_Access (To)));
522   end Set_Owned_Template_Signature;
523
524   ------------------------
525   -- Get_Owned_Use_Case --
526   ------------------------
527
528   overriding function Get_Owned_Use_Case
529    (Self : not null access constant UML_Component_Proxy)
530       return AMF.UML.Use_Cases.Collections.Set_Of_UML_Use_Case is
531   begin
532      return
533        AMF.UML.Use_Cases.Collections.Wrap
534         (AMF.Internals.Element_Collections.Wrap
535           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Owned_Use_Case
536             (Self.Element)));
537   end Get_Owned_Use_Case;
538
539   --------------------------
540   -- Get_Powertype_Extent --
541   --------------------------
542
543   overriding function Get_Powertype_Extent
544    (Self : not null access constant UML_Component_Proxy)
545       return AMF.UML.Generalization_Sets.Collections.Set_Of_UML_Generalization_Set is
546   begin
547      return
548        AMF.UML.Generalization_Sets.Collections.Wrap
549         (AMF.Internals.Element_Collections.Wrap
550           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Powertype_Extent
551             (Self.Element)));
552   end Get_Powertype_Extent;
553
554   ------------------------------
555   -- Get_Redefined_Classifier --
556   ------------------------------
557
558   overriding function Get_Redefined_Classifier
559    (Self : not null access constant UML_Component_Proxy)
560       return AMF.UML.Classifiers.Collections.Set_Of_UML_Classifier is
561   begin
562      return
563        AMF.UML.Classifiers.Collections.Wrap
564         (AMF.Internals.Element_Collections.Wrap
565           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Redefined_Classifier
566             (Self.Element)));
567   end Get_Redefined_Classifier;
568
569   ------------------------
570   -- Get_Representation --
571   ------------------------
572
573   overriding function Get_Representation
574    (Self : not null access constant UML_Component_Proxy)
575       return AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access is
576   begin
577      return
578        AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access
579         (AMF.Internals.Helpers.To_Element
580           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Representation
581             (Self.Element)));
582   end Get_Representation;
583
584   ------------------------
585   -- Set_Representation --
586   ------------------------
587
588   overriding procedure Set_Representation
589    (Self : not null access UML_Component_Proxy;
590     To   : AMF.UML.Collaboration_Uses.UML_Collaboration_Use_Access) is
591   begin
592      AMF.Internals.Tables.UML_Attributes.Internal_Set_Representation
593       (Self.Element,
594        AMF.Internals.Helpers.To_Element
595         (AMF.Elements.Element_Access (To)));
596   end Set_Representation;
597
598   ----------------------
599   -- Get_Substitution --
600   ----------------------
601
602   overriding function Get_Substitution
603    (Self : not null access constant UML_Component_Proxy)
604       return AMF.UML.Substitutions.Collections.Set_Of_UML_Substitution is
605   begin
606      return
607        AMF.UML.Substitutions.Collections.Wrap
608         (AMF.Internals.Element_Collections.Wrap
609           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Substitution
610             (Self.Element)));
611   end Get_Substitution;
612
613   ----------------------------
614   -- Get_Template_Parameter --
615   ----------------------------
616
617   overriding function Get_Template_Parameter
618    (Self : not null access constant UML_Component_Proxy)
619       return AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access is
620   begin
621      return
622        AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access
623         (AMF.Internals.Helpers.To_Element
624           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Template_Parameter
625             (Self.Element)));
626   end Get_Template_Parameter;
627
628   ----------------------------
629   -- Set_Template_Parameter --
630   ----------------------------
631
632   overriding procedure Set_Template_Parameter
633    (Self : not null access UML_Component_Proxy;
634     To   : AMF.UML.Classifier_Template_Parameters.UML_Classifier_Template_Parameter_Access) is
635   begin
636      AMF.Internals.Tables.UML_Attributes.Internal_Set_Template_Parameter
637       (Self.Element,
638        AMF.Internals.Helpers.To_Element
639         (AMF.Elements.Element_Access (To)));
640   end Set_Template_Parameter;
641
642   ------------------
643   -- Get_Use_Case --
644   ------------------
645
646   overriding function Get_Use_Case
647    (Self : not null access constant UML_Component_Proxy)
648       return AMF.UML.Use_Cases.Collections.Set_Of_UML_Use_Case is
649   begin
650      return
651        AMF.UML.Use_Cases.Collections.Wrap
652         (AMF.Internals.Element_Collections.Wrap
653           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Use_Case
654             (Self.Element)));
655   end Get_Use_Case;
656
657   ------------------------
658   -- Get_Element_Import --
659   ------------------------
660
661   overriding function Get_Element_Import
662    (Self : not null access constant UML_Component_Proxy)
663       return AMF.UML.Element_Imports.Collections.Set_Of_UML_Element_Import is
664   begin
665      return
666        AMF.UML.Element_Imports.Collections.Wrap
667         (AMF.Internals.Element_Collections.Wrap
668           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Element_Import
669             (Self.Element)));
670   end Get_Element_Import;
671
672   -------------------------
673   -- Get_Imported_Member --
674   -------------------------
675
676   overriding function Get_Imported_Member
677    (Self : not null access constant UML_Component_Proxy)
678       return AMF.UML.Packageable_Elements.Collections.Set_Of_UML_Packageable_Element is
679   begin
680      return
681        AMF.UML.Packageable_Elements.Collections.Wrap
682         (AMF.Internals.Element_Collections.Wrap
683           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Imported_Member
684             (Self.Element)));
685   end Get_Imported_Member;
686
687   ----------------
688   -- Get_Member --
689   ----------------
690
691   overriding function Get_Member
692    (Self : not null access constant UML_Component_Proxy)
693       return AMF.UML.Named_Elements.Collections.Set_Of_UML_Named_Element is
694   begin
695      return
696        AMF.UML.Named_Elements.Collections.Wrap
697         (AMF.Internals.Element_Collections.Wrap
698           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Member
699             (Self.Element)));
700   end Get_Member;
701
702   ----------------------
703   -- Get_Owned_Member --
704   ----------------------
705
706   overriding function Get_Owned_Member
707    (Self : not null access constant UML_Component_Proxy)
708       return AMF.UML.Named_Elements.Collections.Set_Of_UML_Named_Element is
709   begin
710      return
711        AMF.UML.Named_Elements.Collections.Wrap
712         (AMF.Internals.Element_Collections.Wrap
713           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Owned_Member
714             (Self.Element)));
715   end Get_Owned_Member;
716
717   --------------------
718   -- Get_Owned_Rule --
719   --------------------
720
721   overriding function Get_Owned_Rule
722    (Self : not null access constant UML_Component_Proxy)
723       return AMF.UML.Constraints.Collections.Set_Of_UML_Constraint is
724   begin
725      return
726        AMF.UML.Constraints.Collections.Wrap
727         (AMF.Internals.Element_Collections.Wrap
728           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Owned_Rule
729             (Self.Element)));
730   end Get_Owned_Rule;
731
732   ------------------------
733   -- Get_Package_Import --
734   ------------------------
735
736   overriding function Get_Package_Import
737    (Self : not null access constant UML_Component_Proxy)
738       return AMF.UML.Package_Imports.Collections.Set_Of_UML_Package_Import is
739   begin
740      return
741        AMF.UML.Package_Imports.Collections.Wrap
742         (AMF.Internals.Element_Collections.Wrap
743           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Package_Import
744             (Self.Element)));
745   end Get_Package_Import;
746
747   ---------------------------
748   -- Get_Client_Dependency --
749   ---------------------------
750
751   overriding function Get_Client_Dependency
752    (Self : not null access constant UML_Component_Proxy)
753       return AMF.UML.Dependencies.Collections.Set_Of_UML_Dependency is
754   begin
755      return
756        AMF.UML.Dependencies.Collections.Wrap
757         (AMF.Internals.Element_Collections.Wrap
758           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Client_Dependency
759             (Self.Element)));
760   end Get_Client_Dependency;
761
762   -------------------------
763   -- Get_Name_Expression --
764   -------------------------
765
766   overriding function Get_Name_Expression
767    (Self : not null access constant UML_Component_Proxy)
768       return AMF.UML.String_Expressions.UML_String_Expression_Access is
769   begin
770      return
771        AMF.UML.String_Expressions.UML_String_Expression_Access
772         (AMF.Internals.Helpers.To_Element
773           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Name_Expression
774             (Self.Element)));
775   end Get_Name_Expression;
776
777   -------------------------
778   -- Set_Name_Expression --
779   -------------------------
780
781   overriding procedure Set_Name_Expression
782    (Self : not null access UML_Component_Proxy;
783     To   : AMF.UML.String_Expressions.UML_String_Expression_Access) is
784   begin
785      AMF.Internals.Tables.UML_Attributes.Internal_Set_Name_Expression
786       (Self.Element,
787        AMF.Internals.Helpers.To_Element
788         (AMF.Elements.Element_Access (To)));
789   end Set_Name_Expression;
790
791   -------------------
792   -- Get_Namespace --
793   -------------------
794
795   overriding function Get_Namespace
796    (Self : not null access constant UML_Component_Proxy)
797       return AMF.UML.Namespaces.UML_Namespace_Access is
798   begin
799      return
800        AMF.UML.Namespaces.UML_Namespace_Access
801         (AMF.Internals.Helpers.To_Element
802           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Namespace
803             (Self.Element)));
804   end Get_Namespace;
805
806   ------------------------
807   -- Get_Qualified_Name --
808   ------------------------
809
810   overriding function Get_Qualified_Name
811    (Self : not null access constant UML_Component_Proxy)
812       return AMF.Optional_String is
813   begin
814      declare
815         use type Matreshka.Internals.Strings.Shared_String_Access;
816
817         Aux : constant Matreshka.Internals.Strings.Shared_String_Access
818           := AMF.Internals.Tables.UML_Attributes.Internal_Get_Qualified_Name (Self.Element);
819
820      begin
821         if Aux = null then
822            return (Is_Empty => True);
823
824         else
825            return (False, League.Strings.Internals.Create (Aux));
826         end if;
827      end;
828   end Get_Qualified_Name;
829
830   -----------------
831   -- Get_Package --
832   -----------------
833
834   overriding function Get_Package
835    (Self : not null access constant UML_Component_Proxy)
836       return AMF.UML.Packages.UML_Package_Access is
837   begin
838      return
839        AMF.UML.Packages.UML_Package_Access
840         (AMF.Internals.Helpers.To_Element
841           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Package
842             (Self.Element)));
843   end Get_Package;
844
845   -----------------
846   -- Set_Package --
847   -----------------
848
849   overriding procedure Set_Package
850    (Self : not null access UML_Component_Proxy;
851     To   : AMF.UML.Packages.UML_Package_Access) is
852   begin
853      AMF.Internals.Tables.UML_Attributes.Internal_Set_Package
854       (Self.Element,
855        AMF.Internals.Helpers.To_Element
856         (AMF.Elements.Element_Access (To)));
857   end Set_Package;
858
859   -----------------------------------
860   -- Get_Owning_Template_Parameter --
861   -----------------------------------
862
863   overriding function Get_Owning_Template_Parameter
864    (Self : not null access constant UML_Component_Proxy)
865       return AMF.UML.Template_Parameters.UML_Template_Parameter_Access is
866   begin
867      return
868        AMF.UML.Template_Parameters.UML_Template_Parameter_Access
869         (AMF.Internals.Helpers.To_Element
870           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Owning_Template_Parameter
871             (Self.Element)));
872   end Get_Owning_Template_Parameter;
873
874   -----------------------------------
875   -- Set_Owning_Template_Parameter --
876   -----------------------------------
877
878   overriding procedure Set_Owning_Template_Parameter
879    (Self : not null access UML_Component_Proxy;
880     To   : AMF.UML.Template_Parameters.UML_Template_Parameter_Access) is
881   begin
882      AMF.Internals.Tables.UML_Attributes.Internal_Set_Owning_Template_Parameter
883       (Self.Element,
884        AMF.Internals.Helpers.To_Element
885         (AMF.Elements.Element_Access (To)));
886   end Set_Owning_Template_Parameter;
887
888   ----------------------------
889   -- Get_Template_Parameter --
890   ----------------------------
891
892   overriding function Get_Template_Parameter
893    (Self : not null access constant UML_Component_Proxy)
894       return AMF.UML.Template_Parameters.UML_Template_Parameter_Access is
895   begin
896      return
897        AMF.UML.Template_Parameters.UML_Template_Parameter_Access
898         (AMF.Internals.Helpers.To_Element
899           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Template_Parameter
900             (Self.Element)));
901   end Get_Template_Parameter;
902
903   ----------------------------
904   -- Set_Template_Parameter --
905   ----------------------------
906
907   overriding procedure Set_Template_Parameter
908    (Self : not null access UML_Component_Proxy;
909     To   : AMF.UML.Template_Parameters.UML_Template_Parameter_Access) is
910   begin
911      AMF.Internals.Tables.UML_Attributes.Internal_Set_Template_Parameter
912       (Self.Element,
913        AMF.Internals.Helpers.To_Element
914         (AMF.Elements.Element_Access (To)));
915   end Set_Template_Parameter;
916
917   ----------------------------------
918   -- Get_Owned_Template_Signature --
919   ----------------------------------
920
921   overriding function Get_Owned_Template_Signature
922    (Self : not null access constant UML_Component_Proxy)
923       return AMF.UML.Template_Signatures.UML_Template_Signature_Access is
924   begin
925      return
926        AMF.UML.Template_Signatures.UML_Template_Signature_Access
927         (AMF.Internals.Helpers.To_Element
928           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Owned_Template_Signature
929             (Self.Element)));
930   end Get_Owned_Template_Signature;
931
932   ----------------------------------
933   -- Set_Owned_Template_Signature --
934   ----------------------------------
935
936   overriding procedure Set_Owned_Template_Signature
937    (Self : not null access UML_Component_Proxy;
938     To   : AMF.UML.Template_Signatures.UML_Template_Signature_Access) is
939   begin
940      AMF.Internals.Tables.UML_Attributes.Internal_Set_Owned_Template_Signature
941       (Self.Element,
942        AMF.Internals.Helpers.To_Element
943         (AMF.Elements.Element_Access (To)));
944   end Set_Owned_Template_Signature;
945
946   --------------------------
947   -- Get_Template_Binding --
948   --------------------------
949
950   overriding function Get_Template_Binding
951    (Self : not null access constant UML_Component_Proxy)
952       return AMF.UML.Template_Bindings.Collections.Set_Of_UML_Template_Binding is
953   begin
954      return
955        AMF.UML.Template_Bindings.Collections.Wrap
956         (AMF.Internals.Element_Collections.Wrap
957           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Template_Binding
958             (Self.Element)));
959   end Get_Template_Binding;
960
961   -----------------
962   -- Get_Is_Leaf --
963   -----------------
964
965   overriding function Get_Is_Leaf
966    (Self : not null access constant UML_Component_Proxy)
967       return Boolean is
968   begin
969      return
970        AMF.Internals.Tables.UML_Attributes.Internal_Get_Is_Leaf
971         (Self.Element);
972   end Get_Is_Leaf;
973
974   -----------------
975   -- Set_Is_Leaf --
976   -----------------
977
978   overriding procedure Set_Is_Leaf
979    (Self : not null access UML_Component_Proxy;
980     To   : Boolean) is
981   begin
982      AMF.Internals.Tables.UML_Attributes.Internal_Set_Is_Leaf
983       (Self.Element, To);
984   end Set_Is_Leaf;
985
986   ---------------------------
987   -- Get_Redefined_Element --
988   ---------------------------
989
990   overriding function Get_Redefined_Element
991    (Self : not null access constant UML_Component_Proxy)
992       return AMF.UML.Redefinable_Elements.Collections.Set_Of_UML_Redefinable_Element is
993   begin
994      return
995        AMF.UML.Redefinable_Elements.Collections.Wrap
996         (AMF.Internals.Element_Collections.Wrap
997           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Redefined_Element
998             (Self.Element)));
999   end Get_Redefined_Element;
1000
1001   ------------------------------
1002   -- Get_Redefinition_Context --
1003   ------------------------------
1004
1005   overriding function Get_Redefinition_Context
1006    (Self : not null access constant UML_Component_Proxy)
1007       return AMF.UML.Classifiers.Collections.Set_Of_UML_Classifier is
1008   begin
1009      return
1010        AMF.UML.Classifiers.Collections.Wrap
1011         (AMF.Internals.Element_Collections.Wrap
1012           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Redefinition_Context
1013             (Self.Element)));
1014   end Get_Redefinition_Context;
1015
1016   --------------------
1017   -- Get_Owned_Port --
1018   --------------------
1019
1020   overriding function Get_Owned_Port
1021    (Self : not null access constant UML_Component_Proxy)
1022       return AMF.UML.Ports.Collections.Set_Of_UML_Port is
1023   begin
1024      return
1025        AMF.UML.Ports.Collections.Wrap
1026         (AMF.Internals.Element_Collections.Wrap
1027           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Owned_Port
1028             (Self.Element)));
1029   end Get_Owned_Port;
1030
1031   -------------------------
1032   -- Get_Owned_Connector --
1033   -------------------------
1034
1035   overriding function Get_Owned_Connector
1036    (Self : not null access constant UML_Component_Proxy)
1037       return AMF.UML.Connectors.Collections.Set_Of_UML_Connector is
1038   begin
1039      return
1040        AMF.UML.Connectors.Collections.Wrap
1041         (AMF.Internals.Element_Collections.Wrap
1042           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Owned_Connector
1043             (Self.Element)));
1044   end Get_Owned_Connector;
1045
1046   --------------
1047   -- Get_Part --
1048   --------------
1049
1050   overriding function Get_Part
1051    (Self : not null access constant UML_Component_Proxy)
1052       return AMF.UML.Properties.Collections.Set_Of_UML_Property is
1053   begin
1054      return
1055        AMF.UML.Properties.Collections.Wrap
1056         (AMF.Internals.Element_Collections.Wrap
1057           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Part
1058             (Self.Element)));
1059   end Get_Part;
1060
1061   --------------
1062   -- Get_Role --
1063   --------------
1064
1065   overriding function Get_Role
1066    (Self : not null access constant UML_Component_Proxy)
1067       return AMF.UML.Connectable_Elements.Collections.Set_Of_UML_Connectable_Element is
1068   begin
1069      return
1070        AMF.UML.Connectable_Elements.Collections.Wrap
1071         (AMF.Internals.Element_Collections.Wrap
1072           (AMF.Internals.Tables.UML_Attributes.Internal_Get_Role
1073             (Self.Element)));
1074   end Get_Role;
1075
1076   --------------
1077   -- Provided --
1078   --------------
1079
1080   overriding function Provided
1081    (Self : not null access constant UML_Component_Proxy)
1082       return AMF.UML.Interfaces.Collections.Set_Of_UML_Interface is
1083   begin
1084      --  Generated stub: replace with real body!
1085      pragma Compile_Time_Warning (Standard.True, "Provided unimplemented");
1086      raise Program_Error with "Unimplemented procedure UML_Component_Proxy.Provided";
1087      return Provided (Self);
1088   end Provided;
1089
1090   -------------------------
1091   -- Realized_Interfaces --
1092   -------------------------
1093
1094   overriding function Realized_Interfaces
1095    (Self : not null access constant UML_Component_Proxy;
1096     Classifier : AMF.UML.Classifiers.UML_Classifier_Access)
1097       return AMF.UML.Interfaces.Collections.Set_Of_UML_Interface is
1098   begin
1099      --  Generated stub: replace with real body!
1100      pragma Compile_Time_Warning (Standard.True, "Realized_Interfaces unimplemented");
1101      raise Program_Error with "Unimplemented procedure UML_Component_Proxy.Realized_Interfaces";
1102      return Realized_Interfaces (Self, Classifier);
1103   end Realized_Interfaces;
1104
1105   --------------
1106   -- Required --
1107   --------------
1108
1109   overriding function Required
1110    (Self : not null access constant UML_Component_Proxy)
1111       return AMF.UML.Interfaces.Collections.Set_Of_UML_Interface is
1112   begin
1113      --  Generated stub: replace with real body!
1114      pragma Compile_Time_Warning (Standard.True, "Required unimplemented");
1115      raise Program_Error with "Unimplemented procedure UML_Component_Proxy.Required";
1116      return Required (Self);
1117   end Required;
1118
1119   ---------------------
1120   -- Used_Interfaces --
1121   ---------------------
1122
1123   overriding function Used_Interfaces
1124    (Self : not null access constant UML_Component_Proxy;
1125     Classifier : AMF.UML.Classifiers.UML_Classifier_Access)
1126       return AMF.UML.Interfaces.Collections.Set_Of_UML_Interface is
1127   begin
1128      --  Generated stub: replace with real body!
1129      pragma Compile_Time_Warning (Standard.True, "Used_Interfaces unimplemented");
1130      raise Program_Error with "Unimplemented procedure UML_Component_Proxy.Used_Interfaces";
1131      return Used_Interfaces (Self, Classifier);
1132   end Used_Interfaces;
1133
1134   ---------------
1135   -- Extension --
1136   ---------------
1137
1138   overriding function Extension
1139    (Self : not null access constant UML_Component_Proxy)
1140       return AMF.UML.Extensions.Collections.Set_Of_UML_Extension is
1141   begin
1142      --  Generated stub: replace with real body!
1143      pragma Compile_Time_Warning (Standard.True, "Extension unimplemented");
1144      raise Program_Error with "Unimplemented procedure UML_Component_Proxy.Extension";
1145      return Extension (Self);
1146   end Extension;
1147
1148   -------------
1149   -- Inherit --
1150   -------------
1151
1152   overriding function Inherit
1153    (Self : not null access constant UML_Component_Proxy;
1154     Inhs : AMF.UML.Named_Elements.Collections.Set_Of_UML_Named_Element)
1155       return AMF.UML.Named_Elements.Collections.Set_Of_UML_Named_Element is
1156   begin
1157      --  Generated stub: replace with real body!
1158      pragma Compile_Time_Warning (Standard.True, "Inherit unimplemented");
1159      raise Program_Error with "Unimplemented procedure UML_Component_Proxy.Inherit";
1160      return Inherit (Self, Inhs);
1161   end Inherit;
1162
1163   -----------------
1164   -- Super_Class --
1165   -----------------
1166
1167   overriding function Super_Class
1168    (Self : not null access constant UML_Component_Proxy)
1169       return AMF.UML.Classes.Collections.Set_Of_UML_Class is
1170   begin
1171      --  Generated stub: replace with real body!
1172      pragma Compile_Time_Warning (Standard.True, "Super_Class unimplemented");
1173      raise Program_Error with "Unimplemented procedure UML_Component_Proxy.Super_Class";
1174      return Super_Class (Self);
1175   end Super_Class;
1176
1177   ------------------
1178   -- All_Features --
1179   ------------------
1180
1181   overriding function All_Features
1182    (Self : not null access constant UML_Component_Proxy)
1183       return AMF.UML.Features.Collections.Set_Of_UML_Feature is
1184   begin
1185      --  Generated stub: replace with real body!
1186      pragma Compile_Time_Warning (Standard.True, "All_Features unimplemented");
1187      raise Program_Error with "Unimplemented procedure UML_Component_Proxy.All_Features";
1188      return All_Features (Self);
1189   end All_Features;
1190
1191   -----------------
1192   -- Conforms_To --
1193   -----------------
1194
1195   overriding function Conforms_To
1196    (Self : not null access constant UML_Component_Proxy;
1197     Other : AMF.UML.Classifiers.UML_Classifier_Access)
1198       return Boolean is
1199   begin
1200      --  Generated stub: replace with real body!
1201      pragma Compile_Time_Warning (Standard.True, "Conforms_To unimplemented");
1202      raise Program_Error with "Unimplemented procedure UML_Component_Proxy.Conforms_To";
1203      return Conforms_To (Self, Other);
1204   end Conforms_To;
1205
1206   -------------
1207   -- General --
1208   -------------
1209
1210   overriding function General
1211    (Self : not null access constant UML_Component_Proxy)
1212       return AMF.UML.Classifiers.Collections.Set_Of_UML_Classifier is
1213   begin
1214      --  Generated stub: replace with real body!
1215      pragma Compile_Time_Warning (Standard.True, "General unimplemented");
1216      raise Program_Error with "Unimplemented procedure UML_Component_Proxy.General";
1217      return General (Self);
1218   end General;
1219
1220   -----------------------
1221   -- Has_Visibility_Of --
1222   -----------------------
1223
1224   overriding function Has_Visibility_Of
1225    (Self : not null access constant UML_Component_Proxy;
1226     N : AMF.UML.Named_Elements.UML_Named_Element_Access)
1227       return Boolean is
1228   begin
1229      --  Generated stub: replace with real body!
1230      pragma Compile_Time_Warning (Standard.True, "Has_Visibility_Of unimplemented");
1231      raise Program_Error with "Unimplemented procedure UML_Component_Proxy.Has_Visibility_Of";
1232      return Has_Visibility_Of (Self, N);
1233   end Has_Visibility_Of;
1234
1235   -------------------------
1236   -- Inheritable_Members --
1237   -------------------------
1238
1239   overriding function Inheritable_Members
1240    (Self : not null access constant UML_Component_Proxy;
1241     C : AMF.UML.Classifiers.UML_Classifier_Access)
1242       return AMF.UML.Named_Elements.Collections.Set_Of_UML_Named_Element is
1243   begin
1244      --  Generated stub: replace with real body!
1245      pragma Compile_Time_Warning (Standard.True, "Inheritable_Members unimplemented");
1246      raise Program_Error with "Unimplemented procedure UML_Component_Proxy.Inheritable_Members";
1247      return Inheritable_Members (Self, C);
1248   end Inheritable_Members;
1249
1250   ----------------------
1251   -- Inherited_Member --
1252   ----------------------
1253
1254   overriding function Inherited_Member
1255    (Self : not null access constant UML_Component_Proxy)
1256       return AMF.UML.Named_Elements.Collections.Set_Of_UML_Named_Element is
1257   begin
1258      --  Generated stub: replace with real body!
1259      pragma Compile_Time_Warning (Standard.True, "Inherited_Member unimplemented");
1260      raise Program_Error with "Unimplemented procedure UML_Component_Proxy.Inherited_Member";
1261      return Inherited_Member (Self);
1262   end Inherited_Member;
1263
1264   -----------------
1265   -- Is_Template --
1266   -----------------
1267
1268   overriding function Is_Template
1269    (Self : not null access constant UML_Component_Proxy)
1270       return Boolean is
1271   begin
1272      --  Generated stub: replace with real body!
1273      pragma Compile_Time_Warning (Standard.True, "Is_Template unimplemented");
1274      raise Program_Error with "Unimplemented procedure UML_Component_Proxy.Is_Template";
1275      return Is_Template (Self);
1276   end Is_Template;
1277
1278   -------------------------
1279   -- May_Specialize_Type --
1280   -------------------------
1281
1282   overriding function May_Specialize_Type
1283    (Self : not null access constant UML_Component_Proxy;
1284     C : AMF.UML.Classifiers.UML_Classifier_Access)
1285       return Boolean is
1286   begin
1287      --  Generated stub: replace with real body!
1288      pragma Compile_Time_Warning (Standard.True, "May_Specialize_Type unimplemented");
1289      raise Program_Error with "Unimplemented procedure UML_Component_Proxy.May_Specialize_Type";
1290      return May_Specialize_Type (Self, C);
1291   end May_Specialize_Type;
1292
1293   ------------------------
1294   -- Exclude_Collisions --
1295   ------------------------
1296
1297   overriding function Exclude_Collisions
1298    (Self : not null access constant UML_Component_Proxy;
1299     Imps : AMF.UML.Packageable_Elements.Collections.Set_Of_UML_Packageable_Element)
1300       return AMF.UML.Packageable_Elements.Collections.Set_Of_UML_Packageable_Element is
1301   begin
1302      --  Generated stub: replace with real body!
1303      pragma Compile_Time_Warning (Standard.True, "Exclude_Collisions unimplemented");
1304      raise Program_Error with "Unimplemented procedure UML_Component_Proxy.Exclude_Collisions";
1305      return Exclude_Collisions (Self, Imps);
1306   end Exclude_Collisions;
1307
1308   -------------------------
1309   -- Get_Names_Of_Member --
1310   -------------------------
1311
1312   overriding function Get_Names_Of_Member
1313    (Self : not null access constant UML_Component_Proxy;
1314     Element : AMF.UML.Named_Elements.UML_Named_Element_Access)
1315       return AMF.String_Collections.Set_Of_String is
1316   begin
1317      --  Generated stub: replace with real body!
1318      pragma Compile_Time_Warning (Standard.True, "Get_Names_Of_Member unimplemented");
1319      raise Program_Error with "Unimplemented procedure UML_Component_Proxy.Get_Names_Of_Member";
1320      return Get_Names_Of_Member (Self, Element);
1321   end Get_Names_Of_Member;
1322
1323   --------------------
1324   -- Import_Members --
1325   --------------------
1326
1327   overriding function Import_Members
1328    (Self : not null access constant UML_Component_Proxy;
1329     Imps : AMF.UML.Packageable_Elements.Collections.Set_Of_UML_Packageable_Element)
1330       return AMF.UML.Packageable_Elements.Collections.Set_Of_UML_Packageable_Element is
1331   begin
1332      --  Generated stub: replace with real body!
1333      pragma Compile_Time_Warning (Standard.True, "Import_Members unimplemented");
1334      raise Program_Error with "Unimplemented procedure UML_Component_Proxy.Import_Members";
1335      return Import_Members (Self, Imps);
1336   end Import_Members;
1337
1338   ---------------------
1339   -- Imported_Member --
1340   ---------------------
1341
1342   overriding function Imported_Member
1343    (Self : not null access constant UML_Component_Proxy)
1344       return AMF.UML.Packageable_Elements.Collections.Set_Of_UML_Packageable_Element is
1345   begin
1346      --  Generated stub: replace with real body!
1347      pragma Compile_Time_Warning (Standard.True, "Imported_Member unimplemented");
1348      raise Program_Error with "Unimplemented procedure UML_Component_Proxy.Imported_Member";
1349      return Imported_Member (Self);
1350   end Imported_Member;
1351
1352   ---------------------------------
1353   -- Members_Are_Distinguishable --
1354   ---------------------------------
1355
1356   overriding function Members_Are_Distinguishable
1357    (Self : not null access constant UML_Component_Proxy)
1358       return Boolean is
1359   begin
1360      --  Generated stub: replace with real body!
1361      pragma Compile_Time_Warning (Standard.True, "Members_Are_Distinguishable unimplemented");
1362      raise Program_Error with "Unimplemented procedure UML_Component_Proxy.Members_Are_Distinguishable";
1363      return Members_Are_Distinguishable (Self);
1364   end Members_Are_Distinguishable;
1365
1366   ------------------
1367   -- Owned_Member --
1368   ------------------
1369
1370   overriding function Owned_Member
1371    (Self : not null access constant UML_Component_Proxy)
1372       return AMF.UML.Named_Elements.Collections.Set_Of_UML_Named_Element is
1373   begin
1374      --  Generated stub: replace with real body!
1375      pragma Compile_Time_Warning (Standard.True, "Owned_Member unimplemented");
1376      raise Program_Error with "Unimplemented procedure UML_Component_Proxy.Owned_Member";
1377      return Owned_Member (Self);
1378   end Owned_Member;
1379
1380   -------------------------
1381   -- All_Owning_Packages --
1382   -------------------------
1383
1384   overriding function All_Owning_Packages
1385    (Self : not null access constant UML_Component_Proxy)
1386       return AMF.UML.Packages.Collections.Set_Of_UML_Package is
1387   begin
1388      --  Generated stub: replace with real body!
1389      pragma Compile_Time_Warning (Standard.True, "All_Owning_Packages unimplemented");
1390      raise Program_Error with "Unimplemented procedure UML_Component_Proxy.All_Owning_Packages";
1391      return All_Owning_Packages (Self);
1392   end All_Owning_Packages;
1393
1394   -----------------------------
1395   -- Is_Distinguishable_From --
1396   -----------------------------
1397
1398   overriding function Is_Distinguishable_From
1399    (Self : not null access constant UML_Component_Proxy;
1400     N : AMF.UML.Named_Elements.UML_Named_Element_Access;
1401     Ns : AMF.UML.Namespaces.UML_Namespace_Access)
1402       return Boolean is
1403   begin
1404      --  Generated stub: replace with real body!
1405      pragma Compile_Time_Warning (Standard.True, "Is_Distinguishable_From unimplemented");
1406      raise Program_Error with "Unimplemented procedure UML_Component_Proxy.Is_Distinguishable_From";
1407      return Is_Distinguishable_From (Self, N, Ns);
1408   end Is_Distinguishable_From;
1409
1410   ---------------
1411   -- Namespace --
1412   ---------------
1413
1414   overriding function Namespace
1415    (Self : not null access constant UML_Component_Proxy)
1416       return AMF.UML.Namespaces.UML_Namespace_Access is
1417   begin
1418      --  Generated stub: replace with real body!
1419      pragma Compile_Time_Warning (Standard.True, "Namespace unimplemented");
1420      raise Program_Error with "Unimplemented procedure UML_Component_Proxy.Namespace";
1421      return Namespace (Self);
1422   end Namespace;
1423
1424   -----------------
1425   -- Conforms_To --
1426   -----------------
1427
1428   overriding function Conforms_To
1429    (Self : not null access constant UML_Component_Proxy;
1430     Other : AMF.UML.Types.UML_Type_Access)
1431       return Boolean is
1432   begin
1433      --  Generated stub: replace with real body!
1434      pragma Compile_Time_Warning (Standard.True, "Conforms_To unimplemented");
1435      raise Program_Error with "Unimplemented procedure UML_Component_Proxy.Conforms_To";
1436      return Conforms_To (Self, Other);
1437   end Conforms_To;
1438
1439   ------------------------
1440   -- Is_Compatible_With --
1441   ------------------------
1442
1443   overriding function Is_Compatible_With
1444    (Self : not null access constant UML_Component_Proxy;
1445     P : AMF.UML.Parameterable_Elements.UML_Parameterable_Element_Access)
1446       return Boolean is
1447   begin
1448      --  Generated stub: replace with real body!
1449      pragma Compile_Time_Warning (Standard.True, "Is_Compatible_With unimplemented");
1450      raise Program_Error with "Unimplemented procedure UML_Component_Proxy.Is_Compatible_With";
1451      return Is_Compatible_With (Self, P);
1452   end Is_Compatible_With;
1453
1454   ---------------------------
1455   -- Is_Template_Parameter --
1456   ---------------------------
1457
1458   overriding function Is_Template_Parameter
1459    (Self : not null access constant UML_Component_Proxy)
1460       return Boolean is
1461   begin
1462      --  Generated stub: replace with real body!
1463      pragma Compile_Time_Warning (Standard.True, "Is_Template_Parameter unimplemented");
1464      raise Program_Error with "Unimplemented procedure UML_Component_Proxy.Is_Template_Parameter";
1465      return Is_Template_Parameter (Self);
1466   end Is_Template_Parameter;
1467
1468   ----------------------------
1469   -- Parameterable_Elements --
1470   ----------------------------
1471
1472   overriding function Parameterable_Elements
1473    (Self : not null access constant UML_Component_Proxy)
1474       return AMF.UML.Parameterable_Elements.Collections.Set_Of_UML_Parameterable_Element is
1475   begin
1476      --  Generated stub: replace with real body!
1477      pragma Compile_Time_Warning (Standard.True, "Parameterable_Elements unimplemented");
1478      raise Program_Error with "Unimplemented procedure UML_Component_Proxy.Parameterable_Elements";
1479      return Parameterable_Elements (Self);
1480   end Parameterable_Elements;
1481
1482   ------------------------
1483   -- Is_Consistent_With --
1484   ------------------------
1485
1486   overriding function Is_Consistent_With
1487    (Self : not null access constant UML_Component_Proxy;
1488     Redefinee : AMF.UML.Redefinable_Elements.UML_Redefinable_Element_Access)
1489       return Boolean is
1490   begin
1491      --  Generated stub: replace with real body!
1492      pragma Compile_Time_Warning (Standard.True, "Is_Consistent_With unimplemented");
1493      raise Program_Error with "Unimplemented procedure UML_Component_Proxy.Is_Consistent_With";
1494      return Is_Consistent_With (Self, Redefinee);
1495   end Is_Consistent_With;
1496
1497   -----------------------------------
1498   -- Is_Redefinition_Context_Valid --
1499   -----------------------------------
1500
1501   overriding function Is_Redefinition_Context_Valid
1502    (Self : not null access constant UML_Component_Proxy;
1503     Redefined : AMF.UML.Redefinable_Elements.UML_Redefinable_Element_Access)
1504       return Boolean is
1505   begin
1506      --  Generated stub: replace with real body!
1507      pragma Compile_Time_Warning (Standard.True, "Is_Redefinition_Context_Valid unimplemented");
1508      raise Program_Error with "Unimplemented procedure UML_Component_Proxy.Is_Redefinition_Context_Valid";
1509      return Is_Redefinition_Context_Valid (Self, Redefined);
1510   end Is_Redefinition_Context_Valid;
1511
1512   ----------------
1513   -- Owned_Port --
1514   ----------------
1515
1516   overriding function Owned_Port
1517    (Self : not null access constant UML_Component_Proxy)
1518       return AMF.UML.Ports.Collections.Set_Of_UML_Port is
1519   begin
1520      --  Generated stub: replace with real body!
1521      pragma Compile_Time_Warning (Standard.True, "Owned_Port unimplemented");
1522      raise Program_Error with "Unimplemented procedure UML_Component_Proxy.Owned_Port";
1523      return Owned_Port (Self);
1524   end Owned_Port;
1525
1526   ----------
1527   -- Part --
1528   ----------
1529
1530   overriding function Part
1531    (Self : not null access constant UML_Component_Proxy)
1532       return AMF.UML.Properties.Collections.Set_Of_UML_Property is
1533   begin
1534      --  Generated stub: replace with real body!
1535      pragma Compile_Time_Warning (Standard.True, "Part unimplemented");
1536      raise Program_Error with "Unimplemented procedure UML_Component_Proxy.Part";
1537      return Part (Self);
1538   end Part;
1539
1540end AMF.Internals.UML_Components;
1541