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.Tables.CMOF_Attributes;
47with AMF.Internals.Tables.Primitive_Types_String_Data_00;
48
49package body AMF.Internals.Tables.Primitive_Types_Metamodel.Properties is
50
51   ----------------
52   -- Initialize --
53   ----------------
54
55   procedure Initialize is
56   begin
57      Initialize_1;
58      Initialize_2;
59      Initialize_3;
60      Initialize_4;
61      Initialize_5;
62      Initialize_6;
63      Initialize_7;
64      Initialize_8;
65      Initialize_9;
66      Initialize_10;
67      Initialize_11;
68      Initialize_12;
69      Initialize_13;
70      Initialize_14;
71      Initialize_15;
72   end Initialize;
73
74   ------------------
75   -- Initialize_1 --
76   ------------------
77
78   procedure Initialize_1 is
79   begin
80      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
81       (Base + 1,
82        AMF.Internals.Tables.Primitive_Types_String_Data_00.MS_000E'Access);
83      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Uri
84       (Base + 1,
85        AMF.Internals.Tables.Primitive_Types_String_Data_00.MS_0001'Access);
86      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 1, (Is_Empty => True));
87   end Initialize_1;
88
89   ------------------
90   -- Initialize_2 --
91   ------------------
92
93   procedure Initialize_2 is
94   begin
95      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
96       (Base + 2,
97        AMF.Internals.Tables.Primitive_Types_String_Data_00.MS_0009'Access);
98      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 2, (Is_Empty => True));
99   end Initialize_2;
100
101   ------------------
102   -- Initialize_3 --
103   ------------------
104
105   procedure Initialize_3 is
106   begin
107      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body
108       (Base + 3,
109        AMF.Internals.Tables.Primitive_Types_String_Data_00.MS_0006'Access);
110   end Initialize_3;
111
112   ------------------
113   -- Initialize_4 --
114   ------------------
115
116   procedure Initialize_4 is
117   begin
118      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
119       (Base + 4,
120        AMF.Internals.Tables.Primitive_Types_String_Data_00.MS_0003'Access);
121      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 4, (Is_Empty => True));
122   end Initialize_4;
123
124   ------------------
125   -- Initialize_5 --
126   ------------------
127
128   procedure Initialize_5 is
129   begin
130      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body
131       (Base + 5,
132        AMF.Internals.Tables.Primitive_Types_String_Data_00.MS_000B'Access);
133   end Initialize_5;
134
135   ------------------
136   -- Initialize_6 --
137   ------------------
138
139   procedure Initialize_6 is
140   begin
141      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
142       (Base + 6,
143        AMF.Internals.Tables.Primitive_Types_String_Data_00.MS_000D'Access);
144      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 6, (Is_Empty => True));
145   end Initialize_6;
146
147   ------------------
148   -- Initialize_7 --
149   ------------------
150
151   procedure Initialize_7 is
152   begin
153      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body
154       (Base + 7,
155        AMF.Internals.Tables.Primitive_Types_String_Data_00.MS_0008'Access);
156   end Initialize_7;
157
158   ------------------
159   -- Initialize_8 --
160   ------------------
161
162   procedure Initialize_8 is
163   begin
164      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
165       (Base + 8,
166        AMF.Internals.Tables.Primitive_Types_String_Data_00.MS_0011'Access);
167      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 8, (Is_Empty => True));
168   end Initialize_8;
169
170   ------------------
171   -- Initialize_9 --
172   ------------------
173
174   procedure Initialize_9 is
175   begin
176      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body
177       (Base + 9,
178        AMF.Internals.Tables.Primitive_Types_String_Data_00.MS_0010'Access);
179   end Initialize_9;
180
181   -------------------
182   -- Initialize_10 --
183   -------------------
184
185   procedure Initialize_10 is
186   begin
187      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
188       (Base + 10,
189        AMF.Internals.Tables.Primitive_Types_String_Data_00.MS_0002'Access);
190      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Visibility (Base + 10, (Is_Empty => True));
191   end Initialize_10;
192
193   -------------------
194   -- Initialize_11 --
195   -------------------
196
197   procedure Initialize_11 is
198   begin
199      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Body
200       (Base + 11,
201        AMF.Internals.Tables.Primitive_Types_String_Data_00.MS_000A'Access);
202   end Initialize_11;
203
204   -------------------
205   -- Initialize_12 --
206   -------------------
207
208   procedure Initialize_12 is
209   begin
210      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
211       (Base + 12,
212        AMF.Internals.Tables.Primitive_Types_String_Data_00.MS_000F'Access);
213      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Value
214       (Base + 12,
215        AMF.Internals.Tables.Primitive_Types_String_Data_00.MS_0000'Access);
216   end Initialize_12;
217
218   -------------------
219   -- Initialize_13 --
220   -------------------
221
222   procedure Initialize_13 is
223   begin
224      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
225       (Base + 13,
226        AMF.Internals.Tables.Primitive_Types_String_Data_00.MS_0004'Access);
227      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Value
228       (Base + 13,
229        AMF.Internals.Tables.Primitive_Types_String_Data_00.MS_0005'Access);
230   end Initialize_13;
231
232   -------------------
233   -- Initialize_14 --
234   -------------------
235
236   procedure Initialize_14 is
237   begin
238      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
239       (Base + 14,
240        AMF.Internals.Tables.Primitive_Types_String_Data_00.MS_0004'Access);
241      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Value
242       (Base + 14,
243        AMF.Internals.Tables.Primitive_Types_String_Data_00.MS_000C'Access);
244   end Initialize_14;
245
246   -------------------
247   -- Initialize_15 --
248   -------------------
249
250   procedure Initialize_15 is
251   begin
252      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Name
253       (Base + 15,
254        AMF.Internals.Tables.Primitive_Types_String_Data_00.MS_0004'Access);
255      AMF.Internals.Tables.CMOF_Attributes.Internal_Set_Value
256       (Base + 15,
257        AMF.Internals.Tables.Primitive_Types_String_Data_00.MS_0007'Access);
258   end Initialize_15;
259
260end AMF.Internals.Tables.Primitive_Types_Metamodel.Properties;
261