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: 2928 $ $Date: 2012-05-01 12:43:19 +0400 (Tue, 01 May 2012) $
43------------------------------------------------------------------------------
44--  This file is generated, don't edit it.
45------------------------------------------------------------------------------
46with AMF.Internals.Extents;
47with AMF.Internals.Tables.CMOF_Constructors;
48with AMF.Internals.Tables.CMOF_Element_Table;
49with AMF.Internals.Tables.Primitive_Types_String_Data_00;
50
51package body AMF.Internals.Tables.Primitive_Types_Metamodel.Objects is
52
53   ----------------
54   -- Initialize --
55   ----------------
56
57   procedure Initialize is
58      Extent : constant AMF.Internals.AMF_Extent
59        := AMF.Internals.Extents.Allocate_Extent
60            (AMF.Internals.Tables.Primitive_Types_String_Data_00.MS_0001'Access);
61
62   begin
63      Base := AMF.Internals.Tables.CMOF_Element_Table.Last;
64      Initialize_1 (Extent);
65      Initialize_2 (Extent);
66      Initialize_3 (Extent);
67      Initialize_4 (Extent);
68      Initialize_5 (Extent);
69      Initialize_6 (Extent);
70      Initialize_7 (Extent);
71      Initialize_8 (Extent);
72      Initialize_9 (Extent);
73      Initialize_10 (Extent);
74      Initialize_11 (Extent);
75      Initialize_12 (Extent);
76      Initialize_13 (Extent);
77      Initialize_14 (Extent);
78      Initialize_15 (Extent);
79   end Initialize;
80
81   ------------------
82   -- Initialize_1 --
83   ------------------
84
85   procedure Initialize_1 (Extent : AMF.Internals.AMF_Extent) is
86      Aux : AMF.Internals.CMOF_Element;
87
88   begin
89      Aux := AMF.Internals.Tables.CMOF_Constructors.Create_CMOF_Package;
90      AMF.Internals.Extents.Internal_Append (Extent, Aux);
91   end Initialize_1;
92
93   ------------------
94   -- Initialize_2 --
95   ------------------
96
97   procedure Initialize_2 (Extent : AMF.Internals.AMF_Extent) is
98      Aux : AMF.Internals.CMOF_Element;
99
100   begin
101      Aux := AMF.Internals.Tables.CMOF_Constructors.Create_CMOF_Primitive_Type;
102      AMF.Internals.Extents.Internal_Append (Extent, Aux);
103   end Initialize_2;
104
105   ------------------
106   -- Initialize_3 --
107   ------------------
108
109   procedure Initialize_3 (Extent : AMF.Internals.AMF_Extent) is
110      Aux : AMF.Internals.CMOF_Element;
111
112   begin
113      Aux := AMF.Internals.Tables.CMOF_Constructors.Create_CMOF_Comment;
114      AMF.Internals.Extents.Internal_Append (Extent, Aux);
115   end Initialize_3;
116
117   ------------------
118   -- Initialize_4 --
119   ------------------
120
121   procedure Initialize_4 (Extent : AMF.Internals.AMF_Extent) is
122      Aux : AMF.Internals.CMOF_Element;
123
124   begin
125      Aux := AMF.Internals.Tables.CMOF_Constructors.Create_CMOF_Primitive_Type;
126      AMF.Internals.Extents.Internal_Append (Extent, Aux);
127   end Initialize_4;
128
129   ------------------
130   -- Initialize_5 --
131   ------------------
132
133   procedure Initialize_5 (Extent : AMF.Internals.AMF_Extent) is
134      Aux : AMF.Internals.CMOF_Element;
135
136   begin
137      Aux := AMF.Internals.Tables.CMOF_Constructors.Create_CMOF_Comment;
138      AMF.Internals.Extents.Internal_Append (Extent, Aux);
139   end Initialize_5;
140
141   ------------------
142   -- Initialize_6 --
143   ------------------
144
145   procedure Initialize_6 (Extent : AMF.Internals.AMF_Extent) is
146      Aux : AMF.Internals.CMOF_Element;
147
148   begin
149      Aux := AMF.Internals.Tables.CMOF_Constructors.Create_CMOF_Primitive_Type;
150      AMF.Internals.Extents.Internal_Append (Extent, Aux);
151   end Initialize_6;
152
153   ------------------
154   -- Initialize_7 --
155   ------------------
156
157   procedure Initialize_7 (Extent : AMF.Internals.AMF_Extent) is
158      Aux : AMF.Internals.CMOF_Element;
159
160   begin
161      Aux := AMF.Internals.Tables.CMOF_Constructors.Create_CMOF_Comment;
162      AMF.Internals.Extents.Internal_Append (Extent, Aux);
163   end Initialize_7;
164
165   ------------------
166   -- Initialize_8 --
167   ------------------
168
169   procedure Initialize_8 (Extent : AMF.Internals.AMF_Extent) is
170      Aux : AMF.Internals.CMOF_Element;
171
172   begin
173      Aux := AMF.Internals.Tables.CMOF_Constructors.Create_CMOF_Primitive_Type;
174      AMF.Internals.Extents.Internal_Append (Extent, Aux);
175   end Initialize_8;
176
177   ------------------
178   -- Initialize_9 --
179   ------------------
180
181   procedure Initialize_9 (Extent : AMF.Internals.AMF_Extent) is
182      Aux : AMF.Internals.CMOF_Element;
183
184   begin
185      Aux := AMF.Internals.Tables.CMOF_Constructors.Create_CMOF_Comment;
186      AMF.Internals.Extents.Internal_Append (Extent, Aux);
187   end Initialize_9;
188
189   -------------------
190   -- Initialize_10 --
191   -------------------
192
193   procedure Initialize_10 (Extent : AMF.Internals.AMF_Extent) is
194      Aux : AMF.Internals.CMOF_Element;
195
196   begin
197      Aux := AMF.Internals.Tables.CMOF_Constructors.Create_CMOF_Primitive_Type;
198      AMF.Internals.Extents.Internal_Append (Extent, Aux);
199   end Initialize_10;
200
201   -------------------
202   -- Initialize_11 --
203   -------------------
204
205   procedure Initialize_11 (Extent : AMF.Internals.AMF_Extent) is
206      Aux : AMF.Internals.CMOF_Element;
207
208   begin
209      Aux := AMF.Internals.Tables.CMOF_Constructors.Create_CMOF_Comment;
210      AMF.Internals.Extents.Internal_Append (Extent, Aux);
211   end Initialize_11;
212
213   -------------------
214   -- Initialize_12 --
215   -------------------
216
217   procedure Initialize_12 (Extent : AMF.Internals.AMF_Extent) is
218      Aux : AMF.Internals.CMOF_Element;
219
220   begin
221      Aux := AMF.Internals.Tables.CMOF_Constructors.Create_CMOF_Tag;
222      AMF.Internals.Extents.Internal_Append (Extent, Aux);
223   end Initialize_12;
224
225   -------------------
226   -- Initialize_13 --
227   -------------------
228
229   procedure Initialize_13 (Extent : AMF.Internals.AMF_Extent) is
230      Aux : AMF.Internals.CMOF_Element;
231
232   begin
233      Aux := AMF.Internals.Tables.CMOF_Constructors.Create_CMOF_Tag;
234      AMF.Internals.Extents.Internal_Append (Extent, Aux);
235   end Initialize_13;
236
237   -------------------
238   -- Initialize_14 --
239   -------------------
240
241   procedure Initialize_14 (Extent : AMF.Internals.AMF_Extent) is
242      Aux : AMF.Internals.CMOF_Element;
243
244   begin
245      Aux := AMF.Internals.Tables.CMOF_Constructors.Create_CMOF_Tag;
246      AMF.Internals.Extents.Internal_Append (Extent, Aux);
247   end Initialize_14;
248
249   -------------------
250   -- Initialize_15 --
251   -------------------
252
253   procedure Initialize_15 (Extent : AMF.Internals.AMF_Extent) is
254      Aux : AMF.Internals.CMOF_Element;
255
256   begin
257      Aux := AMF.Internals.Tables.CMOF_Constructors.Create_CMOF_Tag;
258      AMF.Internals.Extents.Internal_Append (Extent, Aux);
259   end Initialize_15;
260
261end AMF.Internals.Tables.Primitive_Types_Metamodel.Objects;
262