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: 3412 $ $Date: 2012-11-13 15:06:06 +0400 (Tue, 13 Nov 2012) $ 43------------------------------------------------------------------------------ 44-- This file is generated, don't edit it. 45------------------------------------------------------------------------------ 46with AMF.Internals.Links; 47with AMF.Internals.Tables.CMOF_Metamodel; 48 49package body AMF.Internals.Tables.Primitive_Types_Metamodel.Links 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.Links.Internal_Create_Link 81 (AMF.Internals.Tables.CMOF_Metamodel.MA_CMOF_Namespace_Member_Namespace, 82 Base + 1, 83 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Namespace_Member_A_Namespace, 84 Base + 2, 85 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_A_Namespace_Namespace_Member); 86 AMF.Internals.Links.Internal_Create_Link 87 (AMF.Internals.Tables.CMOF_Metamodel.MA_CMOF_Namespace_Member_Namespace, 88 Base + 1, 89 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Namespace_Member_A_Namespace, 90 Base + 4, 91 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_A_Namespace_Namespace_Member); 92 AMF.Internals.Links.Internal_Create_Link 93 (AMF.Internals.Tables.CMOF_Metamodel.MA_CMOF_Namespace_Member_Namespace, 94 Base + 1, 95 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Namespace_Member_A_Namespace, 96 Base + 6, 97 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_A_Namespace_Namespace_Member); 98 AMF.Internals.Links.Internal_Create_Link 99 (AMF.Internals.Tables.CMOF_Metamodel.MA_CMOF_Namespace_Member_Namespace, 100 Base + 1, 101 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Namespace_Member_A_Namespace, 102 Base + 8, 103 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_A_Namespace_Namespace_Member); 104 AMF.Internals.Links.Internal_Create_Link 105 (AMF.Internals.Tables.CMOF_Metamodel.MA_CMOF_Namespace_Member_Namespace, 106 Base + 1, 107 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Namespace_Member_A_Namespace, 108 Base + 10, 109 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_A_Namespace_Namespace_Member); 110 AMF.Internals.Links.Internal_Create_Link 111 (AMF.Internals.Tables.CMOF_Metamodel.MA_CMOF_Element_Owned_Element_Owner, 112 Base + 1, 113 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Owned_Element_Element_Owner, 114 Base + 2, 115 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Owner_Element_Owned_Element); 116 AMF.Internals.Links.Internal_Create_Link 117 (AMF.Internals.Tables.CMOF_Metamodel.MA_CMOF_Element_Owned_Element_Owner, 118 Base + 1, 119 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Owned_Element_Element_Owner, 120 Base + 4, 121 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Owner_Element_Owned_Element); 122 AMF.Internals.Links.Internal_Create_Link 123 (AMF.Internals.Tables.CMOF_Metamodel.MA_CMOF_Element_Owned_Element_Owner, 124 Base + 1, 125 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Owned_Element_Element_Owner, 126 Base + 6, 127 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Owner_Element_Owned_Element); 128 AMF.Internals.Links.Internal_Create_Link 129 (AMF.Internals.Tables.CMOF_Metamodel.MA_CMOF_Element_Owned_Element_Owner, 130 Base + 1, 131 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Owned_Element_Element_Owner, 132 Base + 8, 133 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Owner_Element_Owned_Element); 134 AMF.Internals.Links.Internal_Create_Link 135 (AMF.Internals.Tables.CMOF_Metamodel.MA_CMOF_Element_Owned_Element_Owner, 136 Base + 1, 137 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Owned_Element_Element_Owner, 138 Base + 10, 139 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Owner_Element_Owned_Element); 140 AMF.Internals.Links.Internal_Create_Link 141 (AMF.Internals.Tables.CMOF_Metamodel.MA_CMOF_Namespace_Owned_Member_Namespace, 142 Base + 1, 143 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Namespace_Owned_Member_Named_Element_Namespace, 144 Base + 2, 145 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Namespace_Namespace_Owned_Member); 146 AMF.Internals.Links.Internal_Create_Link 147 (AMF.Internals.Tables.CMOF_Metamodel.MA_CMOF_Namespace_Owned_Member_Namespace, 148 Base + 1, 149 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Namespace_Owned_Member_Named_Element_Namespace, 150 Base + 4, 151 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Namespace_Namespace_Owned_Member); 152 AMF.Internals.Links.Internal_Create_Link 153 (AMF.Internals.Tables.CMOF_Metamodel.MA_CMOF_Namespace_Owned_Member_Namespace, 154 Base + 1, 155 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Namespace_Owned_Member_Named_Element_Namespace, 156 Base + 6, 157 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Namespace_Namespace_Owned_Member); 158 AMF.Internals.Links.Internal_Create_Link 159 (AMF.Internals.Tables.CMOF_Metamodel.MA_CMOF_Namespace_Owned_Member_Namespace, 160 Base + 1, 161 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Namespace_Owned_Member_Named_Element_Namespace, 162 Base + 8, 163 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Namespace_Namespace_Owned_Member); 164 AMF.Internals.Links.Internal_Create_Link 165 (AMF.Internals.Tables.CMOF_Metamodel.MA_CMOF_Namespace_Owned_Member_Namespace, 166 Base + 1, 167 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Namespace_Owned_Member_Named_Element_Namespace, 168 Base + 10, 169 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Named_Element_Namespace_Namespace_Owned_Member); 170 AMF.Internals.Links.Internal_Create_Link 171 (AMF.Internals.Tables.CMOF_Metamodel.MA_CMOF_Package_Owned_Type_Package, 172 Base + 1, 173 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Package_Owned_Type_Type_Package, 174 Base + 2, 175 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Type_Package_Package_Owned_Type); 176 AMF.Internals.Links.Internal_Create_Link 177 (AMF.Internals.Tables.CMOF_Metamodel.MA_CMOF_Package_Owned_Type_Package, 178 Base + 1, 179 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Package_Owned_Type_Type_Package, 180 Base + 4, 181 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Type_Package_Package_Owned_Type); 182 AMF.Internals.Links.Internal_Create_Link 183 (AMF.Internals.Tables.CMOF_Metamodel.MA_CMOF_Package_Owned_Type_Package, 184 Base + 1, 185 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Package_Owned_Type_Type_Package, 186 Base + 6, 187 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Type_Package_Package_Owned_Type); 188 AMF.Internals.Links.Internal_Create_Link 189 (AMF.Internals.Tables.CMOF_Metamodel.MA_CMOF_Package_Owned_Type_Package, 190 Base + 1, 191 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Package_Owned_Type_Type_Package, 192 Base + 8, 193 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Type_Package_Package_Owned_Type); 194 AMF.Internals.Links.Internal_Create_Link 195 (AMF.Internals.Tables.CMOF_Metamodel.MA_CMOF_Package_Owned_Type_Package, 196 Base + 1, 197 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Package_Owned_Type_Type_Package, 198 Base + 10, 199 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Type_Package_Package_Owned_Type); 200 AMF.Internals.Links.Internal_Create_Link 201 (AMF.Internals.Tables.CMOF_Metamodel.MA_CMOF_Package_Packaged_Element_Owning_Package, 202 Base + 1, 203 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Package_Packaged_Element_A_Owning_Package, 204 Base + 2, 205 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_A_Owning_Package_Package_Packaged_Element); 206 AMF.Internals.Links.Internal_Create_Link 207 (AMF.Internals.Tables.CMOF_Metamodel.MA_CMOF_Package_Packaged_Element_Owning_Package, 208 Base + 1, 209 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Package_Packaged_Element_A_Owning_Package, 210 Base + 4, 211 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_A_Owning_Package_Package_Packaged_Element); 212 AMF.Internals.Links.Internal_Create_Link 213 (AMF.Internals.Tables.CMOF_Metamodel.MA_CMOF_Package_Packaged_Element_Owning_Package, 214 Base + 1, 215 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Package_Packaged_Element_A_Owning_Package, 216 Base + 6, 217 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_A_Owning_Package_Package_Packaged_Element); 218 AMF.Internals.Links.Internal_Create_Link 219 (AMF.Internals.Tables.CMOF_Metamodel.MA_CMOF_Package_Packaged_Element_Owning_Package, 220 Base + 1, 221 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Package_Packaged_Element_A_Owning_Package, 222 Base + 8, 223 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_A_Owning_Package_Package_Packaged_Element); 224 AMF.Internals.Links.Internal_Create_Link 225 (AMF.Internals.Tables.CMOF_Metamodel.MA_CMOF_Package_Packaged_Element_Owning_Package, 226 Base + 1, 227 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Package_Packaged_Element_A_Owning_Package, 228 Base + 10, 229 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_A_Owning_Package_Package_Packaged_Element); 230 end Initialize_1; 231 232 ------------------ 233 -- Initialize_2 -- 234 ------------------ 235 236 procedure Initialize_2 is 237 begin 238 AMF.Internals.Links.Internal_Create_Link 239 (AMF.Internals.Tables.CMOF_Metamodel.MA_CMOF_Element_Owned_Comment_Owning_Element, 240 Base + 2, 241 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Owned_Comment_A_Owning_Element, 242 Base + 3, 243 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_A_Owning_Element_Element_Owned_Comment); 244 AMF.Internals.Links.Internal_Create_Link 245 (AMF.Internals.Tables.CMOF_Metamodel.MA_CMOF_Element_Owned_Element_Owner, 246 Base + 2, 247 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Owned_Element_Element_Owner, 248 Base + 3, 249 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Owner_Element_Owned_Element); 250 end Initialize_2; 251 252 ------------------ 253 -- Initialize_3 -- 254 ------------------ 255 256 procedure Initialize_3 is 257 begin 258 AMF.Internals.Links.Internal_Create_Link 259 (AMF.Internals.Tables.CMOF_Metamodel.MA_CMOF_Comment_Annotated_Element_Comment, 260 Base + 3, 261 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Comment_Annotated_Element_A_Comment, 262 Base + 2, 263 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_A_Comment_Comment_Annotated_Element); 264 end Initialize_3; 265 266 ------------------ 267 -- Initialize_4 -- 268 ------------------ 269 270 procedure Initialize_4 is 271 begin 272 AMF.Internals.Links.Internal_Create_Link 273 (AMF.Internals.Tables.CMOF_Metamodel.MA_CMOF_Element_Owned_Comment_Owning_Element, 274 Base + 4, 275 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Owned_Comment_A_Owning_Element, 276 Base + 5, 277 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_A_Owning_Element_Element_Owned_Comment); 278 AMF.Internals.Links.Internal_Create_Link 279 (AMF.Internals.Tables.CMOF_Metamodel.MA_CMOF_Element_Owned_Element_Owner, 280 Base + 4, 281 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Owned_Element_Element_Owner, 282 Base + 5, 283 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Owner_Element_Owned_Element); 284 end Initialize_4; 285 286 ------------------ 287 -- Initialize_5 -- 288 ------------------ 289 290 procedure Initialize_5 is 291 begin 292 AMF.Internals.Links.Internal_Create_Link 293 (AMF.Internals.Tables.CMOF_Metamodel.MA_CMOF_Comment_Annotated_Element_Comment, 294 Base + 5, 295 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Comment_Annotated_Element_A_Comment, 296 Base + 4, 297 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_A_Comment_Comment_Annotated_Element); 298 end Initialize_5; 299 300 ------------------ 301 -- Initialize_6 -- 302 ------------------ 303 304 procedure Initialize_6 is 305 begin 306 AMF.Internals.Links.Internal_Create_Link 307 (AMF.Internals.Tables.CMOF_Metamodel.MA_CMOF_Element_Owned_Comment_Owning_Element, 308 Base + 6, 309 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Owned_Comment_A_Owning_Element, 310 Base + 7, 311 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_A_Owning_Element_Element_Owned_Comment); 312 AMF.Internals.Links.Internal_Create_Link 313 (AMF.Internals.Tables.CMOF_Metamodel.MA_CMOF_Element_Owned_Element_Owner, 314 Base + 6, 315 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Owned_Element_Element_Owner, 316 Base + 7, 317 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Owner_Element_Owned_Element); 318 end Initialize_6; 319 320 ------------------ 321 -- Initialize_7 -- 322 ------------------ 323 324 procedure Initialize_7 is 325 begin 326 AMF.Internals.Links.Internal_Create_Link 327 (AMF.Internals.Tables.CMOF_Metamodel.MA_CMOF_Comment_Annotated_Element_Comment, 328 Base + 7, 329 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Comment_Annotated_Element_A_Comment, 330 Base + 6, 331 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_A_Comment_Comment_Annotated_Element); 332 end Initialize_7; 333 334 ------------------ 335 -- Initialize_8 -- 336 ------------------ 337 338 procedure Initialize_8 is 339 begin 340 AMF.Internals.Links.Internal_Create_Link 341 (AMF.Internals.Tables.CMOF_Metamodel.MA_CMOF_Element_Owned_Comment_Owning_Element, 342 Base + 8, 343 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Owned_Comment_A_Owning_Element, 344 Base + 9, 345 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_A_Owning_Element_Element_Owned_Comment); 346 AMF.Internals.Links.Internal_Create_Link 347 (AMF.Internals.Tables.CMOF_Metamodel.MA_CMOF_Element_Owned_Element_Owner, 348 Base + 8, 349 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Owned_Element_Element_Owner, 350 Base + 9, 351 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Owner_Element_Owned_Element); 352 end Initialize_8; 353 354 ------------------ 355 -- Initialize_9 -- 356 ------------------ 357 358 procedure Initialize_9 is 359 begin 360 AMF.Internals.Links.Internal_Create_Link 361 (AMF.Internals.Tables.CMOF_Metamodel.MA_CMOF_Comment_Annotated_Element_Comment, 362 Base + 9, 363 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Comment_Annotated_Element_A_Comment, 364 Base + 8, 365 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_A_Comment_Comment_Annotated_Element); 366 end Initialize_9; 367 368 ------------------- 369 -- Initialize_10 -- 370 ------------------- 371 372 procedure Initialize_10 is 373 begin 374 AMF.Internals.Links.Internal_Create_Link 375 (AMF.Internals.Tables.CMOF_Metamodel.MA_CMOF_Element_Owned_Comment_Owning_Element, 376 Base + 10, 377 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Owned_Comment_A_Owning_Element, 378 Base + 11, 379 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_A_Owning_Element_Element_Owned_Comment); 380 AMF.Internals.Links.Internal_Create_Link 381 (AMF.Internals.Tables.CMOF_Metamodel.MA_CMOF_Element_Owned_Element_Owner, 382 Base + 10, 383 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Owned_Element_Element_Owner, 384 Base + 11, 385 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Element_Owner_Element_Owned_Element); 386 end Initialize_10; 387 388 ------------------- 389 -- Initialize_11 -- 390 ------------------- 391 392 procedure Initialize_11 is 393 begin 394 AMF.Internals.Links.Internal_Create_Link 395 (AMF.Internals.Tables.CMOF_Metamodel.MA_CMOF_Comment_Annotated_Element_Comment, 396 Base + 11, 397 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Comment_Annotated_Element_A_Comment, 398 Base + 10, 399 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_A_Comment_Comment_Annotated_Element); 400 end Initialize_11; 401 402 ------------------- 403 -- Initialize_12 -- 404 ------------------- 405 406 procedure Initialize_12 is 407 begin 408 AMF.Internals.Links.Internal_Create_Link 409 (AMF.Internals.Tables.CMOF_Metamodel.MA_CMOF_Tag_Element_Tag, 410 Base + 12, 411 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Tag_Element_A_Tag, 412 Base + 1, 413 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_A_Tag_Tag_Element); 414 end Initialize_12; 415 416 ------------------- 417 -- Initialize_13 -- 418 ------------------- 419 420 procedure Initialize_13 is 421 begin 422 AMF.Internals.Links.Internal_Create_Link 423 (AMF.Internals.Tables.CMOF_Metamodel.MA_CMOF_Tag_Element_Tag, 424 Base + 13, 425 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Tag_Element_A_Tag, 426 Base + 2, 427 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_A_Tag_Tag_Element); 428 end Initialize_13; 429 430 ------------------- 431 -- Initialize_14 -- 432 ------------------- 433 434 procedure Initialize_14 is 435 begin 436 AMF.Internals.Links.Internal_Create_Link 437 (AMF.Internals.Tables.CMOF_Metamodel.MA_CMOF_Tag_Element_Tag, 438 Base + 14, 439 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Tag_Element_A_Tag, 440 Base + 4, 441 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_A_Tag_Tag_Element); 442 end Initialize_14; 443 444 ------------------- 445 -- Initialize_15 -- 446 ------------------- 447 448 procedure Initialize_15 is 449 begin 450 AMF.Internals.Links.Internal_Create_Link 451 (AMF.Internals.Tables.CMOF_Metamodel.MA_CMOF_Tag_Element_Tag, 452 Base + 15, 453 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_Tag_Element_A_Tag, 454 Base + 6, 455 AMF.Internals.Tables.CMOF_Metamodel.MP_CMOF_A_Tag_Tag_Element); 456 end Initialize_15; 457 458end AMF.Internals.Tables.Primitive_Types_Metamodel.Links; 459