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