1------------------------------------------------------------------------------
2--                                                                          --
3--                            Matreshka Project                             --
4--                                                                          --
5--                          Ada Modeling Framework                          --
6--                                                                          --
7--                        Runtime Library Component                         --
8--                                                                          --
9------------------------------------------------------------------------------
10--                                                                          --
11-- Copyright © 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: 2855 $ $Date: 2012-04-12 23:52:00 +0400 (Thu, 12 Apr 2012) $
43------------------------------------------------------------------------------
44--  This file is generated, don't edit it.
45------------------------------------------------------------------------------
46with AMF.Internals.Elements;
47with AMF.Internals.Extents;
48with AMF.Internals.Helpers;
49with AMF.Internals.Links;
50with AMF.Internals.Listener_Registry;
51with AMF.Internals.Tables.Standard_Profile_L2_Metamodel;
52with AMF.Internals.Tables.UML_Constructors;
53
54package body AMF.Internals.Factories.Standard_Profile_L2_Factories is
55
56   -----------------
57   -- Constructor --
58   -----------------
59
60   function Constructor
61    (Extent : AMF.Internals.AMF_Extent)
62       return not null AMF.Factories.Factory_Access is
63   begin
64      return new Standard_Profile_L2_Factory'(Extent => Extent);
65   end Constructor;
66
67   -----------------------
68   -- Convert_To_String --
69   -----------------------
70
71   overriding function Convert_To_String
72    (Self      : not null access Standard_Profile_L2_Factory;
73     Data_Type : not null access AMF.CMOF.Data_Types.CMOF_Data_Type'Class;
74     Value     : League.Holders.Holder) return League.Strings.Universal_String is
75   begin
76      raise Program_Error;
77      return League.Strings.Empty_Universal_String;
78   end Convert_To_String;
79
80   ------------
81   -- Create --
82   ------------
83
84   overriding function Create
85    (Self       : not null access Standard_Profile_L2_Factory;
86     Meta_Class : not null access AMF.CMOF.Classes.CMOF_Class'Class)
87       return not null AMF.Elements.Element_Access
88   is
89      MC      : constant AMF.Internals.CMOF_Element
90        := AMF.Internals.Elements.Element_Base'Class (Meta_Class.all).Element;
91      Element : AMF.Internals.AMF_Element;
92
93   begin
94      if MC = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Auxiliary then
95         Element := AMF.Internals.Tables.UML_Constructors.Create_Standard_Profile_L2_Auxiliary;
96
97      elsif MC = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Call then
98         Element := AMF.Internals.Tables.UML_Constructors.Create_Standard_Profile_L2_Call;
99
100      elsif MC = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Create then
101         Element := AMF.Internals.Tables.UML_Constructors.Create_Standard_Profile_L2_Create;
102
103      elsif MC = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Derive then
104         Element := AMF.Internals.Tables.UML_Constructors.Create_Standard_Profile_L2_Derive;
105
106      elsif MC = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Destroy then
107         Element := AMF.Internals.Tables.UML_Constructors.Create_Standard_Profile_L2_Destroy;
108
109      elsif MC = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Document then
110         Element := AMF.Internals.Tables.UML_Constructors.Create_Standard_Profile_L2_Document;
111
112      elsif MC = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Entity then
113         Element := AMF.Internals.Tables.UML_Constructors.Create_Standard_Profile_L2_Entity;
114
115      elsif MC = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Executable then
116         Element := AMF.Internals.Tables.UML_Constructors.Create_Standard_Profile_L2_Executable;
117
118      elsif MC = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Focus then
119         Element := AMF.Internals.Tables.UML_Constructors.Create_Standard_Profile_L2_Focus;
120
121      elsif MC = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Framework then
122         Element := AMF.Internals.Tables.UML_Constructors.Create_Standard_Profile_L2_Framework;
123
124      elsif MC = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Implement then
125         Element := AMF.Internals.Tables.UML_Constructors.Create_Standard_Profile_L2_Implement;
126
127      elsif MC = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Implementation_Class then
128         Element := AMF.Internals.Tables.UML_Constructors.Create_Standard_Profile_L2_Implementation_Class;
129
130      elsif MC = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Instantiate then
131         Element := AMF.Internals.Tables.UML_Constructors.Create_Standard_Profile_L2_Instantiate;
132
133      elsif MC = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Library then
134         Element := AMF.Internals.Tables.UML_Constructors.Create_Standard_Profile_L2_Library;
135
136      elsif MC = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Metaclass then
137         Element := AMF.Internals.Tables.UML_Constructors.Create_Standard_Profile_L2_Metaclass;
138
139      elsif MC = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Model_Library then
140         Element := AMF.Internals.Tables.UML_Constructors.Create_Standard_Profile_L2_Model_Library;
141
142      elsif MC = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Process then
143         Element := AMF.Internals.Tables.UML_Constructors.Create_Standard_Profile_L2_Process;
144
145      elsif MC = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Realization then
146         Element := AMF.Internals.Tables.UML_Constructors.Create_Standard_Profile_L2_Realization;
147
148      elsif MC = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Refine then
149         Element := AMF.Internals.Tables.UML_Constructors.Create_Standard_Profile_L2_Refine;
150
151      elsif MC = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Responsibility then
152         Element := AMF.Internals.Tables.UML_Constructors.Create_Standard_Profile_L2_Responsibility;
153
154      elsif MC = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Script then
155         Element := AMF.Internals.Tables.UML_Constructors.Create_Standard_Profile_L2_Script;
156
157      elsif MC = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Send then
158         Element := AMF.Internals.Tables.UML_Constructors.Create_Standard_Profile_L2_Send;
159
160      elsif MC = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Service then
161         Element := AMF.Internals.Tables.UML_Constructors.Create_Standard_Profile_L2_Service;
162
163      elsif MC = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Source then
164         Element := AMF.Internals.Tables.UML_Constructors.Create_Standard_Profile_L2_Source;
165
166      elsif MC = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Specification then
167         Element := AMF.Internals.Tables.UML_Constructors.Create_Standard_Profile_L2_Specification;
168
169      elsif MC = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Subsystem then
170         Element := AMF.Internals.Tables.UML_Constructors.Create_Standard_Profile_L2_Subsystem;
171
172      elsif MC = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Trace then
173         Element := AMF.Internals.Tables.UML_Constructors.Create_Standard_Profile_L2_Trace;
174
175      elsif MC = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Type then
176         Element := AMF.Internals.Tables.UML_Constructors.Create_Standard_Profile_L2_Type;
177
178      elsif MC = AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Utility then
179         Element := AMF.Internals.Tables.UML_Constructors.Create_Standard_Profile_L2_Utility;
180
181      else
182         raise Program_Error;
183      end if;
184
185      AMF.Internals.Extents.Internal_Append (Self.Extent, Element);
186      AMF.Internals.Listener_Registry.Notify_Instance_Create
187       (AMF.Internals.Helpers.To_Element (Element));
188
189      return AMF.Internals.Helpers.To_Element (Element);
190   end Create;
191
192   ------------------------
193   -- Create_From_String --
194   ------------------------
195
196   overriding function Create_From_String
197    (Self      : not null access Standard_Profile_L2_Factory;
198     Data_Type : not null access AMF.CMOF.Data_Types.CMOF_Data_Type'Class;
199     Image     : League.Strings.Universal_String) return League.Holders.Holder is
200   begin
201      raise Program_Error;
202      return League.Holders.Empty_Holder;
203   end Create_From_String;
204
205   -----------------
206   -- Create_Link --
207   -----------------
208
209   overriding function Create_Link
210    (Self           : not null access Standard_Profile_L2_Factory;
211     Association    :
212       not null access AMF.CMOF.Associations.CMOF_Association'Class;
213     First_Element  : not null AMF.Elements.Element_Access;
214     Second_Element : not null AMF.Elements.Element_Access)
215       return not null AMF.Links.Link_Access
216   is
217      pragma Unreferenced (Self);
218
219   begin
220      return
221        AMF.Internals.Links.Proxy
222         (AMF.Internals.Links.Create_Link
223           (AMF.Internals.Elements.Element_Base'Class
224             (Association.all).Element,
225            AMF.Internals.Helpers.To_Element (First_Element),
226            AMF.Internals.Helpers.To_Element (Second_Element)));
227   end Create_Link;
228
229   -----------------
230   -- Get_Package --
231   -----------------
232
233   overriding function Get_Package
234    (Self : not null access constant Standard_Profile_L2_Factory)
235       return AMF.CMOF.Packages.Collections.Set_Of_CMOF_Package
236   is
237      pragma Unreferenced (Self);
238
239   begin
240      return Result : AMF.CMOF.Packages.Collections.Set_Of_CMOF_Package do
241         Result.Add (Get_Package);
242      end return;
243   end Get_Package;
244
245   -----------------
246   -- Get_Package --
247   -----------------
248
249   function Get_Package return not null AMF.CMOF.Packages.CMOF_Package_Access is
250   begin
251      return
252        AMF.CMOF.Packages.CMOF_Package_Access
253         (AMF.Internals.Helpers.To_Element
254           (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MM_Standard_Profile_L2_Standard_Profile_L2));
255   end Get_Package;
256
257   ----------------------
258   -- Create_Auxiliary --
259   ----------------------
260
261   overriding function Create_Auxiliary
262    (Self : not null access Standard_Profile_L2_Factory)
263       return AMF.Standard_Profile_L2.Auxiliaries.Standard_Profile_L2_Auxiliary_Access is
264   begin
265      return
266        AMF.Standard_Profile_L2.Auxiliaries.Standard_Profile_L2_Auxiliary_Access
267         (Self.Create
268           (AMF.CMOF.Classes.CMOF_Class_Access
269             (AMF.Internals.Helpers.To_Element
270               (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Auxiliary))));
271   end Create_Auxiliary;
272
273   -----------------
274   -- Create_Call --
275   -----------------
276
277   overriding function Create_Call
278    (Self : not null access Standard_Profile_L2_Factory)
279       return AMF.Standard_Profile_L2.Calls.Standard_Profile_L2_Call_Access is
280   begin
281      return
282        AMF.Standard_Profile_L2.Calls.Standard_Profile_L2_Call_Access
283         (Self.Create
284           (AMF.CMOF.Classes.CMOF_Class_Access
285             (AMF.Internals.Helpers.To_Element
286               (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Call))));
287   end Create_Call;
288
289   -------------------
290   -- Create_Create --
291   -------------------
292
293   overriding function Create_Create
294    (Self : not null access Standard_Profile_L2_Factory)
295       return AMF.Standard_Profile_L2.Creates.Standard_Profile_L2_Create_Access is
296   begin
297      return
298        AMF.Standard_Profile_L2.Creates.Standard_Profile_L2_Create_Access
299         (Self.Create
300           (AMF.CMOF.Classes.CMOF_Class_Access
301             (AMF.Internals.Helpers.To_Element
302               (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Create))));
303   end Create_Create;
304
305   -------------------
306   -- Create_Derive --
307   -------------------
308
309   overriding function Create_Derive
310    (Self : not null access Standard_Profile_L2_Factory)
311       return AMF.Standard_Profile_L2.Derives.Standard_Profile_L2_Derive_Access is
312   begin
313      return
314        AMF.Standard_Profile_L2.Derives.Standard_Profile_L2_Derive_Access
315         (Self.Create
316           (AMF.CMOF.Classes.CMOF_Class_Access
317             (AMF.Internals.Helpers.To_Element
318               (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Derive))));
319   end Create_Derive;
320
321   --------------------
322   -- Create_Destroy --
323   --------------------
324
325   overriding function Create_Destroy
326    (Self : not null access Standard_Profile_L2_Factory)
327       return AMF.Standard_Profile_L2.Destroies.Standard_Profile_L2_Destroy_Access is
328   begin
329      return
330        AMF.Standard_Profile_L2.Destroies.Standard_Profile_L2_Destroy_Access
331         (Self.Create
332           (AMF.CMOF.Classes.CMOF_Class_Access
333             (AMF.Internals.Helpers.To_Element
334               (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Destroy))));
335   end Create_Destroy;
336
337   ---------------------
338   -- Create_Document --
339   ---------------------
340
341   overriding function Create_Document
342    (Self : not null access Standard_Profile_L2_Factory)
343       return AMF.Standard_Profile_L2.Documents.Standard_Profile_L2_Document_Access is
344   begin
345      return
346        AMF.Standard_Profile_L2.Documents.Standard_Profile_L2_Document_Access
347         (Self.Create
348           (AMF.CMOF.Classes.CMOF_Class_Access
349             (AMF.Internals.Helpers.To_Element
350               (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Document))));
351   end Create_Document;
352
353   -------------------
354   -- Create_Entity --
355   -------------------
356
357   overriding function Create_Entity
358    (Self : not null access Standard_Profile_L2_Factory)
359       return AMF.Standard_Profile_L2.Entities.Standard_Profile_L2_Entity_Access is
360   begin
361      return
362        AMF.Standard_Profile_L2.Entities.Standard_Profile_L2_Entity_Access
363         (Self.Create
364           (AMF.CMOF.Classes.CMOF_Class_Access
365             (AMF.Internals.Helpers.To_Element
366               (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Entity))));
367   end Create_Entity;
368
369   -----------------------
370   -- Create_Executable --
371   -----------------------
372
373   overriding function Create_Executable
374    (Self : not null access Standard_Profile_L2_Factory)
375       return AMF.Standard_Profile_L2.Executables.Standard_Profile_L2_Executable_Access is
376   begin
377      return
378        AMF.Standard_Profile_L2.Executables.Standard_Profile_L2_Executable_Access
379         (Self.Create
380           (AMF.CMOF.Classes.CMOF_Class_Access
381             (AMF.Internals.Helpers.To_Element
382               (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Executable))));
383   end Create_Executable;
384
385   ------------------
386   -- Create_Focus --
387   ------------------
388
389   overriding function Create_Focus
390    (Self : not null access Standard_Profile_L2_Factory)
391       return AMF.Standard_Profile_L2.Focuses.Standard_Profile_L2_Focus_Access is
392   begin
393      return
394        AMF.Standard_Profile_L2.Focuses.Standard_Profile_L2_Focus_Access
395         (Self.Create
396           (AMF.CMOF.Classes.CMOF_Class_Access
397             (AMF.Internals.Helpers.To_Element
398               (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Focus))));
399   end Create_Focus;
400
401   ----------------------
402   -- Create_Framework --
403   ----------------------
404
405   overriding function Create_Framework
406    (Self : not null access Standard_Profile_L2_Factory)
407       return AMF.Standard_Profile_L2.Frameworks.Standard_Profile_L2_Framework_Access is
408   begin
409      return
410        AMF.Standard_Profile_L2.Frameworks.Standard_Profile_L2_Framework_Access
411         (Self.Create
412           (AMF.CMOF.Classes.CMOF_Class_Access
413             (AMF.Internals.Helpers.To_Element
414               (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Framework))));
415   end Create_Framework;
416
417   ----------------------
418   -- Create_Implement --
419   ----------------------
420
421   overriding function Create_Implement
422    (Self : not null access Standard_Profile_L2_Factory)
423       return AMF.Standard_Profile_L2.Implements.Standard_Profile_L2_Implement_Access is
424   begin
425      return
426        AMF.Standard_Profile_L2.Implements.Standard_Profile_L2_Implement_Access
427         (Self.Create
428           (AMF.CMOF.Classes.CMOF_Class_Access
429             (AMF.Internals.Helpers.To_Element
430               (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Implement))));
431   end Create_Implement;
432
433   ---------------------------------
434   -- Create_Implementation_Class --
435   ---------------------------------
436
437   overriding function Create_Implementation_Class
438    (Self : not null access Standard_Profile_L2_Factory)
439       return AMF.Standard_Profile_L2.Implementation_Classes.Standard_Profile_L2_Implementation_Class_Access is
440   begin
441      return
442        AMF.Standard_Profile_L2.Implementation_Classes.Standard_Profile_L2_Implementation_Class_Access
443         (Self.Create
444           (AMF.CMOF.Classes.CMOF_Class_Access
445             (AMF.Internals.Helpers.To_Element
446               (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Implementation_Class))));
447   end Create_Implementation_Class;
448
449   ------------------------
450   -- Create_Instantiate --
451   ------------------------
452
453   overriding function Create_Instantiate
454    (Self : not null access Standard_Profile_L2_Factory)
455       return AMF.Standard_Profile_L2.Instantiates.Standard_Profile_L2_Instantiate_Access is
456   begin
457      return
458        AMF.Standard_Profile_L2.Instantiates.Standard_Profile_L2_Instantiate_Access
459         (Self.Create
460           (AMF.CMOF.Classes.CMOF_Class_Access
461             (AMF.Internals.Helpers.To_Element
462               (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Instantiate))));
463   end Create_Instantiate;
464
465   --------------------
466   -- Create_Library --
467   --------------------
468
469   overriding function Create_Library
470    (Self : not null access Standard_Profile_L2_Factory)
471       return AMF.Standard_Profile_L2.Libraries.Standard_Profile_L2_Library_Access is
472   begin
473      return
474        AMF.Standard_Profile_L2.Libraries.Standard_Profile_L2_Library_Access
475         (Self.Create
476           (AMF.CMOF.Classes.CMOF_Class_Access
477             (AMF.Internals.Helpers.To_Element
478               (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Library))));
479   end Create_Library;
480
481   ----------------------
482   -- Create_Metaclass --
483   ----------------------
484
485   overriding function Create_Metaclass
486    (Self : not null access Standard_Profile_L2_Factory)
487       return AMF.Standard_Profile_L2.Metaclasses.Standard_Profile_L2_Metaclass_Access is
488   begin
489      return
490        AMF.Standard_Profile_L2.Metaclasses.Standard_Profile_L2_Metaclass_Access
491         (Self.Create
492           (AMF.CMOF.Classes.CMOF_Class_Access
493             (AMF.Internals.Helpers.To_Element
494               (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Metaclass))));
495   end Create_Metaclass;
496
497   --------------------------
498   -- Create_Model_Library --
499   --------------------------
500
501   overriding function Create_Model_Library
502    (Self : not null access Standard_Profile_L2_Factory)
503       return AMF.Standard_Profile_L2.Model_Libraries.Standard_Profile_L2_Model_Library_Access is
504   begin
505      return
506        AMF.Standard_Profile_L2.Model_Libraries.Standard_Profile_L2_Model_Library_Access
507         (Self.Create
508           (AMF.CMOF.Classes.CMOF_Class_Access
509             (AMF.Internals.Helpers.To_Element
510               (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Model_Library))));
511   end Create_Model_Library;
512
513   --------------------
514   -- Create_Process --
515   --------------------
516
517   overriding function Create_Process
518    (Self : not null access Standard_Profile_L2_Factory)
519       return AMF.Standard_Profile_L2.Processes.Standard_Profile_L2_Process_Access is
520   begin
521      return
522        AMF.Standard_Profile_L2.Processes.Standard_Profile_L2_Process_Access
523         (Self.Create
524           (AMF.CMOF.Classes.CMOF_Class_Access
525             (AMF.Internals.Helpers.To_Element
526               (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Process))));
527   end Create_Process;
528
529   ------------------------
530   -- Create_Realization --
531   ------------------------
532
533   overriding function Create_Realization
534    (Self : not null access Standard_Profile_L2_Factory)
535       return AMF.Standard_Profile_L2.Realizations.Standard_Profile_L2_Realization_Access is
536   begin
537      return
538        AMF.Standard_Profile_L2.Realizations.Standard_Profile_L2_Realization_Access
539         (Self.Create
540           (AMF.CMOF.Classes.CMOF_Class_Access
541             (AMF.Internals.Helpers.To_Element
542               (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Realization))));
543   end Create_Realization;
544
545   -------------------
546   -- Create_Refine --
547   -------------------
548
549   overriding function Create_Refine
550    (Self : not null access Standard_Profile_L2_Factory)
551       return AMF.Standard_Profile_L2.Refines.Standard_Profile_L2_Refine_Access is
552   begin
553      return
554        AMF.Standard_Profile_L2.Refines.Standard_Profile_L2_Refine_Access
555         (Self.Create
556           (AMF.CMOF.Classes.CMOF_Class_Access
557             (AMF.Internals.Helpers.To_Element
558               (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Refine))));
559   end Create_Refine;
560
561   ---------------------------
562   -- Create_Responsibility --
563   ---------------------------
564
565   overriding function Create_Responsibility
566    (Self : not null access Standard_Profile_L2_Factory)
567       return AMF.Standard_Profile_L2.Responsibilities.Standard_Profile_L2_Responsibility_Access is
568   begin
569      return
570        AMF.Standard_Profile_L2.Responsibilities.Standard_Profile_L2_Responsibility_Access
571         (Self.Create
572           (AMF.CMOF.Classes.CMOF_Class_Access
573             (AMF.Internals.Helpers.To_Element
574               (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Responsibility))));
575   end Create_Responsibility;
576
577   -------------------
578   -- Create_Script --
579   -------------------
580
581   overriding function Create_Script
582    (Self : not null access Standard_Profile_L2_Factory)
583       return AMF.Standard_Profile_L2.Scripts.Standard_Profile_L2_Script_Access is
584   begin
585      return
586        AMF.Standard_Profile_L2.Scripts.Standard_Profile_L2_Script_Access
587         (Self.Create
588           (AMF.CMOF.Classes.CMOF_Class_Access
589             (AMF.Internals.Helpers.To_Element
590               (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Script))));
591   end Create_Script;
592
593   -----------------
594   -- Create_Send --
595   -----------------
596
597   overriding function Create_Send
598    (Self : not null access Standard_Profile_L2_Factory)
599       return AMF.Standard_Profile_L2.Sends.Standard_Profile_L2_Send_Access is
600   begin
601      return
602        AMF.Standard_Profile_L2.Sends.Standard_Profile_L2_Send_Access
603         (Self.Create
604           (AMF.CMOF.Classes.CMOF_Class_Access
605             (AMF.Internals.Helpers.To_Element
606               (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Send))));
607   end Create_Send;
608
609   --------------------
610   -- Create_Service --
611   --------------------
612
613   overriding function Create_Service
614    (Self : not null access Standard_Profile_L2_Factory)
615       return AMF.Standard_Profile_L2.Services.Standard_Profile_L2_Service_Access is
616   begin
617      return
618        AMF.Standard_Profile_L2.Services.Standard_Profile_L2_Service_Access
619         (Self.Create
620           (AMF.CMOF.Classes.CMOF_Class_Access
621             (AMF.Internals.Helpers.To_Element
622               (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Service))));
623   end Create_Service;
624
625   -------------------
626   -- Create_Source --
627   -------------------
628
629   overriding function Create_Source
630    (Self : not null access Standard_Profile_L2_Factory)
631       return AMF.Standard_Profile_L2.Sources.Standard_Profile_L2_Source_Access is
632   begin
633      return
634        AMF.Standard_Profile_L2.Sources.Standard_Profile_L2_Source_Access
635         (Self.Create
636           (AMF.CMOF.Classes.CMOF_Class_Access
637             (AMF.Internals.Helpers.To_Element
638               (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Source))));
639   end Create_Source;
640
641   --------------------------
642   -- Create_Specification --
643   --------------------------
644
645   overriding function Create_Specification
646    (Self : not null access Standard_Profile_L2_Factory)
647       return AMF.Standard_Profile_L2.Specifications.Standard_Profile_L2_Specification_Access is
648   begin
649      return
650        AMF.Standard_Profile_L2.Specifications.Standard_Profile_L2_Specification_Access
651         (Self.Create
652           (AMF.CMOF.Classes.CMOF_Class_Access
653             (AMF.Internals.Helpers.To_Element
654               (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Specification))));
655   end Create_Specification;
656
657   ----------------------
658   -- Create_Subsystem --
659   ----------------------
660
661   overriding function Create_Subsystem
662    (Self : not null access Standard_Profile_L2_Factory)
663       return AMF.Standard_Profile_L2.Subsystems.Standard_Profile_L2_Subsystem_Access is
664   begin
665      return
666        AMF.Standard_Profile_L2.Subsystems.Standard_Profile_L2_Subsystem_Access
667         (Self.Create
668           (AMF.CMOF.Classes.CMOF_Class_Access
669             (AMF.Internals.Helpers.To_Element
670               (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Subsystem))));
671   end Create_Subsystem;
672
673   ------------------
674   -- Create_Trace --
675   ------------------
676
677   overriding function Create_Trace
678    (Self : not null access Standard_Profile_L2_Factory)
679       return AMF.Standard_Profile_L2.Traces.Standard_Profile_L2_Trace_Access is
680   begin
681      return
682        AMF.Standard_Profile_L2.Traces.Standard_Profile_L2_Trace_Access
683         (Self.Create
684           (AMF.CMOF.Classes.CMOF_Class_Access
685             (AMF.Internals.Helpers.To_Element
686               (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Trace))));
687   end Create_Trace;
688
689   -----------------
690   -- Create_Type --
691   -----------------
692
693   overriding function Create_Type
694    (Self : not null access Standard_Profile_L2_Factory)
695       return AMF.Standard_Profile_L2.Types.Standard_Profile_L2_Type_Access is
696   begin
697      return
698        AMF.Standard_Profile_L2.Types.Standard_Profile_L2_Type_Access
699         (Self.Create
700           (AMF.CMOF.Classes.CMOF_Class_Access
701             (AMF.Internals.Helpers.To_Element
702               (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Type))));
703   end Create_Type;
704
705   --------------------
706   -- Create_Utility --
707   --------------------
708
709   overriding function Create_Utility
710    (Self : not null access Standard_Profile_L2_Factory)
711       return AMF.Standard_Profile_L2.Utilities.Standard_Profile_L2_Utility_Access is
712   begin
713      return
714        AMF.Standard_Profile_L2.Utilities.Standard_Profile_L2_Utility_Access
715         (Self.Create
716           (AMF.CMOF.Classes.CMOF_Class_Access
717             (AMF.Internals.Helpers.To_Element
718               (AMF.Internals.Tables.Standard_Profile_L2_Metamodel.MC_Standard_Profile_L2_Utility))));
719   end Create_Utility;
720
721end AMF.Internals.Factories.Standard_Profile_L2_Factories;
722