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