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