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.Standard_Profile_L3_String_Data_00; 50 51package body AMF.Internals.Tables.Standard_Profile_L3_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.Standard_Profile_L3_String_Data_00.MS_0004'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_Class; 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_Class; 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_Class; 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_Property; 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_Property; 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_Property; 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_Association; 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_Association; 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_Association; 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_Package; 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_Package_Import; 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_Property; 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_Property; 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_Property; 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.Standard_Profile_L3_Metamodel.Objects; 262