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