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